Spion III – die Jagd nach der Bombe

petcat | Checksummer

200 poke53280,0:poke53281,0:print"{clr}{wht}":poke53272,23
210 printtab(8)"Spion III (D 2 Mission)"
220 printtab(9)"{down}{cyn}von Steffen Goebbels"
230 printtab(15)"{down}{wht}(c) 1985"
240 printtab(7)"{blu}{down}{down}{down}ca. 1:15 Min. Ladezeit."
250 print"{down}{yel}Bitte lassen Sie die Floppy angeschaltet{down}"
260 print"{blk}poke4096,0:poke44,16:new"
270 print"{down}{down}load"chr$(34)"d.2"chr$(34)",8{up}{up}{up}{up}{up}{up}{up}"
280 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
900 rem *** sid initialisieren ***
910 s=54272:fori=stos+24:pokei,0:next
930 poke53245,1:poke53246,1:pokes+5,96:pokes+12,9:pokes+19,0
940 poke53247,1:pokes+2,0:pokes+9,255:pokes+16,0:pokes+13,140:pokes+20,240
950 pokes+6,100
999 rem ** maschinenprg fuer musik **
1000 data174,255,207,202,142,255,207,240,21,174,254,207,202,142,254,207,240,83
1010 data174,253,207,202,142,253,207,240,71,76,49,234,32,66,196,169,0,141,4,212
1020 data173,250,207,174,251,207,172,252,207,141,1,212,142,0,212,140,255,207
1030 data234,234,169,33:rem_wellenf.s1
1040 data141,4,212,76,9,196,162,0,189,0,198,157,250,207,232,224,3,208,245,24
1050 data173,69,196,105,3,141,69,196,144,7,174,70,196,232,142,70,196,96,76,167
1060 data196,32,135,196,169,0,141,11,212,173,250,207,174,251,207,172,252,207
1070 data141,8,212,142,7,212,140,254,207,169,65:rem_wellenf.s2
1080 data141,11,212,76,18,196,162,0,189,0,201,157,250,207,232,224,3,208,245,24
1090 data173,138,196,105,3,141,138,196,144,7,174,139,196,232,142,139,196,96
1100 data32,204,196,169,0,234,141,18,212,173,250,207,174,251,207,172,252,207
1110 data141,15,212,142,14,212,140,253,207,240,40,169,17:rem_wellenf.s3
1120 data141,18,212,76,49,234,162,0,189,0,204,157,250,207,232,224,3,208,245,24
1130 data173,207,196,105,3,141,207,196,144,7,174,208,196,232,142,208,196,96
1140 data169,0,141,69,196,141,138,196,141,207,196,169,198,141,70,196,169,201
1150 data141,139,196,169,204,141,208,196,169,64,141,255,207,141,254,207,141,253
1160 fori=50176to50464:readq:pokei,q:next:remsys50441
1170 data207,76,49,234,120,169,0,141,20,3,169,196,141,21,3,88,96
1180 rem **** stimme 1 ****
2000 data7493,64,6676,64,7493,64,8411,32,8911,32,10002,64,8911,128,8411,64
2010 data8411,64,10002,64,10002,64,7493,64,8411,64,6676,128,5947,64,5001,64
2020 data6676,64,7493,64,8411,64,8411,64,7493,128,0,64,8411,64,6676,64,7493,64
2030 data8411,32,8911,32,10002,64,8911,128,8411,64,8411,64,10002,64,10002,64
2040 data7493,64,8411,64,6676,128,6301,64,5001,64,6676,64,7493,64,8411,64
2050 data8911,64,8411,64,7493,64,6676,64,0,0
2999 i=50688
3000 forc=0to91step2:readq:readq1:pokei+2,q1:hi=int(q/256)
3001 lo=q-(hi*256):pokei,hi:pokei+1,lo:i=i+3:next
3010 rem **** stimme 2 :  ****
3020 data5001,64,5613,64,6301,64,6676,32,7493,32,8411,64,6676,64,7493,64,8411
3030 data64,6676,64,6301,64,6676,64,6301,64,6676,32,6301,32,5613,128,5001,64
3040 data6301,64,5001,64,5613,32,6301,32,6676,64,6676,64,6301,128,0,64,6301,64
3050 data6676,64,6301,32,5613,32,5001,64,8411,64,8411,64,7493,64,7072,64,6676
3060 data64,6301,64,6676,32,6301,32,5613,64,6301,64,6676,32,6301,32,5613,64
3070 data5001,64,5001,64,5001,32,5613,32,6301,64,6676,64,7072,64,6676,64,6301
3080 data64,6676,64,0,0
3999 i=51456
4000 forc=0to107step2:readq:readq1:pokei+2,q1:hi=int(q/256)
4001 lo=q-(hi*256):pokei,hi:pokei+1,lo
4002 i=i+3:next
4010 rem **** stimme 3 :  ****
4020 data3338,64,4455,64,4205,32,3764,32,3338,64,6676,64,5613,64,6301,64,6676
4030 data64,5613,64,4205,32,3746,32,4205,32,4455,32,5001,64,4205,64,5613,32
4040 data5001,32,4720,64,5001,64,4455,64,4205,64,3746,64,3338,32,3746,32,4205
4050 data32,4455,32,5001,128,0,64,4205,64,5613,64,5001,32,4455,32,4205,64
4060 data3338,64,3746,32,4205,32,4455,32,5001,32,5613,64,5613,64,5001,32,4455
4070 data32,4205,64,4720,64,5298,64,5613,32,5001,32,4720,64,5001,64,5001,32
4080 data4455,32,4205,32,4455,32,4205,32,3746,32,3338,64,5613,64,5001,32
4090 data4455,32,5001,64,3338,64,0,0
4999 i=52224
5000 forc=0to125step2:readq:readq1:pokei+2,q1:hi=int(q/256)
5001 lo=q-(hi*256):pokei,hi:pokei+1,lo:i=i+3:next
60000 new
60004 rem (c) 1985 steffen goebbels
60005 rem      alte heerstr.25
60006 rem        4179 weeze 1

 200 POKE 53280,0:POKE 53281,0:PRINT"{CLR,WHITE}":POKE 53272,23 
 210 PRINTTAB( 8)"SPION III (D 2 MISSION)" 
 220 PRINTTAB( 9)"{DOWN,CYAN}VON STEFFEN GOEBBELS" 
 230 PRINTTAB( 15)"{DOWN,WHITE}(C) 1985" 
 240 PRINTTAB( 7)"{BLUE,3DOWN}CA. 1:15 MIN. LADEZEIT." 
 250 PRINT"{DOWN,YELLOW}BITTE LASSEN SIE DIE FLOPPY ANGESCHALTET{DOWN}" 
 260 PRINT"{BLACK}POKE4096,0:POKE44,16:NEW" 
 270 PRINT"{2DOWN}LOAD"CHR$ (34)"D.2"CHR$ (34)",8{7UP}" 
 280 POKE 631,13:POKE 632,13:POKE 633,82:POKE 634,85:POKE 635,78:POKE 636,13:POKE 198,6 
 900 REM *** SID INITIALISIEREN *** 
 910 S=54272:FOR I=S TOS+24:POKE I,0:NEXT 
 930 POKE 53245,1:POKE 53246,1:POKE S+5,96:POKE S+12,9:POKE S+19,0 
 940 POKE 53247,1:POKE S+2,0:POKE S+9,255:POKE S+16,0:POKE S+13,140:POKE S+20,240 
 950 POKE S+6,100 
 999 REM ** MASCHINENPRG FUER MUSIK ** 
 1000 DATA 174,255,207,202,142,255,207,240,21,174,254,207,202,142,254,207,240,83 
 1010 DATA 174,253,207,202,142,253,207,240,71,76,49,234,32,66,196,169,0,141,4,212 
 1020 DATA 173,250,207,174,251,207,172,252,207,141,1,212,142,0,212,140,255,207 
 1030 DATA 234,234,169,33:REM ←WELLENF.S1 
 1040 DATA 141,4,212,76,9,196,162,0,189,0,198,157,250,207,232,224,3,208,245,24 
 1050 DATA 173,69,196,105,3,141,69,196,144,7,174,70,196,232,142,70,196,96,76,167 
 1060 DATA 196,32,135,196,169,0,141,11,212,173,250,207,174,251,207,172,252,207 
 1070 DATA 141,8,212,142,7,212,140,254,207,169,65:REM ←WELLENF.S2 
 1080 DATA 141,11,212,76,18,196,162,0,189,0,201,157,250,207,232,224,3,208,245,24 
 1090 DATA 173,138,196,105,3,141,138,196,144,7,174,139,196,232,142,139,196,96 
 1100 DATA 32,204,196,169,0,234,141,18,212,173,250,207,174,251,207,172,252,207 
 1110 DATA 141,15,212,142,14,212,140,253,207,240,40,169,17:REM ←WELLENF.S3 
 1120 DATA 141,18,212,76,49,234,162,0,189,0,204,157,250,207,232,224,3,208,245,24 
 1130 DATA 173,207,196,105,3,141,207,196,144,7,174,208,196,232,142,208,196,96 
 1140 DATA 169,0,141,69,196,141,138,196,141,207,196,169,198,141,70,196,169,201 
 1150 DATA 141,139,196,169,204,141,208,196,169,64,141,255,207,141,254,207,141,253 
 1160 FOR I=50176 TO50464:READ Q:POKE I,Q:NEXT :REM SYS50441 
 1170 DATA 207,76,49,234,120,169,0,141,20,3,169,196,141,21,3,88,96 
 1180 REM **** STIMME 1 **** 
 2000 DATA 7493,64,6676,64,7493,64,8411,32,8911,32,10002,64,8911,128,8411,64 
 2010 DATA 8411,64,10002,64,10002,64,7493,64,8411,64,6676,128,5947,64,5001,64 
 2020 DATA 6676,64,7493,64,8411,64,8411,64,7493,128,0,64,8411,64,6676,64,7493,64 
 2030 DATA 8411,32,8911,32,10002,64,8911,128,8411,64,8411,64,10002,64,10002,64 
 2040 DATA 7493,64,8411,64,6676,128,6301,64,5001,64,6676,64,7493,64,8411,64 
 2050 DATA 8911,64,8411,64,7493,64,6676,64,0,0 
 2999 I=50688 
 3000 FOR C=0 TO91STEP 2:READ Q:READ Q1:POKE I+2,Q1:HI=INT (Q/256) 
 3001 LO=Q-(HI*256):POKE I,HI:POKE I+1,LO:I=I+3:NEXT 
 3010 REM **** STIMME 2 :  **** 
 3020 DATA 5001,64,5613,64,6301,64,6676,32,7493,32,8411,64,6676,64,7493,64,8411 
 3030 DATA 64,6676,64,6301,64,6676,64,6301,64,6676,32,6301,32,5613,128,5001,64 
 3040 DATA 6301,64,5001,64,5613,32,6301,32,6676,64,6676,64,6301,128,0,64,6301,64 
 3050 DATA 6676,64,6301,32,5613,32,5001,64,8411,64,8411,64,7493,64,7072,64,6676 
 3060 DATA 64,6301,64,6676,32,6301,32,5613,64,6301,64,6676,32,6301,32,5613,64 
 3070 DATA 5001,64,5001,64,5001,32,5613,32,6301,64,6676,64,7072,64,6676,64,6301 
 3080 DATA 64,6676,64,0,0 
 3999 I=51456 
 4000 FOR C=0 TO107STEP 2:READ Q:READ Q1:POKE I+2,Q1:HI=INT (Q/256) 
 4001 LO=Q-(HI*256):POKE I,HI:POKE I+1,LO 
 4002 I=I+3:NEXT 
 4010 REM **** STIMME 3 :  **** 
 4020 DATA 3338,64,4455,64,4205,32,3764,32,3338,64,6676,64,5613,64,6301,64,6676 
 4030 DATA 64,5613,64,4205,32,3746,32,4205,32,4455,32,5001,64,4205,64,5613,32 
 4040 DATA 5001,32,4720,64,5001,64,4455,64,4205,64,3746,64,3338,32,3746,32,4205 
 4050 DATA 32,4455,32,5001,128,0,64,4205,64,5613,64,5001,32,4455,32,4205,64 
 4060 DATA 3338,64,3746,32,4205,32,4455,32,5001,32,5613,64,5613,64,5001,32,4455 
 4070 DATA 32,4205,64,4720,64,5298,64,5613,32,5001,32,4720,64,5001,64,5001,32 
 4080 DATA 4455,32,4205,32,4455,32,4205,32,3746,32,3338,64,5613,64,5001,32 
 4090 DATA 4455,32,5001,64,3338,64,0,0 
 4999 I=52224 
 5000 FOR C=0 TO125STEP 2:READ Q:READ Q1:POKE I+2,Q1:HI=INT (Q/256) 
 5001 LO=Q-(HI*256):POKE I,HI:POKE I+1,LO:I=I+3:NEXT 
 60000 NEW 
 60004 REM (C) 1985 STEFFEN GOEBBELS 
 60005 REM      ALTE HEERSTR.25 
 60006 REM        4179 WEEZE 1 

