home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 15
/
Commodore_Disc_15_19xx_-_de.d64
/
0013
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
38KB
|
1,079 lines
40 x=0:fort=1089to1093:x=x+peek(t):next: ifx<>74thensys64760
50 dimg(23):v=53248:goto13100
4999 end
6000 f=15:f$="[155]":print"[147]":pokev+32,f: gosub6009:goto6030
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]"
6010 print" . [176][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][174] "
6011 print" . [221] 1 [221] 2 [221] 3 [221] 4 [221] "
6012 print" [221] [221] [221] [221] "
6013 print" [171][192][192][192][177][192] [192][177][192][192] [192][177][192] [192][192][179] "
6014 print" --[189] [221] "
6015 print" --[174] level i [221] "
6016 print" [171][192] [192][192][178][192][192][192][192][178][192] [192][174] [221] "
6017 print" [221] [221] [221] [221][176][192][192][179] "
6018 print" [221] 5 [221] 6 7 [221][171][192][192][179] "
6019 print" [221] [221] [221] [221][171][192][192][179] "
6020 print" [173][192][192][192][192][177][192][192][192][192][177][192][192][192][177][177][192][192][189] [193] "
6021 print" ":return
6030 gosub9000:print" du orientierst dich an dem gefunde- "
6032 print"[145] nen plan. raum (1-7) treppe (t) "
6040 getk$:ifk$=""then6040
6041 ifk$="t"then6800
6042 k=val(k$):ifk<8andk>0then6044
6043 goto6040
6044 onkgoto6050,6300,6700,6900,7000, 6054,7200
6050 gosub9000:print" raum 1 ist nur ueber raum 2 erreich- "
6052 print"[145] bar! plan?! raum (1-7) treppe (t) ":goto6040
6054 gosub9000:print" raum 6 ist nur ueber raum 7 erreich- ":goto6052
6100 end
6200 f=15:f$="[155]":pokev+32,f:gosub11000
6201 gosub9000:print" du orientierst dich an dem gefunde- "
6202 print"[145] nen plan. raum (1-7) treppe (t) "
6203 getk$:ifk$=""then6203
6204 ifk$="t"then6830
6205 k=val(k$):ifk<8andk>0then6210
6206 goto6203
6210 onkgoto6215,7300,6211,7500,6213, 6214,7800
6211 gosub9000:print" raum 3 ist nur ueber raum 4 erreich- "
6212 print"[145] bar! plan?! raum (1-7) treppe (t) ":goto6203
6213 gosub9000:print" raum 5 ist nur ueber raum 6 erreich- ":goto6212
6214 gosub9000:print" raum 6 ist nur ueber raum 7 erreich- ":goto6212
6215 gosub9000:print" raum 1 ist nur ueber leveli erreich- ":goto6212
6300 f=3:f$="[159]"
6305 pokev+32,3:print"[147][159]"spc(17)"raum 2" :gosub8000
6310 print"[129]";:gosub8060
6320 print""spc(15);:gosub 8100
6330 print"[151]"spc(14);:gosub8140
6340 print"[155]"spc(26);:gosub8170
6341 print"[155]"spc(26);:gosub8170
6342 print"[155]"spc(26);:gosub 8170
6350 gosub9000:print" tuer oeffnen (t) kiste oeffnen (k) "
6352 print"[145] regale untersuchen (r) zurueck (^) "
6360 getk$:ifk$=""then6360
6361 ifk$="t"then6370
6362 ifk$="k"then6380
6363 ifk$="r"then6384
6364 ifk$="^"then6000
6365 goto6360
6370 ifg(1)=1then6500
6371 print" du hast keinen schluessel! ";
6372 print" weiter (^) "
6374 getk$:ifk$<>"^"then6374
6375 s=s+1:ifs>1then9530
6377 goto6350
6380 ifg(1)=1then6400
6381 goto6371
6384 ifg(4)=0then6390
6386 gosub9000:print" die regale sind leer. "
6387 print"[145] weiter (^) "
6388 getk$:ifk$<>"^"then6388
6389 goto6350
6390 gosub9000:print" du findest im untersten regal einen "
6392 print"[145] schraubenschluessel. mitnehmen (j/n) "
6394 getk$:ifk$<>"j"andk$<>"n"then6394
6395 ifk$="j"theng(4)=1
6396 gosub9000:print" du steckst den schraubenschlues- "
6397 print"[145] sel ein. weiter (^) "
6398 getk$:ifk$<>"^"then6398
6399 goto6350
6400 ifg(8)=0then6402
6401 gosub9000:print" die kiste ist leer. ":goto6387
6402 gosub9000:print" in der kiste sind pilze. "
6403 print"[145] mitnehmen (j/n) "
6404 getk$:ifk$<>"j"andk$<>"n"then6404
6405 ifk$="j"theng(8)=1:goto6408
6406 gosub9000:print" du machst die kiste wieder zu. ":goto6387
6408 gosub9000:print" du hast die pilze eingesteckt. ":goto6387
6420 end
6500 f=15:f$="[155]"
6505 pokev+32,f:print"[147][155]"spc(17)"raum 1" :gosub8000
6510 print""spc(28);:gosub8210
6520 print""spc(29);:gosub8190
6530 print""spc(6);:gosub8230: ifg(5)=1then6536
6535 print""spc(7);:gosub8250
6536 print""spc(10);:gosub8230
6537 print""spc(14);:gosub8230: ifg(5)=0then6542
6539 gosub9000:print" leiter hochsteigen (l) "
6540 print"[145] zurueck (^) ":goto6544
6542 gosub9000:print" messer nehmen (m) leiter hoch- "
6543 print"[145] steigen (l) zurueck (^) "
6544 getk$:ifk$=""then6544
6546 ifk$="l"then6600
6548 ifk$="m"theng(5)=1:goto6553
6550 ifk$="^"then6300
6552 goto6544
6553 print""spc(6);:forx=0to6: print"[144] [157][157][157]";:next
6554 gosub9000:printf$" du hast das messer. "
6555 print"[145] weiter (^) "
6556 getk$:ifk$<>"^"then6556
6558 goto6539
6600 f=13:f$="[153]"
6605 pokev+32,f:print"[147][153]"spc(14)"raum ii 1" :gosub8000
6610 print""spc(28);: gosub8270
6615 print"[155]"spc(26);:gosub8170
6617 print""spc(27);:gosub8230
6618 print""spc(33);:gosub8230
6619 ifz=1then6659
6620 print""spc(10);:gosub8290
6630 gosub9000:print" tresor oeffnen (t) regal untersu- "
6632 print"[145] chen (r) zurueck (^) "
6634 getk$:ifk$=""then6634
6636 ifk$="t"then6650
6637 ifk$="r"then6641
6638 ifk$="^"then6500
6640 goto6634
6641 gosub9000:print" du beruehrst einen draht, aber "
6642 print"[145] nichts passiert. zurueck (^) "
6643 getk$:ifk$<>"^"then6643
6645 goto9500
6650 ifg(17)=1then6664
6652 ifg(12)=1then6657
6653 gosub9000:print" du kriegst die tuer nicht auf! "
6654 print"[145] weiter(^) "
6655 getk$:ifk$<>"^"then6655
6656 goto6630
6657 print"[147]":forz=0to3:pokev+33,2: forx=0to10:next:pokev+33,7
6658 forx=0to10:next:next:z=1:goto6600
6659 print""spc(8)"[164][162][185][175][175][185][175][164] [164][164]":pokev+32,f:pokev+33,0
6660 gosub9000:print" bisschen viel dynamit erwischt, was? "
6661 print"[145] mit dir ist's aus (^) "
6662 getk$:ifk$<>"^"then6662
6663 goto9510
6664 ifg(9)=1then6666
6665 goto6670
6666 gosub9000:print" der tresor ist leer. ":goto6654
6670 gosub9000:print" du findest im tresor einige buecher. "
6671 print"[145] mitnehmen (j/n) "
6672 getk$:ifk$<>"j"andk$<>"n"then6672
6673 ifk$="j"then6676
6674 gosub9000:print" du hast den tresor geschlossen. ":goto6654
6676 gosub9000:print" du hast die buecher eingesteckt. ":g(9)=1
6678 goto6654
6700 f=5:f$=""
6702 pokev+32,f:print"[147]"spc(17)"raum 3" :gosub8000
6704 print""spc(23) "[164][175][164][164] [164]"
6705 print""spc(19)"[185][175]"
6706 ifg(5)=1then6710
6708 print""spc(19);: gosub8250
6710 print"[151]"spc(5);: gosub8530
6711 ifg(6)=1then6713
6712 print""spc(17);:gosub8550
6713 print"[159]"spc(5);:gosub8170
6714 print""spc(25);:gosub8170
6715 print"[159]"spc(7);:gosub8450
6716 print"[156]"spc(28);: gosub8140
6728 ifg(6)=1then6754
6730 gosub9000:print" leiche untersuchen (l) maske mit- "
6732 print"[145] nehmen (m) zurueck (^) "
6734 getk$:ifk$=""then6734
6735 ifk$="m"thenprint""spc(17)"[144] [157][157][157][157][157] [157][157][157][157][157] ";:goto6750
6736 ifk$="l"then6765
6738 ifk$="^"then6000
6740 goto6734
6750 print"[157][157][157][157][157] [157][157][157][157][157] [157][157][157][157][157] " :g(6)=1
6751 gosub9000:print" du hast die maske eingesteckt. "
6752 print"[145] leiche untersuchen (l) zurueck (^) ":goto6734
6754 gosub9000:print" leiche untersuchen (l) "
6755 print"[145] zurueck (^) ":goto6734
6756 gosub11000:gosub9000:print" du findest einen plan und steckst "
6758 print"[145] ihn ein. weiter (^) "
6760 getk$:ifk$<>"^"then6760
6762 goto6700
6765 ifl=1org(2)=1thengosub9000: goto6767
6766 l=1:goto6756
6767 print" du findest nichts. "
6768 print"[145] weiter (^) "
6769 getk$:ifk$<>"^"then6769
6770 goto6728
6800 y=int(rnd(1)*2)+1
6801 ifg(16)=1theny=0
6802 f=15:f$="[155]":pokev+32,f:print"[147][155]"spc(15)"level i":gosub8000
6803 print"";:gosub8490
6804 print""spc(28);: gosub8270
6806 print""spc(12);:gosub8230
6808 print""spc(19);:gosub8230
6809 ify=2then12150
6810 gosub9000:print" treppe hochgehen (h) "
6812 print"[145] treppe runtergehen (r) weiter (^) "
6814 getk$:ifk$=""then6814
6816 ifk$="h"then6830
6817 ifk$="^"then6000
6818 ifk$="r"then6860
6820 goto6814
6830 y=int(rnd(1)*2)+3:ifg(15)=1theny=0
6831 f=15:f$="[155]":pokev+32,f:print"[147][155]"spc(15)"level ii":gosub8000
6832 print""spc(28);: gosub8270
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]"
6834 print""spc(18);:gosub8230
6835 ifg(2)=0then6837
6836 print""spc(19);:gosub8610
6837 print""spc(28);:gosub8230: ifg(5)=0then6839
6838 print""spc(29);:gosub8250
6839 ify=3then12150
6840 gosub9000:print" treppe runtergehen (r) "
6842 print"[145] weiter (^) "
6844 getk$:ifk$=""then6844
6847 ifk$="^"then6851
6848 ifk$="r"then6800
6850 goto6844
6851 ifl=1then6200
6852 print" du hast keinen plan! "
6853 goto6844
6860 print"[147][155]"spc(16)"level 0";:gosub 8000
6862 print"";:gosub8490
6866 print"[153]"spc(25);:gosub8060
6868 print"[152]"spc(15);:gosub8660
6869 poke55686,9:poke1414,81:poke55726,9: poke1454,58
6870 gosub9000:print" treppe hochgehen (h) lautsprecher "
6872 print"[145] untersuchen (l) tuer oeffnen (t) "
6874 getk$:ifk$=""then6874
6876 ifk$="h"then6800
6877 ifk$="l"then6882
6878 ifk$="t"then6888
6880 goto6874
6882 gosub9000:print" am lautsprechergehaeuse ist eine "
6884 print"[145] wanze. weiter (^) "
6885 getk$:ifk$<>"^"then6885
6886 goto9525
6888 ifg(1)=1then10000
6889 gosub9000:print" du hast keinen schluessel! "
6890 print"[145] weiter (^) "
6891 getk$:ifk$<>"^"then6891
6892 s=s+1:ifs>1then9530
6893 goto6870
6899 end
6900 f=14:f$="[154]"
6905 pokev+32,f:print"[147][154]"spc(17)"raum 4" :gosub8000
6906 print""spc(30);:gosub8470
6910 print""spc(2);:gosub8570
6911 print""spc(7);:gosub8570
6912 print""spc(2);: gosub8570
6913 print""spc(7);: gosub8570
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]"
6915 print""spc(18);: gosub8590
6930 gosub9000:print" schrank oeffnen (s) spiegel un- "
6932 print"[145] tersuchen (u) zurueck (^) "
6934 getk$:ifk$=""then6934
6935 ifk$="u"then6941
6936 ifk$="s"then6950
6938 ifk$="^"then6000
6940 goto6934
6941 gosub9000:print" als du den spiegel abnimmst, ent- "
6942 print"[145] deckst du eine kamera. weiter (^) "
6944 getk$:ifk$<>"^"then6944
6946 goto9520
6950 ifg(3)=1org(2)=1org(4)=1then6960
6952 gosub9000:print" du findest eine codekarte und steckst "
6954 print"[145] sie ein. weiter (^) ":g(3)=1
6955 getk$:ifk$<>"^"then6955
6956 goto6930
6960 gosub9000:print" du brichst aus versehen das schloss "
6962 print"[145] des schranks heraus. weiter (^) "
6964 getk$:ifk$<>"^"then6964
6966 goto9500
7000 f=10:f$="[150]"
7005 pokev+32,f:print"[147][150]"spc(17)"raum 5" :gosub8000
7008 print""spc(5);:gosub8230
7009 ifg(2)=0thenprint""spc(18);:gosub8610
7010 print""spc(17);:gosub8230
7011 print""spc(30);:gosub8610
7012 print""spc(29);:gosub8230
7020 ifg(2)=0then7030
7024 gosub9000:print" du hast bereits einen schutzanzug an. ":goto7032
7030 gosub9000:print" schutzanzug anziehen (s) "
7032 print"[145] zurueck (^) "
7034 getk$:ifk$=""then7034
7036 ifk$="^"then7060
7038 ifk$="s"then7042
7040 goto7034
7042 print""spc(18)" [157][157][157][157] ";:forx=0to3:print"[157][157][157][157][157][157][157][157][157][157][157][157]";
7044 print" ";:next
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
7050 gosub9000:print" du hast einen schutzanzug an. ":goto7032
7060 ifg(6)=1then9540
7062 goto6000
7100 f=11:f$="[151]"
7105 pokev+32,f:print"[147][151]"spc(17)"raum 6" :gosub8000
7106 print"[154]"spc(4);:gosub8570
7107 print""spc(9);:gosub8570
7108 print""spc(14)"[223][157] [157] [157] [157] [157] [157][157][157][157][157][157][157][145][209][209]"
7109 print"[154]"spc(25);:gosub8570
7110 print""spc(30);:gosub8570
7111 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
7112 print"[156]"spc(16);:gosub8060
7113 print"[152]"spc(21)"[209][157]:"
7114 print""spc(6);: gosub8230
7115 print""spc(11);: gosub8230
7116 print"[149]"spc(24);: gosub8590
7130 gosub9000:print" linken schrank (l), rechten schrank (r)"
7132 print"[145] oder tuer oeffnen (t) zurueck (^)"
7134 getk$:ifk$=""then7134
7135 ifk$="t"then7142
7136 ifk$="l"then7150
7137 ifk$="r"then7153
7138 ifk$="^"then7200
7140 goto7134
7142 ifg(1)=1then9550
7143 gosub9000:print" die tuer ist verschlossen! "
7144 print"[145] weiter (^) "
7145 getk$:ifk$<>"^"then7145
7146 s=s+1:ifs>2then9530
7147 goto7130
7150 ifs>0then7152
7151 gosub9000:print" der schrank ist leer! ":goto7144
7152 goto9520
7153 ifg(1)=1then7151
7155 gosub9000:print" du findest einen schluesselbund. "
7156 print"[145] mitnehmen (m) weiter (^) "
7157 getk$:ifk$=""then7157
7158 ifk$="m"then7162
7159 ifk$="^"then7130
7160 goto7157
7162 gosub9000:print" du hast den schluesselbund einge- "
7163 print"[145] steckt. weiter (^) ":g(1)=1
7164 getk$:ifk$<>"^"then7164
7165 goto7130
7200 f=7:f$="[158]"
7205 pokev+32,f:print"[147][158]"spc(17)"raum 7" :gosub8000
7206 print"[154]"spc(6);:gosub8660
7207 print"[159]"spc(4);: gosub8590
7208 print"[153]"spc(25);:gosub8060
7209 print""spc(18);:gosub8230
7211 ifg(5)=1then7213
7212 print""spc(19);:gosub8250
7213 ifg(7)=1then7216
7214 print""spc(11);:gosub8640
7215 goto7230
7216 gosub9000:print" tuer oeffnen (t) "
7218 print"[145] zurueck (^) ":goto7234
7230 gosub9000:print" tuer oeffnen (t) flasche mitneh- "
7232 print"[145] men (f) zurueck (^) "
7234 getk$:ifk$=""then7234
7235 ifk$="t"then7242
7236 ifk$="f"then7250
7238 ifk$="^"then6000
7240 goto7234
7242 ifg(3)=1then7100
7243 gosub9000:print" du hast keine codekarte! "
7244 print"[145] weiter (^) "
7245 getk$:ifk$<>"^"then7245
7246 ifg(7)=1then7213
7247 goto7213
7248 s=s+1:ifs>1then9530
7249 goto7213
7250 print""spc(11)" [157][157] [157][157] [157][157] [157][157][157] [157][157][157] [157][157][157] ":g(7)=1
7252 gosub9000:print" du hast die flasche eingesteckt. ":goto7244
7260 end
7300 f=13:f$="[153]"
7305 pokev+32,f:print"[147][153]"spc(17)"raum 2" :gosub8000
7309 print""spc(25);:gosub8570
7310 print""spc(30);:gosub8570
7311 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
7315 print"[159]"spc(7);:gosub8170
7317 print""spc(8);:gosub8230
7318 print""spc(13);:gosub8230
7320 ifg(12)=0andg(2)=0thenprint""spc(11);:gosub8700
7321 print""spc(10);:gosub 8720
7329 ifg(12)=1org(2)=1then7341
7330 gosub9000:print" schrank oeffnen (s) dynamit mit- "
7332 print"[145] nehmen (d) zurueck (^) "
7334 getk$:ifk$=""then7334
7336 ifk$="d"then7345
7337 ifk$="s"then7355
7338 ifk$="^"then6200
7340 goto7334
7341 gosub9000:print" schrank oeffnen (s) "
7342 print"[145] zurueck (^) ":goto7334
7345 print""spc(11)" [157][157][157][157][157][157][157] "
7347 gosub9000:print" du hast das dynamit eingesteckt! "
7348 print"[145] weiter (^) ":g(12)=1
7349 getk$:ifk$<>"^"then7349
7350 goto7341
7355 ifg(1)=0then7366
7356 ifg(10)=1org(5)=1org(8)=1then7365
7357 gosub9000:print" du findest eine pistole. mit- "
7358 print"[145] nehmen (m) weiter (^) "
7359 getk$:goto7372
7361 gosub9000:print" du hast die pistole eingesteckt. "
7362 print"[145] weiter (^) ":g(10)=1
7363 getk$:ifk$<>"^"then7363
7364 goto7329
7365 gosub9000:print" der schrank ist leer. ":goto7362
7366 gosub9000:print" du hast keinen schluessel! "
7367 print"[145] weiter (^) ":s=s+1
7368 ifs>1then9530
7370 getk$:ifk$<>"^"then7370
7371 goto7329
7372 ifk$=""then7359
7373 ifk$="m"then7361
7374 ifk$="^"then7329
7375 goto7359
7400 f=14:f$="[154]"
7405 pokev+32,f:print"[147][154]"spc(17)"raum 3" :gosub8000
7406 print"[156]"spc(28);: gosub8140
7407 print""spc(17);:gosub8230
7408 print""spc(23);:gosub8230
7409 print""spc(29);:gosub8230
7410 print"[150]"spc(4);:gosub 8570
7411 print""spc(9);:gosub 8570
7412 print""spc(14)" [157] [157] [157] [157] [157][146][169][157][157][157][157][157][157][157][145][145][145][145][]"
7413 print""spc(5);:gosub8450
7414 print""spc(16);:gosub8740
7430 gosub9000:print" schrank oeffnen (s) tasche unter- "
7432 print"[145] suchen (t) zurueck (^) "
7434 getk$:ifk$=""then7434
7435 ifk$="t"then7441
7436 ifk$="s"then7455
7438 ifk$="^"then7500
7440 goto7434
7441 ifg(21)=1org(2)=1org(5)=1org(6)=1org(7)=1org(8)=1then7448
7442 gosub9000:print" du findest elektronische schalt- "
7443 print"[145] plaene. mitnehmen (m) weiter (^) "
7444 getk$:ifk$=""then7444
7445 ifk$="m"theng(21)=1:goto7452
7446 ifk$="^"then7430
7447 goto7444
7448 gosub9000:print" die tasche ist leer! "
7449 print"[145] weiter (^) "
7450 getk$:ifk$<>"^"then7450
7451 goto7430
7452 gosub9000:print" du hast die schaltplaene eingesteckt. ":goto7449
7455 ifg(11)=0then7470
7456 ifg(22)=1org(2)=1org(4)=1org(5)=1org(6)=1org(7)=1org(8)=1then7475
7457 gosub9000:print" du findest einen kleinen, flachen "
7458 print"[145] schluessel. mitnehmen (m) weiter (^) "
7459 getk$:ifk$=""then7459
7460 ifk$="m"then7463
7461 ifk$="^"then7430
7462 goto7459
7463 gosub9000:print" du hast den schluessel eingesteckt. "
7464 print"[145] weiter (^) ":g(22)=1
7465 getk$:ifk$<>"^"then7465
7466 goto7430
7470 gosub9000:print" du bist nicht im besitz einer iden- "
7471 print"[145] titaetskarte! weiter (^) "
7472 getk$:ifk$<>"^"then7472
7473 goto9500
7475 gosub9000:print" der schrank ist leer! ":goto7449
7500 f=7:f$="[158]"
7505 pokev+32,f:print"[147][158]"spc(17)"raum 4" :gosub8000
7507 print"[154]"spc(18);: gosub8590
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
7510 print""spc(5);:gosub8370
7511 print"[155]"spc(25);:gosub8570
7512 print""spc(30);:gosub8570
7513 print""spc(24)"[169][157] [157] [157] [157] [157] "spc(4)"[145][209][209]"
7514 ifg(6)=1then7530
7515 print""spc(16);:gosub8550
7530 gosub9000:print" tuer (t) oder schrank (s) oeffnen "
7532 print"[145] weiter (^) "
7534 getk$:ifk$=""then7534
7535 ifk$="t"then7541
7536 ifk$="s"then7547
7538 ifk$="^"then6200
7540 goto7534
7541 ifg(3)=1then7400
7542 gosub9000:print" du hast keine codekarte! "
7543 print"[145] weiter (^) "
7544 getk$:ifk$<>"^"then7544
7545 s=s+1:ifs>1then9530
7546 goto7530
7547 ifg(1)=1then7549
7548 gosub9000:print" du hast keinen schluessel! ":goto7543
7549 ifg(20)=1then7560
7550 gosub9000:print" du findest ein heft. mit- "
7551 print"[145] nehmen (m) weiter (^) "
7552 getk$:ifk$=""then7552
7553 ifk$="^"then7530
7554 ifk$="m"then7556
7555 goto7552
7556 gosub9000:print" du hast das heft eingesteckt. ":g(20)=1
7557 print"[145] weiter (^) "
7558 getk$:ifk$<>"^"then7558
7559 goto7530
7560 gosub9000:print" der schrank ist leer! ":goto7557
7600 f=10:f$="[150]"
7605 pokev+32,f:print"[147][150]"spc(16)"raum 5":gosub8000
7607 print""spc(20);:gosub8290
7608 print""spc(21)"[151][169][164][129][196][196][151][164][223]"
7612 print"[152]"spc(31);:gosub8660
7616 print""spc(33);: gosub8780:print"[157][157][157][157][183][183][183]"
7618 print""spc(13);:gosub8230
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]"
7630 gosub9000:print" tresor oeffnen (t) "
7632 print"[145] zurueck (^) "
7634 getk$:ifk$=""then7634
7635 ifk$="^"then7700
7636 ifk$="t"then7650
7640 goto7634
7650 ifg(23)=0then9500
7652 ifg(11)=1then7680
7654 gosub9000:print" du findest eine plastikkarte. "
7656 print"[145] mitnehmen (m) weiter (^) "
7658 getk$:ifk$=""then7658
7660 ifk$="m"theng(11)=1:goto7664
7661 ifk$="^"then7630
7662 goto7658
7664 gosub9000:print" du hast die karte eingesteckt. "
7666 print"[145] weiter (^) "
7668 getk$:ifk$<>"^"then7668
7670 goto7630
7680 gosub9000:print" der tresor ist leer. ":goto7666
7700 f=12:f$="[152]":t=2
7705 pokev+32,f:print"[147][152]"spc(16)"raum 6":gosub8000
7707 print""spc(11);:gosub8230
7708 print""spc(20);:gosub8230
7709 print""spc(28);:forx=0to4:print"[155]- [157][157][157][157][157] [157][157][157][157][157]";:next
7710 print""spc(27);:gosub8370: printspc(28)"[145][210]"
7712 ifa(5)=1thenprint""spc(21);:gosub8250
7713 ifa(6)=1thenprint""spc(10);:gosub8550
7714 ifa(7)=1thenprint""spc(17);:gosub8640
7720 ifu=2then7741
7730 gosub9000:print" tuer oeffnen (t) inventur (i) "
7732 print"[145] zurueck (^) "
7734 getk$:ifk$=""then7734
7735 ifk$="^"then7800
7736 ifk$="i"then13200
7737 ifk$="t"then7760
7740 goto7734
7741 ifg(4)=0then13320
7742 gosub9000:print" schraubenschluessel weglegen (s) "
7743 print"[145] weiter (^) "
7744 getk$:ifk$=""then7744
7745 ifk$="^"then13320
7746 ifk$="s"thena(4)=1:g(4)=0:goto7750
7748 goto7744
7750 gosub9000:print" du hast den schraubenschluessel "
7751 print"[145] weggelegt. weiter (^) "
7752 getk$:ifk$<>"^"then7752
7753 goto13320
7760 ifg(4)=0anda(2)=1anda(1)=1then7600
7762 goto9500
7800 f=3:f$="[159]"
7805 pokev+32,3:print"[147][159]"spc(17)"raum 7" :gosub8000
7807 print"[158]"spc(8);: gosub8590
7808 print"[129]"spc(7);:gosub8170
7809 print""spc(27);:forx=0to4:print"[152] [157][157][157][157][157]:::::[157][157][157][157][157]";:next
7810 print""spc(26);:gosub8370: print"[157][157][157][157][157][157][157][157][157][157][157][157][157][152] "
7811 print""spc(22);:gosub8760
7812 print""spc(12);:gosub 8780:print" [164][164][164]"
7830 gosub9000:print" tuer (t) oeffnen tisch unter- "
7832 print"[145] suchen (u) weiter (^) "
7834 getk$:ifk$=""then7834
7835 ifk$="t"then7841
7836 ifk$="u"then7847
7838 ifk$="^"then6200
7840 goto7834
7841 ifg(14)=1then7700
7842 gosub9000:print" du hast keinen lochstreifen! "
7843 print"[145] weiter (^) "
7844 getk$:ifk$<>"^"then7844
7845 s=s+1:ifs>1then9500
7846 goto7830
7847 ifg(13)=1then7860
7848 gosub9000:print" du findest einen zettel mit einer "
7849 print"[145] formel. mitnehmen (m) weiter (^) "
7850 getk$:ifk$=""then7850
7851 ifk$="m"then7854
7852 ifk$="^"then7830
7853 goto7850
7854 gosub9000:print" du hast den zettel eingesteckt. ":g(13)=1
7855 print"[145] weiter (^) "
7856 getk$:ifk$<>"^"then7856
7857 goto7830
7860 gosub9000:print" du findest nichts. ":goto7855
7900 f=11:f$="[151]"
7905 pokev+32,f:print"[147][151]"spc(16)"raum 15" :gosub8000
7906 print""spc(24);:forx=0to3:print"[181][181][181][181][181][181] [157][157][157][157][157][157][157]";:next
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]"
7909 print""spc(5);:gosub8230
7910 print""spc(10);:gosub8230
7911 print""spc(15);:gosub8230
7912 print""spc(5);:forx=0to3:print"[155][213][177][201][157][157][157][202][219][203][157][157][157]";:next
7914 print""spc(20)"[152][206]"spc(10)"[205]"spc(27)"[206]"spc(12)"[205]";
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]"
7930 gosub9000:print" hinter dir faellt die tuer ins schloss."
7932 print"[145] du bist eingesperrt. weiter (^)"
7934 getk$:ifk$<>"^"then7934
7936 goto9545
8000 print"[205]"spc(38)"[206] [205]"spc(36)"[206] [205]" spc(34)"[206]"
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]"
8030 forx=0to10:print" [180]"spc(32)"[170]": next
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]"
8050 print" [206]"spc(34)"[205] [206]"spc(36)"[205] [206]" spc(38)"[205]":return
8060 print"[176][178][178][178][178][178][174]";
8080 forx=0to8:print"[157][157][157][157][157][157][157][221][221][221][221][221][221][221]";: next
8090 print"[157][157][157][157][157][157][157][173][177][177][177][177][177][189]";
8095 print"[145][145][145][145][145][145][157][157][146][158] [157]:":return
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]";
8120 forx=0to2:print"[157][157][157][157][157][157][157][157][157][171][192][192][192][192][192][192][192][179]";:next
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
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
8160 print"[157][157][157][157][157][157][157][173][177][177][177][177][177][189]":return
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
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
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
8230 print"[151]:[157][146][221][157][202][219][203]";:return
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
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
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]";
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]";
8320 print"[221] [221][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][203]": return
8330 forx=0to2
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]";
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] ";
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
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
8370 print"[176][192][192][192][192][192][174]";
8390 forx=0to8:print"[157][157][157][157][157][157][157][221][146]"spc(5)"[221]";: next
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
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]";
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]";
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]";
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
8450 print"[154][167][158][221][165][157][157][157][154][167][158][221][165]":return
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
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]";
8505 print"[146][223][221][146] [223][205][223]";
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]";
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]";
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]";
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
8530 print" [164][154][185][175][164]"spc(2)"[175][164][164][149][175][185][175]" spc(18);
8542 print"[149] [190]---[163][183][163]--[129] [154][163][163][163] [163][163][163] [129] ,[149][146][181]" :return
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]";
8565 print"[157][157][157][157][129][202][192][203]":return
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]";
8585 print"[171][192][192][192][179][157][157][157][157][157][173][192][192][192][189]":return
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]";
8605 print"[221]"spc(6)"[221][157][157][157][157][157][157][157][157]":return
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]";
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);
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
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
8660 print"[176][192][174][157][157][157][221] [221][157][157][157][173][192][189][145][157][157][146][209]";: return
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]:";
8695 print"[157][157][157][157][157][157][157][181][163][163][163][163][163][182]":return
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] ";
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
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
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
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
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
9000 printf$" "
9010 print" [157]";:print" ";
9020 print" [145][145][145][145][145]": poke2023,160:poke56295,f:return
9500 pokev+32,0:pokev+33,0:print"[147][155] du hast alarm ausgeloest und wurdest "
9501 print" entdeckt. deinem beruehmt-beruech- "
9502 print" tigten agenten-riecher wurde fuer "
9503 print" immer der garaus gemacht. "
9504 print" ohne nase schaust du noch beknackter "
9505 print" aus als sonst. ":goto9600
9506 print" aber keine angst, so lange ist das "
9507 print" gar nicht mehr ... ":goto9600
9510 pokev+32,0:pokev+33,0:print"[147][155] du bist mitsamt dem tresor in die "
9511 print" luft geflogen! "
9512 print" das war's dann wohl mit dem grossar- "
9513 print" tigen detektiv-comeback. "
9514 print" warst schon mal besser in form, mein "
9515 print" guter. naja ... ":goto9600
9516 pokev+32,0:pokev+33,0:print"[147][155] der lift rast mit dir in die tiefe. "
9517 print" du haemmerst auf den tasten herum, "
9518 print" aber nichts passiert. "
9519 print" du hast angst ... ":goto9556
9520 pokev+32,0:pokev+33,0:print"[147][155] dr. yes hat dich die ganze zeit be- "
9521 print" obachtet. "
9522 print" die 34 einschussloecher in deinem "
9523 print" jakett machen sich besonders gut! ":goto9514
9525 pokev+32,0:pokev+33,0:print"[147][155] deine entdeckung ist geradezu phae- "
9526 print" nomenal; uebrigens hat dich dr. yes "
9527 print" auch schon entdeckt. "
9528 print" er hat es kurz gemacht. ":goto9514
9530 pokev+32,0:pokev+33,0:print"[147][155] an wievielen schloessern glaubst du, "
9531 print" kannst du ruetteln, ohne dass dich "
9532 print" jemand bemerkt? dr. yes ist ent- "
9533 print" zueckt von deinen methoden! ":goto9514
9535 pokev+32,0:pokev+33,0:print"[147][155] wer so viel schmarrn mit sich herum- "
9536 print" schleppt wie du, kann sich absolut "
9537 print" unauffaellig bewegen. dr. yes lacht "
9538 print" sich halb tot. ":goto9514
9540 pokev+32,0:pokev+33,0:print"[147][155] seit neuestem sind sogar schon in "
9541 print" strampelanzuegen sicherungen einge- "
9542 print" baut und so'nen diebstahl mag der dr. "
9543 print" yes ueberhaupt nicht gern! ":goto9514
9545 pokev+32,0:pokev+33,0:print"[147][155] schade um die schoene zeit, die du "
9546 print" fuer diesen fall aufgewendet hast. "
9547 print" du wirst den rest deines lebens hier "
9548 print" in diesem loch verbringen. ":goto9506
9550 pokev+32,0:pokev+33,0:print"[147][155] du hast es geschaffft,0013! du sitzt "
9551 print" mitten in einer riesen-muellhalde. "
9552 print" es stinkt penetrant nach verfaulten "
9553 print" 00-agenten. "
9554 print" aber mach dir nichts draus. du wirst "
9555 print" bald gar nichts mehr riechen ... ":goto9600
9556 print" aber mach dir nichts draus. du wirst "
9557 print" bald nie mehr angst haben ... ":goto9600
9560 pokev+32,0:pokev+33,0:print"[147][155] du spuerst jeden knochen einzeln und "
9561 print" deine nase ist ein roter golfball im "
9562 print" gesicht. es ist vorbei. dr. yes hat "
9563 print" dich noch nie besonders gemocht. "
9564 print" aber eine fortsetzung ist nicht aus- "
9565 print" geschlossen: man lebt nur zweimal... ":goto9600
9566 pokev+32,0:pokev+33,0:print"[147][155] du haettest wenigstens einen schall- "
9567 print" daempfer benuetzen koennen. dr. yes "
9568 print" ist doch nicht taub. und dich hat er "
9569 print" noch nie besonders gemocht. ":goto9564
9570 pokev+32,1:pokev+33,1:print"[147] du hast es wieder einmal geschafft, "
9571 print" 0013. von dr. yes' insel ist nicht "
9572 print" mehr viel uebrig. von dir allerdings "
9573 print" auch nicht. pech gehabt ... "
9574 print" aber eine fortsetzung ist nicht aus- "
9575 print" geschlossen: man lebt nur zweimal... "
9576 print"[154] du hast uebrigens 100 % [154]des spiels "
9577 print" erreicht! perfekt ... [145][145]":goto9620
9600 forx=1to23:q=q+g(x):next:q=q*4.35
9602 ifa(1)=1thenq=83.75
9604 ifa(3)=1thenq=97.25
9610 print"[154] du hast"q"% [154]des spiels erreicht!"
9620 print"[155] nochmal (n) ende (e) "
9630 getk$:ifk$=""then9630
9640 ifk$="n"thenrun50
9650 ifk$="e"thensys64738
9660 goto9630
10000 f=12:f$="[152]"
10005 pokev+32,f:print"[147][152]"spc(16)"raum 16":gosub8000
10008 print""spc(6);:forx=0to4:print"[206] [206] [206][157][157][157][157][157] [206] [206] [157][157][157][157][157]";:next
10010 print"[154]"spc(5);:gosub8370
10012 print""spc(27);:forx=0to4:print"[206] [206] [206][157][157][157][157][157] [206] [206] [157][157][157][157][157]";:next
10014 print"[150]"spc(26);:gosub8370
10016 print""spc(15);: gosub8680
10018 print"[155]"spc(13);: gosub8590
10030 gosub9000:print" monitor einschalten (m) linke (l) "
10032 print"[145] oder rechte tuer (r) zurueck (^) "
10034 getk$:ifk$=""then10034
10035 ifk$="m"then10042
10036 ifk$="^"then6860
10037 ifk$="r"then10900
10038 ifk$="l"then10100
10040 goto10034
10042 ifg(17)=1org(6)=1org(8)=1then9535
10043 print""spc(16)"[158];;;;[157][157][157][157]!!!!"
10044 gosub9000:print" auf dem monitor erscheint ein zahlen- "
10045 print"[145] code, den du dir merkst. weiter (^) ":g(17)=1
10046 getk$:ifk$<>"^"then10046
10047 print""spc(16)"[155] [157][157][157][157] "
10048 gosub9000:print" du schaltest den monitor wieder aus. "
10049 print"[145] weiter (^) "
10050 getk$:ifk$<>"^"then10050
10051 goto10030
10099 end
10100 f=12:f$="[152]":ifs>1then9500
10105 pokev+32,f:print"[147][152]"spc(16)"raum 17":gosub8000
10106 print""spc(6);:gosub 8400
10108 print"[159]"spc(8);:gosub8170
10110 print""spc(7);:gosub 8450
10112 print""spc(22);:gosub8470
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
10116 print"[155]"spc(27);:gosub8370
10120 ifa(1)=1then10150
10130 gosub9000:print" ein mann kommt auf dich zu. "
10132 print"[145] schiessen (s) reden (r) "
10134 getk$:ifk$=""then10134
10135 ifk$="r"then10142
10136 ifk$="s"then12179
10140 goto10134
10142 ifg(2)=0then10170
10143 gosub9000:print" der mann fragt dich nach den schalt- "
10144 print"[145] plaenen. weiter (^) "
10145 getk$:ifk$<>"^"then10145
10146 ifg(21)=0then10160
10147 gosub9000:print" du gibst ihm die plaene, darauf er dir ":g(21)=0
10148 print"[145] eine zahlenkombination. weiter (^) ":a(1)=1:g(23)=1
10149 getk$:ifk$<>"^"then10149
10150 gosub9000:print" tuer oeffnen (t) "
10151 print"[145] zurueck (^) "
10152 getk$:ifk$=""then10152
10153 ifk$="^"then10000
10154 ifk$="t"theny=0:goto12100
10155 goto10152
10160 gosub9000:print" du gibst zu, dass du keine "
10161 print"[145] plaene hast. weiter (^) "
10162 getk$:ifk$<>"^"then10162
10163 goto12167
10170 gosub9000:print" ohne schutzanzug erkennt dich der "
10171 print"[145] mann natuerlich. weiter (^) "
10172 getk$:ifk$<>"^"then10172
10173 goto12167
10200 f=13:f$="[153]"
10205 pokev+32,f:print"[147][153]"spc(16)"raum 18":gosub8000
10206 print""spc(16);:gosub 8740
10207 print"[159]"spc(4);:gosub8570
10208 print""spc(9);:gosub8570
10209 print""spc(14)"[223][157] [157] [157] [157] [157] [157][157][157][157][157][157][157][145][209][209]"
10210 print""spc(22);:gosub8230
10211 print""spc(17);:gosub8230
10212 print""spc(26);:gosub 8680
10213 print""spc(19);: gosub8400
10215 ifg(12)=0anda(1)=0thenprint""spc(6);:gosub8700:goto10270
10220 ifg(12)=1anda(1)=0ora(3)=1then 10260
10230 gosub9000:print" wie auf ein kommando erscheint eine "
10231 print"[145] blondine. weiter (^) "
10232 getk$:ifk$<>"^"then10232
10233 gosub9000:print" sie fragt dich nach den buechern. "
10234 print"[145] weiter (^) "
10235 getk$:ifk$<>"^"then10235
10236 a(3)=1:ifg(9)=0then10238
10237 gosub9000:print" du gibst ihr die buecher. ":goto10282
10238 gosub9000:print" du gibst zu, dass du die buecher "
10239 print"[145] nicht hast. weiter (^) "
10240 getk$:ifk$<>"^"then10240
10241 gosub9000:print" die huebsche blondine schlaegt "
10242 print"[145] dich zusammen. weiter (^) "
10243 getk$:ifk$<>"^"then10243
10244 goto9560
10260 gosub9000:print" du hoerst ein geraeusch. raum un- "
10261 print"[145] tersuchen (r) zurueck (^) "
10262 getk$:ifk$=""then10262
10263 ifk$="^"then10900
10264 ifk$="r"then9500
10265 goto10262
10270 gosub9000:print" dynamit mitnehmen (d) "
10271 print"[145] zurueck (^) "
10272 getk$:ifk$=""then10272
10273 ifk$="^"then10900
10274 ifk$="d"then10276
10275 goto10272
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]";
10277 forx=0to3:print" [157][157][157][157][157][157][157][157]";: next:g(12)=1
10278 gosub9000:print" du hast das dynamit eingesteckt. "
10279 print"[145] zurueck (^) "
10280 getk$:ifk$<>"^"then10280
10281 goto10900
10282 print"[145] weiter (^) "
10283 getk$:ifk$<>"^"then10283
10284 gosub9000:print" als sie gegangen ist, untersuchst du "
10285 print"[145] den raum. weiter (^) "
10286 getk$:ifk$<>"^"then10286
10287 ifg(11)=1then10296
10288 gosub9000:print" du findest nichts. ":goto10279
10290 ifg(12)=1then10292
10291 goto9500
10292 gosub9000:print" du machst das dynamit scharf und "
10293 print"[145] laeufst los ... weiter (^) "
10294 getk$:ifk$<>"^"then10294
10295 goto9570
10296 gosub9000:print" im schrank findest du die gesuchten "
10297 print"[145] unterlagen. weiter (^) "
10298 getk$:ifk$<>"^"then10298
10299 goto10290
10300 f=13:f$="[153]":t=1
10305 pokev+32,f:print"[147][153]"spc(16)"raum 19":gosub8000
10308 print""spc(11);:gosub8230
10309 print""spc(20);:gosub8230
10310 print""spc(29);:gosub8230
10311 ifa(2)=1thenprint""spc(30);:gosub8610
10312 ifa(5)=1thenprint""spc(21);:gosub8250
10313 ifa(6)=1thenprint""spc(10);:gosub8550
10314 ifa(7)=1thenprint""spc(17);:gosub8640
10320 print""spc(5);:gosub 8100:ifu=1then13300
10330 gosub9000:print" kiste oeffnen (k) inventur (i) "
10332 print"[145] zurueck (^) "
10334 getk$:ifk$=""then10334
10336 ifk$="^"then10900
10337 ifk$="k"then10348
10338 ifk$="i"then13200
10340 goto10334
10342 goto13300
10348 ifg(14)=0then10350
10349 goto10370
10350 ifg(4)=0then10367
10351 gosub9000:print" du brichst die kiste mit dem schrau- "
10352 print"[145] benschluessel auf. weiter (^) "
10354 getk$:ifk$<>"^"then10354
10355 gosub9000:print" du findest unter einem papierstoss "
10356 print"[145] einen lochstreifen. mitnehmen (j/n) "
10357 getk$:ifk$=""then10357
10358 ifk$="j"theng(14)=1:goto10361
10359 ifk$="n"then10365
10360 goto10357
10361 gosub9000:print" du steckst den lochstreifen ein. "
10362 print"[145] weiter (^) "
10363 getk$:ifk$<>"^"then10363
10364 goto10330
10365 gosub9000:print" du machst die kiste wieder zu. "
10366 print"[145] weiter (^) ":goto10363
10367 gosub9000:print" die kiste ist verschlossen. "
10368 print"[145] weiter (^) ":goto10363
10370 gosub9000:print" die kiste ist leer. "
10372 print"[145] weiter (^) ":goto10363
10700 f=2:f$=""
10705 pokev+32,f:print"[147]"spc(16)"raum 23":gosub8000
10730 gosub9000:print" "
10732 print"[145] zurueck (^) "
10734 getk$:ifk$=""then10734
10735 ifk$="^"then10400
10740 goto10734
10800 f=2:f$=""
10805 pokev+32,f:print"[147]"spc(16)"raum 24":gosub8000
10830 gosub9000:print" "
10832 print"[145] zurueck (^) "
10834 getk$:ifk$=""then10834
10835 ifk$="^"then10700
10840 goto10834
10900 f=12:f$="[152]"
10905 pokev+32,f:print"[147][152]"spc(18)"gang":gosub8000
10908 print""spc(6);:forx=0to4:print"[159][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
10910 print""spc(5);:gosub8370
10912 print""spc(17);:forx=0to4:print"[159][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
10914 print""spc(16);:gosub8370
10916 print""spc(28);:forx=0to4:print"[149][172] [172] [172][157][157][157][157][157] [172] [172] [157][157][157][157][157]";:next
10918 print"[129]"spc(27);:gosub8370
10930 gosub9000:print" linke (l), rechte (r) oder mittlere "
10932 print"[145] tuer (m) zurueck (^) "
10934 getk$:ifk$=""then10934
10935 ifk$="^"then10000
10936 ifk$="r"then7900
10937 ifk$="m"then10300
10938 ifk$="l"then10200
10940 goto10934
10999 end
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]"
11010 print" . [176][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][174] "
11011 print" . [221] 1 [221] 2 [221] 3 [221] 4 [221] "
11012 print" [221] [176][192][179] [221] [221] "
11013 print" [171][192][177][192][219][192] [192][177][192][192][192][192][177][192] [192][192][179] "
11014 print" [221] [221] [221] "
11015 print" [221] [221] level ii [221] "
11016 print" [221] 5 [171][192][192][192][192][192][178][192] [192][174] [221] "
11017 print" [221] [221] [221] [221][176][192][192][179] "
11018 print" [221] 6 7 [221][171][192][192][179] "
11019 print" [221] [221] [221] [221][171][192][192][179] "
11020 print" [173][192][192][192][177][192][192][192][192][192][177][192][192][192][177][177][192][192][189] [193] "
11021 print" ":return
12000 f=15:f$="[155]"
12005 pokev+32,f:print"[147][155]"spc(18)"lift"
12006 print"";:forx=0to19:print"[155] [157][157][157][157][157][157][157][157]";:next
12007 print""spc(32);:forx=0to19:print" [157][157][157][157][157][157][157][157]";:next
12008 print"[146]"spc(8)"[205]"spc(22)"[206]"spc(17)"[205]"spc(20)"[206]"spc(19);
12009 print"[205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"spc(20);
12010 forx=0to13:print"[170]"spc(18)"[180]"spc(20);:next
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]"
12012 print""spc(13);:forx=0to3:print"[164][146][158]:[153][164][146][158]:[157][157][157][157]";:next
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]";
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]"
12019 print""spc(22);:gosub 8760
12030 gosub9000:print" nach oben (o) nach unten (u) "
12032 print"[145] zurueck (^) ":ify=1then12105
12034 getk$:ifk$=""then12034
12036 ifk$="^"thens=s+1:goto10100
12037 ifk$="u"then12041
12038 ifk$="o"then12046
12040 goto12034
12041 ifg(11)=1then9516
12042 gosub9000:print" du hast keine identitaetskarte! "
12043 print"[145] zurueck (^) "
12044 getk$:ifk$<>"^"then12044
12045 s=s+1:goto10100
12046 ifg(11)=0then12042
12047 x=26:goto12112
12100 y=1:goto12000
12105 print""spc(13)"[158][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
12106 goto12034
12112 print""spc(x)" ":x=x-1:ifx >12then12112
12113 gosub9000:print" du steigst vorsichtig aus dem lift. "
12114 print"[145] weiter (^) "
12115 getk$:ifk$<>"^"then12115
12116 goto6600
12150 gosub9000:print" ein mann im schutzanzug kommt die "
12152 print"[145] treppe herauf. weiter (^) "
12154 getk$:ifk$<>"^"then12154
12156 gosub9000:print" kaempfen (k) schiessen (s) "
12158 print"[145] verstecken (v) "
12160 getk$:ifk$=""then12160
12161 ifk$="k"then12166
12163 ifk$="v"then12175
12164 ifk$="s"then12179
12165 goto12160
12166 ifg(4)=1then12171
12167 gosub9000:print" der mann schlaegt dich nieder. "
12168 print"[145] weiter (^) "
12169 getk$:ifk$<>"^"then12169
12170 goto9560
12171 gosub9000:print" mit deinem schraubenschluessel er- "
12172 print"[145] schlaegst du den mann. weiter (^) "
12173 getk$:ifk$<>"^"then12173
12174 goto13000
12175 gosub9000:print" der mann sieht dich, wie du dich in "
12176 print"[145] einer nische versteckst. weiter (^) "
12177 getk$:ifk$<>"^"then12177
12178 goto12167
12179 ifg(10)=0then12184
12180 gosub9000:print" du erschiesst den mann. "
12181 print"[145] weiter (^) "
12182 getk$:ifk$<>"^"then12182
12183 goto9566
12184 gosub9000:print" mit was denn, bitte ? "
12185 print"[145] weiter (^) "
12186 getk$:ifk$<>"^"then12186
12187 goto12167
13000 ify=2theng(16)=1:goto6810
13002 ify=3theng(15)=1:goto6840
13004 goto6800
13100 dimg$(23)
13101 g$(1)="1 schluesselbund":g$(2)="1 schutzanzug":g$(3)="1 codekarte"
13102 g$(4)="1 schraubenschluessel":g$(5)="1 messer":g$(6)="1 maske"
13103 g$(7)="1 flasche":g$(8)=" pilze":g$(9)=" buecher"
13104 g$(10)="1 pistole":g$(11)="1 plastikkarte":g$(12)=" dynamit"
13105 g$(13)="1 zettel mit einer formel":g$(14)="1 lochstreifen"
13107 g$(17)="1 zahlencode":g$(20)="1 heft":g$(21)=" elektrische schaltplaene"
13109 g$(22)="1 kleinen, flachen schluessel":g$(23)="1 zahlenkombination"
13110 pokev+33,0:goto6000
13200 print"[147] inventur"spc(16)" du hast:":y=0
13202 forx=1to23
13204 ifg(x)=1thenprint" "g$(x):y=y+1: ify>7then13210
13206 ifx=24thenend
13208 next
13210 gosub9000:print" "
13212 print"[145] weiter (^) "
13214 getk$:ifk$<>"^"then13214
13215 ifx=24then13220
13216 y=0:print"[147] inventur"spc(16)" weiterhin:"
13218 next
13220 ift=1thenu=1:goto10300
13222 ift=2thenu=2:goto7700
13300 ifg(2)=0then13320
13302 gosub9000:print" schutzanzug ausziehen (a) "
13304 print"[145] weiter (^) "
13306 getk$:ifk$=""then13306
13307 ifk$="^"then13320
13308 ifk$="a"then13310
13309 goto13306
13310 a(2)=1:g(2)=0:print""spc(30);:gosub8610
13320 ifg(5)=0then13340
13322 gosub9000:print" messer an haken haengen (m) "
13324 print"[145] weiter (^) "
13326 getk$:ifk$=""then13326
13327 ifk$="^"then13340
13328 ifk$="m"then13330
13329 goto13326
13330 a(5)=1:g(5)=0:print""spc(21);:gosub8250
13340 ifg(6)=0then13360
13342 gosub9000:print" maske an haken haengen (m) "
13344 print"[145] weiter (^) "
13346 getk$:ifk$=""then13346
13347 ifk$="^"then13360
13348 ifk$="m"then13350
13349 goto13346
13350 a(6)=1:g(6)=0:print""spc(10);:gosub8550
13360 ifg(7)=0then13380
13362 gosub9000:print" flasche abstellen (f) "
13364 print"[145] weiter (^) "
13366 getk$:ifk$=""then13366
13367 ifk$="^"then13380
13368 ifk$="f"then13370
13369 goto13366
13370 a(7)=1:g(7)=0:print""spc(17);:gosub8640
13380 ift=1thenu=0:goto10330
13382 ift=2thenu=0:goto7730
15000 end