Appleworks ii for Apple II by Matteo Trevisan

31 replies [Last post]
Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160

After months of programming i have connected the dots of my three programs i have made, a notepad, a password storage and a calculator in one unique suite called Appleworks ii : P. If anyone want to contribute to develope more this software he is welcome, here the emulated one APPLEWORKS II EMULATED CLICK HERE and you can download it here TO DOWNLOAD APPLEWORKS II .DSK DISK IMAGE CLICK HERE
The code is following... :
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

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

Fix your English.

Period.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Insanitor where my English is faulty?

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

CWJ_Wilko's picture
Offline
Joined: Jun 3 2015
Posts: 272
Re: Appleworks ii for Apple II by Matteo Trevisan

insanitor wrote:

Fix your English.

Period.

Fix your attitude.

Period.

Seriously, that's all you had to say regarding genuine effort? Why did we let you in here, again?

Matteo - keep up the good work. You're obviously having fun with this hobby. Your English is good, just a few grammar mistakes.

Besides, they only language worth worrying about here is BASIC. Wink

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Thank you!
I know it's an hobby but i would love to have it as a work!. As you know i'm a "do it yourself".

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: Aug 22 2013
Posts: 27
Re: Appleworks ii for Apple II by Matteo Trevisan

I love seeing your enthusiasm and progress, and while your English isn't perfect, it's perfectly understandable.

My only concern is the program's title of AppleWorks II. I know it is meant as a joke, but I can imagine in 10 years someone is going to see this and think that Apple released AppleWorks II as an update to classic AppleWorks.

Keep up the good work!

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Thanks!
I have called it Appleworks II for the similarity in the suite, it has a calculator a notepad and a password storage but i dont have the ambition to be like Apple i never will be so great like it!
I think it's clear that it's a Matteo Trevisan program like written in the description and title. Also the name Appleworks was dismissed by Apple years ago and changed before in Clarisworks and after in Iwork. And i never watch at the code of the original Appleworks this must to be clear!

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

PINKBOY1006's picture
Offline
Joined: Jul 9 2016
Posts: 90
Re: Appleworks ii for Apple II by Matteo Trevisan

Here are some textual corrections,

