Appears on
Cassette to accompany the June 1983 issue of Synchro-Sette.
Source Code
10 DIM B$(2,9) 20 LET C$="" 30 LET B=1 40 CLS 50 LET D$="" 70 PRINT AT 3,8;"% %M%A%T%H% %H%E%L%P%E%R% " 100 LET A$=INKEY$ 110 IF A$="Z" THEN GOTO 205 120 IF A$="K" THEN GOTO 1000 130 IF A$="J" THEN GOTO 2000 140 IF A$="B" THEN GOTO 3000 150 IF A$="V" THEN GOTO 4000 160 IF A$="H" THEN GOTO 5000 170 IF A$="L" THEN GOTO 6000 180 IF (CODE A$>27 AND CODE A$<38) OR A$="." THEN GOTO 200 190 GOTO 100 200 LET D$=D$+A$ 205 IF A$="Z" THEN LET D$=D$( TO LEN D$-1) 210 LET B$(B)=D$ 500 PRINT AT 10,0;B$(1);" ";C$;" ";B$(2) 510 GOTO 100 1000 LET C$="+" 1010 LET B=2 1020 LET D$="" 1100 GOTO 500 2000 LET C$="-" 2010 GOTO 1010 3000 LET C$="X" 3010 GOTO 1010 4000 LET C$="/" 4010 GOTO 1010 5000 LET C$="**" 5010 GOTO 1010 6000 IF C$="+" THEN PRINT AT 10,0;B$(1);" + ";B$(2),,," = ";VAL B$(1)+VAL B$(2) 6010 IF C$="-" THEN PRINT AT 10,0;B$(1);" - ";B$(2),,," = ";VAL B$(1)-VAL B$(2) 6020 IF C$="X" THEN PRINT AT 10,0;B$(1);" X ";B$(2),,," = ";VAL B$(1)*VAL B$(2) 6030 IF C$="/" THEN PRINT AT 10,0;B$(1);" / ";B$(2),,," = ";VAL B$(1)/VAL B$(2) 6040 IF C$="**" THEN PRINT AT 10,0;B$(1);" ** ";B$(2),,," = ";VAL B$(1)**VAL B$(2) 6997 PAUSE 40000 6998 CLEAR 6999 RUN 9998 SAVE "MATH-HELPE%R" 9999 RUN