ZXTape! 2 Birds - Side APiper Books Ltd R.D. Holland1984English Educational7.95 ROM LoaderOriginal&TZXed by Andrew Barker For Steve Brown0 Bird Brainbb 446 gBIRDBRAIN  R.D. HOLLAND for CHALKSOFT LTD Published by PIPER BOOKS 1984 Version 21 07 84  64511 (&0:0:0:1: 2"" <#0;0,0;1;7;1;" ";1;"LOADING";0;" characters by MICROKRAFT" F)6:6:20,0;""; P"" Zy#0;0,0;6;6;1;" " _20,0;""; d"" p @  !  J @ !$  @A  !  AA@  𘈒 `x@ !  & @D  @B  ! BA `F`𘐑~~~~|~~~~~@~~~~~|~~~ @ !   @„   B  ! @B>|0yf`fffffH@`f`ff`f ` !  @C    D@ !  d y f|fffffD@~f|ff|f C@ !   @   @ !`!} f`f|~ff?D f`~|`f ?@@@  # @ !  !|a@DE@f`fffff8" ff`ff`f !?? @    ! @ !@@dNA@~f`~ff~~f" ~~`ff~~ !  $  `  !  A !@ ਈR@P@  8@nf|f ?8#~<<~|<ffl`|~fx~D`fffffl?<`fflfffflffffB@Hf~~~`fff~?NX 8|ff~  `f<|<fff``f`lffff`ffffn`ff<BD8880k  `Q|f~f``~~f@0|fv`~~`p`~|~~~f~x|`~`~f|~~f~~8< | ~`f 0f8ll8mf; 0 000 0 0~<~~ 0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|000ffff>fff<ckk6f<<~ 0~ p 001kFpl1,pl2:4,2:20,2:4,-2 $)pl2<524pl2=pl2+1:35# %pl2=100d &?pl1,pl2:16,10 :4,0:4,-3 '*pl2<104hpl2=pl2+1:38& ( 7 -0,0:0,175:255,0:0,-175:-255,0:0,47/:255,0:0,152:255,0 7 9950& 80:160,480:0,24:480,0:0,-24:224,480:0,24:24,0:0,-24:7: 9>="Y"Ŧ="y".05|L,0::inst=1:4000: :2="N"Ŧ="n".05|L,0::inst=0: ; 579 <group=1+(*5):13 ,28;" ":23674z\,0:23673y\,0:23672x\,0:y=12 :x=11 :5;15,7;" " >wgroup=19550N%:9950&:0;6;1,1;"BIRDS DESTROYED BY MAN p72-73":5000 @ogroup=29550N%:9950&:0;6;1,6;"BIRDS AT RISK p 74-75":5100 Btgroup=39550N%:9950&:0;6;1,3;"SURPRISING FACTS 1 p 76-83":5200P Dtgroup=49550N%:9950&:0;6;1,3;"SURPRISING FACTS 2 p 84-88":5300 Fkgroup=59550N%:9950&:0;6;1,7;"DINOSAURS p 68-71":5400 da$(6,17) ia$(1)="dodo" na$(2)="giant moa" sa$(3)="elephant bird" xa$(4)="great auk" } a$(5)="passenger pigeon" !a$(6)="Carolina parakeet" b$(8,18) !b$(1)="California condor" b$(2)="kagu" b$(3)="kakapos" "b$(4)="Jamaican tree duck" b$(5)="Kauai o-o" b$(6)="crested ibis" b$(7)="Hawaiian Goose" b$(8)="Audouin's gull" c$(7,17) c$(1)="Asian swift" c$(2)="whooper swan"  c$(3)="Andean condor" c$(4)="queleas" c$(5)="hill mynah" c$(6)="parrot" !c$(7)="poorwill nightjar" "d$(6,13 ) 'd$(1)="cattle egret" ,d$(2)="starling" 1d$(3)="frigatebird" 6d$(4)="house sparrow" ;d$(5)="oilbird" @d$(6)="hoatzin" Ee$(7,17) Je$(1)="Hesperornis" Oe$(2)="Ichthyornis" Te$(3)="Archaeopteryx" Ye$(4)="Diatryma" ^e$(5)="Phororhacos" ce$(6)="elephant bird" h e$(7)="Dinornis Maximus" m 'group=14100:3023 'group=24120:3023 'group=34140,:3023 'group=44160@:3023 'group=54180T:3023 ̵0;5;14,7;"WRONG!":502:sc=sc-1:9950&:.05|L,0:502:5;14,7;" ":5;y,x;" ":8055w Jgroup=1r<6grc<6r=r+1:9970&:6005u Hgroup=1r=6grc<6r=1:9970&:6005u Agroup=1grc>5sc=15:gp1=1:9950& Jgroup=2r<8grc<8r=r+1:9970&:6055 Hgroup=2r=8grc<8r=1:9970&:6055 Agroup=2grc>7sc=15:gp2=1:9950& Jgroup=3r<7grc<7r=r+1:9970&:6105 Hgroup=3r=7grc<7r=1:9970&:6105 4group=3grc>6sc=15:9950& Jgroup=4r<6grc<6r=r+1:9970&:6155  Hgroup=4r=6grc<6r=1:9970&:6155  4group=4grc>5sc=15:9950& Jgroup=5r<7grc<7r=r+1:9970&:6205= Hgroup=5r=7grc<7r=1:9970&:6205= 4group=5grc>6sc=15:9950& 8050r _0,0:0,175:255,0:0,-175:-255,0 _2,2:0,171:251,0:0,-171:-251,0 &2,8;"B I R D B R A I N" 364@,148:135,0:9980& \5,1;"This is a game which tests ";7,1;"and assists your memory." I9980&:100d:9 ,2;"It is a question and answer";11 ,1;"game. When you have completed";13 ,1;"all of the questions you may";15,1;"take the EXAMINATION.":9980&:100d:17,1;"A good score in the test will";19,1;"get you a CERTIFICATE." o9980&:100d:#0;" Press  SPACE  to turn page ":0:.05|L,0:4030 a:0,0:0,175:255,0:0,-175:-255,0 _2,2:0,171:251,0:0,-171:-251,0 66;2,9 ;"INSTRUCTIONS":9980& 5,1;"Over a roof-top will be a list";7,1;"of birds which are mentioned";9 ,1;"in the book.":9980&:200:9 ,14;"In a panel in the";11 ,1;"lower part of the screen there";13 ,1;"will be a description of one";15,1;"of these birds.":9980&:200:15,16;"You must decide";17,6;"which bird fits the";19,10 ;"description." P9980&:200:#0;" Press  SPACE  to turn page ":0 ?.05|L,0::6;2,9 ;"INSTRUCTIONS" _0,0:0,175:255,0:0,-175:-255,0 _2,2:0,171:251,0:0,-171:-251,0 9980&:5,1;"A little bird will fly past";7,1;"all the answers. You must wait";9 ,1;"until his beak touches the one";11 ,1;"you want.":9980&:200 Ѫ14,1;"When this happens";16,1;"press  ENTER .":9980&:200:#0;" Press  SPACE  to turn page ":9980&:0 t.05|L,0::0,0:0,175:255,0:0,-175:-255,0 _2,2:0,171:251,0:0,-171:-251,0 66;2,9 ;"INSTRUCTIONS":9980& 5,1;"You will be asked to identify";7,1;"ALL the birds in each group.":9980&:100d:9 ,1;"The number of correct answers";11 ,1;"is shown as a score on a bill-";13 ,1;"board on the roof.":9980&:100d:15,1;"You can also see how long it";17,1;"is taking you on this board." 9980&: 7group=1r=1ƪ(y,x+3)=k$4525  7group=1r=2ƪ(y,x+3)=k$4525  7group=1r=3ƪ(y,x+3)=k$4525  7group=1r=4ƪ(y,x+3)=k$4525 7group=1r=5ƪ(y,x+3)=k$4525 7group=1r=6ƪ(y,x+3)=k$4525  (y,x+3)=" "8055w  3020 7group=2r=1ƪ(y,x+4)=k$4525 7group=2r=2ƪ(y,x+4)=k$4525 7group=2r=3ƪ(y,x+4)=k$4525 7group=2r=4ƪ(y,x+4)=k$4525  7group=2r=5ƪ(y,x+4)=k$4525 "7group=2r=6ƪ(y,x+4)=k$4525 $7group=2r=7ƪ(y,x+4)=k$4525 &7group=2r=8ƪ(y,x+4)=k$4525 ' (y,x+4)=" "8055w ( 3020 ,7group=3r=1ƪ(y,x+3)=k$4525 .7group=3r=2ƪ(y,x+3)=k$4525 07group=3r=3ƪ(y,x+3)=k$4525 27group=3r=4ƪ(y,x+3)=k$4525 47group=3r=5ƪ(y,x+3)=k$4525 67group=3r=6ƪ(y,x+3)=k$4525 87group=3r=7ƪ(y,x+3)=k$4525 9 (y,x+3)=" "8055w : 3020 @7group=4r=1ƪ(y,x+2)=k$4525 B7group=4r=2ƪ(y,x+2)=k$4525 D7group=4r=3ƪ(y,x+2)=k$4525 H7group=4r=4ƪ(y,x+4)=k$4525 J7group=4r=5ƪ(y,x+2)=k$4525 L7group=4r=6ƪ(y,x+4)=k$4525 M (y,x+3)=" "8055w N 3020 T7group=5r=1ƪ(y,x+4)=k$4525 V7group=5r=2ƪ(y,x+4)=k$4525 X7group=5r=3ƪ(y,x+4)=k$4525 Z7group=5r=4ƪ(y,x+4)=k$4525 \7group=5r=5ƪ(y,x+4)=k$4525 ^7group=5r=6ƪ(y,x+4)=k$4525 `7group=5r=7ƪ(y,x+4)=k$4525 a (y,x+4)=" "8055w  3020  0;5;14,7;"CORRECT!":grc=grc+1:5;y,x+2;" ":.05|L,20:9970&:sc=sc+1:9950&:9500%:5;14,7;" ";y,x;" ":x=10 :y=10 :3023  ro=4 Bord=1+(*6):0;5;ro,13 ;a$(ord) A=ord:ro=ro+1 -ord=1+(*6):ord=A5005 (0;5;ro,13 ;a$(ord) B=ord:ro=ro+1 3ord=1+(*6):ord=Aord=B5011 (0;5;ro,13 ;a$(ord) C=ord:ro=ro+1 9ord=1+(*6):ord=Aord=Bord=C5021 (0;5;ro,13 ;a$(ord) D=ord:ro=ro+1 ?ord=1+(*6):ord=Aord=Bord=Cord=D5031 (0;5;ro,13 ;a$(ord) E=ord:ro=ro+1 Eord=1+(*6):ord=Aord=Bord=Cord=Dord=E5041 (0;5;ro,13 ;a$(ord)  6000p &ro=4:ord=1+(*8) (0;5;ro,13 ;b$(ord) A=ord:ro=ro+1 -ord=1+(*8):ord=A5107 (0;5;ro,13 ;b$(ord) B=ord:ro=ro+1 3ord=1+(*8):ord=Aord=B5111 (0;5;ro,13 ;b$(ord) C=ord:ro=ro+1 9ord=1+(*8):ord=Aord=Bord=C5117 (0;5;ro,13 ;b$(ord) D=ord:ro=ro+1 ?ord=1+(*8):ord=Aord=Bord=Cord=D5121 (0;5;ro,13 ;b$(ord)  E=ord:ro=ro+1  Eord=1+(*8):ord=Aord=Bord=Cord=Dord=E5131   (0;5;ro,13 ;b$(ord) F=ord:ro=ro+1 Kord=1+(*8):ord=Aord=Bord=Cord=Dord=Eord=F5141 (0;5;ro,13 ;b$(ord) G=ord:ro=ro+1 Qord=1+(*8):ord=Aord=Bord=Cord=Dord=Eord=Ford=G5151 !(0;5;ro,13 ;b$(ord) ( 6050 P&ord=1+(*7):ro=4 Q(0;5;ro,13 ;c$(ord) RA=ord:ro=ro+1 S-ord=1+(*7):ord=A5203S U(0;5;ro,13 ;c$(ord) VB=ord:ro=ro+1 W3ord=1+(*7):ord=Aord=B5207W Z(0;5;ro,13 ;c$(ord) [C=ord:ro=ro+1 \9ord=1+(*7):ord=Aord=Bord=C5212\ ](0;5;ro,13 ;c$(ord) _D=ord:ro=ro+1 `?ord=1+(*7):ord=Aord=Bord=Cord=D5216` a(0;5;ro,13 ;c$(ord) dE=ord:ro=ro+1 eEord=1+(*7):ord=Aord=Bord=Cord=Dord=E5221e f(0;5;ro,13 ;c$(ord) nF=ord:ro=ro+1 oKord=1+(*7):ord=Aord=Bord=Cord=Dord=Eord=F5231o p(0;5;ro,13 ;c$(ord)  6100 &ord=1+(*6):ro=4 (0;5;ro,13 ;d$(ord) A=ord:ro=ro+1 -ord=1+(*6):ord=A5310 (0;5;ro,13 ;d$(ord) B=ord:ro=ro+1 3ord=1+(*6):ord=Aord=B5313 (0;5;ro,13 ;d$(ord) C=ord:ro=ro+1 9ord=1+(*6):ord=Aord=Bord=C5323 (0;5;ro,13 ;d$(ord) D=ord:ro=ro+1 ?ord=1+(*6):ord=Aord=Bord=Cord=D5333 (0;5;ro,13 ;d$(ord) E=ord:ro=ro+1 Eord=1+(*6):ord=Aord=Bord=Cord=Dord=E5343 (0;5;ro,13 ;d$(ord)  6150 &ord=1+(*7):ro=4 (0;5;ro,13 ;e$(ord) A=ord:ro=ro+1 "-ord=1+(*7):ord=A5410" #(0;5;ro,13 ;e$(ord) $B=ord:ro=ro+1 ,3ord=1+(*7):ord=Aord=B5420, -(0;5;ro,13 ;e$(ord) .C=ord:ro=ro+1 69ord=1+(*7):ord=Aord=Bord=C54306 7(0;5;ro,13 ;e$(ord) 8D=ord:ro=ro+1 @?ord=1+(*7):ord=Aord=Bord=Cord=D5440@ A(0;5;ro,13 ;e$(ord) BE=ord:ro=ro+1 JEord=1+(*7):ord=Aord=Bord=Cord=Dord=E5450J K(0;5;ro,13 ;e$(ord) LF=ord:ro=ro+1 TKord=1+(*7):ord=Aord=Bord=Cord=Dord=Eord=F5460T U(0;5;ro,13 ;e$(ord) | 62008 p%r=1+(*6):bot=9 ur=117,1;"Found in Mauritius in 1598";18,1;"Destroyed within 1 century":502:k$="o":20,1;q$:8050r zr=217,1;"Extinct New Zealand bird;";18,1;"Killed by Maoris 600 years ago":502:k$="i":20,1;q$:8050r r=317,1;"Robbed of grazing land;";18,1;"Died out about 250 years ago":502:k$="l":20,1;q$:8050r r=417,1;"Last few stuffed by collectors";18,1;"Sailors killed millions":502:k$="r":20,1;q$:8050r r=517,1;"1800; they darkened the skies";18,1;"1915; farmers killed them all":502:k$="a":20,1;q$:8050r r=617,1;"Wiped out by farmers";18,1;"Last seen in the 1920s":502:k$="a":20,1;q$:8050r &r=1+(*8):bot=11 nr=117,1;"About 36 left in the wild":502:k$="l":20,1;q$:8050r r=217,1;"Found in New Caledonia";18,1;"Threatened by cats and dogs":502:k$="g":20,1;q$:8050r r=317,1;"New Zealand flightless parrot";18,1;"Threatened by stoats":502:k$="k":20,1;q$:8050r r=417,1;"West Indian";18,1;"Almost wiped out by mongooses":502:k$="m":20,1;q$:8050r r=517,1;"Hawiian";18,1;"About 10 left in 1980":502:k$="u":20,1;q$:8050r r=617,1;"Japanese";18,1;"Just a few left":502:k$="e":20,1;q$:8050r Őr=717,1;"Bred in captivity";18,1;"Saved from extinction":502:k$="w":20,1;q$:8050r ʚr=817,1;"Few hundred on Med. islands";18,1;"Saved from extinction":502:k$="d":20,1;q$:8050r &r=1+(*7):bot=10 ٓr=117,1;"Very fast bird";18,1;"Up to 170 Km/h are recorded":502:k$="s":20,1;q$:8050r ފr=217,1;"High-flyer";18,1;"Recorded at 8200m high":502:k$="h":20,1;q$:8050r r=317,1;"Lives a long time";18,1;"One in Moscow was 72 years old":502:k$="n":20,1;q$:8050r r=417,1;"Largest population";18,1;"Est. population of 9 billion":502:k$="u":20,1;q$:8050r r=517,1;"Best mimic";18,1;"Copies words, sentences,tunes":502:k$="i":20,1;q$:8050r r=617,1;"Largest vocabulary";18,1;"One knew 1000 different words":502:k$="a":20,1;q$:8050r r=717,1;"Survives longest without food";18,1;"Can hibernate in winter":502:k$="o":20,1;q$:8050r %r=1+(*6):bot=9  r=117,1;"Most widespread";18,1;"Has migrated to many countries":502:k$="c":20,1;q$:8050r r=217,1;"Pest. Damages buildings";18,1;"Artificially introduced to USA":502:k$="s":20,1;q$:8050r r=317,1;"Pirate. Robs birds in flight";18,1;"Also called Man-o-war":502:k$="f":20,1;q$:8050r r=417,1;"Pest and squatter";18,1;"Steals other birds' nests":502:k$="u":20,1;q$:8050r r=517,1;"Bat-like. Can fly in darkness";18,1;"Navigates by clicking sounds":502:k$="o":20,1;q$:8050r $r=617,1;"Living fossil?";18,1;"Chicks look like Archaeopteryx":502:k$="a":20,1;q$:8050r 8&r=1+(*7):bot=10 =r=117,1;"Flightless";18,1;"A diving bird":502:k$="s":20,1;q$:8050r Br=217,1;"Quite small";18,1;"Looked much like a tern":502:k$="h":20,1;q$:8050r Gr=317,1;"Name means ""Ancient wing""";18,1;"Gave rise to efficient flyers":502:k$="c":20,1;q$:8050r Lr=417,1;"American of 50M years ago";18,1;"Taller than a man":502:k$="a":20,1;q$:8050r Qr=517,1;"Very fierce";18,1;"Ate beasts as big as goats":502:k$="o":20,1;q$:8050r Vr=617,1;"Madagascan. 3 metres tall";18,1;"Weighed more than 6 men":502:k$="e":20,1;q$:8050r [r=717,1;"Greatest of the terrible birds";18,1;"Some were 4 metres tall":502:k$="n":20,1;q$:8050r X_0,0:0,175:255,0:0,-175:-255,0 ])grc=0:4,2;"You may now:";8,2;"1 Load 'BIRDLANDER'";10 ,2;"2 Try that group again";12 ,2;"3 Select another group";14,2;"4 Study a random group";16,2;"5 Apply to take Exam.";18,2;"6 Finish" b:25:#0;" Press  NUMBER  of your choice " g.=491.05|L,0::7064 l.=502.05|L,0::7100 q.=513.05|L,0::7150 v6=524.05|L,0::16:60< {.=535.05|L,0::7250R |.=546.05|L,0::7050  7015g U3,4;"YOU HAVE CHOSEN TO FINISH":32 ,140:198,0 C502:6;1;10 ,9 ;"ARE YOU SURE?" ]16,2;"Press N to return to menu";18,2;"Press Y to finish" .="n"Ŧ="N".05|L,0::7000X .="y"Ŧ="Y".05|L,0::7062  7056 8,0;"'BIRDBRAIN'";10 ,0;" R.D. HOLland";12 ,0;"for CHALKSOFT Ltd.";14,0;"Published by PIPER BOOKS 1984":500: [1;4,9 ;"START THE TAPE":.75@,-25:1:1:"" group=group:7172 _0,0:0,175:255,0:0,-175:-255,0 c2,8;"GROUPS AVAILABLE":64@,150:128,0:9980&:100d 6,2;"1 Birds destroyed by man";8,2;"2 Birds at risk";10 ,2;"3 Surprising facts #1";12 ,2;"4 Surprising facts #2";14,2;"5 Dinosaurs":9980& `502:17,4;"Press no. of your choice";19,14;"or":9980& 1#0;" Press  SPACE  to return to menu" ==491.05|L,0::group=1:7172 ==502.05|L,0::group=2:7172 ==513.05|L,0::group=3:7172 ==524.05|L,0::group=4:7172 ==535.05|L,0::group=5:7172 .=32 .05|L,0::7000X  7158 sc=0:16:13 ,28;" ":23674z\,0:23673y\,0:23672x\,0:y=14:x=3:5;15,7;" ":0;5;y,x;"";y-1,x;"":62> R7251S:7256X S5:0,0:0,175:255,0:0,-175:-255,0:9980&:2,2:0,171:251,0:0,-171:-251,0:502:9980& Tt4,4:0,167:247,0:0,-167:-247,0:9980&:7 Vq1,15;"":6;3,5;"THE PIPER ORNITHOLOGY";5,11 ;"EXAMINATION": X]10 ,6;"Entry Qualifications:":480,86V:164,0:9980& Z+14,1;"(1) Your best TIME must be";15,5;"no more than 40;":502:9980&:17,1;"(2) You must successfully";18,5;"complete 3 different";19,5;"groups.":#0;6;0;" Press  SPACE  to continue ":0 \?bt1>40(100d::6,0;"SORRY.":1,-10 :502:11 ,0;"Your LOWEST TIME so far is";13 ,0;bt1:100d:16,0;"You must get 40 or lower.";18,0;"TRY AGAIN.":#0;"Press  SPACE  to continue":0::7000X ]1gp1=0gp2=0gp3=07274j ^1gp1=0gp2=0gp4=07274j _1gp1=0gp2=0gp5=07274j `1gp1=0gp3=0gp4=07274j a1gp1=0gp3=0gp5=07274j b1gp1=0gp4=0gp5=07274j c1gp2=0gp3=0gp4=07274j d1gp2=0gp3=0gp5=07274j e1gp2=0gp4=0gp5=07274j f1gp3=0gp4=0gp5=07274j i~100d::11 ,12 ;" WELL DONE ! ":9980&:9980&:9980&:9980&:100d::7275k j:6,0;"SORRY":1,-20:11 ,1;"You haven't completed 3 groups.";14,1;"Go back and try another group.":#0;6;0;"Press  SPACE  to return to menu":0::7000X k:7251S l#6,1;"The rules:" n8,1;"(1) You must answer";9 ,5;"ALL 20 questions;":9980&:100d:11 ,1;"(2) You must spell the birds'" p12 ,5;"names exactly as they";13 ,5;"appeared in the game,";14,5;"including capital letters";15,5;"and spaces.":9980&:100d q_17,1;"(3) Press ENTER to 'pass'";18,5;"questions you can't do." r#0;7;2;"  GOOD LUCK!  "::200:n=23264Z23296[:n,9 :n:#0;1,0;0;7;" Press  SPACE  to start ":0:9980&:9980&:502: s:"Please type your first name"';n$:n$=""7283s tdn$(1)>96`Ưn$(1)<123{n$(1)=(n$(1)-32 )+n$(2̱n$) u+"Type today's date, eg 10 12 84 ";x$ vx$=""7285u wl7251S:480,118v:170,0:0,-24:-170,0:0,24 x6,2;"QUESTION" y480,546:0,24:112p,0:0,-24:-112p,0:0,24:11 ,2;"ANSWER" zz184,546:0,24:38&,0:0,-24:-38&,0:11 ,23;"Marks" |480,20:0,16:170,0:0,-16:-170,0:16,2;"Name and date"  Lq(24):N=124:q(N)=0:n:num=1:tsc=0 5rt=1+(*24):q(rt)=17299 )q(rt)=1:num=217410 P8,2;num:rt=18,7;"Fastest bird?":ma=1 ;rt=28,7;"Highest flyer?":ma=2 =rt=38,7;"Greatest number?":ma=3 <rt=48,7;"Greatest mimic?":ma=4 ;rt=58,7;"Longest lived?":ma=5 >rt=68,7;"Knows most words?":ma=6 =rt=78,7;"Squatter & pest?":ma=7 =rt=88,7;"Most widespread?":ma=8 =rt=9 8,7;"Can fly in dark?":ma=9 =rt=10 8,7;"Living fossil?":ma=10 Art=11 8,7;"Extinct Mauritian?":ma=11 @rt=12 8,7;"Killed by Maoris?":ma=12 Art=13 8,7;"Killed by sailors?":ma=13 Brt=148,7;"Extinct Madagascan?":ma=14 Art=158,7;"Fears cats & dogs?":ma=15 6rt=168,7;"Pirate?":ma=16 =rt=178,7;"Rare Japanese?":ma=17 Brt=188,7;"Grounded NZ parrot?":ma=18 Crt=198,7;"Few on Med. islands?":ma=19 Brt=208,7;"Flightless, diving?":ma=20 Brt=218,7;"Extinct, tern-like?":ma=21 Brt=228,7;"Extinct goat-eater?":ma=22 Brt=238,7;"Saved by captivity?":ma=23 Art=248,7;"Introduced to USA?":ma=24 +z$:z$=""w$=" ":7355  FF=0 N=1̱z$ z$(N)=" "FF=FF+1 z$(N)" "7331 N  BB=0 N=z$1-1 z$(N)=" "BB=BB+1 "z$(N)" "N=1:7336 N z$=z$(FF+1̱z$-BB) >w$=z$:y$="":N=113 -w$:y$=y$+" ":N:w$=y$+w$ N Rma=113 ,7;w$(13 ):z$+" "=c$(1)7400 Qma=213 ,7;w$(13 ):z$+" "=c$(2)7400 Vma=313 ,7;w$(13 ):z$+" "=c$(4)7400 Sma=413 ,7;w$(13 ):z$+" "=c$(5)7400 Pma=513 ,7;w$(13 ):z$+" "=c$(3)7400 Wma=613 ,7;w$(13 ):z$+" "=c$(6)7400 Ima=713 ,7;w$(13 ):z$=d$(4)7400 Mma=813 ,7;w$(13 ):z$+" "=d$(1)7400 Rma=9 13 ,7;w$(13 ):z$+" "=d$(5)7400 Sma=10 13 ,7;w$(13 ):z$+" "=d$(6)7400 Zma=11 13 ,7;w$(13 ):z$+" "=a$(1)7400 Uma=12 13 ,7;w$(13 ):z$+" "=a$(2)7400 Uma=13 13 ,7;w$(13 ):z$+" "=a$(4)7400 Qma=1413 ,7;w$(13 ):z$+" "=a$(3)7400 [ma=1513 ,7;w$(13 ):z$+" "=b$(2)7400 Oma=1613 ,7;w$(13 ):z$+" "=d$(3)7400 Sma=1713 ,7;w$(13 ):z$+" "=b$(6)7400 Xma=1813 ,7;w$(13 ):z$+" "=b$(3)7400 Sma=1913 ,7;w$(13 ):z$+" "=b$(8)7400 Sma=2013 ,7;w$(13 ):z$+" "=e$(1)7400 Sma=2113 ,7;w$(13 ):z$+" "=e$(2)7400 Sma=2213 ,7;w$(13 ):z$+" "=e$(5)7400 Rma=2313 ,7;w$(13 ):z$+" "=b$(7)7400 Rma=2413 ,7;w$(13 ):z$+" "=d$(2)7400 ӆ.1}L,-10 :num=num+1:502:8,7;" ";13 ,7;" ":7299  9980& tsc=tsc+1:13 ,24;tsc:8,7;" ";13 ,7;" ":num=num+1  7299 100d::7251S:11 ,2;"PLEASE WAIT WHILE YOUR";13 ,2;"EXAM. RESULTS ARE CHECKED.":9980&:300, tsc5:11 ,2;"You obtained ";tsc;" marks":502:13 ,2;"This is below the passmark.";20,2;"You need to try again.":#0;" Press  SPACE  to continue":0:.1}L,-10 ::7000X Dtsc>5tsc<10 :11 ,2;"You obtained ";tsc;" marks":502:13 ,2;"This is quite good but does";15,2;"not quite merit an award.";17,2;"You need a little more";19,2;"practice.":#0;" Press  SPACE  to continue ":0::7000X tsc10 tsc<15:11 ,2;"You obtained ";tsc;" marks.";13 ,2;"A VERY GOOD RESULT.";#0;" Press  SPACE  for CERTIFICATE":0::7421 tsc15tsc<18:11 ,2;"You obtained ";tsc;" marks.";13 ,2;"AN EXTREMELY GOOD RESULT.";#0;" Press  SPACE  for CERTIFICATE":0::7422 tsc18:11 ,2;"You obtained ";tsc;" marks.";13 ,2;"AN EXCELLENT RESULT!";#0;" Press  SPACE  for CERTIFICATE":0::7423 s$="C":7424 s$="B":7424 s$="A (HONOURS)" Qn=1312:1;4;0,n;"";21,n;"":n Qn=0302:5;1;0,n;"";21,n;"":n In=021:1;5;n,0;"#";n,31;"#":n a10 ,10 :0,155:235,0:0,-155:-235,0 o2,12 ;"Official";3,8;"PIPER ORNITHOLOGY";4,4;"COMPUTERISED EXAMINATION" '100d,130:557,0 -7,4;"This is to certify that;" 5;7;9 ,2;"";10 ,2;"";10 ,28;"";11 ,2;"":10 ,15-(n$/2);n$  13 ,2;"Has today ";x$;14,2;"satisfied the computer by";15,2;"obtaining high marks in the";16,2;"above named examination.";18,2;"Grade ";s$  mid=10  !2;225,32 ,mid  *mid>1mid=mid-1:7435   k2;19,28;"":1;2;7;17,28;"";18,28;"" J100d:#0;1;" Print this? Y or N " m="y"Ŧ="Y".05|L,0::100d:65000,n$(1):65051,x$(1):7439 m="n"Ŧ="N".05|L,0:100d::65000,n$(1):65001,x$(1):7000X  7439 K Lgroup=1gp1=1 Ngroup=2gp2=1 Pgroup=3gp3=1 Rgroup=4gp4=1 Tgroup=5gp5=1 V rx=11 :y=9 w0;5;y,x;"":.001wn,502:0;5;y,x;"":.001wn,45-:9970&:5;y,x;" " |=13 3000 $y>4y=y-1:8055w 0;5;y,x;"":.001wn,502:0;5;y,x;"":.001wn,45-:9970&:5;y,x;" " =13 3000  ykKS nBIRDLANDER  RD Holland for CHALKSOFT Ltd Pub. by PIPER Books1984 Version 23 07 84  55039 &0:0:0:0: ("" ))n=23232Z23296[:n,9 :n -5:5 215,0;"" <"" F15,0;"" P"" [[)pic @ y? ?~0 A@3A|xf~`~~x? ~~| ?~f~`f~~~~`~x8 @ `0$$@;w]flff`ffl?`ffP?fff`n`f``l  Ppx@|"PsQff~f`fff? ~|ff?`~f`x~f|(`f Bxp8 0p<q~]|fff`~ff?P?`f|?`f~`lf`@`fÎ<p8hxp?Aflff`ffl ??`ff?fff`nff` 1`l Îp8?@~Jhpx(?fxf~~fx`??`~fA?~ff~f~~` -@A~x2@p8 (p0? ~? ?0"@A @sh(p7c0g@< <E@E`P0?@@|~@<BB ~`f 0f8ll8mf; 0 000 0 0~<~~ 0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|000ffff>fff<ckk6f<<~ 0~ p 001kF60.9s in;pa;0,25;"TIME=";T:T60<1;3,10 ;0;7;"TIME IS UP!":n=15:.1}L,15+n:2,-25 (T<10 0,31;pa;" "  236077\,214:m(xU,yUz)=(x+y+(x-y))/2:u()=(65536*23674z\+256*23673y\+23672x\)/502:t()=m(u(),u()) eup=0:1:1:7::ct=0:help=195:Help=195:HELP=195 }ch=0:dir=0:nnn=5:qualify=25:pass=0:MAX=0:start=1:maze=0:500: 1:0:  100d )rh=1+(*100d):rh>5  1755 56000:ct=ct+1 ct<32 24:  Z6;1,10 ;"BIRDLANDER":80P,159:80P,0:180 Ln=35:0;n,1;" ":n (6;0;3,1;"A number of migrating birds";4,1;"are flying over a town looking";5,1;"for somewhere to rest.":180:100d )Mn=812 :2;n,1;" ":n *7;2;8,1;"You must land as many birds as";9 ,1;"you can in 1 minute. Each bird";10 ,1;"must land on its favourite";11 ,1;"perch. If it doesn't, you lose";12 ,1;"points.":180 +Nn=1518:4;n,1;" ":n ,0;4;15,1;"You can find out which perches";16,1;"different birds prefer by";17,1;"reading pages 55-57 of the";18,1;"BIRDS Factbook." -g#0;" Press  SPACE  key":180:0:.05|L,0:ct=0:24: /Nn=02:6;n,0;" ":n 4J0;6;0,0;" The name of the bird will be ";1,0;" flashed up at the top of the ";2,0;" screen. ";4,0;7;0;" You need at least ";qualify;" points to ";5,0;" win the the password. ":180:100d 59 ,12 ;"Q";9 ,15;"W";9 ,18;"E";11 ,13 ;"A";11 ,16;"S";11 ,19;"D";13 ,14;"Z";13 ,17;"X";13 ,20;"C" 694^,104h:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 7118v,104h:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 8142,104h:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 9102f,88X:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 :126~,88X:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 ;150,88X:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 <110n,72H:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 =134,72H:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 >158,72H:1,1:9 ,0:1,-1:0,-9 :-1,-1:-9 ,0:-1,1:0,8 ?92\,106j:-10 ,10 :0,-4:0,4:4,0:124|,107k:0,10 :3,-3:-3,3:-3,-3 @154,106j:10 ,10 :0,-4:0,4:-4,0:99c,84T:-12 ,0:3,-3:-3,3:3,3 A164,84T:12 ,0:-3,-3:3,3:-3,3:171,61=:10 ,-10 :0,4:0,-4:-4,0 B140,60<:0,-10 :3,3:-3,-3:-3,3:108l,61=:-10 ,-10 :0,3:0,-3:3,0 MJn=1720:6;n,3;" ":n N0;6;17,0;" To steer the bird use the ";18,0;" Q,W,E,A,D,Z,X,C keys as ";19,0;" shown above. Press ""S"" to ";20,0;" settle when above a perch. ";21,0;" Press ""M"" for menu ":180:#0;" Press  SPACE  to continue":0:.05|L,0:100d P.ct=0:24::180:195 d"sc=0:101e:110n e|1:0:7::0,0:255,0:0,175:-255,0:0,-175 fZn=1192:0;6;1;n,1;"";n,30;"":n gZn=2202:6;0;1;n,1;"";n,30;"":n hZn=1292:0;6;1;1,n;"";20,n;"":n iZn=2302:6;0;1;1,n;"";20,n;"":n m nJ4,4;"DO YOU WANT TO":32 ,135:112p,0 p8,4;"1 Leave this game";10 ,4;"2 Read instructions";12 ,4;"3 Play 'BIRDLANDER'";17,4;"Press a  NUMBER " q9maze=114,4;"4 Try for password" r(="1".05|L,0::5510 tA="2".05|L,0:1:7:1::30 vz="3".05|L,0::r=0:in=0:pa=5:num=0:sc=0:y=28:x=2:195 wBmaze=1="4".05|L,0::5900 :3000 x 114r 7:7:0::10 ,0;"'BIRDLANDER'";12 ,0;" Bob Holland";14,0;"For CHALKSOFT Ltd";16,0;"Published by PIPER Books 1984":500: /n=40(60<2:.01z# =,n:n: 1:5: D1:5::n=817:3;n,2;"":n r1:15,24:0,80P:9 ,0:0,-80P:17,3;"":7 ͵1;8,2;"";17,0;"";17,19;"";16,1;"";16,10 ;"";16,30;"" 6n=1417:1;n,22;"":n ׊1;15,3;"";16,9 ;"";16,12 ;"";16,19;"";16,27;"" 1n=11 15:1;n,8;"":n 71;13 ,24;"";15,3;"" Pn=1819:1;n,0;" ":n Pn=2021:4;n,0;" ":n 1000:0,25;"TIME=";0,0;"SCORE= ";sc;0,12 ;"HI-SCORE=";MAX:2;1,0;" " .r=1+(*5):r>5230 H7;2;1,19-(b$(r)/2);b$(r):9840p& .r=1+(*5):r>5247 ]7;2;1,19-(b$(r)/2);b$(r):0,7;sc:9850z& Bin=2:sum=1:sp=0:7:1:1: sac=1+(*12 ):1;1;in;9 ;sp,ac;" STOP THE TAPE ":in=in+1:.05|L,sum in7in=2  sp=sp+2:sum=sum+1 sum<12 505 85004!: oba=152:obu=32 $1:oba,obu:0,62> ,oba>136oba=oba-2:1010 oba,obu:16,0 +obu<92\obu=obu+4:1014 '152,95_:-16,0  0: L6(x+1,y)=41)num=num+1:1110V Q%(x+1,y)41)9850z& VSr=1x=7y=21500:sc=sc+10 :r=r+1:247 WSr=1x=10 y=81500:sc=sc+8:r=r*1:247 [r=1sc>3.05|L,-10 :sc=sc-3:num=num-1:0,7;" ":0,7;sc:9850z& \r=1sc3.05|L,-10 :sc=0:num=num-1:0,7;" ":0,7;sc:9850z& `Tr=2x=13 y=22sc=sc+3:r=r+1:1500:207 aTr=2x=13 y=23sc=sc+3:r=r+1:1500:247 bTr=2x=13 y=25sc=sc+3:r=r+1:1500:247 cTr=2x=13 y=261500:sc=sc+3:r=r+1:247 eTr=2x=12 y=241500:sc=sc+3:r=r+1:247 fr=2sc>3.05|L,-10 :sc=sc-3:num=num-1:0,7;" ":0,7;sc:9850z& gr=2sc3.05|L,-10 :sc=0:num=num-1:0,7;" ":0,7;sc:9850z& jSr=3x=9 y=171500:sc=sc+5:r=r+1:247 kSr=3x=9 y=181500:sc=sc+5:r=r+1:247 or=3sc>3.05|L,-10 :sc=sc-3:num=num-1:0,7;" ":0,7;sc:9850z& pr=3sc3.05|L,-10 :sc=0:num=num-1:0,7;" ":0,7;sc:9850z& uTr=4x=13 y=221500:sc=sc+3:r=r+1:247 vTr=4x=13 y=231500:sc=sc+3:r=r+1:247 wTr=4x=13 y=251500:sc=sc+3:r=r+1:247 xTr=4x=13 y=261500:sc=sc+3:r=r+1:247 yTr=4x=12 y=241500:sc=sc+3:r=r+1:247 zr=4sc>3.05|L,-10 :sc=sc-3:num=num-1:0,7;" ":0,7;sc:9850z& {r=4sc3.05|L,-10 :sc=0:num=num-1:0,7;" ":0,7;sc:9850z& Tr=5x=15y=11500:sc=sc+10 :r=r+1:247 Tr=5x=15y=10 1500:sc=sc+4:r=r+1:247 Tr=5x=15y=11 1500:sc=sc+4:r=r+1:247 Tr=5x=15y=301500:sc=sc+4:r=r+1:247 Tr=5x=15y=311500:sc=sc+4:r=r+1:247 Tr=5x=16y=01500:sc=sc+10 :r=r+1:247 r=5sc>3.05|L,-10 :sc=sc-3:num=num-1:0,7;" ":0,7;sc:9850z& r=5sc3.05|L,-10 :sc=0:num=num-1:0,7;" ":0,7;sc:9850z& @0;x,y;"":.05|L,20:x=2:y=28: +rh=17;1;1;18,3;"WIND MAKES IT HARD TO LAND":n=55573:.005y# =,n:n:n=5575-5:.005y# =,n:n:1;18,1;" ":.01z# =,40(:x,y;" ":x=2:y=28: rh=2x>32;7;1;1;21,0;" FIRE ENGINE STARTLES THE BIRD ":1850::4;21,0;" ":.005y# =,40(:x,y;" ":x=3:y=28: rh=3rh=4rh=51;21,0;" Helicopter frightens the bird ":1870N:4;21,0;" ":.01z# =,40(:x,y;" ":x=2:y=28: rh>3  :fr=20:fc=29 ?w2;4;fr,fc;" ":.20~L,20:fc=fc-1:2;4;fr,fc;" ":.16~# =,10 D'fc>1fc=fc-1:1855? I4;fr,fc;" ": Nhe=2:hh=29 S41;5;he,hh;" ":.05|L,10 X'hh>1hh=hh-1:1875S ]H5;5;2,0;" ": l7:1::101e sc<0sc=0 _scMAX11 ,8;"Your score was ";sc:13 ,8;"Previous record ";MAX;17,8;"You need ";qualify;" points";18,8;"for the password.";4,13 ;"UNLUCKY!":#0;0;6;" Press  SPACE  to continue ":0:.05|L,0::num=0:x=2:y=28:1929 ]sc>MAX1;7,8;"Your score was ";sc;9 ,8;"Previous record=";MAX:MAX=sc:17,8;"You need ";qualify;" points";18,8;"for the password.":1;1;5;2;13 ,7;"THAT'S A NEW RECORD!":#0;" Press  SPACE  to continue ":0:.05|L,0: scqualifyn=021:n,0;"Now you can try for the PASSWORD":.05|L,n:n:maze=1:#0;0;6;" Press  SPACE  to continue ":0::100d /num=0:x=2:y=28:100d O0:n=10 60<4:.01z# =,n:n:maze=0:100d ,pa=0:in=7:4:2: z6;0,20;"";1,4;"";1,26;"";1,28;"" 6;2,6;"";2,24;"";2,26;"";2,28;"";3,9 ;"";3,24;"";3,26;"";3,28;"" 16;4,6;"";4,9 ;"";4,22;"";4,24;"";4,26;"";4,28;"";5,3;"";5,7;"";5,9 ;"";5,11 ;"";5,22;"";5,24;"";5,28;"" ́6;6,3;"";6,7;"";6,9 ;"";6,11 ;"";6,20;"";6,22;"";6,30;"";7,3;"";7,7;"";7,9 ;"";7,11 ;"";7,13 ;"";7,20;"";7,22;"";7,24;"";7,28;"";7,30;"" 6;8,3;"";8,7;"";8,9 ;"";8,11 ;"";8,13 ;"";8,18;"";8,20;"";8,22;"";8,26;"";8,28;"";8,30;"";9 ,3;"";9 ,7;"";9 ,9 ;"";9 ,11 ;"";9 ,13 ;"";9 ,18;"";9 ,20;"";9 ,22;"";9 ,26;"";9 ,28;"";9 ,30;"" 6;10 ,3;"";10 ,7;"";10 ,9 ;"";10 ,11 ;"";10 ,13 ;"";10 ,18;"";10 ,20;"";10 ,22;"";10 ,26;"";10 ,28;"";10 ,30;"";11 ,3;"";11 ,7;"";11 ,9 ;"";11 ,11 ;"";11 ,13 ;"";11 ,18;"";11 ,20;"";11 ,22;"";11 ,26;"";11 ,28;"";11 ,30;"" 6;12 ,3;"";12 ,7;"";12 ,9 ;"";12 ,11 ;"";12 ,16;"";12 ,18;"";12 ,20;"";12 ,22;"";12 ,25;"";12 ,28;"";12 ,30;"";13 ,3;"";13 ,7;"";13 ,9 ;"";13 ,11 ;"";13 ,18;"";13 ,22;"";13 ,26;"";13 ,28;"";13 ,30;"" 6;14,3;"";14,7;"";14,9 ;"";14,18;"";14,22;"";14,26;"";14,28;"";14,30;"";15,3;"";15,7;"";15,9 ;"";15,20;"";15,26;"";15,28;"";15,30;"";16,3;"";16,7;"";16,17;"";16,26;"";16,28;"";16,30;"" 6;17,3;"";17,17;"";17,28;"";17,30;"";18,15;"";18,17;"";18,28;"";18,30;"";19,8;"";19,15;"";19,30;"";20,8;"";20,12 ;"";20,17;"";20,30;"" I6;21,8;"";21,12 ;"" *7;1;9 ,15;"" B#0;0;6;" Move bird with the arrow keys " "3080 :x=0:y=0 P0;x,y;"":2:0;x,y;"":2:3090 :3070 3070 P0;x,y;"":2:0;x,y;"":2:3090 :3070 X="5"y>1ƫ(x,y-1)223090 :x,y;" ":y=y-1:3067 N="6"ƫ(x+1,y)223090 :x,y;" ":x=x+1:3065 X="7"x>0ƫ(x-1,y)223090 :x,y;" ":x=x-1:3065 Y="8"y<31ƫ(x,y+1)223090 :x,y;" ":y=y+1:3065 x=9 (y=15y=16)502:ct=0:24::n=021:n,0;6;0;" WELL DONE! You found the nest! ":.02{# =,n:.05|L,-11 +n:n:#0;1;7;" Press  SPACE  to continue ":0:7000X 3090 :3070 A23674z\,0:23673y\,0:23672x\,0:  1 T>60<3095  1x=2:y=28:num=0::100d |J0;2;x,y;"":100d:ct=0:24:180: :n=0212:7;n,0;1;" WELL DONE! ";:n:#0;1,0;2;7;" Press  SPACE  to continue ":0:.05|L,0::14,2;7;"You may now proceed to the";16,2;"other programs on the tape";18,2;"using the password which is..":1;1;20,12 ;"kestrel":#0;1;7;" Press  SPACE  to continue ":0 :pass=1 pass=05800 a7;10 ,4;"Do you wish to LOAD the";12 ,4;"next program? (Y or N)" ,="n"Ŧ="N".05|L,0:5720X ;(="y"Ŧ="Y")pass=0.05|L,0:5800 D(="y"Ŧ="Y")pass=1.05|L,0::7;8,3;"Turn tape over and rewind.";10 ,1;"Start recorder and press ENTER":0:.05|L,0:1:1:0,0;"";:"" N 5520 XT:7:10 ,6;"Do you want to finish?";12 ,13 ;"(Y / N)" bs="Y"Ŧ="y".05|L,0:#0;0;6;" ARE you sure? Press  Y  or  N  ":5814 lB="n"Ŧ="N".05|L,0:x=2:y=28:100d v 5730b  :101e 63,4;"You haven't got the";5,4;"password yet. Remember,";7,4;"you need ";qualify;" points";9 ,4;"in 'BIRDLANDER' to";11 ,4;"get it.";13 ,4;"Do you want to";15,4;"1 Replay 'BIRDLANDER'";17,4;"2 Finish" +="1"Ŧ="!".05|L,0:100d ="2"Ŧ="@".05|L,0:17,9 ;0;6;1;"FINISH";#0;0;6;" Are you sure? Press  Y  or  N  ":5814  5811 ,="Y"Ŧ="y".5,-25:179 +="N"Ŧ="n".05|L,0:100d  5814  7:0::n=0202:n,0;1;" ":n:6,0;1;"To obtain the password you fly";8,0;"the black mother bird to the";10 ,0;"centre of a maze. You settle her";12 ,0;"on her nest.";14,0;" You have only 60 seconds. ";#0;" Press  SPACE  to continue":0:.05|L,0: Xe:z$=" ":n=021:n,0;0;z$:n:A(75K) YOB=(*20):C=(*30):D=1:X=(*20):Y=(*30) ZB=XC=Y7001Y [CY7001Y \(Y-C)<10 7001Y ]/X,Y;0;" ":B,C;6;0;"" ^#0;1,0;6;1;" The yellow bird is chasing insects ":200:n=23264Z23296[:n,9 :n: `X,Y;7;0;"" bd#0;4;1;1;1,0;" A fledgling escapes. CATCH HIM!":180 l*E=175K:A(E)=(*4):E vn=23264Z23296[:n,9 :n:#0;1,0;4;" Press  SPACE  to start ":180:0:#0;1,0;1;" " wT#0;4;0;1,0;" ARROW  keys move mother bird " B=XC=Y72204 ox=X:oy=Y:ob=B:oc=C "X0X=0:ox=0 %X21X=21:ox=31 "Y0Y=0:oy=0 %Y31Y=31:oy=21 7B0B21C0C317270f )dir=0B,C;6;0;"" )dir=1B,C;6;0;"" X,Y;7;0;""  ox=X:oy=Y C="5"7500L:dir=0:C=C-1:C<0C=0 'A(D)=0ch=1:Y=Y-1 8="6"7500L:B=B+1:B>21B=21 'A(D)=1ch=1:Y=Y+1 6="7"7500L:B=B-1:B<0B=0 'A(D)=2ch=1:X=X+1 E="8"dir=1:7500L:C=C+1:C>31C=31 'A(D)=3ch=1:X=X-1  D=D+1  D=74J7320 )dir=0B,C;6;0;"" )dir=1B,C;6;0;"" *nnn:7500L:7040 4 0: >s:n=021:4;1;0;n,0;" You got him in ";D;" flaps ":.05|L,n:n ?N#0;7;0;" Press  SPACE  to continue ":0: \ 5505 fB21ob=B:B=21 gB0ob=B:B=0 hC31oc=C:C=31 iC0oc=C:C=0 jB,C;0;" "   ~:n=021:4;0;1;n,0;" Too slow! He got away! ":.01z# =,-n:.01z# =,n:n m#0;7;0;" Press  SPACE  to continue ":0:.05|L,0::7000X Lob,oc;0;" " M!ch=1ox,oy;0;" " Nch=0: !4dr=0:in=0:pa=5:num=0:sc=0:y=28:x=2:start=0 !5Na$="chimney swift":h$="rook":c$="kestrel":d$="starling":e$="town pigeon" !63b$(5,13 ):b$(1)="chimney swift" !7b$(2)="rook" !8b$(3)="kestrel" !9b$(4)="starling" !:b$(5)="town pigeon" !?28512@!:n=5600056021:a:n,a:n !@33!,255,87W,22,0,62>,192,6,31,43+,94^,35#,115s,43+,16,249,114r,43+,61=,32 ,242,201 %/9505!%:n=07:a:""+n,a:n %!H1,3,7,15,31,63?,127,255 %&/9515+%:n=07:a:""+n,a:n %+Q128,192,224,240,248,252,254,255 %0/95255%:n=07:a:""+n,a:n %5H8,24,568,120x,255,568,0,0 %:/9535?%:n=07:a:""+n,a:n %?H0,0,568,255,120x,568,24,8 %D/9545I%:n=07:a:""+n,a:n %IK24,568,24,60<,126~,126~,60<,36$ %N/9555S%:n=07:a:""+n,a:n %SH16,24,28,30,255,28,0,0 %X/9565]%:n=07:a:""+n,a:n %]H0,0,28,255,30,28,24,16 %b/9575g%:n=07:a:""+n,a:n %gE0,255,0,3,2,31,63?,4 %l/9585q%:n=07:a:""+n,a:n %qL0,255,65A,255,127,255,255,8 %v/9595{%:n=07:a:""+n,a:n %{K255,4,31,37%,100d,127,63?,18 %/9605%:n=07:a:""+n,a:n %J224,3,15,248,240,192,0,0 &Hstart=0: &p?23674z\,0:23673y\,0:23672x\,0 &u 1 &z<x,y;"":2:x,y;" ":x,y;"":2:9860& & x,y;"":x,y;"":9860& &1(x+1,y)=41)1750:9860& &)1+(*20)<522 &V="a"y>0ƫ(x,y-1)41):x,y;" ":y=y-1:1:9850z& &="e"x>1ƫ(x-1,y+1)41)x,y;" ":1:x>2y<31x=x-1:y=y+1:9855& &w="c"y<31ƫ(x+1,y+1)41)x,y;" ":1:x<17x=x+1:y=y+1:9855& &="q"y>2ƫ(x-1,y-1)41)ƫ(x-1,y-1)23x,y;" ":x>2y>0x=x-1:y=y-1:1:9850z& &j="z"y>0ƫ(x+1,y-1)41)x,y;" ":x=x+1:y=y-1:1:9850z& &c="x"x<17ƫ(x+1,y)41):x,y;" ":x<17x=x+1:1:9850z& &=="w"x>2x,y;" ":x=x-1:1:9850z& &b="d"y<31ƫ(x,y+1)41)x,y;" ":y<31y=y+1:1:9855& &="s"1100L &B="m"Ŧ="M"ct=0:24:7:1::100d &+22:1:T>60<1900l & 9850z& tU{elinualifasatarazu ruyxl%abb\VZ zKbc d#LKl  A chimney swiftHrookCkestrelDstarlingE town pigeonF chimney swiftrook kestrel starling town pigeon ?