Last active
October 15, 2022 10:56
-
-
Save albertus82/2a176fa8d20173bccb48d6c93f154de0 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 100 REM ESAME DI ASSUNZIONE TRATTO DAL FILM "FANTOZZI VA IN PENSIONE" (1988) | |
| 110 DEF FNUC$(C$) = CHR$(ASC(C$) - 32 * (ASC(C$) > ASC("a") - 1) * (ASC(C$) < ASC("z") + 1)) : REM UPPERCASE | |
| 120 ON ERROR GOTO 920 | |
| 130 SOUND ON : REM SOLO TANDY/PCJR | |
| 140 ON ERROR GOTO 0 | |
| 150 KEY OFF | |
| 160 SCREEN 0 : WIDTH 80 : COLOR 14 | |
| 170 CLS | |
| 180 BL$ = " " | |
| 190 PRINT BL$; | |
| 200 PRINT "@@@@@@ @@@@@@@ @ @ @ @ @@@@@@@ @ @ @ @ @@@@@@@ @@@@@ "; : GOSUB 880 | |
| 210 PRINT "@ @ @ @@ @ @ @ @ @@ @ @ @ @ @ @ "; : GOSUB 880 | |
| 220 PRINT "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 230 PRINT "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 240 PRINT "@@@@@@ @@@@@ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 250 PRINT "@ @ @ @ @@ @ @ @ @ @@ @ @ @ @ @ "; : GOSUB 880 | |
| 260 PRINT "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 270 PRINT "@ @ @ @ @ @ @ @ @ @ @@ @@ @ @ @ "; : GOSUB 880 | |
| 280 PRINT "@@@@@@ @@@@@@@ @ @ @ @@@@@@@ @ @ @@@@@ @ @@@@@ "; : GOSUB 880 | |
| 290 FOR I = 1 TO 2 : PRINT BL$; : NEXT | |
| 300 PRINT " @ @@@ @ @ @@@ @@@ @@@ @@@ "; : GOSUB 880 | |
| 310 PRINT " @ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 320 PRINT " @@@ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 330 PRINT " @ @ @ @@@ @ @ @@@ @@@ "; : GOSUB 880 | |
| 340 FOR I = 1 TO 2 : PRINT BL$; : NEXT | |
| 350 PRINT " @@@@ @@@ @ @ @@@@ @@@ @@@@@ @@@@@ @@@@@ @ @ @@@@@ @@@@@ "; : GOSUB 880 | |
| 360 PRINT "@ @ @ @@ @ @ @ @ @ @ @ @ @ @@ @ @ @ "; : GOSUB 880 | |
| 370 PRINT "@ @ @ @ @ @ @ @ @ @@@@@ @@@@@ @@@@ @ @ @ @ @ "; : GOSUB 880 | |
| 380 PRINT "@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 390 PRINT "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ "; : GOSUB 880 | |
| 400 PRINT " @@@@ @@@ @ @ @@@@ @@@ @ @ @ @ @@@@@ @ @ @ @@@@@ "; : GOSUB 880 | |
| 410 LOCATE 1, 1 | |
| 420 K$ = INKEY$ : IF K$ = "" THEN 420 | |
| 430 LOCATE 1, 1 : PRINT BL$; | |
| 440 PRINT " @ @@@@@@@@@@@@@@@@@@@@@@ @@@ @@@ "; : GOSUB 880 | |
| 450 PRINT " @ @4 @ @ @ @ @@@@ @ @ @ 12-3 "; : GOSUB 880 | |
| 460 PRINT " @ @ X @ @ @@ @ @ * @ @ Y * (Y-3)=K*Z(E-1) @ X ---- "; : GOSUB 880 | |
| 470 PRINT " @ @ @ @ @@@ @ @@@ @ @ 3A*B "; : GOSUB 880 | |
| 480 PRINT " @ @ @ @ @ @@@ @@@ "; : GOSUB 880 | |
| 490 PRINT " ------------------------------------------------------------------------------ "; : GOSUB 880 | |
| 500 PRINT " @ @n @@ @@ @ @2 @@ @@ @@@@ "; : GOSUB 880 | |
| 510 PRINT " @@ @ @ @ @ @ @ @ "; : GOSUB 880 | |
| 520 PRINT " @ @ : @ 3*12W/Q54:23 @ @ X @ 3ab(x-y:12) @ : @ "; : GOSUB 880 | |
| 530 PRINT " @ @ @@ @@ @ @@ @@ @@@@ "; : GOSUB 880 | |
| 540 FOR I = 1 TO 3 | |
| 550 PRINT BL$; | |
| 560 NEXT | |
| 570 PRINT " @@@@@@ "; : GOSUB 880 | |
| 580 PRINT " @@ @@ "; : GOSUB 880 | |
| 590 PRINT " @@ "; : GOSUB 880 | |
| 600 PRINT " @@ "; : GOSUB 880 | |
| 610 PRINT " @@ "; : GOSUB 880 | |
| 620 PRINT " INSERIRE IL RISULTATO ======> ..................... @@ "; : GOSUB 880 | |
| 630 PRINT " @@ "; : GOSUB 880 | |
| 640 PRINT BL$; | |
| 650 PRINT " @@ "; : GOSUB 880 | |
| 660 PRINT " @@ "; : GOSUB 880 | |
| 670 LOCATE 20, 33 : INPUT "", R$ : IF LEN(R$) > 21 THEN R$ = LEFT$(R$, 21) : REM LUNGHEZZA MASSIMA RISULTATO | |
| 680 FOR I = 1 TO LEN(R$) : MID$(R$, I, 1) = FNUC$(MID$(R$, I, 1)) : NEXT | |
| 690 IF R$ = "EXIT" OR R$ = "SYSTEM" OR R$ = "QUIT" OR R$ = "STOP" THEN CLS : END | |
| 700 LOCATE 1, 1 | |
| 710 FOR I = 1 TO 5 : PRINT BL$; : GOSUB 880 : NEXT | |
| 720 PRINT " @@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@ @@@@@@@@@@ "; : GOSUB 880 | |
| 730 FOR I = 1 TO 5 | |
| 740 PRINT " @@ @@ @ @@ @ @@ @@ @@ @ "; : GOSUB 880 | |
| 750 NEXT | |
| 760 PRINT " @@ @@@@@@@@@@ @@@@@@@@@@ @@ @@ @@@@@@@@@@ "; : GOSUB 880 | |
| 770 PRINT " @@@@@@@@ @@@@ @@@@ @@ @@ @@@@ "; : GOSUB 880 | |
| 780 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 790 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 800 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 810 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 820 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 830 PRINT " @@ @@ @@ @@ @@ @@ @@ @@ @@ "; : GOSUB 880 | |
| 840 PRINT " @@@@@@@@@@ @@ @@ @@ @@ @@@@@@@@@ @@ @@ "; : GOSUB 880 | |
| 850 FOR I = 1 TO 3 : PRINT BL$; : GOSUB 880 : NEXT : PRINT LEFT$(BL$, 79); | |
| 860 LOCATE 1, 1 : SOUND 1380, 2 | |
| 870 K$ = INKEY$ : IF K$ = "" THEN 870 ELSE 430 | |
| 880 ON ERROR GOTO 920 | |
| 890 NOISE 4, 10, .3 : REM SOLO TANDY/PCJR | |
| 900 ON ERROR GOTO 0 | |
| 910 RETURN | |
| 920 RESUME NEXT |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment