'USING THE GAMEPORT ON A PC 'THE QBASIC COMMANDS USED TO READ THE PORT ARE "STRIG" AND "STICK" 'FORMAT EXAMPLES - STICK(1), STRIG(3) '"STRIG" READS OFF/ON SWITCHES CONNECTED TO GROUND '"STRIG" IN ON PINS 2,7,10,14 SWITCHED TO PIN 4 (GROUND) 'USING 1,3,5 & 7 WITH STRIG READS INSTANT VALUE 'USING 0,2,4 AND 6 "TRAPS" A VALUE '"STICK" READS ANALOG/RESISTIVE INPUTS CONNECTED TO +V '"STICK" IN ON PINS 3,6,11,13 CONNECTED TO PIN 1 (+V) 'RANGE OF RESISTANCE 0 TO 100,000 OHMS 'THIS ROUTINE READS AND DISPLAYS THE VALUES AT EACH PIN OF 'THE GAME PORT apage% = 1 vpage% = 0 DEFINT A-Z DO SCREEN 9, , apage%, vpage% 'USING ACTIVE AND VISUAL PAGE 'STOPS FLICKER COLOR 7, 1 'SETS SCREEN BLUE AND WHITE CLS 1 a = STRIG(1) 'PIN 2, TO TRAP USE STRIG(0) b = STRIG(3) 'PIN 10, TO TRAP USE STRIG(2) c = STRIG(5) 'PIN 7, TO TRAP USE STRIG(4) d = STRIG(7) 'PIN 14, TO TRAP USE STRIG(6) e = STICK(0) 'PIN 3 f = STICK(1) 'PIN 6 g = STICK(2) 'PIN 11 h = STICK(3) 'PIN 13 LOCATE 10, 1 PRINT " PIN # ------- "; 2, 10, 7, 14 PRINT " STRIG, ON OFF "; a, b, c, d PRINT PRINT " PIN # ------- "; 3, 6, 11, 13 PRINT " STICK, ANALOG "; e, f, g, h SWAP apage%, vpage% 'SWITCHES ACTIVE AND VISUAL PAGES LOOP WHILE INKEY$ = ""