10 REM >:0.$.weird
   20 REM
   30 REM Bug, virus or just impossible?
   40 REM
   50 REM Discovered by A. Savvides
   60 REM which meant he could not
   70 REM continue a masterpiece
   80 REM which he was writing...
   90 REM
  100 DIMfile$(31)
  110 :
  120 *KEY 1IF file$(11)="$.weird"THEN P."YES"|M  
  130 *KEY 2IF file$(11)<>"$.weird"THEN P."YES...Doubly weird"|M   
  140 MODE7
  150 ONERRORPROCerr:END
  160 PROCfiles
  170 IFB%=0THENEND
  180 PROCcheck
  190 :
  200 DEFPROCfiles
  210 PRINT'"Files on disk:"'
  220 PRINT"(Notice no control codes)"'
  230 *FX3 2
  240 *DIR$
  250 *.
  260 *FX3
  270 A%=&0E08
  280 B%=0
  290 REPEAT
  300 IF?(A%+7)=0THENR$="$."ELSER$=CHR$(?(A%+7))+"."
  310 file$=R$
  320 D%=0
  330 REPEAT
  340 IF?(A%+D%)>0OR?(A%+D%)<>&FFTHENfile$=file$+CHR$(?(A%+D%))
  350 D%=D%+1
  360 UNTILD%=7OR?(A%+D%)=32
  370 PRINTB%+1;" '";file$;"'"
  380 B%=B%+1
  390 file$(B%)=file$
  400 A%=A%+8
  410 UNTIL?A%=0ORA%=&F00ORB%=32
  420 IFB%=0THENPRINT"No files found"
  430 ENDPROC
  440 :
  450 DEFPROCcheck
  460 FORFILE=1TOB%
  470 IFfile$(FILE)="$.weird"THENCLS:PRINT"$.weird ignored"
  480 NEXT
  490 PRINT'"End of check":VDU28,0,24,39,13
  500 PRINT'"Keyf1‡to re-test (EQUAL TO)"
  510 PRINT'"Keyf2‡to re-test (NOT EQUAL TO)"
  520 END
  530 :
  540 DEFPROCerr
  550 *FX3
  560 REPORT:PRINT" at line ";ERL
  570 ENDPROC