home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 16 / Commodore_Disc_16_19xx_-_de.d64 / crash (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  206 lines
  1. 30 print"";
  2. 40 kk=32768-1024
  3. 100 :
  4. 120 si=54272:pokesi+24,15:pokesi+5,25:pokesi+6,68:pokesi+4,17
  5. 130 s3=si+1:pokes3,0
  6. 140 print"[147]":poke59468,12:poke53280,9:poke53281,7:gosub1480
  7. 150 data1,-1,1963,1,-40,-40,1309,3,-1,1, 964,2,40,40,1334,5
  8. 160 :
  9. 170 yu=56320:yv=56320
  10. 180 dimp(3),q(3),a(120),i(3),j(3),k(3)
  11. 190 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 200 print"[145]ein spiel geschrieben von [144] mike holzheu [146]"
  13. 205 forrr=1to200:pokes3,rr:next
  14. 210 print"[129] willst du die spielregeln? ([144]j[129]/[144]n[129])":pp=peek(yv)
  15. 211 print"               (joystick links/rechts)"
  16. 212 ifpp=119thenpokes3,0:goto480
  17. 214 print"[145][145][145][145][145] [144]mike holzheu[145]"
  18. 216 forrr=200to0step-1:pokes3,rr:next
  19. 220 ifpp<>123thenprint"[145][145]":goto200
  20. 222 pokes3,0
  21. 230 poke53272,23:print"[147][144][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
  22. 240 print"[169]                                      [169]";
  23. 250 print"[223] [196][213][160][211][212][197][213][197][210][211][212][160][197][201][206][197][206][160][210][197][206][206][215][193][199][197][206][160][201][206][160][197][201][206][197][205] [169]";
  24. 260 print"[169] [204][193][194][217][210][201][206][212][200]. [196][197][210][160] [150][214][195]-64[144] [160][211][212][197][213][197][210][212][160][197][201][206][197][206] [223]";
  25. 270 print"[169] [197][206][212][199][197][199][197][206][199][197][211][197][212][218][212][160][198][193][200][210][197][206][196][197][206][160][215][193][199][197][206].[160][196][213]  [169]";
  26. 280 print"[223] [211][212][197][213][197][210][211][212][160][205][201][212] [196][197][205] [202][207][217][211][212][201][195][203]. [208][193][211][211][160][193][213][198], [223]";
  27. 290 print"[169][160][196][193][211][211] [201][200][210][160][206][201][195][200][212][160][203][207][204][204][201][196][201][197][210][212] !!!        [169]";
  28. 300 print"[223] [211][212][197][213][197][210][210][213][206][199]:   oben                   [223]";
  29. 310 print"[169]                 [221]                    [169]";
  30. 320 print"[223]          links [192][219][192] rechts            [223]";
  31. 330 print"[169]                 [221]                    [169]";
  32. 340 print"[223]               unten                  [223]";
  33. 350 print"[169]                                      [169]";
  34. 360 print"[223][205][201][212][160][196][197][205] [203][206][207][208][198] [203][193][206][206][211][212][160][196][213][160][194][197][211][195][200][204][197][213][206][201][199][197][206] [223]";
  35. 370 print"[169]                                      [169]";
  36. 380 print"[223]                                      [169]";
  37. 390 print"[169]     [160][160][160][160][214][160][201][160][197][160][204][160][160][160][211][160][208][160][193][160][211][160][211] ! ! !    [169]";
  38. 400 print"[223]                                      [223]";
  39. 410 print"[169][223][169][223][169][223][169][223][169][223][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]"
  40. 420 print""
  41. 430 print"[129]  zum  start  den  knopf  druecken ! "
  42. 440 poke33607-kk,peek(33568-kk)
  43. 450 fori=1to50:nexti
  44. 460 print"[145] "chr$(20):if(peek(yv)and16)=16then440
  45. 470 poke53272,21
  46. 480 lx=46:rt=93:rs=32:ru=96:rv=87:rw=81:jl=64
  47. 490 gosub1710
  48. 500 fori=0to3:readp(i),q(i),i(i),c(i):a(i)=i:k(i)=32:nexti
  49. 510 k=32:m=2:i=33708-kk:pokei,rw:a=0:c=1:poke33707-kk,rv:ma=ma+360
  50. 520 ifn>=1thenpokei(1),rv:m=4
  51. 530 pokes3,237
  52. 540 ifn>=2thenpokei(2),rv:m=5
  53. 550 ifn>=3thenpokei(3),rv:m=6
  54. 560 pokes3,0
  55. 570 az$="[156]start in
  56. 580 [153]az$:[153][163]12)" in   3  sekunden":[129]un[178]1[164]100:[151]s3,237:[130]
  57. 590 [153]az$:[153][163]12)" in   2  sekunden":[129]un[178]1[164]100:[151]s3,147:[130]
  58. 600 [153]az$:[153][163]12)" in   1  sekunde for":[129]un[178]1[164]100:[151]s3,177:[130]
  59. 610 [151]s3,0
  60. 620 [153]"sys score  forwait":[153][163]12)"                on"
  61. 630 [153][163]19)"on-cmd(NULL)cmd>onclrhighfor=clr"[202]([196](hi),2)"foron"
  62. 640 un[178]1:ox[178]12
  63. 650 [151]s3,41
  64. 660 x[178]un:[139][194](yv)[179]112[167]x[178]m
  65. 670 [151]s3,0
  66. 680 [129]w[178]un[164]x
  67. 690 j[178]i[170]p(a)
  68. 700 l[178][194](j):[139]l[179][177]jl[175]l[179][177]rt[137]730
  69. 710 a[178]a[170]un:[139]a[178]4[167]a[178]0
  70. 720 [137]690
  71. 730 [139]k[179][177]lx[137]820
  72. 740 pt[178]pt[170]un:[139]pt[179]ma[171]n[167][153][163]ox)"sys";pt"onfor":k[178]rs:[137]1110
  73. 750 n[178]n[170]1:[140]:[153][163]12)"sys";pt"foron"
  74. 760 [153][163]20)" clr bravo waitfor "
  75. 770 [139]n[178]4[167]n[178]n[171]1
  76. 780 [153][166]40);"zum durchgang"n[170]1"cmd fertigmachen   "
  77. 790 [153]" und weiter gehts mitdem knopf"
  78. 800 [139][194](yv)[179][177]111[167][141]3000:[137]800
  79. 810 [137]480
  80. 820 [139]k[178]rs[137]1110
  81. 830 [139]k[178]rv[137]1340
  82. 840 p[178][194](yv):[139]p[179]111[167]p[178]p[170]16
  83. 850 [139]p[178]125[167]d[178]2:[137]900
  84. 860 [139]p[178]126[167]d[178]8:[137]900
  85. 870 [139]p[178]123[167]d[178]4:[137]900
  86. 880 [139]p[178]119[167]d[178]6:[137]900
  87. 890 [137]1110
  88. 900 [145]d[173]2[137]910,960,1010,1060
  89. 910 [139]a[178]1[176]a[178]3[137]1110
  90. 920 [139]c[178]1[175]a[178]0[137]1110
  91. 930 [139]c[178]5[175]a[178]2[137]1110
  92. 940 [139]a[178]0[167]j[178]i[170]81:c[178]c[171]1:l[178][194](j):[137]1110
  93. 950 j[178]i[170]79:c[178]c[170]1:l[178][194](j):[137]1110
  94. 960 [139]a[178]0[176]a[178]2[137]1110
  95. 970 [139]c[178]1[175]a[178]3[137]1110
  96. 980 [139]c[178]5[175]a[178]1[137]1110
  97. 990 [139]a[178]1[167]j[178]i[171]42:l[178][194](j):c[178]c[170]1:[137]1110
  98. 1000 j[178]i[170]38:l[178][194](j):c[178]c[171]1:[137]1110
  99. 1010 [139]a[178]0[176]a[178]2[137]1110
  100. 1020 [139]c[178]1[175]a[178]1[137]1110
  101. 1030 [139]c[178]5[175]a[178]3[137]1110
  102. 1040 [139]a[178]1[167]j[178]i[171]38:l[178][194](j):c[178]c[171]1:[137]1110
  103. 1050 j[178]i[170]42:l[178][194](j):c[178]c[170]1:[137]1110
  104. 1060 [139]a[178]1[176]a[178]3[137]1110
  105. 1070 [139]c[178]1[175]a[178]2[137]1110
  106. 1080 [139]c[178]5[175]a[178]0[137]1110
  107. 1090 [139]a[178]0[167]j[178]i[171]79:l[178][194](j):c[178]c[170]1:[137]1110
  108. 1100 j[178]i[171]81:l[178][194](j):c[178]c[171]1:[137]1110
  109. 1110 [151]s3,187:[151]s3,0
  110. 1120 [151]i,k:[151]j,rw:k[178]l:i[178]j:[130]w
  111. 1130 [129]b[178]ze[164]n
  112. 1140 j(b)[178]i(b)[170]q(a(b))
  113. 1150 l(b)[178][194](j(b)):[139]l(b)[179][177]jl[175]l(b)[179][177]rt[167]1180
  114. 1160 a(b)[178]a(b)[170]un:[139]a(b)[178]4[167]a(b)[178]0
  115. 1170 [137]1140
  116. 1180 [139]k(b)[178]rs[176]k(b)[178]rs[176]k(b)[178]lx[137]1320
  117. 1190 [139]k(b)[178]rw[137]1340
  118. 1200 v[178][180](c[171]c(b))[170]2
  119. 1210 [145](v)[137]1220,1320,1230
  120. 1220 c(b)[178]c(b)[171]1:[145]a(b)[170]1[141]1240,1250,1260,1270:l(b)[178][194](j(b)):[137]1320
  121. 1230 c(b)[178]c(b)[170]1:[145]a(b)[170]1[141]1280,1290,1300,1310:l(b)[178][194](j(b)):[137]1320
  122. 1240 j(b)[178]i(b)[170]79:[142]
  123. 1250 j(b)[178]i(b)[171]42:[142]
  124. 1260 j(b)[178]i(b)[171]79:[142]
  125. 1270 j(b)[178]i(b)[170]42:[142]
  126. 1280 j(b)[178]i(b)[171]81:[142]
  127. 1290 j(b)[178]i(b)[171]38:[142]
  128. 1300 j(b)[178]i(b)[170]81:[142]
  129. 1310 j(b)[178]i(b)[170]38:[142]
  130. 1320 [151]s3,0:[151]i(b),k(b):[151]j(b),rv:i(b)[178]j(b):k(b)[178]l(b):[130]b
  131. 1330 [137]650
  132. 1340 [139]pt[177]hi[167]1400
  133. 1350 [153]"def":[141]1480:[153]"for";
  134. 1360 [153]"du hast in diesem durchgangsys"pt"cmd punkte     erreicht.";
  135. 1370 [153]" weiter gehts mit knopfdruckfor"
  136. 1380 [139][194](yv)[179][177]111[167]1990
  137. 1390 kl[178]0:pt[178]0:n[178]0:ma[178]0:[140]:[137]480
  138. 1400 pt$[178][196](pt):a[178][195](pt$):[129]i[178]a[164]5:pt$[178]pt$[170]" ":[130]i
  139. 1410 [139]hi[178]0[167]hi[178]pt:hi$[178]pt$:[137]1350
  140. 1420 [153]"def":[141]1480:[153]"for";
  141. 1430 [153]"stopgratulation !"
  142. 1440 [153]"du hast einen neuen rekord erreicht !!  ";
  143. 1450 [153]"deine punktzahl betrugsys"pt$"punkte.     ";
  144. 1460 [153]"der alte rekord war clr"hi$"punkte.       for";
  145. 1470 hi$[178]pt$:hi[178]pt:[137]1370
  146. 1480 :
  147. 1490 [153]"tototo  totototo  tototo  totototo  to  to"
  148. 1500 [153]"(NULL)  (NULL)fn(NULL)   (NULL)fn(NULL)   (NULL)then(NULL)   (NULL)then(NULL)(NULL)then(NULL)(NULL)"
  149. 1510 [153]"   wait(NULL)     wait fn     waitthen     waitthen  waitthen  wait"
  150. 1520 [153]" wait fn   wait (NULL) wait fn wait (NULL)fn waitthen  waittoto then  waitsqr  wait"
  151. 1530 [153]" wait fn   wait(NULL)  wait fn wait(NULL) (NULL) waitthen  wait  (NULL)then  wait (NULL) wait"
  152. 1540 [153]" wait fn      wait(NULL)      wait (NULL)    waitthen     wait"
  153. 1550 [153]" wait (NULL)to  waitthen wait fn  wait fnfn wait totosqr  waitthen  waitthen  wait"
  154. 1560 [153]" wait(NULL) (NULL)fn waitthen wait fn  wait fnfn waitthen(NULL)  (NULL) waitthen  waitthen  wait"
  155. 1570 [153]"tototowait(NULL) towait(NULL)towait(NULL)  towait(NULL) (NULL)towait (NULL)totototowait (NULL)towait (NULL)towait":[141]1650
  156. 1580 :
  157. 1590 [129]i[178]1[164]20
  158. 1600 [129]j[178]1[164]5:[151]s3,128[170]j[172]10:[130]j
  159. 1610 [151]53272,23
  160. 1620 [129]a[178]1[164]5:[151]s3,178[171]a[172]10:[130]a
  161. 1630 [151]53272,21:[130]i
  162. 1640 [151]s3,0:[142]
  163. 1650 [153]"step  waitstep stepwaitstepstepwaitstep  stepwaitstep   (NULL)(NULL)wait (NULL)   (NULL)wait (NULL)(NULL)wait (NULL)(NULL)wait
  164. 1660 print"[169][146][169]   [169][146][169][169][146][169]  [169][146][169]     [223][223][146]    [223][223][146] [223][223][146] [223][223][146]
  165. 1670 [153]"stepwaitstep   step   waitstep step         (NULL)wait (NULL)   (NULL)wait (NULL)   (NULL)wait
  166. 1680 print"[169][146][169]   [169][146][169] [169][146][169] [169][146][169]         [223][223][146] [223][223][146]    [223][223][146] [223][223][146]
  167. 1690 [153]"step  waitstep step   waitstep step             (NULL)wait (NULL)   (NULL)wait (NULL)(NULL)wait (NULL)(NULL)wait
  168. 1700 return
  169. 1710 print"[147]";:a=40:c=93:poke53280,9:poke53281,9
  170. 1720 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":poke32807-kk,110
  171. 1730 poke32807-kk+si,8:print"[221][144].................[160] [160] .................[129]"
  172. 1740 print"[221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][144].[129]"
  173. 1750 print"[221][144].[129][221][144]...............[160] [160] ...............[129][221][144].[129]"
  174. 1760 print"[221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129]"
  175. 1770 print"[221][144].[129][221][144].[129][221][144].............[160] [160] .............[129][221][144].[129][221][144].[129]"
  176. 1780 print"[221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129]"
  177. 1790 print"[221][144].[129][221][144].[129][221][144].[129][221][144]...........[160] [160] ...........[129][221][144].[129][221][144].[129][221][144].[129]"
  178. 1800 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  179. 1810 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].........[160] [160] .........[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  180. 1820 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129][176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  181. 1830 print"[221][144][160] [160] [160] [160] [160][129][221][144]        [129][221]  crash[129]  [221][144][160] [160] [160] [160] [160][129]"
  182. 1840 print"[221][144][160] [160] [160] [160] [160][129][221][144]        [129][173][192][192][192][192][192][192][192][192][192][179][144]         [129]"
  183. 1850 print"[221][144]         [129][221][144]        [129]          [221][144][160] [160] [160] [160] [160][129]"
  184. 1860 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  185. 1870 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][221][144].........[160] [160] .........[129][221][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  186. 1880 print"[221][144].[129][221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129][221][144].[129]"
  187. 1890 print"[221][144].[129][221][144].[129][221][144].[129][221][144]...........[160] [160] ...........[129][221][144].[129][221][144].[129][221][144].[129]"
  188. 1900 print"[221][144].[129][221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129][221][144].[129]"
  189. 1910 print"[221][144].[129][221][144].[129][221][144].............[160] [160] .............[129][221][144].[129][221][144].[129]"
  190. 1920 print"[221][144].[129][221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129][221][144].[129]"
  191. 1930 print"[221][144].[129][221][144]...............[160] [160] ...............[129][221][144].[129]"
  192. 1940 print"[221][144].[129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144].[129]"
  193. 1950 print"[221][144].................[160] [160] .................[129]"
  194. 1960 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";""
  195. 1970 fori=32847-kkto33727-kkstepa:pokei,c:pokei+54272,8:nexti
  196. 1980 poke2023,125:poke2023+si,8:return
  197. 1990 rem **** animation ****
  198. 2000 ifkl=1then2020
  199. 2010 print"       spiele   c r a s h   mit mir    [129]";:t1=ti
  200. 2020 kl=1:poke32807-kk,peek(32768-kk):print" "chr$(20) :forkp=1to100:next
  201. 2025 poke32807-kk+si,1
  202. 2030 ift1+360>tithen 1380
  203. 2040 t1=ti:gosub 1590:goto 1380
  204. 3000 return
  205. 60000 printpeek(203):goto60000
  206.