234 Sheepdog Trials
450 IF RND>0.5 THEN SY=S(Z,2)+R(2):GOTO 470
460 SY=S(Z,2)+R(1)
470 E=(ABS (DX-S(Z,1)))/10:F=(ABS (DY-S( Z,2)))/10:G=S(Z,1)-DX:H=S(Z,2)-DY
480 0=0:Q=RND:IF Q>E AND 0.>F THEN 0=1 490 IF G>0 AND 0=1 THEN SX=S(Z,1)+1
500 IF H>0 AND 0=1 THEN SY=S(Z,2)+1:RR=1 510 IF G<0 AND 0=1 THEN SX=S(Z,1)-1
520 IF H<0 AND 0=1 THEN SY=S(Z,2)-1:RR=2 530 LOCATE S(Z,2)+1,S(Z,1)+1:PRINT " "; 540 LOCATE SY+1,SX+1:CALL 360:LL=PEEK(36 7):IF LL<>32 THEN 560
550 S(Z,1)=SX:S(Z,2)=SY
560 IF RR=1 THEN LOCATE S(Z,2)+1,S(Z,1)+ 1:PRINT CHR$(233);
570 IF RR=2 THEN LOCATE S(Z,2)+1,S(Z,1)+ 1:PRINT CHR$(234);
5eo RR=INT(RND*2+1)
590 NEXT Z
600 SC=SC+1:LOCATE 20,24:PEN 3:PRINT CHR $(24);"SCORE:";CHR$(24);:PEN 1:PRINT 300 -SC;" ";:IF SC=300 THEN 720
610 GOTO 390
620 IF T<A THEN GOTO 220
630 CLS
640 LOCATE 13,1:PRINT"RESULTS";
650 PRINT:PRINT
660 FOR X= 1 TO A
670 PRINT TAB(9);"PLAYER";X;"	";PCX
6eo NEXT
690 LOCATE 5,24:PRINT CHR$(24);"PRESS AN Y KEY TO START";CHR$(24);
700 IF INKEY$<>"" THEN 700
710 IF INKEY$="" THEN 710 ELSE RUN
720 LOCATE 16,11:PEN 3:PRINT"	";:PEN 1
730 P(T)=300-SC
740 CHECK=0
750 FOR X=1 TO 4
760 IF S(X,1)>5 AND S(X,1)<10 AND S(X,2) >10 AND S(X,2)<20 THEN CHECK = CHECK +1 770 NEXT