10 PRINT "APPLEWORKS SUITE II BY MATTEO TREVISAN"<br />
20 PRINT "MAKE SURE CAPS LOCK IS DOWN."<br />
30 PRINT " "<br />
40 PRINT "DO YOU WANT TO CHOOSE: NOTEPAD, PASSWORD, STORAGE, OR CALCULATOR?"<br />
50 INPUT AS$<br />
60 IF AS$ = "NOTEPAD" GOTO 120<br />
70 IF AS$= "PASSWORD STORAGE" GOTO 270<br />
80 IF AS$= "CALCULATOR" GOTO 370<br />
90 IF AS$ <> "NOTEPAD" THEN GOTO 10<br />
100 IF AS$ <> "PASSWORD STORAGE" THEN GOTO 10<br />
110 IF AS$ <> "CALCULATOR" THEN GOTO 10<br />
120 SPEED=150<br />
130 HOME<br />
140 PRINT "APPLE ][ NOTEPAD BY MATTEO TREVISAN VERSION 1.3"<br />
150 PRINT "WRITE TITLE HERE ": INPUT A$<br />
160 PRINT "WRITE COMMENT HERE ": INPUT B$<br />
170 PRINT "WRITE BODY HERE. THEN PRESS RETURN AFTER EVERY LINE. YOU HAVE 19 LINE OF TEXT MAXIMUM. IF YOU WANT TO LEAVE BLANK LINE TYPE RETURN UNTIL THE END OF THE 19 LINES."<br />
180 INPUT C$:INPUT F$ :INPUT G$ :INPUT H$ :INPUT I$:INPUT L$:INPUT M$<br />
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$<br />
200 PRINT "DO YOU WANT TO SHOW YOUR TEXT? ": INPUT D$<br />
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$<br />
220 IF D$ <> "YES" THEN GOTO 10<br />
230 PRINT "DO YOU WANT TO SAVE TO CASSETTE? ": INPUT E$<br />
240 IF E$ = "YES" THEN PRINT "PRESS REC ON TAPE": SAVE<br />
250 IF E$ <> "YES" THEN GOTO 10<br />
260 GOTO 10<br />
270 PRINT "TELL ME YOUR PASSWORD TO STORE.":INPUT AL$<br />
280 PRINT "INSERT A CODE.":INPUT BL$<br />
290 HOME<br />
300 PRINT "DO YOU WANT TO SAVE YOUR PASSWORD TO CASSETTE?":INPUT EL$<br />
310 IF EL$= "YES" THEN PRINT "PRESS REC ON TAPE" : SAVE<br />
320 IF EL$= "NO" THEN GOTO 330<br />
330 PRINT "DO YOU WANT TO SHOW YOUR PASSWORD?":INPUT CL$<br />
340 IF CL$= "YES" THEN PRINT "INSERT CODE":INPUT DL$<br />
350 IF DL$ = BL$ THEN PRINT AL$<br />
360 GOTO 10<br />
370 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN"<br />
380 PRINT " "<br />
390 PRINT " "<br />
400 PRINT " ***ONLINE HELP*** TYPE FIRST NUMBER THEN PRESS RETURN. THEN PRESS FUNCTION BUTTONS THAT ARE WRITTEN IN THE CALCULATOR INTERFACE. PRESS RETURN, THEN TYPE THE OTHER NUMBER, PRESS RETURN. FOR SCIENTIFIC CALCULATIONS. TYPE NUMBER, PRESS RETURN, THEN TYPE FUNCTION."<br />
410 PRINT " "<br />
420 PRINT " "<br />
430 PRINT " "<br />
440 PRINT " % 7 8 9 +"<br />
450 PRINT " ^ 4 5 6 -"<br />
460 PRINT " TAN 1 2 3 *"<br />
470 PRINT " LOG 0 . /"<br />
480 PRINT " SIN COS "<br />
490 INPUT AC<br />
500 INPUT AC$<br />
510 IF AC$= "+" THEN GOTO 710<br />
520 IF AC$= "-" THEN GOTO 770<br />
530 IF AC$= "*" THEN GOTO 830<br />
540 IF AC$= "/" THEN GOTO 890<br />
550 IF AC$= "%" THEN GOTO 1050<br />
560 IF AC$= "^" THEN GOTO 2010<br />
570 IF AC$= "TAN" THEN GOTO 2070<br />
580 IF AC$= "LOG" THEN GOTO 3030<br />
590 IF AC$= "SIN" THEN GOTO 3090<br />
600 IF AC$= "COS" THEN GOTO 4050<br />
610 IF AC$< > "+" THEN GOTO 10<br />
620 IF AC$< > "-" THEN GOTO 10<br />
630 IF AC$< > "*" THEN GOTO 10<br />
640 IF AC$< > "/" THEN GOTO 10<br />
650 IF AC$< > "%" THEN GOTO 10<br />
660 IF AC$< > "^" THEN GOTO 10<br />
670 IF AC$< > "TAN" THEN GOTO 10<br />
680 IF AC$< > "LOG" THEN GOTO 10<br />
690 IF AC$< > "SIN" THEN GOTO 10<br />
700 IF AC$< > "COS" THEN GOTO 10<br />
710 PRINT " +": INPUT BC<br />
720 CC= AC+BC<br />
730 PRINT " ="; CC<br />
740 FOR KC= 1 TO 5000<br />
750 NEXT KC<br />
760 GOTO 10<br />
770 PRINT " -": INPUT EC<br />
780 FC= AC-EC<br />
790 PRINT " ="; FC<br />
800 FOR KC= 1 TO 5000<br />
810 NEXT KC<br />
820 GOTO 10<br />
830 PRINT " *": INPUT GC<br />
840 HC = AC*GC<br />
850 PRINT " ="; HC<br />
860 FOR KC= 1 TO 5000<br />
870 NEXT KC<br />
880 GOTO 10<br />
890 PRINT " /": INPUT IC<br />
900 IF IC= 0 THEN GOTO 176<br />
1000 LC= AC/IC<br />
1010 PRINT " ="; LC<br />
1020 FOR KC= 1 TO 5000<br />
1030 NEXT KC<br />
1040 GOTO 10<br />
1050 PRINT " %": INPUT MC<br />
1060 NC=(AC/100)*MC<br />
1070 PRINT " ="; NC<br />
1080 FOR KC= 1 TO 5000<br />
1090 NEXT KC<br />
2000 GOTO 10<br />
2010 PRINT " ^": INPUT OC<br />
2020 PC = AC^OC<br />
2030 PRINT " ="; PC<br />
2040 FOR KC= 1 TO 5000<br />
2050 NEXT KC<br />
2060 GOTO 10<br />
2070 PRINT " TAN"<br />
2080 QC=TAN(AC)<br />
2090 PRINT " ="; QC<br />
3000 FOR KC= 1 TO 5000<br />
3010 NEXT KC<br />
3020 GOTO 10<br />
3030 PRINT " LOG"<br />
3040 SC= LOG(AC)<br />
3050 PRINT " ="; SC<br />
3060 FOR KC= 1 TO 5000<br />
3070 NEXT KC<br />
3080 GOTO 10<br />
3090 PRINT " SIN"<br />
4000 TC= SIN(AC)<br />
4010 PRINT " ="; TC<br />
4020 FOR KC= 1 TO 5000<br />
4030 NEXT KC<br />
4040 GOTO 10<br />
4050 PRINT " COS"<br />
4060 UC= COS(AC)<br />
4070 PRINT " ="; UC<br />
4080 FOR KC= 1 TO 5000<br />
4090 NEXT KC<br />
5000 GOTO 10

