home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / notlandung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  299 lines
  1. 100 rem ************************
  2. 110 rem *                      *
  3. 120 rem *     'notlandung'     *
  4. 130 rem ************************
  5. 140 rem
  6. 150 rem *sprite-register auf 0 setzen*
  7. 160 forx=53248to53263:pokex,0:nextx
  8. 170 gosub2020:rem ***titel***
  9. 180 poke53265,peek(53265)and239:rem bildschirm wegblenden
  10. 190 gosub2280:rem ***landschaft***
  11. 200 v=53248:s=54272
  12. 210 rem *** sonne ***
  13. 220 fori8=12736to12798:readq8:pokei8,q8:next
  14. 230 poke2047,199:rem zeiger
  15. 240 pokev+21,128:rem spr.einsch.
  16. 250 pokev+27,128:rem hintergr.priorit.
  17. 260 pokev+46,8  :rem farbe
  18. 270 pokev+14,72:rem x-pos.
  19. 280 pokev+15,98:rem y-pos.
  20. 290 forbr=1to350:nextbr
  21. 300 poke53265,peek(53265)or16:rem bildschirm zuruecksetzen
  22. 310 rem **  landung**
  23. 320 fori=12288to12350:readq:pokei,q:next
  24. 330 fori6=12608to12670:readq6:pokei6,q6:nexti6
  25. 340 fori7=12672to12734:readq7:pokei7,q7:nexti7
  26. 350 poke2040,192:rem zeiger setzen
  27. 360 pokev+21,129:rem sprite einschalten
  28. 370 pokev+29,1:rem in x-richt.vergr.
  29. 380 pokev+39,8:rem sprite-farbe
  30. 390 pokev+28,1:rem farbmodus setzen
  31. 400 pokev+37,1:rem 1.farbe
  32. 410 pokev+38,3:rem 2.farbe
  33. 420 pokev,150:rem sprite x-pos.
  34. 430 forl=stos+24:pokel,0:nextl
  35. 440 fork=7to24:readx:pokes+k,x:nextk
  36. 450 pokes+11,65:pokes+18,65
  37. 460 pokes+5,9:pokes+6,2
  38. 470 fori=35to157
  39. 480 pokes+5,0
  40. 490 pokes+1,6 :rem tonhoehe
  41. 500 pokes,177:rem nied.frequenz
  42. 510 pokes+4,65 :rem rechteck
  43. 520 pokes+4,32 :rem rechteck ausloesen
  44. 530 pokev+1,i:rem sprite y-pos.
  45. 540 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreh-effekt m.zeile 230
  46. 550 for br=1to5 :nextbr
  47. 560 poke12294,21:poke12295,85:poke12296,85
  48. 570 nexti
  49. 580 rem ***rotor laeuft nach***
  50. 590 pokev,150:pokev+1,157
  51. 600 pokes+1,4:pokes,177
  52. 610 fori=1to15
  53. 620 pokes+5,0:pokes+4,65:pokes+4,32
  54. 630 poke12294,5:poke12295,81:poke12296,84
  55. 640 for br=1to65:nextbr
  56. 650 poke12294,21:poke12295,85:poke12296,85
  57. 660 nexti
  58. 670 pokes+24,22
  59. 680 pokes,220:pokes+5,0 :pokes+6,180
  60. 690 fori1=12352to12414:readq1:pokei1,q1:next
  61. 700 fori2=12416to12478:readq2:pokei2,q2:next
  62. 710 pokev+21,131
  63. 720 pokev+40,0
  64. 730 pokev+3,157
  65. 740 p=193
  66. 750 fori=165to219step3
  67. 760 pokev+2,i
  68. 770 poke2041,p:pokes+1,r:pokes+4,65:pokes+4,64
  69. 780 p=p+1:ifp>194thenp=193
  70. 790 ifi=219then810
  71. 800 forbr=1to50:nextbr
  72. 810 nexti
  73. 820 fori1=12352to12414:readq1:pokei1,q1:next
  74. 830 poke2041,193
  75. 840 pokev+21,131:rem spr.1,3 einsch.
  76. 850 pokev+40,0
  77. 860 pokev+3,157:rem y-pos.
  78. 870 pokev+2,219:rem x-pos.
  79. 880 forbr=1to150:nextbr
  80. 890 fori3=12480to12542:readq3:pokei3,q3:next
  81. 900 poke2043,195
  82. 910 pokev+21,139:rem spr.1,3,4 einsch.
  83. 920 pokev+42,7
  84. 930 pokev+7,168:rem y-pos.
  85. 940 pokev+6,238:rem x-pos.
  86. 950 poke2045,197
  87. 960 pokev+21,171
  88. 970 pokev+44,7
  89. 980 pokev+11,180:rem y-pos.
  90. 990 pokev+10,249:rem x-pos.
  91. 1000 p=197
  92. 1010 pokes+6,200:pokes+5,0
  93. 1020 fori=1to80
  94. 1030 pokes,9:pokes+1,i:pokes+4,129
  95. 1040 poke2045,p
  96. 1050 p=p+1:ifp>198thenp=197
  97. 1060 forbr=1to10:nextbr
  98. 1070 nexti:pokes+4,0
  99. 1080 fory=12480to12542:pokey,0:nexty
  100. 1090 pokev+21,peek(v+21)and255-40:
  101. 1100 rem ***mann nach links***
  102. 1110 pokes,220:pokes+5,0:pokes+6,180
  103. 1120 fori1=12352to12414:readq1:pokei1,q1:next
  104. 1130 fori2=12416to12478:readq2:pokei2,q2:next
  105. 1140 pokev+21,131
  106. 1150 pokev+40,0
  107. 1160 pokev+3,157
  108. 1170 p=193
  109. 1180 fori=219to165 step-3
  110. 1190 pokev+2,i
  111. 1200 poke2041,p:pokes+1,r:pokes+4,65:pokes+4,64
  112. 1210 p=p+1:ifp>194thenp=193
  113. 1220 forbr=1to50:nextbr
  114. 1230 nexti
  115. 1240 poke2040,192:rem zeiger setzen
  116. 1250 pokev+21,129:rem spr.1 einsch.
  117. 1260 forbr=1to800:nextbr
  118. 1270 rem *rotor beginnt zu drehen*
  119. 1280 pokev,150:pokev+1,157
  120. 1290 pokes+1,4:pokes,177:pokes+24,31:pokes+6,2
  121. 1300 fori=1to15
  122. 1310 pokes+5,0:pokes+4,65:pokes+4,32
  123. 1320 poke 12294,5:poke12295,81:poke12296,84
  124. 1330 forbr=1to50:next br
  125. 1340 poke 12294,21:poke12295,85:poke12296,85
  126. 1350 nexti
  127. 1360 rem ***helikopter-start***
  128. 1370 pokes+1,6:pokes,177
  129. 1380 fori=157to52 step-1
  130. 1390 pokes+5,0:pokes+4,65:pokes+4,32
  131. 1400 pokev,307-i :rem x-pos.
  132. 1410 pokev+1,i:rem y-pos.
  133. 1420 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreh-effekt m.zeile 1040
  134. 1430 poke12294,21:poke12295,85:poke12296,85
  135. 1440 nexti
  136. 1450 rem ***rechte x-pos.***
  137. 1460 pokes+1,6:pokes,177
  138. 1470 fory=50to80
  139. 1480 ify<65then1500
  140. 1490 pokes+24,96-y:rem motor leiser
  141. 1500 pokes+5,0:pokes+4,65:pokes+4,32
  142. 1510 pokev+16,1
  143. 1520 pokev+0,y-50:rem x-pos.
  144. 1530 pokev+1,101-y:rem y-pos.
  145. 1540 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreheffekt m.zeile 1120
  146. 1550 poke12294,21:poke12295,85:poke12296,85
  147. 1560 nexty
  148. 1570 pokev+16,0:pokev+0,0
  149. 1580 rem *** end-zeichen 1.teil ***
  150. 1590 fori=12288to12350:readq:pokei,q:nexti
  151. 1600 fori1=12352to12414:readq1:pokei1,q1:nexti1
  152. 1610 fori2=12416to12478:readq2:pokei2,q2:nexti2
  153. 1620 rem *** sonne nach unten ***
  154. 1630 fori=stos+24:pokei,0:next
  155. 1640 pokes+24,10:pokes+5,10:pokes+6,100:pokes+3,100:pokes+2,100
  156. 1650 fori=72to39step-1
  157. 1660 read hf,lf,dr
  158. 1670 pokes+1,hf:pokes,lf
  159. 1680 pokes+4,65
  160. 1690 pokev+14,i:pokev+15,170-i
  161. 1700 forbr=1todr:nextbr
  162. 1710 pokes+4,33
  163. 1720 nexti
  164. 1730 fori=stos+24:pokei,0:next
  165. 1740 rem *sprite-register auf 0 setzen*
  166. 1750 forx=53248to53263:pokex,0:nextx
  167. 1760 rem
  168. 1770 rem *** end-zeichen 2.teil ***          mit zeilen 1141,1142,1143
  169. 1780 rem
  170. 1790 fori3=12480to12542:readq3:pokei3,q3:nexti3
  171. 1800 fori4=12544to12606:readq4:pokei4,q4:nexti4
  172. 1810 fori5=12608to12670:readq5:pokei5,q5:nexti5
  173. 1820 fori6=12672to12734:readq6:pokei6,q6:nexti6
  174. 1830 pokev+28,0:rem mehrfarbmod.auf 0
  175. 1840 pokev+39,1
  176. 1850 pokev+0,150
  177. 1860 pokev+1,110
  178. 1870 pokev+29,1
  179. 1880 forj=0to6
  180. 1890 pokev+21,1
  181. 1900 poke2040,192+j
  182. 1910 forbr=1to30:nextbr
  183. 1920 nextj
  184. 1930 forbr=1to1000:nextbr
  185. 1940 fork=6to0 step-1
  186. 1950 poke2040,192+k
  187. 1960 forbr=1to30:nextbr
  188. 1970 nextk
  189. 1980 pokev+21,0
  190. 1990 forbr=1to400:nextbr
  191. 2000 goto1880
  192. 2010 end
  193. 2020 print"[147]":rem ***titel***
  194. 2030 poke53280,2 :poke53281,6
  195. 2040 forbr=1to800:nextbr
  196. 2050 s=54272
  197. 2060 fori=stos+24:pokei,0:nexti
  198. 2070 pokes+24,10:pokes+5,12*16+0:pokes+6,15*16+10
  199. 2080 fora=0to39
  200. 2090 pokes+1,a+15:pokes,226:pokes+4,33
  201. 2100 poke1024+a+40*16,64
  202. 2110 poke55296+a+40*16,7
  203. 2120 nexta
  204. 2130 fori=0to65
  205. 2140 pokes+1,65-i:pokes,226:pokes+4,129
  206. 2150 ifi>24then2180
  207. 2160 poke1024+10+40*i,66
  208. 2170 poke55296+10+40*i,1
  209. 2180 nexti
  210. 2190 pokes+4,0
  211. 2200 forbr=1to500:nextbr
  212. 2210 print"[159]'notlandung'"
  213. 2220 forbr=1to700:nextbr
  214. 2230 print"[155]   von r.schleeweiss"
  215. 2240 forbr=1to500:nextbr
  216. 2250 print"[129]    musik von hardy"
  217. 2260 forbr=1to2000:nextbr
  218. 2270 return
  219. 2280 print"[147]":rem ***landschaft***
  220. 2290 poke53280,2:poke53281,14
  221. 2300 print"[149][169][223]"
  222. 2310 print" [144][223][149] [223]"
  223. 2320 print"[144]    [149][223]"
  224. 2330 print"[144]     [149]  [223]"
  225. 2340 print"[144]  [149]  [144]  [223][149] [223]"
  226. 2350 print" [144]    [149]    [223]"
  227. 2360 print"  [144]      [149]    [223]";
  228. 2370 print"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  229. 2380 print"[163][163] [163][163][163][163][163][163] [163][163]";
  230. 2390 print"[152][169]            [223][146]";
  231. 2400 print"  [163][163][163][163][163][163][163] [163][163][163]"
  232. 2410 print"  [163][163][163][163] [163][163][163] [152][169]              [223][146]   [163][163][163] [163][163][163][163]"
  233. 2420 print" [163][163][163][163]   [163]  [155][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][163][163]   [163][163][163][163][163]"
  234. 2430 print"[163][163][163][163][163][163][163]   [163][163][163] [163][163][163][163][163] [163][163][163][163][163][163][163][163]   [163][163][163][163]  [163][163][163]";
  235. 2440 print:print"   [163][163][163][163][163][163][163]     [163][163][163][163]   [163][163][163][163][163][163][163][163][163]  [163][163][163][163][163]"
  236. 2450 print:print"[163][163][163][163][163][163][160]   [163][163][163][163][163][163][163][163]      [163][163][163][163][163][163][163][163][163][163][163][163][163]"
  237. 2460 return
  238. 2470 data 0,62,0,0,255,192,3,255,224,7,255,240
  239. 2480 data 15,255,248,31,255,252,31,255,252,63,255,252
  240. 2490 data 63,255,254,63,255,254,63,255,254,63,255,254
  241. 2500 data 63,255,254,31,255,252,31,255,252,31,255,252
  242. 2510 data 15,255,248,7,255,240,3,255,224
  243. 2520 data 1,255,192,0,62,0,0,0,0,0,0,0,21,85,85
  244. 2530 data0,4,0,0,12,0,64,63,0,64,255,0,255,250,0
  245. 2540 data255,242,128,64,242,192,64,240,192,0,63,192
  246. 2550 data0,63,0,0,12,0,0,4,16,1,85,64,0,,,,,,,,,,,,,,
  247. 2560 data 0,0,0,0,0,0,0,0,0,0,0,0,2,0,128
  248. 2570 data 0,68,0
  249. 2580 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  250. 2590 data 0,0,0,0,0,0,0,0,0,0,0,0,0,130,0
  251. 2600 data 0,0,0,1,17,0
  252. 2610 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  253. 2620 data 12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,5,14,31
  254. 2630 data 0,0,0,0,0,0,0,0,0,0,0,0
  255. 2640 data 0,12,0,0,14,0,0,8,0,0,31,192,0,40,0,0,72,0
  256. 2650 data 0,136,0,0,8,0,0,24,0,0,36,0
  257. 2660 data 0,66,128,0,33,0,,,,,,,,,,,,,,,,0,0,0
  258. 2670 data0,0,0,0,0,0,0,0,0,0,12,0,0,14,0
  259. 2680 data0,8,0,0,28,0,0,42,0,0,25,0,0,24,128,0,8,0
  260. 2690 data0,8,0,0,8,0,0,8,0,0,12,0,0,0,0,0,0,0
  261. 2700 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  262. 2710 data 0,0,0,0,12,0,0,14,0,0,8,0,0,24,0,0,44,0
  263. 2720 data 0,78,0,0,134,0,0,7,128,0,4,0,0,8,0,0,8,0
  264. 2730 data 0,12,0,,,,,,,,,,,,,,,,146,0,0
  265. 2740 data 0,32,0 ,0,4,0,0,1,0,0,0,0,0,0,64,0,0,0
  266. 2750 data 0,0,0,0,0,16,0,0,0,0,0,0,0,0,4,0,0,0
  267. 2760 data0,0,0,0,0,2,,,,,,,,,,,,,,,,,,,0,0,0
  268. 2770 data0,0,0 ,0,0,0 , 0,0,0, 0,24,0, 0,56,0
  269. 2780 data0,8,0, 0,28,0, 0,26,0, 0,25,0,0,24,128, 0,24,0
  270. 2790 data0,8,0, 0,8,0, 0,8,0, 0,24,0, ,,,,,,,,,,,,,,, 0,0,0
  271. 2800 data0,0,0, 0,0,0, 0,0,0, 0,24,0, 0,56,0
  272. 2810 data0,8,0, 1,255,192, 0,8,0, 0,8,0, 0,8,0, 0,8,0, 0,12,0
  273. 2820 data0,18,0, 0,161,0, 0,66,0, ,,,,,,,,,,,,,,
  274. 2830 data,,,,,,,,,,,,,,,,,,,,,,,,,,, ,42,
  275. 2840 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  276. 2850 data,,,,,,,,,,,,,,,,,,,,,,,,,42,,,42,
  277. 2860 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  278. 2870 data,,,,,,,,,,,,,,,,,,,,,,,,,221,128,,221,128
  279. 2880 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  280. 2890 data13,10,250,9,196,500,14,162,100,13,10,100
  281. 2900 data12,78,100,13,10,250,9,196,500,14,162,100,13,10,100
  282. 2910 data12,78,100,13,10,250,14,162,100,16,109,100
  283. 2920 data17,103,100,16,109,250,14,162,125,19,137,750
  284. 2930 data21,237,250,21,237,125,17,103,250,14,162,500
  285. 2940 data19,137,250,19,137,125,16,109,250,13,10,500
  286. 2950 data13,10,125,14,162,125,16,109,250,14,162,125
  287. 2960 data13,10,125,14,162,250,13,10,125,12,78,125,13,10,750
  288. 2970 data,,,,,,,,,,,,,,,,,,,,,,,
  289. 2980 data1,213,128,1,157,64,1,213,128
  290. 2990 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,,,,
  291. 3000 data7,162,224,4,50,144,7,42,144,4,38,144,7,162,224
  292. 3010 data,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,
  293. 3020 data31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120
  294. 3030 data,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,
  295. 3040 data126,65,62,64,65,33,64,97,33,64,81,33,124,73,33
  296. 3050 data64,69,33,64,67,33,64,65,33,126,65,62
  297. 3060 data,,,,,,,,,,,,,,,,,,,,
  298. 3070 reada$:printa$:poke198,0:wait198,1:goto3070
  299.