I'm partecipating to the Retrochallenge 2016/10 and i would like to go farther, so after i have bought an HP 35s calculator i was inspired by RPN reverse polish notation of this calculator, so i started programming and in less or more 1 hour i made this:
5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ RPN SIMPLE CALCULATOR BY MATTEO TREVISAN"
20 HOME
30 PRINT "INSERT YOUR NUMBERS.... PLEASE"
40 PRINT "NUMBER ONE":INPUT A
50 PRINT"NUMBER TWO":INPUT B
60 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY": INPUT A$
70 IF A$ = "ADD" THEN GOTO 110
80 IF A$ = "SUBTRACT" THEN GOTO 170
90 IF A$ = "DIVIDE" THEN GOTO 230
100 IF A$ = "MULTIPLY" THEN GOTO 280
110 C = A+B
160 PRINT "THE ADDITION IS "; C
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 D = A-B
180 PRINT "THE SUBTRACTION IS "; D
190 FOR K = 1 TO 5000
200 NEXT K
210 GOTO 10
230 E = A/B
240 PRINT "THE DIVISION IS "; E
250 FOR K = 1 TO 5000
260 NEXT K
270 GOTO 10
280 F = A*B
290 PRINT "THE MULTIPLY IS "; F
300 FOR K = 1 TO 5000
310 NEXT K
320 GOTO 10
330 END
If you want to download the .dsk version image disk for applewin or linapple and Apple ][ go here:
I go farther...
i have fixed a bug and added exponentiation and percentage formula.
here the code:
5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ RPN SIMPLE CALCULATOR BY MATTEO TREVISAN"
20 HOME
30 PRINT "INSERT YOUR NUMBERS.... PLEASE"
40 PRINT "NUMBER ONE":INPUT A
50 PRINT"NUMBER TWO":INPUT B
60 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, PERCENTAGE, EXPONENTIATION": INPUT A$
70 IF A$ = "ADD" THEN GOTO 110
80 IF A$ = "SUBTRACT" THEN GOTO 170
90 IF A$ = "DIVIDE" THEN GOTO 230
100 IF A$ = "MULTIPLY" THEN GOTO 280
101 IF A$="PERCENTAGE" THEN GOTO 330
102 IF A$="EXPONENTIATION" THEN GOTO 380
103 IF A$ <> "ADD" THEN GOTO 10
104 IF A$ <> "SUBTRACT" THEN GOTO 10
105 IF A$ <> "DIVIDE" THEN GOTO 10
106 IF A$ <> "MULTIPLY" THEN GOTO 10
107 IF A$ <> "PERCENTAGE" THEN GOTO 10
108 IF A$ <> "EXPONENTIATION" THEN GOTO 10
110 C = A+B
160 PRINT "THE ADDITION IS "; C
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 D = A-B
180 PRINT "THE SUBTRACTION IS "; D
190 FOR K = 1 TO 5000
200 NEXT K
210 GOTO 10
230 E = A/B
240 PRINT "THE DIVISION IS "; E
250 FOR K = 1 TO 5000
260 NEXT K
270 GOTO 10
280 F = A*B
290 PRINT "THE MULTIPLY IS "; F
300 FOR K = 1 TO 5000
310 NEXT K
320 GOTO 10
330 F = (A/100)*B
340 PRINT "THE PERCENTAGE IS "; F
350 FOR K = 1 TO 5000
360 NEXT K
370 GOTO 10
380 H = A^B
430 PRINT "THE EXPONENTIATION IS "; H
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 END
TO DOWNALOD .DSK FILE FOR EMULATORS AND APPLE II CLICK HERE