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