home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_A.d64 / zeittunnel (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  27KB  |  732 lines
  1. 1 rem ***********************
  2. 2 rem *   zeittunnel        *
  3. 3 rem *(c)by jens schuerks/ *
  4. 4 rem *  arndt meiswinkel   *
  5. 5 rem ***********************
  6. 6 print"[147]":poke53280,0:poke53281,0:poke808,225:dimb1$(27)
  7. 7 rem ** raum 1 **
  8. 10 b1$(1)="[145][152]   [205]                               [206]   "
  9. 20 b1$(2)="[152]    [205]                             [206]    "
  10. 30 b1$(3)="[152]     [205]                           [206]     "
  11. 40 b1$(4)="[152]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]      "
  12. 50 b1$(5)="[152]      [180]                         [170]      "
  13. 60 b1$(6)="[152]      [180]                         [170]      "
  14. 70 b1$(7)="[152]      [180]                         [170]      "
  15. 80 b1$(8)="[152]      [180]     [172][187]    [149][207][183][183][183][183][183][183][183][183][183][183][183][183][208][152][170]      "
  16. 90 b1$(9)="[152]      [180]   [213][192][177][177][192][201]  [149][180][207][183][183][183][183][208][183][183][183][183][183][208][170][152][170]      "
  17. 100 b1$(10)="[152]      [180]   [221][155][202][201][202][201][152][221]  [149][180][180]    [170]     [170][170][152][170]      "
  18. 110 b1$(11)="[152]      [180]   [221][155][213][203][213][203][152][221]  [149][180][180]    [170]     [170][170][152][170]      "
  19. 120 b1$(12)="[152]      [180]   [221][155][202][201][202][201][152][221]  [149][180][180]    [170]     [170][170][152][170]      "
  20. 130 b1$(13)="[152]      [180]   [221][155][213][203][213][203][152][221]  [149][180][180]   .[170] .   [170][170][152][170]      "
  21. 140 b1$(14)="[152]      [180]   [202][192][192][192][192][203]  [149][180][180]    [170]     [170][170][152][170]      "
  22. 150 b1$(15)="[152]      [180]           [149][180][180]    [170]     [170][170][152][170]      "
  23. 160 b1$(16)="[152]      [180]           [149][180][204][175][175][175][175][186][175][175][175][175][175][186][170][152][170]      "
  24. 170 b1$(17)="[152]      [204][175][175][175][175][175][175][175][175][175][175][175][149][204][175][175][175][175][175][175][175][175][175][175][175][175][186][152][186]      "
  25. 180 b1$(18)="[152]     [206]            [182][188]          [190][181] [205]     "
  26. 190 b1$(19)="[152]    [206]                             [205]    "
  27. 200 b1$(20)="[152]   [206]                               [205]   "
  28. 210 b1$(21)="[152]  [206]                                 [205]  "
  29. 220 b1$(22)="[154]wohnzimmer"
  30. 230 b1$(23)="[154]schrank / bild"
  31. 240 rem ** raum 2 **
  32. 250 dimb2$(23)
  33. 260 b2$(1)="                              "
  34. 270 b2$(2)="               [169][223][146]           [158].          "
  35. 280 b2$(3)=" [158].        .   [169]  [223][146]    [158].          "
  36. 290 b2$(4)="   [158].         [169]    [223][146]           [158][209]   .   "
  37. 300 b2$(5)="     [209]      [169]      [223][169] [223][146]                "
  38. 310 b2$(6)="           [169]       [206]   [223][146]   [158].           "
  39. 320 b2$(7)="  [158].  .    [169]       [206]     [223][146]      [158].       "
  40. 330 b2$(8)="   [169][223][146]    [169]       [206]       [223][146]             "
  41. 340 b2$(9)="  [169]  [223][146]  [169]       [206]         [223][146]            "
  42. 350 b2$(10)=" [169]    [223][169]       [206]           [223][146]   [158].    .  "
  43. 360 b2$(11)="[169]      [205]      [206]             [223][146]         [169]"
  44. 370 b2$(12)="        [205]    [206]               [223][146]       [169] "
  45. 380 b2$(13)="         [205]  [206]                 [223][146]     [169]  "
  46. 390 b2$(14)="[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][149][169]     [223][163][163]"
  47. 400 b2$(15)="[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][149][169]       [223][163]"
  48. 410 b2$(16)="[149]                                       "
  49. 420 b2$(17)="[149]                                       "
  50. 430 b2$(18)="[149]                                       "
  51. 440 b2$(19)="[149]                                       "
  52. 450 b2$(20)="[163][163][163][163][163][163][163][163][163][163][149][169]             [223][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  53. 460 b2$(21)="[163][163][163][163][163][163][163][163][163][149][169]               [223][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 470 b2$(22)="[154]kristall-planet"
  55. 480 b2$(23)="[154]gebirge / wegkreuzung"
  56. 490 rem ** raum 3 **
  57. 500 dimb3$(23)
  58. 510 b3$(1)="[145]     [169]  [223][146]                  .    [169][223][146]     "
  59. 520 b3$(2)=" .  [169]    [223][146]    .       .        [169]  [223][146]  [209] "
  60. 530 b3$(3)="   [169]      [223][146] .  [169][223][146]           . [169]    [223][146]  "
  61. 540 b3$(4)="  [169]        [223][146]  [169]  [223][146]  [209]        [169]      [223][146] ."
  62. 550 b3$(5)=" [169]          [223][169]    [223][146]    .    [169]        [223][146] "
  63. 560 b3$(6)="[169]           [206]      [223][146]       [169]          [223]"
  64. 570 b3$(7)="           [206]        [223][146]     [169]            "
  65. 580 b3$(8)="          [206]          [223][146] . [169]             "
  66. 590 b3$(9)="         [206]            [223][146] [169]              "
  67. 600 b3$(10)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]    [223][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  68. 610 b3$(11)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]      [223][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  69. 620 b3$(12)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]        [223][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  70. 630 b3$(13)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]          [223][163][163][163][163][163][163][163][163][163][163][163][163]"
  71. 640 b3$(14)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]  [146][169]      [223]  [223][163][163][163][163][163][163][163][163][163][163][163]"
  72. 650 b3$(15)="[163][163][163][163][163][163][163][163][163][163][163][163][163][149][169]  [146][169][206][207][183][183][183][183][208][205][149][223][149]             "
  73. 660 b3$(16)="[163][163][163][163][163][163][163][163][163][163][163][163][149][169]  [146][169][167][152][169]      [223][146][165][149][223]            "
  74. 670 b3$(17)="[163][163][163][163][163][163][163][163][163][163][163][149][169]  [146][169] [167][152]        [146][165] [149][223]           "
  75. 680 b3$(18)="[163][163][163][163][163][163][163][163][163][163][149][169]  [146][169]              [223][149]          "
  76. 690 b3$(19)="[163][163][163][163][163][163][163][163][163][149][169]   [146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149]   [223][163][163][163][163][163][163]"
  77. 700 b3$(20)="[163][163][163][163][163][163][163][163][149][169]    [146]                [149]    [223][163][163][163][163][163]"
  78. 710 b3$(21)="[163][163][163][163][163][163][163][149][169]                          [223][163][163][163][163]"
  79. 720 b3$(22)="[154]kristall-planet"
  80. 730 b3$(23)="[154]gebirge / weg / schacht"
  81. 740 rem ** raum 4 **
  82. 750 dimb4$(23)
  83. 760 b4$(1)="[145][152]    [205]                             [206]    "
  84. 770 b4$(2)="[152]     [205]                      [175][175][175][175] [206]     "
  85. 780 b4$(3)="[152]      [205]                    [206][171][192][179][206][206]      "
  86. 790 b4$(4)="[152]       [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][171][192][179][208]       "
  87. 805 b4$(5)="[152]       [180] [146]   .     .         [171][192][179][170]       "
  88. 810 b4$(6)="[152]       [180] [146]              .    [171][192][179][170]       "
  89. 820 b4$(7)="[152]       [180] [146] .   .         .   [171][192][179][170]       "
  90. 830 b4$(8)="[152]       [180] [146]                   [171][192][179][170]       "
  91. 840 b4$(9)="[152] [170][205]    [180] [146]   [209]      .       [152] [171][192][179][170]       "
  92. 850 b4$(10)="[152] [170][218][180]   [180] [146]              .    [171][192][179][170]       "
  93. 860 b4$(11)="[152] [170][206]    [180] [146]             [209][152]     [171][192][179][170]       "
  94. 870 b4$(12)="[152]       [180] [146]  .     .          [171][192][179][170]       "
  95. 880 b4$(13)="[152]       [180] [146]               .   [171][192][179][170]       "
  96. 890 b4$(14)="[152]       [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][171][192][179][186]       "
  97. 900 b4$(15)="[152]      [206]         .    .          [205]      "
  98. 910 b4$(16)="[152]     [206]         .      .          [205]     "
  99. 920 b4$(17)="[152]    [206].............................[205]    "
  100. 930 b4$(18)="[152]   [206]         .          .          [205]   "
  101. 940 b4$(19)="[152]  [206]         .            .          [205]  "
  102. 950 b4$(20)="[152] [206]...................................[205] "
  103. 960 b4$(21)="[152][206]         .                .          [205]"
  104. 970 b4$(22)="[154]halle"
  105. 980 b4$(23)="[154]fenster / knopf / leiter"
  106. 990 rem ** raum 5 **
  107. 1000 dimb5$(23)
  108. 1010 b5$(1)="[145][152]    [205]                             [206]    "
  109. 1020 b5$(2)="[152]     [205]                           [206]     "
  110. 1030 b5$(3)="[152]      [205]                         [206]      "
  111. 1040 b5$(4)="[152]       [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]       "
  112. 1050 b5$(5)="[152]       [165]                       [167]       "
  113. 1060 b5$(6)="[152]       [165] [167][183][183][183][183][183][183][183][183][183][183][180]          [170]       "
  114. 1065 b5$(7)="[152]       [165] [167]          [165]          [167]       "
  115. 1070 b5$(8)="[152]       [165] [167]          [165]          [167]   [206][165]  "
  116. 1080 b5$(9)="[152]       [165] [167]          [180]          [167]  [167][218][165]  "
  117. 1090 b5$(10)="[152]       [165] [167]          [165]          [167]   [205][165]  "
  118. 1100 b5$(11)="[152]       [165] [167][164][164][164][164][164][164][164][164][164][164][165]   [146][169]   [223]  [167]       "
  119. 1110 b5$(12)="[152]       [165] [167][146]..........[165]   [146][163][163][163][163][163]  [167]       "
  120. 1120 b5$(13)="[152]       [165] [167][146]          [165]   [146] [207][183][208]   [167]       "
  121. 1130 b5$(14)="[152]       [204][175][186][146]..........[204][175][175][175][146] [204][175][186] [175][175][186]       "
  122. 1140 b5$(15)="[152]      [206]       .         [146]        [205]      "
  123. 1150 b5$(16)="[152]     [206]       .            .      [205]     "
  124. 1160 b5$(17)="[152]    [206].............................[205]    "
  125. 1170 b5$(18)="[152]   [206]       .                .      [205]   "
  126. 1180 b5$(19)="[152]  [206]       .                  .      [205]  "
  127. 1190 b5$(20)="[152] [206]...................................[205] "
  128. 1200 b5$(21)="[152][206]       .                      .      [205]"
  129. 1210 b5$(22)="[154]transmitter-raum"
  130. 1220 b5$(23)="[154]tresor / knopf"
  131. 1230 rem ** raum 6 **
  132. 1240 dimb6$(23)
  133. 1250 b6$(1)="[145][152]   [205]                               [206]   "
  134. 1260 b6$(2)="[152] [146][223]  [205]                             [206]  [146][169] "
  135. 1270 b6$(3)="[152] [146] [223]  [205]                           [206]  [146][169]  "
  136. 1280 b6$(4)="[152] [146]  [223]  [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]  [146][169]   "
  137. 1290 b6$(5)="[152] [146]   [223] [180]                         [170] [146][169]    "
  138. 1300 b6$(6)="[152] [146]     [180]                         [170] [146]     "
  139. 1310 b6$(7)="[152] [146]     [180]                         [170] [146]     "
  140. 1320 b6$(8)="[152] [146]     [180]                         [170] [146]     "
  141. 1330 b6$(9)="[152] [146]     [180]                         [170] [146]     "
  142. 1340 b6$(10)="[152] [146]     [180] < depot          jail > [170] [146]     "
  143. 1350 b6$(11)="[152] [146]     [180]                         [170] [146]     "
  144. 1360 b6$(12)="[152] [146]     [180]                         [170] [146]     "
  145. 1370 b6$(13)="[152] [146]     [180]                         [170] [146]     "
  146. 1380 b6$(14)="[152] [146]     [180]                         [170] [146]     "
  147. 1390 b6$(15)="[152] [146]     [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [146]     "
  148. 1400 b6$(16)="[152] [146][164][164][164][164][169]       .           .       [223][164][164][164][164] "
  149. 1410 b6$(17)="[152] [146]..................................... "
  150. 1420 b6$(18)="[152] [146]          .               .           "
  151. 1430 b6$(19)="[152] [146]         .                 .          "
  152. 1440 b6$(20)="[152] [146]..................................... "
  153. 1450 b6$(21)="[146][152][169]        .                     .      [223]"
  154. 1460 b6$(22)="[154]gang"
  155. 1470 b6$(23)="[154]wegweiser"
  156. 1480 rem ** raum 7 **
  157. 1490 dimb7$(23)
  158. 1500 fora=1to21:b7$(a)=b6$(a):next
  159. 1510 b7$(2)="[152]   "+right$(b7$(2),38)
  160. 1520 b7$(3)="[152]   "+right$(b7$(3),38)
  161. 1530 b7$(4)="[152]    "+right$(b7$(4),37)
  162. 1540 b7$(5)="[152]     "+right$(b7$(5),36)
  163. 1550 fora=6to14step2:b7$(a)="[152]      [180] [158][146][219][219][219][219][219][219][219][219][219][219][219][219][152]"+right$(b7$(a),21):next
  164. 1560 fora=7to15step2:b7$(a)="[152]      [180] [158][146][221][221][221][221][221][221][221][221][221][221][221][221][152]"+right$(b7$(a),21):next
  165. 1570 b7$(16)="[152]     [146]"+right$(b7$(16),35)
  166. 1580 b7$(17)="[152]    [146][169]"+right$(b7$(17),35)
  167. 1590 b7$(18)="[152]   [146][169]"+right$(b7$(18),36)
  168. 1600 b7$(19)="[152]  [146][169]"+right$(b7$(19),37)
  169. 1610 b7$(20)="[152] [146][169]"+right$(b7$(20),38)
  170. 1620 b7$(22)="[154]gang-ende"
  171. 1630 b7$(23)="[154]laser-gitter"
  172. 1640 rem ** raum 8 **
  173. 1650 dimb8$(23)
  174. 1660 fora=1to21:b8$(a)=b6$(a):next
  175. 1670 b8$(2)=left$(b8$(2),40)+"[152]   "
  176. 1680 b8$(3)=left$(b8$(3),40)+"[152]   "
  177. 1690 b8$(4)=left$(b8$(4),39)+"[152]    "
  178. 1700 b8$(5)=left$(b8$(5),38)+"[152]     "
  179. 1710 b8$(6)=left$(b8$(6),23)+"[152][207][183][183][183][183][183][183][183][183][183][183][208] [170]      "
  180. 1720 b8$(7)=left$(b8$(7),23)+"[152][180]          [170] [170]      "
  181. 1730 b8$(8)=left$(b8$(8),23)+"[152][180]   [158][146][219][219][219][219][219][219][152] [170] [170]      "
  182. 1740 b8$(9)=left$(b8$(9),23)+"[152][180]   [158][146][219][219][219][219][219][219][152] [170] [170]      "
  183. 1750 b8$(10)=left$(b8$(10),23)+"[152][180]   [158][146][219][219][219][219][219][219][152] [170] [170]      "
  184. 1760 b8$(11)=left$(b8$(11),23)+"[152][180]   [158][146][219][219][219][219][219][219][152] [170] [170]      "
  185. 1770 b8$(12)=left$(b8$(12),23)+"[152][180]   [158][146][219][219][219][219][219][219][152] [170] [170]      "
  186. 1780 b8$(13)=left$(b8$(13),23)+"[146][152]............ [170]      "
  187. 1790 b8$(14)=left$(b8$(14),23)+"[146][152]    .        [170]      "
  188. 1800 b8$(15)=left$(b8$(15),23)+"[146][152]............ [170]      "
  189. 1810 b8$(16)=left$(b8$(16),37)+"[152]     "
  190. 1820 b8$(17)=left$(b8$(17),37)+"[152][223]    "
  191. 1830 b8$(18)=left$(b8$(18),38)+"[152][223]   "
  192. 1840 b8$(19)=left$(b8$(19),39)+"[152][223]  "
  193. 1850 b8$(20)=left$(b8$(20),40)+"[152][223] "
  194. 1860 rem ** raum 9 **
  195. 1870 dimb9$(23)
  196. 1890 b9$(1)="[152]   [205]                               [206]   "
  197. 1900 b9$(2)="[152]    [205]                             [206]    "
  198. 1910 b9$(3)="[152]     [205]                           [206]     "
  199. 1920 b9$(4)="[152]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]      "
  200. 1930 b9$(5)="[152]      [165]                         [167]      "
  201. 1940 b9$(6)="[152]      [165]                         [167]      "
  202. 1950 b9$(7)="[152]      [165]       [146][158][219][219][219][219][219][219][219][219][219][219][219][152]       [167]      "
  203. 1960 b9$(8)="[152]      [165]       [146][158][221][221][221][221][221][221][221][221][221][221][221][152]       [167]      "
  204. 1970 b9$(9)="[152]      [165]       [146][158][219][219][219][219][219][219][219][219][219][219][219][152]       [167]      "
  205. 1980 b9$(10)="[152]      [165]       [146][158][221][221][221][221][221][221][221][221][221][221][221][152]       [167]      "
  206. 1990 b9$(11)="[152]      [165]       [146][158][219][219][219][219][219][219][219][219][219][219][219][152]       [167]      "
  207. 2000 b9$(12)="[152]      [165]       [146][158][221][221][221][221][221][221][221][221][221][221][221][152]       [167]      "
  208. 2010 b9$(13)="[152]      [165]       [146][158][219][219][219][219][219][219][219][219][219][219][219][152]       [167]      "
  209. 2020 b9$(14)="[152]      [165]       [146][158][221][221][221][221][221][221][221][221][221][221][221][152]       [167]      "
  210. 2030 b9$(15)="[152]      [204][175][175][175][175][175][175][175][146][158][219][219][219][219][219][219][219][219][219][219][219][152][175][175][175][175][175][175][175][186]      "
  211. 2040 b9$(16)="[152]     [146][169]       .           .       [152][223]     "
  212. 2050 b9$(17)="[152]    [146][169].............................[152][223]    "
  213. 2060 b9$(18)="[152]   [146][169]       .               .       [152][223]   "
  214. 2070 b9$(19)="[152]  [146][169]       .                 .       [152][223]  "
  215. 2080 b9$(20)="[152] [146][169]...................................[152][223] "
  216. 2090 b9$(21)="[152][146][169]       .                     .       [152][223]"
  217. 2100 b9$(22)="[154]jail"
  218. 2110 b9$(23)="[154]waechter / laser-gitter"
  219. 2120 rem ** raum 10 **
  220. 2130 dimba$(23)
  221. 2140 ba$(1)="[152]   [205]                               [206]   "
  222. 2150 ba$(2)="[152]    [205]                             [206]    "
  223. 2160 ba$(3)="[152]  [146][223]  [205]                           [206]     "
  224. 2170 ba$(4)="[152]  [146] [223]  [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]      "
  225. 2180 ba$(5)="[152]  [146]  [223] [180]                         [170]      "
  226. 2190 ba$(6)="[152]  [146][163][163][163] [180]                         [170]      "
  227. 2200 ba$(7)="[152]  [146]    [180]                         [170]      "
  228. 2210 ba$(8)="[152]  [146]    [180]         [146][207][183][183][183][183][183][208][152]         [170]      "
  229. 2220 ba$(9)="[152]  [146]    [180]         [146][180]hey  [170][152]         [170]      "
  230. 2230 ba$(10)="[152]  [146]    [180]         [146][180]you ![170][152]         [170]      "
  231. 2240 ba$(11)="[152]  [146]    [180]         [146][204][175][175][175][175][175][186][152]         [170]      "
  232. 2250 ba$(12)="[152]  [146]    [180]        [146][169]:::::::[223]        [170]      "
  233. 2260 ba$(13)="[152]  [146]    [180]        [146][163][163][163][163][163][163][163][163][163]        [170]      "
  234. 2270 ba$(14)="[152]  [146]    [180]                         [170]      "
  235. 2280 ba$(15)="[152]  [146]    [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]      "
  236. 2290 ba$(16)="[152]  [146][164][164][164][169]        .         .        [223]     "
  237. 2300 ba$(17)="[152]  [146]................................[223]    "
  238. 2310 ba$(18)="[152]  [146]          .             .        [223]   "
  239. 2320 ba$(19)="[152]  [146]         .               .        [223]  "
  240. 2330 ba$(20)="[152] [146][169]...................................[223] "
  241. 2340 ba$(21)="[152][146][169]        .                   .        [223]"
  242. 2350 ba$(22)="[154]depot"
  243. 2360 ba$(23)="[154]computer / schwert"
  244. 2370 rem ** raum 11 **
  245. 2380 dimbb$(23)
  246. 2390 bb$(1)="[152]   [205]                               [206]   "
  247. 2400 bb$(2)="[152]    [205]                             [206]    "
  248. 2410 bb$(3)="[152]     [205]                           [206]  [146][169]  "
  249. 2420 bb$(4)="[152]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]  [146][169]   "
  250. 2430 bb$(5)="[152]      [165]                         [167] [146][169]    "
  251. 2440 bb$(6)="[152]      [165]     [146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][152]    [167] [146][163][163][163]  "
  252. 2450 bb$(7)="[152]      [165]     [146][165]              [167][152]    [167] [146]     "
  253. 2460 bb$(8)="[152]      [165]     [146][165] [153]password ?   [167][152]    [167] [146]     "
  254. 2470 bb$(9)="[152]      [165] [166][166]  [146][165]              [167][152] [166][166] [167] [146]     "
  255. 2480 bb$(10)="[152]      [165] [166][166]  [146][165]>             [167][152] [166][166] [167] [146]     "
  256. 2490 bb$(11)="[152]      [165]     [146][165]              [167][152]    [167] [146]     "
  257. 2500 bb$(12)="[152]      [165]     [146][165]              [167][152]    [167] [146]     "
  258. 2510 bb$(13)="[152]      [165]     [146][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]    [167] [146]     "
  259. 2520 bb$(14)="[152]      [165]                         [167] [146]     "
  260. 2530 bb$(15)="[152]      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [146]     "
  261. 2540 bb$(16)="[152]     [146][169]       .            .      [223][164][164][164]  "
  262. 2550 bb$(17)="[152]    [146][169]................................  "
  263. 2560 bb$(18)="[152]   [146][169]       .                .          "
  264. 2570 bb$(19)="[152]  [146][169]       .                  .         "
  265. 2580 bb$(20)="[152] [146][169]...................................[223] "
  266. 2590 bb$(21)="[152][146][169]       .                      .      [223]"
  267. 2600 bb$(22)="[154]computerraum"
  268. 2610 bb$(23)="[154]computer / mikrophon"
  269. 2611 zn=int(rnd(1)*900000)+10000
  270. 2612 zf$=chr$(int(rnd(1)*30)+65)+chr$(int(rnd(1)*30)+65)+"-"
  271. 2613 zf$=zf$+str$(int(rnd(1)*90)+10)
  272. 2614 lg=int(rnd(1)*900000)+10000
  273. 2620 gosub10000:goto3000
  274. 2700 rem ** routinen **
  275. 2710 rem ** bildtext **
  276. 2720 print"[158][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][174]"
  277. 2730 print"[221] standort:                          [221]"
  278. 2740 print"[221] du siehst:                         [221]"
  279. 2750 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][189]"
  280. 2760 x=12:y=21:x1=13:y1=22:return
  281. 2770 rem ** woerterlesen **
  282. 2780 va$="":v$=""
  283. 2790 poke211,cx:poke214,cy:sys58640
  284. 2800 print"> [146][157]";
  285. 2810 getv$:ifv$=""then2810
  286. 2815 ifv$="[145]"orv$=""orv$=""orv$=""orv$="[157]"orv$="[147]"then2810
  287. 2820 ifv$=chr$(13)thenprint" ";:return
  288. 2830 ifv$=chr$(20)then2870
  289. 2840 printv$;" [146][157]";
  290. 2850 va$=va$+v$
  291. 2860 v$="":goto2810
  292. 2870 l=len(va$)-1
  293. 2880 ifl=-1then2810
  294. 2890 printv$;
  295. 2900 va$=left$(va$,l)
  296. 2910 goto2810
  297. 2920 rem ** wortausgabe **
  298. 2930 cy=cy+2
  299. 2940 ifcy>=24thency=24:print""
  300. 2950 poke211,cx:poke214,cy:sys58640
  301. 2960 print">";an$
  302. 2970 cy=cy+2
  303. 2980 ifcy>=24thency=24:print"";
  304. 2990 an$="":return
  305. 3000 rem ** hauptprogramm **
  306. 3010 rem ** teil 1 **
  307. 3020 print"[147]":poke53280,0:poke53281,0
  308. 3025 poke53265,peek(53265)and239
  309. 3030 fori=1to21:printb1$(i):next
  310. 3040 gosub2710
  311. 3050 poke211,x:poke214,y:sys58640
  312. 3060 printb1$(22)
  313. 3070 poke211,x1:poke214,y1:sys58640
  314. 3080 printb1$(23);
  315. 3085 poke53265,peek(53265)or16
  316. 3090 geta$:ifa$<>chr$(13)then3090
  317. 3100 print"[147]":poke53280,14:poke53281,6
  318. 3110 print" du befindest dich in einem wohnzimmer."
  319. 3120 print" du siehst ein bild an der wand und"
  320. 3130 print" einen grossen schrank"
  321. 3140 cx=1:cy=8
  322. 3145 gosub2770
  323. 3150 ifva$="bild"then3000
  324. 3160 ifva$="n"orva$="s"orva$="w"orva$="o"orva$="ob"orva$="un"thenan$="kein weg"
  325. 3170 ifva$="oeffne schrank"thenan$="der schrank oeffnet sich":z=1
  326. 3180 ifva$="gehe durch schrank"andz<>1thenan$="der schrank ist zu"
  327. 3190 ifva$="gehe durch schrank"andz=1then3310
  328. 3200 restore:fora=1to7:readq$,w$
  329. 3210 ifq$=va$thenan$=w$
  330. 3220 next
  331. 3230 data"oeffne schrank","der schrank oeffnet sich","nehme schrank"
  332. 3240 data"der schrank ist zu schwer","druecke schrank"
  333. 3250 data"der schrank ist zu schwer","sage schrank","du sagst schrank"
  334. 3260 data"sage bild","du sagst bild","zerstoere bild","das bild ist zerstoert"
  335. 3270 data"zz","zz"
  336. 3280 ifan$=""thenan$="das hat keinen sinn"
  337. 3290 gosub2920
  338. 3300 goto3145
  339. 3310 rem ** teil 2 **
  340. 3330 fori=1to8:fori1=1to15:poke53280,i:poke53281,i1:next:next
  341. 3340 print"[147]":poke53280,15:poke53281,15
  342. 3365 fora=1to3500:next
  343. 3370 print"[147]":poke53280,0:poke53281,0
  344. 3375 poke53265,peek(53265)and239
  345. 3380 fori=1to21:printb2$(i):next
  346. 3390 gosub2710
  347. 3400 poke211,x:poke214,y:sys58640
  348. 3410 printb2$(22)
  349. 3420 poke211,x1:poke214,y1:sys58640
  350. 3430 printb2$(23);
  351. 3435 poke53265,peek(53265)or16
  352. 3440 geta$:ifa$<>chr$(13)then3440
  353. 3450 print"[147]":poke53280,14:poke53281,6
  354. 3460 print"du bist durch einen zeittunnel an"
  355. 3470 print"einen anderen ort und in eine andere"
  356. 3480 print"zeit verschlagen worden.du befindest"
  357. 3490 print"dich auf einem fremdartigem kristall"
  358. 3500 print"planeten an einer wegkreuzung."
  359. 3510 cx=1:cy=12
  360. 3515 gosub2770
  361. 3517 ifva$="bild"then3370
  362. 3520 iflen(va$)>2thenan$="das hat keinen sinn":gosub2920:goto3515
  363. 3530 ifva$="n"thenan$="du stehst vor einer wand":gosub2920:goto3515
  364. 3535 ifva$<>"o"andva$<>"w"thenan$="kein weg":gosub2920:goto3515
  365. 3540 ifva$<>"o"then3560
  366. 3545 za=za+1
  367. 3550 ifza=3then3590
  368. 3555 ifza<3then3370
  369. 3560 ifva$="w"thenza=za-1
  370. 3570 ifza=-1then3730
  371. 3575 ifza>-1then3370
  372. 3580 gosub2920
  373. 3590 print"[147]":poke53280,0:poke53281,0
  374. 3595 poke53265,peek(53265)and239
  375. 3600 fori=1to21:printb2$(i):next
  376. 3610 gosub2710
  377. 3620 poke211,x:poke214,y:sys58640
  378. 3630 printb2$(22)
  379. 3640 poke211,x1:poke214,y1:sys58640
  380. 3650 printb2$(23);
  381. 3655 poke53265,peek(53265)or16
  382. 3660 geta$:ifa$<>chr$(13)then3660
  383. 3670 print"[147]":poke53280,14:poke53281,6
  384. 3680 print"du befindest dich auf einem fremd"
  385. 3690 print"artigem kristall-planeten an einer"
  386. 3700 print"wegkreuzung.auf dem boden liegt eine"
  387. 3710 print"karte mit dem zahlencode:";zn
  388. 3720 goto3510
  389. 3730 rem ** teil 3 **
  390. 3740 print"[147]":poke53280,0:poke53281,0
  391. 3745 poke53265,peek(53265)and239
  392. 3750 fori=1to21:printb3$(i):next
  393. 3760 gosub2710
  394. 3770 poke211,x:poke214,y:sys58640
  395. 3780 printb3$(22)
  396. 3790 poke211,x1:poke214,y1:sys58640
  397. 3800 printb3$(23);
  398. 3805 poke53265,peek(53265)or16
  399. 3810 geta$:ifa$<>chr$(13)then3810
  400. 3820 print"[147]":poke53280,14:poke53281,6
  401. 3830 print"du befindest dich auf dem kristall"
  402. 3840 print"planeten.du stehst vor einem schacht,"
  403. 3850 print"der in die tiefe fuehrt."
  404. 3860 cx=1:cy=8
  405. 3870 z=0:gosub2770
  406. 3880 ifva$="o"thenza=za+1:goto3370
  407. 3890 ifva$="ru"then3950
  408. 3895 ifva$="bild"then3730
  409. 3900 ifva$="w"orva$="n"orva$="s"orva$="ob"thenan$="kein weg":z=1
  410. 3910 ifva$="zerstoere schacht"thenan$="du bist zu schwach":z=1
  411. 3920 ifva$="sage schacht"thenan$="du sagst schacht":z=1
  412. 3930 ifz=0thenan$="das geht nicht"
  413. 3940 gosub2920:goto3870
  414. 3950 rem ** teil 4 **
  415. 3960 print"[147]":poke53280,0:poke53281,0
  416. 3965 poke53265,peek(53265)and239
  417. 3970 fori=1to21:printb4$(i):next
  418. 3980 gosub2710
  419. 3990 poke211,x:poke214,y:sys58640
  420. 4000 printb4$(22)
  421. 4010 poke211,x1:poke214,y1:sys58640
  422. 4020 printb4$(23);
  423. 4025 poke53265,peek(53265)or16
  424. 4030 geta$:ifa$<>chr$(13)then4030
  425. 4040 print"[147]":poke53280,14:poke53281,6
  426. 4050 print"du befindest dich in einer unter-"
  427. 4060 print"irdischen halle.durch ein fenster"
  428. 4070 print"kannst du die sterne sehen.ausser-"
  429. 4080 print"dem siehst du einen knopf an der"
  430. 4090 print"wand und eine leiter."
  431. 4100 cx=1:cy=12
  432. 4110 z=0:gosub2770
  433. 4120 ifva$="bild"then3950
  434. 4130 ifva$="n"orva$="s"orva$="w"orva$="o"orva$="ru"thenan$="kein weg"
  435. 4140 ifva$="ob"then3730
  436. 4150 ifva$="zerstoere fenster"then4310
  437. 4160 ifva$="druecke knopf"then4220
  438. 4170 ifva$="zerstoere leiter"thenan$="du bist zu schwach":z=1
  439. 4180 ifva$="sage code"thenan$="du sagst"+str$(zn)
  440. 4190 ifva$="druecke fenster"thenan$="nichts passiert":z=1
  441. 4200 ifz=0thenan$="das hat keinen sinn"
  442. 4210 gosub2920:goto4110
  443. 4220 print"[147]"
  444. 4230 print"du siehst einen bildschirm ueber"
  445. 4240 print"dem knopf auftauchen.er hat die auf-"
  446. 4250 print"schrift:[153]nennen sie den transmitter"
  447. 4260 print"[153]code."
  448. 4270 cx=1:cy=10:gosub2770
  449. 4280 ifva$<>"sage"+str$(zn)then4310
  450. 4300 goto4510
  451. 4310 print"[147]":poke53280,0:poke53281,0
  452. 4320 print" das fenster oeffnet sich und du"
  453. 4330 print" wirst in das all hinausgezogen."
  454. 4440 print" es wird kaelter und kaelter..."
  455. 4450 geta$:ifa$=""then4450
  456. 4460 print"[147]"
  457. 4470 print"[153]noch ein spiel (j/n) ?"
  458. 4480 geta$:ifa$=""then4480
  459. 4490 ifa$="j"thenclr:goto5
  460. 4500 poke808,237:end
  461. 4510 rem ** teil 5 **
  462. 4520 print"[147]":poke53280,15:poke53281,15
  463. 4530 print"[154]du wirst von einem merkwuerdigem kraft"
  464. 4540 print"[154]feld umfangen.du fuehlst dich schwere"
  465. 4550 print"[154]los und angenehm geloest."
  466. 4560 fora=1to3500:next
  467. 4570 print"[147]":poke53280,0:poke53281,0
  468. 4575 poke53265,peek(53265)and239
  469. 4580 fori=1to21:printb5$(i):next:gosub2710
  470. 4590 poke211,x:poke214,y:sys58640
  471. 4600 printb5$(22)
  472. 4610 poke211,x1:poke214,y1:sys58640
  473. 4620 printb5$(23);
  474. 4625 poke53265,peek(53265)or16
  475. 4630 geta$:ifa$<>chr$(13)then4630
  476. 4640 print"[147]":poke53280,14:poke53281,6
  477. 4650 print"du befindest dich in einem raum mit"
  478. 4660 print"einem safe.an der wand siehst du"
  479. 4670 print"einen knopf."
  480. 4680 cx=1:cy=8
  481. 4690 z=0:gosub2770
  482. 4695 ifva$="bild"then4570
  483. 4700 ifva$="druecke knopf"andgs=0then3950
  484. 4710 ifva$="s"orva$="w"orva$="o"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  485. 4720 ifva$="zerstoere safe"thenan$="du bist zu schwach":z=1
  486. 4730 ifva$="n"then4930
  487. 4740 ifva$="sage safe"thenan$="du sagst safe":z=1
  488. 4750 ifva$="sage knopf"thenan$="du sagst knopf":z=1
  489. 4760 ifva$="befrage gefangenen"andgs=1thenan$="der safe schluessel ist "+zf$:z=1
  490. 4770 ifva$="oeffne safe"andgs=0then4790
  491. 4775 ifva$="oeffne safe"andgs=1thenan$="der gefangene steht davor":z=1
  492. 4780 ifva$="druecke knopf"andgs=1thenan$="der gefangene verschwindet":gs=0:z=1
  493. 4785 ifz=0thenan$="das hat keinen sinn"
  494. 4787 gosub2920:goto4690
  495. 4790 print"[147]"
  496. 4800 print"du hoerst eine stimme sagen:[153]nenne"
  497. 4810 print"[153]safe schluessel-code"
  498. 4820 cx=1:cy=6:gosub2770
  499. 4830 ifva$="sage "+zf$then4880
  500. 4840 an$="falsch":gosub2920:poke53280,0:poke53281,0:print"[147]"
  501. 4850 print"der safe ist explodiert und ein"
  502. 4860 print"truemmer-stueck hat deinen kopf"
  503. 4870 print"zerschmettert. du bist tot.":goto4450
  504. 4880 an$="im offenen safe ist eine magnet-karte":gosub2920
  505. 4890 gosub2770
  506. 4900 ifva$="nehme magnet-karte"thenan$="okay":mk=1:gosub2920:goto4570
  507. 4910 poke53280,0:poke53281,0:print"[147]"
  508. 4920 print"der safe schliesst sich.":goto4850
  509. 4930 rem ** teil 6 **
  510. 4940 print"[147]":poke53280,0:poke53281,0
  511. 4945 poke53265,peek(53265)and239
  512. 4950 fori=1to21:printb6$(i):next
  513. 4960 gosub2710
  514. 4970 poke211,x:poke214,y:sys58640
  515. 4980 printb6$(22)
  516. 4990 poke211,x1:poke214,y1:sys58640
  517. 5000 printb6$(23);
  518. 5005 poke53265,peek(53265)or16
  519. 5010 geta$:ifa$<>chr$(13)then5010
  520. 5020 print"[147]":poke53280,14:poke53281,6
  521. 5030 print"du befindest dich in einem gang.an der"
  522. 5040 print"wand siehst du zwei wegweiser."
  523. 5050 cx=1:cy=6
  524. 5060 z=0:gosub2770
  525. 5070 ifva$="w"andw=3then5150
  526. 5080 ifva$="o"ando=3then5430
  527. 5090 ifva$="bild"then4930
  528. 5100 ifva$="n"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  529. 5110 ifva$="s"then4570
  530. 5120 ifva$="w"andw<3thenw=w+1:o=o-1:goto4940
  531. 5125 ifva$="o"ando<3theno=o+1:w=w-1:goto4940
  532. 5130 ifz=0thenan$="das hat keinen sinn"
  533. 5140 gosub2920:goto5060
  534. 5150 rem ** teil 7 **
  535. 5160 poke53280,0:poke53281,0:print"[147]"
  536. 5165 poke53265,peek(53265)and239
  537. 5170 fori=1to21:printb7$(i):next
  538. 5180 gosub2710
  539. 5190 poke211,x:poke214,y:sys58640
  540. 5200 printb7$(22)
  541. 5210 poke211,x1:poke214,y1:sys58640
  542. 5220 printb7$(23);
  543. 5225 poke53265,peek(53265)or16
  544. 5230 geta$:ifa$<>chr$(13)then5230
  545. 5240 print"[147]":poke53280,14:poke53281,6
  546. 5250 print"du bist am ende des ganges angekommen."
  547. 5260 print"vor dir siehst du ein laser-gitter."
  548. 5270 cx=1:cy=6:ls=0
  549. 5280 z=0:gosub2770
  550. 5290 ifva$="bild"then5160
  551. 5300 ifva$="o"thenw=w-1:goto4940
  552. 5310 ifva$="w"orva$="s"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  553. 5320 ifva$="n"andls=0thenan$="kein weg":z=1
  554. 5330 ifva$="n"andls=1then5630
  555. 5340 ifva$="sage"+str$(lg)thenan$="das laser gitter verschwindet":z=1:ls=1
  556. 5350 ifva$="gehe durch laser-gitter"then5390
  557. 5360 ifva$="druecke laser-gitter"then5390
  558. 5370 ifz=0thenan$="das hat keinen sinn"
  559. 5380 gosub2920:goto5280
  560. 5390 print"[147]":poke53280,0:poke53281,0
  561. 5400 print"die laserstrahlen haben dich durch-"
  562. 5410 print"bohrt.du bist tot"
  563. 5420 goto4450
  564. 5430 rem ** teil 8 **
  565. 5440 poke53280,0:poke53281,0:print"[147]"
  566. 5445 poke53265,peek(53265)and239
  567. 5450 fori=1to21:printb8$(i):next
  568. 5460 gosub2710
  569. 5470 poke211,x:poke214,y:sys58640
  570. 5480 print"[154]gang-ende"
  571. 5490 poke211,x1:poke214,y1:sys58640
  572. 5500 print"[154]wandoeffnung";
  573. 5505 poke53265,peek(53265)or16
  574. 5510 geta$:ifa$<>chr$(13)then5510
  575. 5520 poke53280,14:poke53281,6:print"[147]"
  576. 5530 print"du bist am gang-ende angelangt.auf"
  577. 5540 print"dem boden ist eine karte mit der"
  578. 5550 print"nummer:";lg
  579. 5560 cx=1:cy=8
  580. 5570 z=0:gosub2770
  581. 5575 ifva$="bild"then5430
  582. 5580 ifva$="w"then4940
  583. 5590 ifva$="n"then6280
  584. 5600 ifva$="s"orva$="o"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  585. 5610 ifz=0thenan$="das hat keinen sinn"
  586. 5620 gosub2920:goto5570
  587. 5630 rem ** teil 9 **
  588. 5640 print"[147]":poke53280,0:poke53281,0
  589. 5645 poke53265,peek(53265)and239
  590. 5650 fori=1to21:printba$(i):next
  591. 5660 gosub2710
  592. 5670 poke211,x:poke214,y:sys58640
  593. 5680 printba$(22)
  594. 5690 poke211,x1:poke214,y1:sys58640
  595. 5700 printba$(23);
  596. 5705 poke53265,peek(53265)or16
  597. 5710 geta$:ifa$<>chr$(13)then5710
  598. 5720 print"[147]":poke53280,14:poke53281,6
  599. 5730 print"du befindest dich im depot.an der wand"
  600. 5740 print"haengt ein computer.sein bildschirm"
  601. 5750 print"hat die aufschrift:[153]hey you."
  602. 5755 ifws=0thenprint"auf dem boden liegt ein schwert."
  603. 5760 cx=1:cy=10:ws=0
  604. 5770 cf=0:z=0:gosub2770
  605. 5775 ifva$="bild"then5640
  606. 5780 ifva$="w"then5950
  607. 5790 ifva$="s"then5150
  608. 5800 ifva$="n"orva$="o"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  609. 5810 ifva$="befrage computer"then5870
  610. 5820 ifva$="zerstoere computer"then5390
  611. 5830 ifva$="nehme schwert"andws=0thenan$="du nimmst das schwert":ws=1:cf=1:z=1
  612. 5835 ifva$="nehme schwert"andws=1andcf=0thenan$="hier ist kein schwert":z=1
  613. 5840 ifva$="sage schwert"thenan$="du sagst schwert":z=1
  614. 5850 ifz=0thenan$="das hat keinen sinn"
  615. 5860 gosub2920:goto5770
  616. 5870 print"[147]"
  617. 5880 print"auf dem bildschirm erscheint folgender"
  618. 5890 print"text:[153]seit urzeiten werden ich und"
  619. 5900 print"[153]mein herr auf diesem raumschiff ge-"
  620. 5910 print"[153]fangengehalten.befreie meinen herrn"
  621. 5920 print"[153]und er wird dir helfen deine heimat"
  622. 5930 print"[153]wiederzusehen."
  623. 5940 fori=1to6000:next:goto5720
  624. 5945 rem ** teil 10 **
  625. 5950 print"[147]":poke53280,0:poke53281,0
  626. 5955 poke53265,peek(53265)and239
  627. 5960 fori=1to21:printbb$(i):next
  628. 5970 gosub2710
  629. 5980 poke211,x:poke214,y:sys58640
  630. 5990 printbb$(22)
  631. 6000 poke211,x1:poke214,y1:sys58640
  632. 6010 printbb$(23);
  633. 6015 poke53265,peek(53265)or16
  634. 6020 geta$:ifa$<>chr$(13)then6020
  635. 6030 print"[147]":poke53280,14:poke53281,6
  636. 6040 print"du befindest dich in einem computer-"
  637. 6050 print"raum.der bildschirm traegt die auf-"
  638. 6060 print"schrift:[153]password?"
  639. 6070 cx=1:cy=8
  640. 6080 z=0:gosub2770
  641. 6090 ifva$="bild"then5950
  642. 6100 ifva$="sage "+zf$then6180
  643. 6120 ifva$="n"orva$="s"orva$="w"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  644. 6130 ifva$="o"then5630
  645. 6140 ifva$="sage computer"thenan$="du sagst computer":z=1
  646. 6150 ifva$="zerstoere computer"then5390
  647. 6160 ifz=0thenan$="das hat keinen sinn"
  648. 6170 gosub2920:goto6080
  649. 6180 print"[147]"
  650. 6190 print"der bildschirm traegt die aufschrift:"
  651. 6200 print"[153]password akzeptiert.wie lauten deine"
  652. 6210 print"[153]befehle."
  653. 6220 cx=1:cy=8
  654. 6230 z=0:gosub2770
  655. 6240 ifva$="zerstoere raumschiff"then6680
  656. 6250 ifva$="zerstoere computer"thenan$="alle computer sind ausser betrieb":z=1
  657. 6260 ifz=0thenan$="das hat keinen sinn"
  658. 6270 gosub2920:goto6230
  659. 6280 rem ** teil 11 **
  660. 6290 print"[147]":poke53280,0:poke53281,0
  661. 6300 poke53265,peek(53265)and239
  662. 6310 fori=1to21:printb9$(i):next
  663. 6320 gosub2710
  664. 6330 poke211,x:poke214,y:sys58640
  665. 6340 printb9$(22)
  666. 6350 poke211,x1:poke214,y1:sys58640
  667. 6360 printb9$(23)
  668. 6370 poke53265,peek(53265)or16
  669. 6380 geta$:ifa$<>chr$(13)then6380
  670. 6390 print"[147]":poke53280,14:poke53281,6
  671. 6400 print"du bist in einem raum mit einem laser-"
  672. 6410 print"gitter."
  673. 6415 ifwa=0thenprint"du siehst zwei waechter"
  674. 6420 cx=1:cy=8
  675. 6430 z=0:gosub2770
  676. 6440 ifva$="bild"then6290
  677. 6450 ifva$="s"then5430
  678. 6460 ifva$="n"orva$="w"orva$="o"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  679. 6470 ifva$="toete waechter"andws=1andwa=0thenwa=1:goto6510
  680. 6475 ifva$="toete waechter"andwa=1thenan$="hier sind keine waechter":z=1
  681. 6480 ifz=0andwa=1thenan$="die waechter bemerken dich.":gosub2920
  682. 6490 ifz=0andwa=0thenfori=1to3500:goto5390
  683. 6500 gosub2920:goto6430
  684. 6510 print"[147]"
  685. 6515 print"auf dem boden sind zwei tote waechter."
  686. 6520 print"das laser-gitter verschwindet.ein ge-"
  687. 6530 print"fangener kommt heraus und folgt dir."
  688. 6540 cx=1:cy=8
  689. 6550 z=0:gosub2770
  690. 6560 ifva$="s"thengs=1:goto5430
  691. 6570 ifva$="n"orva$="w"orva$="o"orva$="ru"orva$="ob"thenan$="kein weg":z=1
  692. 6580 ifva$="befrage gefangenen"thenan$="wiederhole deine frage spaeter":z=1
  693. 6660 ifz=0thenan$="das hat keinen sinn"
  694. 6670 gosub2920:goto6550
  695. 6680 print"[147]"
  696. 6690 print"[153]geben sie mir die code-karte."
  697. 6700 cx=1:cy=3
  698. 6710 gosub2770
  699. 6720 ifva$="gebe magnet-karte"then6740
  700. 6730 goto5390
  701. 6740 print"[147]":poke53280,0:poke53281,0
  702. 6750 print"[153]herzlichen glueckwunsch !
  703. 6760 [153]"printdas raumschiff ist explodiert und du "
  704. 6770 [153]"printbist durch die dimensionen nach hause"
  705. 6780 [153]"printgeschleudert worden."
  706. 6790 [153]"printdas abenteuer ist ueberstanden !!"
  707. 6800 [129]i[178]1[164]7000:[130]:[156]:[137]5
  708. 10000 [153]"load":[151]53280,0:[151]53281,0
  709. 10030 [153]"clr    wait    wait  wait    wait    wait  wait   wait   wait    wait     wait  wait"
  710. 10040 [153]"    wait  wait       wait    wait   wait   wait  wait  wait  wait  wait  wait    wait"
  711. 10050 [153]"   wait    wait   wait   wait    wait   wait   wait  wait  wait  wait  wait   wait   wait"
  712. 10060 [153]"  wait    wait    wait   wait    wait   wait   wait  wait  wait  wait  wait  wait    wait"
  713. 10070 [153]"    wait    wait  wait   wait    wait      wait  wait  wait  wait  wait    wait    waitlist"
  714. 10080 [153]:[153]
  715. 10110 [153]"  (NULL)ichtungen:            peekefehle:      "
  716. 10120 [153]"                   (NULL) (NULL)              "
  717. 10130 [153]"      (NULL)peek,(NULL)         (NULL) (NULL)nehme    druecke"
  718. 10140 [153]"                   (NULL) (NULL)gebe  zerstoere"
  719. 10150 [153]"       (NULL)           (NULL) (NULL)gehe durch"
  720. 10160 [153]"   (NULL) tantan(NULL)tantan (NULL)       (NULL) (NULL)befrage"
  721. 10170 [153]"       (NULL)           (NULL) (NULL)oeffne"
  722. 10180 [153]"                   (NULL) (NULL)toete"
  723. 10190 [153]"      (NULL)(NULL),(NULL)         (NULL) (NULL)sage"
  724. 10191 [153]"                   (NULL) (NULL)              "
  725. 10200 [153]"pospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  726. 10220 [153]"valingabebeispiel:def (NULL)valleft$(NULL)val peekright$(NULL)str$"
  727. 10230 [153]"openpeekei  den   (NULL)ichtungen  werden  nur  die"
  728. 10240 [153]"atnnfangsbuchstaben           eingegeben!"
  729. 10245 [153][163]17)"clr<(NULL)val(NULL)(NULL)(NULL)(NULL)>list";
  730. 10250 [161]a$:[139]a$[179][177][199](13)[167]10250
  731. 10260 [153]""[199](142)"":[142]
  732.