start tok64 d64-qUEUBG
10 REM *** mark{pound}rstyrning med ***
20 REM ***      joystick      ***
30 REM ***         av         ***
40 REM ***    mikael pawlo    ***
50 FORshn=49152TO49247:READbymp:POKEshn,bymp:NEXT
60 PRINT"starta rutinen med sys 49152."
300 DATA 120,169,55,133,1,169,17,162,192,141,20,3,142,21,3,88,96,206,95,192,208
310 DATA 62,169,4,141,95,192,173,0,220,41,15,201,15,240,48,201,14,240,20,201,13
320 DATA 240,24,201,11,240,28,201,7,208,32,169,29,32,87,192,76,84,192,169,145
330 DATA 32,87,192,76,84,192,169,17,32,87,192,76,84,192,169,157,32,87,192,76,84
340 DATA 192,76,49,234,141,119,2,169,1,133,198,96,8
stop tok64
(bastext 1.0)