home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / JOYSTIK.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  512 b   |  11 lines
  1. 10 REM Program to watch the joystick ports
  2. 20 REM Will Fastie - 23 Dec 81
  3. 30 KEY OFF: CLS: STRIG ON
  4. 40 F$="#### #### (##)    #### #### (##)"
  5. 50 LOCATE 8,1: PRINT "   Joystick A        Joystick B"
  6. 60 PRINT "   X    Y   T        X    Y   T"
  7. 70 AX=STICK(0): AY=STICK(1): AT=STRIG(0) OR STRIG(1)
  8. 80 BX=STICK(2): BY=STICK(3): BT=STRIG(2) OR STRIG(3)
  9. 90 LOCATE 10,1: PRINT USING F$;AX,AY,AT,BX,BY,BT
  10. 100 GOTO 70
  11.