Lag test Commodore 64 Joystick and Keyboard.bas

Lag test Commodore 64 Joystick and Keyboard.bas

10 poke54272,0
20 poke54273,15
30 poke54277,0
40 poke54278,7
50 poke54296,15
60 i=0
70 reada:ifa=-1then100
80 poke4096+i,a:i=i+1:goto70
100 i=0
110 reada:ifa=-1then130
120 poke8192+i,a:i=i+1:goto110
130 printchr$(147)"lag visual measure:"
140 print:print"1- keyboard"
150 print"2- joystick"
160 geta$:ifa$<>"1"anda$<>"2"then160
170 print:print"exit with run/stop + restore":print
180 ifa$="1"thenprint"testing keyboard":sys4096
190 ifa$="2"thenprint"testing joy in port 2":sys8192 
1000 data173,33,208,141,32,208,169,0,133
1010 data198,165,198,240,252,169,17,141
1020 data4,212,238,32,208,238,33,208,169
1030 data16,141,4,212,76,6,16,-1
2000 data120,173,33,208,141,32,208,173,0
2010 data220,201,127,240,249,169,17,141
2020 data4,212,238,32,208,238,33,208,169
2030 data16,141,4,212,173,0,220,201,127
2040 data208,249,76,7,32,-1