Sheepdog Trials 233
190 LOCATE 11,6:PRINT CHR$(238);:LOCATE
21,6:PRINT CHR$(239);:LOCATE 11,11:PRINT
CHR$(240);:LOCATE 21,11:PRINT CHR$(241)
200 FOR X=0 TO 31 :LOCATE X+1,1:PRINT"_" ;:LOCATE X+1,22:PRINT CHR$(237);:NEXT 210 PEN 1:RETURN
220 T=T+1:REM PLAYER LOOP
230 GOSUB 150
240 SC=0:S(1,1)=3:S(1,2)=15:S(2,1)=3:S(2 ,2)=16:S(3,1)=4:S(3,2)=15:S(4,1)=4:S(4,2 )=16
250 LOCATE 3,24:PRINT CHR$(24);"PLAYER"; CHR$(24);T
260 GOTO 390
270 REM DOG MOVE
280 IF INKEY(67)=0 THEN 720
290 REM
300 LOCATE DY+1,DX+1:PRINT " ";
310 IF INKEY(8)=0 THEN LOCATE DY,DX+1:CA LL 360:LL=PEEK(367):IF LL=32 THEN DY=DY+ (DY>1):DD=2
320 IF INKEY(2)=0 THEN LOCATE DY+1,DX+2: CALL 360:LL=PEEK(367):IF LL=32 THEN DX=D X-(DX<21)
330 IF INKEY(0)=0 THEN LOCATE DY+1,DX:CA LL 360:LL=PEEK(367):IF LL=32 THEN DX=DX+ (DX>1)
340 IF INKEY(1)=0 THEN LOCATE DY+2,DX+1: CALL 360:LL=PEEK(367):IF LL=32 THEN DY=D Y-(DY<31):DD=1
350 PEN 3:IF DD=1 THEN LOCATE DY+1,DX+1: PRINT CHR$(231);
360 IF DD=2 THEN LOCATE DY+1,DX+1:PRINT CHR$(232);
370 PEN 1
380 RETURN
390 FOR Z=1 TO 4
400 SX=S(Z,1):SY=S(Z,2):REM SHEEP MOVE 410 GOSUB 270
420 IF RND>0.75 THEN 470
430 IF RND>0.5 THEN SX=S(Z,1)+R(2):GOTO 450
440 SX=S(Z,1)+R(1)