5 CLEAR 
10 MAP l"map.dat"
11 TLOAD 1,"font1.dat",16,11
12 STILE 1
15 PLAYER k(4,8,1,2,16)
20 MAP d
25 MAP w
30 SPRITE p(3,15,14,$56,250,0,3,13,24,8,13)
33 SPRITE p(1,15,14,$56,255,0,4,16,22,10,22)
35 PLAYER b(146,131,114,138,167,165,166,157,148,155)
50 PLAYER e(1,108,$56,$10,$20)
51 PLAYER e(3,108,$56,$10,$20)
52 PLAYER e(2,129,$0,$c0,$f0)
53 PLAYER e(4,129,$0,$c0,$f0)
55 PLAYER p(2,$56,250,0,10,10)
56 PLAYER i(42,47,103,125,0,0) 
57 t(1)=108:t(2)=129:t(3)=108:t(4)=129
58 h(1)=32:h(2)=240:h(3)=32:h(4)=240
59 f(1)=16:f(2)=$c0:f(3)=16:f(4)=$c0
60 r(1)=$56:r(2)=0:r(3)=$56:r(4)=0
63 SPRITE m(1)
65 SPRITE s(50) 
70 a=JOY (1)
75 x=GETX (2):y=GETY (2)
80 PLAYXY a
90 c=PLAYER (1)
96 GOSUB 500
97 b=PLAYER (2)
98 IF b>0 AND z(b)=0 THEN BEEP 
99 IF z(b)=0 THEN z(b)=b
100 IF c=1 THEN GOTO 200
120 GOTO 70
200 FOR i=1 TO 10
210 BEEP 90:PAUSE 10:BEEP 100
220 NEXT i
230 SPRITE m(2)
240 CLS 
250 GOTO 5
500 REM         items ersetzen
501 REM     
590 RETURN