Hello,

I have programmed a Traditional Scientific Calculator with graphic symbols here is 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 L = A/I

172 PRINT " ="; L

173 FOR K = 1 TO 5000

174 NEXT K

175 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

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!