Sheep Dog ?SHEEP DOG By Ian Wombwell Sinclair Programs, Jan 84 "SHEEP DOG" a(4):b(4):c(4):n=1 4:a(n)=(*31)+1:c(n)=0:b(n)=(*20)+1:n x=10 :y=10 ( t=0 2a$="" < l=3 Fb$="" P5"DO WANT PASTURE OR DESERT P/D";s$:s$="p"4 Zs$="d"6 _s$=""6 a 1: dn=0 7:q:"p"+n,q:n:0,10000000,10000100,11000111,01111111,01111100|,01000100D,01000100D nn=0 7:q:"o"+n,q:n:0,0,00000010,01111111,01111110~,01000100D,01000100D,01000100D xn=0 7:q:"i"+n,q:n:0,00000001,00100001!,11100011,11111110,00111110>,00100010",00100010" n=0 7:q:"u"+n,q:n:0,0,01000000@,11111110,01111110~,00100010",00100010",00100010" n=0 7:q:"t"+n,q:n:0,00000000,00000100,11000111,11111111,11111100,01000100D,01000100D 103g,88X:32 ,0:0,8:-32 ,0:0,-8:10 ,15;" ":120x,80P:0,8:128,80P:0,8 m0;0,0;"";6;0;0,24;"DOGS=" n=1 4 x,y;" " Q="7"x>1 a$="":x=x-1:.001wn,35#:.003xD,557 R="6"x<21 a$="":x=x+1:.001wn,25:.003xD,45- R="8"y<31 a$="":y=y+1:.001wn,15:.003xD,35# P="5"y>0 a$="":y=y-1:.001wn,5:.003xD,25 1;x,y;a$  c(n)=1 n<4 n  %c(n)=1 n4 710 b(n),a(n);" " >a(n)>y a(n)<21 a(n)=a(n)+1:b$="":350^ ">b(n)>x b(n)<21 b(n)=b(n)+1:b$="":350^ ,=b(n)1 b(n)=b(n)-1:b$="":350^ 6=a(n)0 a(n)=a(n)-1:b$="":350^ @"a(n)=0 a(n)=a(n)+1 J#a(n)=31 a(n)=a(n)-1 T#b(n)=21 b(n)=b(n)-1 Y"b(n)=1 b(n)=b(n)+1 ^0;b(n),a(n);b$ ha(n)=15 b(n)=11 c(n)=1:a(n)=n+12 :b(n)=10 :11 ,15;" ":b(n),a(n);"":.01z# =,10 :.005y# =,60<:.03{u\,20 |x=b(1) y=a(1) x=b(2) y=a(2) x=b(3) y=a(3) a(4)=y b(4)=x l=l-1:0,29+l;"":x=10 :y=10 :.1}L,-30:.05|L,0:.3,-10 :l0 900 n ƾ103g,88X:32 ,0:0,8:-32 ,0:0,-8:10 ,15;" ":120x,80P:0,8:128,80P:0,8 ym=1 4:c(m)=1 0;7;0,12 ;"SHEEP=";0,17+m;"":b(m),a(m);"" ]c(1)=1 c(2)=1 c(3)=1 c(4)=1 1000 m ;t=t+1:0;5;0,3;"TIME=";t  200  200 "10 ,10 ;"you're dead" 1;2;5;11 ,3;"Keep away from the sheep":70F:1;1;12 ,8;"PRESS ANY KEY":=""910  71;0;5;0,3;"TIME=";t g10 ,10 ;"Game Over";1;6;11 ,7;"YOU CAME ";(t/30);" PLACE" ?(t/25)3 b$="!!!EXCELLENT!!! 100%":1100L 6(t/25)4 b$="GREAT!! 80%":1100L 4(t/25)5 b$="GOOD! 70%":1100L 6(t/25)6 b$="AVERAGE 60%":1100L $3(t/25)7 b$="FAIR 45%":1100L .4(t/25)8 b$="SLOW! 30%":1100L 8?(t/25)10 b$="NOT AT ALL GOOD 20%":1100L B>(t/25)>10 b$="A LOAD OF !!!! 10%":1100L "7;2;"YOU ARE ";b$; n=1 21:5:18,15;"";18,13 ;"";18,17;"":.001wn,10 :.01z# =,20:5:18,15;"";18,13 ;"";18,17;"":.001wn,0:n 4"Another go Y/N";b$:b$="y" ?#a=0:b=502:c=-1 Ra/10000',b:a=a+1:(*7):a=20 a=10 :b=b+1 b=60< b=0  2200