home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  498b  |  16 lines

  1. 100 f$="vm"
  2. 101 sys 65517:if peek(781)=40 then f$="mn":goto210
  3. 110 poke36879,24:poke36865,24
  4. 111 print"[147]load";chr$(34);f$;chr$(34);",8"
  5. 115 print"       loading":print"  table of contents"
  6. 116 print"  one moment please"
  7. 129 a$=chr$(13)+"run"+chr$(13)
  8. 130 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  9. 140 new
  10. 210 poke53281,14:print"[147]load";chr$(34);f$;chr$(34);",8"
  11. 215 print"       loading table of contents"
  12. 216 print"           one moment please[154]"
  13. 230 a$=chr$(13)+"run"+chr$(13)
  14. 240 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  15. 250 new
  16.