home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
UTIL.CITY.SHK
/
UTILITY.CITY
/
BFIND.WRITE.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
391b
|
7 lines
10 D$ = CHR$(4)
20 PRINT D$;"OPEN BFIND"
30 PRINT D$;"WRITE BFIND"
40 PRINT "LOC=768:POKE LOC,PEEK(103):POKE LOC+1,PEEK(104):POKE LOC+2,PEEK(175):POKE LOC+3,PEEK(176):POKE LOC+4,PEEK(43616):POKE LOC+5,PEEK(43617):POKE LOC+6,PEEK(43634):POKE LOC+7,PEEK(43635)"
45 PRINT "POKE PEEK(175)+PEEK(176)*256-1,0:POKE 103,PEEK(175):POKE 104,PEEK(176)"
50 PRINT "RUN BFIND.A"
60 PRINT D$;"CLOSE"