1: DECLARE SUB Add (A!, B!) 2: CLS 3: SCREEN 0 4: 1 LINE INPUT "MS-DOS-->"; RUN$ 5: OPEN "C:\DOS\°±²ÛÞÝ.BAT" FOR OUTPUT AS #1 6: RUNN$ = "@" + RUN$ 7: IF RUN$ = "ADD" GOTO Add 8: IF RUN$ = "add" GOTO Add 9: KEY 3, RUNB$ 10: PRINT #1, RUNN$ 11: CLOSE #1 12: SHELL "C:\DOS\°±²ÛÞÝ.BAT" 13: LIN1 = CSRLIN - 1 14: LOCATE LIN1, 1: PRINT " " 15: KILL "C:\DOS\°±²ÛÞÝ.BAT" 16: RINB$ = "": RUNB$ = RUN$ 17: GOTO 1 18: Add: 19: Add 1, 1 20: CLOSE #1 21: KILL "C:\DOS\°±²ÛÞÝ.BAT" 22: GOTO 1 23: 24: SUB Add (A, B) 25: C = A + B 26: PRINT A; "+"; B; "="; C 27: END SUB 28: 29: SUB Raise (BN, BP) 30: B = BN 31: FOR POWER = 1 TO BP 32: IF check = 1 THEN BN = ((B * B) + BN) ELSE BN = B * B 33: check = 1 34: NEXT POWER 35: check = 0 36: PRINT B; "TO THE POWER OF"; BP; "IS"; BN 37: END SUB 38: |