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