10 SCREEN1,2:CLEAR2000:GOSUB80:FOR N=40*8TO40*8+95:READ D:VPOKEN,D:NEXT:FORN=BASE(9)TOBASE(9)+127:READ D:VPOKEN,D:NEXT:RT=1:A$(1)=L$+M1$+"    ( ((  0  (    ( ((  (       ( ("+M$+M$+M$+M$+M1$+"   ,  ("+L$:F$="CONGRATULATIONS!YOU ARE FREE"
30 A$(2)=L$+M$+"(  (0  "+M2$+M1$+"(     ("+M1$+"(     ((   0  ((    ((  ((        ("+M1$+"    , ("+M$+L$:A$(3)=L$+"(  0       ( (( (( (     ( ((    (   (   ("+M1$+"  (   ((  (((       ((   (      0 ("+M1$+"   (((((     (     ,("+L$:COLOR 1,15,1:GOSUB 100
40 A=STICK(0):X=X-(A=3ANDSC$(Y,X)<>P$)+(A=7ANDSC$(Y,X-2)<>P$):Y=Y-(A=5ANDSC$(Y+1,X-1)<>P$)+(A=1ANDSC$(Y-1,X-1)<>P$):PUTSPRITE1,(x*16,y*16),1,0:PUTSPRITE0,(x*16,y*16),8,1:IF(AX=XANDAY=Y) GOTO40 ELSE SC=SC+1:DATA255,128,167,143,151,187,189,190,190,189,187
50 YY=EY:XX=EX:AX=X:AY=Y:DR=1:PS=0:IF SC$(Y,X-1)="," THEN P=P+1:LOCATE7,12:?"LEVEL COMPLETED":GOSUB 100:DATA151,143,167,128,255,255,1,229,241,233,221,189,125,125,189,221,233,241,229,1,255,255,128,255,128,128,181,165,178,165,165,181,128,128,255,128,255
55 IFPS<2 AND RT>=0THENEY=EY-(EY<YANDSC$(EY+1,EX-1)<>P$)+(EY>YANDSC$(EY-1,EX-1)<>P$):IF EY<>YY THEN PS=PS+1 ELSE IF PS<2 THEN EX=EX-(EX<XANDSC$(EY,EX)<>P$)+(EX>XANDSC$(EY,EX-2)<>P$):IF EX<>XX THENPS=PS+1:DATA255,1,255,1,1,93,9,73,73,73,73,1,1,255,1,255,0
60 PUTSPRITE2,(EX*16,EY*16),1,2:PUTSPRITE3,(EX*16,EY*16),2,3:RT=RT-5*(ABS(SC$(EY,EX-1)="0"ANDRT=1)):IFRT=-4THENPLAY"C":DATA0,7,24,39,95,191,255,255,255,127,63,31,7,0,0,0,0,224,24,228,250,253,255,255,255,254,252,248,224,0,0,31,40,80,166,166,164,144,81
70 IFPS<2AND(XX<>EX OR YY<>EY)THENYY=EY:XX=EX:GOTO55ELSERT=RT+1*(ABS(RT<1)):IF(EX=X AND EY=Y)THENSCREEN1:LOCATE5,10:?"GAMEOVER-SCORE:"+STR$(SC):FOR N=16TO239:COLOR,,N/15:NEXT:RUN:ELSE GOTO 40:DATA56,62,127,175,174,78,23,123,248,20,10,101,101
80 KEYOFF:SC=0:P=1:DIM SC$(13,13):DIM A$(5):P$="(":L$="((((((((((((((":M$="(            (":M1$="(      ":M2$="      (":RETURN:DATA37,9,138,28,124,254,117,117,242,232,222,0,7,1,17,17,17,15,14,7,1,0,64,65,1,0,0,0,224,128,136,136,136,240,112,224,128,0
100 IFP=4THENCLS:P=1:LOCATE0,10:?F$:GOTO30:ELSEFORN=256TO287:VPOKEN,0:NEXT:VPOKE8197,5:EX=13:EY=2:X=2:Y=2:N=1:FOR NY=1 TO 10:FOR NX=0 TO 13:C$=MID$(A$(P),N,1):SC$(NY,NX)=C$:M=ASC(C$):A=NX*2:B=NY*2:LOCATEA,B:?C$+CHR$(M+2):DATA130,130,0,0,0,15,16,36,66
140 LOCATE A,(B)+1:?CHR$(M+1)+CHR$(M+3):N=N+1:NEXT:NEXT:RETURN:DATA69,64,32,18,23,63,125,110,173,79,55,72,240,8,36,66,162,2,4,72,232,252,190,118,181,242,236,18,0,15,27,49,48,57,31,13,8,0,2,1,66,0,0,48,0,240,216,140,12,156,248,176,16,0,64,128,66,0,0,12