home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 38 / Commodore_Disc_38_19xx_-_de.d64 / lifeflight (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  370 lines
  1. 99 min=1
  2. 100 poke2040,15
  3. 110 poke53281,0:poke53280,0:poke646,7
  4. 120 print"[147]             b[146]=beginner
  5. 130 [153]"             await=average
  6. 140 print"             p[146]=profi
  7. 150 [161]stu$:[139]stu$[179][177]""[167][137]170
  8. 160 [137]150
  9. 170 [151]53281,0
  10. 171 [139]stu$[179][177]"a"[175]stu$[179][177]"p"[175]stu$[179][177]"b"[167][137]150
  11. 180 [151]53280,0
  12. 190 [151]646,3
  13. 200 [153]"load     wait     wait       wait       wait
  14. 210 print"     [146]     [146]   [146]       [146]
  15. 220 [153]"open     wait     wait      wait       wait        wait
  16. 230 print"     [146]     [146]   [146]       [146]
  17. 240 [153]"        wait  wait   wait           wait
  18. 250 print"            [146]   [146]    [146]       [146]   [146]   [146]      [146]
  19. 260 [153]"        wait       wait    wait    wait      wait   wait    wait
  20. 270 print"           [146]   [146]    [146]    [146]   [146]      [146]    [146]
  21. 280 [153]"        wait       wait    wait    wait   wait   wait   wait    wait
  22. 290 ars=1
  23. 300 print"        [146]         [146]  [146]       [146]   [146]   [146]    [146]":poke2040,15
  24. 310 print"
  25. 320 [153]" "
  26. 330 [153]" a=real life
  27. 340 print"
  28. 350 [153]"print b=training mode
  29. 360 print"                      made [154]by [159]f[156]lobb[158]er
  30. 370 [161] ai$:[139]ai$[178]"a"[167]ars[178]2:[137]430
  31. 380 [139]ai$[178]"b"[167][151]19,1:[133]"round 1/3:";rin:rin[178]rin[171]1
  32. 390 [139]rin[177]2[167][137]380
  33. 400 [139]rin[179][178][171]1[167][137]380
  34. 410 [139]ai$[178]"b"[167] [137]    430
  35. 420 [137]370
  36. 430 be[178]160
  37. 440 [139]ers[178]1[167]o[178]o[171]500
  38. 444 [139]rin[178]4[175]ai$[178]"a"[167][141]2130
  39. 450 [139]ers[178]2[167]o[178]o[171]750
  40. 460 [139]rin[178]1[167][137]1650
  41. 470 [139]rin[178]2[167][137]1890
  42. 480 [139]rin[178]3[167][137]2380
  43. 490 [139]rin[178]4[167][137]2620
  44. 500 [139]rin[178]5[167][137]2860
  45. 510 [139]rin[178]0[167][137]1020
  46. 520 [139]rin[178]6[167][137]3100
  47. 530 [139]rin[178]4[175]ai$[178]"a"[167][141]2130
  48. 540 [139]stu$[178]"b"[167]o[178]10000 :     [141]870
  49. 550 [139]stu$[178]"a"[167]o[178]1000  :     [141]870
  50. 560 [139]stu$[178]"p"[167]o[178] 500  :     [141]870
  51. 570 [139]ers[178]1[175]stu$[179][177]"p" [167]o[178]o[171]500
  52. 580 [139]ers[178]2[175]stu$[179][177]"p" [167]o[178]o[171]750
  53. 590 [139]ers[178]3[167]o[178]o[171]900
  54. 600 [139]ers[178]4[167]o[178]o[171]980
  55. 610 sp[178]53248:[137] 760
  56. 620 s[178][194](so) [175] 15:[145] s [141] 630,630,630,630,640,650,660,630,690,700,710,620,740,750,630:[137] 890
  57. 630 [142]
  58. 640 [141] 660:[141] 740:[142]
  59. 650 [141] 660:[141] 750:[142]
  60. 660 x%[178]x%[170]wun:[139] x%[177]255 [167] x%[178]0:[151] sp[170]16,1
  61. 670 [139] x%[177]65 [175] [194](sp[170]16)[178]1 [167] [151] sp[170]16,0:x%[178]0
  62. 680 [151] hp,x%:[142]
  63. 690 [141] 740:[141] 710:[142]
  64. 700 [141] 750:[141] 710:[142]
  65. 710 x%[178]x%[171]wun:[139] x%[179]1 [175] [194](sp[170]16)[178]1 [167] x%[178]255:[151] sp[170]16,0
  66. 720 [139] x%[179]1 [175] [194](sp[170]16)[178]0 [167] x%[178]65:[151] sp[170]16,1
  67. 730 [151] hp,x%:[142]
  68. 740 y%[178]y%[170]wun[170]hi[172](y%[177]hi):[151] vp,y%:[142]
  69. 750 y%[178]y%[171]wun[171]hi[172](y%[179]wun):[151] vp,y%:[142]
  70. 760 [129] i[178]871 [164]  950:[151] i,0:[130]:[129] i[178]832 [164] 895:[135] a:[151] i,a:[130]
  71. 770 hp[178]sp:vp[178]sp[170]1:x%[178]be:y%[178]100:wun[178]3:hi[178]252:so[178]56321
  72. 780 [151] sp[170]21,1:[151] 2040,13:[151] sp[170]39,2:[151] sp[170]29,1:[151] hp,x%:[151] vp,y%
  73. 790 [151] sp[170]32,0:[151] sp[170]33,0
  74. 800 [131] 0,0,0,207,255,254,224,4,0,224,14,0,240,217,128,127,255,64
  75. 810 [131] 61,119,48,60,119,248,5,115,248
  76. 820 [131] 3,255,240  ,0,127,224,0,63,0,0
  77. 830 [131]  16,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  78. 840 [131] 0,0,0,0,0,0,0,0
  79. 850 [137] 620
  80. 860 [131]  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. 870 [143] motor
  82. 880 si[178]54272:fl[178]si:fh[178]si[170]1:tl[178]si[170]1:th[178]si[170]9:w[178]si[170]4:a[178]si[170]5:h[178]si[170]6:l[178]si[170]24
  83. 890 [129] x[178]250[164]0[169] 1
  84. 900 [151]l,x:[151]a,1 :[151]h,0:[151]fh,20:[151]fl,200:[151]w,19
  85. 910 [130]
  86. 920 [151]w,0:[151]a,0
  87. 930 f[178]f[170]1:[139]f[178]1[167][142]
  88. 940 [153]"f u e l : "o
  89. 950 [153][163]20)"on lives"ars[170]1
  90. 951 [153][163]30)"on round"rin[170]1
  91. 960 [139]o[178]0[167][137]1280
  92. 970 [151]sp[170]31,1
  93. 980 [139][194](sp[170]31)[178]1[167][137]1280
  94. 990 [139] x%[178]250[175]eo[178]0[167][153]"you almost did it !":[129]x[178]1[164]3000:[130]x:[137]1380
  95. 1000 [139]x%[178]160[175]eo[178]1[175]y%[178]100[167][153]"you did it !":[129]x[178]1[164]3000:[130]x:[137]1490
  96. 1010 o[178]o[171]1:    [137]620
  97. 1020 [153][199](147):[151]646,7:a$[178]"^ ^^"
  98. 1030 [153]"
  99. 1040 print"
  100. 1050 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  101. 1060 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  102. 1070 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  103. 1080 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  104. 1090 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  105. 1100 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(          notspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  106. 1110 [153]"spc(spc(spc(spc((NULL)                 spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  107. 1120 [153]"spc(spc(spc(spc(spc(              spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  108. 1130 [153]"spc(spc(spc(        notspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  109. 1140 [153]"spc(spc(spc(          spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  110. 1150 [153]"spc(spc(spc(spc(spc(spc(        spc(spc(spc(spc(spc(            spc(spc(spc(spc(spc(spc(spc(spc("
  111. 1160 [153]"spc(spc(spc(spc(spc(spc(spc(        spc(spc(spc(             spc(spc(spc(spc(spc(spc(spc(spc("
  112. 1170 [153]"spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(              spc(spc(spc(spc(spc(spc(spc("
  113. 1180 [153]"spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc((NULL)       spc(       spc(spc(spc(spc(spc(spc("
  114. 1190 [153]"spc(spc(spc(spc(spc(spc(spc((NULL)       spc(notspc(        spc(      spc(spc(spc(spc(spc(spc("
  115. 1200 [153]"(NULL)             notspc(spc(spc(        spc(        spc(spc(spc(spc("
  116. 1210 [153]"spc(spc(spc(          notspc(spc(spc(spc(        spc(spc(        spc(spc(spc("
  117. 1220 [153]"spc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(spc( help! spc(spc(spc("
  118. 1221 [139]eo[178]1[167][153]"onspc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(spc(       spc(spc(spc("
  119. 1230 [153]"spc(spc(spc(spc(                     spc(spc(spc(spc(       spc(spc(spc("
  120. 1240 [153]"spc(spc(spc(spc(                    spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  121. 1250 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  122. 1260 [151]646,13
  123. 1270 [137]540
  124. 1280 [143] ** explosion **
  125. 1290 [151]54273,10:[151]54276,0:[151]54296,15:[151]54277,12:[151]54278,0
  126. 1300 [151] 54276,131
  127. 1310 [129]i[178]1[164]10:[151] 2040,i:[129]t[178]1 [164]100:[130] t,i
  128. 1320 [153]""
  129. 1330 [153]"
  130. 1340 print"
  131. 1350 [129] ty[178]1[164]1000:[130]
  132. 1360 [139]ars[178]1[167]ars[178]0:[140]:[151]2040,13:[137]610
  133. 1361 [139]ars[178]2[167]ars[178]1:[140]:[151]2040,13:[137]610
  134. 1370 [140]:[151]2040,13:[138]
  135. 1380 [153]"load"
  136. 1390 [153]"       tototototototototototototototototototototototo       "
  137. 1400 [153]"       (NULL) you found the missed(NULL) "
  138. 1410 [153]"       sgn persons ! fly back  + "
  139. 1420 [153]"       (NULL) as fast as possible sqr
  140. 1430 print"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  141. 1440 [153]"                               (NULL)(NULL)(NULL)    "
  142. 1450 [153]"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  143. 1460 [151]1815,66
  144. 1470 eo[178]1:[161]a$:[139]a$[179][177]" "[167]1470
  145. 1480 [137]1520
  146. 1490 eo[178]0:[161]a$:[139]a$[179][177]" "[167]1490
  147. 1500 [139]min[178]1[175]ai$[178]"a"[167]min[178]0: [141]3330
  148. 1510 [139]ai$[178]"a"[175]eo[178]0 [167]rin[178]rin[170]1
  149. 1520 [139]rin[178]0[167][137]1020
  150. 1522 [139]rin[178]4[175]ai$[178]"a"[175]ers[178]0[167][137]2130
  151. 1530 [139]rin[178]1[167][137]1650
  152. 1540 [139]rin[178]2[167][137]1890
  153. 1550 [139]rin[178]3[167][137]2380
  154. 1560 [139]rin[178]4[167][137]2620
  155. 1570 [139]rin[178]5[167][137]2860
  156. 1580 [139]rin[178]6[167][137]3100
  157. 1590 [139]rin[178]7[167][137]2130
  158. 1600 [139]rin[178]1[167]rin[178]2
  159. 1610 [139]rin[178]0[167]rin[178]1
  160. 1620 [139]rin[178]2[167]rin[178]3
  161. 1630 [161]a$:[139]a$[179][177]" "[167]1630
  162. 1640 o[178]5000:eo[178]0:rin[178]1:[137]430
  163. 1650 [153][199](147)
  164. 1660 [153]"
  165. 1670 print"
  166. 1680 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  167. 1690 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  168. 1700 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  169. 1710 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  170. 1720 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  171. 1730 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)        notspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  172. 1740 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  173. 1750 [153]"spc(spc(spc(spc(spc(                  notspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  174. 1760 [153]"spc(spc(spc(spc(spc(                 spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  175. 1770 [153]"spc(spc(spc(spc(spc(spc(not       notspc(spc(spc(spc(notnotnotnot(NULL)      spc(spc(spc(spc(spc(spc(spc(spc("
  176. 1780 [153]"spc(spc(spc(spc(spc(spc(spc(spc(not       spc(spc(spc(spc(           spc(spc(spc(spc(spc(spc(spc(spc("
  177. 1790 [153]"spc(spc(spc(spc(spc(spc(spc(spc(        spc(spc(              spc(spc(spc(spc(spc(spc(spc("
  178. 1800 [153]"spc(spc(spc(spc(spc(spc(        spc(spc(spc((NULL)       spc(       spc(spc(spc(spc(spc(spc("
  179. 1810 [153]"spc(spc(spc(spc(spc(spc(spc((NULL)       spc(spc(spc(spc(       spc(      spc(spc(spc(spc(spc(spc("
  180. 1820 [153]"(NULL)spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(spc(spc(      spc(        spc(spc(spc(spc("
  181. 1830 [153]"spc(spc(spc(spc(spc(spc(spc(not      spc(spc(spc(spc(        spc(spc(        spc(spc(spc("
  182. 1840 [153]"spc(spc(spc(spc(                     spc(spc(spc(spc( help! spc(spc(spc("
  183. 1841 [139]eo[178]1[167][153]"onspc(spc(spc(spc(                     spc(spc(spc(spc(       spc(spc(spc("
  184. 1850 [153]"spc(spc(spc(spc(spc((NULL)   not             notspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  185. 1860 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  186. 1870 [151]646,13
  187. 1880 [137]540
  188. 1890 [153][199](147)
  189. 1900 [153]"
  190. 1910 print"
  191. 1920 [153]"printspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  192. 1930 [153]"spc(spc(spc(spc(spc(spc(spc((NULL)             spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  193. 1940 [153]"spc(spc(spc(spc((NULL)                 spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  194. 1950 [153]"spc(spc(spc(spc(         spc(spc(spc(       spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  195. 1960 [153]"spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  196. 1970 [153]"spc(spc((NULL)       spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  197. 1980 [153]"spc((NULL)      notspc(spc(spc(spc(spc(spc(                  spc(spc(spc(spc(spc(spc("
  198. 1990 [153]"spc((NULL)      notspc(spc(spc(spc(spc(                   spc(spc(spc(spc(spc(spc("
  199. 2000 [153]"spc((NULL)      spc(spc(spc(spc(spc(       spc(spc(spc(spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc("
  200. 2010 [153]"spc((NULL)        spc(spc(spc(      spc(spc(spc(spc(spc(spc(spc(       spc(spc(spc(spc(spc(spc("
  201. 2020 [153]"spc(spc(spc(not        spc(       spc(spc(spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc(spc("
  202. 2030 [153]"spc(spc(spc(spc(spc((NULL)      spc(spc(       spc(spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc(spc("
  203. 2040 [153]"spc(spc(spc(spc(spc(       spc(spc((NULL)      spc(spc(spc(spc(spc(       spc(spc(spc(spc(spc(spc("
  204. 2050 [153]"spc(spc(          spc(spc(spc(        spc(spc(spc(spc(      spc(spc(spc(spc(spc(spc("
  205. 2060 [153]"spc(         spc(spc(spc(spc(spc(spc(spc(        spc(spc(      spc(spc(spc(spc(spc(spc("
  206. 2070 [153]"spc(spc(        spc(spc(spc(spc(spc(spc(spc(spc(       spc(spc(      spc(spc(spc(spc(spc(spc("
  207. 2080 [153]"spc(spc(spc(                      spc(spc(        spc(spc(spc(spc("
  208. 2090 [153]"spc(spc(spc(spc(spc(                  notspc(spc(spc(spc(      helpspc("
  209. 2091 [139]eo[178]1[167][153]"onspc(spc(spc(spc(spc(                  notspc(spc(spc(spc(          spc("
  210. 2100 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
  211. 2110 [151]646,4
  212. 2120 [137]540
  213. 2130 [151]2040,15
  214. 2131 ers[178]ers[170]1
  215. 2140 [153]"load
  216. 2150 print"          [146]     [146]
  217. 2160 [153]"          wait     wait
  218. 2170 print"          [146]     [146]
  219. 2180 [153]"          wait     wait
  220. 2190 print"       [223]  [223][169]  [146][169]
  221. 2200 [153]"        (NULL)    waitstep
  222. 2210 print"         [175][175][175][175][175]       v
  223. 2220 [153]"         (NULL)   waitstep       e
  224. 2230 print"             [146]        r
  225. 2240 [153]"             wait        d
  226. 2250 print"     [170][223][146]      [146]   [169][146][180]   i
  227. 2260 [153]"     +           waitsgn kreuz
  228. 2270 print"     [170]           [146][180]   n
  229. 2280 [153]"     +step      wait   (NULL)sgn   s
  230. 2290 print"             [146]        t
  231. 2300 [153]"             wait
  232. 2310 print"         [169]   [223][146]
  233. 2320 [153]"         usrusrusrusrusr
  234. 2330 print"      durch hervorragende leistungen"
  235. 2340 print"      wurde ihnen zum "ers"ten male"
  236. 2350 print"      das verdienstkreuz verliehen "
  237. 2351 ifers=2thengoto7000
  238. 2360 geta$:ifa$=" " thenpoke2040,13:goto1520
  239. 2370 goto2360
  240. 2371 goto540
  241. 2380 printchr$(147)
  242. 2390 print"
  243. 2400 [153]"
  244. 2410 print"[153][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  245. 2420 print"[166][166][166][166][166][166][166]              [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  246. 2430 print"[166][166][166][166][220]                 [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"              
  247. 2440 print"[166][166][166]         [168][166][166][166]       [166][166][166]       [166][166][166][166][166][166]"
  248. 2450 print"[166][166][166][166]      [166][166][166][166][166][166][166]      [166][166]       [166][166][166][166][166][166][166]"
  249. 2460 print"[166][166][168][168]       [166][166][166][166][166][166][166][166][166][166][166][166]       [166][166][166][166][166][166][166][166][166]"
  250. 2470 print"[166][166][166][220]       [166][166][166][166]                  [166][166][166][166][166][166]"
  251. 2480 print"[166][220]       [168][166][166][166][166]                   [166][166][166][166][166][166]"
  252. 2490 print"[166][220]        [166][166][166]        [166][166][166][166][166][166]      [166][166][166][166][166][166]"
  253. 2500 print"[166][220]           [166][166]        [166][166][166]       [166][166][166][166][166][166]"
  254. 2510 print"[166][166][166][166][166][168][168]        [220]      [166][166][166][166]      [166][166][166][166][166][166][166]"
  255. 2520 print"[166][166][166][166][166][220]        [220]      [168][166][166][166][166]      [166][166][166][166][166][166][166]"
  256. 2530 print"[166][166][166][166][166]       [166][166][220]       [166][166][166][166]       [166][166][166][166][166][166]"
  257. 2540 print"[166][166]         [168][166][166][166]        [166][166][166][166]      [166][166][166][166][166][166]"
  258. 2550 print"[166][166][166][220]      [166][166][166][166][166][166][166]        [166][166]      [166][166][166][166][166][166]"
  259. 2560 print"[166][166]        [166][166][166][166][166][166][166][166]       [166][166]      [166][166][166][166][166][166]"
  260. 2570 print"[166][166][166]                      [166][166]        [166][166][166][166]"
  261. 2580 print"[166][166][166][166][166]                  [168][166][166][166][166]      help[166]"
  262. 2581 ifeo=1thenprint"[145][166][166][166][166][166]                  [168][166][166][166][166]          [166]"
  263. 2590 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  264. 2600 poke646,1
  265. 2610 goto540
  266. 2620 printchr$(147)
  267. 2630 print"
  268. 2640 [153]"
  269. 2650 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  270. 2660 print"[166][166][166][166][166][166]               [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  271. 2670 print"[166][166][166][166][220]                 [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  272. 2680 print"[166][166][166]          [168][166][166][220]      [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  273. 2690 print"[166][166][166]       [166][166][166][166][166][166][166]      [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  274. 2700 print"[166][166][168]        [166][166][166][166][166][166][166][166][166][166][166][166][166]      [166][166][166][166][166][166][166][166][166]"
  275. 2710 print"[166][166][166]       [168][166][166][166][166]                  [166][166][166][166][166][166]"
  276. 2720 print"[166][220]       [166][166][166][166][166]                   [166][166][166][166][166][166]"
  277. 2730 print"[166][220]       [166][166][166][166]       [166][166][166][166][166][166][166]      [166][166][166][166][166][166]"
  278. 2740 print"[166][166][168]       [166][166][166]      [168][166][166][166][166][166][166]       [166][166][166][166][166][166]"
  279. 2750 print"[166][166][166][168]        [166]       [166][166][166][166][166][166]      [166][166][166][166][166][166][166]"
  280. 2760 print"[166][166][166][166][166][220]      [166][166]       [166][166][166][166][166]      [166][166][166][166][166][166][166]"
  281. 2770 print"[166][166][166][166][166]       [166][166][220]      [166][166][166][166][166]       [166][166][166][166][166][166]"
  282. 2780 print"[166][166] [220]       [168][166][166][166]        [166][166][166][166]      [166][166][166][166][166][166]"
  283. 2790 print"[166][166][166][220]      [166][166][166][166][166][166][166]       [220][166][166]      [166][166][166][166][166][166]"
  284. 2800 print"[166][166]         [220]             [166][166]      [166][166][166][166][166][166]"
  285. 2810 print"[166][166][166]                      [166][166]        [166][166][166][166]"
  286. 2820 print"[166][166][166][166][166][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][168][166][166][166][166]      help[166]"
  287. 2821 ifeo=1thenprint"[145][166][166][166][166][166][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][168][166][166][166][166]          [166]"
  288. 2830 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  289. 2840 poke646,4
  290. 2850 goto540
  291. 2860 printchr$(147)
  292. 2870 print"
  293. 2880 [153]"
  294. 2890 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  295. 2900 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]              [166][166][166][166][166][166][166][166][166][166]"
  296. 2910 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][220]               [166][166][166][166][166][166][166][166][166]"
  297. 2920 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][220]      [220]      [166][166][166][166][166][166][166][166][166]"
  298. 2930 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]      [166]      [166][166][166][166][166][166][166][166][166]"
  299. 2940 print"[166][166][168]             [166][166][166][166][166][166][166][166]      [166][166][166][166][166][166][166][166][166]"
  300. 2950 print"[166][166][166]                             [220][166][166][166][166][166][166]"
  301. 2960 print"[166][220]       [166][166][166]                 [168][168][168][168][166][166][166][166][166][166]"
  302. 2970 print"[166][220]       [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  303. 2980 print"[166][166][168]       [166][166][166]                    [166][166][166][166][166][166]"
  304. 2990 print"[166][166][166][168]       [168][166]                   [166][166][166][166][166][166][166]"
  305. 3000 print"[166][166][166][166]        [166][166]        [166][166][166][166]      [166][166][166][166][166][166][166]"
  306. 3010 print"[166][166][166][166]        [166][166][220]      [166][166][166][166][166]       [166][166][166][166][166][166]"
  307. 3020 print"[166][166] [220]       [168][166][166][166]        [166][166][166][166]      [166][166][166][166][166][166]"
  308. 3030 print"[166][166][166][220]      [166][166][166][166][166][166][166]       [220][166][166]      [166][166][166][166][166][166]"
  309. 3040 print"[166][166]         [220]             [166][166]      [166][166][166][166][166][166]"
  310. 3050 print"[166][166][166]                      [166][166]        [166][166][166][166]"
  311. 3060 print"[166][166][166][166][166][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][168][166][166][166][166]      help[166]"
  312. 3061 ifeo=1thenprint"[145][166][166][166][166][166][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][175][164][168][166][166][166][166]          [166]"
  313. 3070 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  314. 3080 poke646,4
  315. 3090 goto540
  316. 3100 print"[147]
  317. 3110 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(
  318. 3120 print"[166][166][166][166][166][166][220]                          [166][166][166][166][166][166]"
  319. 3130 print"[166][166][166][166][166][166][166]                          [166][166][166][166][166][166]"
  320. 3140 print"[166][166][166][166][166][220]       [166][166][166][166][166][166][166][166][166][166][166][166][166]      [166][166][166][166][166][166][166]"
  321. 3150 print"[166][166][166][166][166][220]      [168][166][166][166][220]      [166][166][166]      [166][166][166][166][166][166][166]"
  322. 3160 print"[166][166][166][166][166]       [166][166][166][166][220]      [166][166][166]      [166][166][166][166][166][166][166]"
  323. 3170 print"[166][166][166][166][166]        [166][166][166][220]        [168]       [166][166][166][166][166][166]"
  324. 3180 print"[166][166][166][166][166][168]       [166][166][166][166]       [166][166]      [166][166][166][166][166][166][166]"
  325. 3190 print"[166][166][166][166][166][166][166]                [168][166][166]      [166][166][166][166][166][166][166]"
  326. 3200 print"[166][166][166][166][166][166][166][166]               [166][166][166]      [166][166][166][166][166][166][166]"
  327. 3210 print"[166][166][166][166][166][166][166][166][166][166][168][168][168][168][168][166][166][166][166][168][168][168][168][220]        [166][166][166][166][166][166]"
  328. 3220 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][220]          [166][166][166][166][166][166][166][166]"
  329. 3230 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]           [166][166][166][166][166][166][166][166][166][166]"
  330. 3240 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][220]         [166][166][166][166][166][166][166][166][166][166][166][166]"
  331. 3250 print"[166][166][166][166][166][166][166][220]                 [166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  332. 3260 print"[220][166][166][166][166][166][166][166]            [168][168][168][168]            [166][166][166]"
  333. 3270 print"[166][166][166][166][166][166][166][168]      [166][166][166][166][166]                 [166][166][166]"
  334. 3280 print"[166][166][166][166]                        [168] help! [166][166][166]"
  335. 3281 ifeo=1thenprint"[145][166][166][166][166]                        [168]       [166][166][166]"
  336. 3290 print"[166][166][166][166][166][220]   [168]             [168][168][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  337. 3300 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  338. 3310 poke646,13
  339. 3320 goto540
  340. 3330 print"[147][155]
  341. 3340 [153]"        andnewusr usrwaitnewand
  342. 3350 print"       [182]       [146][181]
  343. 3360 [153]"       int  drklist  abswait
  344. 3370 print"       [182]       [146][181]
  345. 3380 [153]"        usrnewand andnewwaitfre
  346. 3390 print"           [194]
  347. 3400 [153]"           peek
  348. 3410 print"           [194]
  349. 3420 [153]"sys     durch tolle  retungsaktionen   "
  350. 3430 [153]"     in verwegenen schluchten wird     "
  351. 3440 [153]"     ihnen die drk-bronzenadel         "
  352. 3450 [153]"     verliehen .                       "
  353. 3460 [161] a$:[139]a$[178]" "[167][142]
  354. 3470 [137]3460
  355. 7000 [161]a$:[139]a$[179][177]""[167][137]7020
  356. 7010 [137]7000
  357. 7020 [153]"load"
  358. 7021 [151]53281,1:[151]53280,1
  359. 7030 [153]"    ihre leistungen sind unnachahmlich!"
  360. 7040 [153]"    einfach toll,wie sie mit dem     "
  361. 7050 [153]"    hubschrauber durch die schluchten"
  362. 7060 [153]"    geflogen sind !                  "
  363. 7070 [153]"sys    wenn sie jetzt noch alles im     "
  364. 7080 [153]"sys    profi modus schaffen sind sie    "
  365. 7090 [153]"sys    einsame spitze . (es waere
  366. 7100 print"[158]    das beste ergebnis eh und je)"
  367. 7110 print"                 space
  368. 7120 [161]a$:[139]a$[178]" "[167][138]
  369. 7130 [137]7120
  370.