1 PRINT"[147]":POKE53281,0:POKE53280,0
2 PRINT"[159]"
10 REM GEWEHRSCHUSS
20 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
30 FORX=15TO0STEP-1
40 POKEL,X:POKEA,15:POKEH,0:POKEFH,40:POKEFL,200:POKEW,129
50 NEXT
60 POKEW,0:POKEA,0
61 FORX=1TO300:NEXTX
62 PRINT"NA? HAST DU DEN SCHUSS GEHOERT?"
63 FORX=1TO999:NEXTX:PRINT:PRINT"MACHT NIX! DIESES SPIEL IST SOWIESO"
64 PRINT"FUER LEUTE, DIE DEN SCHUSS NICHT GEHOERT";
65 PRINT"HABEN."
66 PRINT"DRUECKE SPACE!"
67 GOSUB10000:PRINT"[150]ES BEGANN IM 30.STOCK!":GOSUB10000
68 PRINT"[147]"
69 PRINT"
70 [153]"
71 PRINT"
72 [153]"
73 PRINT"
74 [153]"
75 PRINT"
76 [153]"
77 PRINT"
78 [153]"
79 PRINT""
80 PRINT"            [194]
81 [153]"            PEEK
82 PRINT"            [194]
83 [153]"           OR>^
84 PRINT"          [176][177][195][177][174]
85 [153]"          PEEKLOGLOGLOGPEEK
86 PRINT"         [176][177][195][195][195][177][174]
87 [153]"         PEEKLOGLOG LOGLOGPEEK
88 PRINT"         [194][188][188] [188][188][194]
89 [153]"         PEEKLOGLOG LOGLOGPEEK
90 PRINT"         [194][188][188] [188][188][194]
91 [153]"         PEEKLOGLOG LOGLOGPEEK
92 PRINT"         [194][188][188] [188][188][194]
93 [153]"         PEEKLOGLOG LOGLOGPEEK
94 PRINT"         [194][188][188] [188][188][194]
95 [153]"         PEEKLOGLOG LOGLOGPEEK
96 PRINT"         [194][188][188] [188][188][194]
97 [153]"         PEEKLOGLOG LOGLOGPEEK
98 PRINT"         [194][188][188] [188][188][194]
99 [153]"         PEEKLOGLOG LOGLOGPEEK
100 PRINT"         [194][188][188] [188][188][194]
101 [153]"         PEEKLOGLOG LOGLOGPEEK
102 PRINT"         [194][188][188] [188][188][194]
103 [153]"         PEEKLOGLOG LOGLOGPEEK
104 PRINT"         [194][188][188] [188][188][194]
105 [153]"         PEEKLOGLOG LOGLOGPEEK
106 PRINT"         [194][188][188] [188][188][194]
107 [153]"         PEEKLOGLOG LOGLOGPEEK
108 PRINT"         [194][188][188] [188][188][194]
109 [153]"         PEEKLOGLOG LOGLOGPEEK
110 PRINT"        [176][177][195][195][195][195][195][177][174]
111 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
112 PRINT"        [194][188][188][188] [188][188][188][194]
113 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
114 PRINT"        [194][188][188][188] [188][188][188][194]
115 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
116 PRINT"        [194][188][188][188] [188][188][188][194]
117 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
118 PRINT"        [194][188][188][188] [188][188][188][194]
119 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
120 PRINT"        [194][188][188][188] [188][188][188][194]
121 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
122 PRINT"        [194][188][188][188] [188][188][188][194]
123 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
124 PRINT"        [194][188][188][188] [188][188][188][194]
125 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
126 PRINT"        [194][188][188][188] [188][188][188][194]
127 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
128 PRINT"        [194][188][188][188] [188][188][188][194]
129 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
130 PRINT"        [194][188][188][188] [188][188][188][194]
131 [153]"        PEEKLOGLOGLOG LOGLOGLOGPEEK
132 PRINT"        [194]  [176][178][174]  [194]
133 [153]"        PEEK  PEEKPEEKPEEK  PEEK
134 PRINT"[195][195][195][195][195][195][195][195][177][195][195][177][177][177][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
135 FORX=1TO500:NEXTX
136 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]AAAAH!"
137 FORX=1TO700:NEXTX
138 POKE1043,38:GOSUB20000
139 POKE1043,32:POKE1083,38:GOSUB20000
140 POKE1083,32:POKE1123,38:GOSUB20000
141 POKE1123,32:POKE1163,38:GOSUB20000
142 POKE1123,32:POKE1163,38:GOSUB20000
143 POKE1163,32:POKE1203,38:GOSUB20000
144 POKE1203,32:POKE1243,38:GOSUB20000
145 POKE1243,32:POKE1283,38:GOSUB20000
146 POKE1283,32:POKE1323,38:GOSUB20000
147 POKE1323,32:POKE1363,38:GOSUB20000
148 POKE1363,32:POKE1403,38:GOSUB20000
149 POKE1403,32:POKE1443,38:GOSUB20000
150 POKE1443,32:POKE1483,38:GOSUB20000
151 POKE1483,32:POKE1523,38:GOSUB20000
152 POKE1523,32:POKE1563,38:GOSUB20000
153 POKE1563,32:POKE1603,38:GOSUB20000
154 POKE1603,32:POKE1643,38:GOSUB20000
155 POKE1643,32:POKE1683,38:GOSUB20000
156 POKE1683,32:POKE1723,38:GOSUB20000
157 POKE1723,32:POKE1763,38:GOSUB20000
158 POKE1763,32:POKE1803,38:GOSUB20000
159 POKE1803,32:POKE1843,38:GOSUB20000
160 POKE1843,32:POKE1883,38:GOSUB20000
161 POKE1883,32:POKE1923,38:GOSUB20000
162 POKE1923,32:POKE1963,38:GOSUB20000
163 PRINTTAB(17)"MA&TSCH";
10000 GETA$:IFA$=""THEN10000
10001 RETURN
20000 FORX=1TO50:NEXTX
20001 RETURN