8-Bit Software Online Conversion
Joystick 1 - Listing
1REM Lol Simmonds 1992
10REM JOYDRAW
20 ON ERROR GOTO140
30MODE0:VDU23;8202;0;0;0;
40VDU19,0,1,0,0,0:VDU19,1,0,0,0,0
50IFINKEY(1)=32 CLS
60X%=ADVAL(0) AND 3
70Z%=1200-ADVAL1/48
80B=ADVAL2:A%=B/64
90IF X%= 2 PLOT22,Z%,A%
100IF X%= 1 PLOT5,Z%,A%
110IF X%= 3 PLOT82,Z%,A%
120PLOT21,Z%,A%
130GOTO50
140 MODE7
150 END