Your English wasn't that bad honestly and certainly not bad enough to warrant the first comment. What country do you hale from? If you don't mind me asking.

__________________

My collection is: Apple IIGS Woz Rom 01 (cards installed: Uthernet II, Sandwich II card, Apple Video Overlay Card, Visionary GS), Apple IIc Rom 0 (Cards installed: Mocking board 4C), Apple modem 1200 (under the phone version), Apple personal modem, Apple imagewriter ii.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Grammar apart Big smile any great programmer able to make a copy paste function between the three programs?

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

To implement something similar to this copy paste code:

10 PRINT "COPY PASTE"
20 PRINT "WRITE A WORD"
30 INPUT A$
35 PRINT "PRESS P KEY ON KEYBOARD"
40 INPUT B$
50 IF B$ ="P" THEN PRINT A$

Enjoy!

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

I have modified the copy paste with a final GOTO 40 to repeat the paste infinte time.

10 PRINT "COPY PASTE"
20 PRINT "WRITE A WORD"
30 INPUT A$
35 PRINT "PRESS P KEY ON KEYBOARD"
40 INPUT B$
50 IF B$ ="P" THEN PRINT A$
60 GOTO 40

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

i have added the copy paste function between the Password storage and notepad only to let you see it's possible to do it! Enjoy!!!!

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 ?"
171 PRINT " DO YOU WANT TO PASTE CODE FROM PASSWORD STORAGE"
172 INPUT AG$
173 IF AG$ = "YES" THEN PRINT AL$
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

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

This is the emulated version in internet archive: EMULATED VERSION CLICK HERE!!!!

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

I have modified the code to have the password storage password, printed over the notepad page when pressed yes, in the question do you want to see your text?

here the emulated version: CLICK HERE!!! here the code:

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 ?"
171 PRINT " DO YOU WANT TO PASTE CODE FROM PASSWORD STORAGE"
172 INPUT AG$
173 IF AG$ = "YES" THEN PRINT AL$
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 AL$: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

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

CWJ_Wilko wrote:
insanitor wrote:

Fix your English.

Period.

Fix your attitude.

Period.

Seriously, that's all you had to say regarding genuine effort? Why did we let you in here, again?

Genuine effort at programming and no effort to convey the language you're trying to use.

It's like, "all your base are belong to us".

So, if you don't like my attitude then go to another forum.

Nobody forces you to be here.

