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