1 PRINT"[147][158] GEISTER-FAHRER [146]":PRINT"VON JOH. POLLMEIER":FORI=0TO1000:NEXT
2 V=53248:SI=54272:POKE53280,11:POKE53281,11:PRINT"[147]":POKE2041,13:POKE2042,13
3 FORG=0TO24:PRINT" [166][166][166]                       [166][166][166] ":NEXT:FORN=0TO62:READQ
4 POKE832+N,Q:NEXT:POKEV+21,6:POKEV+41,6:POKEV+5,90:POKEV+30,0:POKEV+31,0:S=20
5 I=INT(8*RND(1)):Y=INT(215-160*RND(1)):R=INT(15*RND(1)):POKEV+40,I
6 FORX=0TO230STEPR:POKEV+3,230-X:POKEV+2,Y:POKE56322,224:K=PEEK(56320)
7 POKE56322,255:IF(KAND4)=0THENS=S-1:GOTO9
8 IF(KAND8)=0THENS=S+1:GOTO9
9 POKEV+4,S*8:IFPEEK(V+30)=6THENGOSUB15:GOTO12
10 IFPEEK(V+31)=4THENGOSUB15:GOTO12
11 NEXTX:P=P+1:GOTO5
12 POKEV+21,0:PRINT"[150][147]BEIM [158]"P"[146][150]. AUTO TOTALSCHADEN"
13 PRINT"NOCHMAL? [158] J [146]":INPUTC$:IFC$="J"THENPOKE53280,0:POKE53281,0:RUN
14 PRINT"[154]            AUF WIEDERSEHEN [146]":POKE53280,14:POKE53281,6:END
15 FORT=0TO24:POKESI+T,0:NEXT:POKESI+24,15:POKESI+5,9:POKESI+1,20:POKESI+4,128
16 FORD=1TO5:NEXT:POKESI+4,129:F=1:W=1:FORH=1TO25
17 POKE53280,F:POKE53281,F:W=W*-1:F=F+W:NEXT:POKE53280,0:POKE53281,0:RETURN
18 DATA112,24,14,248,60,31,248,126,31,255,255,255,255,255,255,248,126,31,248
19 DATA126,31,112,255,14,0,231,0,0,195,0,0,195,0,0,195,0,0,231,0,112,255,14,248
20 DATA126,31,248,126,31,255,255,255,255,255,255,248,126,31,248,60,31,112,24,14