You seem to have a bad memory.

Nobody released me from here and let me back in.

Here's the name of a disease that you may be vulnerable to.

It's called, "Alzheimer's disease".

Please, go see your doctor.

Your health is your most valuable asset!

Toolkitman wrote:

Insanitor where my English is faulty?

I don't even know where to begin.

The problem is that your programs don't seem to be very complicated.

They seem restricted in many ways but appreciated from most here.

The problem with this degree of problems concerning language, is that it's hard to take your work seriously.

It's like building a house but with only the door frames painted.

The house is there, it works fine, but there's something obvious that's missing.

Mistakes with language are expected but not to this degree.

Also, I really don't think you'd accept help from anyone concerning this.

And what about the title of the program?

"Appleworks"?

There's already a program with the same name.

This only adds to the confusion.

Also, you're only using uppercase characters.

Are you using an Apple ii older than a iie to make these programs?

Offline
Joined: May 27 2009
Posts: 936
Re: Appleworks ii for Apple II by Matteo Trevisan

I'm not too much in favor of the name "AppleWorks".

__________________

On a clear disk you can seek forever..

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

I would opt for something like, "Apple toolkit".

CWJ_Wilko's picture
Offline
Joined: Jun 3 2015
Posts: 272
Re: Appleworks ii for Apple II by Matteo Trevisan

insanitor wrote:
CWJ_Wilko wrote:
insanitor wrote:

Fix your English.

Period.

Fix your attitude.

Period.

Seriously, that's all you had to say regarding genuine effort? Why did we let you in here, again?

Genuine effort at programming and no effort to convey the language you're trying to use.

It's like, "all your base are belong to us".

So, if you don't like my attitude then go to another forum.

Nobody forces you to be here.

You seem to have a bad memory.

Nobody released me from here and let me back in.

Here's the name of a disease that you may be vulnerable to.

It's called, "Alzheimer's disease".

Please, go see your doctor.

Your health is your most valuable asset!

Consider yourself reported to the moderators. No one here, including myself, should put up with your level of vitriol, bullying and borderline racism.

Unacceptable.

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

CWJ_Wilko wrote:

Consider yourself reported to the moderators. No one here, including myself, should put up with your level of vitriol, bullying and borderline racism.

Unacceptable.

Racism?

You don't know what racism is.

I'm no racist.

In another one of his programs, I gave him some code and he has noted that part of the code in that part of his program.

So why didn't you try helping?

The critics can help, but the critics of critics can never help.

Go help.

That's what is acceptable.

It's what we're here for.

The only one who is upset here is you.

This is why you're using words here that better reflect your feelings instead of the facts.

tokabln's picture
Offline
Joined: Dec 30 2015
Posts: 104
Re: Appleworks ii for Apple II by Matteo Trevisan

Gents,

please calm down... as this is the wrong way to communicate.

Thanks...

__________________

Kind regards from Berlin (Germany)
Torsten aka tokabln

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

i dont thought this come to stir up a hornet's nest. And for a missed square root!!!!!
I dont understand why people like to attack other people in this way it's unintelligible and without any sense if this can have sense! Also without sense of humor!
Today in internet seems very easy to do this kind of free BULLISM! in reality you can be 2.40mt of heigth for 1.50 width but you dont touch me!
Big smile

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

Toolkitman wrote:

i dont thought this come to stir up a hornet's nest. And for a missed square root!!!!!
I dont understand why people like to attack other people in this way it's unintelligible and without any sense if this can have sense! Also without sense of humor!
Today in internet seems very easy to do this kind of free BULLISM! in reality you can be 2.40mt of heigth for 1.50 width but you dont touch me!
Big smile

I am glad that you're enjoying yourself.

See, most of the time when you post one of your programs, the post sits there and nobody replies.

That is actually a disservice to you.

This is why I question those who say that they appreciate your work.

What happened in this thread is better than silence.

True appreciation can even come in the form of criticism (in my opinion).

Apathy doesn't.

Apathy does nothing because it does not care and it does not care for improvement.

And that is my point.

tokabln wrote:

Gents,

