home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / wallbreaker (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  6KB  |  169 lines
  1. 10 print"[147][158]":poke53280,0:poke53281,0:      printchr$(142) chr$(8)
  2. 11 print"          public domain software 1985"
  3. 12 print"[145][145][145][145]"
  4. 13 a$=a$+" ":x=x+1
  5. 14 printa$"[207][208]
  6. 15 [153]a$"    waitand(NULL)wait
  7. 16 printa$"[209][209][209][209] [223]
  8. 17 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  9. 18 ifx=1thenfort=0to4000:next
  10. 19 print"[145][145][145][145][145][145]"
  11. 20 ifa$=>"                                 "then23
  12. 21 fort=0to18:next
  13. 22 goto13
  14. 23 print""
  15. 30 print"[213][201]  [213][201][213][192][192][192][201][213][201]  [213][201]
  16. 35 [153]"(NULL)(NULL)  (NULL)(NULL)(NULL)(NULL)tanright$(NULL)(NULL)(NULL)  (NULL)(NULL)
  17. 40 print"[221][221]  [221][221][221][221][213][203][221][221][221]  [221][221]   [213][192][192][201]
  18. 45 [153]"(NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)mid$right$(NULL)(NULL)(NULL)  (NULL)(NULL)   mid$tantan(NULL)
  19. 50 print"[221][202][203][202][203][221][221][221] [221][221][221][202][192][201][221][202][192][201]
  20. 55 [153]"mid$tantantantan(NULL)mid$(NULL) mid$(NULL)mid$tantan(NULL)mid$tantan(NULL)
  21. 60 print"[213][192][192][192][192][201][213][192][192][192][201][213][192][192][201][213][192][192][201][213][201][176][174] [213][192][192][201][213][192][192][192][201]
  22. 65 [153]"(NULL)ortanright$ (NULL)(NULL)ortanright$(NULL)(NULL)ortan(NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)ortanexp(NULL)ortanright$(NULL)
  23. 70 print"[221][173][192][203][213][203][221][173][192][203][221][221][202][201] [221][202][203][221][221][173][203][173][201][221][173][174] [221][173][192][203][221]
  24. 75 [153]"(NULL)ortanright$mid$right$(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)ortanright$(NULL)(NULL)orexp (NULL)(NULL)right$(NULL)(NULL)
  25. 80 print"[221][173][192][203] [221][221][221][221][221] [221][173][192][201][221][221][221][221][221][221] [221][221][221][173][192][174][221][221][221][221]
  26. 85 [153]"mid$tantantantan(NULL)mid$(NULL)mid$(NULL) mid$tantan(NULL)mid$(NULL)mid$(NULL)mid$(NULL) mid$(NULL)mid$tantan(NULL)mid$(NULL)mid$(NULL)
  27. 90 print"written by i.gaffling
  28. 95 [161]ks$:[139]ks$[178]""[167]95
  29. 100 [153]"load":[151]51,255:[151]52,79:[156]:[151]53280,0:[151]53281,0:[153][199](14) [199](8)
  30. 110 [140]:[141]730:ta[178]5:[134]hd(24),hd$(24)
  31. 120 si[178]54272:[151]54295,0:[151]54296,15:[151]si[170]2,0:[151]si[170]3,8
  32. 130 [151]si[170]5,0:[151]si[170]6,240:[151]si[170]4,17:si[178]54273
  33. 140 [134]j(255):j(120)[178]1:j(247)[178]2:j(208)[178]3:j(160)[178]4:j(234)[178]5
  34. 150 [153]"load"[199](142)"gosubhighscore to date:cont"hd
  35. 160 a[178]1024:x[178]0:x1[178]1:y[178]21:y1[178][171]1:p1[178]a[170]960:l[178]1884:zx%[178]1:an[178]0
  36. 170 [129]i[178]1[164]ta:[151]2023[171]i,81:[151]56295[171]i,7:[130]
  37. 180 [153]"forusr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)"
  38. 190 [153]"on + + + + + + + + + + + + + + + + + + + +"
  39. 200 [153]"onusr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)"
  40. 210 [153]"on + + + + + + + + + + + + + + + + + + + +"
  41. 220 [153]"onusr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)"
  42. 230 [153]"on + + + + + + + + + + + + + + + + + + + +"
  43. 240 [153]"onprint#usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)"
  44. 250 [153]"on + + + + + + + + + + + + + + + + + + + +pokewaitusrusrusrusr"
  45. 260 [153]"foryour score:verify"pu"on":[129]i[178]0[164]400:[130]
  46. 270 [151]si[170]3,17
  47. 280 [158]20481:[151]si,0:sw[178]sw[170]1:[139]sw[178]4[167]sw[178]0:[158]20481
  48. 290 [161]br$:[139]br$[179][177]" "[167]310
  49. 300 [161]br$:[139]br$[179][177]" "[167]300
  50. 310 x[178]x[170]x1:[139]x[179]0[176]x[177]39[167]x[178]x[171]x1:x1[178][171][180](x1)[172][181](2[172][187](1)[170]1):[151]si,10
  51. 320 y[178]y[170]y1
  52. 330 [139]y[179]1[167]y[178]y[171]y1:y1[178][171]y1:[151]si,15
  53. 340 [139]zx%[178]0[167][139][194](p1)[179][177]120[167][151]p1,32
  54. 350 zx%[178]0:p1[178]a[170]40[172]y[170]x:[139]y[177]23[167]540
  55. 360 [139][194](p1)[179][177]32[167]380
  56. 370 [151]p1,81:[151]p1[170]54272,7:[137]280
  57. 380 dd[178][194](p1)
  58. 390 [145]j(dd)[137]410,420,440,460,480
  59. 400 [137]520
  60. 410 y1[178][171]y1:[151]p1,120:[151]p1[170]54272,11:[151]si,20:[151]si,15:zx%[178]1:[137]280
  61. 420 [151]p1,32:[151]p1[170]1,32:[151]p1[170]40,32:[151]p1[170]41,32:[151]si,y[172]8:[151]si,y[172]5
  62. 430 [137]490
  63. 440 [151]p1,32:[151]p1[171]1,32:[151]p1[170]39,32:[151]p1[170]40,32:[151]si,y[172]8:[151]si,y[172]5
  64. 450 [137]490
  65. 460 [151]p1,32:[151]p1[170]1,32:[151]p1[171]39,32:[151]p1[171]40,32:[151]si,y[172]8:[151]si,y[172]5
  66. 470 [137]490
  67. 480 [151]p1,32:[151]p1[171]1,32:[151]p1[171]41,32:[151]p1[171]40,32:[151]si,y[172]8:[151]si,y[172]5
  68. 490 pu[178]pu[170](12[171]y)[172]5:an[178]an[170]1:[139]an[177]79[167]an[178]0:[141]950:[153]"load":[151]20480,1:[137]150
  69. 500 pn[178]pn[170](12[171]y)[172]5
  70. 510 [139]pn[177]5000[167]pn[178]0:ta[178]ta[170]1:[151]2023[171]ta,81:[151]56295[171]ta,7:[141]880
  71. 520 [153]"foryour score:verify"pu"on"
  72. 530 y1[178][171]y1:[151]p1,81:[151]p1[170]54272,7:[137]280
  73. 540 x[178]0:x1[178][181](2[172][187](1)[170]1):y[178]21:y1[178][171]1
  74. 550 [151]2023[171]ta,32
  75. 560 ta[178]ta[171]1:[139]ta[177][178]0[167][151]si[170]3,33:[129]i[178]70[164]180:[141]720:[130]:zx%[178]1:[137]270
  76. 570 [153]"load      ortantantantantantantantantantantantantantantantantantantantantantan^"[199](14)
  77. 580 [153]"      (NULL)                      (NULL)"
  78. 590 [153]"      (NULL) poke chr$ a m e  o v e r ! wait (NULL)"
  79. 600 [153]"      (NULL)                      (NULL)"
  80. 610 [153]"      /tantantantantantantantantantantantantantantantantantantantantantanexp"
  81. 620 [129]i[178]0[164]10:[151]si,i[172]2:[153]""[163]8)" chr$ a m e  o v e r ! ":[141]1000
  82. 630 [151]si,20[171]i[172]2:[153]""[163]8)"poke chr$ a m e  o v e r ! wait":[141]1000:[130]
  83. 640 [153]"clr         (NULL)our score:"pu
  84. 650 [129]i[178]0[164]800:[130]:[151]198,0
  85. 660 ta[178]0:[139]pu[177]hd[167]hd[178]pu:[153]"for    (NULL)eel done, new left$ighscore !!"
  86. 670 [141]1010
  87. 680 [153]" (NULL)ill you play again, press any key ! "
  88. 690 an[178]0:pu[178]0:pn[178]0:ta[178]2
  89. 700 [139][194](203)[178]64[175][194](653)[178]0[167]700
  90. 719 [153]"load":[151]20480,1:[137]150
  91. 720 [151]si,i[173]4:[151]si,i[173]3:[151]si,i[173]6:[142]
  92. 730 [153]"load               (NULL)he (NULL)eys                 "
  93. 740 [153]"for               ortantantan=tantantan^  "
  94. 750 [153]"      print#(NULL)eftwaitprint# <-- for(NULL)poke (NULL) waitfor(NULL)poke (NULL) waitfor(NULL) --> print#wait(NULL)ightwait"
  95. 760 [153]"for               /tantantan>tantantanexp"
  96. 770 [153]"verify (NULL)ou must hit with your racket and a"
  97. 780 [153]" ball  the bricks out  of the wall !right$f"
  98. 790 [153]" the ball drops  down the floor you get"
  99. 800 [153]" a new one. atnt beginning you have three"
  100. 810 [153]" balls, but  every 5000  points you get"
  101. 820 [153]" one more. (NULL)hen  no balls are left, you"
  102. 830 [153]" lose and the game breaks."
  103. 840 [153]"   atnll right ?  (NULL)hen press any key !    "
  104. 850 y[178]700:[129]i[178]20480[164]20549:[135]a:[151]i,a:[130]
  105. 860 y[178]y[171]1:[139]y[177]0[175][194](203)[178]64[175][194](653)[178]0[167]860
  106. 870 [142]
  107. 880 [153]"foryour score:verify"pu"on":[151]si[170]3,65
  108. 890 [151]p1,81:[151]p1[170]54272,7:[129]i[178]0[164]100
  109. 900 [153]"for"[163]8)"***** new ball ! *****"
  110. 910 [151]si,i:[151]si,i[173]2:[151]si,100[171]i
  111. 920 [153]"poke"[163]8)"***** new ball ! *****wait"
  112. 930 [130]:[153]""[163]8)"                      "
  113. 940 [151]si[170]3,17:[142]
  114. 950 [153]"foryour score:verify"pu"on":[151]si[170]3,65
  115. 960 [129]i[178]0[164]180:[151]si[170]3,17:[151]si,i[173]3:[151]si[170]3,33:[151]si,i[173]2.5
  116. 970 [151]p1,81:[151]p1[170]54272,7
  117. 980 [151]si[170]3,65:[151]si,90[171]i[173]2:[130]
  118. 990 [151]si[170]3,17:[142]
  119. 1000 [129]j[178]0[164]100:[130]:[142]
  120. 1010 [153]"poke     (NULL)lease give your initials :"
  121. 1020 [153]"for             (NULL)   wait verify-->   (NULL)p
  122. 1030 print"[129]             [206]   [146] [149]-->   [196]own
  123. 1040 [153]"for           (NULL)pace wait verify-->   ascix
  124. 1050 print"[154]"tab(18)"---"
  125. 1060 print"":poke650,128:le=64:le$="":pokesi+3,65
  126. 1070 fori=0to2
  127. 1080 geta$:ifa$<>"m"anda$<>"n"anda$<>" "then1080
  128. 1090 pokesi,le:pokesi,le/3
  129. 1100 ifa$="m"thenle=le+1:ifle>90thenifle<95thenle=95
  130. 1110 ifa$="m"thenifle>95thenle=45
  131. 1120 ifa$="m"thenifle>45thenifle<65thenle=65
  132. 1130 ifa$="n"thenle=le-1:ifle<45thenle=95
  133. 1140 ifa$="n"thenifle<95thenifle>90thenle=90
  134. 1150 ifa$="n"thenifle<65thenifle>45thenle=45
  135. 1160 ifa$<>" "then1220
  136. 1170 ifle=95thenle$="":i=0:print""tab(18)"---":le=65:goto1220
  137. 1180 ifle=45thenle=32:goto1200
  138. 1190 le=le+128
  139. 1200 le$=le$+chr$(le):forj=0to100:next:pokesi,0:le=45
  140. 1210 print""tab(18)le$:goto1250
  141. 1220 ifle<>45andle<>95thenze=le+128:goto1240
  142. 1230 ze=le
  143. 1240 pokesi,0:print""tab(18+i)chr$(ze):goto1080
  144. 1250 nexti
  145. 1260 print"                                  "
  146. 1270 print"                              "
  147. 1280 print"                               "
  148. 1290 print"                               "
  149. 1300 print""tab(18)"   "
  150. 1310 fori=1to24
  151. 1320 ifpu>hd(i)thengosub1420:i=24
  152. 1330 next
  153. 1340 ifle<>45thenze=le+32
  154. 1350 print"          [200]all of [198]ame:              [146]"
  155. 1360 fori=1to12:print"[129]";
  156. 1370 printtab(3)right$("  "+str$(i),2)"  [149]"right$("      "+str$(hd(i)),6);
  157. 1380 print" [151]"hd$(i)"[129]";
  158. 1390 printtab(22)right$("  "+str$(i+12),2)"  [149]"right$("      "+str$(hd(i+12)),6);
  159. 1400 print" [151]"hd$(i+12)
  160. 1410 next:return
  161. 1420 forj=24toistep-1
  162. 1430 hd(j)=hd(j-1):hd$(j)=hd$(j-1)
  163. 1440 next
  164. 1450 hd(i)=pu:hd$(i)=le$:return
  165. 1460 data1,164,203,174,,80,192,36,240,29,192,39,240,1,96,202,208,1,96,142,,80
  166. 1470 data169,120,157,151,7,169,11,157,151,219,232,169,32,157,155,7,96,232,224,37
  167. 1480 data208,1,96,142,,80,169,120,157,155,7,169,11,157,155,219,202,169,32,157
  168. 1490 data151,7,96,,,,,
  169.