10 REM VALORE ANALOGICO PADDLE 20 REM COMMODORE 64, V 1.0 30 REM (C) 2021, AMEDEO VALOROSO, WWW.VALOROSO.IT 100 REM INTESTAZIONE 110 PRINT "{clear}" 120 PRINT " {$b0}{$c0:36}{$ae}" 130 PRINT " {$dd} VALORE ANALOGICO PADDLE C64 {$dd}" 140 PRINT " {$dd} WWW.VALOROSO.IT {$dd}" 150 PRINT " {$ad}{$c0:36}{$bd}" 400 REM VISUALIZZAZIONE VALORI ANALOGICI 410 PRINT: PRINT: PRINT 440 GOSUB 1000 450 PRINT 460 PRINT " U - USCITA DAL PROGRAMMA" 490 PRINT: PRINT 510 PRINT "{up:5}" 600 REM CICLO PRINCIPALE E COMANDI DA TASTIERA 610 GET C$ 620 IF C$="U" THEN PRINT "{down:5}": END 630 PRINT "{up:3}" 640 GOSUB 1000 800 GOTO 600 1000 REM VALORI PADDLE 1010 POKE 56322,224 1020 PRINT " X: "; STR$(PEEK(54297)); " " 1030 PRINT " Y: "; STR$(PEEK(54298)); " " 1040 POKE 56322,255 1050 RETURN