please calm down... as this is the wrong way to communicate.

Thanks...

If people don't like the way I say things then that's their opinion.

But I do not lie and I speak my mind.

I tell it like it is.

I was not the one who started calling people names.

And in every instance when I am attacked, I then defend myself and I only communicate (as you put it) in the same way others do.

I just got sick and tired of what was happening here and I said what was needed to be said.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Insanitor what's your name and surname? Why you hide yourself?

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

Haha.

I'm Boris Karloff...

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Insanitor peace be with you! i dont like to argue.
Why we cant be friend all togheter in this forum by itself we are all interested in the same hobby.

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

Toolkitman.

I appreciate your sentiment.

I don't have any argument with you or have a problem with you.

It is only a problem because people think that I do.

There is no war between you and me so to make peace when there is already peace is strange.

I just think it's unfair that when you post a program, nobody responds.

Not even a "Thanks, Toolkitman! I will download your image files".

My opinion is that if you make some improvements then I will store all your programs to my hard drive and burn them to a DVD for permanent storage in my archives.

And I think others will do the same.

When I made my first website, my English wasn't so good.

So I actually hired someone to fix it before I posted it.

If your language is correct, then it's more likely that people will take a serious look at your programs.

Instead there's nobody making any suggestions.

I think your language can use improvement.

A LOT of it.

If that's not an option then why not rewrite your programs in your native language?

There's nothing wrong with that.

People do that all the time.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Now it's more understandable!
No problems if people dont say anything i know it's an effort i made but i dont ask anything in change for it.
I'm not a professional progammer i'm an hobbist i have learned BASIC by myself and some little Help from a friend (Mark he is in this forum) to learn Applesoft Basic for the Apple //.
I hope you all enjoy my programs with or without bugs. Applesoft is an old language can be there is no more audience for it but i like it also so it's an Hobby!!!
My language is Italian i dont know if there is anyone interested in haveing a version in my language i made my effort to make it in english, i have school grade level of english no more.

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

There are many manuals that were written by Apple computer that explain basic programming.

For example:

"Apple II A touch of Applesoft BASIC.

For the Apple iic, Apple iie, Apple iigs.

Apple Computer, Inc.
20525 Mariani Avenue
Cupertino, California 95014
408-996-1010
TLX 171-576

A2L2077
030-1318-B
Printed in Singapore.

Here's the problem.

It's written in English.

I don't know if Apple EVER printed an Italian version.

I have another book here:

APPLE II USER'S GUIDE For APPLE II Plus and APPLE IIe THIRD EDITION

Lon Poole
Martin McNiff
Steven Cook

In this book, chapters 5-8 deal with BASIC programming.

The rest are things you would find in user's manuals for the Apple iie and other models.

You may find similar books in the Asimov FTP archive FTP site.

But there's that same problem again.

This book is written in English.

I know that learning English is difficult because English does not conform to most other languages like:

Italian, Spanish, German etc.,

These languages are similar in sentence structure.

So if you want to learn, then go through every line and sentence and you'll learn English.

And it's not like people won't answer you if you post a message asking:

"What does this mean:

180 A=1: REM ..aspect ratio for a circle
190 REM ..Display all wedges
200 FOR J=1 TO N
210 E = - (2 * PI * PT(J) / TT + S):"?

By the way, this part of a program is on page 355.

See?

If nobody asks questions, then nobody learns.

If nobody knows that there's something wrong, then nobody learns either.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Come su consiglio di Insanitor ho pubblicato il codice sorgente in Italiano, così che anche i non anglofoni possano coglierne il succo:
Qui la versione emulate direttamente utilizzabile online: CLICCA QUI!

10 PRINT "APPLICAZIONE APPLELAVORI II DI MATTEO TREVISAN"
20 PRINT " "
30 PRINT " "
40 PRINT "VUOI SCIEGLIERE IL: BLOCCO NOTE, SALVATAGGIO PASSWORD O LA CALCOLATRICE"
50 INPUT AS$
60 IF AS$ = "BLOCCO NOTE" GOTO 120
70 IF AS$= "SALVATAGGIO PASSWORD" GOTO 270
80 IF AS$= "CALCOLATRICE" GOTO 370
90 IF AS$ <> "BLOCCO NOTE" THEN GOTO 10
100 IF AS$ <> "SALVATAGGIO PASSWORD" THEN GOTO 10
110 IF AS$ <> "CALCOLATRICE" THEN GOTO 10

