10 REM BCC calculator for DOS
20 REM used with DOSKEY macro
30 REM by Jeff A. Six ORIGNPROG
40 REM JULY271992
45 REM Version 1.01a
50 PRINT "BCC V1.01a   To use type NUMBER,OPERATION,NUMBER. "
60 INPUT "BCC:", n1, S$, n2
70 IF S$ = "+" THEN GOTO 200
80 IF S$ = "-" THEN GOTO 220
90 IF S$ = "*" THEN GOTO 240
100 IF S$ = "/" THEN GOTO 260
105 IF S$ = "Q" THEN GOTO 280
110 PRINT "Invalid operation or syntax error."
120 GOTO 280
200 PRINT n1 + n2
210 GOTO 280
220 PRINT n1 - n2
230 GOTO 280
240 PRINT n1 * n2
250 GOTO 280
260 PRINT n1 / n2
270 GOTO 280
280 INPUT "Press ENTER to continue or type QUIT to quit to DOS", quit$
290 IF quit$ = "QUIT" THEN GOTO 320
300 IF quit$ = "quit" THEN GOTO 320
310 GOTO 60
320 SYSTEM

