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