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 >
BASIC Source File  |  2000-01-01  |  391b  |  7 lines
  1. 10 D$ =  CHR$(4)
  2. 20  PRINT D$;"OPEN BFIND"
  3. 30  PRINT D$;"WRITE BFIND"
  4. 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)"
  5. 45  PRINT "POKE PEEK(175)+PEEK(176)*256-1,0:POKE 103,PEEK(175):POKE 104,PEEK(176)"
  6. 50  PRINT "RUN BFIND.A"
  7. 60  PRINT D$;"CLOSE"