petcat | Checksummer

0 poke808,225:poke657,128:iffl=9then11536
1 print"{clr}{wht}":poke53272,23:poke53280,0:poke53281,0:dimna$(55):poke50002,0:en=10
2 print"{blu}{up} Spion III ( D 2 Mission ) Version 1.0":dimxx$(35):dimbe$(32)
3 printtab(7)"{yel}{down}{down}{down}Designer: Steffen Goebbels":poke54272+24,10:poke56549,30
4 printtab(7)"{down}{wht}(c) S.J.G.-Soft Weeze 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$="{lred}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":pokevi+37,11:pokevi+38,12
210 b$="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
220 c$="bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb":a$=a$+b$+c$+a$+b$+c$
230 b$="{brn}cccc{orng}@@{brn}cccc{orng}@@{brn}cccc{orng}@@{brn}cccc{orng}@@{brn}cccc{orng}@@{brn}cccc{orng}@@{brn}cccc"
240 c$="dddd{orng}aa{brn}dddd{orng}aa{brn}dddd{orng}aa{brn}dddd{orng}aa{brn}dddd{orng}aa{brn}dddd{orng}aa{brn}dddd":b$=b$+c$
250 c$="{gry3}eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
260 d$="ffffffffffffffffffffffffffffffffffffffff"
270 e$="gggggggggggggggggggggggggggggggggggggggg":c$=c$+d$+d$+d$+d$+e$
280 d$="lmn{down}{left}{left}{left}opq{down}{left}{left}{left}rsq"
290 e$="{orng}tuv{down}{left}{left}{left}wxy"
300 f$="{orng}z[[[[[[[[[\{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}]sssssssss^{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}_!!!!!!!!!#"
310 g$="{orng}z[[[[[\{down}{left}{left}{left}{left}{left}{left}{left}]sssss^{down}{left}{left}{left}{left}{left}{left}{left}_!!!!!#"
320 h$="{orng}z[[\{down}{left}{left}{left}{left}]ss^{down}{left}{left}{left}{left}]ss^"
330 i$="{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$+"{up}{rght}{rght}"+e$
340 j$="{gry1}$s{down}{left}{left}$s{down}{left}{left}$s{down}{left}{left}$s{down}{left}{left}h {down}{left}{left}i ":k$="{gry1}s${down}{left}{left}s${down}{left}{left}s${down}{left}{left}s${down}{left}{left} j{down}{left}{left} k"
350 l$="{home}{down}{down}{down}{down}{down}{down}{orng}$-.$$-.$$-.$$-.$$-.$$0/$$0/$$0/$$0/$$0/$"
360 m$="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
370 n$="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
371 o$="$$$())))*$$$())))*$$$+)))),$$$+)))),$$$+"
380 l$=l$+m$+n$+n$+o$
390 m$="ssssssssssssssssssssssssssssssssssssssss":l$=l$+"{orng}"+m$
400 n$="{home}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}{down}$"
401 o$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$${down}{left}{left}{left}$$$"
402 p$="{down}{left}{left}{left}$$${down}{down}{left}$":o$=o$+p$
403 w$="                                        "
404 t1$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}WXY{down}{left}{left}{left}  s{down}{left}{left}{left}  s{down}{left}{left}{left}   {down}{left}{left}{left} "
405 t2$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}Z{SHIFT-+}{CBM--}{down}{left}{left}{left}s  {down}{left}{left}{left}s  {down}{left}{left}{left}   {down}{left}{left}{left}   "
406 t3$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{lgrn}z[[\{down}{left}{left}{left}{left}]  ^"
407 t4$="{home}{down}{down}{down}{down}{down}{down}{orng}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}~{CBM-*}{down}{left}{left}{left}{$a0}{CBM-K}{CBM-I}"
408 t5$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{orng}{CBM-T}{CBM-G}{CBM-@}{down}{left}{left}{left}{CBM-+}{CBM-M}{CBM-POUND}"
410 rem *** nachrichten : ***
411 na$(0)="Nordwall...keine Besonderheiten."
412 na$(1)="Stadtpark.Ein Plaetzchen zum Verweilen.":na$(2)=na$(1):na$(8)=na$(1)
413 na$(9)=na$(1):na$(3)=na$(0):na$(4)="Der Friedhof...wie gruselig."
414 na$(5)=na$(0):na$(6)="Ende des Nordwalls.Anfang einer Passage":c(6)=8
415 na$(7)="Der Westwall-die Hauptstrasse der Stadt":na$(14)=na$(7)
416 na$(21)=na$(7):na$(10)="Die Ringstrasse...frei fuer Anlieger."
417 na$(12)=na$(10):na$(13)="Eine Fussgaengerpassage..."
418 na$(15)=na$(10):na$(16)="Torweg zur Parallelstrasse.":c(34)=16
419 na$(17)=na$(10):na$(18)=na$(10):na$(19)=na$(10):na$(20)=na$(13)
420 na$(22)="Das Ende der Schillerstrasse."
421 na$(23)=na$(16):na$(24)="Die Schillerstrasse..."
422 na$(25)=na$(24):na$(26)=na$(24):na$(27)="Anfang einer Fussgaengerpassage"
423 na$(28)="westliche Industriestrasse":na$(29)="Industriestrasse"
424 na$(31)=na$(29):na$(32)="oestliche Industriestrasse."
425 na$(33)="Das Ende der Industriestrasse."
426 na$(34)="Friedhof...Grabsteine mit Inschriften."
427 na$(0)="Ein Lebensmittelgeschaeft(Laden)":na$(35)="Im Lebensmittelgeschaeft"
428 c(35)=4:na$(11)="Meine Wohnung.":na$(36)="Im Inneren..."
429 na$(30)="Tor B der Chemiewerke (Fabrik)":c(36)=96
430 na$(37)="Eine leere Lagerhalle.":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)="Ausgang : Tor A (Safe.)":na$(38)="Ausgang : Tor B"
434 na$(42)="Ein feuchter,dunkler Tunnel.":b(42)=36
435 na$(39)="Ein Bogengang...":na$(40)=na$(39):na$(41)=na$(39):na$(46)=na$(39)
436 na$(47)="Das Kontrollzentrum.(Schaltpult,Knopf)"
437 na$(48)=na$(39):na$(53)=na$(39):na$(55)=na$(39)
438 na$(54)="Eine geheimnissvolle Tuer...":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 Knopf)"
440 tn$="{home}{down}{down}{down}{down}{rght}{rght}{rght}{orng}ssssssssss{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{lred}ssssssssss{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry3}ssssssssss"
441 tp$="{home}{wht}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
442 tq$="{home}{rght}{rght}{brn}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s{down}{left}s":tn$=tn$+tq$+tp$:tq$=""
450 printtab(30)"{wht}return...":poke198,0:wait198,1:poke198,0
460 print"{clr}{down}{wht}Moechten Sie ein {cyn}{rvon}a{rvof}{wht}ltes Spiel fort-"
461 print"setzen, oder ein {cyn}{rvon}n{rvof}{wht}eues beginnen ?":a=0
462 getx$:ifx$<>"a"andx$<>"n"then462
463 ifx$="a"thengoto11535
500 print"{clr}":poke631,13:poke198,1
510 sys49152:poke50000,b(a):poke50001,c(a):gosub1000:print"{down}{down}{down}{down}{down}":goto10000
1000 rem bild1
1001 print"{home}"a$
1002 print"{home}"i$:print"{down}{rght}{rght}{gry2}"d$"{up}{up}{rght}{rght}{rght}"e$"{up}{rght}{rght}{rght}{rght}{rght}"f$"{up}{up}{rght}"h$"{up}{up}{rght}"g$;l$
1003 return
1004 rem bild2
1005 print"{home}"a$;"{home}"i$;"{home}{down}{down}{down}{down}"i$:print"{up}{up}{lgrn}{up}{rght}{rght}"d$"{up}{up}{lblu}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"d$;l$
1006 return
1007 rem bild3
1008 print"{home}"a$"{home}":printtab(10)"{up}{up}{up}"j$:print"{home}{rght}{rght}"e$"{home}{rght}{rght}{down}{down}{down}"d$
1009 printtab(15)"{up}{up}{up}"f$"{up}{up}{rght}"f$"{up}{up}{rght}z{down}{left}]{down}{left}_"
1010 printl$:poke828,15
1011 return
1012 rem bild4
1013 print"{home}{gry1}";m$;m$;m$;w$;"{wht}"b$;l$:poke828,13
1015 return:rem bild5:
1016 print"{home}{lblu}";c$;l$:print"{home}{down}{down}{down}{rght}{lgrn}{rght}{rght}{rght}"h$:poke828,0:return
1017 rem bild 6
1018 print"{home}"a$;l$;n$
1019 print"{home}{up}{rght}{rght}{rght}{rght}"e$"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"e$"{up}{rght}{rght}{rght}"e$"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"e$
1020 print"{down}{rght}{rght}{rght}{rght}{gry3}"d$"{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"e$"{up}{rght}{rght}{lgrn}{rght}"d$"{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"e$:return
1021 rem bild 7
1022 print"{home}"a$;l$;o$;"{home}"i$;"{home}{down}{down}{down}{down}"i$:return
1023 rem bild 8
1024 print"{home}{lblu}"c$;l$;"{home}{lblu}{rght}{rght}{rght}@@@@@{down}{left}{left}{left}{left}{left}aaaaa{down}{left}{left}{left}{left}{left}bbbbb{down}{left}{left}{left}{left}{left}@@@@@{down}{left}{left}{left}{left}{left}aaaaa{down}";
1025 print"{left}{left}{left}{left}{left}bbbbb";n$:return
1026 rem bild 9
1027 print"{home}"a$;l$:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"k$
1028 print"{home}{down}{rght}{down}{gry3}{down}"d$"{rght}{rght}{rght}{up}{up}"e$"{rght}{rght}{rght}{up}"g$"{up}{up}{rght}"h$:return:
1029 rem bild 10
1030 print"{home}"a$;"{lgrn}";
1040 print"{brn}$$$$$$-.$$$$$$&$$$$$$$$$$'$$$$$$0/$$$$$$";
1050 print"$$$$-.$$$$$$$&$$$$$$$$$$$$'$$$$$$$0/$$$$";
1060 print"$$-.$$$$$$$$&$$$$$$$$$$$$$$'$$$$$$$$0/$$";
1070 print"-.$$$$$$$$$&$$$$$$$$$$$$$$$$'$$$$$$$$$0/";
1080 print"$$$$$$$$$$&$$$$$$$$$$$$$$$$$$'$$$$$$$$$$":return
1081 rem bild11 (friedhof)
1090 gosub1013:print"{home}":printtab(17)"{down}1    1{down}{left}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    ":return
1100 rem bild 12
1110 print"{home}{gry1}"m$;m$;m$;w$;w$;w$;w$;w$;w$;w$;w$:ww$="{orng}234{down}{left}{left}{left}5$6{down}{left}{left}{left}5$9"
1120 wx$="{orng}78{down}{left}{left}$9":print"{home}{down}{down}{down}{down}"wx$"{down}"ww$"{up}"ww$"{up}{up}"wx$"{rght}{rght}{rght}{rght}{up}{up}"ww$"{up}{rght}{rght}"ww$;
1130 print"{up}{up}{rght}{rght}{rght}"ww$"{up}{up}{up}{up}{rght}"wx$"{down}{rght}{rght}{down}"ww$"{up}{left}{left}{left}{left}{left}{left}{up}{up}"wx$"{rght}{up}{left}{up}{up}{left}{rght}"ww$
1135 ifpeek(50000)and16thenprintt4$
1140 poke828,13:return
1200 rembild12
1210 print"{home}{brn}JKssssssssssssssssssssssssssssssssssssLM";
1220 print"VVJKssssssssssssssssssssssssssssssssLMVV";
1230 print"VVVVJKssssssssssssssssssssssssssssLMVVVV";
1240 print"VVVVVVJKssssssssN{cyn} :;<=>{brn}OssssssssLMVVVVVV";
1250 print"VVVVVVVV{lred}@@@@@@@@V{cyn} ?{SHIFT-*} AB{lred}V@@@@@@@@VVVVVVVV";
1260 print"VVVVVVVVaaaaaaaaV{cyn}  CDEF{lred}VaaaaaaaaVVVVVVVV";
1270 print"VVVVVVVVbbbbbbbbV{cyn}  GH I{lred}VbbbbbbbbVVVVVVVV";
1280 print"VVVVVV{lgrn}PQssssssssT{cyn}      {lgrn}UssssssssRSVVVVVV";
1290 print"VVVVPQssssssssssssssssssssssssssssRSVVVV";
1291 print"VVPQssssssssssssssssssssssssssssssssRSVV";
1292 print"PQssssssssssssssssssssssssssssssssssssRS";:poke828,6:poke53283,15
1295 pokevi+21,195:return
1300 rem bild 13
1310 print"{home}{orng}sssss{brn}JKssssssssssssssssssssssssssLM{orng}sssss";
1320 print"{orng}sssss{brn}VVJKssssssssssssssssssssssLMVV{orng}sssss";
1330 print"{orng}sssss{brn}VVVVJKssssssssssssssssssLMVVVV{orng}sssss";
1340 print"{orng}sssss{brn}VVVVVVJKssssssssssssssLMVVVVVV{orng}sssss";
1350 print"sssssVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVsssss";
1360 print"sssssVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVsssss";
1370 print"sssssVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVsssss";
1380 print"sssssVVVVVV{lgrn}PQssssssssssssssRSVVVVVV{orng}sssss";
1390 print"sssss{lgrn}VVVVPQssssssssssssssssssRSVVVV{orng}sssss";
1391 print"sssss{lgrn}VVPQssssssssssssssssssssssRSVV{orng}sssss";
1392 print"sssss{lgrn}PQssssssssssssssssssssssssssRS{orng}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"{home}";:fori=0to10:print"{orng}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";: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"Schluessel","Sprengsatz","Lebensmittel","Zeitung","Schaufel"
9410 data"Geld","Taschenlampe","Batterie"
9420 fori=0to7:ob(i)=2^i:next
9500 fori=0to7:readob$(i):next
9600 data"nimm ","verliere ","inv ","Inventur ","grabe ","bete ","betritt "
9610 data"verlasse ","iss ","oeffne ","sprenge ","druecke ","lies ","n ","o "
9620 data"s ","w ","h ","r ","schliesse ","d 2","d2","D2","D 2","1968","1970"
9630 data"warte ","Punkte ","Zeit ","Wohnung","Laden","Fabrik","Friedhof"
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"** Nur 2 Worte 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"Weg ist versperrt":fl=3
10047 if(x$="h"orx$="r")andfl=0thenprint"Weg ist versperrt":fl=3
10048 ifa=49thena=39:sys49408:print"Hinter mir faellt der Tunnel ein...":sys49408
10050 rem
10060 ify$<>be$(2)andy$<>be$(3)then10100
10061 print"Folgende Dinge fuehre Ich mit mir:":sys49408
10062 fori=0to7:ifpeek(50002)andob(i)thenprintob$(i):sys49408:gosub10080
10063 next
10064 if(peek(50002))=0thenprint"Ich bin arm wie eine Kirchenmaus."
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"Vielleicht wird dadurch das Wetter":fl=9
10102 iffl=9thenfl=3:sys49408:print"besser. Aber ich glaubs' kaum.":we=1
10103 rem
10104 iffl=9thenprint"Denken Sie an das Strafgesetzbuch.":fl=3
10110 ify$<>be$(6)then10200
10111 ifz$=be$(32)anda=4thena=34:fl=1:
10112 ifz$=be$(32)andfl<>1thenprint"Wo soll hier ein "be$(32)" sein print":fl=1
10120 ifz$=be$(30)anda=0thena=35:fl=1
10121 ifz$=be$(30)andfl<>1thenprint"Das ist hier nicht.":fl=3
10130 ifz$=be$(29)anda=11thena=36:fl=1
10131 ifz$=be$(29)andfl<>1thenprint"Das ist hier nicht.":fl=1
10140 ifz$=be$(31)and(a=29ora=30)thena=37:fl=1
10141 ifz$=be$(31)andfl=0thenprint"Hier ist kein Eingang...":fl=3
10199 iffl=0thenprint"Das 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"Wo soll hier ein "be$(32)" sein ?":fl=1
10220 ifz$=be$(30)anda=35thena=0:fl=1
10221 ifz$=be$(30)andfl=0thenprint"Ich bin nicht darin.":fl=3
10230 ifz$=be$(29)anda=36thena=11:fl=1
10231 ifz$=be$(29)andfl=0thenprint"Ich bin nicht darin.":fl=3
10240 ifz$=be$(31)and(a=37ora=38)thena=29:fl=1
10241 ifz$=be$(31)andfl=0thenprint"Wie soll ich das verlassen ?":fl=3
10299 iffl=0thenprint"Das kann ich nicht verlassen!":fl=3
10300 ify$<>be$(12)then10400
10310 if(z$="Inschrift"orz$="Inschriften")anda=34thenfl=9
10320 iffl=9thenprint"PORTA EST ALIENA TERRA...":
10330 iffl=9thensys49408:print"Andre' Moll":sys49408:print"* "be$(24)" +..":fl=3
10400 i=0:ify$<>be$(0)andy$<>"nehme "then10500
10401 ifz$=ob$(2)andpeek(50001)and4andge=0thenprint"Kein Geld...":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"Ich 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"Bitte genauere Eingabe !":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"Das besitze ich nicht...":fl=3
10590 ifz$="alles"thenc(a)=c(a)+peek(50002):poke50002,0:fl=1
10600 ify$=be$(4)anda<>34thenprint"Graben Sie an einem anderen Ort!?":fl=3
10601 ify$=be$(4)andfl=0andpeek(50002)and16thenprint"Ich grabe ein Loch.":fl=9
10602 ify$=be$(4)andfl=0thenprint"Keine Schaufel vorhanden.":fl=3
10603 iffl<>9then10700
10604 b(34)=16:fl=3
10700 ify$=be$(28)thenprint"Noch "ze" min. bis zum Start.":fl=3
10701 ify$=be$(27)thenprint"Ihre Punktzahl : "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"Was soll ich essen ?":fl=3
10704 ify$="stirb "thenpoke50000,0:sys50000
10705 ify$=be$(8)andfl=1anda=35thenprint"Ich verschmutze den Laden":fl=9
10706 iffl=9thensys49408:print"Ich erwarte ein Disziplinarverfahren..":goto60110
10710 ify$<>"schalte "then10800
10720 ifz$<>ob$(6)thenprint"Das kann ich nicht anschalten...":fl=3:goto10800
10730 if(peek(50002)and64)then10740
10731 print"Ich habe keine "ob$(6):fl=3:goto10800
10740 if(peek(50002)and128)then10750
10741 print"Ich brauche eine "ob$(7):fl=3:goto10800
10750 fl=1:la=1
10800 ifa=42andla=0then10810
10801 goto10890
10810 sys49408:print"Ich betrete einen Tunnel...":fori=0to1000:next
10820 sys49408:print"Ich kann leider wegen der Dunkelheit":sys49408
10830 print"nichts sehen....Ich stosse mich und ":sys49408
10840 print"verblute...AGHROOHJAAH":goto60110
10890 ifhu=1orze>150then10900
10891 sys49408:print"Ich habe schon seit Tagen nichts mehr ":sys49408
10892 print"gegessen oder getrunken. Ich habe":sys49408
10893 print"keine Lust mit leerem Bauch zu arbeiten":goto60110
10900 ify$=be$(26)thenze=ze-10:fl=1
10910 ify$=be$(11)anda<>47anda<>39thenprint"Ich sehe hier keinen Knopf":fl=3
10920 ify$=be$(11)anda=47then10930
10925 ify$=be$(11)anda=39then10960
10926 goto10990
10930 sys49408:print"Ich selbst habe den Zuendmechanismus":sys49408
10940 print"im Space Shuttle aktiviert(Woher wissen":sys49408
10950 print"Sie,dass ich ein Doppelagent bin ?":goto60110
10960 sys49408:print"Ich hoere in der Ferne eine Explosion":sys49408:
10961 print"Ein dumpfes Grollen...Es wird immer":sys49408
10962 print"lauter. Es scheint so, als haette ich":sys49408
10963 print"den Staudamm gespraengt.....GLUCKBLUBB":goto60110
10990 ify$="lies "and(peek(50002)and8)andfl=0then11000
10991 ify$=be$(12)andfl=0thenprint"Was soll ich lesen ?":fl=3:goto11010
10992 goto11010
11000 print"Ich lese die Zeitung :":sys49408:print"Der Flug des Space Shuttles ist"
11001 sys49408:print"voellig (!) problemlos und erfolgreich":fl=3:poke198,0
11002 wait198,1:sys49408:printtab(17)"------":sys49408:print"Horoskope :"
11003 sys49408:print"[...] und nehmen Sie sich vor Knoepfen":sys49408:sc=sc+10
11004 print"in Acht ! [...]":poke198,0
11010 ify$<>be$(19)then11100
11011 ifa<>54thenprint"Funktioniert hier nicht":fl=3:goto11100
11020 ifpeek(50002)and1then11030
11025 print"Ich habe keinen Schluessel...":fl=3:goto11100
11030 b(54)=11:fl=1:sc=sc+50
11100 ify$<>be$(10)then11200
11110 ifpeek(50002)and2then11130
11120 print"Ich habe keinen Sprengsatz.":fl=3:goto11200
11130 ifa<>47then11170
11131 ifpeek(50002)and8thenprint"Die Zeitung entzuendet sich...":fl=10
11132 iffl=10thensys49408:print"Ich verbrenne.Schade,schon tot...":goto60110
11140 print"Ich habe den Countdown stoppen koennen":sys49408:sc=sc+200
11150 print"Meine Mission ist erfuellt.":sys49408
11160 print"Ihre Punkte :";sc:sys49408:print"{cyn}(Tastendruck)"
11161 poke198,0:wait198,1:gosub50000:poke50000,0:sys50000
11170 print"Ich sprenge mich selbst...BOUOOUMMMM..":goto60110
11200 ifze<1thensys49408:print"Zu spaet...":goto60110
11210 ify$<>be$(9)then11300
11220 ifa=37then11230
11225 print"Ich kann hier nichts oeffnen.":fl=3:goto11300
11230 print"Ich versuche den Safe zu oeffnen.":fl=1:c(37)=1
11240 sys49408:print"Ich benoetige jedoch eine Zahlen -":sys49408:x$=""
11250 print"kombination : ";:gosub51001
11251 ifx1$=be$(24)thensys49408:sc=sc+60:goto11300
11252 sys49408:print"Die Kombination ist leider falsch.":sys49408
11260 print"Eine Alarmanlage wird aktiviert.":sys49408
11270 print"Ich werde verhaftet....":goto60110
11300 ifa=46andhh=1thensys49408:print"Der Roboter toetet mich.ORGH...":goto60110
11310 ifa=46andhh=0thensys49408:print"Ein gefaehrlicher Roboter..":sys49408:hh=1
11315 ifa=36thent=t+1
11320 ifa=36andt=2then11340
11330 goto11400
11340 sys49408:print"Das Telefon klingelt.":sys49408
11350 print"Mein Chef ist am Apparat.":sys49408
11351 print"Er fragt nach dem Namen meiner Mission":sys49408
11352 print"->";:gosub51001:i=19
11353 i=i+1:ifx1$=be$(i)thensys49408:sc=sc+110:goto11400
11354 ifi<24then11353
11355 sys49408:print"Ich habe meinen Chef belogen !":sys49408
11356 print"Ich werde bestraft. Das sind ja mittel-":sys49408
11357 print"alterliche Sitten AUUUUUA...":goto60110
11400 ify$="verdammt "ory$="scheisse "ory$="mist "thenfl=9
11401 iffl=9thenprint"Fluchen hilft nichts...":fl=3
11402 ifx$="Hilfe"thenprint"Jeder ist sich selbst der Naechste.":fl=3
11403 ifwe=0andze<100thensys49408:fl=9:print"Meine Sachen werden durch den sehr"
11404 iffl=9thensys49408:print"starken Wind in alle Richtungen 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"Batterieen 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"File-Namen ";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"Bitte Disk einschalten (return...).":poke198,0
11531 wait198,1:poke198,0:fori=0to4:sys49408:next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
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"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":sys49408:goto11600
11535 input"File-Namen ";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"File 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"{clr}File 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"Dieses Objekt kenne ich nicht."
19998 iffl=1thenprint"o.k."
19999 iffl=0thenprint"Hugh?":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"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{cyn}Richtungen:            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{wht}";
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"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";w$;
29017 printw$;w$
29018 print"{up}{up}{up}{up}{cyn}Besonderheiten:{wht} ";
29019 fori=0to1:ifpeek(50001)andob(i)thenprintob$(i)",";
29020 next:print
29021 fori=2to4:ifpeek(50001)andob(i)thenprintob$(i)",";
29022 next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
29023 fori=5to7:ifpeek(50001)andob(i)thenprintob$(i)",";
29024 next
29092 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"w$:print"{up}{up}{cyn}"na$(a)"{wht}"
29093 printtp$
30000 goto10000
50000 print"{clr}{wht}":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"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}tschuess..."
50006 fori=0to3000:next:return
51000 print"{wht}>";
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"{left} {left}";:
51101 goto51002
52000 ifi>-1thenprint" {left}{left} {left}";: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"{wht}{down}{down}{down}Bitte warten Sie...":print"{down}{cyn}Die Befehlsliste :"
60001 print"{wht}inv (Inventur),betritt,verlasse,lies    ";
60002 print"{wht}n,o,s,w,h,r,nimm (nehme),verliere (lege)";
60003 print"{wht}grabe,Zeit,Punkte,iss,stirb,schalte,bete";
60004 print"{wht}warte,druecke,schliesse,sprenge,oeffne  ";
60005 print"save...und einige mehr..."
60006 print"{down}Musik: Nun ruhen alle Waelder (J.S.Bach)"
60007 print"{wht}Thanks to Peanuts Soft....              ";
60008 print"Gruesse an alle Schildkroeten & Stuemper";
60100 print"{wht}Viel Glueck....";:return
60110 gosub1100:pokevi+21,0:printtn$:sys49408:print"Noch ein Versuch (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"Thanks 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

  0 POKE 808,225:POKE 657,128:IF FL=9 THEN11536 
  1 PRINT"{CLR,WHITE}":POKE 53272,23:POKE 53280,0:POKE 53281,0:DIM NA$(55):POKE 50002,0:EN=10 
  2 PRINT"{BLUE,UP,SPACE}SPION III ( D 2 MISSION ) VERSION 1.0":DIM XX$(35):DIM BE$(32) 
  3 PRINTTAB( 7)"{YELLOW,3DOWN}DESIGNER: STEFFEN GOEBBELS":POKE 54272+24,10:POKE 56549,30 
  4 PRINTTAB( 7)"{DOWN,WHITE}(C) S.J.G.-SOFT WEEZE 1985":ZE=180:GOSUB 60000 
  5 DATA 120,169,13,141,20,3,169,195,141,21,3,88,96,174,252,3,232,142,252,3,224 
  6 DATA 40,208,5,162,0,142,252,3,169,06,157,0,216,169,1,157,1,216,76,0,196 
  7 FOR I=49920 TO49961:READ Q:POKE I,Q:NEXT :SYS 49920 
  8 DIM B(55):DIM C(55):DATA 6,10,10,14,10,10,12,7,10,10,11,10,12,5,7,10 
  9 DATA 14,10,10,9,5,5,2,11,14,10,14,9,3,10,10,11,10,9:FOR I=0 TO33:READ B(I):NEXT 
 10 REM **** DATEN DER LANDSCHAFT **** 
 11 DATA 85,247,247,85,223,223,85,247,247,85,223,223,85,247,247,85,223,223,85,247 
 12 DATA 247,85,223,223,60,125,60,60,60,60,60,60,60,60,60,60,60,60,125,60 
 13 DATA 195,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215 
 14 DATA 215,215,215,215,215,20,85,85,85,84,84,84,84,80,80,80,80,64,64,64,64,64 
 15 DATA 85,85,85,21,21,21,21,5,5,5,5,1,1,1,1,1,85,106,106,111,111,111,111,111 
 16 DATA 85,170,170,255,255,255,255,255,85,169,169,249,249,249,249,249,111,111,111 
 17 DATA 111,109,109,111,111,255,255,255,255,127,255,255,255,249,249,249,249,249,249 
 18 DATA 249,249,111,111,111,111,111,111,111,111,255,255,255,255,255,255,255,255 
 19 DATA 170,170,191,191,191,191,170,170,170,170,190,190,190,190,170,170,170,170 
 20 DATA 254,254,254,254,170,170,191,191,191,191,170,255,85,85,190,190,190,190 
 21 DATA 170,255,85,85,254,254,254,254,170,255,85,85,170,170,191,191,191,191,191 
 22 DATA 191,170,170,255,255,255,255,255,255,170,170,254,254,254,254,254,254 
 23 DATA 191,191,191,191,191,191,191,191,254,254,254,254,254,254,254,254 
 24 DATA 191,191,191,189,181,149,170,170,255,255,255,85,85,85,170,170,0,0,0,0,0,0 
 25 DATA 0,0,254,254,254,126,94,86,170,170,85,85,85,85,85,85,85,85 
 26 DATA 255,85,85,85,255,255,255,85,87,87,93,93,117,117,213,213,213,213,117,117 
 27 DATA 93,93,87,87,85,85,85,86,90,106,85,85,85,85,170,170,170,170,85,85,85,85 
 28 DATA 170,169,165,149,85,85,85,85,170,106,90,86,85,85,85,85,85,149,165,169,85 
 29 DATA 85,85,85,85,85,87,93,117,213,87,93,117,213,85,85,85,85 
 30 DATA 85,85,85,85,213,117,93,87,213,117,93,87,85,85,85,85 
 31 DATA 24,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 DATA 192,112,92,95,87,87,87,21,21,21,21,21,21,21,21,87,87,87,87,87,87,87,87 
 33 DATA 0,3,5,21,21,85,85,85,0,192,112,92,95,87,87,87,87,87,87,87,87,87,87,84 
 34 DATA 0,0,1,255,254,63,31,15,0,0,216,240,99,247,255,222,15,127,30,56,16,128 
 35 DATA 128,0,0,0,7,13,36,33,55,15,0,0,128,255,255,255,255,255,15,31,31,27,11,11 
 36 DATA 3,1,206,252,248,240,176,0,0,192,31,50,12,63,127,127,255,255,143,191,31 
 37 DATA 30,254,231,243,249,64,62,31,63,63,31,31,15,0,0,128,192,240,248,248,240 
 38 DATA 127,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 DATA 224,192,128,128,0,0,0,240,240,224,96,0,0,0,0 
 40 DATA 127,159,167,169,170,170,170,170,255,255,255,255,127,159,167,169,255,255 
 41 DATA 255,255,253,246,218,106,253,246,218,106,170,170,170,170,253,253,246,246 
 42 DATA 218,218,106,106,127,127,159,159,167,167,169,169,170,170,170,170,169,167 
 43 DATA 159,127,169,167,159,127,255,255,255,255,106,218,246,253,255,255,255,255 
 44 DATA 170,170,170,170,106,218,246,253,106,106,218,218,246,246,253,253,169,169 
 45 DATA 167,167,159,159,127,127,170,170,170,170,170,170,170,170 
 46 DATA 170,42,2,0,0,0,0,0,170,170,170,170,10,2,0,0,170,170,170,170,170,170,234 
 47 DATA 250,170,170,170,170,170,170,171,175,170,170,170,170,160,128,0,0,170,171 
 48 DATA 128,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 DATA 85,85,84,84,84,63,255,255,51,3,0,0,0,245,250,234,162,162,160,128,0,84 
 50 DATA 160,160,128,0,0,0,0,170,170,186,187,171,167,173,191,170,170,174,238,234 
 51 DATA 250,250,254,170,170,253,247,223,223,223,117,191,157,183,189,189,189,183 
 52 DATA 149,127,253,247,227,119,247,253,247,126,222,246,254,222,118,254,254 
 60 REM **** SPRITES **** 
 61 DATA 0,0,0,0,2,170,0,10,170,0,42,170,2,170,170,10,170,170,170,170,170,255 
 62 DATA 255,255,255,255,255,234,213,83,234,213,67,255,213,3,234,212,3,234,212,3 
 63 DATA 255,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 DATA 0,0,0,170,160,0,170,160,0,170,144,0,170,144,0,170,80,0,170,80,0,255,80,0 
 65 DATA 255,80,0,171,80,0,171,80,0,255,80,0,171,80,0,171,80,0,255,80,0,255,64,0 
 66 DATA 3,64,0,3,64,0,3,64,0,3,64,0,3,0,0,0:REM SP.1 
 67 DATA 0,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 DATA 42,169,80,170,170,80,170,170,80,170,170,80,170,170,80,170,171,80,170,170 
 69 DATA 80,170,170,80,170,170,80,170,170,80,0:REM SP.2 
 70 DATA 170,170,80,170,170,80,170,170,80,175,170,80,175,170,80,191,234,80,186 
 71 DATA 234,80,186,234,80,191,234,80,175,170,80,175,170,80,170,170,80,170,170,80 
 72 DATA 170,170,80,170,171,80,170,170,80,170,170,80,170,170,80,170,170,64,42,169 
 73 DATA 64,10,165,0,0:REM SP.3 
 74 DATA 0,0,0,0,0,0,0,0,0,149,80,0,169,85,0,171,149,80,171,169,85,171,171,255 
 75 DATA 171,171,255,171,171,255,171,171,255,171,171,255,171,171,255,43,171,255 
 76 DATA 11,171,255,3,171,255,3,171,255,0,171,255,0,43,255,0,11,255,0,3,255,0 
 77 DATA 0,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 DATA 166,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 DATA 0,12,0,0:REM SP5 
 80 DATA 0,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 DATA 2,154,170,10,170,170,42,170,170,171,234,170,255,239,255,3,255,255,0,0,0 
 82 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0:REM SP6 
 83 DATA 0,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 DATA 0,170,172,0,170,160,0,170,128,0,170,140,0,170,188,0,234,140,0,255,0,0 
 85 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM SP.7 
 99 REM **************************** 
 100 FOR I=2048 TO2303:READ Q:POKE I,Q:NEXT :FOR I=2304 TO2311:POKE I,0:NEXT 
 101 FOR I=2312 TO2887:READ Q:POKE I,Q:NEXT 
 110 POKE 53270,PEEK (53270)OR 16:POKE 53282,12:POKE 53283,1 
 120 FOR I=0 TO511:READ Q:POKE I+3072,Q:NEXT :VI=53248:V=VI:GOSUB 9000 
 130 POKE 2040,48:POKE 2041,49:POKE VI,120:POKE VI+2,144:POKE VI+1,110:POKE VI+3,110 
 131 POKE VI+28,255:POKE VI+37,6:POKE VI+38,11:POKE VI+39,6:POKE VI+40,6 
 132 POKE 2042,50:POKE 2043,51:POKE VI+4,160:POKE VI+6,160:POKE VI+5,80:POKE VI+7,101 
 133 POKE VI+41,14:POKE VI+42,14:POKE 2044,52:POKE VI+8,238:POKE VI+9,97:POKE VI+43,3 
 134 POKE 2045,53:POKE VI+10,150:POKE VI+11,110:POKE VI+44,6:POKE 2046,54 
 135 POKE 2047,55:POKE VI+45,1:POKE VI+46,1:GOTO 146 
 136 POKE VI+13,110:POKE VI+15,110:POKE VI+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):POKE VI+12,K:POKE VI+14,G 
 139 IF J=1 THENPOKE VI+16,192 
 140 IF J=0AND F=1 THENPOKE VI+16,128 
 141 IF J=0AND F=0 THENPOKE VI+16,0 
 142 IF I<24 THENF=0:G=0:H=0:J=0:K=0:GOTO 144 
 143 GOTO 137 
 144 REM 
 145 FOR I=23 TO0STEP -1:POKE VI+14,I:FOR E=0 TO20:NEXT E,I:RETURN 
 146 POKE VI+21,0:POKE VI+12,36:POKE VI+14,60:POKE VI+13,152:POKE VI+15,152 
 147 POKE VI+16,192 
 148 REM 
 200 A$="{LIG.RED}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":POKE VI+37,11:POKE VI+38,12 
 210 B$="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" 
 220 C$="BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB":A$=A$+B$+C$+A$+B$+C$ 
 230 B$="{BROWN}CCCC{ORANGE}@@{BROWN}CCCC{ORANGE}@@{BROWN}CCCC{ORANGE}@@{BROWN}CCCC{ORANGE}@@{BROWN}CCCC{ORANGE}@@{BROWN}CCCC{ORANGE}@@{BROWN}CCCC" 
 240 C$="DDDD{ORANGE}AA{BROWN}DDDD{ORANGE}AA{BROWN}DDDD{ORANGE}AA{BROWN}DDDD{ORANGE}AA{BROWN}DDDD{ORANGE}AA{BROWN}DDDD{ORANGE}AA{BROWN}DDDD":B$=B$+C$ 
 250 C$="{GREY3}EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" 
 260 D$="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 
 270 E$="GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG":C$=C$+D$+D$+D$+D$+E$ 
 280 D$="LMN{DOWN,3LEFT}OPQ{DOWN,3LEFT}RSQ" 
 290 E$="{ORANGE}TUV{DOWN,3LEFT}WXY" 
 300 F$="{ORANGE}Z[[[[[[[[[£{DOWN,11LEFT}]SSSSSSSSS↑{DOWN,11LEFT}←!!!!!!!!!#" 
 310 G$="{ORANGE}Z[[[[[£{DOWN,7LEFT}]SSSSS↑{DOWN,7LEFT}←!!!!!#" 
 320 H$="{ORANGE}Z[[£{DOWN,4LEFT}]SS↑{DOWN,4LEFT}]SS↑" 
 330 I$="{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$+"{UP,2RIGHT}"+E$ 
 340 J$="{GREY1}$S{DOWN,2LEFT}$S{DOWN,2LEFT}$S{DOWN,2LEFT}$S{DOWN,2LEFT}H{SPACE,DOWN,2LEFT}I ":K$="{GREY1}S${DOWN,2LEFT}S${DOWN,2LEFT}S${DOWN,2LEFT}S${DOWN,2LEFT,SPACE}J{DOWN,2LEFT,SPACE}K" 
 350 L$="{HOME,6DOWN,ORANGE}$-.$$-.$$-.$$-.$$-.$$0/$$0/$$0/$$0/$$0/$" 
 360 M$="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" 
 370 N$="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 
 371 O$="$$$())))*$$$())))*$$$+)))),$$$+)))),$$$+" 
 380 L$=L$+M$+N$+N$+O$ 
 390 M$="SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS":L$=L$+"{ORANGE}"+M$ 
 400 N$="{HOME}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT,DOWN}$" 
 401 O$="{HOME,37RIGHT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$${DOWN,3LEFT}$$$" 
 402 P$="{DOWN,3LEFT}$$${2DOWN,LEFT}$":O$=O$+P$ 
 403 W$="{40SPACE}" 
 404 T1$="{HOME,5DOWN,8RIGHT,BROWN}WXY{DOWN,3LEFT,2SPACE}S{DOWN,3LEFT,2SPACE}S{DOWN,3LEFT,3SPACE,DOWN,3LEFT,SPACE}" 
 405 T2$="{HOME,5DOWN,29RIGHT,BROWN}Z+-{DOWN,3LEFT}S{2SPACE,DOWN,3LEFT}S{2SPACE,DOWN,3LEFT,3SPACE,DOWN,3LEFT,3SPACE}" 
 406 T3$="{HOME,5DOWN,18RIGHT,LIG.GREEN}Z[[£{DOWN,4LEFT}]{2SPACE}↑" 
 407 T4$="{HOME,6DOWN,ORANGE,10RIGHT}-↑*{DOWN,3LEFT,SHIFT-SPACE}KI" 
 408 T5$="{HOME,14RIGHT,5DOWN,ORANGE}TG@{DOWN,3LEFT}+M£" 
 410 REM *** NACHRICHTEN : *** 
 411 NA$(0)="NORDWALL...KEINE BESONDERHEITEN." 
 412 NA$(1)="STADTPARK.EIN PLAETZCHEN ZUM VERWEILEN.":NA$(2)=NA$(1):NA$(8)=NA$(1) 
 413 NA$(9)=NA$(1):NA$(3)=NA$(0):NA$(4)="DER FRIEDHOF...WIE GRUSELIG." 
 414 NA$(5)=NA$(0):NA$(6)="ENDE DES NORDWALLS.ANFANG EINER PASSAGE":C(6)=8 
 415 NA$(7)="DER WESTWALL-DIE HAUPTSTRASSE DER STADT":NA$(14)=NA$(7) 
 416 NA$(21)=NA$(7):NA$(10)="DIE RINGSTRASSE...FREI FUER ANLIEGER." 
 417 NA$(12)=NA$(10):NA$(13)="EINE FUSSGAENGERPASSAGE..." 
 418 NA$(15)=NA$(10):NA$(16)="TORWEG ZUR PARALLELSTRASSE.":C(34)=16 
 419 NA$(17)=NA$(10):NA$(18)=NA$(10):NA$(19)=NA$(10):NA$(20)=NA$(13) 
 420 NA$(22)="DAS ENDE DER SCHILLERSTRASSE." 
 421 NA$(23)=NA$(16):NA$(24)="DIE SCHILLERSTRASSE..." 
 422 NA$(25)=NA$(24):NA$(26)=NA$(24):NA$(27)="ANFANG EINER FUSSGAENGERPASSAGE" 
 423 NA$(28)="WESTLICHE INDUSTRIESTRASSE":NA$(29)="INDUSTRIESTRASSE" 
 424 NA$(31)=NA$(29):NA$(32)="OESTLICHE INDUSTRIESTRASSE." 
 425 NA$(33)="DAS ENDE DER INDUSTRIESTRASSE." 
 426 NA$(34)="FRIEDHOF...GRABSTEINE MIT INSCHRIFTEN." 
 427 NA$(0)="EIN LEBENSMITTELGESCHAEFT(LADEN)":NA$(35)="IM LEBENSMITTELGESCHAEFT" 
 428 C(35)=4:NA$(11)="MEINE WOHNUNG.":NA$(36)="IM INNEREN..." 
 429 NA$(30)="TOR B DER CHEMIEWERKE (FABRIK)":C(36)=96 
 430 NA$(37)="EINE LEERE LAGERHALLE.":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)="AUSGANG : TOR A (SAFE.)":NA$(38)="AUSGANG : TOR B" 
 434 NA$(42)="EIN FEUCHTER,DUNKLER TUNNEL.":B(42)=36 
 435 NA$(39)="EIN BOGENGANG...":NA$(40)=NA$(39):NA$(41)=NA$(39):NA$(46)=NA$(39) 
 436 NA$(47)="DAS KONTROLLZENTRUM.(SCHALTPULT,KNOPF)" 
 437 NA$(48)=NA$(39):NA$(53)=NA$(39):NA$(55)=NA$(39) 
 438 NA$(54)="EINE GEHEIMNISSVOLLE TUER...":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 KNOPF)" 
 440 TN$="{HOME,4DOWN,3RIGHT,ORANGE}SSSSSSSSSS{DOWN,10LEFT,LIG.RED}SSSSSSSSSS{DOWN,10LEFT,GREY3}SSSSSSSSSS" 
 441 TP$="{HOME,WHITE,21DOWN}" 
 442 TQ$="{HOME,2RIGHT,BROWN}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S{DOWN,LEFT}S":TN$=TN$+TQ$+TP$:TQ$="" 
 450 PRINTTAB( 30)"{WHITE}RETURN...":POKE 198,0:WAIT 198,1:POKE 198,0 
 460 PRINT"{CLR,DOWN,WHITE}MOECHTEN SIE EIN{SPACE,CYAN,RVSON}A{RVOFF,WHITE}LTES SPIEL FORT-" 
 461 PRINT"SETZEN, ODER EIN{SPACE,CYAN,RVSON}N{RVOFF,WHITE}EUES BEGINNEN ?":A=0 
 462 GET X$:IF X$<>"A"AND X$<>"N" THEN462 
 463 IF X$="A" THENGOTO 11535 
 500 PRINT"{CLR}":POKE 631,13:POKE 198,1 
 510 SYS 49152:POKE 50000,B(A):POKE 50001,C(A):GOSUB 1000:PRINT"{5DOWN}":GOTO 10000 
 1000 REM BILD1 
 1001 PRINT"{HOME}"A$ 
 1002 PRINT"{HOME}"I$:PRINT"{DOWN,2RIGHT,GREY2}"D$"{2UP,3RIGHT}"E$"{UP,5RIGHT}"F$"{2UP,RIGHT}"H$"{2UP,RIGHT}"G$;L$ 
 1003 RETURN 
 1004 REM BILD2 
 1005 PRINT"{HOME}"A$;"{HOME}"I$;"{HOME,4DOWN}"I$:PRINT"{2UP,LIG.GREEN,UP,2RIGHT}"D$"{2UP,LIG.BLUE,7RIGHT}"D$;L$ 
 1006 RETURN 
 1007 REM BILD3 
 1008 PRINT"{HOME}"A$"{HOME}":PRINTTAB( 10)"{UP,2UP}"J$:PRINT"{HOME,2RIGHT}"E$"{HOME,2RIGHT,3DOWN}"D$ 
 1009 PRINTTAB( 15)"{3UP}"F$"{2UP,RIGHT}"F$"{2UP,RIGHT}Z{DOWN,LEFT}]{DOWN,LEFT}←" 
 1010 PRINTL$:POKE 828,15 
 1011 RETURN 
 1012 REM BILD4 
 1013 PRINT"{HOME,GREY1}";M$;M$;M$;W$;"{WHITE}"B$;L$:POKE 828,13 
 1015 RETURN :REM BILD5: 
 1016 PRINT"{HOME,LIG.BLUE}";C$;L$:PRINT"{HOME,3DOWN,RIGHT,LIG.GREEN,3RIGHT}"H$:POKE 828,0:RETURN 
 1017 REM BILD 6 
 1018 PRINT"{HOME}"A$;L$;N$ 
 1019 PRINT"{HOME,UP,4RIGHT}"E$"{UP,8RIGHT}"E$"{UP,3RIGHT}"E$"{UP,7RIGHT}"E$ 
 1020 PRINT"{DOWN,4RIGHT,GREY3}"D$"{2UP,8RIGHT}"E$"{UP,2RIGHT,LIG.GREEN,RIGHT}"D$"{2UP,7RIGHT}"E$:RETURN 
 1021 REM BILD 7 
 1022 PRINT"{HOME}"A$;L$;O$;"{HOME}"I$;"{HOME,4DOWN}"I$:RETURN 
 1023 REM BILD 8 
 1024 PRINT"{HOME,LIG.BLUE}"C$;L$;"{HOME,LIG.BLUE,3RIGHT}@@@@@{DOWN,5LEFT}AAAAA{DOWN,5LEFT}BBBBB{DOWN,5LEFT}@@@@@{DOWN,5LEFT}AAAAA{DOWN}"; 
 1025 PRINT"{5LEFT}BBBBB";N$:RETURN 
 1026 REM BILD 9 
 1027 PRINT"{HOME}"A$;L$:PRINT"{HOME,32RIGHT}"K$ 
 1028 PRINT"{HOME,DOWN,RIGHT,DOWN,GREY3,DOWN}"D$"{3RIGHT,2UP}"E$"{3RIGHT,UP}"G$"{2UP,RIGHT}"H$:RETURN : 
 1029 REM BILD 10 
 1030 PRINT"{HOME}"A$;"{LIG.GREEN}"; 
 1040 PRINT"{BROWN}$$$$$$-.$$$$$$&$$$$$$$$$$'$$$$$$0/$$$$$$"; 
 1050 PRINT"$$$$-.$$$$$$$&$$$$$$$$$$$$'$$$$$$$0/$$$$"; 
 1060 PRINT"$$-.$$$$$$$$&$$$$$$$$$$$$$$'$$$$$$$$0/$$"; 
 1070 PRINT"-.$$$$$$$$$&$$$$$$$$$$$$$$$$'$$$$$$$$$0/"; 
 1080 PRINT"$$$$$$$$$$&$$$$$$$$$$$$$$$$$$'$$$$$$$$$$":RETURN 
 1081 REM BILD11 (FRIEDHOF) 
 1090 GOSUB 1013:PRINT"{HOME}":PRINTTAB( 17)"{DOWN}1{SPACE,3SPACE}1{DOWN,5LEFT,4SPACE,DOWN,4LEFT,4SPACE}":RETURN 
 1100 REM BILD 12 
 1110 PRINT"{HOME,GREY1}"M$;M$;M$;W$;W$;W$;W$;W$;W$;W$;W$:WW$="{ORANGE}234{DOWN,3LEFT}5$6{DOWN,3LEFT}5$9" 
 1120 WX$="{ORANGE}78{DOWN,2LEFT}$9":PRINT"{HOME,4DOWN}"WX$"{DOWN}"WW$"{UP}"WW$"{UP,UP}"WX$"{4RIGHT,2UP}"WW$"{UP,2RIGHT}"WW$; 
 1130 PRINT"{2UP,3RIGHT}"WW$"{4UP,RIGHT}"WX$"{DOWN,2RIGHT,DOWN}"WW$"{UP,6LEFT,2UP}"WX$"{RIGHT,UP,LEFT,2UP,LEFT,RIGHT}"WW$ 
 1135 IF PEEK (50000)AND 16 THENPRINTT4$ 
 1140 POKE 828,13:RETURN 
 1200 REM BILD12 
 1210 PRINT"{HOME,BROWN}JKSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSLM"; 
 1220 PRINT"VVJKSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSLMVV"; 
 1230 PRINT"VVVVJKSSSSSSSSSSSSSSSSSSSSSSSSSSSSLMVVVV"; 
 1240 PRINT"VVVVVVJKSSSSSSSSN{CYAN,SPACE}:;<=>{BROWN}OSSSSSSSSLMVVVVVV"; 
 1250 PRINT"VVVVVVVV{LIG.RED}@@@@@@@@V{CYAN,SPACE}?* AB{LIG.RED}V@@@@@@@@VVVVVVVV"; 
 1260 PRINT"VVVVVVVVAAAAAAAAV{CYAN,2SPACE}CDEF{LIG.RED}VAAAAAAAAVVVVVVVV"; 
 1270 PRINT"VVVVVVVVBBBBBBBBV{CYAN,2SPACE}GH I{LIG.RED}VBBBBBBBBVVVVVVVV"; 
 1280 PRINT"VVVVVV{LIG.GREEN}PQSSSSSSSST{CYAN,6SPACE,LIG.GREEN}USSSSSSSSRSVVVVVV"; 
 1290 PRINT"VVVVPQSSSSSSSSSSSSSSSSSSSSSSSSSSSSRSVVVV"; 
 1291 PRINT"VVPQSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSRSVV"; 
 1292 PRINT"PQSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSRS";:POKE 828,6:POKE 53283,15 
 1295 POKE VI+21,195:RETURN 
 1300 REM BILD 13 
 1310 PRINT"{HOME,ORANGE}SSSSS{BROWN}JKSSSSSSSSSSSSSSSSSSSSSSSSSSLM{ORANGE}SSSSS"; 
 1320 PRINT"{ORANGE}SSSSS{BROWN}VVJKSSSSSSSSSSSSSSSSSSSSSSLMVV{ORANGE}SSSSS"; 
 1330 PRINT"{ORANGE}SSSSS{BROWN}VVVVJKSSSSSSSSSSSSSSSSSSLMVVVV{ORANGE}SSSSS"; 
 1340 PRINT"{ORANGE}SSSSS{BROWN}VVVVVVJKSSSSSSSSSSSSSSLMVVVVVV{ORANGE}SSSSS"; 
 1350 PRINT"SSSSSVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVSSSSS"; 
 1360 PRINT"SSSSSVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVSSSSS"; 
 1370 PRINT"SSSSSVVVVVVVV$$$$$$$$$$$$$$VVVVVVVVSSSSS"; 
 1380 PRINT"SSSSSVVVVVV{LIG.GREEN}PQSSSSSSSSSSSSSSRSVVVVVV{ORANGE}SSSSS"; 
 1390 PRINT"SSSSS{LIG.GREEN}VVVVPQSSSSSSSSSSSSSSSSSSRSVVVV{ORANGE}SSSSS"; 
 1391 PRINT"SSSSS{LIG.GREEN}VVPQSSSSSSSSSSSSSSSSSSSSSSRSVV{ORANGE}SSSSS"; 
 1392 PRINT"SSSSS{LIG.GREEN}PQSSSSSSSSSSSSSSSSSSSSSSSSSSRS{ORANGE}SSSSS";:POKE 828,5:POKE 53283,15 
 1394 IF (PEEK (50000)AND 1)OR A=54 THENPRINTT3$ 
 1395 IF PEEK (50000)AND 2 THENPRINTT2$ 
 1396 IF PEEK (50000)AND 8 THENPRINTT1$ 
 1397 IF A=35 THENPRINTT1$:POKE VI+21,208 
 1398 IF A=36 THENPRINTT1$:POKE VI+21,211 
 1400 IF A=39 THENPRINTT5$ 
 1401 IF A=45 THENPOKE VI+21,195 
 1402 IF A=37 THENPOKE VI+21,204 
 1403 IF A=38 THENPOKE VI+21,208 
 1404 IF A=46 THENPOKE VI+21,224 
 1410 RETURN 
 1500 PRINT"{HOME}";:FOR I=0 TO10:PRINT"{ORANGE}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:NEXT 
 1510 POKE 53282,11:RETURN 
 9000 DATA 120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169 
 9010 DATA 186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173 
 9020 DATA 13,220,88,76,0,196,173,84,195,201,6,240,24:REM ←LAENGE 1.UNTERPRG.52 
 9040 DATA 169,6,141,32,208,141,33,208,141,84,195,169,1,141,18,208 
 9041 DATA 169,23,141,24,208,76,188,254 
 9090 DATA 169,0,141,32,208,141,84,195,169,145,141,18,208 
 9091 DATA 169,19,141,24,208,173,60,3,141,33,208,76,188,254 
 9210 DATA 120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96 
 9220 DATA 162,0,189,208,6,157,168,6,232,224,240,208,245,169,21,133,214,169,0 
 9230 DATA 133,211,162,0,169,32,157,112,7,232,224,40,208,248,96 
 9300 FOR I=49152 TO49273:READ Q:POKE I,Q:NEXT 
 9310 FOR I=49408 TO49441:READ Q:POKE I,Q:NEXT 
 9400 DATA "SCHLUESSEL","SPRENGSATZ","LEBENSMITTEL","ZEITUNG","SCHAUFEL" 
 9410 DATA "GELD","TASCHENLAMPE","BATTERIE" 
 9420 FOR I=0 TO7:OB(I)=2^I:NEXT 
 9500 FOR I=0 TO7:READ OB$(I):NEXT 
 9600 DATA "NIMM ","VERLIERE ","INV ","INVENTUR ","GRABE ","BETE ","BETRITT " 
 9610 DATA "VERLASSE ","ISS ","OEFFNE ","SPRENGE ","DRUECKE ","LIES ","N ","O " 
 9620 DATA "S ","W ","H ","R ","SCHLIESSE ","D 2","D2","D2","D 2","1968","1970" 
 9630 DATA "WARTE ","PUNKTE ","ZEIT ","WOHNUNG","LADEN","FABRIK","FRIEDHOF" 
 9640 FOR I=0 TO32:READ BE$(I):NEXT :RETURN 
 10000 X$="":Y$="":Z$="":SYS 49408:GOSUB 51000 
 10010 SYS 49408:L=LEN (X$):I=0:FL=0 
 10020 I=I+1:IF MID$ (X$,I,1)=" " THENY$=LEFT$ (X$,I):Z$=MID$ (X$,I+1,L):GOTO 10032 
 10030 IF I<=LEN (X$) THEN10020 
 10031 Y$=X$+" " 
 10032 L=LEN (Z$):I=0 
 10033 I=I+1:IF MID$ (Z$,I,1)=" " THENPRINT"** NUR 2 WORTE BENUTZEN **":Y$="":FL=3 
 10034 IF I<=LEN (Z$)AND FL=0 THEN10033 
 10035 IF XX$(0)=CHR$ (13) THENFL=3 
 10040 IF Y$=BE$(13)AND (PEEK (50000)AND 1) THENA=A-7:FL=1 
 10041 IF Y$=BE$(14)AND (PEEK (50000)AND 2) THENA=A+1:FL=1 
 10042 IF Y$=BE$(15)AND (PEEK (50000)AND 4) THENA=A+7:FL=1 
 10043 IF Y$=BE$(16)AND (PEEK (50000)AND 8) THENA=A-1:FL=1 
 10044 IF Y$=BE$(18)AND (PEEK (50000)AND 16) THENA=42:FL=1 
 10045 IF Y$=BE$(17)AND (PEEK (50000)AND 32) THENA=34:FL=1 
 10046 IF (X$="N"OR X$="S"OR X$="W"OR X$="O")AND FL=0 THENPRINT"WEG IST VERSPERRT":FL=3 
 10047 IF (X$="H"OR X$="R")AND FL=0 THENPRINT"WEG IST VERSPERRT":FL=3 
 10048 IF A=49 THENA=39:SYS 49408:PRINT"HINTER MIR FAELLT DER TUNNEL EIN...":SYS 49408 
 10050 REM 
 10060 IF Y$<>BE$(2)AND Y$<>BE$(3) THEN10100 
 10061 PRINT"FOLGENDE DINGE FUEHRE ICH MIT MIR:":SYS 49408 
 10062 FOR I=0 TO7:IF PEEK (50002)AND OB(I) THENPRINTOB$(I):SYS 49408:GOSUB 10080 
 10063 NEXT 
 10064 IF (PEEK (50002))=0 THENPRINT"ICH BIN ARM WIE EINE KIRCHENMAUS." 
 10065 FL=3 
 10071 GOTO 10090 
 10080 POKE 198,0:WAIT 198,1:POKE 198,0:RETURN 
 10090 FL=3 
 10100 IF Y$="TOETE "OR Y$="ZERSTOERE " THENFL=9 
 10101 IF Y$=BE$(5) THENPRINT"VIELLEICHT WIRD DADURCH DAS WETTER":FL=9 
 10102 IF FL=9 THENFL=3:SYS 49408:PRINT"BESSER. ABER ICH GLAUBS' KAUM.":WE=1 
 10103 REM 
 10104 IF FL=9 THENPRINT"DENKEN SIE AN DAS STRAFGESETZBUCH.":FL=3 
 10110 IF Y$<>BE$(6) THEN10200 
 10111 IF Z$=BE$(32)AND A=4 THENA=34:FL=1: 
 10112 IF Z$=BE$(32)AND FL<>1 THENPRINT"WO SOLL HIER EIN "BE$(32)" SEIN PRINT":FL=1 
 10120 IF Z$=BE$(30)AND A=0 THENA=35:FL=1 
 10121 IF Z$=BE$(30)AND FL<>1 THENPRINT"DAS IST HIER NICHT.":FL=3 
 10130 IF Z$=BE$(29)AND A=11 THENA=36:FL=1 
 10131 IF Z$=BE$(29)AND FL<>1 THENPRINT"DAS IST HIER NICHT.":FL=1 
 10140 IF Z$=BE$(31)AND (A=29OR A=30) THENA=37:FL=1 
 10141 IF Z$=BE$(31)AND FL=0 THENPRINT"HIER IST KEIN EINGANG...":FL=3 
 10199 IF FL=0 THENPRINT"DAS KANN ICH NICHT BETRETEN !":FL=3 
 10200 REM 
 10210 IF Y$<>BE$(7) THEN10300 
 10211 IF Z$=BE$(32)AND A=34 THENA=4:FL=1: 
 10212 IF Z$=BE$(32)AND FL<>1 THENPRINT"WO SOLL HIER EIN "BE$(32)" SEIN ?":FL=1 
 10220 IF Z$=BE$(30)AND A=35 THENA=0:FL=1 
 10221 IF Z$=BE$(30)AND FL=0 THENPRINT"ICH BIN NICHT DARIN.":FL=3 
 10230 IF Z$=BE$(29)AND A=36 THENA=11:FL=1 
 10231 IF Z$=BE$(29)AND FL=0 THENPRINT"ICH BIN NICHT DARIN.":FL=3 
 10240 IF Z$=BE$(31)AND (A=37OR A=38) THENA=29:FL=1 
 10241 IF Z$=BE$(31)AND FL=0 THENPRINT"WIE SOLL ICH DAS VERLASSEN ?":FL=3 
 10299 IF FL=0 THENPRINT"DAS KANN ICH NICHT VERLASSEN!":FL=3 
 10300 IF Y$<>BE$(12) THEN10400 
 10310 IF (Z$="INSCHRIFT"OR Z$="INSCHRIFTEN")AND A=34 THENFL=9 
 10320 IF FL=9 THENPRINT"PORTA EST ALIENA TERRA...": 
 10330 IF FL=9 THENSYS 49408:PRINT"ANDRE' MOLL":SYS 49408:PRINT"* "BE$(24)" +..":FL=3 
 10400 I=0:IF Y$<>BE$(0)AND Y$<>"NEHME " THEN10500 
 10401 IF Z$=OB$(2)AND PEEK (50001)AND 4AND GE=0 THENPRINT"KEIN GELD...":FL=3:GOTO 10500 
 10402 IF Z$=OB$(I) THEN10450 
 10410 I=I+1:IF I<8 THEN10401 
 10420 FL=4:GOTO 10470 
 10450 IF PEEK (50001)AND OB(I) THENC(A)=C(A)-OB(I):POKE 50002,PEEK (50002)+OB(I):FL=1 
 10460 IF FL=0 THENPRINT"ICH SEHE DAS HIER NIRGENDS.":FL=3 
 10470 IF Z$="ALLES"AND A<>35 THENPOKE 50002,PEEK (50002)+C(A):C(A)=0:FL=1 
 10480 IF Z$="ALLES"AND A=35 THENPRINT"BITTE GENAUERE EINGABE !":FL=3 
 10500 IF Y$<>BE$(1)AND Y$<>"LEGE " THEN10600 
 10501 I=0 
 10502 IF Z$=OB$(5) THENGE=0 
 10510 IF OB$(I)=Z$ THEN10540 
 10520 I=I+1:IF I<8 THEN10510 
 10530 FL=4:GOTO 10590 
 10540 IF PEEK (50002)AND OB(I) THENPOKE 50002,PEEK (50002)-OB(I):C(A)=C(A)+OB(I):FL=1 
 10550 IF FL=0 THENPRINT"DAS BESITZE ICH NICHT...":FL=3 
 10590 IF Z$="ALLES" THENC(A)=C(A)+PEEK (50002):POKE 50002,0:FL=1 
 10600 IF Y$=BE$(4)AND A<>34 THENPRINT"GRABEN SIE AN EINEM ANDEREN ORT!?":FL=3 
 10601 IF Y$=BE$(4)AND FL=0AND PEEK (50002)AND 16 THENPRINT"ICH GRABE EIN LOCH.":FL=9 
 10602 IF Y$=BE$(4)AND FL=0 THENPRINT"KEINE SCHAUFEL VORHANDEN.":FL=3 
 10603 IF FL<>9 THEN10700 
 10604 B(34)=16:FL=3 
 10700 IF Y$=BE$(28) THENPRINT"NOCH "ZE" MIN. BIS ZUM START.":FL=3 
 10701 IF Y$=BE$(27) THENPRINT"IHRE PUNKTZAHL : "SC:FL=3 
 10702 IF Y$=BE$(8)AND (PEEK (50002)AND 4) THENFL=1:POKE 50002,PEEK (50002)-4:HU=1 
 10703 IF Y$=BE$(8)AND FL=0 THENPRINT"WAS SOLL ICH ESSEN ?":FL=3 
 10704 IF Y$="STIRB " THENPOKE 50000,0:SYS 50000 
 10705 IF Y$=BE$(8)AND FL=1AND A=35 THENPRINT"ICH VERSCHMUTZE DEN LADEN":FL=9 
 10706 IF FL=9 THENSYS 49408:PRINT"ICH ERWARTE EIN DISZIPLINARVERFAHREN..":GOTO 60110 
 10710 IF Y$<>"SCHALTE " THEN10800 
 10720 IF Z$<>OB$(6) THENPRINT"DAS KANN ICH NICHT ANSCHALTEN...":FL=3:GOTO 10800 
 10730 IF (PEEK (50002)AND 64) THEN10740 
 10731 PRINT"ICH HABE KEINE "OB$(6):FL=3:GOTO 10800 
 10740 IF (PEEK (50002)AND 128) THEN10750 
 10741 PRINT"ICH BRAUCHE EINE "OB$(7):FL=3:GOTO 10800 
 10750 FL=1:LA=1 
 10800 IF A=42AND LA=0 THEN10810 
 10801 GOTO 10890 
 10810 SYS 49408:PRINT"ICH BETRETE EINEN TUNNEL...":FOR I=0 TO1000:NEXT 
 10820 SYS 49408:PRINT"ICH KANN LEIDER WEGEN DER DUNKELHEIT":SYS 49408 
 10830 PRINT"NICHTS SEHEN....ICH STOSSE MICH UND ":SYS 49408 
 10840 PRINT"VERBLUTE...AGHROOHJAAH":GOTO 60110 
 10890 IF HU=1OR ZE>150 THEN10900 
 10891 SYS 49408:PRINT"ICH HABE SCHON SEIT TAGEN NICHTS MEHR ":SYS 49408 
 10892 PRINT"GEGESSEN ODER GETRUNKEN. ICH HABE":SYS 49408 
 10893 PRINT"KEINE LUST MIT LEEREM BAUCH ZU ARBEITEN":GOTO 60110 
 10900 IF Y$=BE$(26) THENZE=ZE-10:FL=1 
 10910 IF Y$=BE$(11)AND A<>47AND A<>39 THENPRINT"ICH SEHE HIER KEINEN KNOPF":FL=3 
 10920 IF Y$=BE$(11)AND A=47 THEN10930 
 10925 IF Y$=BE$(11)AND A=39 THEN10960 
 10926 GOTO 10990 
 10930 SYS 49408:PRINT"ICH SELBST HABE DEN ZUENDMECHANISMUS":SYS 49408 
 10940 PRINT"IM SPACE SHUTTLE AKTIVIERT(WOHER WISSEN":SYS 49408 
 10950 PRINT"SIE,DASS ICH EIN DOPPELAGENT BIN ?":GOTO 60110 
 10960 SYS 49408:PRINT"ICH HOERE IN DER FERNE EINE EXPLOSION":SYS 49408: 
 10961 PRINT"EIN DUMPFES GROLLEN...ES WIRD IMMER":SYS 49408 
 10962 PRINT"LAUTER. ES SCHEINT SO, ALS HAETTE ICH":SYS 49408 
 10963 PRINT"DEN STAUDAMM GESPRAENGT.....GLUCKBLUBB":GOTO 60110 
 10990 IF Y$="LIES "AND (PEEK (50002)AND 8)AND FL=0 THEN11000 
 10991 IF Y$=BE$(12)AND FL=0 THENPRINT"WAS SOLL ICH LESEN ?":FL=3:GOTO 11010 
 10992 GOTO 11010 
 11000 PRINT"ICH LESE DIE ZEITUNG :":SYS 49408:PRINT"DER FLUG DES SPACE SHUTTLES IST" 
 11001 SYS 49408:PRINT"VOELLIG (!) PROBLEMLOS UND ERFOLGREICH":FL=3:POKE 198,0 
 11002 WAIT 198,1:SYS 49408:PRINTTAB( 17)"------":SYS 49408:PRINT"HOROSKOPE :" 
 11003 SYS 49408:PRINT"[...] UND NEHMEN SIE SICH VOR KNOEPFEN":SYS 49408:SC=SC+10 
 11004 PRINT"IN ACHT ! [...]":POKE 198,0 
 11010 IF Y$<>BE$(19) THEN11100 
 11011 IF A<>54 THENPRINT"FUNKTIONIERT HIER NICHT":FL=3:GOTO 11100 
 11020 IF PEEK (50002)AND 1 THEN11030 
 11025 PRINT"ICH HABE KEINEN SCHLUESSEL...":FL=3:GOTO 11100 
 11030 B(54)=11:FL=1:SC=SC+50 
 11100 IF Y$<>BE$(10) THEN11200 
 11110 IF PEEK (50002)AND 2 THEN11130 
 11120 PRINT"ICH HABE KEINEN SPRENGSATZ.":FL=3:GOTO 11200 
 11130 IF A<>47 THEN11170 
 11131 IF PEEK (50002)AND 8 THENPRINT"DIE ZEITUNG ENTZUENDET SICH...":FL=10 
 11132 IF FL=10 THENSYS 49408:PRINT"ICH VERBRENNE.SCHADE,SCHON TOT...":GOTO 60110 
 11140 PRINT"ICH HABE DEN COUNTDOWN STOPPEN KOENNEN":SYS 49408:SC=SC+200 
 11150 PRINT"MEINE MISSION IST ERFUELLT.":SYS 49408 
 11160 PRINT"IHRE PUNKTE :";SC:SYS 49408:PRINT"{CYAN}(TASTENDRUCK)" 
 11161 POKE 198,0:WAIT 198,1:GOSUB 50000:POKE 50000,0:SYS 50000 
 11170 PRINT"ICH SPRENGE MICH SELBST...BOUOOUMMMM..":GOTO 60110 
 11200 IF ZE<1 THENSYS 49408:PRINT"ZU SPAET...":GOTO 60110 
 11210 IF Y$<>BE$(9) THEN11300 
 11220 IF A=37 THEN11230 
 11225 PRINT"ICH KANN HIER NICHTS OEFFNEN.":FL=3:GOTO 11300 
 11230 PRINT"ICH VERSUCHE DEN SAFE ZU OEFFNEN.":FL=1:C(37)=1 
 11240 SYS 49408:PRINT"ICH BENOETIGE JEDOCH EINE ZAHLEN -":SYS 49408:X$="" 
 11250 PRINT"KOMBINATION : ";:GOSUB 51001 
 11251 IF X1$=BE$(24) THENSYS 49408:SC=SC+60:GOTO 11300 
 11252 SYS 49408:PRINT"DIE KOMBINATION IST LEIDER FALSCH.":SYS 49408 
 11260 PRINT"EINE ALARMANLAGE WIRD AKTIVIERT.":SYS 49408 
 11270 PRINT"ICH WERDE VERHAFTET....":GOTO 60110 
 11300 IF A=46AND HH=1 THENSYS 49408:PRINT"DER ROBOTER TOETET MICH.ORGH...":GOTO 60110 
 11310 IF A=46AND HH=0 THENSYS 49408:PRINT"EIN GEFAEHRLICHER ROBOTER..":SYS 49408:HH=1 
 11315 IF A=36 THENT=T+1 
 11320 IF A=36AND T=2 THEN11340 
 11330 GOTO 11400 
 11340 SYS 49408:PRINT"DAS TELEFON KLINGELT.":SYS 49408 
 11350 PRINT"MEIN CHEF IST AM APPARAT.":SYS 49408 
 11351 PRINT"ER FRAGT NACH DEM NAMEN MEINER MISSION":SYS 49408 
 11352 PRINT"->";:GOSUB 51001:I=19 
 11353 I=I+1:IF X1$=BE$(I) THENSYS 49408:SC=SC+110:GOTO 11400 
 11354 IF I<24 THEN11353 
 11355 SYS 49408:PRINT"ICH HABE MEINEN CHEF BELOGEN !":SYS 49408 
 11356 PRINT"ICH WERDE BESTRAFT. DAS SIND JA MITTEL-":SYS 49408 
 11357 PRINT"ALTERLICHE SITTEN AUUUUUA...":GOTO 60110 
 11400 IF Y$="VERDAMMT "OR Y$="SCHEISSE "OR Y$="MIST " THENFL=9 
 11401 IF FL=9 THENPRINT"FLUCHEN HILFT NICHTS...":FL=3 
 11402 IF X$="HILFE" THENPRINT"JEDER IST SICH SELBST DER NAECHSTE.":FL=3 
 11403 IF WE=0AND ZE<100 THENSYS 49408:FL=9:PRINT"MEINE SACHEN WERDEN DURCH DEN SEHR" 
 11404 IF FL=9 THENSYS 49408:PRINT"STARKEN WIND IN ALLE RICHTUNGEN GEWEHT" 
 11405 IF FL<>9 THEN11500 
 11410 FOR I=0 TO7 
 11411 : R=INT (32*RND (1))+1 
 11412 : IF PEEK (50002)AND 2^I THENC(R)=C(R)+2^I 
 11413 NEXT I:SYS 49408:WE=1:POKE 50002,0:LA=0 
 11500 IF LA=1 THENEN=EN-1:IF EN=1 THENLA=0:SYS 49408:PRINT"BATTERIEEN SIND LEER":FM=9 
 11501 IF FM=9 THENSYS 49408:FM=0:POKE 50002,PEEK (50002)-128 
 11502 IF SC>255 THENSC=255 
 11503 IF SC<1 THENSC=0 
 11504 IF PEEK (50002)AND 192 THEN11510 
 11505 LA=0 
 11510 IF Y$<>"SAVE " THEN11600 
 11520 INPUT"FILE-NAMEN ";X$ 
 11521 FOR I=0 TO55:POKE 50003+I,C(I):NEXT :BA=50059:POKE BA,ZE:POKE BA+1,SC 
 11522 POKE BA+2,LA:POKE BA+3,B(34):POKE BA+4,B(54):POKE BA+5,T:POKE BA+6,WE 
 11523 POKE BA+7,HU:POKE BA+8,HH:POKE BA+9,EN:POKE BA+10,A:POKE BA+11,GE 
 11524 REM DATEN IM BEREICH 50002-50070 
 11530 SYS 49408:PRINT"BITTE DISK EINSCHALTEN (RETURN...).":POKE 198,0 
 11531 WAIT 198,1:POKE 198,0:FOR I=0 TO4:SYS 49408:NEXT :PRINT"{HOME,17DOWN}" 
 11532 GOSUB 11550:OPEN 1,8,1,X$:PRINT#1,CHR$ (82);CHR$ (195); 
 11533 FOR I=50002 TO50070:W=PEEK (I):PRINT#1,CHR$ (W);:NEXT :SYS 49408:FL=3:POKE 198,0 
 11534 CLOSE 1:PRINT"{HOME,22DOWN}":SYS 49408:GOTO 11600 
 11535 INPUT"FILE-NAMEN ";X$:FL=9:GOSUB 11580:LOAD X$,8,1 
 11536 FOR I=0 TO55: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):GOTO 500 
 11550 POKE 631,71:POKE 632,79:POKE 633,84:POKE 634,79:POKE 635,49:POKE 636,49 
 11551 POKE 637,53:POKE 638,54:POKE 639,48:POKE 640,13:POKE 198,10:RETURN 
 11560 CLOSE 1:FOR I=0 TO3:SYS 49408:NEXT :PRINT"FILE KONNTE NICHT GE-SAVED WERDEN." 
 11570 SYS 49408:GOTO 11520 
 11580 POKE 631,71:POKE 632,79:POKE 633,84:POKE 634,79:POKE 635,49:POKE 636,49 
 11581 POKE 637,53:POKE 638,56:POKE 639,50:POKE 640,13:POKE 198,10:RETURN 
 11582 PRINT"{CLR}FILE KONNTE NICHT GELADEN WERDEN.":POKE 198,0:WAIT 198,1:POKE 198,0 
 11583 GOTO 460 
 11600 REM 
 19000 POKE 50000,B(A):REM RICHTUNGEN 
 19010 POKE 50001,C(A):REM GEGENSTAENDE 
 19020 POKE 53282,12:POKE VI+21,192 
 19030 IF PEEK (50002)AND 32 THENGE=1 
 19997 ZE=ZE-1:SC=SC-2:IF FL=4 THENPRINT"DIESES OBJEKT KENNE ICH NICHT." 
 19998 IF FL=1 THENPRINT"O.K." 
 19999 IF FL=0 THENPRINT"HUGH?":ZE=ZE-1 
 20000 IF A>12 THEN20003 
 20001 ON A+1GOSUB 1000,1012,1012,1004,1090,1000,1004,1004,1012,1012,1000,1004,1004 
 20002 GOTO 20008 
 20003 IF A>24 THEN20006 
 20004 ON A-13+1GOSUB 1030,1018,1000,1007,1004,1004,1022,1030,1000,1000,1027,1004 
 20005 GOTO 20008 
 20006 IF A>36 THEN20009 
 20007 ON A-25+1GOSUB 1000,1004,1022,1024,1016,1016,1000,1004,1022,1100,1300,1300 
 20008 GOTO 20030 
 20009 ON A-37+1GOSUB 1300,1300,1300,1300,1300,1500,1300,1300,1300,1300,1200,1300 
 20010 IF A<49 THEN20030 
 20020 ON A-49+1GOSUB 1500,1500,1500,1500,1300,1300,1300 
 20030 REM 
 29009 PRINT"{HOME,12DOWN,CYAN}RICHTUNGEN:{12SPACE,12LEFT,WHITE}"; 
 29010 IF PEEK (50000)AND 32 THENPRINT"H ,"; 
 29011 IF PEEK (50000)AND 16 THENPRINT"R ,"; 
 29012 IF PEEK (50000)AND 1 THENPRINT"N ,"; 
 29013 IF PEEK (50000)AND 2 THENPRINT"O ,"; 
 29014 IF PEEK (50000)AND 4 THENPRINT"S ,"; 
 29015 IF PEEK (50000)AND 8 THENPRINT"W ,"; 
 29016 PRINT"{HOME,13DOWN}";W$; 
 29017 PRINTW$;W$ 
 29018 PRINT"{4UP,CYAN}BESONDERHEITEN:{WHITE,SPACE}"; 
 29019 FOR I=0 TO1:IF PEEK (50001)AND OB(I) THENPRINTOB$(I)","; 
 29020 NEXT :PRINT 
 29021 FOR I=2 TO4:IF PEEK (50001)AND OB(I) THENPRINTOB$(I)","; 
 29022 NEXT :PRINT"{HOME,14DOWN}"; 
 29023 FOR I=5 TO7:IF PEEK (50001)AND OB(I) THENPRINTOB$(I)","; 
 29024 NEXT 
 29092 PRINT"{HOME,16DOWN}"W$:PRINT"{2UP,CYAN}"NA$(A)"{WHITE}" 
 29093 PRINTTP$ 
 30000 GOTO 10000 
 50000 PRINT"{CLR,WHITE}":SYS 49256:POKE 53280,0:POKE 53281,0:POKE 53272,21:POKE VI+21,0 
 50001 SYS 50452:FOR I=0 TO30 
 50002 : R=INT (999*RND (1)) 
 50003 : POKE 1024+R,46 
 50004 NEXT 
 50005 GOSUB 136:POKE 198,0:PRINT"{HOME,10DOWN,15RIGHT,RED}TSCHUESS..." 
 50006 FOR I=0 TO3000:NEXT :RETURN 
 51000 PRINT"{WHITE}>"; 
 51001 POKE 204,0:I=0:REM INPUT ROUTINE: 
 51002 GET XX$(I):IF XX$(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 IF ASC (XX$(I))=13 THEN53000 
 51007 IF ASC (XX$(I))=255 THENREM 
 51008 GOTO 51002 
 51100 PRINTXX$(I);:I=I+1:IF I>34 THENI=34:PRINT"{LEFT,SPACE,LEFT}";: 
 51101 GOTO 51002 
 52000 IF I>-1 THENPRINT"{SPACE,2LEFT,SPACE,LEFT}";:I=I-1:IF I<0 THENPRINT">";:I=0 
 52001 GOTO 51002 
 53000 X1$="":POKE 207,0:POKE 204,1:FOR AA=0 TOI-1:X1$=X1$+XX$(AA):NEXT :PRINT" " 
 53002 X$=X1$:RETURN 
 60000 PRINT"{WHITE,3DOWN}BITTE WARTEN SIE...":PRINT"{DOWN,CYAN}DIE BEFEHLSLISTE :" 
 60001 PRINT"{WHITE}INV (INVENTUR),BETRITT,VERLASSE,LIES{SPACE,3SPACE}"; 
 60002 PRINT"{WHITE}N,O,S,W,H,R,NIMM (NEHME),VERLIERE (LEGE)"; 
 60003 PRINT"{WHITE}GRABE,ZEIT,PUNKTE,ISS,STIRB,SCHALTE,BETE"; 
 60004 PRINT"{WHITE}WARTE,DRUECKE,SCHLIESSE,SPRENGE,OEFFNE{SPACE,SPACE}"; 
 60005 PRINT"SAVE...UND EINIGE MEHR..." 
 60006 PRINT"{DOWN}MUSIK: NUN RUHEN ALLE WAELDER (J.S.BACH)" 
 60007 PRINT"{WHITE}THANKS TO PEANUTS SOFT....{SPACE,13SPACE}"; 
 60008 PRINT"GRUESSE AN ALLE SCHILDKROETEN & STUEMPER"; 
 60100 PRINT"{WHITE}VIEL GLUECK....";:RETURN 
 60110 GOSUB 1100:POKE VI+21,0:PRINTTN$:SYS 49408:PRINT"NOCH EIN VERSUCH (J/N) "; 
 60115 POKE 204,0:POKE 207,0:GET X$:IF X$="" THEN60115 
 60120 IF X$<>"J"AND X$<>"N" THEN60110 
 60130 IF X$="J" THENPOKE 204,1:POKE 207,0:SYS 49256:RUN 
 60140 SYS 49408:PRINT"THANKS FOR PLAYING.":FOR I=0 TO2000:NEXT :POKE 50000,0:SYS 50000 
 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