home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 April / Ahoy_Magazine_85-04_1985_Double_L.d64 / menu-vic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  781b  |  24 lines
  1. 100 print"[147]":poke 53280,6:poke 53281,1
  2. 110 print tab(3)"d i r e c t o r y"
  3. 140 l$=""
  4. 150 a=a+1:b=b+1:read pr$
  5. 160 print left$(l$,b+3)tab(0)"[144]";a;"- [154]"pr$
  6. 165 if b=9 then 175
  7. 170 goto 150
  8. 175 if a>=18 then restore:a=0
  9. 180 print left$(l$,17)" disks reproduced with"
  10. 185 print left$(l$,18)"   msd super drives"
  11. 190 print left$(l$,22)tab(1)"[144](c)ion int'l inc."
  12. 200 print left$(l$,20)tab(1)"choose # or return[146]";
  13. 210 input an$:an=val(an$)
  14. 220 if an$="" then b=0:goto 100
  15. 230 if an$>="1" or an$<="14" then 240
  16. 240 restore:for a=1 to an:read pr$:next a
  17. 245 print"[147]"
  18. 250 print "load";chr$(34);pr$;chr$(34);",8"
  19. 260 print "run":print"[145][145][145][145][145][145][145][145][145][145]"
  20. 270 poke 631,13:poke 632,13:poke 198,2:end
  21. 500 data 64 checksum,vic checksum,joy64,joyvic,hop around 64,hop around 20
  22. 510 data space hunt,flankspeed,rupert,elecheck,basic trace,faster 64
  23. 520 data f-speed over,pachelbel,vic booter,c64 booter,faster 64 basic,end
  24.