start bastext 1025
start tok64 d64-AfuCBV
5 PRINT"{clear}{down*2}enter joy-stick port number":INPUT"{space*3}( 1 or 2 )";p:IFp=0 OR p>2THEN5
25 fb$(0)=" fire button"
30 jy$(0)="{space*2}up{space*2}"
40 jy$(2)=" down "
50 jx$(0)=" left "
55 jx$(2)=" right"
100 jy=BIT(p)y:jx=BIT(p)x:IF st THEN PRINT fb$(0)
200 IF jy OR jx THEN PRINT jy$(jy+1);jx$(jx+1)
300 GOTO 100
stop tok64
(bastext 1.0)