Seed Catch=YSeed Catcher by K Brown from Sinclair User #22 (Jan'84) Catch the seeds in yourbasket before they spoil your crop. You can manage to carry only 10 at once, so you have to drop them quickly and return to your task. 2score=0:0::9300T$:9000(# /:"You scored ";score:see=0:100d .score=0:bonus=999:man=10 seed=(*31)  n=2 time=999 4:4:2: z=01 ~10 ,12 ,14,10 ,17,19,17,16,14,13 ,14,16,14,4 a=114:c:.02{# =,c:.02{# =,-c+17:.01z# =,c:.01z# =,-c+17:.01z# =,c:a:.01z# =,-c+17:.01z# =,-c+17 :27:z dH0,0;"Score=";score;0,11 ;"Bonus=";bonus;" "; e n20seed=(*31) f%0,23;"SEEDS=";see;" "; gB1,12 ;1;0;"TIME=";time;0;" "; htime=time-1 i5see10 see=10 :.01z# =,(*10 ) nbonus=bonus-1 otime09998' x;21,man;0;" ";20,man;0;" " ="z"man=man-1 ="x"man=man+1 man29man=29 man0man=0 ,*n,seed;6;"":20,seed;" " 6[n-1,0;" ":n=n+1:n=21n=2 ^20,seed;" " man+1=seedn=20score=score+10 :.01z# =,40(:.01z# =,30:.01z# =,20:.01z# =,10 :.01z# =,0:see=see+1:.01z# =,5 21,0;"(_)" &^man=1see=10 z=010 :.01z# =,z:z:score=score+bonus:see=0 @ 100d #(4:4:7: #2R7::0,0;1;1;" S E E D C A T C H E R " #FPa$=" You have to move from left to right trying to catch as many seeds as you can before your time runs out.When you have collected 10 seeds you have to go and put them in the tray at the side of the screen and then go and collect another 10.For every seed you catch you get 10 points" #KTb$="USE KEYS- Z TO GO LEFT X TO GO RIGHT" #P:1:a=1̱a$:ink=(*4):ink;a$(a);:a #UC0:a=1̱b$:ink=(*4):ink;b$(a);:a:1 #Z-#1;"GOOD LUCK.Press any key to start" #d 0 #n $T"a"+0,00000000 $^"a"+1,00000000 $h"a"+2,00000000 $r"a"+3,00000000 $|"a"+4,00011000 $"a"+5,01111110~ $"a"+6,00111100< $"a"+7,00111100< $"m"+0,00011000 $"m"+1,00011000 $"m"+2,01111110~ $"m"+3,01011010Z $"m"+4,01011010Z $"m"+5,00011000 $"m"+6,00100100$ $"m"+7,00100100$ %"s"+0,00000000 %&"s"+1,00000000 %0"s"+2,00011000 %:"s"+3,00111100< %D"s"+4,00111100< %N"s"+5,00111100< %X"s"+6,00111100< %b"s"+7,00011000 % 'D10 ,10 ;1;0;"GAME OVER":0:0 ' 4 r