home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / CONNECT.txt < prev    next >
Text File  |  2000-01-01  |  359b  |  11 lines
  1. NOMONICO
  2. LOC=PEEK(103)+256*PEEK(104)
  3. FORI=1TO9999:TEST=PEEK(LOC)+256*PEEK(LOC+1):PRINT0;:IFTEST>0THENLOC=TEST:NEXT
  4. PRINT
  5. EN=LOC:ELO=EN-INT(EN/256)*256:EHI=INT(EN/256)
  6. POKE 768, PEEK(103):POKE 769, PEEK(104)
  7. POKE 103,ELO:POKE104,EHI
  8. PRINT"LOAD";A$:REMLOAD.HIGHER.NUMBERED.PROGRAM
  9. POKE 103,PEEK(768):POKE 104, PEEK(769)
  10. INVERSE:PRINT" APPEND COMPLETE ":NORMAL
  11.