Apple ii Traditional Graphic Scientific Calculator

I have corrected a BUG where if divided by zero the calculator exit to BASIC, Here the code:

10 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN"
20 PRINT " "
30 PRINT " "
50 PRINT " "
51 PRINT " % 7 8 9 +"
52 PRINT " ^ 4 5 6 -"
53 PRINT " TAN 1 2 3 *"
54 PRINT " LOG 0 /"
55 PRINT " SIN COS "
56 INPUT A
57 INPUT A$
60 IF A$ = "+" THEN GOTO 80
70 IF A$ = "-" THEN GOTO 130
71 IF A$ = "*" THEN GOTO 160
72 IF A$ = "/" THEN GOTO 170
73 IF A$ = "%" THEN GOTO 180
74 IF A$ = "^" THEN GOTO 240
75 IF A$ = "TAN" THEN GOTO 300
76 IF A$ = "LOG" THEN GOTO 360
77 IF A$ = "SIN" THEN GOTO 420
78 IF A$ = "COS" THEN GOTO 480
79 IF A$ < > "+" THEN GOTO 10
80 IF A$ < > "-" THEN GOTO 10
81 IF A$ < > "*" THEN GOTO 10
82 IF A$ < > "/" THEN GOTO 10
83 IF A$ < > "%" THEN GOTO 10
84 IF A$ < > "^" THEN GOTO 10
85 IF A$ < > "TAN" THEN GOTO 10
86 IF A$ < > "LOG" THEN GOTO 10
87 IF A$ < > "SIN" THEN GOTO 10
88 IF A$ < > "COS" THEN GOTO 10
89 PRINT " +": INPUT B
90 C = A+B
100 PRINT " ="; C
101 FOR K = 1 TO 5000
102 NEXT K
103 GOTO 10
130 PRINT " -": INPUT E
140 F = A-E
150 PRINT " ="; F
151 FOR K = 1 TO 5000
152 NEXT K
153 GOTO 10
160 PRINT " *": INPUT G
161 H = A*G
162 PRINT " ="; H
163 FOR K = 1 TO 5000
164 NEXT K
165 GOTO 10
170 PRINT " /": INPUT I
171 IF I = 0 THEN GOTO 176
172 L = A/I
173 PRINT " ="; L
174 FOR K = 1 TO 5000
175 NEXT K
176 GOTO 10
180 PRINT " %": INPUT M
190 N = (A/100)*M
200 PRINT " ="; N
210 FOR K = 1 TO 5000
220 NEXT K
230 GOTO 10
240 PRINT " ^": INPUT O
250 P = A^O
260 PRINT " ="; P
270 FOR K = 1 TO 5000
280 NEXT K
290 GOTO 10
300 PRINT " TAN"
310 Q = TAN(A)
320 PRINT " ="; Q
330 FOR K = 1 TO 5000
340 NEXT K
350 GOTO 10
360 PRINT " LOG"
370 S = LOG(A)
380 PRINT " ="; S
390 FOR K = 1 TO 5000
400 NEXT K
410 GOTO 10
420 PRINT " SIN"
430 T = SIN(A)
440 PRINT " ="; T
450 FOR K = 1 TO 5000
460 NEXT K
470 GOTO 10
480 PRINT " COS"
490 U = COS(A)
500 PRINT " ="; U
510 FOR K = 1 TO 5000
520 NEXT K
530 GOTO 10

TO DOWNALOD .DSK FILE FOR EMULATORS AND APPLE II CLICK HERE

I have found a distraction BUG in line 60 and corrected it and added an Interface Help:

