Tuesday, 22 November 2016

Mattechnology Software is in partnership with Ultimateapple2


I'm happy to announce that Mattechnology is in partnership with Ultimateapple2.com to sell his software.
You can find my software here at the 2Store:

2Store Mattechnology Software link Click here

And you can find more information about my software at the Ultimateapple2 forum:

Ultimateapple2 Forum about Mattechnology Software Click here!



Monday, 29 August 2016

Apple //e Raspberry pi Out of The Box! RETROCHALLENGE 2016/10

Work in progress from October for retrochallenge 2016/10.
In my Retrochallenge entry. i want evolve my invention, the Apple //e Raspberry pi in paper case and make it running with my Basic and Scentific calculators for Apple II i have programmed in this retrochallenge.

Coming up...

A new video About my Apple //e Raspberry pi Clone in paper case running Appleworks II i have programmed:



I have made an overclock of 900 mhz to the machine to have a more fast loading time like you can see in the video, there is also some game playing and the voice of Steve Jobs!!!! Enjoy




Apple //e Raspberry pi Clone Running Apple II Desktop OS:



A new video, My Apple //e Clone running Apple //e Presents from 1982 software:



Day 25, i was not sure to arrive at this point with a working Apple //e Clone as real as possible to the real one but i'm! I have hided the Kernel bootup inside Raspbian using a little trick: i have changed the line "console=tty1" to
"console=tty9 loglevel=3" moving the messages to another console entering the sudo nano /boot/cmdline.txt in terminal and saveing it. it's possible to see the konsole text by pressing Ctrl Alt F9. Enjoy the video:



7 Days to go and i have modified Linapple to be ready to program in Basic without problems, i'm sorry to have removed that nice interface that boot up in linapple after pressing F2 that says HELLO I'M GLAD TO MEET YOU MY FRIEND ETC.... but i want the machine as similar as possible to the real Apple //e made by WOZ and JOBS i done this makeing  LIST of Applesoft basic and removing line by line the code and saveing the state. Now it's possible to program without problems and it seems a real Apple //e at boot leaving apart the booting of the Raspbian kernel! News Are arriving really soon!!!! Enjoy the video:




Retrochallenge 2016/10 is more than 3/4 gone, so way not try another project with my Apple //e Raspberry pi Clone. You know Apple II has a soundcard called Mockingboard
 to be able to play and compose sound it was a piece of a card, so why not try to make work the Mockingboard demo in my Clone?! And here we are Demo loaded and successfully played also with my little piano performance enjoy the video:



I have moved a "NEXT step, mouse integrated" with this Apple //e clone, it boot Apple //e at startup but now pressing F10 you come inside the Graphical gui and here is possible to load a fully working Apple IIgs emulator in full screen like an old Apple IIgs machine, i made this in style of ROM 0 upgrade kit motherboard for the Apple //e that was released by apple, but in my machine it's still possible to use the original Apple //e system near the Apple IIgs system. This is a very nice setup enjoy my video:



I have removed the Splashscreen of linapple to have a more realistic Apple //e experience look at the video:



My next step was showing my Apple //e Raspberry Pi running Kegs emulator like if in a real Apple //e was added an Apple IIgs card. I made this using my distro and entering the MacApple GUI then starting the Kegs emulator.

This is a short video:




A short video of the Apple //e Raspberry pi running The Traditional Apple II Scientific Calculator.



