home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 May
/
1987-05.d64
/
gameports.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
527b
|
30 lines
100 print chr$(147);chr$(142)
110 print"[144]joystick/paddle test"
120 print "press <f1> to stop"
130 data f,r,l,d,u
140 data 16,8,4,2,1
150 dim c(5),b(5)
160 for j=1 to 5:read c$:c(j)=asc(c$):next j
170 for j=1 to 5:read b(j):next j
180 print chr$(19):print:print
190 g=64
200 for p=0 to 1
210 print
220 poke 56333,127
230 r=peek(56321-p)
240 poke 56320,g
250 g=g+g
260 x=peek(54297)
270 y=peek(54298)
280 poke 56333,129
290 for b=1 to 5
300 c=c(b):if r and b(b) then c=32
310 print chr$(c);
320 next b
330 print " port:";p+1;"paddles:";
340 print right$(" "+str$(x),4);
350 print right$(" "+str$(y),4)
360 next p
370 get x$:if x$="" goto 180
380 if asc(x$)<>133 goto 180