home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 May & June / rerun-1986-05-06.d64 / swish (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  8KB  |  185 lines
  1. 10 poke53281,13:poke53280,5
  2. 15 fort=0to8:readh(t),l(t),d(t):next
  3. 20 ifpeek(12288)=7then40
  4. 25 print"[147][151]please wait 11 seconds"
  5. 30 fort=0to319:reada:poke12288+t,a:next
  6. 35 fort=49152to50155:reada:poket,a:next
  7. 40 v=53248:pokev+21,17
  8. 45 fort=0to4:poke2040+t,192+t:next
  9. 50 pokev,35:pokev+1,174:pokev+39,6
  10. 55 pokev+2,50:pokev+3,155:pokev+40,4:poke2041,192
  11. 60 pokev+6,255:pokev+7,102:pokev+42,8
  12. 65 pokev+8,65:pokev+9,179:pokev+43,9
  13. 70 sys49158
  14. 75 poke708,1:s=54272:fort=stos+24:poket,0:next
  15. 80 pokes+12,0:pokes+13,240:pokes+24,15
  16. 85 gosub470
  17. 90 input"[147] player 1[146] (port 2)";p$(0):p0=(11-len(p$(0)))/2
  18. 95 pokev+39,4
  19. 100 input"[156] player 2[146] (port 1)";p$(1):p1=(11-len(p$(1)))/2
  20. 105 input"[152] what level (easy 0 - 9 hard) [146] 5[157][157][157]";lv:poke693,242+lv
  21. 110 input" ball speed (fast 0 - 9 slow)[146]  5[157][157][157]";bl:kl=bl+3:bl=bl+1
  22. 115 input"[154] match bankshots (y/n) [146] n[157][157][157]";bs$
  23. 120 poke708,0:pokev+39,6
  24. 125 tm$="[154] shotclock:    [157][157][157]"
  25. 130 m$=left$(tm$,12)+"[144] "
  26. 135 sp$="":hl$="horse":pl$="[154]          "
  27. 140 fort=1to40:cl$=cl$+"":sp$=sp$+"":next
  28. 145 p3$=""+cl$
  29. 150 p$(0)=""+left$(p3$,p0+3)+p$(0)
  30. 155 ph$(0)="":ph$(1)=ph$(0)+""
  31. 160 p$(1)="[156]"+left$(p3$,p1+15)+p$(1)
  32. 165 s$="[144]=========================":ss$="[144]=[159]           [144]:[159]           [144]="
  33. 170 print"[147]"s$:fort=1to4:printss$:next
  34. 175 prints$""p$(0)p$(1)
  35. 180 ba$="[223][157] [223][157][157]  [223][157][157][157]   [223][157][157][157][157]    [162][157][157][157][157][157][146][223]   [157][157][157][146][223]  [162][157][157][157][146][223] [157][146][223]"
  36. 185 fort=0to11:bb$=bb$+"[157] ":next
  37. 190 print"",,,ba$"[145][145][145][145][145]"bb$
  38. 195 fort=1to14:di$=di$+"[144][205]":next
  39. 200 fort=1to25:d$=d$+"[144][175]":e$=e$+"[144][183]":next
  40. 205 e$=e$+left$(e$,28)+""
  41. 210 printleft$(sp$,10);d$;di$""e$
  42. 215 f$="[144][175][210][198][198][198][198][198][198][198][198][198][198][157][157][157][157][157][157][157][157][157][157][157][157][157][206][205][157][157][157][157][157][205][205][157][157][157][157][157][205][205]"
  43. 220 f$=f$+"[157][157][157][157][157][183][197][196][195][198][198][198][198][198][198][198][198][198][198][198]"
  44. 225 printleft$(sp$,15),,"[157][157][157]"f$
  45. 230 hh$="[151]  [157][157][157]   [157][157][157]  [157][157][157]"
  46. 235 ho$="   [157][157][157]  [157][157][157]   [157][157][157]"
  47. 240 hr$=" [175][223][157][157][157] [183][146][169][157][157][157] [146][223][223][157][157][157]"
  48. 245 hs$="   [157][157][157][162][146][192][162][157][157][157]   [157][157][157]"
  49. 250 he$="   [157][157][157] [146][192][157][157]   [157][157][157]"
  50. 255 h$="[156]"+hh$+ho$+hr$+hs$+he$:print"",,,""h$""
  51. 260 x=1:ct=7:pokev+21,27:poke254,0:poke253,0
  52. 265 printtm$;ct
  53. 270 x=-x:poke701,0:poke698,1
  54. 275 xx=0:x1=1:ifx=1thenxx=1:x1=0
  55. 280 ifpeek(1282)=176thenpoke698,0:gosub405:goto265
  56. 285 gosub480:ifbu<>0then280
  57. 290 gosub320:ifk=0then265
  58. 295 printtm$;ct:sys49152
  59. 300 ifpeek(253)=0thengosub395:goto315
  60. 305 ifbs$="y"andl=1andpeek(705)=0thengosub415:goto315
  61. 310 gosub410
  62. 315 sys49155:goto270
  63. 320 poke698,0:poke701,1:poke254,xx
  64. 325 o1=xy:o2=yx:xy=peek(v+1+x):yx=peek(v+2+x):k=1
  65. 330 ifpeek(253)=0then350
  66. 335 l=l+1:ifl>1thenl=0:goto350
  67. 340 ifpeek(1282)=176thengosub405:poke698,0:k=0:return
  68. 345 ifabs(xy-o1)>16orabs(yx-o2)>16thengosub400:k=0:return
  69. 350 poke2040+xx,193
  70. 355 pokev+8,peek(v+1+x)+3:pokev+9,peek(v+2+x)-4
  71. 360 gosub480:ifbu<>16then360
  72. 365 gosub480:ifbu<>0then365
  73. 370 ifl=1then390
  74. 375 poke682,1:poke683,1:poke692,kl
  75. 380 ifsw=14thenpoke682,2:poke683,1:goto390
  76. 385 ifsw=13thenpoke682,1:poke683,2:poke692,bl
  77. 390 poke2040+xx,192:return
  78. 395 printm$" missed ":gosub435:return
  79. 400 printm$"[157] too far ":gosub425:return
  80. 405 printm$"too late":gosub420:return
  81. 410 printm$"  good  ":bk=peek(705):return
  82. 415 printm$" nobank ":gosub430:return
  83. 420 ifpeek(253)=1thenl=l+1
  84. 425 poke254,x1:pokev+9,peek(v+2+(-x))+7
  85. 430 poke253,0:gosub500
  86. 435 ifl=0thenreturn
  87. 440 n(xx)=n(xx)+2:ll$=left$(hl$,n(xx)):printph$(xx);ll$
  88. 445 ifn(xx)=10then455
  89. 450 l=0:bk=0:return
  90. 455 poke698,0:gosub470:print"[151] press  y [146] to play again"
  91. 460 geta$:ifa$<>"y"then460
  92. 465 run
  93. 470 fort=0to8:pokes+7,l(t):pokes+8,h(t)
  94. 475 pokes+11,33:fori=1tod(t)*75:next:pokes+11,32:next:return
  95. 480 joy=peek(56320+peek(254)):bu=joyand16:sw=joyand15:return
  96. 485 pokev+10,(peek(v)+1)and255:goto485
  97. 490 pokev+21,59:pokev+9,137
  98. 495 pokev,100:pokev+2,140:pokev+1,131:pokev+3,131:pokev+10,100:pokev+11,106
  99. 500 s=54272:pokes+13,249:pokes+14,252:pokes+8,7:pokes+11,33:pokes+11,32
  100. 505 fort=1to1000:next:return
  101. 510 data 4,48,2,5,152,2,5,71,2,4,180,2,4,48,4,4,180,2,3,134,4,4,48,2,2,204,16
  102. 515 data 7,224,0,63,255,128,127,255,255,127,0,127,255,255,0,223
  103. 520 data 255,0,240,0,0,254,0,0,254,0,0,254,0,0,254,0
  104. 525 data 0,254,0,0,130,0,0,255,24,0,247,96,0,235,236,0
  105. 530 data 247,120,0,250,255,128,245,85,254,255,255,255,127,255,254,128
  106. 535 data 30,0,0,30,0,0,28,0,0,62,0,0,62,0,0,62 
  107. 540 data 0,0,52,0,0,63,0,0,31,128,0,31,255,128,31,255
  108. 545 data 192,31,224,0,63,128,0,32,128,0,53,236,0,58,251,0
  109. 550 data 53,222,0,58,187,128,53,85,254,63,255,255,31,255,254,77
  110. 555 data 0,0,0,0,0,0,3,255,128,15,1,224,25,252,48,48
  111. 560 data 231,248,102,100,28,64,36,156,207,36,62,207,36,158,243,252
  112. 565 data 206,201,191,254,201,25,158,194,73,158,201,9,158,73,72,68
  113. 570 data 67,248,68,63,7,248,24,112,48,15,255,224,3,255,128,178
  114. 575 data 0,0,0,0,0,127,63,255,255,245,85,127,127,255,255,33
  115. 580 data 17,8,33,17,8,33,17,8,33,17,8,18,170,144,20,68
  116. 585 data 80,8,170,32,9,17,32,10,40,160,5,69,64,4,170,64
  117. 590 data 5,17,64,2,170,128,2,68,128,2,68,128,0,0,0,0
  118. 595 data 0,0,0,0,127,0,1,241,192,3,252,96,7,182,240,7
  119. 600 data 255,240,5,255,208,7,127,112,3,237,224,1,255,192,0,127
  120. 605 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0       
  121. 610 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,77      
  122. 615 data 76,87,193,76,242,194,169,0,160,80,153,167,2,136,208,250
  123. 620 data 133,253,133,254,133,251,169,220,133,252,141,170,2,141,171,2
  124. 625 data 169,253,141,175,2,169,254,141,172,2,169,0,160,24,153,0
  125. 630 data 212,136,208,250,169,15,141,24,212,120,169,70,141,20,3,169
  126. 635 data 192,141,21,3,88,96,173,30,208,141,177,2,173,196,2,240
  127. 640 data 6,238,0,208,238,8,208,173,186,2,240,20,206,182,2,208
  128. 645 data 20,206,2,5,173,2,5,201,177,176,5,162,0,142,186,2
  129. 650 data 169,60,141,182,2,173,189,2,208,65,173,174,2,208,6,206
  130. 655 data 9,208,76,136,192,238,9,208,166,254,240,1,232,24,189,0
  131. 660 data 208,105,10,141,8,208,56,173,9,208,253,1,208,201,1,144
  132. 665 data 7,201,10,176,11,76,187,192,238,9,208,169,1,76,181,192
  133. 670 data 206,9,208,169,0,141,174,2,32,131,195,160,1,162,2,196
  134. 675 data 254,240,8,169,0,141,169,2,76,208,192,169,1,141,169,2
  135. 680 data 173,189,2,240,8,173,169,2,240,3,76,43,193,177,251,74
  136. 685 data 176,20,72,189,1,208,201,112,240,11,222,1,208,173,169,2
  137. 690 data 240,3,206,9,208,104,74,176,20,72,189,1,208,201,220,240
  138. 695 data 11,254,1,208,173,169,2,240,3,238,9,208,104,74,176,12
  139. 700 data 72,189,0,208,201,24,240,3,222,0,208,104,74,176,12,72
  140. 705 data 189,0,208,201,240,176,3,254,0,208,104,162,0,136,208,3
  141. 710 data 76,191,192,238,175,2,240,3,76,187,192,169,253,141,175,2
  142. 715 data 76,49,234,138,72,152,72,174,180,2,160,0,136,208,253,202
  143. 720 data 208,248,104,168,104,170,96,169,0,160,10,153,187,2,136,208
  144. 725 data 250,133,253,169,35,141,178,2,169,17,141,4,212,141,189,2
  145. 730 data 32,198,195,169,238,141,163,194,173,192,2,240,3,76,208,194
  146. 735 data 172,170,2,174,171,2,136,16,3,76,80,194,173,9,208,208
  147. 740 data 21,173,188,2,240,3,76,60,194,173,8,208,201,255,208,3
  148. 745 data 76,169,194,76,80,194,173,190,2,240,8,206,190,2,208,8
  149. 750 data 76,60,194,173,188,2,208,3,76,63,194,173,9,208,201,180
  150. 755 data 176,90,201,150,240,118,201,97,208,117,173,191,2,208,112,173
  151. 760 data 8,208,201,236,176,11,173,193,2,208,100,32,220,195,76,63
  152. 765 data 194,201,254,176,5,205,181,2,176,35,169,15,141,184,2,173
  153. 770 data 185,2,201,65,176,5,169,31,141,184,2,173,27,212,45,184
  154. 775 data 2,141,190,2,238,190,2,32,131,195,76,54,194,169,1,133
  155. 780 data 253,169,252,141,8,208,32,163,195,76,63,194,169,196,141,252
  156. 785 data 7,169,32,141,29,208,169,9,141,43,208,169,1,141,192,2
  157. 790 data 141,194,2,32,131,195,32,198,195,76,63,194,32,209,195,206
  158. 795 data 9,208,173