10 KEYOFF:SCREEN 1,0,0:WIDTH 32:VPOKE 8217,0:FOR Y=0 TO 22:LOCATE 0,Y:PRINT CHR$(203);:LOCATE 31,Y:PRINT CHR$(203);:NEXT Y:FOR X=0 TO 31:LOCATE X,0:PRINT CHR$(203);:LOCATE X,22:PRINT CHR$(203);:NEXT X:VPOKE 8217,24:VPOKE 8223,20:VPOKE 8216,31
20 X1=3:Y1=3:X2=29:Y2=19:N1=0:M1=1:N2=0:M2=-1:FOR C=0 TO 7:VPOKE 1720+C,VPEEK(1992+C):NEXT C:VPOKE 8221,169:FOR C=1 TO 15:A=INT(RND(1)*26)+3:B=INT(RND(1)*17)+3:LOCATE A,B:PRINT CHR$(203):NEXT C
30 IF STICK(0)=1 AND N1=0 THEN N1=N1-1:M1=0 ELSE IF STICK(0)=5 AND N1=0 THEN N1=N1+1:M1=0 ELSE IF STICK(0)=3 AND M1=0 THEN M1=M1+1:N1=0 ELSE IF STICK(0)=7 AND M1=0 THEN M1=M1-1:N1=0
40 IF J=7 THEN J=0:R=(INT(RND(1)*3)-1):IF N2=0 AND R<>0 THEN M2=0:N2=R:GOTO 60:ELSE IF M2=0 AND R<>0 THEN M2=R:N2=0:GOTO 50:ELSE GOTO 50:ELSE J=J+1
50 C1=VPEEK(6144+X2+M2+((Y2+N2)*32)):IF C1>200 AND M2<>0 THEN M2=0:C2=VPEEK(6144+X2+((Y2-1)*32)):IF C2>200 THEN N2=1:GOTO 70 ELSE N2=-1:GOTO 70
60 C1=VPEEK(6144+X2+M2+((Y2+N2)*32)):IF C1>200 AND N2<>0 THEN N2=0:C2=VPEEK(6144+X2-1+Y2*32):IF C2>200 THEN M2=1 ELSE M2=-1:GOTO 70
70 X1=X1+M1:Y1=Y1+N1:X2=X2+M2:Y2=Y2+N2:IF X1=X2 AND Y1=Y2 THEN A$="PERDISTE":LOCATE X1,Y1:PRINT CHR$(232):GOTO 100
80 IF VPEEK(6144+X1+(Y1*32))>200 THEN A$="PERDISTE":LOCATE X1,Y1:PRINT CHR$(232):GOTO 100:ELSE IF VPEEK(6144+X2+(Y2*32))>200 THEN A$="GANASTE":LOCATE X2,Y2:PRINT CHR$(232):GOTO 100:ELSE GOTO 90
90 LOCATE X1,Y1:PRINT CHR$(215):LOCATE X2,Y2:PRINT CHR$(249):GOTO 30
100 LOCATE 12,11:PRINT A$:LOCATE 7,12:PRINT "Otra partida (S/N)";:B$=INPUT$(1):IF B$="S" OR B$="s" THEN GOTO 10 ELSE IF B$="N" OR B$="n" THEN SCREEN 0:KEYON ELSE GOTO 100