Angler 10|1# 9200# (G3:5:0::10 ,6;"Please wait a moment" -oy=15:l(y)=(y*8-7):r(y)=(y*8+14):p(x)=(171-8*x) 2&n=6500065159:a:n,a:n <14,8,229,17,31,0,25,126~,237,82R,31,6,32 ,126~,31,119w,35#,16,250,225,36$,13 ,32 ,234,201 F14,8,175,229,17,31,0,237,82R,126~,25,23,6,32 ,126~,23,119w,43+,16,250,225,36$,13 ,32 ,233,201 P33!,96`,64@,205,232,253,33!,159,64@,205,1,254,33!,160,64@,205,232,253 Z33!,223,64@,205,1,254,33!,224,64@,205,232,253,33!,31,72H,205,1,254,33!,32 ,72H,205,232,253 d33!,95_,72H,205,1,254,33!,96`,72H,205,232,253,33!,159,72H,205,1,254,33!,160,72H,205,232,253 n33!,223,72H,205,1,254,33!,224,72H,205,232,253,33!,31,80P,205,1,254,33!,32 ,80P,205,232,253 x33!,95_,80P,205,1,254,33!,96`,80P,205,232,253,33!,159,80P,205,1,254,201 n="a""u"+7:a:n,a:n 6,6,15,22,23,255,255,127,16,480,80P,144,16,255,255,254,16,16,16,16,16,16,16,16 16,16,16,44,,187,112p,0,0,0,0,94^,123{,127,94^,0,0,0,0,114r,222,254,114r,0,0 0,140,222,123{,127,222,140,0,0,491,123{,222,254,123{,491,0,0,252,182,191,127,124|,255,0 0,63?,110n,254,255,61=,255,0,0,255,170,170,85U,85U,255,0,0,243,191,190,94^,95_,243,0 0,207,250,122z,125},253,207,0,0,0,195,231,124|,127,228,195,480,60<,255,513,204,513,204,255 0,126~,239,255,255,192,213,255,162,226,79O,63?,255,159,168,84T,69E,71G,242,252,255,249,21,42* 0,126~,247,255,255,3,171,255,12 ,60<,255,204,513,204,513,255,0,0,195,231,62>,254,39',195 V:10 ,4;"Do you need instructions?";14,8;"(y)es (n)o" 0 ="y"300, ="n"500  230 ,-:1;0,10 ;"INSTRUCTIONS" 6''"You are an . You must try tocatch as many as possible. You may even catcha small ,but TAKE CARE!!!!!!You MUST AVOID catching a LARGE ,which will be DISASTROUS" @%'"You should AVOID catching sbecause they EAT your catch!!!!!If you can catch a YOUNG ,itwill EAT any s which you have CAUGHT. When the s have EATENALL OF YOUR CATCH,they will thenESCAPE,one-at-a-time. When ALLthe s have been EATEN,the will ESCAPE. " E""325E J?1;21,3;"PRESS ANY KEY TO CONTINUE." T00::1;0,13 ;"METHOD" h''" You will be invited to select the level of difficulty. Thisdetermines how close your hook must be to a fish to catch it. " rG''"You have only 100 casts,to catchas many fish as possible. " |''" You press 5 to move your boatLEFT,8 to move it RIGHT and ANYOTHER KEY to cast your line.Thehook will continue to drop untileither you RELEASE the key,the hook hits a fish,or it reaches the RIVER-BED. " ""385 ?1;21,3;"PRESS ANY KEY TO CONTINUE." 00::1;0,13 ;"SCORES" ''''"Each ....SCORES 5 POINTS" %'"Each ....SCORES 10 POINTS" %'"Each ....SCORES 50 POINTS" %'"Each ....SCORES 100 POINTS" %'"Each ..SCORES -1 on EACH CAST" %'"Each ..EATS 1 EACH CAST" ""465 ?1;21,3;"PRESS ANY KEY TO CONTINUE."  0 =:n$(16):1;"Your name? (max 16 letters) "'n$ n=1̱n$ n$(n)=" "530 -n$(n)<97aůn$(n)>122z500 n .q=n$(1):q=q-32 :n$(1)=q %q$(1):"Difficulty? 1-5 ";q$ q$>"0"q$<"6"544   541  d=q$ &J5:0::7;1;" " 01;''" " :1;" " D-0;" " N66;0;" " X6;3;" ";0;" ";3;" " bv6;2;" " lD7;0;"DIFF CASTS FISH " v y=15 3t=0:7;0;21,21;t 3c=0:7;0;21,25;c 3s=0:7;0;21,31;s 3cast=0:7;21,11 ;0 ?7;0;21,4;d:n=1200:n 65051  code= code=0700 ]code=535y>5y=y-1:7;1;0,y-1;" ":700 ^code=568y<267;1;0,y-1;" ":y=y+1:700 )code535code568720  700 "8;8;1,y;"" x=220 (65039+6*x) -8;8;x,y;"";x-1,y;"" (x+1,y)" "790 =""790  x  1000  r=x2-1 *-8;8;r,y;" ";r-1,y;"" 4(65039+6*r) >r H"8;8;1,y;" " R"c=0s>0s=s-1 \"t=0c>0c=c-1 fc>0c=c-s pt>0t=t-c zt<0t=0 c<0c=0 s<0s=0 ]7;0;21,18;" ";21,24;" ";21,30;" " ,21,22-t;7;0;t ,21,26-c;7;0;c ,21,32 -s;7;0;s >cast=cast+1:7;0;21,11 ;cast cast=100d3000  700 x>61100L $(x/2)10 1200 V$(x/2)12 1300 (r(y),p(x))=18;8;x,y+1;" ":c=c+1:.1}L,0:.1}L,-10 :.1}L,-20 ą(l(y),p(x))=18;8;x,y-3;" ":c=c+1:.1}L,0:.1}L,-10 :.1}L,-20  xx>141500 $(x/2)161600@ (r(y),p(x))=18;8;x,y+1;" ":c=c+1:.1}L,0:.1}L,-10 :.1}L,-20 (l(y),p(x))=18;8;x,y-3;" ":c=c+1:.1}L,0:.1}L,-10 :.1}L,-20  @x=171450 Jx=191700 T(r(y)-d,p(x))=18;8;x,y+1;" ":t=t+100d:s=s+1:.1}L,10 :.1}L,20:.1}L,30 ^ $(l(y),p(x))=12000  x=19:21004 7x=180-1:y=0:21004:x !t=0:c=0:s=0 X1;5,0;"SHAME!!!YOU HAVE LOST YOUR SCORE";21,18;"0000" n=1200:n  9000(# 42110>+y*10 >"8;2;x,0;"" H#8;2;x,0;"" R$8;2;x,0;"" \%8;2;x,0;"" f&8;2;x,0;"" p'8;2;x,0;"" z(8;2;x,0;""  y=8 <n=y-824:8;2;x,n;" ":n )8;2;x,25;" " (8;2;x,26;" " '8;2;x,27;" " &8;2;x,28;" " %8;2;x,29;" " $8;2;x,30;" " #8;2;x,31;" " ( #(ascore=t:7,11 ;1;"GAME OVER":n=1200:n:scores(d)9160# #2s7:0::0,0:0,175:255,0:0,-175:-255,0 #<1,4;"************************";2,4;"* CERTIFICATE OF MERIT *";3,4;"************************" #F?6,1;" This is to certify that ";8,((32 -n$)/2);n$;10 ,1;" has beaten the previous ";12 ,1;" HI-SCORE on level ";d;" of";14,((32 -g$)/2);g$;16,1;" with ";score;" POINTS.";20,11 ;"Signed: ZX Spectrum." #P"Printout? (y)es (n)o ? ";x$ #Zx$="y"9080x# #dx$="n"9090# #n 9040P# #x #s$(d)=n$:s(d)=score #:0,0:0,175:255,0:0,-175:-255,0:1,8;"****************";2,8;"* HALL OF FAME *";3,8;"****************";5,1;"DIFF. NAME SCORE ";6,1;"______________________________":n=1nd:7+n,2;n;7+n,7;s$(n);7+n,29-s(n);s(n):n:8+n,1;"______________________________" #"Printout? (y)es (n)o ? ";x$ #x$="y"9150# #x$="n"9155# # 9110# # #""9155# #420,1;"PRESS ANY KEY TO PLAY AGAIN..." #=n=040(5:.1}L,n:n:=""9170# #start # 9150# #start=220:nd=5:score=0:g$="ANGLER":s$(nd,16):s(nd):n=1nd:s$(n)="ZX SPECTRUM":s(n)=0:n # tarcoryaGANGLERUZX SPECTRUM ZX SPECTRUM ZX SPECTRUM ZX SPECTRUM ZX SPECTRUM