dos33fsprogs/games/glados3.3/joystick_test.bas
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

29 lines
714 B
QBasic

1 HOME:HGR:D$=CHR$(4):ROT=0:SCALE=2
8 POKE 232,38:POKE 233,3
9 PRINT D$;"BLOAD OBJECTS.SHAPE,A$326"
100 X=140:Y=80:D0=0:D1=0:O0=0:O1=0
105 XDRAW 1 AT X,Y
110 OX=X:OY=Y:O0=D0:O1=D1
115 Q=PDL(0):R=PDL(1)
120 IF Q > 160 THEN X=X+4
122 IF Q > 220 THEN X=X+24
125 IF Q < 96 THEN X=X-4
127 IF Q < 36 THEN X=X-24
130 IF R > 160 THEN Y=Y+4
132 IF R>220 THEN Y=Y+24
135 IF R < 96 THEN Y=Y-4
137 IF R < 36 THEN Y=Y-24
200 IF X<10 THEN X=10
210 IF X>270 THEN X=270
220 IF Y<10 THEN Y=10
230 IF Y>150 THEN Y=150
232 D0=PEEK(-16286)
232 D1=PEEK(-16287)
233 IF D0>127 AND O0<127 THEN XDRAW 6 AT X,Y
234 IF D1>127 AND O1<127 THEN XDRAW 7 AT X,Y
235 IF X=OX AND Y=OY GOTO 110
237 XDRAW 1 AT OX,OY
240 XDRAW 1 AT X,Y
250 GOTO 110