start tok64 d64-3LpBl8
100 POKE53280,5:POKE53281,5
110 PRINT"{clear}{ct n}{light green}JOYSTICK TESTER, COMMODORE 64."
120 PRINT"{down}This program will test Your Joystick."
130 PRINT"You pull Your Joystick up,down,left,"
140 PRINT"right,up&left,up&right, etc.,etc."
150 PRINT"The program will give an arrow witch is"
160 PRINT"pointing in that direction that You hold";
170 PRINT"Your Joystick. (If FIRE pressed, the"
180 PRINT"word "CHR$(34)"FIRE"CHR$(34)" also are displayed.)"
190 PRINT"{down}(c) 1989 Mr.P."
200 PRINT"Press SPACE BAR to continue"
210 GETa$:IFa$<>" "THEN210
220 PRINT"{clear}{142}"
230 DIMa$(16)
240 DATA1,"{reverse on}{sh pound}{cm asterisk}{down}{left*2}{reverse off}{cm m}{cm g}{up}"
250 DATA2,"{cm m}{cm g}{down}{left*2}{cm asterisk}{sh pound}{up}"
260 DATA4,"{reverse on}{sh pound}{reverse off}{cm p}{down}{left*2}{cm asterisk}{cm y}{up}"
270 DATA5,"{reverse on} {reverse off}{sh pound}{down}{left*2}{sh pound}M{up}"
280 DATA6,"{reverse on}{cm asterisk}{reverse off}N{down}{left*2}{reverse on} {cm asterisk}{reverse off}{up}"
290 DATA8,"{cm p}{reverse on}{cm asterisk}{down}{left*2}{reverse off}{cm y}{sh pound}{up}"
300 DATA9,"{cm asterisk}{reverse on} {reverse off}{down}{left*2}N{cm asterisk}{up}"
310 DATA10,"M{reverse on}{sh pound}{down}{left*2}{sh pound} {reverse off}{up}"
320 DATA16,"O{cm y} P{cm y} OP O{cm y}{down}{left*11}O{space*2}{cm n}{right*2}OM{right}O{down}{left*10}{cm h}{space*2}{sh @}{cm p} {cm g}{cm m} L{cm p}{up*2}",0
325 READa:IFaTHENREADa$(a):GOTO325
330 b$=" {sh @}{cm p}{down}{left*2}{cm n}{right}{up} "
340 FORi=1TO17:c$=c$+" ":NEXT:c$=c$+CHR$(13)
350 POKE53280,6
360 POKE53281,6
370 g=31-PEEK(56320)AND31
380 IFg<>0ANDg<>oTHENPRINT"{home}"c$c$c$"{home}";
390 IFg<>16THENPRINTa$(gAND15);:IFgAND16THENPRINTb$;
400 IFgAND16THENPRINTa$(16);
410 PRINT"{home}{down*3}{yellow}31-peek(56320)and31="g"{left} "
420 PRINT"peek(56320)="PEEK(56320)"{left} {black}{home}";:o=g:IFzTHEN370
430 PRINT"{home}{down*8}{white}joystick tester, commodore 64."
440 PRINT"(c) 1989 mr.p.{home}";
450 z=1:GOTO370
stop tok64
(bastext 1.0)