home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / IO / joy.b < prev    next >
Encoding:
Text File  |  1996-09-15  |  268 b   |  16 lines
  1. '..A test of the joystick functions
  2. '..for gameport B. Hit any key to quit.
  3.  
  4. DEFINT a-z
  5.  
  6. window 1,"Joystick test",(0,0)-(640,200)
  7.  
  8. while inkey$=""
  9.   fire = STRIG(3)
  10.   x = STICK(2)  
  11.   y = STICK(3)
  12.   print "Fire:";fire;tab(20);"X:";x;tab(40);"Y:"y
  13. wend
  14.  
  15. window close 1
  16.