A video of the Apple ][ Scientific Calculator Running in my Apple //e Raspberry Pi in paper case with four trigonometric functions.


Here the first two Scentific Functions running in my Apple //e Raspberry Pi in paper case Computer.


Wasting time in my retrochallenge 2016/10 i have built with some paper a printer and glue this cute paper-replika.com Apple II model:



I have made also the Apple 1 mini paper replika:


I made it in WOZ Style!!! it's 1977 and after the first invention from Steve Wozniak and Steve Jobs, Apple produce a new complete home computer. Today after less or more 40 years i have made a reincarnation of an Apple //e with a Raspberry Pi b+ (or 2b, because this script works only with Raspbian Wheezy) a video converter, some cables, a paper box i have cut and built, my Macapple distro and an emulator "linapple" by Andrey Tzar http://beotiger.com/credit made starting up at bootup in Fullscreen by me modyfing a Linux command line in MacApple a porting made by me of Raspple II by http://ivanx.com/rasppleii/.

This is the script i have made: open a Terminal window in MacApple, write sudo nano /etc/rc.local and type return, go down to the page until you find "exit 0" and above this line (not deleting it but above the line) write sudo linapple /usr/local/linapple/linapple , press ctrl - X and the job is done.

I have setup an old b/w television and an analog speaker to make it similar to the original setup.It works also with an hdmi color monitor and now in VGA mode!!! Let's see the attached videos that are Galaxian and Matrix for Apple II running compiled by me in a .dsk file!

I tested the computer with case closed for one full week right now and i had no burn and no freeze to the system. Everything works fine.

    An image of the work completed:


A photograph of Apple //e Raspberry Pi in paper box with my writing in Easywriter from Captn Crunch:


A video of the machine Booting up latest update:



Loading and Playing Galaxian:


Matrix Apple //e:


This is a picture how i have connected the Raspberry Pi to VGA Monitor and Analog Speakers:


Modifications i have made are:
I have setup the system to boot linapple at startup in fullscreen entering the gui with login without id and password (linapple is the emulator of the Apple //e) i have made this opening a terminal window and writing sudo raspi-config, then i have select boot directly to gui without login.
 The Keybord layout was setup to Italian but Linapple needs an English (US) keyboard so i have setup the keyboard layout from the internalisation option in sudo raspi-config from the textual interface in English (US) now the keyboard woks perfectly with my new rewritten layout. 

I have setup the machine with a modest Overclock (800mhz) and tested it for one entire week (testing still in progress) i have no freeze and no burn to the system.

I have made a try if it's possible to save to a formatted or blank disk image and YES it's possible!!!! i saved a HELLO WORLD loop in this machine,and a little example of artificial intelligence. 

 I have remapped the fisical keyboard for Linapple layout by hands first with some tape and a black pen:


After i have changed keyboard with a new one alwayse Italian layout (this is what i have available)
I have taken an A4 paper and written all the 22 replacing key for Linapple layout with a black pen then i have cut them the right measure and glue in the keyboard here the photo:


This is less or more the Final Release of the keyboard layout:


I have removed some imperfection to the paper case adding some package paper to the frontal and half lateral sides, now it seems more perfect:

I added a reinforce tube to the upper case to make possible to easly put over a Monitor or TV not so heavy:


 This is how it make the joke with a 17" lcd display:


Here with green screen like Early Days!


I have removed the plastic case from the vga converter and the Raspberry pi and hot glued everything and adjusted the cables:


I have added copper heatsink over the chip of VGA converter and the raspberry pi processor to not have overheating. I have noticed a little heating over the VGA chip so i have added this, the Raspberry CPU is overclocked so it needs a heatsink:


After some hours open i have found a overheating that dont cause freeze or artifact but i preferred to added some more heatsink over the two chips of the VGA converter:


After some hours or days of work also the Raspberry's ethernet chip overheat so i have added another copper heatsink:


A desiccant pillow added to the inside of the machine to preserve its integrity:


This is a small video of the Apple //e Raspberry pi playing Apple Galaxian after adding the heatsinks to the whole board:


The retro well ordered:


I have added the name to machine Apple //e pi like you can see in the two photos:



I have added some graphics to the upper case.

Thinkings: It's possible to Fiberglass the paper case to have a more perfect and stable surface:


These are two photos of my Apple //e Raspberry pi running the Calculator i have programmed in Applesoft Basic and the notepad i have programmed:




These are some photos of my Apple //e in a paper case at the first stage , it can be easly adapted to a real Apple // case and connected to an original keyboard with a retroconnector interface.

The Full setup Running Galaxian from Atarisoft!!!! A Classic:









Some Tests: it's running Flapple in Demo mode:

  

I had some question if this machine can catch fire, "every machine can catch fire if you pik it up!" but it is coated paper a patent from 1938 that is flameproof and waterproof. So overheating dont cause it.


.__________________________.
| .___________________. |==| 
| | .................               | | |               
| | ::::Apple ][e:::::         | | |        
| | :::::::::::::::::               | | |               
| | :::::::::::::::::               | | |
| | :::::::::::::::::               | | |
| | :::::::::::::::::               | | |
| | :::::::::::::::::              | | ,|
| !___________________! |(c|
!_______________________!__!
/ \                                        \
/ [][][][][][][][][][][][][] \          \ 
/ [][][][][][][][][][][][][][] \         \
( [][][][][____________][][][][] )   \
\ ------------------------------ /               \
\______________________________/


Remember The information on this site has to be taken as is and the ability to make any change to this site must be asked by permission to the webmaster, any harm made to yourself and the other or your hardware and software trying to clone this project and the other projects on this blog are not my responsability. Every writing, photos and videos are mine and trademark of the respective propietary.

Friday, 26 August 2016

HAL 9001 PIZZA MACHINE!

Hello,
I (Matteo Trevisan) have programmed an HAL 9001 Pizza Machine for Apple ][ based on mine and Mark D. Overholser Artificial Intelligence. It makes pizza!!!
Let's program some codes line in your Apple ][ machine or emulator and make some pizza!!!!

5  DIM A$(8): DIM B(8): DIM C$(8)
 6 N = 1
 10 A$(1) = "HOW ARE YOU":B(1) = 1
 15 C$(1) = "HOW LONG HAVE YOU FELT "
 20 A$(2) = "WHAT IS YOUR NAME":B(2) = 1
 25 C$(2) = "MY NAME IS HAL 9001,OR JUST HAL "
 30 A$(3) = "HOW OLD ARE YOU":B(3) = 1
 35 C$(3) = "I AM 24 YEARS OLD"
 40 A$(4) = "WHAT IS YOUR JOB":B(4) = 1
 45 C$(4) = "I MAKE PIZZA FOR MARIO AND LUIGI!!!!"
 50 A$(5) = "WHAT FRIGHTENS YOU ":B(5) = 1
 55 C$(5) = "I AM FRIGHTENED OF TOMATO"
 60 A$(6) = "WHAT IS YOUR BIGGEST SUCCESS":B(6) = 1
 65 C$(6) = "MINE IS MAKE PIZZA"
 70 A$(7) = "ARE YOU A MAN OR A WOMAN":B(7) = 1
 75 C$(7) = "I'M A COMPUTER PIZZA MACHINE THAT APPEARED IN THE SUPER MARIO BROS. SUPER SHOW EPISODE 9001 A MARIO ODYSSEY. I WAS INVENTED BY A BRILLANT PROGRAMMER EINSTEIN, WHO HAD BEEN CALLED BY MARIO AND LUIGI TO CREATE AN AUTOMATED PIZZA"
 80 A$(8) = "DO YOU WANT TO ORDER SOME PIZZA" : B(8)=1
 85 C$(8) = "OK..  YOU CAN ORDER SOME PIZZA LATER"

 100  FOR I = 1 TO 100
 110 J =  INT (8 *  RND (N) + 1)
 120  IF B(J) = 1 THEN  GOSUB 200
 130  NEXT I
 140  END

 200  PRINT A$(J)
 210  INPUT AA$
 220  IF J = 1 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
 230  IF J = 2 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
 260  IF J = 8 AND AA$ = "YES" THEN GOSUB 500 : GOTO 280
 265  IF J = 8 AND AA$ <> "YES" THEN PRINT C$(J) : GOTO 280

 270  PRINT C$(J) : B(J) = 0
 280  PRINT
 290  RETURN


 500  INPUT "HOW MANY PIZZA DO YOU WANT TO ORDER? ";NA
 510  NB =  INT (100 *  RND (1) + 1)
 520  HTAB 5: PRINT "YOUR PIZZA NUMBER: ";NA
 530  HTAB 5: PRINT "COMPUTER PIZZA PRODUCED ARE: ";NB
 550  IF NA = NB THEN  PRINT "YOU EAT!!!!!"
 560  IF NA <  > NB THEN  PRINT "YOU MAKE FAST."
 570  RETURN

Monday, 15 August 2016

Moore's law is over! and what will be the future of Artificial intelligence?!

Whe know that computers become more powerful and smaller of half his size every 6 month, but now with the new technology getting even smaller like the raspberry pi & co. and miniaturized intel key pcs i think it will not be possible to arrive at a smaller size and power because our I/O interface doesent permit it, how can be an USB connector smaller than a micro usb? it will be not useful! our finger are not able to manage smaller things. So with moore's law over also the Artificial Intelligence will stop to grove because there will be no more Mhz to fill in it. Artificial Intelligence need to be programmed in a smarter way if we have no more power at hour hands, i think this is great because there will not be a computer smarter than a human but can be only faster. Computers needs to receive commands to work and without a human this is not possible, an autonomouse computer is very hard to do.

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!