Calculator

[Matt-The-Generico]

10 REM FULL APPLE II CALCULATOR
20 PRINT "=============================="
30 PRINT "   APPLE II CALCULATOR       "
40 PRINT "=============================="
50 LET M=0   : REM MEMORY
60 LET H=0   : REM LAST RESULT

100 PRINT
110 PRINT "SPECIAL COMMANDS:"
120 PRINT "MC = Clear Memory, M+ = Plus Memory, H = Show Last Result"
130 PRINT "R = Root, % = Percentage"
140 PRINT

200 REM LOOP START
210 PRINT
220 INPUT "TYPE THE FIRST NUMBER OR COMMAND "; A$
230 IF A$="MC" THEN LET M=0:PRINT "MEMORY CLEANED":GOTO 200
240 IF A$="M+" THEN LET M=H:PRINT "MEMORY UPDATED FOR ";M:GOTO 200
250 IF A$="H" THEN PRINT "LAST RESULT: ";H:GOTO 200
260 IF A$="R" THEN INPUT "NUMBER FOR ROOT: "; N: LET H=N^0.5:PRINT "RESULT: ";H:GOTO 200
270 IF A$="%" THEN INPUT "NUMBER FOR PERCENTAGE: "; N: LET H=N/100:PRINT "RESULT: ";H:GOTO 200

280 LET X=VAL(A$)
290 INPUT "TYPE THE OPERATOR (+ - * / ^): "; OP$
300 INPUT "TYPE THE SECOND NUMBER: "; Y

310 IF OP$="+" THEN LET H=X+Y
320 IF OP$="-" THEN LET H=X-Y
330 IF OP$="*" THEN LET H=X*Y
340 IF OP$="/" THEN IF Y=0 THEN PRINT "ERROR: DIVISION BY ZERO":GOTO 200 ELSE LET H=X/Y
350 IF OP$="^" THEN LET H=X^Y

360 PRINT "RESULT: ";H
370 GOTO 200

[Matt-The-Generico]

IMPORTANT: after copying and pasting the code, type RUN and press enter.