10 OPEN"NULL.DO"FOROUTPUTAS1
20 PRINT#1,"null-> <":CLOSE
30 DA=249*256+98:A$=""
40 FORA=DATO64137STEP11
50 Z=VARPTR(A$):POKEZ,8:POKEZ+1,(A+3)-FIX((A+3)/256)*256:POKEZ+2,FIX((A+3)/256)
60 IFA$="NULL  DO"THEN70:ELSE80
70 AD=A:A=65535
80 NEXTA
90 IFAD=0THENEND:ELSEA=PEEK(AD+1)+PEEK(AD+2)*256
100 IFPEEK(A)=32THENPOKEA,0:END:ELSEA=A+1:GOTO100