Wico Command Control - Page 9

OPERATION: For simple operation of the WICO joysticks, follow the direc
tions provided in the chart below:
DECIMAL
VALUE
DIRECTION -0- -128- -255-
FIRE
BUTTON
JOYSTICK #1 PDL (0) horizontal
left center right
SWO
PDL (1) vertical up
center down STICK 1
JOYSTICK # 2 PDL (2) horizontal left
center right SW1
PDL (3) vertical up
center
down
STICK 2
To read the fire buttons, use the following tw o basic statements:
If PEEK (-16287) > 127, then XXX REM reads Fire Button, Stick #1
If PEEK (-16286) > 127, then XXX REM reads Fire Button, Stick # 2
SAMPLE PROGRAM
5
HOME
10 XN = PDL(O)
20
IF XO < > XN THEN XO = XN: GOSUB 100
30 YN = PDL(1)
40 IF YO < > YN THEN YO = YN: GOSUB 120
50 JN = PDL(2)
60 IF JO < > JN THEN JO = JN: GOSUB 140
70 KN = PDL(3)
80
IF KO < > KN THEN KO = KN: GOSUB 160
90
IF PEEK (-16287) > 127 THEN VTAB 7: HTAB 20:
INVERSE: PRINT "FIRE BUTTON 1": NORMAL: GOTO 93
91
VTAB 7: CALL - 868
93
IF PEEK (-16286) > 127 THEN VTAB 11: HTAB 20:
INVERSE: PRINT "FIRE BUTTON 2 ": NORMAL: GOTO 95
94 VTAB 11: CALL - 868
95
GOTO 10
100
VTAB 6: PRINT "PDL(O) = " ;: CALL - 868
110
PRINT XO: RETURN
120
VTAB 8: PRINT "PDL(1) CALL - 868
130
PRINT YO: RETURN
140 VTAB 10: PRINT “ PDL(2) = " ;: CALL - 868
150
PRINT JO: RETURN
160
VTAB 12: PRINT “ PDL(3) CALL - 868
170
PRINT KO: RETURN