home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / null.200 < prev    next >
Text File  |  2006-10-19  |  505b  |  14 lines
  1. 1 'NULL.200 - Creates/Saves a NULL character to NULL.DO
  2. 2 'To copy place your cursor over ^ and press F7 (Sel),
  3. 3 'then move your cursor over the < and press F5 (Copy)
  4. 10 OPEN"NULL.DO"FOROUTPUTAS1
  5. 11 PRINT#1,"NULL> <":CLOSE
  6. 12 A$=""
  7. 13 FORA=62034TO62628STEP11
  8. 14 Z=VARPTR(A$):POKEZ,8:POKEZ+1,(A+3)-FIX((A+3)/256)*256:POKEZ+2,FIX((A+3)/256)
  9. 15 IFA$="NULL  DO"THEN16ELSE17
  10. 16 AD=A:A=65535
  11. 17 NEXTA
  12. 18 IFAD=0THENENDELSEA=PEEK(AD+1)+PEEK(AD+2)*256
  13. 19 IFPEEK(A)=32THENPOKEA,0:MENUELSEA=A+1:GOTO19
  14.