home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 15 / Commodore_Disc_15_19xx_-_de.d64 / 0013 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  37.1 KB  |  1,079 lines
  1. 40 x=0:fort=1089to1093:x=x+peek(t):next:   ifx<>74thensys64760
  2. 50 dimg(23):v=53248:goto13100
  3. 4999 end
  4. 6000 f=15:f$="[155]":print"[147]":pokev+32,f:        gosub6009:goto6030
  5. 6009 print"      [163][183][187][163][183][184][184][183][163][183]   [184][183][163][183][183][163][188][163][183][183][163][184][163][183][163]"
  6. 6010 print"        . [176][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][174]     "
  7. 6011 print"       .  [221] 1 [221] 2 [221]  3 [221]  4 [221]     "
  8. 6012 print"          [221]       [221]    [221]    [221]     "
  9. 6013 print"          [171][192][192][192][177][192] [192][177][192][192] [192][177][192] [192][192][179]     "
  10. 6014 print"        --[189]                 [221]     "
  11. 6015 print"        --[174]     level i     [221]     "
  12. 6016 print"          [171][192] [192][192][178][192][192][192][192][178][192] [192][174]   [221]     "
  13. 6017 print"          [221]    [221]    [221]   [221][176][192][192][179]     "
  14. 6018 print"          [221] 5  [221]  6   7 [221][171][192][192][179]     "
  15. 6019 print"          [221]    [221]    [221]   [221][171][192][192][179]     "
  16. 6020 print"          [173][192][192][192][192][177][192][192][192][192][177][192][192][192][177][177][192][192][189]  [193]  "
  17. 6021 print"                                  ":return
  18. 6030 gosub9000:print"  du orientierst dich an dem gefunde-   "
  19. 6032 print"[145]  nen plan.   raum (1-7)   treppe (t)   "
  20. 6040 getk$:ifk$=""then6040
  21. 6041 ifk$="t"then6800
  22. 6042 k=val(k$):ifk<8andk>0then6044
  23. 6043 goto6040
  24. 6044 onkgoto6050,6300,6700,6900,7000,        6054,7200
  25. 6050 gosub9000:print"  raum 1 ist nur ueber raum 2 erreich-  "
  26. 6052 print"[145]  bar! plan?!   raum (1-7)  treppe (t)  ":goto6040
  27. 6054 gosub9000:print"  raum 6 ist nur ueber raum 7 erreich-  ":goto6052
  28. 6100 end
  29. 6200 f=15:f$="[155]":pokev+32,f:gosub11000
  30. 6201 gosub9000:print"  du orientierst dich an dem gefunde-   "
  31. 6202 print"[145]  nen plan.   raum (1-7)   treppe (t)   "
  32. 6203 getk$:ifk$=""then6203
  33. 6204 ifk$="t"then6830
  34. 6205 k=val(k$):ifk<8andk>0then6210
  35. 6206 goto6203
  36. 6210 onkgoto6215,7300,6211,7500,6213,        6214,7800
  37. 6211 gosub9000:print"  raum 3 ist nur ueber raum 4 erreich-  "
  38. 6212 print"[145]  bar! plan?!   raum (1-7)  treppe (t)  ":goto6203
  39. 6213 gosub9000:print"  raum 5 ist nur ueber raum 6 erreich-  ":goto6212
  40. 6214 gosub9000:print"  raum 6 ist nur ueber raum 7 erreich-  ":goto6212
  41. 6215 gosub9000:print"  raum 1 ist nur ueber leveli erreich-  ":goto6212
  42. 6300 f=3:f$="[159]"
  43. 6305 pokev+32,3:print"[147][159]"spc(17)"raum 2"    :gosub8000
  44. 6310 print"[129]";:gosub8060
  45. 6320 print""spc(15);:gosub      8100
  46. 6330 print"[151]"spc(14);:gosub8140
  47. 6340 print"[155]"spc(26);:gosub8170
  48. 6341 print"[155]"spc(26);:gosub8170
  49. 6342 print"[155]"spc(26);:gosub       8170
  50. 6350 gosub9000:print"  tuer oeffnen (t)   kiste oeffnen (k)  "
  51. 6352 print"[145]  regale untersuchen (r)   zurueck (^)  "
  52. 6360 getk$:ifk$=""then6360
  53. 6361 ifk$="t"then6370
  54. 6362 ifk$="k"then6380
  55. 6363 ifk$="r"then6384
  56. 6364 ifk$="^"then6000
  57. 6365 goto6360
  58. 6370 ifg(1)=1then6500
  59. 6371 print"      du hast keinen schluessel!        ";
  60. 6372 print"               weiter (^)               "
  61. 6374 getk$:ifk$<>"^"then6374
  62. 6375 s=s+1:ifs>1then9530
  63. 6377 goto6350
  64. 6380 ifg(1)=1then6400
  65. 6381 goto6371
  66. 6384 ifg(4)=0then6390
  67. 6386 gosub9000:print"         die regale sind leer.          "
  68. 6387 print"[145]               weiter (^)               "
  69. 6388 getk$:ifk$<>"^"then6388
  70. 6389 goto6350
  71. 6390 gosub9000:print"  du findest im untersten  regal einen  "
  72. 6392 print"[145]  schraubenschluessel. mitnehmen (j/n)  "
  73. 6394 getk$:ifk$<>"j"andk$<>"n"then6394
  74. 6395 ifk$="j"theng(4)=1
  75. 6396 gosub9000:print"    du steckst den schraubenschlues-    "
  76. 6397 print"[145]    sel ein.              weiter (^)    "
  77. 6398 getk$:ifk$<>"^"then6398
  78. 6399 goto6350
  79. 6400 ifg(8)=0then6402
  80. 6401 gosub9000:print"          die kiste ist leer.           ":goto6387
  81. 6402 gosub9000:print"        in der kiste sind pilze.        "
  82. 6403 print"[145]            mitnehmen (j/n)             "
  83. 6404 getk$:ifk$<>"j"andk$<>"n"then6404
  84. 6405 ifk$="j"theng(8)=1:goto6408
  85. 6406 gosub9000:print"     du machst die kiste wieder zu.     ":goto6387
  86. 6408 gosub9000:print"     du hast die pilze eingesteckt.     ":goto6387
  87. 6420 end
  88. 6500 f=15:f$="[155]"
  89. 6505 pokev+32,f:print"[147][155]"spc(17)"raum 1"    :gosub8000
  90. 6510 print""spc(28);:gosub8210
  91. 6520 print""spc(29);:gosub8190
  92. 6530 print""spc(6);:gosub8230:         ifg(5)=1then6536
  93. 6535 print""spc(7);:gosub8250
  94. 6536 print""spc(10);:gosub8230
  95. 6537 print""spc(14);:gosub8230:        ifg(5)=0then6542
  96. 6539 gosub9000:print"        leiter hochsteigen (l)          "
  97. 6540 print"[145]              zurueck (^)               ":goto6544
  98. 6542 gosub9000:print"   messer nehmen (m)    leiter hoch-    "
  99. 6543 print"[145]   steigen (l)           zurueck (^)    "
  100. 6544 getk$:ifk$=""then6544
  101. 6546 ifk$="l"then6600
  102. 6548 ifk$="m"theng(5)=1:goto6553
  103. 6550 ifk$="^"then6300
  104. 6552 goto6544
  105. 6553 print""spc(6);:forx=0to6:      print"[144]   [157][157][157]";:next
  106. 6554 gosub9000:printf$"           du hast das messer.          "
  107. 6555 print"[145]               weiter (^)               "
  108. 6556 getk$:ifk$<>"^"then6556
  109. 6558 goto6539
  110. 6600 f=13:f$="[153]"
  111. 6605 pokev+32,f:print"[147][153]"spc(14)"raum ii 1"    :gosub8000
  112. 6610 print""spc(28);:      gosub8270
  113. 6615 print"[155]"spc(26);:gosub8170
  114. 6617 print""spc(27);:gosub8230
  115. 6618 print""spc(33);:gosub8230
  116. 6619 ifz=1then6659
  117. 6620 print""spc(10);:gosub8290
  118. 6630 gosub9000:print"  tresor oeffnen (t)    regal untersu-  "
  119. 6632 print"[145]  chen (r)                 zurueck (^)  "
  120. 6634 getk$:ifk$=""then6634
  121. 6636 ifk$="t"then6650
  122. 6637 ifk$="r"then6641
  123. 6638 ifk$="^"then6500
  124. 6640 goto6634
  125. 6641 gosub9000:print"     du beruehrst einen draht, aber     "
  126. 6642 print"[145]     nichts passiert.    zurueck (^)    "
  127. 6643 getk$:ifk$<>"^"then6643
  128. 6645 goto9500
  129. 6650 ifg(17)=1then6664
  130. 6652 ifg(12)=1then6657
  131. 6653 gosub9000:print"     du kriegst die tuer nicht auf!     "
  132. 6654 print"[145]               weiter(^)                "
  133. 6655 getk$:ifk$<>"^"then6655
  134. 6656 goto6630
  135. 6657 print"[147]":forz=0to3:pokev+33,2:          forx=0to10:next:pokev+33,7
  136. 6658 forx=0to10:next:next:z=1:goto6600
  137. 6659 print""spc(8)"[164][162][185][175][175][185][175][164] [164][164]":pokev+32,f:pokev+33,0
  138. 6660 gosub9000:print"  bisschen viel dynamit erwischt, was?  "
  139. 6661 print"[145]          mit dir ist's aus (^)         "
  140. 6662 getk$:ifk$<>"^"then6662
  141. 6663 goto9510
  142. 6664 ifg(9)=1then6666
  143. 6665 goto6670
  144. 6666 gosub9000:print"         der tresor ist leer.           ":goto6654
  145. 6670 gosub9000:print"  du findest im tresor einige buecher.  "
  146. 6671 print"[145]             mitnehmen (j/n)            "
  147. 6672 getk$:ifk$<>"j"andk$<>"n"then6672
  148. 6673 ifk$="j"then6676
  149. 6674 gosub9000:print"     du hast den tresor geschlossen.    ":goto6654
  150. 6676 gosub9000:print"    du hast die buecher eingesteckt.    ":g(9)=1
  151. 6678 goto6654
  152. 6700 f=5:f$=""
  153. 6702 pokev+32,f:print"[147]"spc(17)"raum 3"    :gosub8000
  154. 6704 print""spc(23)        "[164][175][164][164] [164]"
  155. 6705 print""spc(19)"[185][175]"
  156. 6706 ifg(5)=1then6710
  157. 6708 print""spc(19);:          gosub8250
  158. 6710 print"[151]"spc(5);:     gosub8530
  159. 6711 ifg(6)=1then6713
  160. 6712 print""spc(17);:gosub8550
  161. 6713 print"[159]"spc(5);:gosub8170
  162. 6714 print""spc(25);:gosub8170
  163. 6715 print"[159]"spc(7);:gosub8450
  164. 6716 print"[156]"spc(28);:           gosub8140
  165. 6728 ifg(6)=1then6754
  166. 6730 gosub9000:print"  leiche untersuchen (l)    maske mit-  "
  167. 6732 print"[145]  nehmen (m)               zurueck (^)  "
  168. 6734 getk$:ifk$=""then6734
  169. 6735 ifk$="m"thenprint""spc(17)"[144]     [157][157][157][157][157]     [157][157][157][157][157]     ";:goto6750
  170. 6736 ifk$="l"then6765
  171. 6738 ifk$="^"then6000
  172. 6740 goto6734
  173. 6750 print"[157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]    " :g(6)=1
  174. 6751 gosub9000:print"     du hast die maske eingesteckt.     "
  175. 6752 print"[145]  leiche untersuchen (l)   zurueck (^)  ":goto6734
  176. 6754 gosub9000:print"          leiche untersuchen (l)        "
  177. 6755 print"[145]              zurueck (^)               ":goto6734
  178. 6756 gosub11000:gosub9000:print"    du findest einen plan und steckst   "
  179. 6758 print"[145]    ihn ein.               weiter (^)   "
  180. 6760 getk$:ifk$<>"^"then6760
  181. 6762 goto6700
  182. 6765 ifl=1org(2)=1thengosub9000:             goto6767
  183. 6766 l=1:goto6756
  184. 6767 print"           du findest nichts.           "
  185. 6768 print"[145]               weiter (^)               "
  186. 6769 getk$:ifk$<>"^"then6769
  187. 6770 goto6728
  188. 6800 y=int(rnd(1)*2)+1
  189. 6801 ifg(16)=1theny=0
  190. 6802 f=15:f$="[155]":pokev+32,f:print"[147][155]"spc(15)"level i":gosub8000
  191. 6803 print"";:gosub8490
  192. 6804 print""spc(28);:      gosub8270
  193. 6806 print""spc(12);:gosub8230
  194. 6808 print""spc(19);:gosub8230
  195. 6809 ify=2then12150
  196. 6810 gosub9000:print"          treppe hochgehen (h)          "
  197. 6812 print"[145]  treppe runtergehen (r)    weiter (^)  "
  198. 6814 getk$:ifk$=""then6814
  199. 6816 ifk$="h"then6830
  200. 6817 ifk$="^"then6000
  201. 6818 ifk$="r"then6860
  202. 6820 goto6814
  203. 6830 y=int(rnd(1)*2)+3:ifg(15)=1theny=0
  204. 6831 f=15:f$="[155]":pokev+32,f:print"[147][155]"spc(15)"level ii":gosub8000
  205. 6832 print""spc(28);:      gosub8270
  206. 6833 print""spc(8);:gosub8230:print"[157][157][157][153][213][177][201][157][157][157][159][197][197][197][157][157][157] [146][193][159] [157][157][157][210][210][210]"
  207. 6834 print""spc(18);:gosub8230
  208. 6835 ifg(2)=0then6837
  209. 6836 print""spc(19);:gosub8610
  210. 6837 print""spc(28);:gosub8230:         ifg(5)=0then6839
  211. 6838 print""spc(29);:gosub8250
  212. 6839 ify=3then12150
  213. 6840 gosub9000:print"         treppe runtergehen (r)         "
  214. 6842 print"[145]               weiter (^)               "
  215. 6844 getk$:ifk$=""then6844
  216. 6847 ifk$="^"then6851
  217. 6848 ifk$="r"then6800
  218. 6850 goto6844
  219. 6851 ifl=1then6200
  220. 6852 print"          du hast keinen plan!          "
  221. 6853 goto6844
  222. 6860 print"[147][155]"spc(16)"level 0";:gosub       8000
  223. 6862 print"";:gosub8490
  224. 6866 print"[153]"spc(25);:gosub8060
  225. 6868 print"[152]"spc(15);:gosub8660
  226. 6869 poke55686,9:poke1414,81:poke55726,9:    poke1454,58
  227. 6870 gosub9000:print"  treppe hochgehen (h)    lautsprecher  "
  228. 6872 print"[145]  untersuchen (l)     tuer oeffnen (t)  "
  229. 6874 getk$:ifk$=""then6874
  230. 6876 ifk$="h"then6800
  231. 6877 ifk$="l"then6882
  232. 6878 ifk$="t"then6888
  233. 6880 goto6874
  234. 6882 gosub9000:print"    am lautsprechergehaeuse ist eine    "
  235. 6884 print"[145]    wanze.                weiter (^)    "
  236. 6885 getk$:ifk$<>"^"then6885
  237. 6886 goto9525
  238. 6888 ifg(1)=1then10000
  239. 6889 gosub9000:print"       du hast keinen schluessel!       "
  240. 6890 print"[145]               weiter (^)               "
  241. 6891 getk$:ifk$<>"^"then6891
  242. 6892 s=s+1:ifs>1then9530
  243. 6893 goto6870
  244. 6899 end
  245. 6900 f=14:f$="[154]"
  246. 6905 pokev+32,f:print"[147][154]"spc(17)"raum 4"    :gosub8000
  247. 6906 print""spc(30);:gosub8470
  248. 6910 print""spc(2);:gosub8570
  249. 6911 print""spc(7);:gosub8570
  250. 6912 print""spc(2);:            gosub8570
  251. 6913 print""spc(7);:            gosub8570
  252. 6914 print""spc(12)"[223][157][165][157][165][157][165][157][165][157][165][157][165][157][165][157][165][157][165][157][165][146][157][169]"
  253. 6915 print""spc(18);:         gosub8590
  254. 6930 gosub9000:print"  schrank oeffnen (s)      spiegel un-  "
  255. 6932 print"[145]  tersuchen (u)            zurueck (^)  "
  256. 6934 getk$:ifk$=""then6934
  257. 6935 ifk$="u"then6941
  258. 6936 ifk$="s"then6950
  259. 6938 ifk$="^"then6000
  260. 6940 goto6934
  261. 6941 gosub9000:print"   als du den spiegel abnimmst,  ent-   "
  262. 6942 print"[145]   deckst du eine kamera.  weiter (^)   "
  263. 6944 getk$:ifk$<>"^"then6944
  264. 6946 goto9520
  265. 6950 ifg(3)=1org(2)=1org(4)=1then6960
  266. 6952 gosub9000:print"  du findest eine codekarte und steckst "
  267. 6954 print"[145]  sie ein.                   weiter (^) ":g(3)=1
  268. 6955 getk$:ifk$<>"^"then6955
  269. 6956 goto6930
  270. 6960 gosub9000:print"  du brichst aus versehen das schloss   "
  271. 6962 print"[145]  des schranks heraus.     weiter (^)   "
  272. 6964 getk$:ifk$<>"^"then6964
  273. 6966 goto9500
  274. 7000 f=10:f$="[150]"
  275. 7005 pokev+32,f:print"[147][150]"spc(17)"raum 5"    :gosub8000
  276. 7008 print""spc(5);:gosub8230
  277. 7009 ifg(2)=0thenprint""spc(18);:gosub8610
  278. 7010 print""spc(17);:gosub8230
  279. 7011 print""spc(30);:gosub8610
  280. 7012 print""spc(29);:gosub8230
  281. 7020 ifg(2)=0then7030
  282. 7024 gosub9000:print"  du hast bereits einen schutzanzug an. ":goto7032
  283. 7030 gosub9000:print"        schutzanzug anziehen (s)        "
  284. 7032 print"[145]              zurueck (^)               "
  285. 7034 getk$:ifk$=""then7034
  286. 7036 ifk$="^"then7060
  287. 7038 ifk$="s"then7042
  288. 7040 goto7034
  289. 7042 print""spc(18)" [157][157][157][157]          ";:forx=0to3:print"[157][157][157][157][157][157][157][157][157][157][157][157]";
  290. 7044 print"            ";:next
  291. 7046 print"[157][157][157][157][157][157][157][157]         [157][157][157][157][157][157][157][157][157]         [157][157][157][157][150][175][175][175][175][157][157][157][157]    ":g(2)=1
  292. 7050 gosub9000:print"      du hast einen schutzanzug an.     ":goto7032
  293. 7060 ifg(6)=1then9540
  294. 7062 goto6000
  295. 7100 f=11:f$="[151]"
  296. 7105 pokev+32,f:print"[147][151]"spc(17)"raum 6"    :gosub8000
  297. 7106 print"[154]"spc(4);:gosub8570
  298. 7107 print""spc(9);:gosub8570
  299. 7108 print""spc(14)"[223][157] [157] [157] [157] [157] [157][157][157][157][157][157][157][145][209][209]"
  300. 7109 print"[154]"spc(25);:gosub8570
  301. 7110 print""spc(30);:gosub8570
  302. 7111 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
  303. 7112 print"[156]"spc(16);:gosub8060
  304. 7113 print"[152]"spc(21)"[209][157]:"
  305. 7114 print""spc(6);:             gosub8230
  306. 7115 print""spc(11);:            gosub8230
  307. 7116 print"[149]"spc(24);:         gosub8590
  308. 7130 gosub9000:print" linken schrank (l), rechten schrank (r)"
  309. 7132 print"[145] oder tuer oeffnen (t)       zurueck (^)"
  310. 7134 getk$:ifk$=""then7134
  311. 7135 ifk$="t"then7142
  312. 7136 ifk$="l"then7150
  313. 7137 ifk$="r"then7153
  314. 7138 ifk$="^"then7200
  315. 7140 goto7134
  316. 7142 ifg(1)=1then9550
  317. 7143 gosub9000:print"       die tuer ist verschlossen!       "
  318. 7144 print"[145]               weiter (^)               "
  319. 7145 getk$:ifk$<>"^"then7145
  320. 7146 s=s+1:ifs>2then9530
  321. 7147 goto7130
  322. 7150 ifs>0then7152
  323. 7151 gosub9000:print"          der schrank ist leer!         ":goto7144
  324. 7152 goto9520
  325. 7153 ifg(1)=1then7151
  326. 7155 gosub9000:print"    du findest einen schluesselbund.    "
  327. 7156 print"[145]    mitnehmen (m)         weiter (^)    "
  328. 7157 getk$:ifk$=""then7157
  329. 7158 ifk$="m"then7162
  330. 7159 ifk$="^"then7130
  331. 7160 goto7157
  332. 7162 gosub9000:print"    du hast den schluesselbund einge-   "
  333. 7163 print"[145]    steckt.                weiter (^)   ":g(1)=1
  334. 7164 getk$:ifk$<>"^"then7164
  335. 7165 goto7130
  336. 7200 f=7:f$="[158]"
  337. 7205 pokev+32,f:print"[147][158]"spc(17)"raum 7"    :gosub8000
  338. 7206 print"[154]"spc(6);:gosub8660
  339. 7207 print"[159]"spc(4);:          gosub8590
  340. 7208 print"[153]"spc(25);:gosub8060
  341. 7209 print""spc(18);:gosub8230
  342. 7211 ifg(5)=1then7213
  343. 7212 print""spc(19);:gosub8250
  344. 7213 ifg(7)=1then7216
  345. 7214 print""spc(11);:gosub8640
  346. 7215 goto7230
  347. 7216 gosub9000:print"            tuer oeffnen (t)            "
  348. 7218 print"[145]              zurueck (^)               ":goto7234
  349. 7230 gosub9000:print"  tuer oeffnen (t)     flasche mitneh-  "
  350. 7232 print"[145]  men (f)                  zurueck (^)  "
  351. 7234 getk$:ifk$=""then7234
  352. 7235 ifk$="t"then7242
  353. 7236 ifk$="f"then7250
  354. 7238 ifk$="^"then6000
  355. 7240 goto7234
  356. 7242 ifg(3)=1then7100
  357. 7243 gosub9000:print"        du hast keine codekarte!        "
  358. 7244 print"[145]               weiter (^)               "
  359. 7245 getk$:ifk$<>"^"then7245
  360. 7246 ifg(7)=1then7213
  361. 7247 goto7213
  362. 7248 s=s+1:ifs>1then9530
  363. 7249 goto7213
  364. 7250 print""spc(11)" [157][157]   [157][157] [157][157]   [157][157][157]   [157][157][157]   [157][157][157]   ":g(7)=1
  365. 7252 gosub9000:print"    du hast die flasche eingesteckt.    ":goto7244
  366. 7260 end
  367. 7300 f=13:f$="[153]"
  368. 7305 pokev+32,f:print"[147][153]"spc(17)"raum 2"    :gosub8000
  369. 7309 print""spc(25);:gosub8570
  370. 7310 print""spc(30);:gosub8570
  371. 7311 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
  372. 7315 print"[159]"spc(7);:gosub8170
  373. 7317 print""spc(8);:gosub8230
  374. 7318 print""spc(13);:gosub8230
  375. 7320 ifg(12)=0andg(2)=0thenprint""spc(11);:gosub8700
  376. 7321 print""spc(10);:gosub     8720
  377. 7329 ifg(12)=1org(2)=1then7341
  378. 7330 gosub9000:print"  schrank oeffnen (s)     dynamit mit-  "
  379. 7332 print"[145]  nehmen (d)               zurueck (^)  "
  380. 7334 getk$:ifk$=""then7334
  381. 7336 ifk$="d"then7345
  382. 7337 ifk$="s"then7355
  383. 7338 ifk$="^"then6200
  384. 7340 goto7334
  385. 7341 gosub9000:print"           schrank oeffnen (s)          "
  386. 7342 print"[145]               zurueck (^)              ":goto7334
  387. 7345 print""spc(11)"       [157][157][157][157][157][157][157]       "
  388. 7347 gosub9000:print"    du hast das dynamit eingesteckt!    "
  389. 7348 print"[145]               weiter (^)               ":g(12)=1
  390. 7349 getk$:ifk$<>"^"then7349
  391. 7350 goto7341
  392. 7355 ifg(1)=0then7366
  393. 7356 ifg(10)=1org(5)=1org(8)=1then7365
  394. 7357 gosub9000:print"  du findest eine pistole.        mit-  "
  395. 7358 print"[145]  nehmen (m)                weiter (^)  "
  396. 7359 getk$:goto7372
  397. 7361 gosub9000:print"    du hast die pistole eingesteckt.    "
  398. 7362 print"[145]               weiter (^)               ":g(10)=1
  399. 7363 getk$:ifk$<>"^"then7363
  400. 7364 goto7329
  401. 7365 gosub9000:print"          der schrank ist leer.         ":goto7362
  402. 7366 gosub9000:print"       du hast keinen schluessel!       "
  403. 7367 print"[145]               weiter (^)               ":s=s+1
  404. 7368 ifs>1then9530
  405. 7370 getk$:ifk$<>"^"then7370
  406. 7371 goto7329
  407. 7372 ifk$=""then7359
  408. 7373 ifk$="m"then7361
  409. 7374 ifk$="^"then7329
  410. 7375 goto7359
  411. 7400 f=14:f$="[154]"
  412. 7405 pokev+32,f:print"[147][154]"spc(17)"raum 3"    :gosub8000
  413. 7406 print"[156]"spc(28);:           gosub8140
  414. 7407 print""spc(17);:gosub8230
  415. 7408 print""spc(23);:gosub8230
  416. 7409 print""spc(29);:gosub8230
  417. 7410 print"[150]"spc(4);:gosub       8570
  418. 7411 print""spc(9);:gosub        8570
  419. 7412 print""spc(14)" [157] [157] [157] [157] [157][146][169][157][157][157][157][157][157][157][145][145][145][145][]"
  420. 7413 print""spc(5);:gosub8450
  421. 7414 print""spc(16);:gosub8740
  422. 7430 gosub9000:print"  schrank oeffnen (s)    tasche unter-  "
  423. 7432 print"[145]  suchen (t)               zurueck (^)  "
  424. 7434 getk$:ifk$=""then7434
  425. 7435 ifk$="t"then7441
  426. 7436 ifk$="s"then7455
  427. 7438 ifk$="^"then7500
  428. 7440 goto7434
  429. 7441 ifg(21)=1org(2)=1org(5)=1org(6)=1org(7)=1org(8)=1then7448
  430. 7442 gosub9000:print"   du  findest  elektronische  schalt-  "
  431. 7443 print"[145]   plaene.   mitnehmen (m)  weiter (^)  "
  432. 7444 getk$:ifk$=""then7444
  433. 7445 ifk$="m"theng(21)=1:goto7452
  434. 7446 ifk$="^"then7430
  435. 7447 goto7444
  436. 7448 gosub9000:print"          die tasche ist leer!          "
  437. 7449 print"[145]               weiter (^)               "
  438. 7450 getk$:ifk$<>"^"then7450
  439. 7451 goto7430
  440. 7452 gosub9000:print"  du hast die schaltplaene eingesteckt. ":goto7449
  441. 7455 ifg(11)=0then7470
  442. 7456 ifg(22)=1org(2)=1org(4)=1org(5)=1org(6)=1org(7)=1org(8)=1then7475
  443. 7457 gosub9000:print"  du findest  einen  kleinen,  flachen  "
  444. 7458 print"[145]  schluessel. mitnehmen (m) weiter (^)  "
  445. 7459 getk$:ifk$=""then7459
  446. 7460 ifk$="m"then7463
  447. 7461 ifk$="^"then7430
  448. 7462 goto7459
  449. 7463 gosub9000:print"   du hast den schluessel eingesteckt.  "
  450. 7464 print"[145]               weiter (^)               ":g(22)=1
  451. 7465 getk$:ifk$<>"^"then7465
  452. 7466 goto7430
  453. 7470 gosub9000:print"  du bist nicht im  besitz einer iden-  "
  454. 7471 print"[145]  titaetskarte!             weiter (^)  "
  455. 7472 getk$:ifk$<>"^"then7472
  456. 7473 goto9500
  457. 7475 gosub9000:print"          der schrank ist leer!         ":goto7449
  458. 7500 f=7:f$="[158]"
  459. 7505 pokev+32,f:print"[147][158]"spc(17)"raum 4"    :gosub8000
  460. 7507 print"[154]"spc(18);:         gosub8590
  461. 7508 print""spc(6);:forx=0to4:print"[152][219][192][219][192][219][157][157][157][157][157][219][192][219][192][219][157][157][157][157][157]";:next
  462. 7510 print""spc(5);:gosub8370
  463. 7511 print"[155]"spc(25);:gosub8570
  464. 7512 print""spc(30);:gosub8570
  465. 7513 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
  466. 7514 ifg(6)=1then7530
  467. 7515 print""spc(16);:gosub8550
  468. 7530 gosub9000:print"    tuer (t) oder schrank (s) oeffnen   "
  469. 7532 print"[145]               weiter (^)               "
  470. 7534 getk$:ifk$=""then7534
  471. 7535 ifk$="t"then7541
  472. 7536 ifk$="s"then7547
  473. 7538 ifk$="^"then6200
  474. 7540 goto7534
  475. 7541 ifg(3)=1then7400
  476. 7542 gosub9000:print"        du hast keine codekarte!        "
  477. 7543 print"[145]               weiter (^)               "
  478. 7544 getk$:ifk$<>"^"then7544
  479. 7545 s=s+1:ifs>1then9530
  480. 7546 goto7530
  481. 7547 ifg(1)=1then7549
  482. 7548 gosub9000:print"       du hast keinen schluessel!       ":goto7543
  483. 7549 ifg(20)=1then7560
  484. 7550 gosub9000:print"      du findest ein heft.    mit-      "
  485. 7551 print"[145]      nehmen (m)        weiter (^)      "
  486. 7552 getk$:ifk$=""then7552
  487. 7553 ifk$="^"then7530
  488. 7554 ifk$="m"then7556
  489. 7555 goto7552
  490. 7556 gosub9000:print"      du hast das heft eingesteckt.     ":g(20)=1
  491. 7557 print"[145]               weiter (^)               "
  492. 7558 getk$:ifk$<>"^"then7558
  493. 7559 goto7530
  494. 7560 gosub9000:print"          der schrank ist leer!         ":goto7557
  495. 7600 f=10:f$="[150]"
  496. 7605 pokev+32,f:print"[147][150]"spc(16)"raum 5":gosub8000
  497. 7607 print""spc(20);:gosub8290
  498. 7608 print""spc(21)"[151][169][164][129][196][196][151][164][223]"
  499. 7612 print"[152]"spc(31);:gosub8660
  500. 7616 print""spc(33);:         gosub8780:print"[157][157][157][157][183][183][183]"
  501. 7618 print""spc(13);:gosub8230
  502. 7619 print""spc(6);:gosub8230:print"[157][157][157][213][177][201][157][157][157][154][197][197][197][157][157][157] [146][193][154] [157][157][157][210][210][210]"
  503. 7630 gosub9000:print"           tresor oeffnen (t)           "
  504. 7632 print"[145]              zurueck (^)               "
  505. 7634 getk$:ifk$=""then7634
  506. 7635 ifk$="^"then7700
  507. 7636 ifk$="t"then7650
  508. 7640 goto7634
  509. 7650 ifg(23)=0then9500
  510. 7652 ifg(11)=1then7680
  511. 7654 gosub9000:print"      du findest eine plastikkarte.     "
  512. 7656 print"[145]      mitnehmen (m)      weiter (^)     "
  513. 7658 getk$:ifk$=""then7658
  514. 7660 ifk$="m"theng(11)=1:goto7664
  515. 7661 ifk$="^"then7630
  516. 7662 goto7658
  517. 7664 gosub9000:print"     du hast die karte eingesteckt.     "
  518. 7666 print"[145]               weiter (^)               "
  519. 7668 getk$:ifk$<>"^"then7668
  520. 7670 goto7630
  521. 7680 gosub9000:print"          der tresor ist leer.          ":goto7666
  522. 7700 f=12:f$="[152]":t=2
  523. 7705 pokev+32,f:print"[147][152]"spc(16)"raum 6":gosub8000
  524. 7707 print""spc(11);:gosub8230
  525. 7708 print""spc(20);:gosub8230
  526. 7709 print""spc(28);:forx=0to4:print"[155]-    [157][157][157][157][157]     [157][157][157][157][157]";:next
  527. 7710 print""spc(27);:gosub8370:        printspc(28)"[145][210]"
  528. 7712 ifa(5)=1thenprint""spc(21);:gosub8250
  529. 7713 ifa(6)=1thenprint""spc(10);:gosub8550
  530. 7714 ifa(7)=1thenprint""spc(17);:gosub8640
  531. 7720 ifu=2then7741
  532. 7730 gosub9000:print"   tuer oeffnen (t)      inventur (i)   "
  533. 7732 print"[145]              zurueck (^)               "
  534. 7734 getk$:ifk$=""then7734
  535. 7735 ifk$="^"then7800
  536. 7736 ifk$="i"then13200
  537. 7737 ifk$="t"then7760
  538. 7740 goto7734
  539. 7741 ifg(4)=0then13320
  540. 7742 gosub9000:print"    schraubenschluessel weglegen (s)    "
  541. 7743 print"[145]               weiter (^)               "
  542. 7744 getk$:ifk$=""then7744
  543. 7745 ifk$="^"then13320
  544. 7746 ifk$="s"thena(4)=1:g(4)=0:goto7750
  545. 7748 goto7744
  546. 7750 gosub9000:print"     du hast den schraubenschluessel    "
  547. 7751 print"[145]     weggelegt.           weiter (^)    "
  548. 7752 getk$:ifk$<>"^"then7752
  549. 7753 goto13320
  550. 7760 ifg(4)=0anda(2)=1anda(1)=1then7600
  551. 7762 goto9500
  552. 7800 f=3:f$="[159]"
  553. 7805 pokev+32,3:print"[147][159]"spc(17)"raum 7"    :gosub8000
  554. 7807 print"[158]"spc(8);:          gosub8590
  555. 7808 print"[129]"spc(7);:gosub8170
  556. 7809 print""spc(27);:forx=0to4:print"[152]     [157][157][157][157][157]:::::[157][157][157][157][157]";:next
  557. 7810 print""spc(26);:gosub8370:        print"[157][157][157][157][157][157][157][157][157][157][157][157][157][152] "
  558. 7811 print""spc(22);:gosub8760
  559. 7812 print""spc(12);:gosub         8780:print" [164][164][164]"
  560. 7830 gosub9000:print"    tuer (t) oeffnen    tisch unter-    "
  561. 7832 print"[145]    suchen (u)            weiter (^)    "
  562. 7834 getk$:ifk$=""then7834
  563. 7835 ifk$="t"then7841
  564. 7836 ifk$="u"then7847
  565. 7838 ifk$="^"then6200
  566. 7840 goto7834
  567. 7841 ifg(14)=1then7700
  568. 7842 gosub9000:print"      du hast keinen lochstreifen!      "
  569. 7843 print"[145]               weiter (^)               "
  570. 7844 getk$:ifk$<>"^"then7844
  571. 7845 s=s+1:ifs>1then9500
  572. 7846 goto7830
  573. 7847 ifg(13)=1then7860
  574. 7848 gosub9000:print"    du findest einen zettel mit einer   "
  575. 7849 print"[145]    formel.  mitnehmen (m) weiter (^)   "
  576. 7850 getk$:ifk$=""then7850
  577. 7851 ifk$="m"then7854
  578. 7852 ifk$="^"then7830
  579. 7853 goto7850
  580. 7854 gosub9000:print"     du hast den zettel eingesteckt.    ":g(13)=1
  581. 7855 print"[145]               weiter (^)               "
  582. 7856 getk$:ifk$<>"^"then7856
  583. 7857 goto7830
  584. 7860 gosub9000:print"           du findest nichts.           ":goto7855
  585. 7900 f=11:f$="[151]"
  586. 7905 pokev+32,f:print"[147][151]"spc(16)"raum 15"   :gosub8000
  587. 7906 print""spc(24);:forx=0to3:print"[181][181][181][181][181][181] [157][157][157][157][157][157][157]";:next
  588. 7907 print"[181]     [205][145][145][145][145]"spc(7);:forx=0to7:print"[154][221][221][157][157]";:next:print"[146][223][221][157][146][223]"
  589. 7909 print""spc(5);:gosub8230
  590. 7910 print""spc(10);:gosub8230
  591. 7911 print""spc(15);:gosub8230
  592. 7912 print""spc(5);:forx=0to3:print"[155][213][177][201][157][157][157][202][219][203][157][157][157]";:next
  593. 7914 print""spc(20)"[152][206]"spc(10)"[205]"spc(27)"[206]"spc(12)"[205]";
  594. 7915 printspc(25)"[206]"spc(14)"[205]"spc(23)"[149][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  595. 7930 gosub9000:print" hinter dir faellt die tuer ins schloss."
  596. 7932 print"[145] du bist eingesperrt.         weiter (^)"
  597. 7934 getk$:ifk$<>"^"then7934
  598. 7936 goto9545
  599. 8000 print"[205]"spc(38)"[206] [205]"spc(36)"[206]   [205]"      spc(34)"[206]"
  600. 8020 print"   [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][183][183][183][183][183][183][183][208]"
  601. 8030 forx=0to10:print"   [180]"spc(32)"[170]":       next
  602. 8040 print"   [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][175][175][175][175][175][175][175][186]"
  603. 8050 print"  [206]"spc(34)"[205]   [206]"spc(36)"[205] [206]"    spc(38)"[205]":return
  604. 8060 print"[176][178][178][178][178][178][174]";
  605. 8080 forx=0to8:print"[157][157][157][157][157][157][157][221][221][221][221][221][221][221]";:      next
  606. 8090 print"[157][157][157][157][157][157][157][173][177][177][177][177][177][189]";
  607. 8095 print"[145][145][145][145][145][145][157][157][146][158] [157]:":return
  608. 8100 print"[149][169][192][146][158]:[149][192][192][192][146][158]:[149][192][223][157][157][157][157][157][157][157][157][157][176][192][146][158]:[149][192][192][192][146][158]:[149][192][174]";
  609. 8120 forx=0to2:print"[157][157][157][157][157][157][157][157][157][171][192][192][192][192][192][192][192][179]";:next
  610. 8130 print"[157][157][157][157][157][157][157][157][157][173][192][146][158]:[149][192][192][192][146][158]:[149][192][189]":     return
  611. 8140 print"[176][178][178][178][178][178][174]";:forx=0to2:print"[157][157][157][157][157][157][157][171][219][219][219][219][219][179]";:next
  612. 8160 print"[157][157][157][157][157][157][157][173][177][177][177][177][177][189]":return
  613. 8170 print"[169]"spc(7)"[223][157][157][157][157][157][157][157][157][157][157][162][162][162][162][162][162][162][162][162][162][162]":return
  614. 8190 forx=0to6:print"[129][188][146][162][162][162][162][190][146][157][157][157][157][157][157][161]    [161][157][157][157][157][157][157]";:next:return
  615. 8210 print"[154]          [146][169][157][157][157][157][157][157][157][157][157][157][157]         [146][169][157][157][157][157][157][157][157][157][157][157]        [146][169]":return
  616. 8230 print"[151]:[157][146][221][157][202][219][203]";:return
  617. 8250 print"[155][221][157][157][155][167][149].[146][155][165][157][157][157][167][149] [146][155][165][157][157][157][167][149].[146][155][165][157][157][152][212][157][212][157][146][169]":return
  618. 8270 print"[154]        [223][157][157][157][157][157][157][157][157][157]         [223][157][157][157][157][157][157][157][157][157][157]          [223]":return
  619. 8290 print"[151][213][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][221][205] [206]   [221][157][157][157][157][157][157][157][157][221] [214]    [179][157][157][157][157][157][157][157][157][221][206] [205][213][201] [221]";
  620. 8310 print"[157][157][157][157][157][157][157][157][221]   [202][203] [221][157][157][157][157][157][157][157][157][221][ [213][201][215] [221][157][157][157][157][157][157][157][157][221]  [202][203]  [179][157][157][157][157][157][157][157][157]";
  621. 8320 print"[221]      [221][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][203]":       return
  622. 8330 forx=0to2
  623. 8340 print"[205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205] [206] [205] "spc(6)" [214]   [214]   [214]   [214]   [214]";
  624. 8350 print"   [214]   [214]   [214]   [214]"spc(6)"[206][160][205] [206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206] [205] [206] ";
  625. 8360 printspc(6)"   [214]   [214]   [214]   [214][160][160][160][214][160][160][160][214][160][160][160][214][160][160][160][214]  "spc(6);:next
  626. 8361 print"[205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205][160][206][160][205] [206] [205] ":return
  627. 8370 print"[176][192][192][192][192][192][174]";
  628. 8390 forx=0to8:print"[157][157][157][157][157][157][157][221][146]"spc(5)"[221]";: next
  629. 8395 print"[157][157][157][157][157][157][157][173][192][192][192][192][192][189][145][145][145][145][145][157][157][157][157][157][157][144] "    :return
  630. 8400 print"[157][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  631. 8420 print"[146][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  632. 8430 print"[171][192][192][178][189]"spc(5)"[173][178][192][192][179][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][221]  [221]"spc(7)"[221]  [221]";
  633. 8440 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][171][192][192][189]"spc(7)"[173][192][192][179][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][177]"spc(13)"[177]":return
  634. 8450 print"[154][167][158][221][165][157][157][157][154][167][158][221][165]":return
  635. 8470 print"[158][213][192][201][157][157][157][221] [146][158][221][157][157][157][221] [146][158][221][157][157][157][202][192][203]":return
  636. 8490 print"[149][223][157][205][223][157][157][146][223][205][223][157][157][146][223][205][223][157][157][157][157][223][146] [221][205][223][157][157][157][157][157][146][223][223][146][221][146][223][205][223][157][157][157][157][157]";
  637. 8505 print"[146][223][221][146] [223][205][223]";
  638. 8510 print"[157][157][157][157][157][146][223][223][146] [223][205][223][157][157][157][157][157][146][223][223][146] [223][205][223][157][157][157][157][157][146][223][223][146] [170] [146][151][209]";
  639. 8515 print"[157][157][157][157][157][149][223][223][170][146][223][151][221][157][157][157][157][149][223][170][146][151] [221][157][157][157][149][223][223][146][151][221][157][157][149][223][151][221]";
  640. 8520 print"[145][145][145][145][145][145][145][157][157][157][157][157][157][157][157][157][157] [157] [157]   [157][157][157]   [157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]";
  641. 8525 print"       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157][152][146][183][183][183][183][183][183][183][183][183][183]":return
  642. 8530 print"          [164][154][185][175][164]"spc(2)"[175][164][164][149][175][185][175]"        spc(18);
  643. 8542 print"[149] [190]---[163][183][163]--[129] [154][163][163][163] [163][163][163] [129]  ,[149][146][181]"   :return
  644. 8550 print"[158][213][177][177][177][201][157][157][157][157][157][221][146][215][158] [146][215][221][157][157][157][157][157][221] [221] [221][157][157][157][157][157][221][202][178][203][221][157][157][157][157][157][173][129][179] [129][171][189]";
  645. 8565 print"[157][157][157][157][129][202][192][203]":return
  646. 8570 print"[176][192][192][192][174][157][157][157][157][157][171][192][192][192][179][157][157][157][157][157][171][192][192][192][179][157][157][157][157][157][171][192][192][192][179][157][157][157][157][157]";
  647. 8585 print"[171][192][192][192][179][157][157][157][157][157][173][192][192][192][189]":return
  648. 8590 print"[162][162][164][164][164][164][164][164][164][164][162][162][157][157][157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157][221]"spc(6)"[221][157][157][157][157][157][157][157][157]";
  649. 8605 print"[221]"spc(6)"[221][157][157][157][157][157][157][157][157]":return
  650. 8610 print"[155][221][157][157][157][157][152][169] [202][178][203] [223][157][157][157][157][157][157][157][157][169][206]  [221][146][193][152] [205][223][157][157][157][157][157][157][157][157][157][157][169][206][146][169]  [221]  [146][223][205][223]";
  651. 8625 print"[157][157][157][157][157][157][157][157][157][157][157][187][146][169]   [221]  [146] [223][172][157][157][157][157][157][157][157][163][163][163][157][157][157]   [157][157][157]   "spc(2);
  652. 8630 print"[145][213][192][192][201][157][157][157][157][221]  [152][221][157][157][157][157][202][192][192][203][157][157][157][157]    ":return
  653. 8640 print"[129][162][157][157][170][163][146][180][157][157][163][157][157][169] [223][157][157][157][163][163][163][157][157][157] [193] [157][157][157]   ":return
  654. 8660 print"[176][192][174][157][157][157][221] [221][157][157][157][173][192][189][145][157][157][146][209]";:       return
  655. 8680 print"[213][192][192][192][192][201][215][157][157][157][157][157][157][157][221][152]    [221]-[157][157][157][157][157][157][157][221][152]    [221]-[157][157][157][157][157][157][157][202][192][192][192][192][203]:";
  656. 8695 print"[157][157][157][157][157][157][157][181][163][163][163][163][163][182]":return
  657. 8700 print"[158][213][213][213][213][213][213][213][157][157][157][157][157][157][157][167][167][167][167][167][167][167][157][157][157][157][157][157][157][157][158][146][167] [168]   [168] ";
  658. 8711 print"[157][157][157][157][157][157][157][157][146][167]  tnt  [157][157][157][157][157][157][157][167][167][167][167][167][167][167]":return
  659. 8720 forx=0to3:print"[149][192][146][155]:[149][192][192][192][192][192][146][155]:[149][192][157][157][157][157][157][157][157][157][157]";:next:return
  660. 8740 print"[164][213][177][201][164][149][157][157][157][157][157]     [157][157][157][157][157][163][163][158][210][149][163][163][157][157][157][157][157]     [157][157][157][157][157][146][163][163][163][163][163]":return
  661. 8760 print"[164][164][157][157][157][167] .[146][165][157][157][157][157][167][188][190][146][165][157][157][157][163][163]":return
  662. 8780 print"[149] [157][157][146][206][163][205][157][157][157][157][167][163][163][163][165][157][157][157][157][157][167][153][184][184][184][146][165]";:return
  663. 9000 printf$"                                        "
  664. 9010 print"                                        [157]";:print"             ";
  665. 9020 print"                          [145][145][145][145][145]":  poke2023,160:poke56295,f:return
  666. 9500 pokev+32,0:pokev+33,0:print"[147][155]  du hast alarm ausgeloest und wurdest  "
  667. 9501 print"  entdeckt.  deinem  beruehmt-beruech-  "
  668. 9502 print"  tigten  agenten-riecher  wurde  fuer  "
  669. 9503 print"  immer der garaus gemacht.             "
  670. 9504 print"  ohne nase schaust du noch beknackter  "
  671. 9505 print"  aus als sonst.                        ":goto9600
  672. 9506 print"  aber keine angst,  so lange  ist das  "
  673. 9507 print"  gar nicht mehr ...                    ":goto9600
  674. 9510 pokev+32,0:pokev+33,0:print"[147][155]  du bist  mitsamt  dem tresor  in die  "
  675. 9511 print"  luft geflogen!                        "
  676. 9512 print"  das war's dann wohl mit dem grossar-  "
  677. 9513 print"  tigen detektiv-comeback.              "
  678. 9514 print"  warst schon mal besser in form, mein  "
  679. 9515 print"  guter. naja ...                       ":goto9600
  680. 9516 pokev+32,0:pokev+33,0:print"[147][155]  der lift rast  mit dir in die tiefe.  "
  681. 9517 print"  du haemmerst  auf den  tasten herum,  "
  682. 9518 print"  aber nichts passiert.                 "
  683. 9519 print"  du hast angst ...                     ":goto9556
  684. 9520 pokev+32,0:pokev+33,0:print"[147][155]  dr. yes hat dich die ganze zeit  be-  "
  685. 9521 print"  obachtet.                             "
  686. 9522 print"  die  34  einschussloecher in  deinem  "
  687. 9523 print"  jakett machen sich besonders gut!     ":goto9514
  688. 9525 pokev+32,0:pokev+33,0:print"[147][155]  deine entdeckung ist  geradezu phae-  "
  689. 9526 print"  nomenal;  uebrigens hat dich dr. yes  "
  690. 9527 print"  auch schon entdeckt.                  "
  691. 9528 print"  er hat es kurz gemacht.               ":goto9514
  692. 9530 pokev+32,0:pokev+33,0:print"[147][155]  an wievielen schloessern glaubst du,  "
  693. 9531 print"  kannst  du ruetteln,  ohne dass dich  "
  694. 9532 print"  jemand  bemerkt?   dr. yes ist  ent-  "
  695. 9533 print"  zueckt von deinen methoden!           ":goto9514
  696. 9535 pokev+32,0:pokev+33,0:print"[147][155]  wer so viel schmarrn mit sich herum-  "
  697. 9536 print"  schleppt wie du,  kann sich  absolut  "
  698. 9537 print"  unauffaellig bewegen.  dr. yes lacht  "
  699. 9538 print"  sich halb tot.                        ":goto9514
  700. 9540 pokev+32,0:pokev+33,0:print"[147][155]  seit  neuestem sind  sogar  schon in  "
  701. 9541 print"  strampelanzuegen  sicherungen einge-  "
  702. 9542 print"  baut und so'nen diebstahl mag der dr. "
  703. 9543 print"  yes ueberhaupt nicht gern!            ":goto9514
  704. 9545 pokev+32,0:pokev+33,0:print"[147][155]  schade  um die  schoene zeit, die du  "
  705. 9546 print"  fuer diesen  fall aufgewendet  hast.  "
  706. 9547 print"  du wirst den rest deines lebens hier  "
  707. 9548 print"  in diesem loch verbringen.            ":goto9506
  708. 9550 pokev+32,0:pokev+33,0:print"[147][155]  du hast es geschaffft,0013! du sitzt  "
  709. 9551 print"  mitten  in einer  riesen-muellhalde.  "
  710. 9552 print"  es stinkt penetrant  nach verfaulten  "
  711. 9553 print"  00-agenten.                           "
  712. 9554 print"  aber mach dir nichts draus. du wirst  "
  713. 9555 print"  bald gar nichts mehr riechen ...      ":goto9600
  714. 9556 print"  aber mach dir nichts draus. du wirst  "
  715. 9557 print"  bald nie mehr angst haben ...         ":goto9600
  716. 9560 pokev+32,0:pokev+33,0:print"[147][155]  du spuerst jeden knochen einzeln und  "
  717. 9561 print"  deine nase ist ein roter golfball im  "
  718. 9562 print"  gesicht. es ist vorbei.  dr. yes hat  "
  719. 9563 print"  dich noch nie besonders gemocht.      "
  720. 9564 print"  aber eine fortsetzung ist nicht aus-  "
  721. 9565 print"  geschlossen: man lebt nur zweimal...  ":goto9600
  722. 9566 pokev+32,0:pokev+33,0:print"[147][155]  du haettest wenigstens einen schall-  "
  723. 9567 print"  daempfer benuetzen koennen.  dr. yes  "
  724. 9568 print"  ist doch nicht taub. und dich hat er  "
  725. 9569 print"  noch nie besonders gemocht.           ":goto9564
  726. 9570 pokev+32,1:pokev+33,1:print"[147]  du hast es  wieder einmal geschafft,  "
  727. 9571 print"  0013.  von dr. yes'  insel ist nicht  "
  728. 9572 print"  mehr viel uebrig. von dir allerdings  "
  729. 9573 print"  auch nicht. pech gehabt ...           "
  730. 9574 print"  aber eine fortsetzung ist nicht aus-  "
  731. 9575 print"  geschlossen: man lebt nur zweimal...  "
  732. 9576 print"[154]  du hast uebrigens  100 %  [154]des spiels  "
  733. 9577 print"  erreicht! perfekt ...                 [145][145]":goto9620
  734. 9600 forx=1to23:q=q+g(x):next:q=q*4.35
  735. 9602 ifa(1)=1thenq=83.75
  736. 9604 ifa(3)=1thenq=97.25
  737. 9610 print"[154]  du hast"q"% [154]des spiels erreicht!"
  738. 9620 print"[155]     nochmal (n)          ende (e)      "
  739. 9630 getk$:ifk$=""then9630
  740. 9640 ifk$="n"thenrun50
  741. 9650 ifk$="e"thensys64738
  742. 9660 goto9630
  743. 10000 f=12:f$="[152]"
  744. 10005 pokev+32,f:print"[147][152]"spc(16)"raum 16":gosub8000
  745. 10008 print""spc(6);:forx=0to4:print"[206] [206] [206][157][157][157][157][157] [206] [206] [157][157][157][157][157]";:next
  746. 10010 print"[154]"spc(5);:gosub8370
  747. 10012 print""spc(27);:forx=0to4:print"[206] [206] [206][157][157][157][157][157] [206] [206] [157][157][157][157][157]";:next
  748. 10014 print"[150]"spc(26);:gosub8370
  749. 10016 print""spc(15);:               gosub8680
  750. 10018 print"[155]"spc(13);:         gosub8590
  751. 10030 gosub9000:print"  monitor einschalten (m)    linke (l)  "
  752. 10032 print"[145]  oder rechte tuer (r)     zurueck (^)  "
  753. 10034 getk$:ifk$=""then10034
  754. 10035 ifk$="m"then10042
  755. 10036 ifk$="^"then6860
  756. 10037 ifk$="r"then10900
  757. 10038 ifk$="l"then10100
  758. 10040 goto10034
  759. 10042 ifg(17)=1org(6)=1org(8)=1then9535
  760. 10043 print""spc(16)"[158];;;;[157][157][157][157]!!!!"
  761. 10044 gosub9000:print"  auf dem monitor erscheint ein zahlen- "
  762. 10045 print"[145]  code, den du dir merkst.   weiter (^) ":g(17)=1
  763. 10046 getk$:ifk$<>"^"then10046
  764. 10047 print""spc(16)"[155]    [157][157][157][157]    "
  765. 10048 gosub9000:print"  du schaltest den monitor wieder aus.  "
  766. 10049 print"[145]               weiter (^)               "
  767. 10050 getk$:ifk$<>"^"then10050
  768. 10051 goto10030
  769. 10099 end
  770. 10100 f=12:f$="[152]":ifs>1then9500
  771. 10105 pokev+32,f:print"[147][152]"spc(16)"raum 17":gosub8000
  772. 10106 print""spc(6);:gosub      8400
  773. 10108 print"[159]"spc(8);:gosub8170
  774. 10110 print""spc(7);:gosub         8450
  775. 10112 print""spc(22);:gosub8470
  776. 10114 print""spc(28);:forx=0to4:print"[151][166][166][166][166][166][157][157][157][157][157][166][166][166][166][166][157][157][157][157][157]";:next
  777. 10116 print"[155]"spc(27);:gosub8370
  778. 10120 ifa(1)=1then10150
  779. 10130 gosub9000:print"       ein mann kommt auf dich zu.      "
  780. 10132 print"[145]       schiessen (s)     reden (r)      "
  781. 10134 getk$:ifk$=""then10134
  782. 10135 ifk$="r"then10142
  783. 10136 ifk$="s"then12179
  784. 10140 goto10134
  785. 10142 ifg(2)=0then10170
  786. 10143 gosub9000:print"  der mann fragt dich nach den schalt-  "
  787. 10144 print"[145]  plaenen.                  weiter (^)  "
  788. 10145 getk$:ifk$<>"^"then10145
  789. 10146 ifg(21)=0then10160
  790. 10147 gosub9000:print" du gibst ihm die plaene, darauf er dir ":g(21)=0
  791. 10148 print"[145] eine zahlenkombination.     weiter (^) ":a(1)=1:g(23)=1
  792. 10149 getk$:ifk$<>"^"then10149
  793. 10150 gosub9000:print"            tuer oeffnen (t)            "
  794. 10151 print"[145]              zurueck (^)               "
  795. 10152 getk$:ifk$=""then10152
  796. 10153 ifk$="^"then10000
  797. 10154 ifk$="t"theny=0:goto12100
  798. 10155 goto10152
  799. 10160 gosub9000:print"       du gibst zu, dass du keine       "
  800. 10161 print"[145]       plaene hast.    weiter (^)       "
  801. 10162 getk$:ifk$<>"^"then10162
  802. 10163 goto12167
  803. 10170 gosub9000:print"    ohne schutzanzug erkennt dich der   "
  804. 10171 print"[145]    mann natuerlich.       weiter (^)   "
  805. 10172 getk$:ifk$<>"^"then10172
  806. 10173 goto12167
  807. 10200 f=13:f$="[153]"
  808. 10205 pokev+32,f:print"[147][153]"spc(16)"raum 18":gosub8000
  809. 10206 print""spc(16);:gosub         8740
  810. 10207 print"[159]"spc(4);:gosub8570
  811. 10208 print""spc(9);:gosub8570
  812. 10209 print""spc(14)"[223][157] [157] [157] [157] [157] [157][157][157][157][157][157][157][145][209][209]"
  813. 10210 print""spc(22);:gosub8230
  814. 10211 print""spc(17);:gosub8230
  815. 10212 print""spc(26);:gosub          8680
  816. 10213 print""spc(19);:          gosub8400
  817. 10215 ifg(12)=0anda(1)=0thenprint""spc(6);:gosub8700:goto10270
  818. 10220 ifg(12)=1anda(1)=0ora(3)=1then          10260
  819. 10230 gosub9000:print"   wie auf ein kommando erscheint eine  "
  820. 10231 print"[145]   blondine.                weiter (^)  "
  821. 10232 getk$:ifk$<>"^"then10232
  822. 10233 gosub9000:print"    sie fragt dich nach den buechern.   "
  823. 10234 print"[145]               weiter (^)               "
  824. 10235 getk$:ifk$<>"^"then10235
  825. 10236 a(3)=1:ifg(9)=0then10238
  826. 10237 gosub9000:print"        du gibst ihr die buecher.       ":goto10282
  827. 10238 gosub9000:print"    du gibst zu, dass du die buecher    "
  828. 10239 print"[145]    nicht hast.           weiter (^)    "
  829. 10240 getk$:ifk$<>"^"then10240
  830. 10241 gosub9000:print"     die huebsche blondine schlaegt     "
  831. 10242 print"[145]     dich zusammen.      weiter (^)     "
  832. 10243 getk$:ifk$<>"^"then10243
  833. 10244 goto9560
  834. 10260 gosub9000:print"   du hoerst ein geraeusch.  raum un-   "
  835. 10261 print"[145]   tersuchen (r)          zurueck (^)   "
  836. 10262 getk$:ifk$=""then10262
  837. 10263 ifk$="^"then10900
  838. 10264 ifk$="r"then9500
  839. 10265 goto10262
  840. 10270 gosub9000:print"          dynamit mitnehmen (d)         "
  841. 10271 print"[145]              zurueck (^)               "
  842. 10272 getk$:ifk$=""then10272
  843. 10273 ifk$="^"then10900
  844. 10274 ifk$="d"then10276
  845. 10275 goto10272
  846. 10276 print""spc(6)"       [157][157][157][157][157][157][157][175][175][175][175][175][175][175][157][157][157][157][157][157][157][157]";
  847. 10277 forx=0to3:print"        [157][157][157][157][157][157][157][157]";:    next:g(12)=1
  848. 10278 gosub9000:print"    du hast das dynamit eingesteckt.    "
  849. 10279 print"[145]              zurueck (^)               "
  850. 10280 getk$:ifk$<>"^"then10280
  851. 10281 goto10900
  852. 10282 print"[145]               weiter (^)               "
  853. 10283 getk$:ifk$<>"^"then10283
  854. 10284 gosub9000:print"  als sie gegangen ist, untersuchst du  "
  855. 10285 print"[145]  den raum.                 weiter (^)  "
  856. 10286 getk$:ifk$<>"^"then10286
  857. 10287 ifg(11)=1then10296
  858. 10288 gosub9000:print"           du findest nichts.           ":goto10279
  859. 10290 ifg(12)=1then10292
  860. 10291 goto9500
  861. 10292 gosub9000:print"    du machst das dynamit scharf und    "
  862. 10293 print"[145]    laeufst los ...       weiter (^)    "
  863. 10294 getk$:ifk$<>"^"then10294
  864. 10295 goto9570
  865. 10296 gosub9000:print"   im schrank findest du die gesuchten  "
  866. 10297 print"[145]   unterlagen.              weiter (^)  "
  867. 10298 getk$:ifk$<>"^"then10298
  868. 10299 goto10290
  869. 10300 f=13:f$="[153]":t=1
  870. 10305 pokev+32,f:print"[147][153]"spc(16)"raum 19":gosub8000
  871. 10308 print""spc(11);:gosub8230
  872. 10309 print""spc(20);:gosub8230
  873. 10310 print""spc(29);:gosub8230
  874. 10311 ifa(2)=1thenprint""spc(30);:gosub8610                        
  875. 10312 ifa(5)=1thenprint""spc(21);:gosub8250
  876. 10313 ifa(6)=1thenprint""spc(10);:gosub8550
  877. 10314 ifa(7)=1thenprint""spc(17);:gosub8640
  878. 10320 print""spc(5);:gosub       8100:ifu=1then13300
  879. 10330 gosub9000:print"  kiste oeffnen (k)       inventur (i)  "
  880. 10332 print"[145]              zurueck (^)               "
  881. 10334 getk$:ifk$=""then10334
  882. 10336 ifk$="^"then10900
  883. 10337 ifk$="k"then10348
  884. 10338 ifk$="i"then13200
  885. 10340 goto10334
  886. 10342 goto13300
  887. 10348 ifg(14)=0then10350
  888. 10349 goto10370
  889. 10350 ifg(4)=0then10367
  890. 10351 gosub9000:print"  du brichst die kiste mit dem schrau-  "
  891. 10352 print"[145]  benschluessel auf.        weiter (^)  "
  892. 10354 getk$:ifk$<>"^"then10354
  893. 10355 gosub9000:print"   du findest unter einem  papierstoss  "
  894. 10356 print"[145]   einen lochstreifen. mitnehmen (j/n)  "
  895. 10357 getk$:ifk$=""then10357
  896. 10358 ifk$="j"theng(14)=1:goto10361
  897. 10359 ifk$="n"then10365
  898. 10360 goto10357
  899. 10361 gosub9000:print"    du steckst den lochstreifen ein.    "
  900. 10362 print"[145]               weiter (^)               "
  901. 10363 getk$:ifk$<>"^"then10363
  902. 10364 goto10330
  903. 10365 gosub9000:print"     du machst die kiste wieder zu.     "
  904. 10366 print"[145]               weiter (^)               ":goto10363
  905. 10367 gosub9000:print"       die kiste ist verschlossen.      "
  906. 10368 print"[145]               weiter (^)               ":goto10363
  907. 10370 gosub9000:print"           die kiste ist leer.          "
  908. 10372 print"[145]               weiter (^)               ":goto10363
  909. 10700 f=2:f$=""
  910. 10705 pokev+32,f:print"[147]"spc(16)"raum 23":gosub8000
  911. 10730 gosub9000:print"                                        "
  912. 10732 print"[145]              zurueck (^)               "
  913. 10734 getk$:ifk$=""then10734
  914. 10735 ifk$="^"then10400
  915. 10740 goto10734
  916. 10800 f=2:f$=""
  917. 10805 pokev+32,f:print"[147]"spc(16)"raum 24":gosub8000
  918. 10830 gosub9000:print"                                        "
  919. 10832 print"[145]              zurueck (^)               "
  920. 10834 getk$:ifk$=""then10834
  921. 10835 ifk$="^"then10700
  922. 10840 goto10834
  923. 10900 f=12:f$="[152]"
  924. 10905 pokev+32,f:print"[147][152]"spc(18)"gang":gosub8000
  925. 10908 print""spc(6);:forx=0to4:print"[159][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
  926. 10910 print""spc(5);:gosub8370
  927. 10912 print""spc(17);:forx=0to4:print"[159][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
  928. 10914 print""spc(16);:gosub8370
  929. 10916 print""spc(28);:forx=0to4:print"[149][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
  930. 10918 print"[129]"spc(27);:gosub8370
  931. 10930 gosub9000:print"   linke (l), rechte (r) oder mittlere  "
  932. 10932 print"[145]   tuer (m)                zurueck (^)  "
  933. 10934 getk$:ifk$=""then10934
  934. 10935 ifk$="^"then10000
  935. 10936 ifk$="r"then7900
  936. 10937 ifk$="m"then10300
  937. 10938 ifk$="l"then10200
  938. 10940 goto10934
  939. 10999 end
  940. 11000 print"[147]      [163][183][187][163][183][184][184][183][163][183]   [184][183][163][183][183][163][188][163][183][183][163][184][163][183][163]"
  941. 11010 print"        . [176][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][174]     "
  942. 11011 print"       .  [221] 1 [221] 2 [221] 3  [221] 4  [221]     "
  943. 11012 print"          [221] [176][192][179]   [221]         [221]     "
  944. 11013 print"          [171][192][177][192][219][192] [192][177][192][192][192][192][177][192] [192][192][179]     "
  945. 11014 print"          [221]   [221]             [221]     "
  946. 11015 print"          [221]   [221] level ii    [221]     "
  947. 11016 print"          [221] 5 [171][192][192][192][192][192][178][192] [192][174]   [221]     "
  948. 11017 print"          [221]   [221]     [221]   [221][176][192][192][179]     "
  949. 11018 print"          [221]      6    7 [221][171][192][192][179]     "
  950. 11019 print"          [221]   [221]     [221]   [221][171][192][192][179]     "
  951. 11020 print"          [173][192][192][192][177][192][192][192][192][192][177][192][192][192][177][177][192][192][189]  [193]  "
  952. 11021 print"                                  ":return
  953. 12000 f=15:f$="[155]"
  954. 12005 pokev+32,f:print"[147][155]"spc(18)"lift"
  955. 12006 print"";:forx=0to19:print"[155]        [157][157][157][157][157][157][157][157]";:next
  956. 12007 print""spc(32);:forx=0to19:print"        [157][157][157][157][157][157][157][157]";:next
  957. 12008 print"[146]"spc(8)"[205]"spc(22)"[206]"spc(17)"[205]"spc(20)"[206]"spc(19);
  958. 12009 print"[205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"spc(20);
  959. 12010 forx=0to13:print"[170]"spc(18)"[180]"spc(20);:next
  960. 12011 print"[206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"spc(19)"[206]"spc(20)"[205]"spc(17)"[206]"spc(22)"[205]"
  961. 12012 print""spc(13);:forx=0to3:print"[164][146][158]:[153][164][146][158]:[157][157][157][157]";:next
  962. 12013 print""spc(12)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][221]              [221]";
  963. 12014 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  964. 12019 print""spc(22);:gosub         8760
  965. 12030 gosub9000:print"    nach oben (o)     nach unten (u)    "
  966. 12032 print"[145]              zurueck (^)               ":ify=1then12105
  967. 12034 getk$:ifk$=""then12034
  968. 12036 ifk$="^"thens=s+1:goto10100
  969. 12037 ifk$="u"then12041
  970. 12038 ifk$="o"then12046
  971. 12040 goto12034
  972. 12041 ifg(11)=1then9516
  973. 12042 gosub9000:print"     du hast keine identitaetskarte!    "
  974. 12043 print"[145]              zurueck (^)               "
  975. 12044 getk$:ifk$<>"^"then12044
  976. 12045 s=s+1:goto10100
  977. 12046 ifg(11)=0then12042
  978. 12047 x=26:goto12112
  979. 12100 y=1:goto12000
  980. 12105 print""spc(13)"[158][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  981. 12106 goto12034
  982. 12112 print""spc(x)" ":x=x-1:ifx      >12then12112
  983. 12113 gosub9000:print"   du steigst vorsichtig aus dem lift.  "
  984. 12114 print"[145]               weiter (^)               "
  985. 12115 getk$:ifk$<>"^"then12115
  986. 12116 goto6600
  987. 12150 gosub9000:print"   ein mann im  schutzanzug kommt die   "
  988. 12152 print"[145]   treppe herauf.          weiter (^)   "
  989. 12154 getk$:ifk$<>"^"then12154
  990. 12156 gosub9000:print"    kaempfen (k)       schiessen (s)    "
  991. 12158 print"[145]             verstecken (v)             "
  992. 12160 getk$:ifk$=""then12160
  993. 12161 ifk$="k"then12166
  994. 12163 ifk$="v"then12175
  995. 12164 ifk$="s"then12179
  996. 12165 goto12160
  997. 12166 ifg(4)=1then12171
  998. 12167 gosub9000:print"     der mann schlaegt dich nieder.     "
  999. 12168 print"[145]               weiter (^)               "
  1000. 12169 getk$:ifk$<>"^"then12169
  1001. 12170 goto9560
  1002. 12171 gosub9000:print"   mit deinem schraubenschluessel er-   "
  1003. 12172 print"[145]   schlaegst du den mann.  weiter (^)   "
  1004. 12173 getk$:ifk$<>"^"then12173
  1005. 12174 goto13000
  1006. 12175 gosub9000:print"  der mann sieht dich,  wie du dich in  "
  1007. 12176 print"[145]  einer nische versteckst.  weiter (^)  "
  1008. 12177 getk$:ifk$<>"^"then12177
  1009. 12178 goto12167
  1010. 12179 ifg(10)=0then12184
  1011. 12180 gosub9000:print"         du erschiesst den mann.        "
  1012. 12181 print"[145]               weiter (^)               "
  1013. 12182 getk$:ifk$<>"^"then12182
  1014. 12183 goto9566
  1015. 12184 gosub9000:print"          mit was denn, bitte ?         "
  1016. 12185 print"[145]               weiter (^)               "
  1017. 12186 getk$:ifk$<>"^"then12186
  1018. 12187 goto12167
  1019. 13000 ify=2theng(16)=1:goto6810
  1020. 13002 ify=3theng(15)=1:goto6840
  1021. 13004 goto6800
  1022. 13100 dimg$(23)
  1023. 13101 g$(1)="1 schluesselbund":g$(2)="1 schutzanzug":g$(3)="1 codekarte"
  1024. 13102 g$(4)="1 schraubenschluessel":g$(5)="1 messer":g$(6)="1 maske"
  1025. 13103 g$(7)="1 flasche":g$(8)="  pilze":g$(9)="  buecher"
  1026. 13104 g$(10)="1 pistole":g$(11)="1 plastikkarte":g$(12)="  dynamit"
  1027. 13105 g$(13)="1 zettel mit einer formel":g$(14)="1 lochstreifen"
  1028. 13107 g$(17)="1 zahlencode":g$(20)="1 heft":g$(21)="  elektrische schaltplaene"
  1029. 13109 g$(22)="1 kleinen, flachen schluessel":g$(23)="1 zahlenkombination"
  1030. 13110 pokev+33,0:goto6000
  1031. 13200 print"[147]                inventur"spc(16)"  du hast:":y=0
  1032. 13202 forx=1to23
  1033. 13204 ifg(x)=1thenprint"  "g$(x):y=y+1:      ify>7then13210
  1034. 13206 ifx=24thenend
  1035. 13208 next
  1036. 13210 gosub9000:print"                                        "
  1037. 13212 print"[145]              weiter (^)                "
  1038. 13214 getk$:ifk$<>"^"then13214
  1039. 13215 ifx=24then13220
  1040. 13216 y=0:print"[147]                inventur"spc(16)"  weiterhin:"
  1041. 13218 next
  1042. 13220 ift=1thenu=1:goto10300
  1043. 13222 ift=2thenu=2:goto7700
  1044. 13300 ifg(2)=0then13320
  1045. 13302 gosub9000:print"      schutzanzug ausziehen (a)         "
  1046. 13304 print"[145]              weiter (^)                "
  1047. 13306 getk$:ifk$=""then13306
  1048. 13307 ifk$="^"then13320
  1049. 13308 ifk$="a"then13310
  1050. 13309 goto13306
  1051. 13310 a(2)=1:g(2)=0:print""spc(30);:gosub8610
  1052. 13320 ifg(5)=0then13340
  1053. 13322 gosub9000:print"       messer an haken haengen (m)      "
  1054. 13324 print"[145]              weiter (^)                "
  1055. 13326 getk$:ifk$=""then13326
  1056. 13327 ifk$="^"then13340
  1057. 13328 ifk$="m"then13330
  1058. 13329 goto13326
  1059. 13330 a(5)=1:g(5)=0:print""spc(21);:gosub8250
  1060. 13340 ifg(6)=0then13360
  1061. 13342 gosub9000:print"       maske an haken haengen (m)       "
  1062. 13344 print"[145]              weiter (^)                "
  1063. 13346 getk$:ifk$=""then13346
  1064. 13347 ifk$="^"then13360
  1065. 13348 ifk$="m"then13350
  1066. 13349 goto13346
  1067. 13350 a(6)=1:g(6)=0:print""spc(10);:gosub8550
  1068. 13360 ifg(7)=0then13380
  1069. 13362 gosub9000:print"          flasche abstellen (f)         "
  1070. 13364 print"[145]              weiter (^)                "
  1071. 13366 getk$:ifk$=""then13366
  1072. 13367 ifk$="^"then13380
  1073. 13368 ifk$="f"then13370
  1074. 13369 goto13366
  1075. 13370 a(7)=1:g(7)=0:print""spc(17);:gosub8640
  1076. 13380 ift=1thenu=0:goto10330
  1077. 13382 ift=2thenu=0:goto7730
  1078. 15000 end
  1079.