10 MODE 1:CALL &BC02:DEFINT a-z:RANDOMIZE TIME:l=5:DEF FNk=TEST(x*16-8,(26-y)*16-8) 20 m=m+1:IF m>5 THEN LOCATE 5,1:PRINT"Gewonnen!":END ELSE h=0:CLG 1:WINDOW#1,2,39,2,23:PAPER 0:CLS#1 30 PEN 1:b=231:g=20+3*m:GOSUB 40:b=228:PEN 3:g=10+2*m:GOSUB 40:b=224:PEN 2:g=1:GOSUB 40:g=10+2*m:LOCATE 1,25:PRINT"L:";l;" P:";p:CLEAR INPUT:CALL &BB06:GOTO 70 40 FOR c=1 TO g 50 x=RND*38+2:y=RND*22+2:IF FNk=0 THEN LOCATE x,y:PRINT CHR$(b)ELSE 50 60 NEXT:RETURN 70 FOR c=1 TO 250-50*m:NEXT:IF JOY(0)=1 THEN DEF FNx=x:DEF FNy=y-1 ELSE IF JOY(0)=2 THEN DEF FNx=x:DEF FNy=y+1 ELSE IF JOY(0)=4 THEN DEF FNx=x-1:DEF FNy=y ELSE IF JOY(0)=8 THEN DEF FNx=x+1:DEF FNy=y 80 e=x:f=y:x=FNx:y=FNy:IF FNk=1 THEN l=l-1:LOCATE 3,25:PRINT l:SOUND 2,1500,20,,,,25:IF l<1 THEN LOCATE 5,1:PRINT"...und aus!":END ELSE x=e:y=f:CLEAR INPUT:CALL &BB06 90 IF FNk=3 THEN h=h+1:p=p+1:LOCATE 9,25:PRINT p:IF h=g THEN GOTO 20 100 LOCATE e,f:PRINT" ":LOCATE x,y:PRINT CHR$(224):GOTO 70