home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 April / 1986-04.d64 / nt (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  521b  |  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"       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,14:poke53281,14:print"[147][154]load";chr$(34);f$;chr$(34);",8"
  12. 215 print"       loading table of contents"
  13. 216 print"           one moment please[154]"
  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.