Saturday, 21 May 2016

APPLE ][ CALCULATOR PROGRAMMED BY MATTEO TREVISAN EVOLVED IN APPLEWORKS II RETROCHALLENGE 2016/10

Work in progress from October for Retrochallenge 2016/10.

Here at Mattechnology i never stop to program and i have developed these Calculators evolved in Appleworks ii for the Retrochallenge 2016/10 and the projects in the other pages.

I made it the last day and in Beagle Bros Appleworks style, if i'm right!!!!!
This is my Appleworks suite, it incorporate the Notepad , Password Storage and Calculator made by me, this is the code: 

I have corrected three bugs in * and ^ and SIN operation.

10 PRINT "APPLEWORKS SUITE II BY MATTEO TREVISAN"
20 PRINT "                                                                    "
30 PRINT "                                                                    "
40 PRINT "DO YOU WANT TO CHOOSE: NOTEPAD, PASSWORD STORAGE OR CALCULATOR"
50 INPUT AS$
60 IF AS$ = "NOTEPAD" GOTO 120
70 IF AS$= "PASSWORD STORAGE" GOTO 270
80 IF AS$= "CALCULATOR" GOTO 370
90 IF AS$ <> "NOTEPAD" THEN GOTO 10
100 IF AS$ <> "PASWORD STORAGE" THEN GOTO 10
110 IF AS$ <> "CALCULATOR" THEN GOTO 10

120 SPEED=150
130 HOME
140 PRINT "APPLE ][ NOTEPAD BY MATTEO TREVISAN VERSION 1.3"
150 PRINT "WRITE TITLE HERE ": INPUT A$
160 PRINT "WRITE COMMENT HERE ": INPUT B$
170 PRINT "WRITE BODY HERE TYPE RETURN AFTER EVERY LINE YOU HAVE 19 LINE OF TEXT MAXIMUM IF YOU WANT TO LEAVE BLANK LINE TYPE RETURN UNTIL THE END OF 19 LINES SIGNED AS ?"
180 INPUT C$:INPUT F$ :INPUT G$ :INPUT H$ :INPUT I$:INPUT L$:INPUT M$
190 INPUT N$:INPUT O$:INPUT P$:INPUT Q$:INPUT R$:INPUT S$:INPUT T$:INPUT U$:INPUT V$:INPUT Z$:INPUT X$:INPUT Y$
200 PRINT "DO YOU WANT I SHOW YOUR TEXT ": INPUT D$
210 IF D$ = "YES" THEN PRINT A$:PRINT B$:PRINT C$:PRINT F$ :PRINT G$ :PRINT H$:PRINT I$:PRINT L$:PRINT M$:PRINT N$:PRINT O$:PRINT P$:PRINT Q$:PRINT R$:PRINT S$:PRINT T$:PRINT U$:PRINT V$:PRINT Z$:PRINT X$:PRINT Y$
220 IF D$ <> "YES" THEN GOTO 10
230 PRINT "DO YOU WANT TO SAVE TO CASSETTE ": INPUT E$
240 IF E$ = "YES" THEN PRINT "PRESS REC ON TAPE": SAVE
250 IF E$ <> "YES" THEN GOTO 10
260 GOTO 10

270 PRINT "TELL ME YOUR PASSWORD TO STORE":INPUT AL$
280 PRINT "INSERT A CODE":INPUT BL$
290 HOME
300 PRINT "DO YOU WANT TO SAVE YOUR PASSWORD TO CASSETTE":INPUT EL$
310 IF EL$= "YES" THEN PRINT "PRESS REC ON TAPE" : SAVE
320 IF EL$= "NO" THEN GOTO 330
330 PRINT "DO YOU WANT I SHOW YOUR PASSWORD":INPUT CL$
340 IF CL$= "YES" THEN PRINT "INSERT CODE":INPUT DL$
350 IF DL$ = BL$ THEN PRINT AL$
360 GOTO 10

370 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN"
380 PRINT "                                                 "
390 PRINT "                                                 "
400 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."
410 PRINT "                      "
420 PRINT "                      "
430 PRINT "                      "
440 PRINT "     %     7  8  9        +" 
450 PRINT "     ^     4  5  6        -"
460 PRINT "     TAN   1  2  3        *"
470 PRINT "     LOG   0  .           /"
480 PRINT "     SIN       COS         "
490 INPUT AC
500 INPUT AC$
510 IF AC$= "+" THEN GOTO 710
520 IF AC$= "-" THEN GOTO 770
530 IF AC$= "*" THEN GOTO 830
540 IF AC$= "/" THEN GOTO 890
550 IF AC$= "%" THEN GOTO 1050
560 IF AC$= "^" THEN GOTO 2010
570 IF AC$= "TAN" THEN GOTO 2070
580 IF AC$= "LOG" THEN GOTO 3030
590 IF AC$= "SIN" THEN GOTO 3090
600 IF AC$= "COS" THEN GOTO 4050
610 IF AC$< > "+" THEN GOTO 10
620 IF AC$< > "-" THEN GOTO 10
630 IF AC$< > "*" THEN GOTO 10
640 IF AC$< > "/" THEN GOTO 10
650 IF AC$< > "%" THEN GOTO 10
660 IF AC$< > "^" THEN GOTO 10
670 IF AC$< > "TAN" THEN GOTO 10
680 IF AC$< > "LOG" THEN GOTO 10
690 IF AC$< > "SIN" THEN GOTO 10
700 IF AC$< > "COS" THEN GOTO 10
710 PRINT "                          +": INPUT BC
720 CC= AC+BC
730 PRINT "                          ="; CC
740 FOR KC= 1 TO 5000
750 NEXT KC
760 GOTO 10
770 PRINT "                          -":  INPUT EC
780 FC= AC-EC
790 PRINT "                          ="; FC
800 FOR KC= 1 TO 5000
810 NEXT KC
820 GOTO 10
830 PRINT "                          *": INPUT GC
840 HC = AC*GC
850 PRINT "                          ="; HC
860 FOR KC= 1 TO 5000
870 NEXT KC
880 GOTO 10
890 PRINT "                          /": INPUT IC
900 IF IC= 0 THEN GOTO 176
1000 LC= AC/IC
1010 PRINT "                          ="; LC
1020 FOR KC= 1 TO 5000
1030 NEXT KC
1040 GOTO 10
1050 PRINT "                          %": INPUT MC
1060 NC=(AC/100)*MC
1070 PRINT "                          ="; NC
1080 FOR KC= 1 TO 5000
1090 NEXT KC
2000 GOTO 10
2010 PRINT "                          ^": INPUT OC
2020 PC = AC^OC
2030 PRINT "                          ="; PC
2040 FOR KC= 1 TO 5000
2050 NEXT KC
2060 GOTO 10
2070 PRINT "                        TAN"
2080 QC=TAN(AC)
2090 PRINT "                          ="; QC
3000 FOR KC= 1 TO 5000
3010 NEXT KC
3020 GOTO 10
3030 PRINT "                        LOG"
3040 SC= LOG(AC)
3050 PRINT "                          ="; SC
3060 FOR KC= 1 TO 5000
3070 NEXT KC
3080 GOTO 10
3090 PRINT "                        SIN"
4000 TC= SIN(AC)
4010 PRINT "                          ="; TC
4020 FOR KC= 1 TO 5000
4030 NEXT KC
4040 GOTO 10
4050 PRINT "                        COS"
4060 UC= COS(AC)
4070 PRINT "                          ="; UC
4080 FOR KC= 1 TO 5000
4090 NEXT KC

5000 GOTO 10

And here the emulator in internet archive:

APPLEWORKS II BY MATTEO TREVISAN BUGS FIXED EMULATED IN INTERNET ARCHIVE CLICK HERE!!!!

A photograph in internet archive here loading.... 



A video of the Suite by Itself!






By the fruit of my mind are born various calculators, specialized in two big category, one with Graphical dummy interface and algebric, another algebric and RPN but textual both with Scientific Functions. Scroll the page down to see the evolution:

5 Days to go and i have published two little code books of my Apple II ALGEBRIC and RPN SCIENTIFIC CALCULATOR and the Apple II TRADITIONAL GRAPHIC SCIENTIFIC CALCULATOR 

I have also made a cover and bound the pages have a look:






HERE THE EMULATED CALCULATORS :

To use this emulator the browser Google Chrome and an AMERICAN Keyboard is needed.


APPLE II ALGEBRIC AND RPN SCIENTIFIC AND BASIC CALCULATOR FOR EMULATED VERSION CLICK HERE!

APPLE II TRADITIONAL GRAPHIC SCIENTIFIC AND BASIC CALCULATOR EMULATED CLICK HERE!!!

APPLE II TRADITIONAL GRAPHIC BASIC CALCULATOR EMULATED CLICK HERE!!!

I have added an Help where it's written how to use the calculator at startup, i have added a point simbol to the calculator interface. I have fixed a bug in line 60 where i made a distraction mistake so the calculator doesnt added. NOW it WORKS!!!!
Here The Code:

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


A Screenshoot of the Bugs fixed:



Have a look at this video:

video




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

A Screenshoot:



AFTER INTENSE PROGRAMMING HOURS I HAVE REBUILT THE APPLE II TRADITIONAL CALCULATOR TO BECOME A SCIENTIFIC ONE WITH ALSO BASIC FUNCTIONS:


video


HERE THE CODING:

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

A SCREENSHOOT HERE:





I have adjusted the columns of the Apple ii Traditional graphics calculator:

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 "           1  2  3        *"
54 PRINT "           0              /"
55 INPUT A
56 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 10
74 IF A$ < > "-" THEN GOTO 10
75 IF A$ < > "*" THEN GOTO 10
76 IF A$ < > "/" THEN GOTO 10
80 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

A ScreenShoot:



I have added a graphical interface to my Apple II Traditional calculator see the code here:

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 "           1  2  3        *"
54 PRINT "           0              /"
55 INPUT A
56 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 10
74 IF A$ < > "-" THEN GOTO 10
75 IF A$ < > "*" THEN GOTO 10
76 IF A$ < > "/" THEN GOTO 10
80 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

Here a ScreenCapture:





Retrochallenge is still on so way not try more!
I have thought to make a new calculator with traditional graphical interface, for now it has only the basic mathematical functions.

Here The Code:

10 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN"
20 PRINT "                      "
30 PRINT "                      "
40 PRINT "NUMBER ONE": INPUT A
50 PRINT "          "
51 PRINT "         +" 
52 PRINT "         -"
53 PRINT "         *"
54 PRINT "         /"
55 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 10
74 IF A$ < > "-" THEN GOTO 10
75 IF A$ < > "*" THEN GOTO 10
76 IF A$ < > "/" THEN GOTO 10
80 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

A ScreenShoot Here:





project evolved because i thought: Can i go farther with this calculator??! Yes! So i want to make a fusion between the ALGEBRIC AND RPN Basic and Scientific Calculators i have made. I done it!!!!!

Here the Code;
If you like my code and want to contribute or download the program please make a donation:

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ SCIENTIFIC CALCULATOR ALGEBRIC AND RPN 3.0 BY MATTEO TREVISAN"
20 HOME
21 PRINT "DO YOU WANT ALGEBRIC OR RPN CALCULATION MODE: DIGIT COMPLETE WORD": INPUT B$
22 IF B$ = "ALGEBRIC" THEN GOTO 31 
23 IF B$ = "RPN" THEN GOTO 26
24 IF B$ < > "ALGEBRIC" THEN GOTO 10
25 IF B$ < > "RPN" THEN GOTO 10
26 PRINT "DO YOU WANT BASIC OR SCIENTIFIC CALCULATION MODE: DIGIT COMPLETE WORD": INPUT C$
27 IF C$ = "BASIC" THEN GOTO 840
28 IF C$ = "SCIENTIFIC" THEN GOTO 1470
29 IF C$ < > "BASIC" THEN GOTO 10
30 IF C$ < > "SCIENTIFIC" THEN GOTO 10  
31 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION , PERCENTAGE, TANGENT, LOGARITHM, SINE OR COSINE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
84 IF A$ = "SINE" THEN GOTO 550 
85 IF A$ = "COSINE" THEN GOTO 620
86 IF A$ = "TANGENT" THEN GOTO 690
87 IF A$ = "LOGARITHM" THEN GOTO 760
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
97 IF A$ <> "SINE" THEN GOTO 10
98 IF A$ <> "COSINE" THEN GOTO 10
99 IF A$ <> "TANGENT" THEN GOTO 10
100 IF A$ <> "LOGARITHM" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 PRINT "TELL ME THE NUMBER TO SINE"
560 PRINT "INSERT NUMBER":INPUT V
570 Z = SIN(V)
580 PRINT "SINE IS "; Z
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 PRINT "TELL ME THE NUMBER TO COSINE"
630 PRINT "INSERT NUMBER":INPUT Y
640 W = COS(Y)
650 PRINT "COSINE IS "; W
660 FOR K = 1 TO 5000
670 NEXT K
680 GOTO 10
690 PRINT "TELL ME THE NUMBER TO TANGENT"
700 PRINT "INSERT NUMBER":INPUT SA
710 SB = TAN(SA)
720 PRINT "TAN IS "; SB
730 FOR K = 1 TO 5000
740 NEXT K
750 GOTO 10
760 PRINT "TELL ME THE NUMBER TO LOGARITHM"
770 PRINT "INSERT NUMBER":INPUT SC
780 SD = LOG(SC)
790 PRINT "LOGARITHM IS "; SD
800 FOR K = 1 TO 5000
810 NEXT K
820 GOTO 10
840 PRINT "NUMBER ONE":INPUT SA
850 PRINT"NUMBER TWO":INPUT SB
860 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS ADD,SUBTRACT,DIVIDE, MULTIPLY, PERCENTAGE, EXPONENTIATION": INPUT E$
870 IF E$ = "ADD" THEN GOTO 910
880 IF E$ = "SUBTRACT" THEN GOTO 970
890 IF E$ = "DIVIDE" THEN GOTO 1211
900 IF E$ = "MULTIPLY" THEN GOTO 1280
901 IF E$="PERCENTAGE" THEN GOTO 1330
902 IF E$="EXPONENTIATION" THEN GOTO 1380
903 IF E$ <> "ADD" THEN GOTO 10
904 IF E$ <> "SUBTRACT" THEN GOTO 10
905 IF E$ <> "DIVIDE" THEN GOTO 10
906 IF E$ <> "MULTIPLY" THEN GOTO 10
907 IF E$ <> "PERCENTAGE" THEN GOTO 10
908 IF E$ <> "EXPONENTIATION" THEN GOTO 10
910 SC = SA+SB
960 PRINT "THE ADDITION IS "; SC
961 FOR SK = 1 TO 5000
962 NEXT SK
965 GOTO 10
970 SD = SA-SB
980 PRINT "THE SUBTRACTION IS "; SD
990 FOR SK = 1 TO 5000
1000 NEXT SK
1010 GOTO 10
1211 IF SB = 0 THEN GOTO 10
1230 SE = SA/SB
1240 PRINT "THE DIVISION IS "; SE
1250 FOR SK = 1 TO 5000
1260 NEXT SK
1270 GOTO 10
1280 SF = SA*SB
1290 PRINT "THE MULTIPLY IS "; SF
1300 FOR SK = 1 TO 5000
1310 NEXT SK
1320 GOTO 10
1330 SY = (SA/100)*SB
1340 PRINT "THE PERCENTAGE IS "; SY
1350 FOR SK = 1 TO 5000
1360 NEXT SK
1370 GOTO 10
1380 SG = SA^SB
1430 PRINT "THE EXPONENTIATION IS "; SG
1440 FOR SK = 1 TO 5000
1450 NEXT SK
1460 GOTO 10
1470 PRINT "INSERT NUMBER " : INPUT SH
1480 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS TANGENT, LOGARITHM, SINE, COSINE OR SQUARE ROOT" : INPUT D$
1490 IF D$ = "TANGENT" THEN GOTO 1570 
1500 IF D$ = "LOGARITHM" THEN GOTO 1620
1510 IF D$ = "SINE" THEN GOTO 1670
1520 IF D$ = "COSINE" THEN GOTO 1720
1521 IF D$ = "SQUARE ROOT" THEN GOTO 1770
1530 IF D$ < > "TANGENT" THEN GOTO 10
1540 IF D$ < > "LOGARITHM" THEN GOTO 10
1550 IF D$ < > "SINE" THEN GOTO 10
1560 IF D$ < > "COSINE" THEN GOTO 10
1561 IF D$ < > "SQUARE ROOT" THEN GOTO 10
1570 SI = TAN(SH)
1580 PRINT "TAN IS "; SI
1590 FOR SK = 1 TO 5000
1600 NEXT SK
1610 GOTO 10
1620 SL = LOG(SH)
1630 PRINT "LOGARITHM IS "; SL
1640 FOR SK = 1 TO 5000
1650 NEXT SK
1660 GOTO 10
1670 SM = SIN(SH)
1680 PRINT "SINE IS "; SM
1690 FOR SK = 1 TO 5000
1700 NEXT SK
1710 GOTO 10
1720  SN = COS(SH)
1730 PRINT "COSINE IS "; SN
1740 FOR SK = 1 TO 5000
1750 NEXT SK
1760 GOTO 10
1770 SO = SQR(SH)
1780 PRINT "SQUARE ROOT IS "; SO
1790 FOR SK = 1 TO 5000
1800 NEXT SK
1810 GOTO 10
1820 END

Here two ScreenShoot:





APPLE ][ BASIC AND SCIENTIFIC CALCULATOR 3.0 ALGEBRIC AND RPN by MATTEO TREVISAN TO DOWNLOAD CLICK HERE!!!

Previous Calculators Code:

 here the code i have programmed: SINE, COSINE trigonometric function to the Calculator, i plan to program also TANGENT and LOGARITHM, the work is makeing harder begin to fail variables. I also plan to make a fully functional .dsk disk image for Apple ][ Emulators like Applewin and linapple and whatever..... Stay tuned.


5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ SCIENTIFIC CALCULATOR 1.0 BY MATTEO TREVISAN"
20 HOME
30 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION , PERCENTAGE, SINE OR COSINE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
84 IF A$ = "SINE" THEN GOTO 550 
85 IF A$ = "COSINE" THEN GOTO 620
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
97 IF A$ <> "SINE" THEN GOTO 10
98 IF A$ <> "COSINE" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 PRINT "TELL ME THE NUMBER TO SINE"
560 PRINT "INSERT NUMBER":INPUT V
570 Z = SIN(V)
580 PRINT "SINE IS "; Z
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 PRINT "TELL ME THE NUMBER TO COSINE"
630 PRINT "INSERT NUMBER":INPUT Y
640 W = COS(Y)
650 PRINT "COSINE IS "; W
660 FOR K = 1 TO 5000
670 NEXT K
680 GOTO 10
690 END

A Screen Capture of Sine working:



A Screen Capture of COSINE working:



Another Update, programming is going on, i have released also TANGENT function:

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ SCIENTIFIC CALCULATOR 1.0 BY MATTEO TREVISAN"
20 HOME
30 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION , PERCENTAGE, TANGENT, SINE OR COSINE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
84 IF A$ = "SINE" THEN GOTO 550 
85 IF A$ = "COSINE" THEN GOTO 620
86 IF A$ = "TANGENT" THEN GOTO 690
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
97 IF A$ <> "SINE" THEN GOTO 10
98 IF A$ <> "COSINE" THEN GOTO 10
99 IF A$ <> "TANGENT" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 PRINT "TELL ME THE NUMBER TO SINE"
560 PRINT "INSERT NUMBER":INPUT V
570 Z = SIN(V)
580 PRINT "SINE IS "; Z
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 PRINT "TELL ME THE NUMBER TO COSINE"
630 PRINT "INSERT NUMBER":INPUT Y
640 W = COS(Y)
650 PRINT "COSINE IS "; W
660 FOR K = 1 TO 5000
670 NEXT K
680 GOTO 10
690 PRINT "TELL ME THE NUMBER TO TANGENT"
700 PRINT "INSERT NUMBER":INPUT SA
710 SB = TAN(SA)
720 PRINT "TAN IS "; SB
730 FOR K = 1 TO 5000
740 NEXT K
750 GOTO 10
760 END

A Screen Capture of the TANGENT function:




After Hours of hard programming works i have redact this Scientific Calculator For the Apple ][ with LOGARITHM function added:

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ SCIENTIFIC CALCULATOR 1.0 BY MATTEO TREVISAN"
20 HOME
30 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION , PERCENTAGE, TANGENT, LOGARITHM, SINE OR COSINE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
84 IF A$ = "SINE" THEN GOTO 550 
85 IF A$ = "COSINE" THEN GOTO 620
86 IF A$ = "TANGENT" THEN GOTO 690
87 IF A$ = "LOGARITHM" THEN GOTO 760
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
97 IF A$ <> "SINE" THEN GOTO 10
98 IF A$ <> "COSINE" THEN GOTO 10
99 IF A$ <> "TANGENT" THEN GOTO 10
100 IF A$ <> "LOGARITHM" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 PRINT "TELL ME THE NUMBER TO SINE"
560 PRINT "INSERT NUMBER":INPUT V
570 Z = SIN(V)
580 PRINT "SINE IS "; Z
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 PRINT "TELL ME THE NUMBER TO COSINE"
630 PRINT "INSERT NUMBER":INPUT Y
640 W = COS(Y)
650 PRINT "COSINE IS "; W
660 FOR K = 1 TO 5000
670 NEXT K
680 GOTO 10
690 PRINT "TELL ME THE NUMBER TO TANGENT"
700 PRINT "INSERT NUMBER":INPUT SA
710 SB = TAN(SA)
720 PRINT "TAN IS "; SB
730 FOR K = 1 TO 5000
740 NEXT K
750 GOTO 10
760 PRINT "TELL ME THE NUMBER TO LOGARITHM"
770 PRINT "INSERT NUMBER":INPUT SC
780 SD = LOG(SC)
790 PRINT "LOGARITHM IS "; SD
800 FOR K = 1 TO 5000
810 NEXT K
820 GOTO 10
830 END

Have a look at this Screen Capture:




I have made a .dsk file image for Apple ii emulators etc. here you can download it:

Apple ii Scientific Calculator To download click here!!!!

I have try to go farther with my retrochallenge 2016/10 and program an RPN Simple (for now, after also Scientific) Calculator, and i made it!!!!!
Code is HERE:

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

Here a live screenshot:



Here you can donwload it:

APPLE ][ SIMPLY RPN CALCULATOR TO DOWNLOAD CLICK HERE!

I want to go farther more and i have adjusted a bug where if you add a wrong function name the calculator go out, i have added two new formula PERCENTAGE and EXPONENTIATION have a look: 

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

Here a screen capture:



And here you can download the .dsk disk image file for Applewin. linapple emulators or apple ii computers:

APPLE ][ SIMPLE RPN CALCULATOR PLUS PERCENTAGE AND EXPONENTIATION TO DOWNLOAD CLICK HERE!!!

After hours of hard programming works this is the RPN Scientific Calculator i have made for the Apple II. I have also fixed a bug in the division function divide by 0.

here the code:

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ RPN SCIENTIFIC CALCULATOR 1.1 BY MATTEO TREVISAN"
20 HOME
21 PRINT "DO YOU WANT BASIC OR SCIENTIFIC CALCULATION MODE": INPUT B$
22 IF B$ = "BASIC" THEN GOTO 40
23 IF B$ = "SCIENTIFIC" THEN GOTO 470
24 IF B$ < > "BASIC" THEN GOTO 10
25 IF B$ < > "SCIENTIFIC" THEN GOTO 10  
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 211
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
211 IF B = 0 THEN 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 G = A^B
430 PRINT "THE EXPONENTIATION IS "; G
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "INSERT NUMBER " : INPUT H
480 PRINT " DO YOU WANT TO TANGENT, LOGARITHM, SINE OR COSINE" : INPUT C$
490 IF C$ = "TANGENT" THEN GOTO 570 
500 IF C$ = "LOGARITHM" THEN GOTO 620
510 IF C$ = "SINE" THEN GOTO 670
520 IF C$ = "COSINE" THEN GOTO 720
530 IF C$ < > "TANGENT" THEN GOTO 10
540 IF C$ < > "LOGARITHM" THEN GOTO 10
550 IF C$ < > "SINE" THEN GOTO 10
560 IF C$ < > "COSINE" THEN GOTO 10
570 I = TAN(H)
580 PRINT "TAN IS "; I
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 L = LOG(H)
630 PRINT "LOGARITHM IS "; L
640 FOR K = 1 TO 5000
650 NEXT K
660 GOTO 10
670 M = SIN(H)
680 PRINT "SINE IS "; M
690 FOR K = 1 TO 5000
700 NEXT K
710 GOTO 10
720  N = COS(H)
730 PRINT "COSINE IS "; N
740 FOR K = 1 TO 5000
750 NEXT K
760 GOTO 10

770 END

Here a ScreenShoot:





To complete my work i have added to the Scientific functions the Square Root.

here the code:

 5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ RPN SCIENTIFIC CALCULATOR 1.2 BY MATTEO TREVISAN"
20 HOME
21 PRINT "DO YOU WANT BASIC OR SCIENTIFIC CALCULATION MODE": INPUT B$
22 IF B$ = "BASIC" THEN GOTO 40
23 IF B$ = "SCIENTIFIC" THEN GOTO 470
24 IF B$ < > "BASIC" THEN GOTO 10
25 IF B$ < > "SCIENTIFIC" THEN GOTO 10  
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 211
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
211 IF B = 0 THEN 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 G = A^B
430 PRINT "THE EXPONENTIATION IS "; G
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "INSERT NUMBER " : INPUT H
480 PRINT " DO YOU WANT TO TANGENT, LOGARITHM, SINE OR COSINE, SQUARE ROOT" : INPUT C$
490 IF C$ = "TANGENT" THEN GOTO 570 
500 IF C$ = "LOGARITHM" THEN GOTO 620
510 IF C$ = "SINE" THEN GOTO 670
520 IF C$ = "COSINE" THEN GOTO 720
521 IF C$ = "SQUARE ROOT" THEN GOTO 770
530 IF C$ < > "TANGENT" THEN GOTO 10
540 IF C$ < > "LOGARITHM" THEN GOTO 10
550 IF C$ < > "SINE" THEN GOTO 10
560 IF C$ < > "COSINE" THEN GOTO 10
561 IF C$ < > "SQUARE ROOT" THEN GOTO 10
570 I = TAN(H)
580 PRINT "TAN IS "; I
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 L = LOG(H)
630 PRINT "LOGARITHM IS "; L
640 FOR K = 1 TO 5000
650 NEXT K
660 GOTO 10
670 M = SIN(H)
680 PRINT "SINE IS "; M
690 FOR K = 1 TO 5000
700 NEXT K
710 GOTO 10
720  N = COS(H)
730 PRINT "COSINE IS "; N
740 FOR K = 1 TO 5000
750 NEXT K
760 GOTO 10
770 O = SQR(H)
780 PRINT "SQUARE ROOT IS "; O
790 FOR K = 1 TO 5000
800 NEXT K
810 GOTO 10
820 END

Here a Screenshoot:



TO DOWNALOD THE RPN SCIENTIFIC CALCULATOR PLUS SQUARE ROOT CLICK HERE!!!

I have correct the grammar to have a more user friendly interface for the first time users:

Here The code:

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ RPN SCIENTIFIC CALCULATOR 1.3 BY MATTEO TREVISAN"
20 HOME
21 PRINT "DO YOU WANT BASIC OR SCIENTIFIC CALCULATION MODE: DIGIT COMPLETE WORD": INPUT B$
22 IF B$ = "BASIC" THEN GOTO 40
23 IF B$ = "SCIENTIFIC" THEN GOTO 470
24 IF B$ < > "BASIC" THEN GOTO 10
25 IF B$ < > "SCIENTIFIC" THEN GOTO 10  
40 PRINT "NUMBER ONE":INPUT A
50 PRINT"NUMBER TWO":INPUT B
60 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS 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 211
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
211 IF B = 0 THEN 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 G = A^B
430 PRINT "THE EXPONENTIATION IS "; G
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "INSERT NUMBER " : INPUT H
480 PRINT "PLEASE DIGIT ONE OF THE FOLLOWING FUNCTIONS TANGENT, LOGARITHM, SINE, COSINE OR SQUARE ROOT" : INPUT C$
490 IF C$ = "TANGENT" THEN GOTO 570 
500 IF C$ = "LOGARITHM" THEN GOTO 620
510 IF C$ = "SINE" THEN GOTO 670
520 IF C$ = "COSINE" THEN GOTO 720
521 IF C$ = "SQUARE ROOT" THEN GOTO 770
530 IF C$ < > "TANGENT" THEN GOTO 10
540 IF C$ < > "LOGARITHM" THEN GOTO 10
550 IF C$ < > "SINE" THEN GOTO 10
560 IF C$ < > "COSINE" THEN GOTO 10
561 IF C$ < > "SQUARE ROOT" THEN GOTO 10
570 I = TAN(H)
580 PRINT "TAN IS "; I
590 FOR K = 1 TO 5000
600 NEXT K
610 GOTO 10
620 L = LOG(H)
630 PRINT "LOGARITHM IS "; L
640 FOR K = 1 TO 5000
650 NEXT K
660 GOTO 10
670 M = SIN(H)
680 PRINT "SINE IS "; M
690 FOR K = 1 TO 5000
700 NEXT K
710 GOTO 10
720  N = COS(H)
730 PRINT "COSINE IS "; N
740 FOR K = 1 TO 5000
750 NEXT K
760 GOTO 10
770 O = SQR(H)
780 PRINT "SQUARE ROOT IS "; O
790 FOR K = 1 TO 5000
800 NEXT K
810 GOTO 10

820 END

This is a ScreenShoot of an Addition function:






This is was the Ancestor an APPLE][ simple CALCULATOR 1.7 v programmed by me, BUG FIXED and ADDED an EASTER EGG! EXPONENTIATION AND PERCENTAGE ADDED!

here the program to test in internet archive:

https://archive.org/details/APPLE_CALCULATOR_by_MATTEO_TREVISAN_V_1.7_BUG_FIXED

5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ CALCULATOR 1.7 BY MATTEO TREVISAN"
20 HOME
30 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION OR PERCENTAGE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 END



Enjoy!