DECLARE SUB Add (A!, B!)
CLS
SCREEN 0
1 LINE INPUT "MS-DOS-->"; RUN$
OPEN "C:\DOS\°±²ÛÞÝ.BAT" FOR OUTPUT AS #1
RUNN$ = "@" + RUN$
IF RUN$ = "ADD" GOTO Add
IF RUN$ = "add" GOTO Add
KEY 3, RUNB$
PRINT #1, RUNN$
CLOSE #1
SHELL "C:\DOS\°±²ÛÞÝ.BAT"
LIN1 = CSRLIN - 1
LOCATE LIN1, 1: PRINT "                   "
KILL "C:\DOS\°±²ÛÞÝ.BAT"
RINB$ = "": RUNB$ = RUN$
GOTO 1
Add:
Add 1, 1
CLOSE #1
KILL "C:\DOS\°±²ÛÞÝ.BAT"
GOTO 1

SUB Add (A, B)
C = A + B
PRINT A; "+"; B; "="; C
END SUB

SUB Raise (BN, BP)
B = BN
FOR POWER = 1 TO BP
IF check = 1 THEN BN = ((B * B) + BN) ELSE BN = B * B
check = 1
NEXT POWER
check = 0
PRINT B; "TO THE POWER OF"; BP; "IS"; BN
END SUB