home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / menu c-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.1 KB  |  28 lines
  1. 100 print"[147]":poke 53280,0:poke 53281,4
  2. 110 print tab(3)"[158] [146][183][205]  [146]  [146][183][205]  [146][183][183]  [146][183][208] [183] [146][183]  [146][183][208]  [146][183][205] [180] [170]"
  3. 120 print tab(3)" [146] [170]  [146]  [146][175][206]  [146][175]   [146]     [146]   [146] [170]  [146][175][206] [204][175][186]"
  4. 130 print tab(3)" [146][175][206]  [146]  [146] [205]  [146][175][175]  [146][175][186]   [146]   [146][175][186]  [146] [205]   "
  5. 135 print "    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] "
  6. 140 l$="":ta=11
  7. 150 a=a+1:b=b+1:read pr$:if a>9 then ta=10
  8. 160 print left$(l$,b+6)tab(ta)""a"-"pr$
  9. 165 if b=12 then 175
  10. 170 goto 150
  11. 175 if a>=24 then restore:a=0
  12. 180 print left$(l$,22)"[144] disks reproduced with msd super drives "
  13. 190 print left$(l$,24)tab(7)"[158](c) ion international inc"
  14. 200 print left$(l$,20)tab(9)"return[146] or choose no.";
  15. 210 poke198,0:input an$:an=val(an$):b=0
  16. 215 if an$="" then 100
  17. 225 restore:for ch=1 to an:read pr$:next ch
  18. 230 print "[147]":poke 53280,0:poke 53281,0
  19. 235 printleft$(l$,15)tab(10)"[156]loading "pr$"[144]"
  20. 240 print "load";chr$(34);pr$;chr$(34);",8,1"
  21. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  22. 260 poke 631,13:poke 632,13:poke 198,2:end
  23. 500 data 64 bug rep,vic bug rep,flankspeed,f-speed over,fast song loader
  24. 510 data fast song maker,summertime,vic music,doodle/scrnmagic,song #1
  25. 520 data song #2,clrscr.o,plot.$c.s,prnt shp-ddl,flash.s,flash.o,luck lotto
  26. 530 data script analysis,brainframe,printat,wizard of im boot,auto-append,etch
  27. 540 data autos
  28.