home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
USCX
/
SAMPLE02.ZIP
/
JOYSTICK.BAS
< prev
next >
Wrap
BASIC Source File
|
1982-05-05
|
640b
|
16 lines
10 REM PROGRAM TO WATCH THE JOYSTICK PORTS
15 REM SOURCE: CREATIVE COMPUTING [APRIL 1982] PAGE 321
20 REM AUTHOR: Will Fastie - 23 DEC 81
25 REM EDITED BY: David Reussow
30 KEY OFF: CLS: STRIG ON
40 F$="#### #### ## #### #### ##"
50 LOCATE 8,1: PRINT " JOYSTICK A JOYSTICK B"
60 PRINT " X Y T X Y T"
70 AX=STICK(0): AY=STICK(1): AT=STRIG(0) OR STRIG(1)
80 BX=STICK(2): BY=STICK(3): BT=STRIG(2) OR STRIG(3)
90 LOCATE 10,1: PRINT USING F$;AX,AY,AT,BX,BY,BT
100 GOTO 70
STRIG(1)
80 BX=STICK(2): BY=STICK(3): BT=STRIG(2) OR STRIG(3)
90 LOCATE 10,1: PRINT USING F$;AX,AY,AT,BX,BY,BT
100 GOT