Sheepdog TS7by Robert Erskine from an origial idea by Tom Hayward 6000p  5000 "How many players?";A (Qp(A):S(4,2):DX=15:DY=15:4:4:4: -O:DD=1:RR=1:R(2):R(1)=-1:R(2)=1 . 65A 2K:x=021:x,0;0;"";x,31;0;"":x 7@x=69 :0;x,10 ;"";x,20;"":x 8Ax=11 19:0;5,x;"";10 ,x;"_":x 9+4;4;10 ,15;" " :d0;5,10 ;"";5,20;"";10 ,10 ;"";10 ,20;"" .75@230 3>.5SX=S(z,1)+R(2):220 SX=S(z,1)+R(1) 3>.5SY=S(z,2)+R(2):230 SY=S(z,2)+R(1) dE=(DX-S(z,1))/10 :F=(DY-S(z,2))/10 :G=S(z,1)=DX:H=S(z,2)-DY $o=0:q=:q>Eq>Fo=1 .G>0o=1SX=S(z,1)+1 :H>0o=1SY=S(z,2)+1:RR=1 .G<0o=1SX=S(z,1)-1 :H<0o=1SY=S(z,2)-1:RR=2  S(z,1),S(z,2);" " "(SX,SY)36$3106 ,"S(z,1)=SX:S(z,2)=SY 6>RR=14;7;S(z,1),S(z,2);"" @>RR=24;7;S(z,1),S(z,2);"" JRR=(*2)+1 Tz ^jsc=sc+1:4;7;0,21;"Score ";150-sc;" ":sc=1503000 h 180 rt 1:1:1: *7:0,12 ;"RESULTS"::  x=1A #9 ;"Player ";x;" ";p(x) x ':4;"PRESS ANY KEY TO RESTART" =""2050  10 #0;10 ,15;"___" p(t)=150-sc check=0 x=14 mS(x,1)>5S(x,1)10 S(x,2)>10 S(x,2)<20check=check+1 x check<47;18,2;"You failed to pen the sheep";19,2;"Your score is zero":P(t)=0:check=0:4000 ]check=47;18,2;"Your score was ";P(t):check=0:4000 370r q=1400:q: 1:1:7: M1,8;"SHEEPDOG TRIALS";3,5;"@ Robert Erskine 1983" \5,0;"The object of the game is to ","herd all four sheep into the penwithin a fixed time limit by ","moving the dog using the arrow ","keys. When he sheep have been ","penned, close the gate with ","the 0 key and your score will ","be displayed. Less than four ","sheep in the pen, or running","over time, results in a zero ","score"   /"Any number of players can play ","in turn": #"Press any key to start":0  p:x="a""a"+87W zn:x,n x %0,0,2,135,126~,124|,230,149,0,0,64@,225,126~,62>,103g,169,0,0,0,6,127,254,126~,37%,0,0,0,96`,254,127,126~,164 1,1,1,1,1,1,1,1,128,128,128,128,128,128,128,128,255,0,0,0,0,0,0,0 %255,128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,255