10 REM MACCHININA TELECOMANDATA DAL COMMODORE 64, V 1.0 20 REM (C) 2020, AMEDEO VALOROSO, WWW.VALOROSO.IT 30 PRINT "{clear}" 40 PRINT: PRINT 50 PRINT " {$b0}{$c0:36}{$ae}" 60 PRINT " {$dd} MACCHININA TELECOMANDATA DAL C64 {$dd}" 70 PRINT " {$dd} WWW.VALOROSO.IT {$dd}" 80 PRINT " {$ad}{$c0:36}{$bd}" 100 REM ELENCO COMANDI 110 PRINT 120 PRINT " {$b0}{$c0:32}{$ae}" 130 PRINT " {$dd} {$dd}" 140 PRINT " {$dd} UTILIZZARE JOYSTICK IN PORTA 2 {$dd}" 150 PRINT " {$dd} {$dd}" 160 PRINT " {$dd} COMANDO: {$dd}" 170 PRINT " {$dd} {$dd}" 180 PRINT " {$dd} A - SEQUENZA COMANDI {$dd}" 190 PRINT " {$dd} X - ESCI DAL PROGRAMMA {$dd}" 200 PRINT " {$dd} {$dd}" 210 PRINT " {$ad}{$c0:32}{$bd}" 250 REM PORTA IL CURSORE ALLA POSIZIONE DEL COMANDO 260 PRINT "{up:6}{right:27}"; 300 REM STATO INIZIALE USCITE (SPENTE) 310 POKE 56579,0 600 REM CICLO PRINCIPALE E COMANDI DA TASTIERA 610 GET C$ 620 IF C$="A" THEN GOSUB 3000 680 IF C$="X" THEN GOTO 4000 700 REM COMANDI DA JOYSTICK, PORTA 2 710 A=PEEK(56320) 720 IF B=A THEN GOTO 600 730 B=A 750 IF A=127 THEN GOSUB 2000: REM FERMA 760 IF A=126 THEN GOSUB 2100: REM AVANTI 770 IF A=122 THEN GOSUB 2200: REM AVANTI SINISTRA 780 IF A=118 THEN GOSUB 2300: REM AVANTI DESTRA 790 IF A=123 THEN GOSUB 2400: REM SINISTRA 800 IF A=119 THEN GOSUB 2500: REM DESTRA 810 IF A=125 THEN GOSUB 2600: REM INDIETRO 820 IF A=121 THEN GOSUB 2700: REM INDIETRO SINISTRA 830 IF A=117 THEN GOSUB 2800: REM INDIETRO DESTRA 900 GOTO 600 2000 REM FERMA 2010 PRINT "{left:3}"; 2020 PRINT "{yellow} {$D1} {ltblue}"; 2030 POKE 56579,0 2040 RETURN 2100 REM AVANTI 2110 PRINT "{left:3}"; 2120 PRINT "{green} A {ltblue}"; 2130 POKE 56579,8 2140 RETURN 2200 REM AVANTI SINISTRA 2210 PRINT "{left:3}"; 2220 PRINT "{green}{ltblue}"; 2330 POKE 56579,9 2340 RETURN 2400 REM SINISTRA 2410 PRINT "{left:3}"; 2420 PRINT "{yellow}<{$D1} {ltblue}"; 2430 POKE 56579,2 2440 RETURN 2500 REM DESTRA 2510 PRINT "{left:3}"; 2520 PRINT "{yellow} {$D1}>{ltblue}"; 2530 POKE 56579,1 2540 RETURN 2600 REM INDIETRO 2610 PRINT "{left:3}"; 2620 PRINT "{black} I {ltblue}"; 2630 POKE 56579,4 2640 RETURN 2700 REM INDIETRO SINISTRA 2710 PRINT "{left:3}"; 2720 PRINT "{black}{ltblue}"; 2830 POKE 56579,5 2840 RETURN 3000 REM PROGRAMMA PERSONALIZZATO 3010 GOSUB 2100: REM AVANTI 3020 T=15: GOSUB 3900: REM ATTESA T DECIMI 3030 GOSUB 2000: REM FERMA 3040 T=15: GOSUB 3900: REM ATTESA T DECIMI 3050 GOSUB 2800: REM INDIETRO DESTRA 3060 T=13: GOSUB 3900: REM ATTESA T DECIMI 3070 GOSUB 2000: REM FERMA 3100 RETURN 3900 REM ATTESA T DECIMI DI SECONDO 3910 FOR I=1 TO T 3920 FOR J=1 TO 58: NEXT J 3930 NEXT I 3940 RETURN 4000 REM USCITA DAL PROGRAMMA 4010 PRINT "{down:6}" 4020 PRINT " CIAO DA {yellow}AMEDEO VALOROSO{ltblue} !" 4050 POKE 56579,0 4080 END