home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / menu c-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  3.1 KB  |  66 lines
  1. 5 poke53280,6:poke53265,peek(53265)and239
  2. 10 fori=1to16:reada$:next:x=60:y=57:cl=1:sc=53281
  3. 20 fori=12288to12799:readsp:pokei,sp:next
  4. 25 restore:l$=""
  5. 30 m=.:v=53248:fori=2040to2047:m=m+1:pokei,191+m:next
  6. 40 fori=39to46:cl=cl+1:pokev+i,cl:next
  7. 50 fori=0to6step2:x=x+20:pokev+i,x:next:fori=1to13step2:pokev+i,y:next
  8. 60 pokev+8,185:pokev+10,205:pokev+12,240
  9. 70 pokev+16,128:pokev+14,5:pokev+15,y
  10. 80 poke53265,peek(53265)or16
  11. 100 print"[147]":poke sc,1:pokev+21,255:ta=10
  12. 145 printleft$(l$,5)tab(7)"[156] ** d i r e c t o r y ** "
  13. 150 a=a+1:b=b+1:readpr$:ifa>9thenta=9
  14. 160 printleft$(l$,b+8)tab(ta)""a"-"pr$
  15. 165 ifb=8then175
  16. 170 goto150
  17. 175 ifa>=16thenrestore:a=0
  18. 190 printleft$(l$,23)tab(7)"[156](c) ion international inc.":poke198,0:an$=""
  19. 200 printleft$(l$,20)tab(8)" press f1 or choose no.[146]";
  20. 210 gettm$:iftm$=chr$(13)andan$=""then 210
  21. 211 iftm$=chr$(20)thenprint"[157]    ":goto190
  22. 215 iftm$="[133]"thengosub300:ta=10:b=.:goto150
  23. 218 iftm$=chr$(13)andan$<>" "then 225
  24. 220 an$=an$+tm$:printan$;"[144][146]_";
  25. 221 t=peek(v+39):pokev+39,peek(v+40):pokev+40,peek(v+41):pokev+41,peek(v+42)
  26. 222 pokev+42,peek(v+43):pokev+43,peek(v+44):pokev+44,peek(v+45)
  27. 223 pokev+45,peek(v+46):pokev+46,t
  28. 224 printleft$(l$,20)tab(8)"[150] press f1 or choose no.[146]";:ford=1to90:next:goto200
  29. 225 an=val(an$):ifan<1oran>16thenprint"[157]     ":goto190
  30. 226 an=val(an$):restore:for ch=1 to an:read pr$:next ch
  31. 230 pokev+21,0:print "[147]":poke 53280,0:poke 53281,0
  32. 235 printleft$(l$,15)tab(10)"[159]loading "pr$"[144]"
  33. 240 print "load";chr$(34);pr$;chr$(34);",8"
  34. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  35. 260 poke 631,13:poke 632,13:poke 198,2:end
  36. 300 forli=7to17
  37. 310 printleft$(l$,li)"                                    ":next:return
  38. 500 data music tutor j'85,midprint    j'85,fontasia    f'85,telelink    f'85
  39. 510 data futurewar   f'85,salmon run  m'85,auto line#  m'85,home budget m'85
  40. 520 data tile time may'85,screen dump a'85,ahoy dock   s'85,file lock   s'85
  41. 530 data lghtng load n'85,dir manip.  d'85,gameloader  d'85,jewel quest d'85
  42. 600 data 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131
  43. 610 data 224,7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7
  44. 620 data 129,240,7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0,0
  45. 630 data 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128
  46. 640 data 0,7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255
  47. 650 data 224,7,255,240,7,255,240,7,255,224,0,0,0,0,0,0,0
  48. 660 data 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248,15,192
  49. 670 data 0,7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248,0,1,248,7
  50. 680 data 227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0,0
  51. 690 data 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62
  52. 700 data 16,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62
  53. 710 data 0,0,62,0,0,62,0,0,0,0,0,0,0,0
  54. 720 data 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227
  55. 730 data 240,15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7
  56. 740 data 227,240,7,247,240,3,255,224,1,255,192,0,255,128,0,62,0,0,0,0,0,0,0,0
  57. 750 data 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7
  58. 760 data 128,0,7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128
  59. 770 data 0,7,128,0,15,128,0,31,128,0,0,0,0,0,0,0,0
  60. 780 data112,0,0,112,0,0,112,254,0,231,255,192,207,255,224,31,131,240,31,1,240
  61. 790 data31,7,240,15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31
  62. 800 data 1,240,31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0,0
  63. 810 data 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0
  64. 820 data 15,128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248
  65. 830 data 15,128,248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0,0
  66.