home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / kba1 / joytest.bas < prev    next >
BASIC Source File  |  1990-09-29  |  858b  |  29 lines
  1. 10 'JOYSTICK TESTING PROGRAM BY HOWARD SCHELL, NEW YORK, NY
  2. 20 'THIS PROGRAM WILL DYNAMICALLY TEST YOUR JOYSTICK OR
  3. 30 'DIGITIZING PAD-TYPE DEVICE AND GAME PORT
  4. 40 '
  5. 50 '
  6. 100 KEY OFF
  7. 110 CLS
  8. 120 PRINT "                               JOYSTICK TEST":PRINT
  9. 130 PRINT "                               STRIG(BUTTONS)":PRINT
  10. 140 FOR I = 0 TO 7
  11. 150 PRINT TAB(I*10);I;
  12. 160 NEXT
  13. 170 PRINT
  14. 180 PRINT"___";
  15. 190 FOR I = 1 TO 7
  16. 200 PRINT TAB((I*10)-0);"___";
  17. 210 NEXT I
  18. 220 PRINT:PRINT:PRINT
  19. 230 STRIG ON
  20. 240 LOCATE 14,35:PRINT"COORDINATES"
  21. 250 LOCATE 16,30:PRINT"X":LOCATE 16,50:PRINT"Y"
  22. 260 LOCATE 17,29:PRINT "___":LOCATE 17,49:PRINT "___"
  23. 270 LOCATE 23,1:PRINT"PRESS CTRL-BREAK TO STOP"
  24. 280 FOR I = 0 TO 7
  25. 290 LOCATE 8,((I*10)+1):PRINT STRIG(I)
  26. 300 NEXT I
  27. 310 LOCATE 19,29:PRINT STICK(0);"  ":LOCATE 19,49:PRINT STICK(1);"  "
  28. 320 GOTO 280
  29.