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