1: 10 CLS 2: PRINT "WHAT OPERATION DO YOU WISH TO PREFORM + - x / Q" 3: PRINT "+ ADDITION" 4: PRINT "- SUBTREACTION" 5: PRINT "x MULTIPLICATION" 6: PRINT "/ DIVISION" 7: PRINT "% PERCENT" 8: PRINT "Q QUIT" 9: LOCATE 1, 48: INPUT A$ 10: IF A$ = "+" THEN GOTO 20 11: IF A$ = "-" THEN GOTO 30 12: IF A$ = "x" THEN GOTO 40 13: IF A$ = "/" THEN GOTO 50 14: IF A$ = "q" THEN GOTO 100 15: IF A$ = "%" THEN GOTO 60 16: IF A$ = "Q" THEN GOTO 100 ELSE GOTO 5 17: 5 BEEP 18: GOTO 10 19: 20 CLS 20: PRINT "A + B = C" 21: PRINT "A=" 22: PRINT "B=" 23: LOCATE 2, 3: INPUT A 24: LOCATE 3, 3: INPUT B 25: PRINT A; " + "; B; " ="; A + B 26: PRINT 27: PRINT "PRESS ANY KEY TO CONTINUE" 28: DO WHILE INKEY$ = "": LOOP 29: GOTO 10 30: 30 CLS 31: PRINT "A - B = C" 32: PRINT "A=" 33: PRINT "B=" 34: LOCATE 2, 3: INPUT A 35: LOCATE 3, 3: INPUT B 36: PRINT A; " - "; B; " =" 37: PRINT A - B 38: PRINT "PRESS ANY KEY TO CONTINUE" 39: DO WHILE INKEY$ = "": LOOP 40: GOTO 10 41: 40 CLS 42: PRINT "A x B = C" 43: PRINT "A=" 44: PRINT "B=" 45: LOCATE 2, 3: INPUT A 46: LOCATE 3, 3: INPUT B 47: PRINT A; " x "; B; " =" 48: PRINT A * B 49: PRINT "PRESS ANY KEY TO CONTINUE" 50: DO WHILE INKEY$ = "": LOOP 51: GOTO 10 52: 50 CLS 53: PRINT "A ö B = C" 54: PRINT "A=" 55: PRINT "B=" 56: LOCATE 2, 3: INPUT A 57: LOCATE 3, 3: INPUT B 58: PRINT A; " / "; B; " =" 59: PRINT A / B 60: PRINT "PRESS ANY KEY TO CONTINUE" 61: DO WHILE INKEY$ = "": LOOP 62: GOTO 10 63: 60 CLS 64: PRINT "A% of B = C" 65: INPUT "A ="; A 66: INPUT "B ="; B 67: LET C = B / 100 * A 68: PRINT C 69: DO WHILE INKEY$ = "": LOOP 70: GOTO 10 71: 100 LOCATE 6, 1 72: SYSTEM 73: |