10 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN
11 PRINT " "
12 PRINT " "
13 PRINT " ***ONLINE HELP*** WRITE FIRST NUMBER PRESS RETURN THEN FUNCTION LIKE WRITTEN IN THE CALCULATOR INTERFACE, PRESS RETURN THEN THE OTHER NUMBER PRESS RETURN, FOR SCIENTIFIC CALCULATIONS WRITE NUMBER, PRESS RETURN THAN FUNCTION."
20 PRINT " "
30 PRINT " "
50 PRINT " "
51 PRINT " % 7 8 9 +"
52 PRINT " ^ 4 5 6 -"
53 PRINT " TAN 1 2 3 *"
54 PRINT " LOG 0 . /"
55 PRINT " SIN COS "
56 INPUT A
57 INPUT A$
60 IF A$ = "+" THEN GOTO 89
70 IF A$ = "-" THEN GOTO 130
71 IF A$ = "*" THEN GOTO 160
72 IF A$ = "/" THEN GOTO 170
73 IF A$ = "%" THEN GOTO 180
74 IF A$ = "^" THEN GOTO 240
75 IF A$ = "TAN" THEN GOTO 300
76 IF A$ = "LOG" THEN GOTO 360
77 IF A$ = "SIN" THEN GOTO 420
78 IF A$ = "COS" THEN GOTO 480
79 IF A$ < > "+" THEN GOTO 10
80 IF A$ < > "-" THEN GOTO 10
81 IF A$ < > "*" THEN GOTO 10
82 IF A$ < > "/" THEN GOTO 10
83 IF A$ < > "%" THEN GOTO 10
84 IF A$ < > "^" THEN GOTO 10
85 IF A$ < > "TAN" THEN GOTO 10
86 IF A$ < > "LOG" THEN GOTO 10
87 IF A$ < > "SIN" THEN GOTO 10
88 IF A$ < > "COS" THEN GOTO 10
89 PRINT " +": INPUT B
90 C = A+B
100 PRINT " ="; C
101 FOR K = 1 TO 5000
102 NEXT K
103 GOTO 10
130 PRINT " -": INPUT E
140 F = A-E
150 PRINT " ="; F
151 FOR K = 1 TO 5000
152 NEXT K
153 GOTO 10
160 PRINT " *": INPUT G
161 H = A*G
162 PRINT " ="; H
163 FOR K = 1 TO 5000
164 NEXT K
165 GOTO 10
170 PRINT " /": INPUT I
171 IF I = 0 THEN GOTO 176
172 L = A/I
173 PRINT " ="; L
174 FOR K = 1 TO 5000
175 NEXT K
176 GOTO 10
180 PRINT " %": INPUT M
190 N = (A/100)*M
200 PRINT " ="; N
210 FOR K = 1 TO 5000
220 NEXT K
230 GOTO 10
240 PRINT " ^": INPUT O
250 P = A^O
260 PRINT " ="; P
270 FOR K = 1 TO 5000
280 NEXT K
290 GOTO 10
300 PRINT " TAN"
310 Q = TAN(A)
320 PRINT " ="; Q
330 FOR K = 1 TO 5000
340 NEXT K
350 GOTO 10
360 PRINT " LOG"
370 S = LOG(A)
380 PRINT " ="; S
390 FOR K = 1 TO 5000
400 NEXT K
410 GOTO 10
420 PRINT " SIN"
430 T = SIN(A)
440 PRINT " ="; T
450 FOR K = 1 TO 5000
460 NEXT K
470 GOTO 10
480 PRINT " COS"
490 U = COS(A)
500 PRINT " ="; U
510 FOR K = 1 TO 5000
520 NEXT K
530 GOTO 10

Enjoy

TO DONWLOAD THE .DSK IMAGE CLICK HERE!

Here an image of the calculator adding...

Click here

Three link to the three Calculators working on an emulator in internet archive enjoy!: To run them is needed The Browser Google Chrome and an American Keyboard.

ALGEBRIC AND RPN BASIC AND SCIENTIFIC TEXTUAL CALCULATOR TO ENJOY INSIDE THE EMULATOR CLICK HERE!

TRADITIONAL GRAPHIC BASIC AND SCIENTIFIC EMULATED CALCULATOR TO ENJOY CLICK HERE!

TRADITIONAL GRAPHIC BASIC EMULATED CALCULATOR TO ENJOY CLICK HERE!