SHEEPDOG.CLiNSheepdog champion  S.Robert Speel 1982 )0:5:1::7000X f=111 2:(a(f)=6a(f)=7)a(f+1)>5a(f+1)<12 sx=1:ad=1:sy=0:a$(f)="7":a$(f+1)="0":g=15:.01z# =,10 -*g:g:1060$ :sy=(a(f)-y)ƽ(a(f+1)-x)<4ƽ(a(f)-y)<4 Bsx=(a(f+1)-x)ƽ(a(f)-y)<4ƽ(a(f+1)-x)<4 sx=sx+(*3)/2-.5:sy=sy+(*3)/-5:(a(f)=6a(f)=7)a(f+1)<14a(f+1)>10 sx=sx sx=sx+(a(f+1)<1)*2-(a(f+1)>29)*2-(a(f+1)>22a(f+1)<27(a(f)<9 a(f)>12 ))+(a(f+1)>25a(f+1)<27)*2 osy=sy+(a(f)<2)*2-(a(f)>19)*2+(a(f+1)>5a(f+1)<9 a(f)=9 ) $=(a(f)+sy,a(f+1)+sx)=96`sx=0:sy=0 .Ja(f)=a(f)+sy:a(f+1)=a(f+1)+sx:a(f)-sy,a(f+1)-sx;" " 8Cٰa$(f);a(f),a(f+1);146:ad8520H!:ad=0 Ba(2)>25a(4)>25a(6)>25a(8)>25a(10 )>25a(12 )>254000 .y-y1,x-x1;" ";0;y,x;(144+di) fx1=(="8")-(="5")+(x<1)-(x>23):y1=(="6")-(="7")+(y<1)-(y>20):di=(="5") /(y+y1,x+x1)=96`x1=0:y1=0 x=x+x1:y=y+y1 f:go=go+1 *0;0,27;(go*3) (go/10 =(go/10 )8510>! 1000 Q0:10 ,2;"YOU HAVE PENNED ALL";11 ,2;"THE SHEEP." 7sc=c():13 ,2;"YOU TOOK ";sc;" SECONDS." C0:f=-2525:.1}L,f:.1}L,25-f:f 8sd=0:f=16:sd=sd+a$(f*2):f 415,2;6-sd;" Sheep were cleaned" ,17,3;"Penalty = ";sd*25 sc=sc+25*sd =hs>schs=sc:18,1;"WELL DONE - A NEW RECORD!" %19,1;"TOP SCORE = ";hs )21,3;"ANOTHER GAME? (y/n)" "="y"4200h ,="n"5:5:: 6 4130" h8100:1000 X;" SHEEPDOG";2,1;"In this game you control a" b`"SHEEPDOG using KEYS 5,6,7 and 8.Your aim is to herd the 6 SHEEP into the field on the right." l<"However, the SHEEP are dirty and should first be driven " vT"through the railed SHEEPDIP. If you fail to dip the SHEEP you will be penalised." P" The aim is to get the flock dipped and penned in as short time as POSSIBLE." "''" (press ENTER to start.)":z$ @Df=03:g=07:a:(144+f)+g,a:g:f Jhs=500 ]a(12 ):a$(12 ):f=111 2:a(f)=8+f:a(f+1)=5 !a$(f)="6":a$(f+1)="1":f "x=1:y=1:di=0 $x1=0:y1=0:go=0  ad=0 a(mr33,nr)=(m+n+(m-n))/2:b()=(23672x\+256*23673y\+65536*23674z\)/502:c()=a(b(),b()) ?23672x\,0:23673y\,0:23674z\,0 !4|4:6::f=110 :rs=(*20):pr=15+(*8):0;1;rs,pr;147:f !>2:f=14:200+f*2+(f>2)*2,0:0,72H:4;0,32 :0,71G:f !Hq5;1;5,8;"###";6,8;" ";7,8;" ";8,8;"###": #(0,2,134,125},124|,194,129,0,0,64@,97a,190,62>,67C,129,0 #2I0,7,255,252,252,68D,68D,0 #