home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 29 / Tiger_Disk_029_1996-08_Tiger-Crew-Disk_de_Side_B.d64 / notlandung! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  422 lines
  1. 10 rem > notlandung <
  2. 15 for x=53248 to 53263:poke x,0:next x
  3. 20 gosub 2000
  4. 25 gosub 3000
  5. 30 v=53248:s=54272
  6. 40 for i8=12736 to 12798:read q8:poke i8,q8:next
  7. 45 poke 2047,199
  8. 50 poke v+21,128
  9. 60 poke v+27,128
  10. 65 poke v+46,8
  11. 70 poke v+14,72
  12. 75 poke v+15,98
  13. 77 for br=1 to 350:next br
  14. 78 poke 53265,peek(53265)or 16
  15. 90 for i=12288 to 12350:read q:poke i,q:next
  16. 95 for i6=12608 to 12670:read q6:poke i6,q6:next i6
  17. 100 for i7=12672 to 12734:read q7:poke i7,q7:next i7
  18. 110 poke 2040,192
  19. 120 poke v+21,129
  20. 130 poke v+29,1
  21. 140 poke v+39,8
  22. 150 poke v+28,1
  23. 160 poke v+37,1
  24. 170 poke v+38,3
  25. 180 poke v,150
  26. 181 for l=s to s+24:poke l,0:next l
  27. 182 for k=7 to 24:read x:poke s+k,x:next k
  28. 183 poke s+11,65:poke s+18,65
  29. 184 poke s+5,9:poke s+6,2
  30. 190 for i=35 to 157
  31. 191 poke s+5,0
  32. 193 poke s+1,6
  33. 194 poke s,177
  34. 196 poke s+4,65
  35. 198 poke s+4,32
  36. 200 poke v+1,i
  37. 210 poke 12294,5:poke 12295,81:poke 12296,84
  38. 220 for br=1 to 5:next br
  39. 230 poke 12294,21:poke 12295,85:poke 12296,85
  40. 240 next i
  41. 260 poke v,150:poke v+1,157
  42. 265 poke s+1,4:poke s,177
  43. 270 for i=1 to 5
  44. 275 poke s+5,o:poke s+4,65:poke s+4,32
  45. 280 poke 12294,5:poke 12295,81:poke 12296,84
  46. 290 for br=1 to 65:next br
  47. 300 poke 12294,21:poke 12295,85:poke 12296,85
  48. 310 next i
  49. 315 poke s+24,22
  50. 325 poke s,220:poke s+5,0:poke s+6,180
  51. 330 for i1=12352 to 12414:read q1:poke i1,q1:next
  52. 340 for i2=12416 to 12478:read q2:poke i2,q2:next
  53. 350 poke v+21,131
  54. 360 poke v+40,0
  55. 370 poke v+3,157
  56. 380 p=193
  57. 390 for i=165 to 219 step 3
  58. 400 poke v+2,i
  59. 410 poke 2041,p:poke s+1,r:poke s+4,65:poke s+4,64
  60. 420 p=p+1:if p>194 then p=193
  61. 430 if i=219 then 450
  62. 440 for br=1 to 50:next br
  63. 450 next i
  64. 460 :
  65. 470 for i1=12352 to 12414:read q1:poke i1,q1:next
  66. 480 poke 2041,193
  67. 490 poke v+21,131
  68. 500 poke v+40,0
  69. 510 poke v+3,157
  70. 520 poke v+2,219
  71. 530 for br=1 to 150:next br
  72. 540 :
  73. 550 for i3=12480 to 12542:read q3:poke i3,q3:next
  74. 560 poke 2043,195
  75. 570 poke v+21,139
  76. 580 poke v+42,7
  77. 590 poke v+7,168
  78. 600 poke v+6,238
  79. 610 :
  80. 620 poke 2045,197
  81. 630 poke v+21,171
  82. 640 poke v+44,7
  83. 650 poke v+11,180
  84. 660 poke v+10,249
  85. 670 p=197
  86. 675 poke s+6,200:poke s+5,0
  87. 680 for i=1 to 80
  88. 685 poke s,9:poke s+1,i:poke s+4,129
  89. 690 poke 2045,p
  90. 700 p=p+1:if p>198 then p=197
  91. 710 for br=1 to 10:next br
  92. 720 next i:poke s+4,0
  93. 730 for y=12480 to 12542:poke y,0:nexty
  94. 740 poke v+21,peek(v+21)and 255-40
  95. 755 poke s,220:poke s+5,0:poke s+6,180
  96. 760 for i1=12352 to 12414:read q1:poke i1,q1:next
  97. 770 for i2=12416 to 12478:read q2:poke i2,q2:next
  98. 780 poke v+21,131
  99. 790 poke v+40,0
  100. 800 poke v+3,157
  101. 810 p=193
  102. 820 for i=219 to 165 step-3
  103. 830 poke v+2,i
  104. 840 poke 2041,p:poke s+1,r:poke s+4,65:poke s+4,64
  105. 850 p=p+1:if p>194 then p=193
  106. 860 for br=1 to 50:next br
  107. 870 next i
  108. 890 poke 2040,192
  109. 900 poke v+21,129
  110. 910 for br=1 to 800:next br
  111. 930 poke v,150:poke v+1,157
  112. 935 poke s+1,4:poke s,177:poke s+24,31:poke s+6,2
  113. 940 for i=1 to 15
  114. 945 poke s+5,0:poke s+4,65:poke s+4,32
  115. 950 poke 12294,5:poke 12295,81:poke 12296,84
  116. 960 for br=1 to 50:next br
  117. 970 poke 12294,21:poke 12295,85:poke 12296,85
  118. 980 next i
  119. 995 poke s+1,6:poke s,177
  120. 1000 for i=157 to 52 step-1
  121. 1005 poke s+5,0:poke s+4,65:poke s+4,32
  122. 1010 poke v,307-i
  123. 1020 poke v+1,i
  124. 1030 poke 12294,5:poke 12295,81:poke 12296,84
  125. 1040 poke 12294,21:poke 12295,85:poke 12296,85
  126. 1050 next i
  127. 1065 poke s+1,6:poke s,177
  128. 1070 for y=50 to 80
  129. 1072 if y<65 then 1075
  130. 1073 poke s+24,96-y
  131. 1075 poke s+5,0:poke s+4,65:poke s+4,32
  132. 1080 poke v+16,1
  133. 1090 poke v+0,y-50
  134. 1100 poke v+1,101-y
  135. 1110 poke 12294,21:poke 12295,81:poke 12296,84
  136. 1120 poke 12294,21:poke 12295,85:poke 12296,85
  137. 1130 next y
  138. 1135 poke v+16,0:poke v+0,0
  139. 1141 for i=12288 to 12350:read q:poke i,q:next i
  140. 1142 for i1=12352 to 12414:read q1:poke i1,q1:next i1
  141. 1143 for i2=12416 to 12478:read q2:poke i2,q2:next i2
  142. 1146 for i=s to s+24:poke i,0:next
  143. 1147 poke s+24,10:poke s+5,10:poke s+6,100:poke s+3,100:poke s+2,100
  144. 1150 for i=72 to 39 step -1
  145. 1152 read hf,lf,dr
  146. 1154 poke s+1,hf:poke s,lf
  147. 1155 poke s+4,65
  148. 1160 poke v+14,i:poke v+15,170-i
  149. 1170 for br=1 to dr:next br
  150. 1172 poke s+4,33
  151. 1180 next i
  152. 1200 for x=53248 to 53263:poke x,0:next x
  153. 1208 for i3=12480 to 12542:read q3:poke i3,q3:next i3
  154. 1210 for i4=12544 to 12606:read q4:poke i4,q4:next i4
  155. 1220 for i5=12608 to 12670:read q5:poke i5,q5:next i5
  156. 1230 for i6=12672 to 12734:read q6:poke i6,q6:next i6
  157. 1235 poke v+28,0:pokes+24,0
  158. 1240 poke v+39,1
  159. 1250 poke v+0,150
  160. 1260 poke v+1,110
  161. 1270 poke v+29,1
  162. 1290 for j=0 to 6
  163. 1300 poke v+21,1
  164. 1310 poke 2040,192+j
  165. 1320 for br=1 to 30:next br
  166. 1330 next j
  167. 1340 for br=1 to1000:next br
  168. 1350 for k=6 to 0 step -1
  169. 1360 poke 2040,192+k
  170. 1370 for br=1 to 30:next br
  171. 1380 next k
  172. 1390 poke v+21,0
  173. 1400 for br=1 to 400:next br
  174. 1500 end
  175. 2000 print"[147]"
  176. 2010 poke 53280,2:poke 53281,6
  177. 2012 for br=1 to 800:next br
  178. 2015 s=54272
  179. 2017 for i=s to s+24:poke i,0:next i
  180. 2018 poke s+24,10:poke s+5,12*16+0:poke s+6,15*16+10
  181. 2020 for a=0 to 39
  182. 2025 poke s+1,a+15:poke s,226:poke s+4,33
  183. 2030 poke 1024+a+40*16,64
  184. 2040 poke 55296+a+40*16,7
  185. 2050 next a
  186. 2060 for i=0 to 65
  187. 2065 poke s+1,65-i:poke s,226:poke s+4,129
  188. 2067 if i>24 then 2090
  189. 2070 poke 1024+10+40*i,66
  190. 2080 poke 55296+10+40*i,1
  191. 2090 next i
  192. 2095 poke s+4,0
  193. 2100 for br=1 to 500:next br
  194. 2110 print"[159]'notlandung'"
  195. 2120 for br=1 to 700:next br
  196. 2130 print"[155]   fuer commodore 64"
  197. 2132 for br=1 to 500:next br
  198. 2140 for br=1 to 2000:next br
  199. 2150 return
  200. 3000 print"[147]"
  201. 3010 poke 53280,2:poke 53281,14
  202. 3020 print"[149][198][223]"
  203. 3030 print" [144][223][149] [223]"
  204. 3040 print"[144]    [149]  [223]"
  205. 3050 print"[144]     [149]  [223]"
  206. 3060 print"[144]  [149]  [144]  [223][149] [223]"
  207. 3070 print" [144]    [149]    [223]"
  208. 3080 print"  [144]      [149]    [223]";
  209. 3090 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]";
  210. 3100 print"[163][163][160][163][163][163][163][163][163][160][163][163]";
  211. 3110 print"[152][169]            [223][146]";
  212. 3120 print"  [163][163][163][163][163][163][163] [163][163][163]"
  213. 3130 print"  [163][163][163][163] [163][163][163] [152][169]              [223][146]   [163][163][163][163][163]"
  214. 3140 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]"
  215. 3150 print"[163][163][163][163][163][163][163]   [163][163][163][160][163][163][163][163][163][160][163][163][163][163][163][163][163][163]   [163][163][163][163]  [163][163][163]";
  216. 3160 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]"
  217. 3170 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][163][163]"
  218. 3200 return
  219. 4000 data 0,62,0
  220. 4001 data 0,255,192
  221. 4002 data 3,255,224
  222. 4003 data 7,255,240
  223. 4004 data 15,255,248
  224. 4005 data 31,255,252
  225. 4006 data 31,255,252
  226. 4007 data 63,255,252
  227. 4008 data 63,255,254
  228. 4009 data 63,255,254
  229. 4010 data 63,255,254
  230. 4011 data 63,255,254
  231. 4012 data 63,255,254
  232. 4013 data 31,255,252
  233. 4014 data 31,255,252
  234. 4015 data 31,255,252
  235. 4016 data 15,255,248
  236. 4017 data 7,255,240
  237. 4018 data 3,255,224
  238. 4019 data 1,255,192
  239. 4020 data 0,62,0
  240. 4500 data 0,0,0
  241. 4501 data 0,0,0
  242. 4502 data 21,85,85
  243. 4503 data 0,4,0
  244. 4504 data 0,12,0
  245. 4505 data 64,63,0
  246. 4506 data 64,255,0
  247. 4507 data 255,250,0
  248. 4508 data 255,242,128
  249. 4509 data 64,242,192
  250. 4510 data 64,240,192
  251. 4511 data 0,63,192
  252. 4512 data 0,63,0
  253. 4513 data 0,12,0
  254. 4514 data 0,4,16
  255. 4515 data 1,85,64
  256. 4516 data 0,,,,,,,,,,,,,,
  257. 4600 data 0,0,0
  258. 4601 data 0,0,0
  259. 4602 data 0,0,0
  260. 4603 data 0,0,0
  261. 4604 data 2,0,128
  262. 4605 data 0,68,0
  263. 4606 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  264. 4700 data 0,0,0
  265. 4701 data 0,0,0
  266. 4702 data 0,0,0
  267. 4703 data 0,0,0
  268. 4704 data 0,130,0
  269. 4705 data 0,0,0
  270. 4706 data 1,17,0
  271. 4707 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  272. 4810 data 12,2,0,4,0,0,192
  273. 4820 data 16,2,0,6,0,0,64
  274. 4830 data 0,5,14,31
  275. 5000 data 0,0,0
  276. 5001 data 0,0,0
  277. 5002 data 0,0,0
  278. 5003 data 0,0,0
  279. 5004 data 0,12,0
  280. 5005 data 0,14,0
  281. 5006 data 0,8,0
  282. 5007 data 0,31,192
  283. 5008 data 0,40,0
  284. 5009 data 0,72,0
  285. 5010 data 0,136,0
  286. 5011 data 0,8,0
  287. 5012 data 0,24,0
  288. 5013 data 0,36,0
  289. 5014 data 0,66,128
  290. 5015 data 0,33,0
  291. 5016 data ,,,,,,,,,,,,,,
  292. 5500 data 0,0,0
  293. 5501 data 0,0,0
  294. 5502 data 0,0,0
  295. 5503 data 0,0,0
  296. 5504 data 0,12,0
  297. 5505 data 0,14,0
  298. 5506 data 0,8,0
  299. 5507 data0,28,0
  300. 5508 data 0,42,0
  301. 5509 data 0,25,0
  302. 5510 data 0,24,128
  303. 5511 data 0,8,0
  304. 5512 data 0,8,0
  305. 5513 data 0,8,0
  306. 5514 data 0,8,0
  307. 5515 data 0,12,0
  308. 5516 data 0,0,0
  309. 5517 data 0,0,0
  310. 5518 data 0,0,0
  311. 5519 data 0,0,0
  312. 5520 data 0,0,0
  313. 6000 data 0,0,0
  314. 6001 data 0,0,0
  315. 6002 data 0,0,0
  316. 6003 data 0,0,0
  317. 6004 data 0,12,0
  318. 6005 data 0,14,0
  319. 6006 data 0,8,0
  320. 6007 data 0,24,0
  321. 6008 data 0,44,0
  322. 6009 data 0,78,0
  323. 6010 data 0,134,0
  324. 6011 data 0,7,128
  325. 6012 data 0,4,0
  326. 6013 data 0,8,0
  327. 6014 data 0,8,0
  328. 6015 data 0,12,0
  329. 6016 data ,,,,,,,,,,,,,,
  330. 7000 data 146,0,0
  331. 7001 data 0,32,0
  332. 7002 data 0,4,0
  333. 7003 data 0,1,0
  334. 7004 data 0,0,0
  335. 7005 data 0,0,64
  336. 7006 data 0,0,0
  337. 7007 data 0,0,0
  338. 7008 data 0,0,16
  339. 7009 data 0,0,0
  340. 7010 data 0,0,0
  341. 7011 data 0,0,4
  342. 7012 data 0,0,0
  343. 7013 data 0,0,0
  344. 7014 data 0,0,2
  345. 7015 data ,,,,,,,,,,,,,,,,,
  346. 7500 data 0,0,0
  347. 7501 data 0,0,0
  348. 7502 data 0,0,0
  349. 7503 data 0,0,0
  350. 7504 data 0,24,0
  351. 7505 data 0,56,0
  352. 7506 data 0,8,0
  353. 7507 data 0,28,0
  354. 7508 data 0,26,0
  355. 7509 data 0,25,0
  356. 7510 data 0,24,128
  357. 7511 data 0,24,0
  358. 7512 data 0,8,0
  359. 7513 data 0,8,0
  360. 7514 data 0,8,0
  361. 7515 data 0,24,0
  362. 7516 data,,,,,,,,,,,,,,
  363. 8000 data 0,0,0
  364. 8001 data 0,0,0
  365. 8002 data 0,0,0
  366. 8003 data 0,0,0
  367. 8004 data 0,24,0
  368. 8005 data 0,56,0
  369. 8006 data 0,8,0
  370. 8007 data1,255,192
  371. 8008 data 0,8,0
  372. 8009 data 0,8,0
  373. 8010 data 0,8,0
  374. 8011 data 0,8,0
  375. 8012 data 0,12,0
  376. 8013 data 0,18,0
  377. 8014 data 0,161,0
  378. 8015 data 0,66,0
  379. 8016 data,,,,,,,,,,,,,,
  380. 8100 data,,,,,,,,,,,,,,,,,,,,,,,,,,
  381. 8101 data,42,
  382. 8102 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  383. 8200 data,,,,,,,,,,,,,,,,,,,,,,,
  384. 8201 data,42,,,42,
  385. 8202 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  386. 8300 data,,,,,,,,,,,,,,,,,,,,,,,
  387. 8301 data,221,128,,221,128
  388. 8302 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  389. 8500 data 13,10,250,9,196,500
  390. 8510 data 14,162,100,13,10,100
  391. 8520 data 12,78,100,13,10,250
  392. 8530 data 9,196,500
  393. 8540 data 14,162,100,13,10,100
  394. 8550 data 12,78,100,13,10,250
  395. 8560 data 14,162,100,16,109,100
  396. 8570 data 17,103,100,16,109,250
  397. 8580 data 14,162,125,19,137,750
  398. 8590 data 21,237,250,21,237,125
  399. 8600 data 17,103,250,14,162,500
  400. 8610 data 19,137,250,19,137,125
  401. 8620 data 16,109,250,13,10,500
  402. 8630 data 13,10,125,14,162,125
  403. 8640 data 16,109,250,14,162,125
  404. 8650 data 13,10,125,14,162,250
  405. 8660 data 13,10,125,12,78,125
  406. 8670 data 13,10,750
  407. 8807 data 1,255,192
  408. 8980 pokes+24,0
  409. 9000 data,,,,,,,,,,,,,,,,,,,,,,,
  410. 9001 data 1,213,128,1,157,64,1,213,128
  411. 9002 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  412. 10000 data,,,,,,,,,,,,,,,,,,,,
  413. 10001 data 7,162,224,4,50,144,7,42,144,4,38,144,7,162,224
  414. 10002 data,,,,,,,,,,,,,,,,,,,,,,,,,,
  415. 10100 data,,,,,,,,,,,,,,,,,
  416. 10101 data 31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120
  417. 10102 data,,,,,,,,,,,,,,,,,,,,,,,
  418. 10200 data,,,,,,,,,,,,,,
  419. 10201 data 126,65,62,64,65,33,64,97,33,64,81,33,124,73,33
  420. 10202 data 64,69,33,64,67,33,64,65,33,126,65,62
  421. 10203 data,,,,,,,,,,,,,,,,,,,,
  422.