Math Helper

Date: June 1983
Type: Program
Platform(s): TS 1000

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 

People

No people associated with this content.

Scroll to Top