10 CLS
PRINT "WHAT OPERATION DO YOU WISH TO PREFORM + - x / Q"
PRINT "+ ADDITION"
PRINT "- SUBTREACTION"
PRINT "x MULTIPLICATION"
PRINT "/ DIVISION"
PRINT "% PERCENT"
PRINT "Q QUIT"
LOCATE 1, 48: INPUT A$
IF A$ = "+" THEN GOTO 20
IF A$ = "-" THEN GOTO 30
IF A$ = "x" THEN GOTO 40
IF A$ = "/" THEN GOTO 50
IF A$ = "q" THEN GOTO 100
IF A$ = "%" THEN GOTO 60
IF A$ = "Q" THEN GOTO 100 ELSE GOTO 5
5 BEEP
GOTO 10
20 CLS
PRINT "A + B = C"
PRINT "A="
PRINT "B="
LOCATE 2, 3: INPUT A
LOCATE 3, 3: INPUT B
PRINT A; " + "; B; " ="; A + B
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
DO WHILE INKEY$ = "": LOOP
GOTO 10
30 CLS
PRINT "A - B = C"
PRINT "A="
PRINT "B="
LOCATE 2, 3: INPUT A
LOCATE 3, 3: INPUT B
PRINT A; " - "; B; " ="
PRINT A - B
PRINT "PRESS ANY KEY TO CONTINUE"
DO WHILE INKEY$ = "": LOOP
GOTO 10
40 CLS
PRINT "A x B = C"
PRINT "A="
PRINT "B="
LOCATE 2, 3: INPUT A
LOCATE 3, 3: INPUT B
PRINT A; " x "; B; " ="
PRINT A * B
PRINT "PRESS ANY KEY TO CONTINUE"
DO WHILE INKEY$ = "": LOOP
GOTO 10
50 CLS
PRINT "A ö B = C"
PRINT "A="
PRINT "B="
LOCATE 2, 3: INPUT A
LOCATE 3, 3: INPUT B
PRINT A; " / "; B; " ="
PRINT A / B
PRINT "PRESS ANY KEY TO CONTINUE"
DO WHILE INKEY$ = "": LOOP
GOTO 10
60 CLS
PRINT "A% of B = C"
INPUT "A ="; A
INPUT "B ="; B
LET C = B / 100 * A
PRINT C
DO WHILE INKEY$ = "": LOOP
GOTO 10
100 LOCATE 6, 1
SYSTEM