10 REM JOY-TEST VON MICHAEL FABRY
40 POKE53280,0:POKE53281,0:PRINT"[147]"
50 O$="[206][205][157][157][157][206]  [205][157][157][157][157][163][163][163][163]"
60 U$="[164][164][164][164][157][157][157][157][205]  [206][157][157][157][205][206]"
70 L$="[206][180][157][157][157][206] [180][157][157][157][205] [180][157][157][205][180]"
80 R$="[170][205][157][157][170] [205][157][157][157][170] [206][157][157][157][170][206]"
90 F$="[213][195][195][201][157][157][157][157][194]  [194][157][157][157][157][194]  [194][157][157][157][157][202][195][195][203]"
100 PRINTO$U$L$R$F$
110 PRINT""SPC(16)"[158]JOY-TEST"
140 J=PEEK(56320)
150 IF(JAND1)=0THEN PRINT"[158]"O$:PRINT""O$
160 IF(JAND2)=0THEN PRINT"[158]"U$:PRINT""U$
170 IF(JAND4)=0THEN PRINT"[158]"L$:PRINT""L$
180 IF(JAND8)=0THEN PRINT"[158]"R$:PRINT""R$
190 IF(JAND16)=0THEN PRINT"[158]"F$:PRINT""F$
200 GOTO 140