home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 October / 1987-10.d64 / nt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  521 b   |  17 lines
  1. 0 f$="vm"
  2. 100 f$="vm"
  3. 101 sys 65517:if peek(781)=40 then f$="mn":goto210
  4. 110 poke36879,24:poke36865,24
  5. 111 print"[147]load";chr$(34);f$;chr$(34);",8"
  6. 115 print"[155]       loading":print"  table of contents"
  7. 116 print"  one moment please"
  8. 129 a$=chr$(13)+"run"+chr$(13)
  9. 130 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  10. 140 new
  11. 210 poke53280,15:poke53281,15:print"[147][155]load";chr$(34);f$;chr$(34);",8"
  12. 215 print"       loading table of contents"
  13. 216 print"           one moment please[155]"
  14. 230 a$=chr$(13)+"run"+chr$(13)
  15. 240 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  16. 250 new
  17.