home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 July to December / Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64 / 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.2 KB  |  68 lines
  1. 5 poke53280,6:poke53265,peek(53265)and239
  2. 10 fori=1to22: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"":poke sc,1:pokev+21,255:ta=10
  12. 145 printleft$(l$,5)tab(8)"** 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+6)tab(ta)""a"-"pr$
  15. 165 if b=11 then 175
  16. 170 goto 150
  17. 175 if a>=22 then restore:a=0
  18. 180 print left$(l$,22)" disks reproduced with msd super drives "
  19. 190 print left$(l$,24)tab(7)"(c) ion international inc":poke198,0:an$=""
  20. 200 print left$(l$,20)tab(8)"press f1 or choose no. ";
  21. 210 gettm$:iftm$=chr$(13)andan$=""then 210
  22. 211 iftm$=chr$(20)thenprint"    ":goto190
  23. 215 iftm$=""thengosub300:ta=10:b=.:goto150
  24. 218 iftm$=chr$(13)andan$<>" "then 225
  25. 220 an$=an$+tm$:printan$;"_";
  26. 221 t=peek(v+39):pokev+39,peek(v+40):pokev+40,peek(v+41):pokev+41,peek(v+42)
  27. 222 pokev+42,peek(v+43):pokev+43,peek(v+44):pokev+44,peek(v+45)
  28. 223 pokev+45,peek(v+46):pokev+46,t:ford=1to30:next
  29. 224 goto200
  30. 225 an=val(an$):ifan<1oran>22thenprint"     ":goto190
  31. 226 an=val(an$):restore:for ch=1 to an:read pr$:next ch
  32. 230 pokev+21,0:print "":poke 53280,0:poke 53281,0
  33. 235 printleft$(l$,15)tab(10)"loading "pr$""
  34. 240 print "load";chr$(34);pr$;chr$(34);",8"
  35. 250 print "run":print ""
  36. 260 poke 631,13:poke 632,13:poke 198,2:end
  37. 300 forli=6to18
  38. 310 printleft$(l$,li)"                                    ":next:return
  39. 500 data multi-draw boot,address book,vic space lanes,64 space lanes
  40. 510 data name that star,lunar lander,air assault,math master,biorhythm
  41. 520 data the alpiner,post time,checklist,micro minder 85,dos,salvage diver
  42. 530 data vic 40 boot,vic 40 demo,emerald elephant,lawn job,space patrol
  43. 540 data const.co,menu c-64
  44. 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
  45. 610 data 224,7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7
  46. 3692 data***error***rem***error******error******error***printread_***error***,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0,0
  47. 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
  48. 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
  49. 650 data 224,7,255,240,7,255,240,7,255,224,0,0,0,0,0,0,0
  50. 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
  51. 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
  52. 680 data 227,248,3,255,240,0,255,224,0,63,128,0,0,0,0,0,0,0
  53. 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
  54. 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
  55. 710 data 0,0,62,0,0,62,0,0,0,0,0,0,0,0
  56. 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
  57. 730 data 240,15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7
  58. 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
  59. 750 data 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7
  60. 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
  61. 770 data 0,7,128,0,15,128,0,31,128,0,0,0,0,0,0,0,0
  62. 780 data112,0,0,112,0,0,112,254,0,231,255,192,207,255,224,31,131,240,31,1,240
  63. 790 data31,7,240,15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31
  64. 800 data 1,240,31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0,0
  65. 810 data 0,0,0,0,0,0,0,31,128,0,63,128,0,127,128,0,255,128,1,255,128,3,239
  66. 820 data 128,7,207,128,15,143,128,31,15,128,31,255,248,31,255,248,31,255
  67. 830 data 248,31,255,248,0,15,128,0,15,128,0,15,128,0,15,128,0,0,0,0,0,0,0
  68.