177 ON J GOTO 178,200,210,220,230,240,250,260,270,360,370,380,390,400,410,420,430,191,191,250,410,182,182,122,122,1240,1240,1270,1270,120,121,4990,4990,1350,1350,91,91,100,100,1443,1443,1950,1950,1959,1959
1959 GOSUB 1350:XD=479:IF POINT(X,Y)=7 THEN 1961 ELSE IF X=0 THEN 1966
1960 X=X-1:IF X>0 AND POINT(X,Y)=0 THEN 1960 ELSE IF X=0 THEN 1966
1961 IF POINT (X,Y)=0 THEN 1963 ELSE IF X+1>XD OR POINT(X+1,Y)=7 THEN 1967 ELSE GOSUB 1970:IF J<2 THEN 1969 ELSE Y=Y-1:IF POINT(X+1,Y)=7 THEN X=X+1 ELSE IF POINT(X,Y)=7 THEN 1962 ELSE IF POINT(X-1,Y)=7 THEN X=X-1 ELSE 1963
1962 IF Y=0 OR X=479 THEN 1968 ELSE IF X=0 THEN 1966 ELSE 1961
1963 IF X=0 THEN 1966 ELSE X=X-1:IF POINT(X,Y)=7 THEN 1961 ELSE IF POINT(X,Y+1)=0 THEN 1969 ELSE 1963
1966 GOSUB 1970:IF J<2 THEN 1969 ELSE IF Y=0 THEN 1968 ELSE Y=Y-1:IF POINT(0,Y)=0 THEN 1962 ELSE IF POINT(1,Y)=7 THEN X=1:GOTO 1962
1967 X=X+1:IF X<479 AND POINT(X,Y)=7 AND X<XD THEN 1967 ELSE IF X+1<XD AND POINT(X+1,Y)=0 THEN 1961 ELSE 1969
1968 GOSUB 91
1969 GOSUB 1340:RETURN
1970 K$=INKEY$:IF K$="" THEN 91 ELSE GOSUB 178:IF J<2 THEN RETURN ELSE 91
