0 POKE808,225:POKE657,128:IFFL=9THEN11536
1 PRINT"[147]":POKE53272,23:POKE53280,0:POKE53281,0:DIMNA$(55):POKE50002,0:EN=10
2 PRINT"[145] [211]PION [201][201][201] ( [196] 2 [205]ISSION ) [214]ERSION 1.0":DIMXX$(35):DIMBE$(32)
3 PRINTTAB(7)"[158][196]ESIGNER: [211]TEFFEN [199]OEBBELS":POKE54272+24,10:POKE56549,30
4 PRINTTAB(7)"(C) [211].[202].[199].-[211]OFT [215]EEZE 1985":ZE=180:GOSUB60000
5 DATA120,169,13,141,20,3,169,195,141,21,3,88,96,174,252,3,232,142,252,3,224
6 DATA40,208,5,162,0,142,252,3,169,06,157,0,216,169,1,157,1,216,76,0,196
7 FORI=49920TO49961:READQ:POKEI,Q:NEXT:SYS49920
8 DIMB(55):DIMC(55):DATA6,10,10,14,10,10,12,7,10,10,11,10,12,5,7,10
9 DATA14,10,10,9,5,5,2,11,14,10,14,9,3,10,10,11,10,9:FORI=0TO33:READB(I):NEXT
10 REM **** DATEN DER LANDSCHAFT ****
11 DATA85,247,247,85,223,223,85,247,247,85,223,223,85,247,247,85,223,223,85,247
12 DATA247,85,223,223,60,125,60,60,60,60,60,60,60,60,60,60,60,60,125,60
13 DATA195,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215
14 DATA215,215,215,215,215,20,85,85,85,84,84,84,84,80,80,80,80,64,64,64,64,64
15 DATA85,85,85,21,21,21,21,5,5,5,5,1,1,1,1,1,85,106,106,111,111,111,111,111
16 DATA85,170,170,255,255,255,255,255,85,169,169,249,249,249,249,249,111,111,111
17 DATA111,109,109,111,111,255,255,255,255,127,255,255,255,249,249,249,249,249,249
18 DATA249,249,111,111,111,111,111,111,111,111,255,255,255,255,255,255,255,255
19 DATA170,170,191,191,191,191,170,170,170,170,190,190,190,190,170,170,170,170
20 DATA254,254,254,254,170,170,191,191,191,191,170,255,85,85,190,190,190,190
21 DATA170,255,85,85,254,254,254,254,170,255,85,85,170,170,191,191,191,191,191
22 DATA191,170,170,255,255,255,255,255,255,170,170,254,254,254,254,254,254
23 DATA191,191,191,191,191,191,191,191,254,254,254,254,254,254,254,254
24 DATA191,191,191,189,181,149,170,170,255,255,255,85,85,85,170,170,0,0,0,0,0,0
25 DATA0,0,254,254,254,126,94,86,170,170,85,85,85,85,85,85,85,85
26 DATA255,85,85,85,255,255,255,85,87,87,93,93,117,117,213,213,213,213,117,117
27 DATA93,93,87,87,85,85,85,86,90,106,85,85,85,85,170,170,170,170,85,85,85,85
28 DATA170,169,165,149,85,85,85,85,170,106,90,86,85,85,85,85,85,149,165,169,85
29 DATA85,85,85,85,85,87,93,117,213,87,93,117,213,85,85,85,85
30 DATA85,85,85,85,213,117,93,87,213,117,93,87,85,85,85,85
31 DATA24,24,24,126,126,24,24,24,0,0,1,5,5,21,21,21,0,85,85,85,85,85,85,85,0
32 DATA192,112,92,95,87,87,87,21,21,21,21,21,21,21,21,87,87,87,87,87,87,87,87
33 DATA0,3,5,21,21,85,85,85,0,192,112,92,95,87,87,87,87,87,87,87,87,87,87,84
34 DATA0,0,1,255,254,63,31,15,0,0,216,240,99,247,255,222,15,127,30,56,16,128
35 DATA128,0,0,0,7,13,36,33,55,15,0,0,128,255,255,255,255,255,15,31,31,27,11,11
36 DATA3,1,206,252,248,240,176,0,0,192,31,50,12,63,127,127,255,255,143,191,31
37 DATA30,254,231,243,249,64,62,31,63,63,31,31,15,0,0,128,192,240,248,248,240
38 DATA127,31,3,3,3,1,1,1,252,254,254,252,252,248,248,248,7,7,7,7,3,3,3,2,224
39 DATA224,192,128,128,0,0,0,240,240,224,96,0,0,0,0
40 DATA127,159,167,169,170,170,170,170,255,255,255,255,127,159,167,169,255,255
41 DATA255,255,253,246,218,106,253,246,218,106,170,170,170,170,253,253,246,246
42 DATA218,218,106,106,127,127,159,159,167,167,169,169,170,170,170,170,169,167
43 DATA159,127,169,167,159,127,255,255,255,255,106,218,246,253,255,255,255,255
44 DATA170,170,170,170,106,218,246,253,106,106,218,218,246,246,253,253,169,169
45 DATA167,167,159,159,127,127,170,170,170,170,170,170,170,170
46 DATA170,42,2,0,0,0,0,0,170,170,170,170,10,2,0,0,170,170,170,170,170,170,234
47 DATA250,170,170,170,170,170,170,171,175,170,170,170,170,160,128,0,0,170,171
48 DATA128,0,0,0,0,0,0,0,0,0,3,3,15,63,5,53,245,245,245,245,245,245,80,85,85
49 DATA85,85,84,84,84,63,255,255,51,3,0,0,0,245,250,234,162,162,160,128,0,84
50 DATA160,160,128,0,0,0,0,170,170,186,187,171,167,173,191,170,170,174,238,234
51 DATA250,250,254,170,170,253,247,223,223,223,117,191,157,183,189,189,189,183
52 DATA149,127,253,247,227,119,247,253,247,126,222,246,254,222,118,254,254
60 REM **** SPRITES ****
61 DATA0,0,0,0,2,170,0,10,170,0,42,170,2,170,170,10,170,170,170,170,170,255
62 DATA255,255,255,255,255,234,213,83,234,213,67,255,213,3,234,212,3,234,212,3
63 DATA255,208,3,255,192,3,234,0,0,212,0,0,212,0,0,208,0,0,192,0,0,0:REM SP.0
64 DATA0,0,0,170,160,0,170,160,0,170,144,0,170,144,0,170,80,0,170,80,0,255,80,0
65 DATA255,80,0,171,80,0,171,80,0,255,80,0,171,80,0,171,80,0,255,80,0,255,64,0
66 DATA3,64,0,3,64,0,3,64,0,3,64,0,3,0,0,0:REMSP.1
67 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,84,0,5,85,0,26,165,64
68 DATA42,169,80,170,170,80,170,170,80,170,170,80,170,170,80,170,171,80,170,170
69 DATA80,170,170,80,170,170,80,170,170,80,0:REMSP.2
70 DATA170,170,80,170,170,80,170,170,80,175,170,80,175,170,80,191,234,80,186
71 DATA234,80,186,234,80,191,234,80,175,170,80,175,170,80,170,170,80,170,170,80
72 DATA170,170,80,170,171,80,170,170,80,170,170,80,170,170,80,170,170,64,42,169
73 DATA64,10,165,0,0:REMSP.3
74 DATA0,0,0,0,0,0,0,0,0,149,80,0,169,85,0,171,149,80,171,169,85,171,171,255
75 DATA171,171,255,171,171,255,171,171,255,171,171,255,171,171,255,43,171,255
76 DATA11,171,255,3,171,255,3,171,255,0,171,255,0,43,255,0,11,255,0,3,255,0
77 DATA0,0,0,0,8,0,0,42,0,0,46,0,0,46,0,0,42,0,0,8,0,0,42,0,0,42,0,0,170,0,0
78 DATA166,0,0,166,0,1,86,0,1,86,0,0,170,0,0,170,0,0,170,0,0,170,0,0,42,0,0,12,0
79 DATA0,12,0,0:REMSP5
80 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,170,0,90,170,0,90,170
81 DATA2,154,170,10,170,170,42,170,170,171,234,170,255,239,255,3,255,255,0,0,0
82 DATA0,0,0,0,0,0,0,0,0,0,0,0,0:REMSP6
83 DATA0,40,0,0,40,0,0,168,0,0,168,0,2,160,0,2,160,0,10,160,0,170,172,0,170,188
84 DATA0,170,172,0,170,160,0,170,128,0,170,140,0,170,188,0,234,140,0,255,0,0
85 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REMSP.7
99 REM ****************************
100 FORI=2048TO2303:READQ:POKEI,Q:NEXT:FORI=2304TO2311:POKEI,0:NEXT
101 FORI=2312TO2887:READQ:POKEI,Q:NEXT
110 POKE53270,PEEK(53270)OR16:POKE53282,12:POKE53283,1
120 FORI=0TO511:READQ:POKEI+3072,Q:NEXT:VI=53248:V=VI:GOSUB9000
130 POKE2040,48:POKE2041,49:POKEVI,120:POKEVI+2,144:POKEVI+1,110:POKEVI+3,110
131 POKEVI+28,255:POKEVI+37,6:POKEVI+38,11:POKEVI+39,6:POKEVI+40,6
132 POKE2042,50:POKE2043,51:POKEVI+4,160:POKEVI+6,160:POKEVI+5,80:POKEVI+7,101
133 POKEVI+41,14:POKEVI+42,14:POKE2044,52:POKEVI+8,238:POKEVI+9,97:POKEVI+43,3
134 POKE2045,53:POKEVI+10,150:POKEVI+11,110:POKEVI+44,6:POKE2046,54
135 POKE2047,55:POKEVI+45,1:POKEVI+46,1:GOTO146
136 POKEVI+13,110:POKEVI+15,110:POKEVI+21,192:I=370
137 I=I-1:F=INT(I/256):G=I-(256*F):H=I-23:J=INT(H/256)
138 K=H-(256*J):POKEVI+12,K:POKEVI+14,G
139 IFJ=1THENPOKEVI+16,192
140 IFJ=0ANDF=1THENPOKEVI+16,128
141 IFJ=0ANDF=0THENPOKEVI+16,0
142 IFI<24THENF=0:G=0:H=0:J=0:K=0:GOTO144
143 GOTO137
144 REM
145 FORI=23TO0STEP-1:POKEVI+14,I:FORE=0TO20:NEXTE,I:RETURN
146 POKEVI+21,0:POKEVI+12,36:POKEVI+14,60:POKEVI+13,152:POKEVI+15,152
147 POKEVI+16,192
148 REM
200 A$="[150]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":POKEVI+37,11:POKEVI+38,12
210 B$="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
220 C$="BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB":A$=A$+B$+C$+A$+B$+C$
230 B$="[149]CCCC[129]@@[149]CCCC[129]@@[149]CCCC[129]@@[149]CCCC[129]@@[149]CCCC[129]@@[149]CCCC[129]@@[149]CCCC"
240 C$="DDDD[129]AA[149]DDDD[129]AA[149]DDDD[129]AA[149]DDDD[129]AA[149]DDDD[129]AA[149]DDDD[129]AA[149]DDDD":B$=B$+C$
250 C$="[155]EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
260 D$="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
270 E$="GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG":C$=C$+D$+D$+D$+D$+E$
280 D$="LMN[157][157][157]OPQ[157][157][157]RSQ"
290 E$="[129]TUV[157][157][157]WXY"
300 F$="[129]Z[[[[[[[[[\[157][157][157][157][157][157][157][157][157][157][157]]SSSSSSSSS^[157][157][157][157][157][157][157][157][157][157][157]_!!!!!!!!!#"
310 G$="[129]Z[[[[[\[157][157][157][157][157][157][157]]SSSSS^[157][157][157][157][157][157][157]_!!!!!#"
320 H$="[129]Z[[\[157][157][157][157]]SS^[157][157][157][157]]SS^"
330 I$="[145]"+E$+"[145]"+E$+"[145]"+E$+"[145]"+E$+"[145]"+E$+"[145]"+E$+"[145]"+E$
340 J$="[151]$S[157][157]$S[157][157]$S[157][157]$S[157][157]H [157][157]I ":K$="[151]S$[157][157]S$[157][157]S$[157][157]S$[157][157] J[157][157] K"
350 L$="[129]$-.$$-.$$-.$$-.$$-.$$0/$$0/$$0/$$0/$$0/$"
360 M$="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
370 N$="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
371 O$="$$$())))*$$$())))*$$$+)))),$$$+)))),$$$+"
380 L$=L$+M$+N$+N$+O$
390 M$="SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS":L$=L$+"[129]"+M$
400 N$="$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$"
401 O$="$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$[157][157][157]$$$"
402 P$="[157][157][157]$$$[157]$":O$=O$+P$
403 W$="                                        "
404 T1$="[149][215][216][217][157][157][157]  S[157][157][157]  S[157][157][157]   [157][157][157] "
405 T2$="[149][218][219][220][157][157][157]S  [157][157][157]S  [157][157][157]   [157][157][157]   "
406 T3$="[153]Z[[\[157][157][157][157]]  ^"
407 T4$="[129][221][255][223][157][157][157][160][161][162]"
408 T5$="[129][163][165][164][157][157][157][166][167][168]"
410 REM *** NACHRICHTEN : ***
411 NA$(0)="[206]ORDWALL...KEINE [194]ESONDERHEITEN."
412 NA$(1)="[211]TADTPARK.[197]IN [208]LAETZCHEN ZUM [214]ERWEILEN.":NA$(2)=NA$(1):NA$(8)=NA$(1)
413 NA$(9)=NA$(1):NA$(3)=NA$(0):NA$(4)="[196]ER [198]RIEDHOF...WIE GRUSELIG."
414 NA$(5)=NA$(0):NA$(6)="[197]NDE DES [206]ORDWALLS.[193]NFANG EINER [208]ASSAGE":C(6)=8
415 NA$(7)="[196]ER [215]ESTWALL-DIE [200]AUPTSTRASSE DER [211]TADT":NA$(14)=NA$(7)
416 NA$(21)=NA$(7):NA$(10)="[196]IE [210]INGSTRASSE...FREI FUER [193]NLIEGER."
417 NA$(12)=NA$(10):NA$(13)="[197]INE [198]USSGAENGERPASSAGE..."
418 NA$(15)=NA$(10):NA$(16)="[212]ORWEG ZUR [208]ARALLELSTRASSE.":C(34)=16
419 NA$(17)=NA$(10):NA$(18)=NA$(10):NA$(19)=NA$(10):NA$(20)=NA$(13)
420 NA$(22)="[196]AS [197]NDE DER [211]CHILLERSTRASSE."
421 NA$(23)=NA$(16):NA$(24)="[196]IE [211]CHILLERSTRASSE..."
422 NA$(25)=NA$(24):NA$(26)=NA$(24):NA$(27)="[193]NFANG EINER [198]USSGAENGERPASSAGE"
423 NA$(28)="WESTLICHE [201]NDUSTRIESTRASSE":NA$(29)="[201]NDUSTRIESTRASSE"
424 NA$(31)=NA$(29):NA$(32)="OESTLICHE [201]NDUSTRIESTRASSE."
425 NA$(33)="[196]AS [197]NDE DER [201]NDUSTRIESTRASSE."
426 NA$(34)="[198]RIEDHOF...[199]RABSTEINE MIT [201]NSCHRIFTEN."
427 NA$(0)="[197]IN [204]EBENSMITTELGESCHAEFT([204]ADEN)":NA$(35)="[201]M [204]EBENSMITTELGESCHAEFT"
428 C(35)=4:NA$(11)="[205]EINE [215]OHNUNG.":NA$(36)="[201]M [201]NNEREN..."
429 NA$(30)="[212]OR [194] DER [195]HEMIEWERKE ([198]ABRIK)":C(36)=96
430 NA$(37)="[197]INE LEERE [204]AGERHALLE.":B(37)=6:C(38)=2
431 NA$(38)=NA$(37):NA$(43)=NA$(38):NA$(44)=NA$(38):NA$(45)=NA$(38):C(43)=128
432 B(38)=8:B(43)=2:B(44)=11:B(45)=8
433 NA$(37)="[193]USGANG : [212]OR [193] ([211]AFE.)":NA$(38)="[193]USGANG : [212]OR [194]"
434 NA$(42)="[197]IN FEUCHTER,DUNKLER [212]UNNEL.":B(42)=36
435 NA$(39)="[197]IN [194]OGENGANG...":NA$(40)=NA$(39):NA$(41)=NA$(39):NA$(46)=NA$(39)
436 NA$(47)="[196]AS [203]ONTROLLZENTRUM.([211]CHALTPULT,[203]NOPF)"
437 NA$(48)=NA$(39):NA$(53)=NA$(39):NA$(55)=NA$(39)
438 NA$(54)="[197]INE GEHEIMNISSVOLLE [212]UER...":B(39)=6:B(40)=10:B(41)=12:B(46)=5
439 B(47)=4:B(48)=5:B(53)=3:B(54)=10:B(55)=9:NA$(39)=NA$(39)+" (BLAUER [203]NOPF)"
440 TN$="[129]SSSSSSSSSS[157][157][157][157][157][157][157][157][157][157][150]SSSSSSSSSS[157][157][157][157][157][157][157][157][157][157][155]SSSSSSSSSS"
441 TP$=""
442 TQ$="[149]S[157]S[157]S[157]S[157]S[157]S[157]S[157]S[157]S[157]S[157]S":TN$=TN$+TQ$+TP$:TQ$=""
450 PRINTTAB(30)"RETURN...":POKE198,0:WAIT198,1:POKE198,0
460 PRINT"[147][205]OECHTEN [211]IE EIN [159]A[146]LTES [211]PIEL FORT-"
461 PRINT"SETZEN, ODER EIN [159]N[146]EUES BEGINNEN ?":A=0
462 GETX$:IFX$<>"A"ANDX$<>"N"THEN462
463 IFX$="A"THENGOTO11535
500 PRINT"[147]":POKE631,13:POKE198,1
510 SYS49152:POKE50000,B(A):POKE50001,C(A):GOSUB1000:PRINT"":GOTO10000
1000 REM BILD1
1001 PRINT""A$
1002 PRINT""I$:PRINT"[152]"D$"[145][145]"E$"[145]"F$"[145][145]"H$"[145][145]"G$;L$
1003 RETURN
1004 REM BILD2
1005 PRINT""A$;""I$;""I$:PRINT"[145][145][153][145]"D$"[145][145][154]"D$;L$
1006 RETURN
1007 REM BILD3
1008 PRINT""A$"":PRINTTAB(10)"[145][145][145]"J$:PRINT""E$""D$
1009 PRINTTAB(15)"[145][145][145]"F$"[145][145]"F$"[145][145]Z[157]][157]_"
1010 PRINTL$:POKE828,15
1011 RETURN
1012 REM BILD4
1013 PRINT"[151]";M$;M$;M$;W$;""B$;L$:POKE828,13
1015 RETURN:REM BILD5:
1016 PRINT"[154]";C$;L$:PRINT"[153]"H$:POKE828,0:RETURN
1017 REM BILD 6
1018 PRINT""A$;L$;N$
1019 PRINT"[145]"E$"[145]"E$"[145]"E$"[145]"E$
1020 PRINT"[155]"D$"[145][145]"E$"[145][153]"D$"[145][145]"E$:RETURN
1021 REM BILD 7
1022 PRINT""A$;L$;O$;""I$;""I$:RETURN
1023 REM BILD 8
1024 PRINT"[154]"C$;L$;"[154]@@@@@[157][157][157][157][157]AAAAA[157][157][157][157][157]BBBBB[157][157][157][157][157]@@@@@[157][157][157][157][157]AAAAA";
1025 PRINT"[157][157][157][157][157]BBBBB";N$:RETURN
1026 REM BILD 9
1027 PRINT""A$;L$:PRINT""K$
1028 PRINT"[155]"D$"[145][145]"E$"[145]"G$"[145][145]"H$:RETURN:
1029 REM BILD 10
1030 PRINT""A$;"[153]";
1040 PRINT"[149]$$$$$$-.$$$$$$&$$$$$$$$$$'$$$$$$0/$$$$$$";
1050 PRINT"$$$$-.$$$$$$$&$$$$$$$$$$$$'$$$$$$$0/$$$$";
1060 PRINT"$$-.$$$$$$$$&$$$$$$$$$$$$$$'$$$$$$$$0/$$";
1070 PRINT"-.$$$$$$$$$&$$$$$$$$$$$$$$$$'$$$$$$$$$0/";
1080 PRINT"$$$$$$$$$$&$$$$$$$$$$$$$$$$$$'$$$$$$$$$$":RETURN
1081 REM BILD11 (FRIEDHOF)
1090 GOSUB1013:PRINT"":PRINTTAB(17)"1    1[157][157][157][157][157]    [157][157][157][157]    ":RETURN
1100 REM BILD 12
1110 PRINT"[151]"M$;M$;M$;W$;W$;W$;W$;W$;W$;W$;W$:WW$="[129]234[157][157][157]5$6[157][157][157]5$9"
1120 WX$="[129]78[157][157]$9":PRINT""WX$""WW$"[145]"WW$"[145][145]"WX$"[145][145]"WW$"[145]"WW$;
1130 PRINT"[145][145]"WW$"[145][145][145][145]"WX$""WW$"[145][157][157][157][157][157][157][145][145]"WX$"[145][157][145][145][157]"WW$
1135 IFPEEK(50000)AND16THENPRINTT4$
1140 POKE828,13:RETURN
1200 REMBILD12
1210 PRINT"[149][202][203]SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS[204][205]";
1220 PRINT"[214][214][202][203]SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS[204][205][214][214]";
1230 PRINT"[214][214][214][214][202][203]SSSSSSSSSSSSSSSSSSSSSSSSSSSS[204][205][214][214][214][214]";
1240 PRINT"[214][214][214][214][214][214][202][203]SSSSSSSS[206][159] :;<=>[149][207]SSSSSSSS[204][205][214][214][214][214][214][214]";
1250 PRINT"[214][214][214][214][214][214][214][214][150]@@@@@@@@[214][159] ?[192] [193][194][150][214]@@@@@@@@[214][214][214][214][214][214][214][214]";
1260 PRINT"[214][214][214][214][214][214][214][214]AAAAAAAA[214][159]  [195][196][197][198][150][214]AAAAAAAA[214][214][214][214][214][214][214][214]";
1270 PRINT"[214][214][214][214][214][214][214][214]BBBBBBBB[214][159]  [199][200] [201][150][214]BBBBBBBB[214][214][214][214][214][214][214][214]";
1280 PRINT"[214][214][214][214][214][214][153][208][209]SSSSSSSS[212][159]      [153][213]SSSSSSSS[210][211][214][214][214][214][214][214]";
1290 PRINT"[214][214][214][214][208][209]SSSSSSSSSSSSSSSSSSSSSSSSSSSS[210][211][214][214][214][214]";
1291 PRINT"[214][214][208][209]SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS[210][211][214][214]";
1292 PRINT"[208][209]SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS[210][211]";:POKE828,6:POKE53283,15
1295 POKEVI+21,195:RETURN
1300 REM BILD 13
1310 PRINT"[129]SSSSS[149][202][203]SSSSSSSSSSSSSSSSSSSSSSSSSS[204][205][129]SSSSS";
1320 PRINT"[129]SSSSS[149][214][214][202][203]SSSSSSSSSSSSSSSSSSSSSS[204][205][214][214][129]SSSSS";
1330 PRINT"[129]SSSSS[149][214][214][214][214][202][203]SSSSSSSSSSSSSSSSSS[204][205][214][214][214][214][129]SSSSS";
1340 PRINT"[129]SSSSS[149][214][214][214][214][214][214][202][203]SSSSSSSSSSSSSS[204][205][214][214][214][214][214][214][129]SSSSS";
1350 PRINT"SSSSS[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]SSSSS";
1360 PRINT"SSSSS[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]SSSSS";
1370 PRINT"SSSSS[214][214][214][214][214][214][214][214]$$$$$$$$$$$$$$[214][214][214][214][214][214][214][214]SSSSS";
1380 PRINT"SSSSS[214][214][214][214][214][214][153][208][209]SSSSSSSSSSSSSS[210][211][214][214][214][214][214][214][129]SSSSS";
1390 PRINT"SSSSS[153][214][214][214][214][208][209]SSSSSSSSSSSSSSSSSS[210][211][214][214][214][214][129]SSSSS";
1391 PRINT"SSSSS[153][214][214][208][209]SSSSSSSSSSSSSSSSSSSSSS[210][211][214][214][129]SSSSS";
1392 PRINT"SSSSS[153][208][209]SSSSSSSSSSSSSSSSSSSSSSSSSS[210][211][129]SSSSS";:POKE828,5:POKE53283,15
1394 IF(PEEK(50000)AND1)ORA=54THENPRINTT3$
1395 IFPEEK(50000)AND2THENPRINTT2$
1396 IFPEEK(50000)AND8THENPRINTT1$
1397 IFA=35THENPRINTT1$:POKEVI+21,208
1398 IFA=36THENPRINTT1$:POKEVI+21,211
1400 IFA=39THENPRINTT5$
1401 IFA=45THENPOKEVI+21,195
1402 IFA=37THENPOKEVI+21,204
1403 IFA=38THENPOKEVI+21,208
1404 IFA=46THENPOKEVI+21,224
1410 RETURN
1500 PRINT"";:FORI=0TO10:PRINT"[129]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:NEXT
1510 POKE53282,11:RETURN
9000 DATA120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
9010 DATA186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173
9020 DATA13,220,88,76,0,196,173,84,195,201,6,240,24:REM_LAENGE 1.UNTERPRG.52
9040 DATA169,6,141,32,208,141,33,208,141,84,195,169,1,141,18,208
9041 DATA169,23,141,24,208,76,188,254
9090 DATA169,0,141,32,208,141,84,195,169,145,141,18,208
9091 DATA169,19,141,24,208,173,60,3,141,33,208,76,188,254
9210 DATA120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96
9220 DATA162,0,189,208,6,157,168,6,232,224,240,208,245,169,21,133,214,169,0
9230 DATA133,211,162,0,169,32,157,112,7,232,224,40,208,248,96
9300 FORI=49152TO49273:READQ:POKEI,Q:NEXT
9310 FORI=49408TO49441:READQ:POKEI,Q:NEXT
9400 DATA"[211]CHLUESSEL","[211]PRENGSATZ","[204]EBENSMITTEL","[218]EITUNG","[211]CHAUFEL"
9410 DATA"[199]ELD","[212]ASCHENLAMPE","[194]ATTERIE"
9420 FORI=0TO7:OB(I)=2^I:NEXT
9500 FORI=0TO7:READOB$(I):NEXT
9600 DATA"NIMM ","VERLIERE ","INV ","[201]NVENTUR ","GRABE ","BETE ","BETRITT "
9610 DATA"VERLASSE ","ISS ","OEFFNE ","SPRENGE ","DRUECKE ","LIES ","N ","O "
9620 DATA"S ","W ","H ","R ","SCHLIESSE ","D 2","D2","[196]2","[196] 2","1968","1970"
9630 DATA"WARTE ","[208]UNKTE ","[218]EIT ","[215]OHNUNG","[204]ADEN","[198]ABRIK","[198]RIEDHOF"
9640 FORI=0TO32:READBE$(I):NEXT:RETURN
10000 X$="":Y$="":Z$="":SYS49408:GOSUB51000
10010 SYS49408:L=LEN(X$):I=0:FL=0
10020 I=I+1:IFMID$(X$,I,1)=" "THENY$=LEFT$(X$,I):Z$=MID$(X$,I+1,L):GOTO10032
10030 IFI<=LEN(X$)THEN10020
10031 Y$=X$+" "
10032 L=LEN(Z$):I=0
10033 I=I+1:IFMID$(Z$,I,1)=" "THENPRINT"** [206]UR 2 [215]ORTE BENUTZEN **":Y$="":FL=3
10034 IFI<=LEN(Z$)ANDFL=0THEN10033
10035 IFXX$(0)=CHR$(13)THENFL=3
10040 IFY$=BE$(13)AND(PEEK(50000)AND1)THENA=A-7:FL=1
10041 IFY$=BE$(14)AND(PEEK(50000)AND2)THENA=A+1:FL=1
10042 IFY$=BE$(15)AND(PEEK(50000)AND4)THENA=A+7:FL=1
10043 IFY$=BE$(16)AND(PEEK(50000)AND8)THENA=A-1:FL=1
10044 IFY$=BE$(18)AND(PEEK(50000)AND16)THENA=42:FL=1
10045 IFY$=BE$(17)AND(PEEK(50000)AND32)THENA=34:FL=1
10046 IF(X$="N"ORX$="S"ORX$="W"ORX$="O")ANDFL=0THENPRINT"[215]EG IST VERSPERRT":FL=3
10047 IF(X$="H"ORX$="R")ANDFL=0THENPRINT"[215]EG IST VERSPERRT":FL=3
10048 IFA=49THENA=39:SYS49408:PRINT"[200]INTER MIR FAELLT DER [212]UNNEL EIN...":SYS49408
10050 REM
10060 IFY$<>BE$(2)ANDY$<>BE$(3)THEN10100
10061 PRINT"[198]OLGENDE [196]INGE FUEHRE [201]CH MIT MIR:":SYS49408
10062 FORI=0TO7:IFPEEK(50002)ANDOB(I)THENPRINTOB$(I):SYS49408:GOSUB10080
10063 NEXT
10064 IF(PEEK(50002))=0THENPRINT"[201]CH BIN ARM WIE EINE [203]IRCHENMAUS."
10065 FL=3
10071 GOTO10090
10080 POKE198,0:WAIT198,1:POKE198,0:RETURN
10090 FL=3
10100 IFY$="TOETE "ORY$="ZERSTOERE "THENFL=9
10101 IFY$=BE$(5)THENPRINT"[214]IELLEICHT WIRD DADURCH DAS [215]ETTER":FL=9
10102 IFFL=9THENFL=3:SYS49408:PRINT"BESSER. [193]BER ICH GLAUBS' KAUM.":WE=1
10103 REM
10104 IFFL=9THENPRINT"[196]ENKEN [211]IE AN DAS [211]TRAFGESETZBUCH.":FL=3
10110 IFY$<>BE$(6)THEN10200
10111 IFZ$=BE$(32)ANDA=4THENA=34:FL=1:
10112 IFZ$=BE$(32)ANDFL<>1THENPRINT"[215]O SOLL HIER EIN "BE$(32)" SEIN PRINT":FL=1
10120 IFZ$=BE$(30)ANDA=0THENA=35:FL=1
10121 IFZ$=BE$(30)ANDFL<>1THENPRINT"[196]AS IST HIER NICHT.":FL=3
10130 IFZ$=BE$(29)ANDA=11THENA=36:FL=1
10131 IFZ$=BE$(29)ANDFL<>1THENPRINT"[196]AS IST HIER NICHT.":FL=1
10140 IFZ$=BE$(31)AND(A=29ORA=30)THENA=37:FL=1
10141 IFZ$=BE$(31)ANDFL=0THENPRINT"[200]IER IST KEIN [197]INGANG...":FL=3
10199 IFFL=0THENPRINT"[196]AS KANN ICH NICHT BETRETEN !":FL=3
10200 REM
10210 IFY$<>BE$(7)THEN10300
10211 IFZ$=BE$(32)ANDA=34THENA=4:FL=1:
10212 IFZ$=BE$(32)ANDFL<>1THENPRINT"[215]O SOLL HIER EIN "BE$(32)" SEIN ?":FL=1
10220 IFZ$=BE$(30)ANDA=35THENA=0:FL=1
10221 IFZ$=BE$(30)ANDFL=0THENPRINT"[201]CH BIN NICHT DARIN.":FL=3
10230 IFZ$=BE$(29)ANDA=36THENA=11:FL=1
10231 IFZ$=BE$(29)ANDFL=0THENPRINT"[201]CH BIN NICHT DARIN.":FL=3
10240 IFZ$=BE$(31)AND(A=37ORA=38)THENA=29:FL=1
10241 IFZ$=BE$(31)ANDFL=0THENPRINT"[215]IE SOLL ICH DAS VERLASSEN ?":FL=3
10299 IFFL=0THENPRINT"[196]AS KANN ICH NICHT VERLASSEN!":FL=3
10300 IFY$<>BE$(12)THEN10400
10310 IF(Z$="[201]NSCHRIFT"ORZ$="[201]NSCHRIFTEN")ANDA=34THENFL=9
10320 IFFL=9THENPRINT"[208][207][210][212][193] [197][211][212] [193][204][201][197][206][193] [212][197][210][210][193]...":
10330 IFFL=9THENSYS49408:PRINT"[193]NDRE' [205]OLL":SYS49408:PRINT"* "BE$(24)" +..":FL=3
10400 I=0:IFY$<>BE$(0)ANDY$<>"NEHME "THEN10500
10401 IFZ$=OB$(2)ANDPEEK(50001)AND4ANDGE=0THENPRINT"[203]EIN [199]ELD...":FL=3:GOTO10500
10402 IFZ$=OB$(I)THEN10450
10410 I=I+1:IFI<8THEN10401
10420 FL=4:GOTO10470
10450 IFPEEK(50001)ANDOB(I)THENC(A)=C(A)-OB(I):POKE50002,PEEK(50002)+OB(I):FL=1
10460 IFFL=0THENPRINT"[201]CH SEHE DAS HIER NIRGENDS.":FL=3
10470 IFZ$="ALLES"ANDA<>35THENPOKE50002,PEEK(50002)+C(A):C(A)=0:FL=1
10480 IFZ$="ALLES"ANDA=35THENPRINT"[194]ITTE GENAUERE [197]INGABE !":FL=3
10500 IFY$<>BE$(1)ANDY$<>"LEGE "THEN10600
10501 I=0
10502 IFZ$=OB$(5)THENGE=0
10510 IFOB$(I)=Z$THEN10540
10520 I=I+1:IFI<8THEN10510
10530 FL=4:GOTO10590
10540 IFPEEK(50002)ANDOB(I)THENPOKE50002,PEEK(50002)-OB(I):C(A)=C(A)+OB(I):FL=1
10550 IFFL=0THENPRINT"[196]AS BESITZE ICH NICHT...":FL=3
10590 IFZ$="ALLES"THENC(A)=C(A)+PEEK(50002):POKE50002,0:FL=1
10600 IFY$=BE$(4)ANDA<>34THENPRINT"[199]RABEN [211]IE AN EINEM ANDEREN [207]RT!?":FL=3
10601 IFY$=BE$(4)ANDFL=0ANDPEEK(50002)AND16THENPRINT"[201]CH GRABE EIN [204]OCH.":FL=9
10602 IFY$=BE$(4)ANDFL=0THENPRINT"[203]EINE [211]CHAUFEL VORHANDEN.":FL=3
10603 IFFL<>9THEN10700
10604 B(34)=16:FL=3
10700 IFY$=BE$(28)THENPRINT"[206]OCH "ZE" MIN. BIS ZUM [211]TART.":FL=3
10701 IFY$=BE$(27)THENPRINT"[201]HRE [208]UNKTZAHL : "SC:FL=3
10702 IFY$=BE$(8)AND(PEEK(50002)AND4)THENFL=1:POKE50002,PEEK(50002)-4:HU=1
10703 IFY$=BE$(8)ANDFL=0THENPRINT"[215]AS SOLL ICH ESSEN ?":FL=3
10704 IFY$="STIRB "THENPOKE50000,0:SYS50000
10705 IFY$=BE$(8)ANDFL=1ANDA=35THENPRINT"[201]CH VERSCHMUTZE DEN [204]ADEN":FL=9
10706 IFFL=9THENSYS49408:PRINT"[201]CH ERWARTE EIN [196]ISZIPLINARVERFAHREN..":GOTO60110
10710 IFY$<>"SCHALTE "THEN10800
10720 IFZ$<>OB$(6)THENPRINT"[196]AS KANN ICH NICHT ANSCHALTEN...":FL=3:GOTO10800
10730 IF(PEEK(50002)AND64)THEN10740
10731 PRINT"[201]CH HABE KEINE "OB$(6):FL=3:GOTO10800
10740 IF(PEEK(50002)AND128)THEN10750
10741 PRINT"[201]CH BRAUCHE EINE "OB$(7):FL=3:GOTO10800
10750 FL=1:LA=1
10800 IFA=42ANDLA=0THEN10810
10801 GOTO10890
10810 SYS49408:PRINT"[201]CH BETRETE EINEN [212]UNNEL...":FORI=0TO1000:NEXT
10820 SYS49408:PRINT"[201]CH KANN LEIDER WEGEN DER [196]UNKELHEIT":SYS49408
10830 PRINT"NICHTS SEHEN....[201]CH STOSSE MICH UND ":SYS49408
10840 PRINT"VERBLUTE...[193][199][200][210][207][207][200][202][193][193][200]":GOTO60110
10890 IFHU=1ORZE>150THEN10900
10891 SYS49408:PRINT"[201]CH HABE SCHON SEIT [212]AGEN NICHTS MEHR ":SYS49408
10892 PRINT"GEGESSEN ODER GETRUNKEN. [201]CH HABE":SYS49408
10893 PRINT"KEINE [204]UST MIT LEEREM [194]AUCH ZU ARBEITEN":GOTO60110
10900 IFY$=BE$(26)THENZE=ZE-10:FL=1
10910 IFY$=BE$(11)ANDA<>47ANDA<>39THENPRINT"[201]CH SEHE HIER KEINEN [203]NOPF":FL=3
10920 IFY$=BE$(11)ANDA=47THEN10930
10925 IFY$=BE$(11)ANDA=39THEN10960
10926 GOTO10990
10930 SYS49408:PRINT"[201]CH SELBST HABE DEN [218]UENDMECHANISMUS":SYS49408
10940 PRINT"IM [211]PACE [211]HUTTLE AKTIVIERT([215]OHER WISSEN":SYS49408
10950 PRINT"[211]IE,DASS ICH EIN [196]OPPELAGENT BIN ?":GOTO60110
10960 SYS49408:PRINT"[201]CH HOERE IN DER [198]ERNE EINE [197]XPLOSION":SYS49408:
10961 PRINT"[197]IN DUMPFES [199]ROLLEN...[197]S WIRD IMMER":SYS49408
10962 PRINT"LAUTER. [197]S SCHEINT SO, ALS HAETTE ICH":SYS49408
10963 PRINT"DEN [211]TAUDAMM GESPRAENGT.....[199][204][213][195][203][194][204][213][194][194]":GOTO60110
10990 IFY$="LIES "AND(PEEK(50002)AND8)ANDFL=0THEN11000
10991 IFY$=BE$(12)ANDFL=0THENPRINT"[215]AS SOLL ICH LESEN ?":FL=3:GOTO11010
10992 GOTO11010
11000 PRINT"[201]CH LESE DIE [218]EITUNG :":SYS49408:PRINT"[196]ER [198]LUG DES [211]PACE [211]HUTTLES IST"
11001 SYS49408:PRINT"VOELLIG (!) PROBLEMLOS UND ERFOLGREICH":FL=3:POKE198,0
11002 WAIT198,1:SYS49408:PRINTTAB(17)"------":SYS49408:PRINT"[200]OROSKOPE :"
11003 SYS49408:PRINT"[...] UND NEHMEN [211]IE SICH VOR [203]NOEPFEN":SYS49408:SC=SC+10
11004 PRINT"IN [193]CHT ! [...]":POKE198,0
11010 IFY$<>BE$(19)THEN11100
11011 IFA<>54THENPRINT"[198]UNKTIONIERT HIER NICHT":FL=3:GOTO11100
11020 IFPEEK(50002)AND1THEN11030
11025 PRINT"[201]CH HABE KEINEN [211]CHLUESSEL...":FL=3:GOTO11100
11030 B(54)=11:FL=1:SC=SC+50
11100 IFY$<>BE$(10)THEN11200
11110 IFPEEK(50002)AND2THEN11130
11120 PRINT"[201]CH HABE KEINEN [211]PRENGSATZ.":FL=3:GOTO11200
11130 IFA<>47THEN11170
11131 IFPEEK(50002)AND8THENPRINT"[196]IE [218]EITUNG ENTZUENDET SICH...":FL=10
11132 IFFL=10THENSYS49408:PRINT"[201]CH VERBRENNE.[211]CHADE,SCHON TOT...":GOTO60110
11140 PRINT"[201]CH HABE DEN [195]OUNTDOWN STOPPEN KOENNEN":SYS49408:SC=SC+200
11150 PRINT"[205]EINE [205]ISSION IST ERFUELLT.":SYS49408
11160 PRINT"[201]HRE [208]UNKTE :";SC:SYS49408:PRINT"[159]([212]ASTENDRUCK)"
11161 POKE198,0:WAIT198,1:GOSUB50000:POKE50000,0:SYS50000
11170 PRINT"[201]CH SPRENGE MICH SELBST...[194][207][213][207][207][213][205][205][205][205]..":GOTO60110
11200 IFZE<1THENSYS49408:PRINT"[218]U SPAET...":GOTO60110
11210 IFY$<>BE$(9)THEN11300
11220 IFA=37THEN11230
11225 PRINT"[201]CH KANN HIER NICHTS OEFFNEN.":FL=3:GOTO11300
11230 PRINT"[201]CH VERSUCHE DEN [211]AFE ZU OEFFNEN.":FL=1:C(37)=1
11240 SYS49408:PRINT"[201]CH BENOETIGE JEDOCH EINE [218]AHLEN -":SYS49408:X$=""
11250 PRINT"KOMBINATION : ";:GOSUB51001
11251 IFX1$=BE$(24)THENSYS49408:SC=SC+60:GOTO11300
11252 SYS49408:PRINT"[196]IE [203]OMBINATION IST LEIDER FALSCH.":SYS49408
11260 PRINT"[197]INE [193]LARMANLAGE WIRD AKTIVIERT.":SYS49408
11270 PRINT"[201]CH WERDE VERHAFTET....":GOTO60110
11300 IFA=46ANDHH=1THENSYS49408:PRINT"[196]ER [210]OBOTER TOETET MICH.[207][210][199][200]...":GOTO60110
11310 IFA=46ANDHH=0THENSYS49408:PRINT"[197]IN GEFAEHRLICHER [210]OBOTER..":SYS49408:HH=1
11315 IFA=36THENT=T+1
11320 IFA=36ANDT=2THEN11340
11330 GOTO11400
11340 SYS49408:PRINT"[196]AS [212]ELEFON KLINGELT.":SYS49408
11350 PRINT"[205]EIN [195]HEF IST AM [193]PPARAT.":SYS49408
11351 PRINT"[197]R FRAGT NACH DEM [206]AMEN MEINER [205]ISSION":SYS49408
11352 PRINT"->";:GOSUB51001:I=19
11353 I=I+1:IFX1$=BE$(I)THENSYS49408:SC=SC+110:GOTO11400
11354 IFI<24THEN11353
11355 SYS49408:PRINT"[201]CH HABE MEINEN [195]HEF BELOGEN !":SYS49408
11356 PRINT"[201]CH WERDE BESTRAFT. [196]AS SIND JA MITTEL-":SYS49408
11357 PRINT"ALTERLICHE [211]ITTEN [193][213][213][213][213][213][193]...":GOTO60110
11400 IFY$="VERDAMMT "ORY$="SCHEISSE "ORY$="MIST "THENFL=9
11401 IFFL=9THENPRINT"[198]LUCHEN HILFT NICHTS...":FL=3
11402 IFX$="[200]ILFE"THENPRINT"[202]EDER IST SICH SELBST DER [206]AECHSTE.":FL=3
11403 IFWE=0ANDZE<100THENSYS49408:FL=9:PRINT"[205]EINE [211]ACHEN WERDEN DURCH DEN SEHR"
11404 IFFL=9THENSYS49408:PRINT"STARKEN [215]IND IN ALLE [210]ICHTUNGEN GEWEHT"
11405 IFFL<>9THEN11500
11410 FORI=0TO7
11411 : R=INT(32*RND(1))+1
11412 : IFPEEK(50002)AND2^ITHENC(R)=C(R)+2^I
11413 NEXTI:SYS49408:WE=1:POKE50002,0:LA=0
11500 IFLA=1THENEN=EN-1:IFEN=1THENLA=0:SYS49408:PRINT"[194]ATTERIEEN SIND LEER":FM=9
11501 IFFM=9THENSYS49408:FM=0:POKE50002,PEEK(50002)-128
11502 IFSC>255THENSC=255
11503 IFSC<1THENSC=0
11504 IFPEEK(50002)AND192THEN11510
11505 LA=0
11510 IFY$<>"SAVE "THEN11600
11520 INPUT"[198]ILE-[206]AMEN ";X$
11521 FORI=0TO55:POKE50003+I,C(I):NEXT:BA=50059:POKEBA,ZE:POKEBA+1,SC
11522 POKEBA+2,LA:POKEBA+3,B(34):POKEBA+4,B(54):POKEBA+5,T:POKEBA+6,WE
11523 POKEBA+7,HU:POKEBA+8,HH:POKEBA+9,EN:POKEBA+10,A:POKEBA+11,GE
11524 REM DATEN IM BEREICH 50002-50070
11530 SYS49408:PRINT"[194]ITTE [196]ISK EINSCHALTEN (RETURN...).":POKE198,0
11531 WAIT198,1:POKE198,0:FORI=0TO4:SYS49408:NEXT:PRINT""
11532 GOSUB11550:OPEN1,8,1,X$:PRINT#1,CHR$(82);CHR$(195);
11533 FORI=50002TO50070:W=PEEK(I):PRINT#1,CHR$(W);:NEXT:SYS49408:FL=3:POKE198,0
11534 CLOSE1:PRINT"":SYS49408:GOTO11600
11535 INPUT"[198]ILE-[206]AMEN ";X$:FL=9:GOSUB11580:LOADX$,8,1
11536 FORI=0TO55:C(I)=PEEK(50003+I):NEXT:BA=50059:ZE=PEEK(BA):SC=PEEK(BA+1)
11538 LA=PEEK(BA+2):B(34)=PEEK(BA+3):B(54)=PEEK(BA+4):T=PEEK(BA+5):WE=PEEK(BA+6)
11540 HU=PEEK(BA+7):HH=PEEK(BA+8):EN=PEEK(BA+9):A=PEEK(BA+10):FL=0
11541 GE=PEEK(BA+11):GOTO500
11550 POKE631,71:POKE632,79:POKE633,84:POKE634,79:POKE635,49:POKE636,49
11551 POKE637,53:POKE638,54:POKE639,48:POKE640,13:POKE198,10:RETURN
11560 CLOSE1:FORI=0TO3:SYS49408:NEXT:PRINT"[198]ILE KONNTE NICHT GE-SAVED WERDEN."
11570 SYS49408:GOTO11520
11580 POKE631,71:POKE632,79:POKE633,84:POKE634,79:POKE635,49:POKE636,49
11581 POKE637,53:POKE638,56:POKE639,50:POKE640,13:POKE198,10:RETURN
11582 PRINT"[147][198]ILE KONNTE NICHT GELADEN WERDEN.":POKE198,0:WAIT198,1:POKE198,0
11583 GOTO460
11600 REM
19000 POKE50000,B(A):REM RICHTUNGEN
19010 POKE50001,C(A):REM GEGENSTAENDE
19020 POKE53282,12:POKEVI+21,192
19030 IFPEEK(50002)AND32THENGE=1
19997 ZE=ZE-1:SC=SC-2:IFFL=4THENPRINT"[196]IESES [207]BJEKT KENNE ICH NICHT."
19998 IFFL=1THENPRINT"O.K."
19999 IFFL=0THENPRINT"[200]UGH?":ZE=ZE-1
20000 IFA>12THEN20003
20001 ONA+1GOSUB1000,1012,1012,1004,1090,1000,1004,1004,1012,1012,1000,1004,1004
20002 GOTO20008
20003 IFA>24THEN20006
20004 ONA-13+1GOSUB1030,1018,1000,1007,1004,1004,1022,1030,1000,1000,1027,1004
20005 GOTO20008
20006 IFA>36THEN20009
20007 ONA-25+1GOSUB1000,1004,1022,1024,1016,1016,1000,1004,1022,1100,1300,1300
20008 GOTO20030
20009 ONA-37+1GOSUB1300,1300,1300,1300,1300,1500,1300,1300,1300,1300,1200,1300
20010 IFA<49THEN20030
20020 ONA-49+1GOSUB1500,1500,1500,1500,1300,1300,1300
20030 REM
29009 PRINT"[159][210]ICHTUNGEN:            [157][157][157][157][157][157][157][157][157][157][157][157]";
29010 IFPEEK(50000)AND32THENPRINT"H ,";
29011 IFPEEK(50000)AND16THENPRINT"R ,";
29012 IFPEEK(50000)AND1THENPRINT"N ,";
29013 IFPEEK(50000)AND2THENPRINT"O ,";
29014 IFPEEK(50000)AND4THENPRINT"S ,";
29015 IFPEEK(50000)AND8THENPRINT"W ,";
29016 PRINT"";W$;
29017 PRINTW$;W$
29018 PRINT"[145][145][145][145][159][194]ESONDERHEITEN: ";
29019 FORI=0TO1:IFPEEK(50001)ANDOB(I)THENPRINTOB$(I)",";
29020 NEXT:PRINT
29021 FORI=2TO4:IFPEEK(50001)ANDOB(I)THENPRINTOB$(I)",";
29022 NEXT:PRINT"";
29023 FORI=5TO7:IFPEEK(50001)ANDOB(I)THENPRINTOB$(I)",";
29024 NEXT
29092 PRINT""W$:PRINT"[145][145][159]"NA$(A)""
29093 PRINTTP$
30000 GOTO10000
50000 PRINT"[147]":SYS49256:POKE53280,0:POKE53281,0:POKE53272,21:POKEVI+21,0
50001 SYS50452:FORI=0TO30
50002 : R=INT(999*RND(1))
50003 : POKE1024+R,46
50004 NEXT
50005 GOSUB136:POKE198,0:PRINT"TSCHUESS..."
50006 FORI=0TO3000:NEXT:RETURN
51000 PRINT">";
51001 POKE204,0:I=0:REM INPUT ROUTINE:
51002 GETXX$(I):IFXX$(I)=""THEN51002
51003 IF(ASC(XX$(I))>31)AND(ASC(XX$(I))<128)THEN51100
51004 IF(ASC(XX$(I))>193)AND(ASC(XX$(I))<219)THEN51100
51005 IF(ASC(XX$(I))=157)OR(ASC(XX$(I))=20)THEN52000
51006 IFASC(XX$(I))=13THEN53000
51007 IFASC(XX$(I))=255THENREM
51008 GOTO51002
51100 PRINTXX$(I);:I=I+1:IFI>34THENI=34:PRINT"[157] [157]";:
51101 GOTO51002
52000 IFI>-1THENPRINT" [157][157] [157]";:I=I-1:IFI<0THENPRINT">";:I=0
52001 GOTO51002
53000 X1$="":POKE207,0:POKE204,1:FORAA=0TOI-1:X1$=X1$+XX$(AA):NEXT:PRINT" "
53002 X$=X1$:RETURN
60000 PRINT"[194]ITTE WARTEN [211]IE...":PRINT"[159][196]IE [194]EFEHLSLISTE :"
60001 PRINT"INV ([201]NVENTUR),BETRITT,VERLASSE,LIES    ";
60002 PRINT"N,O,S,W,H,R,NIMM (NEHME),VERLIERE (LEGE)";
60003 PRINT"GRABE,[218]EIT,[208]UNKTE,ISS,STIRB,SCHALTE,BETE";
60004 PRINT"WARTE,DRUECKE,SCHLIESSE,SPRENGE,OEFFNE  ";
60005 PRINT"SAVE...UND EINIGE MEHR..."
60006 PRINT"[205]USIK: [206]UN RUHEN ALLE [215]AELDER ([202].[211].[194]ACH)"
60007 PRINT"[212]HANKS TO [208]EANUTS [211]OFT....              ";
60008 PRINT"[199]RUESSE AN ALLE [211]CHILDKROETEN & [211]TUEMPER";
60100 PRINT"[214]IEL [199]LUECK....";:RETURN
60110 GOSUB1100:POKEVI+21,0:PRINTTN$:SYS49408:PRINT"[206]OCH EIN [214]ERSUCH (J/N) ";
60115 POKE204,0:POKE207,0:GETX$:IFX$=""THEN60115
60120 IFX$<>"J"ANDX$<>"N"THEN60110
60130 IFX$="J"THENPOKE204,1:POKE207,0:SYS49256:RUN
60140 SYS49408:PRINT"[212]HANKS FOR PLAYING.":FORI=0TO2000:NEXT:POKE50000,0:SYS50000
60150 REM SPION III
60151 REM VON STEFFEN GOEBBELS
60152 REM ALTE HEERSTR.25
60153 REM 4179 WEEZE 1
60154 REM (C) 1985 S.J.G.-SOFT