APPLEWORKS II Suite by Matteo Trevisan with copy paste function and italian version

Yes!,
i have connected the dots like Steve said, and i have make only one program from three: my traditional scientific Calculator, Notepad and Password storage, then i have made an Italian porting: i have added also a Copy - Paste function between the Password storage and Notepad

Code Is here:

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

Here the Internet Archive emulated version:

The Italian version is here:

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 "PREMI REGISTRA SUL MANGIACASSETTE" : 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

The Internet Archive emulated version is here:



No comments:

Post a Comment