start tok64 d64-qa0xe0
10 REM           joycursor
20 REM       by levon saldamli
30 REM     (poseidon of paragon)
40 REM
50 REM  copyright 1989 levon saldamli
60 REM
100 FORt=0TO95:READa:POKE49152+t,a:c=c+a:NEXT:IFc<>10632THENPRINT"error!":END
110 PRINT"sys 49152 = start":PRINT"poke 49175, speed (4=slow,1=fast)"
120 DATA120,169,55,133,1,169,17,162,192,141,20,3,142,21,3,88,96,206,95,192,208
130 DATA62,169,4,141,95,192,173,0,220,41,15,201,15,240,48,201,14,240,20,201,13
140 DATA240,24,201,11,240,28,201,7,208,32,169,29,32,87,192,76,84,192,169,145
150 DATA32,87,192,76,84,192,169,17,32,87,192,76,84,192,169,157,32,87,192,76,84
160 DATA192,76,49,234,141,119,2,169,1,133,198,96,8
stop tok64
(bastext 1.0)