10 CROFF 
15 PLAYER k(2,3,4,5,32)
20 COL 255,0,255:CLS 
30 TLOAD 1,"fontkc.dat",16,11
40 STILE 1
50 WAVE 1,1
60 ADSR 1,0,10,30,10
100 MAP w
110 k=8:s=1
200 #a=STRING$ (32,"-")
210 #a(1)=STRING$ (31,"-")
220 #a(2)=STRING$ (17,"-")
230 #a(3)=STRING$ (5,"-")
240 FONT #a(3),0,250,0,32,24
250 FONT #a,0,250,0,1,24
260 FONT #a(1),0,250,0,1,16
270 FONT #a(1),0,250,0,1,8
280 FONT #a(2),0,250,0,8,20
290 FONT #a(2),0,250,0,8,12
300 FOR i=15 TO 25
310 FONT "-",0,250,0,2,i
320 FONT "-",0,250,0,30,i
330 NEXT i
340 FOR i=7 TO 25
350 FONT "-",0,250,0,10,i
360 FONT "-",0,250,0,22,i
370 NEXT i
380 #a(4)="$-$"
390 #a(5)="$$$"
400 FONT "$",0,$e6,0,15,12:FONT "$",0,$e6,0,17,12
410 FONT #a(5),0,$e6,0,15,20
420 FONT "$",0,$e6,0,6,16
430 FONT "$",0,$e6,0,26,16
440 FONT "$",0,$e6,0,2,20
450 FONT "$",0,$e6,0,30,20
460 FOR i=0 TO 8
470 TILE 31,0,$80,0,16,i
480 NEXT i
490 FONT ">",0,$33,0,15,3
500 FONT "<",0,$33,0,17,3
510 PLAYER p(165,0,44,0,35,24)
520 PLAYER c(32,31,128,13,175,0)
530 PLAYER b(32,60,62,32,32,32,32,32,32,32)
535 PLAYER i(36,36,36,36,36,36)
540 SPRITE p(1,128,13,0,55,0,3,8,24,10,24)
550 SPRITE p(2,128,13,0,55,0,4,8,24,22,8)
551 FOR i=1 TO 6
552 PLAYER e(i,45,0,250,0)
553 NEXT i
560 SPRITE s(s)  
570 SPRITE m(1)
580 FONT "SPEED +/-:",0,44,0,1,1
600 a=INKEY 
601 x=GETX (2):y=GETY (2)
602 IF x=16 AND y=1 THEN GOTO 1300
604 PLAYXY a
605 b=PLAYER (1)
610 IF a=45 THEN s=s-1
611 IF s<1 THEN s=1
612 IF a=43 THEN s=s+1
613 IF s>255 THEN s=255
614 SPRITE s(s):#d=s:#d=#d+"-"
615 #s=#d+" "
619 IF a=43 OR a=45 THEN FONT #s,0,44,0,11,1
622 c=PLAYER (2)
623 IF c>0 THEN GOSUB 1000
630 IF b>0 THEN GOTO 800
640 GOTO 600
800 REM       Kollision mit Sprite
801 SPRITE m(0)
805 x=GETX (2):y=GETY (2)
810 FOR i=99 TO 10 STEP -5
811 TILE 165,255,0,255,x,y
820 BEEP i                   
821 TILE 165,0,44,0,x,y
830 NEXT i
840 SPRITE m(0)
845 CLS 
850 POS 8,15:PRINT "Du hast verloren!!!"
860 PAUSE 2000
870 SPRITE m(2)
880 MAP c
885 CLS 
886 a=INKEY :a=0
890 GOTO 100
1000 REM       item einsammeln
1010 NOTE 1,85:NTOFF 1
1015 PAUSE 80
1020 NOTE 1,95:NTOFF 1
1030 TILE 45,0,250,0,16,k
1040 k=k-1
1200 RETURN 
1300 REM   Level fertig
1310 NOTE 1,95:NTOFF 1:PAUSE 100
1320 NOTE 1,85:NTOFF 1:PAUSE 100
1330 NOTE 1,75:NTOFF 1:PAUSE 1000
1340 SPRITE m(0):CLS 
1350 GOTO 100