ZXTape! 2 Birds - Side BPiper Books Ltd R.D. Holland1984English Educational7.95 ROM LoaderOriginal&TZXed by Andrew Barker For Steve Brown0 Bird Squarebs V V5X 'BIRDSQUARE'  R D Holland For CHALKSOFT Ltd Pub.by PIPER Books 1984 Version 21 07 84 /59999_:0:0:0::"" *n=23232Z23296[:n,0:n: -6:6:0,0;"";:"" (.6:6:0,0;"";::"" 5pic @pl0`8qx8|???|~|x00~~09xBD888ffl00pff00x|DD@ ????00p|ff0ff( 8 >& <BDx8 00f|f?1F? ?<B<@ 00fflffpw9SL<p| |   @0C(p!A@@``!@ axxx0axxxx~~f~|~2Ŋ`~~x~~~0?8000  @ <<`ffff`B`fflff00008x 8D 8@8 D癟88(8(BB~ffff|B`ffff`????000000D  <D<0@xD<BHfnfff`00x`fflff000D xxx DD"D@D"<矟DD(B~~~~ff~x~~fx~f~008 <8< 8xD<<<88$x><<0800000000000000000000000000000000666666666666666660000000000000000000000000000000000000xxxxxxxx0000000000zzzz0xx xxxxxx 000000000000 ((((((((((((( 000000000000000 ((((((((((((( 000000000000000 ((((((((((((( 00000000000000xx ((((((((((((xx 00000000000000xx ((((((((((((xx 000000000000000 ((((((((((((( 000000000000000 ((((((((((((( 000000000000000 ((((((((((((( 00000000000000xx ((((((((((((xx 00000000000000xx ((((((((((((xx 000000000000000 ((((((((((((( 00000000zzzzzz0 ((((((((((((( 000000000000000000000000xxxxxxxx00000000000000xxxxxxxx0000000000000000000000000000000000000000888888888888-c `$$6666~X~~0fF8l0{{0  00f~f~0>> 0`~fnvf~88<<~f~`~~f f~>>>c ~ff~ff|f|ff|~f``f~xlfflx~`|``~~`|```~f`nf~ff~fff~~ff~fnxlnf`````~~fffff~ffff~|ff|``~ffvn~|ff|ff~`~f~~fffff~ffff<f$$fff<~L0f~@ ppH(>60x0~@@@  0P#  )@ AAAA`@@@@@@|>A ` @@@@@A"666A]Q]A$$$$6666~~XX88ll0000 00ff>> ~~ffnn8888~~ff~~ff <>>>cc~~ffff||ff||~~ff``xxllff~~``||~~``||~~ff``ffff~~~~ffnnxx``````~~ffff~~ffff||ffff~~ffff||ffff~~``~~~~ffffffffffffff$$ffff<<~~LL@@ pp>>6600 00PP AAAAAAAA@@@@@@ `` @@AA""666666AA]]QQ6666~~~~00ffFF{{{{ 00~~ff~~00>>00``vvff~~<<<<~~``~~ff~~ll~~ ff||ffff~~ffff~~~~~~00>>>> ~~ffffffff||``ff~~ffllxx````~~``````nnff~~ffffff~~ffff~~llnnff````~~ffffffffff~~||````vvnn~~||ffffff~~ffff~~ff<<$$ff00ff~~ppHH((xx00~~@@@@@@ ##  ))@@ ``@@@@@@||>>AA @@@@@@@@]]AABS R&RdR)m(x{# =,y|# =)=(x+y+(x-y))/2 Mu()=(65536*23674z\+256*23673y\+23672x\)/502 t()=m(u(),u()) dtime=t():0,0;5;0;1;"TIME: ";7;1;1;time: :A$="AAAAAAAAAAAAAAAAAAAAAAAAAAAAA":time=9999':best=9999':start=1:0:0::7500L:4:0:0::85004! :game=0:done=0:delete=1:0:4:0::HELP=6:Help=6:help=6:SC=0:9500%:TOT=0:PP=6:FIN=0:COU=0:FIRST=1 J$=" " Z$(8,8) Z$(1)=" " Z$(2)=" " Z$(3)=" " Z$(4)=" " Z$(5)=" " Z$(6)=" " Z$(7)=" " Z$(8)=" " w (5):J$(10 ):b$(6,10 ):c$(6,10 ):d$(6,10 ):e$(6,10 ):f$(6,10 ):g$(6,10 )  900 PVN=2015116:N,152:0,-128:.05|L,5:N ZTN=2415516:20,N:128,0:.05|L,0:N d H5000:RAN=1RAN=2RAN=4RAN=5r=5 RAN=3r=6 0;1;0,14;5;"FIND THE NAMES OF":S$=r+" "+o$:X=32 -S$:Y=1:6:0:1:90102#:3,27;5;1;"BIRDS" 0:4:0 R=1+(*A$) P=1+(*8) P=1X=3 P=2X=5 P=3X=7 P=4X=9 P=5X=11 P=6X=13 P=7X=15 P=8X=17 Q=1+(*8) Q=1Y=3 Q=2Y=5 Q=3Y=7 Q=4Y=9 Q=5Y=11 Q=6Y=13 Q=7Y=15 Q=8Y=17 Z$(Q,P)" "910 Z$(Q,P)=A$(R) >S$=A$(R):90102#:SD=5+(*30):.03{u\,SD  R3SIDE,TOP;" ";SIDE+18,TOP;" ":TOP=TOP-2:YY=YY-1:SIDE,TOP;"";SIDE+18,TOP;"":.05|L,20:1510 9="F"Ŧ="f".05|L,25:ST=1:4000 (="6"Ŧ="&")SID<17SID,DOWN;" ";SID,DOWN+18;" ":SID=SID+2:XX=XX+1:SID,DOWN;"";SID,DOWN+18;"":.04|# =,20:1510 (="7"Ŧ="'")SID>3SID,DOWN;" ";SID,DOWN+18;" ":SID=SID-2:XX=XX-1:SID,DOWN;"";SID,DOWN+18;"":.04|# =,20:1510 :=13 z$(XX,YY)=" "1,-25:1510 7=13 z$(XX,YY)" "delete=0:2000  1510 @c$(1)=A$(16):c$(2)=A$(714):c$(3)=A$(1521):c$(4)=A$(2228):c$(5)=A$(2933!):c$(6)=" ": Jd$(1)=A$(14):d$(2)=A$(58):d$(3)=A$(9 17):d$(4)=A$(1823):d$(5)=A$(2433!):d$(6)=" ": Te$(1)=A$(13):e$(2)=A$(410 ):e$(3)=A$(11 17):e$(4)=A$(1821):e$(5)=A$(2230):e$(6)=A$(3134"): ^f$(1)=A$(16):f$(2)=A$(79 ):f$(3)=A$(10 17):f$(4)=A$(1826):f$(5)=A$(2736$):f$(6)=" ": hg$(1)=A$(17):g$(2)=A$(812 ):g$(3)=A$(13 20):g$(4)=A$(2129):g$(5)=A$(3036$):g$(6)=" ": 0.075},0:FIRST=1l$=" FIRST" FIRST=2l$=" SECOND" FIRST=3l$=" THIRD" FIRST=4l$=" FOURTH" FIRST=5l$=" FIFTH" FIRST=6l$=" SIXTH" FIRST=7l$=" SEVENTH" FIRST=8l$="N EIGHTH" FIRST=9 l$=" NINTH" FIRST=10 l$=" TENTH" match=0  c=16 *FRAN=1c$(c)(FIRST)=Z$(XX,YY)match=match+1:2110> +FRAN=2d$(c)(FIRST)=Z$(XX,YY)match=match+1:2110> ,FRAN=3e$(c)(FIRST)=Z$(XX,YY)match=match+1:2110> -FRAN=4f$(c)(FIRST)=Z$(XX,YY)match=match+1:2110> .FRAN=5g$(c)(FIRST)=Z$(XX,YY)match=match+1:2110> >c Hmatch=020,12 ;1;7;1;"NOT A";l$;" LETTER":1,-25:150:20,12 ;" ": RFIN=FIN+1 s20,FIRST+1;2;7;1;Z$(XX,YY):TOT=TOT+1:FIRST=FIRST+1:Z$(XX,YY)=" " game=17100 @NUM=1:L=4+YY*16:DN=168-(XX*16) 4:0 )L,DN:16,0:NUM=NUM+1 )NUM<18DN=DN-1:3040 .01z# =,10 FIN=10 4000  EJ$=" ":M=110 :J$(M)=(20,M+1):M 8sum=0:N=1̱J$:J$(N)=" "sum=sum+1 N #sum=10 1,-25:  6000p 6J$=" ":TOTȱA$start=0:4100 FIN=0:FIRST=1  #0;0,0;2;6;1;1;" NO LETTERS LEFT. ANOTHER GAME? ";2;6;" PRESS  SPACE  TO CONTINUE " 40:.05|L,0:502::85004!  0,0;7;time  4110 D:grch=0:A=15:w(A)=1grch=grch+1 A 2grch=5A=15:w(A)=0:A 6RAN=1+(5*):w(RAN)=15003 w(RAN)=1 LRAN=1A$="PIGEONSTARLINGSPARROWKESTRELSWIFT":O$="TOWN":1600@ MRAN=2A$="DUCKSWANCORMORANTPUFFINKINGFISHER":O$="WATER":1610J SRAN=3A$="EMUOSTRICHPENGUINKIWICASSOWARYRHEA":O$="FLIGHTLESS":1620T QRAN=4A$="THRUSHTITSTARLINGCHAFFINCHGREENFINCH":O$="GARDEN":1630^ QRAN=5A$="LAPWINGQUAILPHEASANTPARTRIDGESKYLARK":O$="MEADOW":1640h  pmRAN=1J$=A$(16)+" "A$(16)=" ":c$(1)=" ":6500d: qmRAN=1J$=A$(16)+" "A$(16)=" ":c$(1)=" ":6500d: rqRAN=1J$=A$(714)+" "A$(714)=" ":c$(2)=" ":6500d: srRAN=1J$=A$(1521)+" "A$(1521)=" ":c$(3)=" ":6500d: trRAN=1J$=A$(2228)+" "A$(2228)=" ":c$(4)=" ":6500d: upRAN=1J$=A$(2933!)+" "A$(2933!)=" ":c$(5)=" ":6500d: vRAN=16600: zkRAN=2J$=A$(14)+" "A$(14)=" ":d$(1)=" ":6500d: {kRAN=2J$=A$(58)+" "A$(58)=" ":d$(2)=" ":6500d: |rRAN=2J$=A$(9 17)+" "A$(9 17)=" ":d$(3)=" ":6500d: }qRAN=2J$=A$(1823)+" "A$(1823)=" ":d$(4)=" ":6500d: ~rRAN=2J$=A$(2433!)A$(2433!)=" ":d$(5)=" ":6500d: RAN=26600: jRAN=3J$=A$(13)+" "A$(13)=" ":e$(1)=" ":6500d: pRAN=3J$=A$(410 )+" "A$(410 )=" ":e$(2)=" ":6500d: rRAN=3J$=A$(11 17)+" "A$(11 17)=" ":e$(3)=" ":6500d: oRAN=3J$=A$(1821)+" "A$(1821)=" ":e$(4)=" ":6500d: tRAN=3J$=A$(2230)+" "A$(2230)=" ":e$(5)=" ":6500d: oRAN=3J$=A$(3134")+" "A$(3134")=" ":e$(6)=" ":6500d: RAN=36600: mRAN=4J$=A$(16)+" "A$(16)=" ":f$(1)=" ":6500d: jRAN=4J$=A$(79 )+" "A$(79 )=" ":f$(2)=" ":6500d: sRAN=4J$=A$(10 17)+" "A$(10 17)=" ":f$(3)=" ":6500d: tRAN=4J$=A$(1826)+" "A$(1826)=" ":f$(4)=" ":6500d: rRAN=4J$=A$(2736$)A$(2736$)=" ":f$(5)=" ":6500d: RAN=46600: nRAN=5J$=A$(17)+" "A$(17)=" ":g$(1)=" ":6500d: nRAN=5J$=A$(812 )+" "A$(812 )=" ":g$(2)=" ":6500d: sRAN=5J$=A$(13 20)+" "A$(13 20)=" ":g$(3)=" ":6500d: tRAN=5J$=A$(2129)+" "A$(2129)=" ":g$(4)=" ":6500d: rRAN=5J$=A$(3036$)+" "A$(3036$)=" ":g$(5)=" ":6500d: RAN=56600: d[sc=sc+1:20,0;" ":PP+sc,22;1;J$(1):#0;0,0;1;6;0;"      CORRECT  ":N=19 :.05|L,5:N:N=19 :.05|L,0:N:502:9960&: #0;0,0;1;7;2;" I'M NOT THINKING OF THAT ONE! ":1,-25:502:9960&:FIN=0:FIRST=1:20,2;" " +N=15:.03{u\,N*5:N }#0;0,0;1;7;1;"  PENALTY TIME ADDED  PLEASE WAIT- REPLACING LETTERS " J=1(J$-sum) s=18 t=18 "'Z$(s,t)=" "done=06900 't:s:done=0:J ^LTOT=TOT-(J$-sum):9960&:N=15:.03{u\,N*5:N: z$(s,t)=J$(J):S$=J$(J):X=2*t+1:Y=2*s+1:0:4:90102#:4:0:done=done+1:N=15:.03{u\,5*N:N  X_2,2:251,0:0,171:-251,0:0,-171 Z_3,3:249,0:0,169:-249,0:0,-169 \_4,4:247,0:0,167:-247,0:0,-167 ^_7,7:241,0:0,161:-241,0:0,-161  ,N=540(3:.01z# =,N:N  &N=2030:.007ye`A,N:N  L<DW=3:R$=" STOP THE TAPE ":INK=1+(*7) QHAL=3+(*12 ):INK;1;1;DW,AL;R$:7100 V<DW<19DW=DW+2:AL=AL+1:INK=INK+1 [INK>7INK=1 `DW<197505Q 150:7:0:7::o$=" ":n=0202:0;n,0;o$:.1}L,n:n 502:n=210-2:n,0;7;0;"TYPE PASSWORD (CAPS), THEN ENTER":.05|L,n:n:502 Jo$:o$="KESTREL":n=-2515:.02{# =,n:.01z# =,-n:n:  0:n=13:.3,0:1:n:.5,-15:n:n=1212:n,0;7;1;" TRY AGAIN - USE CAPITALS ":n:o$:o$="KESTREL"7:7::n=-2515:.02{# =,n:.01z# =,-n:n: ؠn=13:.1}L,-15:1:.2~L,-25:n:7:7::10 ,11 ;0;7;" GOODBYE ! ":200: ? @o6:7000X:S$="INSTRUCTIONS":X=10 :Y=2:5:1:90102#:4:0 E7100:502 J5,2;"THIS PROGRAM HELPS YOU";6,2;"LEARN AND SPELL THE NAMES OF";7,2;"FIVE TYPES OF BIRDS. ";:7100:100d:"BEFORE";8,2;"YOU START, READ ABOUT THEM";9 ,2;"IN YOUR 'BIRDS FACTBOOK'.":7100:502 T 502:11 ,2;"WATER BIRDS PP. 34 43":12 ,2;"MEADOW BIRDS PP. 50 51";13 ,2;"TOWN BIRDS PP. 54 TO 55";14,2;"GARDEN BIRDS PP. 58 TO 59";15,2;"FLIGHTLESS PP. 62 67":7100:502 Y17,2;"IF YOU BREAK INTO THE PROGRAM";18,2;"RESTART BY TYPING 'GOTO HELP'":7100:100d:9900& c:7000X dB6:3,2;"THE COMPUTER WILL SCRAMBLE";4,2;"THE LETTERS OF THE BIRDS'";5,2;"NAMES AROUND A GRID. ";:7100:100d:"A PAIR";6,2;"OF ARROWS WILL APPEAR ABOVE";7,2;"AND BELOW THE GRID, WITH";8,2;"ANOTHER PAIR TO EITHER SIDE";9 ,2;"OF IT. ";:7100:100d:"MOVE THE ARROWS";10 ,2;"WITH THE  ARROW  KEYS UNTIL";11 ,2;"BOTH PAIRS POINT AT THE";12 ,2;"INITIAL LETTER OF A BIRD'S";13 ,2;"NAME. ";:7100:100d eq15,2;"PRESS  ENTER  WHEN YOU'RE";16,2;"SURE YOU'RE RIGHT.":7100:100d f18,2;"THE LETTER SELECTED WILL BE";19,2;"DISPLAYED BELOW THE GRID.":7100:100d:9900& |:5:7000X }-7:3,2;"NOW SELECT ANOTHER LETTER";4,2;"IN THE SAME WAY. CONTINUE";5,2;"LIKE THIS UNTIL YOU'VE FOUND";6,2;"ALL THE LETTERS OF THE ";7,2;"BIRD'S NAME. PRESS 'F' TO ";8,2;"SHOW YOU'VE FINISHED.":7100:100d ~Z10 ,2;"IF YOU MAKE A MISTAKE YOU ";11 ,2;"CAN CORRECT IT BY PRESSING";12 ,2;"'0'. IF YOU PRESS 'F' FOR A";13 ,2;"WRONG / MIS-SPELT NAME, THE";14,2;"COMPUTER WILL GIVE YOU A";15,2;"HEAVY TIME PENALTY. USE";16,2;"THIS OPTION SPARINGLY!":7100:100d z18,2;"IF YOU REALLY GET STUCK";19,2;"PRESS 'M' TO GIVE UP.":7100:100d:9900& :3:7000X:5:3,2;"THE OBJECT OF THE GAME IS";4,2;"TO UNSCRAMBLE ALL THE";5,2;"LETTERS AS QUICKLY AS YOU";6,2;"CAN.":7100:100d ?8,2;"REMEMBER - YOU'RE WORKING";9 ,2;"AGAINST THE CLOCK. YOU'LL";10 ,2;"NEED TO WORK QUICKLY AND";11 ,2;"CAREFULLY. CHECK YOUR";12 ,2;"SPELLINGS AGAINST THOSE";13 ,2;"IN THE BOOK BEFORE YOU";14,2;"PRESS 'F'.":7100:100d 16,2;"THE BEST STRATEGY IS  NOT ";17,2;"ALWAYS TO MOVE THE ARROWS";18,2;"TO THE NEAREST LETTER THAT";19,2;"YOU WANT.  GOOD LUCK! ":7100:100d:9900& !3: !4@4:7000X:23561 \,35#:23562 \,5 !>dS$="BIRDSQUARE":X=11 :Y=2:3:1:90102#:4:0:7100 !Hstart=18570z! !RTOTɱA$8560p! !\<5,3;5;"YOU DID THAT IN ";time;" SECS." !fQtime ~`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 001kF|?ÙÙÙÙ  ~`>?|<<`?π~~??PO |8?8??0?8?<???0x?<?~??0???|?|>???? ???8|8? ??0?> 88\@?88???ÇÃÁÙÇ ??`?癙癙癙癙? ????>牟矙癉牟0??~>`灑瑃癁灑8O~瑙癓癑瑙?>| ~癙癙癙癙??x?ÙÙÙÙ?? M1 `ZzXeabZ:236077\,224:cont=0:1:1:1::in=2:ct=1:sp=0:4000:9500%:9500%:9500%  9000(# 500 cont=0:ran=1:q(30):wrong=0:right=1:ans=right:dist=32 -m$:acc=21:bot=31:cl=1 ?0;21,0;" " p=310-1 (S7;0;acc,p;m$(cl):.01z# =,17:.01z# =,20:3 2cl=m$150 dcl=cl+1:p #n=p0+dist/2-1 N7;0;acc,n;m$:.01z# =,17:.01z# =,20:3 n &.4L,15:.3,10  1m$="Do you want instructions? Y or N":20 '="y"Ŧ="Y":7000X:1050 ="n"Ŧ="N"1050  505 1:1::n=0212:n,0;6;" ":.02{# =,-15:.04|# =,n-15:n:  1049 6,0;7;"Do you want to: ";8,0;"1 Play this game ";10 ,0;"2 Load the next game ";12 ,0;"3 Finish " `=491.05|L,0:67062:cont=1cont=0:1049:1056  T=502.05|L,0:67062:cont=1cont=0:7600 T=513.05|L,0:67062:cont=1cont=0:7999? Ccont=0n=23264Z23296[:n,9 :n:1052  =m$="How many players? (1,2,3, or 4) ":20:9500% !2="1".05|L,0:pl=1:1065) "2="2".05|L,0:pl=2:1065) #2="3".05|L,0:pl=3:1065) $2="4".05|L,0:pl=4:1065) % 1057! ):pl=1a$="1" *pl=2a$="1":b$="2" +'pl=3a$="1":b$="2":c$="3" ,0pl=4a$="1":b$="2":c$="3":d$="4" -Qplayer=1:red=0:mag=0:blue=0:bla=0:1100L 3>9600%:ans=wrongq(ran)=0:ans=right:1090B 4uq(ran)=1:sum=0:N=130:sum=sum+q(N):N:sum=30N=130:q(N)=0:N 57ran=1+(*30):q(ran)=110775 B5000:2000 L&pl=1x=17:y=27: Q>pl=2x=17:y=27:v=17:w=17: VUpl=3x=17:y=27:v=17:w=17:t=7:u=27: [kpl=4x=17:y=27:v=17:w=17:t=7:u=27:r=7:s=7: I58592:2:pl=11;0;7;x,y;a$: Wpl=2;1;7;0;x,y;a$:0;7;1;v,w;b$: {pl=3;1;7;0;x,y;a$:0;7;1;v,w;b$:0;6;1;t,u;c$: pl=4;1;7;0;x,y;a$:0;7;1;v,w;b$:6;0;1;t,u;c$:0;6;1;r,s;d$:  player=player+1  %player=pl+1player=1:  6:0 g$= 'g$<97aůg$>99c2001 ռ.05|L,0:ran=1g$="b"9600%:21,0;" tern is correct ":200:9600%:8000@:1200:9510&%:1800:10753 ڴran=2g$="a"9600%:21,0;" wheatear is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ߴran=3g$="b"9600%:21,0;" 9000 is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=4g$="c"9600%:21,0;" cuckoo is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=5g$="c"9600%:21,0;" hawfinch is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=6g$="a"9600%:21,0;" 'at night' is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=7g$="b"9600%:21,0;" hummingbird is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=8g$="a"9600%:21,0;" harpy eagle is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=9 g$="a"9600%:21,0;" swan is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=10 g$="a"9600%:21,0;" cormorant is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=11 g$="c"9600%:21,0;" knot is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753  ran=12 g$="b"9600%:21,0;" 'red' is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=13 g$="c"9600%:21,0;" coot is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=14g$="a"9600%:21,0;" lapwing is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 ran=15g$="b"9600%:21,0;" heron is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753  ran=16g$="c"9600%:21,0;" albatross is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 %ran=17g$="a"9600%:21,0;" dipper is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 *ran=18g$="b"9600%:21,0;" snow bunting is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 /ran=19g$="a"9600%:21,0;" goldfinch is correct ":100d:100d:9600%:8000@:1200:9510&%:1800:10753 4ran=20g$="c"9600%:21,0;" 'three' is correct ":100d:100d:9600%:1200:8000@:9510&%:1800:10753 9oran=21g$="c"9600%:21,0;" penguin is correct ":4500:10753 >oran=22g$="b"9600%:21,0;" ostrich is correct ":4500:10753 Coran=23g$="b"9600%:21,0;" tweezers is correct ":4500:10753 Horan=24g$="c"9600%:21,0;" neither - big and untidy ":4500:10753 Moran=25g$="a"9600%:21,0;" touraco is correct ":4500:10753 Roran=26g$="b"9600%:21,0;" jay is correct ":4500:10753 Woran=27g$="b"9600%:21,0;" loudly is correct ":4500:10753 \oran=28g$="a"9600%:21,0;" 10 days is correct ":4500:10753 aoran=29g$="b"9600%:21,0;" 1 egg is correct ":4500:10753 foran=30g$="c"9600%:21,0;" 'three' is correct ":4500:10753 Ĥans=wrong:9600%:21,0;" WRONG ANSWER! ":9505!%:100d:9600%:3000 ::58592:1200:10753 haz=1+(*5) haz=120,0;" HUNTERS TRY TO SHOOT YOU! ";21,0;" Go back one square! ":100d:3700t haz=220,0;" THE HEADWINDS ARE TOO STRONG! ";21,0;" Go back one square! ":100d:3700t Ǐhaz=320,0;" BIRD OF PREY NEARBY! ";21,0;" Go back one square! ":100d:3700t ̏haz=420,0;" YOU ARE EXHAUSTED! ";21,0;" Go back one square! ":100d:3700t яhaz=520,0;" BAD WEATHER! YOU TAKE SHELTER! ";21,0;" Go back one square! ":100d:3700t tplayer=13800 yplayer=23810 ~player=33820 player=43830 Tx=17x=17:100d:player=player+1:3840:9600%: bx<17x=x+1:y=y+1:100d:player=player+1:3840:9600%: Tv=17v=17:100d:player=player+1:3840:9600%: Uv<17v=v+1:100d:player=player+1:3840:9600%: Tu=27u=27:100d:player=player+1:3840:9600%: Uu<27u=u+1:100d:player=player+1:3840:9600%: Rs=7s=7:100d:player=player+1:3840:9600%: Ts>7s=s-1:100d:player=player+1:3840:9600%: %player=pl+1player=1:  qac=1+(*12 ):1;1;in;9 ;sp,ac;" STOP THE TAPE ":in=in+1:.075},ac in7in=2 sp=sp+2:ct=ct+1 ct<11 4000  T100d:100d:9600%:8000@:1200:9510&%:1800: 85004!:5100 66;0;0,24;"PLAYER ";player ran=10;6;20,0;"Which bird migrates the furthest";21,0;"a pigeon b tern c swift " : ran=20;6;20,0;" Flies the furthest non-stop? ";21,0;"a wheatear b swan c nightjar ": ran=30;6;20,0;"How many kinds of birds exist? ";21,0;"a 5000 b 9000 or c 15000 ": ran=40;6;20,0;" Flies to S.Africa in winter? ";21,0;"a starling b duck c cuckoo ": ran=50;6;20,0;"Which bird splits olive stones? ";21,0;"a curlew b tern or c hawfinch ": ran=60;6;20,0;"When do long-eared owls hunt? ";21,0;"a at night b dawn c afternoon ": ran=70;6;20,0;"Which is the smallest bird? ";21,0;"a wren b hummingbird or c tit ": ran=80;6;20,0;"Which bird preys on monkeys? ";21,0;"a harpy eagle b falcon c hawk ": ran=9 0;6;20,0;"A baby one is called a cygnet. ";21,0;"a swan b cormorant or c curlew": ran=10 0;6;20,0;"Lays eggs in a seaweed nest. ";21,0;"a cormorant b seagull c swift ": ran=11 0;6;20,0;" Breeds in the far north? ";21,0;"a parrot b hobby or c knot ": ran=12 0;6;20,0;"The brambling's chest in winter ";21,0;"is a blue b red or c white ": ran=13 0;6;20,0;" Builds a floating nest? ";21,0;"a penguin b tern or c coot ": ™ran=140;6;20,0;"Decoys enemies away from nest ";21,0;"a lapwing b duck or c swift ": Ùran=150;6;20,0;"Which of these birds can't swim?";21,0;"a grebe b heron or c moorhen ": ęran=160;6;20,0;"Which bird steers with its feet?";21,0;"a jay b heron c albatross? ": řran=170;6;20,0;"Which bird swims with its wings?";21,0;"a dipper b duck or c puffin?": Ɵran=180;6;20,0;"Which bird flies most northerly?";21,0;"a lark b snow bunting c  finch ": Ǚran=190;6;20,0;"Which eats thistleseeds? ";21,0;"a goldfinch b blue tit c lark": Țran=200;6;20,0;"Kiwis - how many kinds are there?";21,0;" a seven b four c three ": əran=210;6;20,0;"Most-plentiful flightless bird ";21,0;"a emu b cassowary c penguin ": ʙran=220;6;20,0;" The largest bird alive today? ";21,0;" a kiwi b ostrich c rhea": ˙ran=230;6;20,0;" Used to study pellets ";21,0;"a needle b tweezers c penknife": ̙ran=240;6;20,0;" A white stork's nest is ";21,0;" a small b tidy c neither": ͙ran=250;6;20,0;" Which does NOT live in Asia? ";21,0;" a touraco b parakeet c hornbill": Ιran=260;6;20,0;" Eats woodland birds' eggs ";21,0;" a hawk b jay c tree-creeper ": ϛran=270;6;20,0;" Nightingales sing ";21,0;"a softly b loudly c not at all ": Нran=280;6;20,0;"Spotted woodpeckers' eggs hatch ";21,0;" a in 10 days b in 7 c in 80": љran=290;6;20,0;" In a year a gannet will lay ";21,0;" a 3 eggs b 1 egg c 4 eggs ": ҙran=300;6;20,0;" Bird flight consists mainly of ";21,0;" a 2 b 4 or c 3 movements ": player=1blue=1 )player=1blue=05500| player=2red=1 (player=2red=05500| player=3mag=1 (player=3mag=05500|  player=4bla=1 (player=4bla=05500| |)player=1blue=11200 })player=1blue=05519 ~(player=2red=11200 (player=2red=05519 (player=3mag=11200 (player=3mag=05519 (player=4bla=11200 (player=4bla=05519 {0::6;1,1;"You have not yet qualified to";3,4;"play the game, player ";player;"." 6;0;18,0;" Press  ENTER  to stop the die. ";20,1;"You need a 1,3, or a 6 to play." p9n=614:7;n,12 ;" ":n u9n=614:7;n,12 ;" ":n zdie=1+(*6) .die=10;10 ,16;"" .=13 .07}\(,-10 :6100 Ddie=20;8,18;"";12 ,14;"" .=13 .07}\(,-10 :6100 [die=30;8,18;"";12 ,14;"";10 ,16;"" .=13 .05|L,-10 :6100 Udie=40;7;8,14;" ";12 ,14;" " .=13 .05|L,-10 :6100 ldie=50;7;8,14;" ";12 ,14;" ";10 ,16;"" .=13 .05|L,-10 :6100 Ydie=60;7;8,13 ;" ";12 ,13 ;" " .=13 .05|L,-10 :6100  6000p 9n=614:7;n,12 ;" ":n .die=10;10 ,16;"" Ddie=20;8,18;"";12 ,14;"" [die=30;8,18;"";12 ,14;"";10 ,16;"" Udie=40;7;8,14;" ";12 ,14;" " ldie=50;7;8,14;" ";12 ,14;" ";10 ,16;"" Ydie=60;7;8,13 ;" ";12 ,13 ;" "  200 8rdie=1die=3die=66700,:7:1:2;6;1;2,2;"WELL DONE, PLAYER ";player;". You may";3,2;" now try to migrate. ":9500%:#0;0;6;" Press  SPACE  to continue ":0:.05|L,0:6500d:1::1200:5000:2000 <6700,:6;0;2,8;"UNLUCKY, PLAYER ";player;".":pl=16;0;20,11 ;"Try again.":#0;0;6;" Press  SPACE  to continue ":0:.05|L,0:5500| =6700,:6;0;2,8;"UNLUCKY, PLAYER ";player;".":6;0;20,1;"Make room for the next player.":player=player+1:#0;0;6;" Press  SPACE  to continue ":0 B6.05|L,0:player=pl+1player=1 G)player=1blue=16250j H)player=1blue=05500| I(player=2red=16250j J(player=2red=05500| K(player=3mag=16250j L(player=3mag=05500| M(player=4bla=16250j N(player=4bla=05500| j87:1::1200:5000:2000 d player=1blue=1: iplayer=2red=1: nplayer=3mag=1: splayer=4bla=1: ,r0;1,0;" ";3,0;" " .t0;18,0;" ";20,0;" " 1 2X#0;1,0;0;6;"Are you sure? Press  Y  or  N " 30="Y"Ŧ="y".05|L,0:cont=1: 40="n"Ŧ="N".05|L,0:cont=0: 5 67073 X:7:0;4;1,10 ;" MIGRATION ":6;0;1,4;" ";1,23;" ":6;3,10 ;"INSTRUCTIONS":9500% ]100d:6,0;"This game is for 1 to 4 players."''"Each player's task is to fly, by"''"answering questions, from places"''"all around the world to central"''"Britain." b9500%:100d:18,0;"If you give a wrong answer then"''"you are forced back one move.":9500%:7020l:7030v lO#0;" Press  SPACE  to continue ":0:.05|L,0:: v1,0;"Before you can take part in the"''"migration you must first gain"''"access to the world.":9500%:100d:9 ,0;"To do this you must throw a die"''"and score a 1, a 3, or a 6." {9500%:100d:14,0;"Each player starts at the same"''"distance from ""home"", and the"''"first bird home wins." d9500%:100d:#0;" Press  SPACE  to play ":0:.05|L,0:: L:n=0212:n,10 ;1;" WELL DONE ! ":.03{u\,n:n:9500%:#0;1,0;0;6;" Press  SPACE  to continue ":0:.05|L,0:1050 :2;7;1;10 ,9 ;"START THE TAPE":9500%:1:1:0,0;"";:236066\,0:236077\,60<:"" ?7:7::0:10 ,0;"'MIGRATION'";12 ,0;" RD Holland";14,0;"For CHALKSOFT Ltd";16,0;"Pub. by PIPER Books 1984":500: @\player=1x=x-1:y=y-1:6;0;0,24;"PLAYER 1": EOplayer=2v=v-1:6;0;0,24;"PLAYER 2": JOplayer=3u=u-1:6;0;0,24;"PLAYER 3": OOplayer=4s=s+1:6;0;0,24;"PLAYER 4": !4x=7y=172;6;1;0,19;"PLAYER 1 WINS":9500%:9500%:9500%:100d:7500L !5pl=1 !6v=7w=172;6;1;0,19;"PLAYER 2 WINS":9500%:9500%:9500%:100d:7500L !7pl=2 !8t=7u=172;6;1;0,19;"PLAYER 3 WINS":9500%:9500%:9500%:7500L !9pl=3 !:r=7s=172;6;1;0,19;"PLAYER 4 WINS":9500%:9500%:9500%:100d:7500L !< #' #(/9005-#:n=07:a:"a"+n,a:n #-K0,24,24,126~,255,153,24,60< #2 %0n=10 40(3:.009ztj,n:n: %!1n=40(10 -3:.009ztj,n:n: %&0n=36$4802:.009ztj,n:n: %v1;20,0;" ";21,0;" ": on  (#a<aronighniscoA1B2C3D4layeealulxyv wtursuiaGM Do you want instructions? Y or N 0 Bird Filebf  W 'BIRDFILE'  R D Holland For CHALKSOFT Ltd Pub.by PIPER Books 1984 Version 21 07 84 865267:236066\,0:236077\,60< n&0:0:0:0: x0,0;""; "" *n=23232Z23296[:n,480:n 6:6 0,0;""; "" Vpic @p>|>@@> > @>0 @> > /> ^ > x~~~~~`~>H>_ > x~~~~~`~~>$>`Olff```>>~>'lff```>>>> 9fff|`|>>>> fff|`|@f~~```@0@?p?@@@ @f~~```@p 0? A~~`~~x~~~ 2@ ?lff```@@B 0Bff`fflff@D@lff``` `B``@p@/ "Dff`ffff`"@xff`~~~ C@ @@ @Dff`f~ffn D@xff`~~~ Db   8'ff`fflff@ @ 8;; @` @ f~~~fx~f~@@<`Ę`9x?@>@@  @"`"  @!"D"@@BDBpp?1<@` b  @@U @  x' @@` ` @666666666666666666666666666666666000000000000000000000000000000660000000000003333333333333333006600000000000033333303333333000066000000000000333333333333333300660000000000003333330333333333006600000000000033333303333333330066000000000000ppppppppppppppppp066000000000000qqqqqqqqqqqpppppp0660000000000000000000000000000006600000000000000000000000000000066000000000000000000000000000000660000000000000000000000000000006600000000000000000000000000000066000000000000000006600000000000000000000000000000066000000000000000000000000000000660000000000000000000000000000006600000000000000000000000000000066000000000000000000000000000000660000000000000000000000000000000666666666666666666666666666666660BL E#:236066\,0:236077\,60<:0:0::300,:5:150:200::6000p:500 lHELP=500:help=500:Help=500:ind=1:q=0:p=0:236099\,175: 8:10 a0,0:0,175:255,0:0,-175:-255,0: t6;0,0;"BIRDFILE";0,23;"PAGE ";p:0,166:255,0:7000X E6;2,1;"Name of bird:";2,21;"Type:" U4;7;4,1;"";4,21;"" 7,144:129,0:0,-9 :-129,0:0,9 :167,144:73I,0:0,-9 :-73I,0:0,9 # 7000X <06;6,1;"Location observed:" AVn=810 :4;7;n,1;"":n Fk7,112p:241,0:0,-25:-241,0:0,25:7000X Z]6;12 ,1;"Sex:";12 ,11 ;"Date:";12 ,22;"Activity:" _k4;7;14,1;"";14,11 ;"";14,22;"" d7,64@:491,0:0,-9 :-491,0:0,9 :87W,64@:65A,0:0,-9 :-65A,0:0,9 sh175,64@:73I,0:0,-9 :-73I,0:0,9 :7000X x36;16,1;"Additional Comments:" }Wn=1819:4;7;n,1;"":n ^7,32 :241,0:0,-17:-241,0:0,17 7000X  a$(100d,16) b$(100d,9 ) c$(100d,30) d$(100d,30) e$(100d,30) f$(100d,6) g$(100d,8) h$(100d,9 ) j$(100d,30) k$(100d,30)  ,<DW=3:R$=" STOP THE TAPE ":INK=1+(*7) 6hAL=3+(*12 ):INK;1;1;DW,AL;R$:n=540(3:.01z# =,n:n @<DW<19DW=DW+2:AL=AL+1:INK=INK+1 JINK>7INK=1 TDW<193106 ^ :236066\,0:236077\,60<:236099\,100d:help=500:Help=500:HELP=500:6000p:7:1:1::1,9 ;"BIRDFILE MENU":7000X In=418:4;n,3;" ":n q1;21,7;"Press  any number ":0;4;5,4;"1 Read instructions" _4;0;7,4;"2 Start new page";9 ,4;"3 Examine a page" 90;4;11 ,4;"4 Examine Index" 0;4;13 ,4;"5 Save whole file";15,4;"6 Wipe whole file clean":0:23,144:209,0:0,-120x:-209,0:0,120x:7  :0;4;17,4;"7 Finish program"  7000X &.="1"Ŧ="!".05|L,0::1000 0.="2"Ŧ="@".05|L,0::2000 :.="3"Ŧ="#".05|L,0::3000 D.="4"Ŧ="$".05|L,0::4000 N.="5"Ŧ="%".05|L,0::5000 S="6"Ŧ="&".05|L,0::2;7;1;10 ,10 ;"Are you sure?":14,7;"(Press  Y  or  N )":700 U(="7".05|L,0::5500| X 550& 6="y"Ŧ="Y".05|L,0:150:500 -="n"Ŧ="N".05|L,0::500  700 y7:1:1::8:6;1,10 ;"INSTRUCTIONS.":80P,159:104h,0 3,1;"This program is a DATAFILE.";4,1;"It is for you to record data";5,1;"about the birds you have seen."  7000X i200:7,1;"You can record details of up";8,1;"to 1OO birds on one tape." 7000X:200:10 ,1;"You can 'fill' as many tapes";11 ,1;"as you wish, so the total";12 ,1;"number of files is unlimited." 200:14,1;"When using 'BIRDFILE' you";15,1;"are first given a 'menu'";16,1;"asking what you want to do." /7000X:200:1030:1035  q100d:#0;1;" PRESS  SPACE  KEY TO TURN PAGE ":7000X:0:.05|L,0::  [8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 T4,1;"Item 2 on the menu is...";7,6;"2 Start new page." 10 ,1;"If you select this option you";11 ,1;"will be presented with the";12 ,1;"page format and a request";13 ,1;"to ENTER the bird's details." k7000X:100d:16,3;"Press  SPACE  key to view";18,10 ;"an example." n0:.05|L,0::10 :#0;" Press  SPACE  key to return":7000X:0: $n.05|L,0:8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 )4,1;"You will first be asked for";5,1;"the name of the bird. Type";6,1;"this and press ENTER. The";7,1;"bird's name will then go into";8,1;"the relevant box." .7000X:200:10 ,1;"You will next be asked to type";11 ,1;"in the 'Type' of bird.";13 ,1;"For example...";15,1;"TOWNBIRD or COUNTRY or WATER." 37000X:200:17,1;"Type this and press ENTER.";18,1;"Again, this will go into the";19,1;"box provided.":100d:1030 8[8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 =4,1;"Now you will be asked to type";5,1;"'Location Observed'.";6,1;"You have 3 lines in which to";7,1;"record where you saw the bird." Bk7000X:200:9 ,1;"Next is 'Sex'. Here you put";10 ,1;"Male or Female." G^13 ,1;"It is best to use the same";14,1;"type of entry throughout." L7000X:200:17,1;"Next comes the date. This must";18,1;"be entered as, for example";20,12 ;"23 10 83" Q#7000X:200:1030 V[8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 Z4,1;"Next you will be asked to type";5,1;"the bird's activity when";6,1;"you saw it.";7,1;"For example...";8,1;"FLYING or FEEDING or BATHING." `7000X:200:10 ,1;"Lastly you will be asked to";11 ,1;"add any additional comments.";12 ,1;"These might be time of day or";13 ,1;"the weather conditions etc." e7000X:200:15,1;"When you have completed ";16,1;"the page, all you need to do";17,1;"is press any key to store this";18,1;"page on file." j#7000X:200:1030 o[8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 ts4,1;"The next item on the menu is";6,6;"3 Examine any page.";8,1;"Selecting this option results";9 ,1;"in you being asked to type";10 ,1;"a page number (1 to 1OO). On";11 ,1;"doing so you will be given a";12 ,1;"display of that page whether";13 ,1;"it's empty or not." y#7000X:200:1030 ~[8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 4,1;"The next item on the menu is";6,6;"4 Examine Index.";8,1;"Selecting this allows you to";9 ,1;"scroll through the entire";10 ,1;"file to see what's on it." '7000X:200:12 ,1;"This is useful to discover";13 ,1;"on which page you have filed";14,1;"which bird. There is also a";15,1;"PRINTER option which";16,1;"enables you to keep a written";17,1;"record as well." #7000X:200:1030 [8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 4,1;"The last option on the menu is";6,6;"5 Save Whole File";8,1;"The instuctions for this are";9 ,1;"given when you choose the";10 ,1;"option. The important thing to";11 ,1;"remember is that you MUST USE";12 ,1;"A DIFFERENT TAPE!!";14,1;"You cannot store data on this";15,1;"'BIRDFACTS' tape." #7000X:200:1030 [8:6;1,10 ;"INSTRUCTIONS":80P,159:104h,0 C4,1;"One further point. Should this";5,1;"program be accidently";6,1;"interrupted for any reason...";7,1;"DO NOT TYPE 'RUN' to start it!";8,1;"'RUN' clears all data out.";9 ,1;"Instead type ""GOTO HELP""";10 ,1;"and press ENTER" 13 ,3;"Would you like to read the";15,6;"instructions again?";17,7;"(Press  Y  or  N )"  7000X .="y"Ŧ="Y".05|L,0::1000 -="n"Ŧ="N".05|L,0::500  1195 21004:q=p:10 !"Name - Max' ";a$(p);" ";a$(p) 67;2;4,1;a$(p):7000X ,#0;"Type: (Town, country or water?)" >="t"Ŧ="T".05|L,0:b$(p)="Townbird":2020 =="c"Ŧ="C".05|L,0:b$(p)="Country":2020 ;="w"Ŧ="W".05|L,0:b$(p)="Water":2020  2012 77;2;4,21;b$(p):7000X $"Location:line 1=Max'28";" ";c$(p) 67;2;8,1;c$(p):7000X $"Location:line 2=Max'28";" ";d$(p) 67;2;9 ,1;d$(p):7000X $"Location:line 3=Max'28";" ";e$(p) 77;2;10 ,1;e$(p):7000X ##0;"Was it male or female?" F="c"Ŧ="C"Ŧ="m"Ŧ="M".05|L,0:f$(p)="Male":2038 H="h"Ŧ="H"Ŧ="f"Ŧ="F".05|L,0:f$(p)="Female":2038  2032 77;2;14,1;f$(p):7000X "Date eg. 20 11 84 ";g$(p) 87;2;14,11 ;g$(p):7000X "Activity: Max'10 ";h$(p) 87;2;14,22;h$(p):7000X !"Comments line 1:Max'28 ";j$(p) 77;2;18,1;j$(p):7000X !"Comments line 2:Max'28 ";k$(p) 77;2;19,1;k$(p):7000X 5#0;"Data correct? Press ( Y  or  n )"  ,="y"Ŧ="Y".05|L,0:2070  X="n"Ŧ="N".05|L,0::a$(p)(1)="":q=q-1:10 :2005  2057  c#0;"Press  any key  to store":0:.05|L,0::ind=ind+1:500 4_0,0:0,175:255,0:0,-175:-255,0 96,5;"Would you like first";8,5;"available empty file?";16,6;"(Press  Y  or  N )" ; 7000X >9="y"Ŧ="Y".05|L,0::p=1:2121I C,="n"Ŧ="N".05|L,0:2125M H 2110> Ia$(p)(1)=" " K,a$(p)(1)""p=p+1:2121I MD:8:10 ,4;"Type page no. required.":7000X Rp Uzp<1p>100d19,1;"PAGE NO. OUT OF RANGE!";20,1;"Please type no. 1-1OO.":2130R W: 8:7;2;10 ,8;"PAGEING OPTION":16,3;"Which page would you like?";18,2;"(type page no. - press ENTER)" 7000X p p<1p>100d19,1;"PAGE NO. OUT OF RANGE!";20,1;"Please type no. 1-1OO":.05|L,0:3005 :10 4,1;a$(p);4,21;b$(p);8,1;c$(p);9 ,1;d$(p);10 ,1;e$(p);14,1;f$(p);14,11 ;g$(p);14,22;h$(p);18,1;j$(p);19,1;k$(p) 7000X:8065 0,13 ;"INDEX":0;4;1;2,0;"Press ""s"" to scroll the index.":4,0;"BIRDS' NAMES.";4,26;"Page":7000X::100d:p=1 n=1100d +a$(p)(14)=" "4020 a$(p);" ";p ::p=p+1: n 2"EMPTY FILE..................";p::p=p+1: n 3#0;"PRINT THIS? Press ( Y  or  N )" t="y"Ŧ="Y".05|L,0:p=1:n=1100d:a$(p); p:p=p+1:n:p=q:4050 ,="n"Ŧ="N".05|L,0:4050  4030 100d::500 98:1,8;"SAVE WHOLE FILE.":100d Q4,1;"1 Put blank tape in recorder";5,5;"and rewind" 10 ,1;"3 Disconnect EAR lead";7,1;"2 Spool tape forward past";8,5;"the plastic leader";12 ,1;"4 Connect MIC lead" 14,1;"5 Start tape recorder";16,1;"6 Press any key TWICE";18,1;"7 Wait for ""OK"" report" 10:.05|L,0:"Birdlog"500 9:8:1;11 ,8;"SWITCH OFF TAPE" 500::8:10 ,3;"Rewind tape, press ENTER,";12 ,4;"and then PLAY tape to";14,12 ;"VERIFY." )0:.05|L,0::"Birdlog" z:11 ,9 ;" RECORDING OK ";13 ,2;"When you want to load that";15,2;"file back in:";17,2;"1 Press X and type 65267";19,2;"2 Press ENTER";21,2;"3 Press J, """", and ENTER";#0;7;1;" Press M  for Menu ":0:.05|L,0::500 |j1;2;7;10 ,11 ;"Are you sure?":13 ,11 ;"( Y  or  N )" -="n"Ŧ="N".05|L,0::500 .="y"Ŧ="Y".05|L,0::5530  5505 _0,0:0,175:255,0:0,-175:-255,0 G1,10 ;"PIPER BOOKS":80P,159:88X,0 d3,1;"We hope that you have enjoyed";4,1;"both the book and these games." 6,1;"Other PIPER FACTBOOKS, with";7,1;"accompanying computer programs";8,1;"are now available - ask your";9 ,1;"local shop for details." 11 ,1;"Before you can LOAD any other";12 ,1;"programs you will find it";13 ,1;"necessary to SWITCH OFF the";14,1;"computer to clear the machine";15,1;"code. Then switch on again." 18,1;"Programmer - R.D.Holland B.Sc.";19,7;"for CHALKSOFT Ltd";20,1;"Published by PIPER Books 1984." z#0;" Press  any key ":0:.05|L,0::11 ,8;"Goodbye for now!":500: p/6005u:n=07:a:""+n,a:n uM170,85U,170,85U,170,85U,170,85U z Xran=1+(*3) ]ran=17050 ^ran=27010b _ran=37040 b0n=205023:.009ztj,n:n: 0n=3060<4:.009ztj,n:n: 0n=5020-3:.009ztj,n:n: ? @@8:0;4;2,8;"PAGEING CONTROLS" E8,2;"5 Turn back one page";10 ,2;"8 Turn forward one page";12 ,2;"7 Go to first page";14,2;"Z Make a written record" F(16,2;"M Return to Menu" J1030: TB:8:0;4;2,8;"PAGEING CONTROLS" Y8,2;"5 Turn back one page";10 ,2;"8 Turn forward one page";12 ,2;"7 Go to first page";14,2;"6 Go to last page entered" ^(16,2;"M Return to menu" cG5;0;1;20,7;"Press  any number " h-="m"Ŧ="M".05|L,0::500 m^(="5"Ŧ="%")p>1.05|L,0::q=q-1:p=p-1:10 :8065 o`(="8"Ŧ="(")p<100d.05|L,0::q=q+1:p=p+1:10 :8065 p:="z"Ŧ="Z".05|L,0:::10 :8065 qN="7"Ŧ="'".05|L,0::p=1:q=1:10 :8065 | 8040h 7;2;4,1;a$(p);4,21;b$(p);8,1;c$(p);9 ,1;d$(p);10 ,1;e$(p);14,1;f$(p);14,11 ;g$(p);14,22;h$(p);18,1;j$(p);19,1;k$(p) T#0;"5=back:8=forward:7=first page: Z= COPY : M=return to Menu ":8040h R STOP THE TAPE n elnqpEdDEMONSTRATION SPARROW ALBATROSS CHIMNEY SWIFT ‰d Water Townbird Water Townbird ý dThis file has been loaded In my back garden Southern Atlantic Ocean Disused factory Ľ dwith details of a few birds Under the big beech tree Slip-streaming our boat Flying in-and-out of chimney Ž dBrowse through it, and ]dFemaleMale FemaleMale %duse 21 07 8421 07 8425 07 84 ȉd option 6 Hunting Playing ʽ dto wipe it clean when you Looked like 'Beaky'! The weather was very stormy Lots of them! They seem to ˽ dwant to create your own files Comes here every year Didn't seem to bother him use it as a hotel! aUa