home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / elfred (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  131 lines
  1. 10 v=53248:pokev+32,2:pokev+33,5:s=54272:forll=0to24:pokes+ll,0:next
  2. 15 print"[147][149]"spc(17)"elfred":gosub420
  3. 20 forn=0to63:readq:poke704+n,q:next:forn=0to191:readq:poke832+n,q:next
  4. 25 pokev+23,1:pokev+37,1:pokev+38,2:pokev+28,254:pokev+21,255
  5. 30 print"     please wait... reading data...":poke2041,13
  6. 35 pokev+40,10:pokev+2,172:pokev+3,90:forn=0to511:readq:poke12288+n,q:next
  7. 40 poke198,0:print"[147]how many bags do you want to pack? (1-5)"
  8. 45 geta$:ifa$=""then45
  9. 50 ifa$<"1"ora$>"5"then45
  10. 55 a=val(a$):printa"type name and hit return"
  11. 60 forl=1toa:print"bag #"l:inputn$(l):n$(l)=left$(n$(l),9):next
  12. 65 print"[147]choose speed:  0 slow and easy"spc(71)"to"spc(72)"9 watch them zip!"
  13. 70 getsp$:ifsp$=""then70
  14. 75 ifsp$<"0"orsp$>"9"then70
  15. 80 sp=val(sp$)+1:forb=1toa
  16. 85 poke53280,1:poke53281,3:print"[147]";
  17. 90 forl=1to4:print"                                        ";:next
  18. 95 forl=1to40:print" ";:next:pokev+2,175:pokev+3,140
  19. 100 print"[146][191][191].[149] [146][191][191] [144][213][192][192][192][192][192][192][192][192][192][192][192][201]"
  20. 105 print"  [191][191][223][146].[169][149] [223][146].[169][146][191][191] [144][221] hit space[146] [221]"
  21. 110 print"  [191][191][149]         [146][191][191] [144][221] to choose [221]"
  22. 115 print"  [191][191]..[149] [146].[191][191] [144][221]    toys   [221]"
  23. 120 print"  [191][191].[149] [146]..[191][191] [144][221]           [221]"
  24. 125 print"  [191][191][223][146].[169][149] [223][169][146][191][191] [144][202][192][192][192][192][205][206][192][192][192][192][192][203]":print"  [191][191][149][184][184][184][184][184][184][184][184][184][191][191]"
  25. 130 forj=1to160:print" ";:next:printtab(35)"[145][145][145][145][145][145][145][145][145][145][145][145][145][129][146]*"
  26. 135 printtab(34)"[169] [223][157][157][157][157][169]   [223][157][157][157][157][157][169]   [223][157][157][157][157][157][157][169]   * [223][157][157][157][157][157][157][157][169]     [223][157]"
  27. 140 forj=1to2:printspc(31)"[169]       [223]";:next
  28. 145 poke2040,11:pokev+21,255:pokev,248:pokev+1,153:pokev+39,5
  29. 150 forj=1to2:printspc(31)"         ";:next
  30. 155 forj=1to3:printspc(30)"          ";:next:poke1537,170:poke1620,170
  31. 160 printspc(28)"[169]           ";:poke1736,170:poke1741,170:poke1663,170
  32. 165 printspc(27)"[169] *          "spc(29)"[169]        * "spc(32)"[169]*    [223]"
  33. 170 printspc(34)"[149]   "spc(36)"[169]   [223][145][145][145][145][145]"spc(15);
  34. 175 print"[146][223]       [146][169]"spc(32)"       "spc(32)"[169]  for  [223]"spc(31)"         ";
  35. 180 printspc(31)"         "spc(31)"[146][223]       [146][169][145][145]";
  36. 185 printspc(35-(int(len(n$(b))/2)))n$(b)
  37. 190 print""spc(29)"speed:"sp-1spc(71)"total"spc(35)"misses:"sc"[157][157][157]";
  38. 195 z=1:xx=25:x=4:y=5:cc=41:pokev+14,150:pokev+15,166
  39. 200 fort=192to200:ift=200thent=192
  40. 205 ifz=6then230
  41. 210 poke2047,t:gosub380:pokev+46,c:forl=1to100:ifpeek(197)<>60then225
  42. 215 g(z)=t:poke2041+z,t:pokev+x,xx:pokev+y,55:pokev+cc,c:gosub410
  43. 220 z=z+1:x=x+2:xx=xx+49:y=y+2:cc=cc+1:forl=1to100
  44. 225 nextl:nextt
  45. 230 pokev+14,0:t=192+int(rnd(0)*8)
  46. 235 print""spc(58)"hit space[146]"spc(31)" to drop "spc(32)"toy in"spc(36);
  47. 240 print"bag"
  48. 245 poke2047,t:gosub380:pokev+46,c:forx=0to249stepsp:pokev+14,x:pokev+15,166
  49. 250 ifpeek(197)<>60then270
  50. 255 gosub315:ifg(1)=0andg(2)=0andg(3)=0andg(4)=0andg(5)=0andb=athen365
  51. 260 ifg(1)=0andg(2)=0andg(3)=0andg(4)=0andg(5)=0andb<athengosub420:nextb
  52. 265 goto230
  53. 270 ifx>170thenpoke2041,15:goto285
  54. 275 ifx>160thenpoke2041,14:goto285
  55. 280 poke2041,13
  56. 285 nextx:forz=1to5:ifg(z)=tthenff=1:pokev+14,0:gosub330:ff=0:goto295
  57. 290 nextz
  58. 295 pokev+14,0:poke2041,14:m=m+1:ifm=5then305
  59. 300 goto230
  60. 305 forz=1to5:ifg(z)>0thent=g(z):m=0:goto245
  61. 310 nextz
  62. 315 ifx<138orx>170then330
  63. 320 forz=1to5:ifg(z)=tthenpokev+27,128:goto345
  64. 325 nextz
  65. 330 sc=sc+1:print""spc(36)sc""
  66. 335 printspc(18)"         "spc(32)" oops! "spc(33)"      "spc(36)"   "
  67. 340 ifff=1then355
  68. 345 fory=166to250step3:pokev+14,x:pokev+15,y:next:pokev+27,0
  69. 350 ifx>137andx<171andg(z)=tthenpokev+2*(z+1),0:gosub400:g(z)=0:return
  70. 355 forj=1to2:forl=13to15:poke2041,l:forll=1to50:nextll:nextl
  71. 360 forl=15to13step-1:poke2041,l:forll=1to50:nextll:nextl:nextj:return
  72. 365 gosub420:printspc(57)"play again?"spc(30)"hit space"
  73. 370 ifpeek(197)=60thenpokev+3,0:pokev,0:sc=0:goto40
  74. 375 goto370
  75. 380 ift=194ort=196ort=199thenc=0:return
  76. 385 ift=193thenc=1:return
  77. 390 ift=198thenc=5:return
  78. 395 ift=192ort=195ort=197thenc=7:return
  79. 400 poke2041,14:print""spc(98)"         "spc(32)"hooray!"spc(33)"      ";
  80. 405 printspc(36)"   "
  81. 410 pokes+1,130:pokes+15,65
  82. 415 pokes+24,15:pokes+4,21:forll=1to500:nextll:pokes+4,20:pokes+24,0:return
  83. 420 restore
  84. 425 pokes+24,15:pokes+5,9:pokes+6,0:readd,h,l:ifd=-1thenpokes+24,0:return
  85. 430 pokes+1,h:pokes,l:pokes+4,17:forss=1tod*1.5:next:pokes+4,16:goto425
  86. 435 data120,25,30,110,33,135,50,33,135,50,37,162,50,33,135,50,31,165,120,28,49
  87. 440 data120,28,49,120,28,49,120,37,162,50,37,162,50,42,62,50,37,162,50,33,135
  88. 445 data120,31,165,120,25,30,120,25,30,120,42,62,50,42,62,50,44,193,50,42,62
  89. 450 data50,37,162,120,33,135,120,28,49,50,25,30,50,25,30,120,28,49,120,37,162
  90. 455 data120,31,165,250,33,135,-1,-1,-1
  91. 460 data0,0,1,0,0,7,0,0,31,0,0,127,0,1,255,0,0,31,0,0,127,0,1,255,0,7,255
  92. 465 data0,15,255,0,31,255,0,127,255,1,255,255,0,31,255,0,127,255,1,255,255
  93. 470 data3,255,255,7,255,255,31,255,255,127,255,255,255,255,255,0
  94. 475 data0,0,5,0,63,252,3,255,252,15,255,252,63,255,252,21,85,84,21,85,84,42
  95. 480 data170,168,21,149,174,14,174,186,10,170,170,42,170,170,170,170,174,170
  96. 485 data170,174,42,170,170,10,171,170,10,174,160,15,250,176,10,170,255,254,171
  97. 490 data255,255,255,255,0
  98. 495 data0,20,0,0,60,0,0,255,0,3,255,192,15,255,240,21,85,84,21,85
  99. 500 data84,42,170,168,37,105,88,107,170,238,170,170,170,186,170
  100. 505 data174,186,170,174,170,170,170,43,170,232,42,235,168,10,190,160
  101. 510 data2,170,128,63,170,252,255,255,255,255,255,255,0
  102. 515 data80,0,0,15,252,0,15,255,192,15,255,240,15,255,252,5,85,84,5,85
  103. 520 data84,10,170,168,174,86,84,171,186,176,170,170,160,174,170,168
  104. 525 data174,170,170,170,170,170,170,170,168,42,186,168,10,174,160,14
  105. 530 data175,192,255,234,168,255,250,173,255,255,255,0
  106. 535 data0,0,48,0,0,32,0,0,168,0,0,154,0,0,170,0,0,160,0,0,160,0,0,160,0,0,160
  107. 540 data0,0,160,0,0,160,2,70,160,11,234,168,10,190,168,42,170,168,170,254,168
  108. 545 data10,170,160,8,195,32,8,195,32,8,195,32,8,195,32,0
  109. 550 data0,0,0,0,0,160,0,2,8,0,8,70,0,8,2,0,2,8,0,0,160,0,2,8,0,11,254,2,43,254
  110. 555 data0,171,234,2,163,168,0,2,172,8,11,188,40,15,252,42,175,252,10,175,240,0
  111. 560 data15,240,40,42,0,10,168,0,2,128,0,0
  112. 565 data0,0,0,0,0,0,0,0,0,2,170,128,10,185,160,46,85,184,42,85,168,165
  113. 570 data170,90,149,190,86,149,190,86,149,190,86,149,190,86,165,170,90,42
  114. 575 data85,168,46,85,184,10,85,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0
  115. 580 data0,0,0,0,0,0,0,0,0,0,0,0,252,0,0,32,0,0,8,0,0,2,240,0,10,191
  116. 585 data0,42,165,240,10,255,255,2,255,255,10,0,0,8,0,0,32,0,0,252
  117. 590 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  118. 595 data0,128,0,0,144,0,0,132,0,0,133,0,0,133,0,0,133,64,0,133,64,0,133
  119. 600 data80,0,133,80,0,133,84,0,133,84,0,149,85,0,170,170,0,128,0,170,170,170
  120. 605 data191,255,254,47,255,248,47,255,248,11,255,224,2,170,128,0,0,0,0
  121. 610 data0,0,0,0,0,0,0,0,0,0,0,0,2,128,0,10,160,0,59,160,0,250,160,0,10
  122. 615 data160,162,2,130,170,2,170,170,10,170,170,42,170,168,42,170,168,42
  123. 620 data170,160,10,170,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0
  124. 625 data170,170,160,170,170,164,170,170,166,170,170,166,170,170,166
  125. 630 data171,254,166,170,170,166,175,255,166,170,170,166,170,170,166,170
  126. 635 data170,166,170,170,166,170,170,166,170,170,166,170,170,166,170,170
  127. 640 data166,170,170,166,170,170,166,170,170,166,37,85,86,10,170,170,0
  128. 645 data0,168,0,2,170,0,10,102,128,10,102,128,10,170,128,2,170,0,2,170
  129. 650 data0,10,170,128,34,8,32,130,8,8,130,8,8,32,130,32,8,34,32,32,34
  130. 655 data32,128,130,8,130,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  131.