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
\n1000 LET C$="+"
\n1010 LET B=2
\n1020 LET D$=""
\n1100 GOTO 500
\n2000 LET C$="-"
\n2010 GOTO 1010
\n3000 LET C$="X"
\n3010 GOTO 1010
\n4000 LET C$="/"
\n4010 GOTO 1010
\n5000 LET C$="**"
\n5010 GOTO 1010
\n6000 IF C$="+" THEN PRINT AT 10,0;B$(1);" + ";B$(2),,," = ";VAL B$(1)+VAL B$(2)
\n6010 IF C$="-" THEN PRINT AT 10,0;B$(1);" - ";B$(2),,," = ";VAL B$(1)-VAL B$(2)
\n6020 IF C$="X" THEN PRINT AT 10,0;B$(1);" X ";B$(2),,," = ";VAL B$(1)*VAL B$(2)
\n6030 IF C$="/" THEN PRINT AT 10,0;B$(1);" / ";B$(2),,," = ";VAL B$(1)/VAL B$(2)
\n6040 IF C$="**" THEN PRINT AT 10,0;B$(1);" ** ";B$(2),,," = ";VAL B$(1)**VAL B$(2)
\n6997 PAUSE 40000
\n6998 CLEAR
\n6999 RUN
\n9998 SAVE "MATH-HELPE%R"
\n9999 RUN
