home *** CD-ROM | disk | FTP | other *** search
- 10 PRINT"[147]":GOTO20
- 15 PRINT"[147]":END
- 20 POKE 53280,14
- 30 POKE 53281,0
- 40 POKE 646,14
- 45 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][201]"
- 50 PRINT" [194]MATH HELPER[194]"
- 60 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][203]"
- 70 INPUT"WHAT DO YOU WANT TO DO (*,+,-,/,Q)";A$
- 80 IFA$<>"*"ANDA$<>"+"ANDA$<>"-"ANDA$<>"/"ANDA$<>"Q"THEN10
- 90 IFA$="*"THEN345
- 100 IFA$="+"THEN186
- 110 IFA$="-"THEN250
- 120 IFA$="/"THEN130
- 125 IFA$="Q"THENPRINT"[147]":NEW:END
- 130 PRINT"[147]"
- 135 PRINT"PRESS 00 FOR MAIN MENU"
- 140 PRINT"NUMBER TO BE DIVIDED FROM"
- 150 INPUTB
- 151 IFB=00THEN10
- 155 PRINT"NUMBER DIVIDING"
- 160 INPUTC
- 161 IFC=00THEN10
- 170 PRINT"THE ANSWER IS"B/C
- 180 GOTO135
- 185 PRINT"PRESS 00 FOR MAIN MENU"
- 186 PRINT"[147]"
- 190 PRINT"ADD"
- 200 INPUTD
- 205 IFD=00THEN10
- 210 PRINT"TO"
- 220 INPUTE
- 225 IFE=00THEN10
- 230 PRINT"THE ANSWER IS"D+E
- 240 GOTO190
- 250 PRINT"[147]"
- 260 PRINT"PRESS 00 FOR MAIN MENU"
- 270 PRINT"NUMBER TO BE SUBTRACTED FROM"
- 280 INPUTF
- 290 IFF=00THEN10
- 300 PRINT"NUMBER SUBTRACTING"
- 310 INPUTG
- 320 IFG=00THEN10
- 330 PRINT"THE ANSWER IS"F-G
- 340 GOTO 260
- 345 PRINT"[147]"
- 350 PRINT"PRESS 00 FOR MAIN MENU"
- 370 PRINT"MULTIPLY"
- 380 INPUTH
- 390 IFH=00THEN10
- 400 PRINT"BY"
- 410 INPUTI
- 420 IFI=00THEN10
- 430 PRINT"THE ANSWER IS"H*I
- 440 GOTO 350
-