A=0:D=.08:E=1.2:S=-1600
2 RANDOMIZE TIMER:CLS:DIM Z(81,51):DEFINT M:M=2:DIM X(200),Y(200):X=1:Y=0
PLAY"T255L64":FOR I=1 TO M-1:X(I)=M:Y(I)=2:W=Y(I):V=X(I):Z(X(I),Y(I))=2
FOR I=1 TO 80:FOR II=1 TO 40:Z(I,II)=0:NEXT:NEXT:S=S+1500+A^3*1.8
VV=0:GOSUB 5:NEXT:SELECT CASE A
CASE 0
CASE 1:FOR I=20 TO 60:Z(I,20)=1:NEXT
CASE 2:FOR I=6 TO 34:Z(20,I)=1:Z(60,I)=1:NEXT
CASE 3:FOR I=10 TO 70:Z(I,15)=1:Z(I,25)=1:NEXT:FOR I=5 TO 18:Z(20,I)=1
 Z(20,I+15)=1:Z(60,I)=1:Z(60,I+17)=1:NEXT
CASE 4:FOR I=1 TO 13:Z(20,I)=1:Z(60,I)=1:NEXT:FOR I=0 TO 38:Z(I,16)=1
 Z(I+41,16)=1:NEXT:FOR I=10 TO 70:Z(I,33)=1:NEXT
CASE 5:FOR I=3 TO 37:Z(I,I)=1:Z(I+30,I)=1:NEXT
CASE 6:FOR II=1 TO 4:FOR I=1 TO 17:Z(II*20-10,I)=1:Z(II*20-10,41-I)=1
 Z(I+II*13,20)=1:NEXT:NEXT
CASE 7:FOR II=1 TO 3:FOR I=1 TO 17:Z(II*25-10,I)=1:Z(II*25-10,41-I)=1
 NEXT:NEXT:FOR I=1 TO 38:Z(I,20)=1:Z(I+41,20)=1:NEXT
CASE 8:FOR I=10 TO 30:Z(20,I)=1:Z(60,I)=1:NEXT:FOR I=1 TO 40 STEP 2
 Z(40,I)=1:NEXT
CASE 9:FOR II=1 TO 3:FOR I=1 TO 40 STEP 2:Z(20*II,I+II-1)=1:NEXT:NEXT
CASE 10:FOR II=1 TO 3:FOR I=1 TO 40 STEP 2:Z(20*II,I+II-1)=1:Z(I,10)=1
 Z(I+40,10)=1:NEXT:NEXT
CASE 11:FOR II=1 TO 40 STEP 5:FOR I=1 TO 80 STEP 5:Z(I,II)=1:NEXT:NEXT
CASE 12:FOR II=1 TO 14 STEP 2:FOR I=1 TO 79:Z(I,II+14)=1:NEXT:NEXT
 Z(10,15)=0:Z(40,17)=0:Z(70,19)=0:Z(70,21)=0:Z(10,23)=0:Z(40,25)=0:Z(10,27)=0
CASE 13:E=1.5:FOR I=22 TO 58:Z(I,3)=1:Z(I,37)=1:NEXT:FOR I=5 TO 35:Z(20,I)=1
 Z(60,I)=1:NEXT
CASE 14:E=1.2:FOR II=1 TO 40 STEP 4:FOR I=1 TO 80 STEP 4:Z(I,II)=1:NEXT:NEXT
CASE 15:FOR II=1 TO 40 STEP 3:FOR I=1 TO 80 STEP 3:Z(I,II)=1:NEXT:NEXT
CASE ELSE:FOR II=1 TO 40 STEP 2:FOR I=1 TO 80 STEP 2:Z(I,II)=1:NEXT:NEXT
END SELECT
FOR I=1 TO 79:Z(I,1)=1:Z(I,41)=1:NEXT
FOR I=1 TO 40:Z(1,I)=1:Z(79,I)=1:NEXT:FOR II=1 TO 41:FOR I=1 TO 79
IF Z(I,II)=1 THEN V=I:W=II:VV=0:GOSUB 5
NEXT:NEXT:GOSUB 4
3 DO:I$=INKEY$:IF I$=CHR$(0)+CHR$(75)THEN X=-1:Y=0
 IF I$=CHR$(0)+CHR$(77)THEN X=1:Y=0
 IF I$=CHR$(0)+CHR$(72)THEN Y=-1:X=0
 IF I$=CHR$(0)+CHR$(80)THEN Y=1:X=0
 IF Z(X(1)+X,Y(1)+Y)=1 THEN BEEP:END
 IF Z(X(1)+X,Y(1)+Y)=2 THEN BEEP:END
 IF Z(X(1)+X,Y(1)+Y)=3 THEN PLAY"T255L64O0CGEO1CGBB":GOSUB 4
 FOR I=M TO 1 STEP -1:X(I+1)=X(I):Y(I+1)=Y(I):NEXT:X(1)=X(1)+X:Y(1)=Y(1)+Y
 Z(X(1),Y(1))=2:Z(X(M),Y(M))=0:V=X(M):W=Y(M):VV=1:GOSUB 5:VV=0:V=X(1):W=Y(1)
 GOSUB 5:V=X(2):W=Y(2):GOSUB 5:DELAY D
 IF X(1)>78 OR X(1)<1 OR Y(1)>40 OR Y(1)<1 THEN BEEP:END
S=S-1:LOCATE 22,5:PRINT USING"LEVEL###";A;:PRINT USING"  SCORE######";S:LOOP
4 I=INT(78*RND)+1:II=INT(40*RND)+1:IF Z(I,II)<>0 THEN 4
Z=Z+1:M=(M*E)+1:IF Z>9 THEN PLAY"O0C>C>C>C>C>C>CB":A=A+1:Z=0:GOTO 2
Z(I,II)=3:V=I:W=II:VV=2:GOSUB 5:S=S+200+Z*15:RETURN
5 IF VV=0 OR VV=2 THEN W1$="ß":W2$="Ü":W3$="Û":W4$="Û" ELSE W1$=" ":W2$=" ":W3$="Ü":W4$="ß"
IF VV=2 THEN COLOR 23
VVV=INT(W/2)+1:LOCATE VVV,V+1:SELECT CASE (W/2)-INT(W/2):CASE 0:PRINT W1$;
IF W+1>0 AND Z(V,W+1)<>0 THEN LOCATE VVV,V+1:PRINT W3$
CASE .5:PRINT W2$;:IF Z(V,W-1)<>0 THEN LOCATE VVV,V+1:PRINT W4$
END SELECT:COLOR 7:RETURN