120 SPEED=150
130 HOME
140 PRINT "APPLE ][ BLOCCO NOTE DI MATTEO TREVISAN VERSIONE 1.3"
150 PRINT "SCRIVI IL TITOLO QUI ": INPUT A$
160 PRINT "SCRIVI I COMMENTI QUI ": INPUT B$
170 PRINT "SCRIVI LA LETTERA QUI, PREMI A CAPO DOPO OGNI LINEA HAI 19 LINEE DI TESTO MASSIMO SE VUOI LASCIARE LINEE BIANCHE PREMI A CAPO, PER CONTINUARE PREMI A CAPO FINO ALLA FINE DEI PUNTI INTERROGATIVI"
171 PRINT " VUOI INCOLLARE LA PASSWORD DAL PROGRAMMA SALAVATAGGI PASSWORD AL BLOCCO NOTE"
172 INPUT AG$
173 IF AG$ = "SI" THEN PRINT AL$
174 IF AG$ <> "SI" THEN GOTO 180
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 "VUOI STAMPARE IL TESTO A SCHERMO ": INPUT D$
210 IF D$ = "SI" THEN PRINT AL$: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$ <> "SI" THEN GOTO 10
230 PRINT "VUOI SALVARE IL PROGRAMMA SU CASSETTA ": INPUT E$
240 IF E$ = "SI" THEN PRINT "PRESS REC ON TAPE": SAVE
250 IF E$ <> "SI" THEN GOTO 10
260 GOTO 10

270 PRINT "DIMMI LA PASSWORD DA SALVARE":INPUT AL$
280 PRINT "INSERISCI IL CODICE":INPUT BL$
290 HOME
300 PRINT "VUOI SALVARE IL PROGRAMMA SU CASSETTA":INPUT EL$
310 IF EL$= "SI" THEN PRINT "PRESS REC ON TAPE" : SAVE
320 IF EL$= "NO" THEN GOTO 330
330 PRINT "VUOI CHE MOSTRI LA TUA PASSWORD":INPUT CL$
340 IF CL$= "SI" THEN PRINT "INSERISCI IL CODICE":INPUT DL$
350 IF DL$ = BL$ THEN PRINT AL$
360 GOTO 10

370 PRINT "APPLE II CALCOLATRICE TRADIZIONALE BY MATTEO TREVISAN"
380 PRINT " "
390 PRINT " "
400 PRINT " ***GUIDA ONLINE*** SCRIVI IL PRIMO NUMERO E PREMI A CAPO POI L'OPERAZIONE COME SCRITTA NELL'INTERFACCIA CALCOLATRICE, PREMI A CAPO E L'ALTRO NUMERO PREMI A CAPO, PER LA CALCOLATRICE SCIENTIFICA SCRIVI IL NUMERO, PREMI A CAPO"
401 PRINT" LA FUNZIONE E A CAPO."
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

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

Interesting.

I've never tried to read Italian but since I know some Spanish I can make out some of what the words mean.

One other thing:

Do you still think that it must be all in uppercase letters?

I'm thinking that if your intention is to run this program on an Apple II then sure.

But there is the iie, iic, iigs and iic+.

All of these computers have lowercase letters.

I would give an example but I do not know how to use lower case or upper case letters in Italian.

I don't know if there are other letters in Italian either.

In any case,

thank you.

Toolkitman's picture
Offline
Joined: Nov 21 2010
Posts: 160
Re: Appleworks ii for Apple II by Matteo Trevisan

Give me five!

__________________

"gate gate paragate parasangate bodhi svahdl"
"Stay hungry, Stay Foolish!"
"Think Different"

Offline
Joined: May 27 2013
Posts: 794
Re: Appleworks ii for Apple II by Matteo Trevisan

You have five!