ZXTape! game1 !   49150 DINOSAURS instructions  Sandra Smallwood for Chalksoft Ltd Published by PIPER Books Ltd 1984 Version 14 07 84 '1:0:0:7000X S:7:11 ,5;"Do you want a briefing?";13 ,14;"(Y/N)" ="Y"Ŧ="y"20 ="N"Ŧ="n"990  17 /q=15:wipe:6000p:space:q L:6:10 ,8;"Repeat briefing?";12 ,13 ;"(Y/N)" -="Y"Ŧ="y"0:0:::20 ="N"Ŧ="n"999  910 0:0::#0;7;3;" Press  PLAY  on tape ":"":n=23232Z23296[:n,0:n:0:20,0;:"":20,0;:"" 27:start=5:d(1):6000p: :0,0;4;" " -7;" " )6;" "  .75@,-25:  pq=15 qq=26 rq=33 sq=44 tq=57 zFn=15:p$:start+n*2,2;"";:m=1̱p$:1;7;7;" ";:.05|L,15+q*5:8;0;0;" ";8;p$(mm);:m:(start+n*2)+1,2;1;0;7;" ":5000:(start+n*2)+1,2;0;0;" ":n: Xinstructions Yz:21,0;"LOADING Characters by MICROKRAFT":0:0,0;:"":236077\,191 ]z=15::d(5):space=8000@:start=5:wipe=9000(#:n=15:d(n)=6910+100d*n:5+2*n,7;n+1;"Press ";1;" STOP ";0;" on tape";:.05|L,-25+n*7:n:z ^ 100d b "Welcome to the PIPER ACADEMY" l!"of TIME TRAVEL. You have been" v"accepted as a TRAINEE" "TIME TRAVELLER. Prepare" "to start your training..." "You face four challenging" "tasks. Each task takes you" "back in time. Read your" "'DINOSAUR WORLD Factbook'" "carefully before you start." *"Each task is completely" 4 "different. Your goals are to" >"complete each task AND to" H!"win PROMOTION. Can YOU become" R"a TIME MASTER?" "Each time you complete a " !"task you will get a CODEWORD."  "WRITE IT DOWN. Keep it safe." !"Without it you will be unable" "to tackle later tasks." !"If you have a printer, switch" "off and link it up. You'll" "want to print out your" "certificate! Ready for the" "Aptitude Test? Good luck!" ? @Pause for space key J20,9 ;1;6;1;" Press SPACE ";21,9 ;6;1;1;" for next page " T" "8020T ^ #(Set-up screen for info #2x:4000:7:0,143:255,0:0,-119w:-255,0:0,119w #888888ll$HDDDDD|@||.J`@8800```00 0~<~| ~~ |DLTdd|p|~~``~>>~@DDD~ |@@| ||D@|dd|~B|DD|dd||DD| L|888888880 0`0 ||||0  0~B|D(D((D `~~```~~@ ~~~~ x ~BB~~@@~BBBBB~@@BDxDB|TTTD~BBBB~BBB~~BB~@@~BB~~B@@@~@~~ ~ >BBBB~DDD(DTTT|D((DBBB~~| |<0p0<8<  <81kF@@> ` 0 ?@@ `~ ~~~~~|~D~~~x~~~~B~~x~~~`@ BBBTTBBB BBBD@B B00 `@`@ ~BB@~T~TBBB B@B~x~B B@`ǀ0@BBB@BTBTBBB B@BBDB B  ~0~B~@~D~|~~~> ~@?B~B~~ >>~0@@@ P(}@ "?Pp||@ `???@@ D@H}@  ?DDDD @`??1B~~~~~ ~B @* ~~B~~~T?DDD??p??qBB@BBB?BBI " TBBD@ B P||D0@ ?w?? ?BB~B~B0BB ?*BBx~ B D@8 d~R @????0?BBB@BXB~= TBBD BH9Ld 0X?<?~~~B~~$d~ P= ?~~B~>~BRq|||  ?| _~P} ?? H?q?????`?8@><?>????? Ҁ|???p??? 8??x0??hihhhhiiiiiiiiiiiiiiiiiiiiiiiiiihiohhhiiiiiiiiiiiiiiiiiiiiiiiiiihihohhiiiiiiiiiiiiiiiiiiiiiiiiiihnnhohiiiiiiiiiiiiiiiiiiiiiiiiiihihhhohhhhhhhhhhhhhhhhhhhhhiiiiihhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhoPPhhhhhhhhhhhhhhhhhhhhhhhhhhhioPPhhhhhhhhhhhhhhhhhhhhhhhhhhhhhPPPPhhhhhhhhhhhhhnnnnnnhhhhhhhhhPPPPhhhhhhhhhhhhhnnnnnnnnnnnhhhPPPPhhhhhhhhhnnnnnnnnnnnnhhhhhPPPPPhhhhhhhhhhhhnnnnnnnnnhhPPPPPPhhhhhhhhhnnnnnnnnnnhhPPPPPPPPhhhhhhhhhhhnnnnnnnhhPPPPPPHH(PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPHC n$$$~$$~$>> $FZb$(>8D D|>"*~ >" <" xDD8~D88$$BB<8DD<  >>*H0DHpHDp "~lTDDDDdTLD$BBB$|""< p$BBJ$x$$8$$v>B@<B|8DDDDD8ƂDD((DDDTlD((DD(8 B@ pp8T p .\xp ,2"2lDD<xp ,2""w<H0p .$8$n<j>**jl4$$f8DDD8l2"2,`6LDL4l2 p<@8x<f$$,DD((VTT|VD((Df$$<x|H$|0p p('19,3;" F to finish" @a= A5a=82Ra=114r.05|L,0:70F B6a=83Sa=115s.05|L,0:150 C7a=70Fa=102f.05|L,0:5800 D7a=76La=108l.05|L,0:9997 ' E 64@ F 6000p P 6500d Z 7000X d7500L:502 game $o(5):f(5):m(5) @i=15:o(i)=0:f(i)=0:m(i)=0:i 3000 which=(*2) no=(*4)+1 which=0190 %7;21,3;"oxygen" 4000 <i=1no:0;5;18,i+3;"":i 196 (7;21,1;" food ": 4000 <i=1no:0;4;18,i+3;"":i `11 ,0;1;1;" ";7;" WHICH CELL? ";1;" " <236099\,502:i=1100d:n=()-480 n=0500 n>0n<6260 800 :i #0;18,4;" " 800  160 .05|L,n*4:11 ,0;" " which=1400 ,food units in cell n -f(n)=f(n)+no 6#0;18,4;" " @f(n)>8600X E1,n*6-4; Ji=1f(n) O(i=42,n*6-5; T4;""; ^i h 800  r'o(n)=8f(n)=82500 | 160 oxygen units in cell n o(n)=o(n)+no #0;18,4;" " o(n)>8650 3,n*6-5; i=1o(n) (i=64,n*6-4; 5;""; i 'o(n)=8f(n)=82500  800   160 reject units 6.05|L,6:0;18,4;" "  800   160 X cell dies b]13 ,1;0;7;1;" Too much food - cell ";n;" dies ":655 S13 ,0;0;6;1;" Too much oxygen - cell ";n;" dies" .05|L,0 i=1250:i Om(n)=113 ,0;" ":750 1,n*6-4;" ";2,n*6-5;" ";3,n*6-5;" ";4,n*6-4;" " t0;18,4;" ":13 ,0;" ":f(n)=0:o(n)=0 9i=15:f(i)=8o(i)=8720 i  160  2000  160  3500 9i=15:f(i)=8o(i)=8720 i  160  time !@time=((256*23673y\+23672x\)/502)*5 *0time100d18,25;:840H 4/time10 18,26;:840H >18,27; H6;0;time Mtime5001000 z time up - end program .05|L,0 count=0 Ii=15:f(i)=8o(i)=8count=count+1 i j11 ,0;3;7;" ";time;" million years have elapsed You have completed ";count; $:count=13;7;" cell ":10808 .<count>1count=03;7;" cells " 8j=1300,:j B)count=0count=14500 Lcount=24600 Vcount=34700\ `count=45000 j 5500|  split cell t11 ,0;7;1;" Cell ";i;" divides to form new cells ";n;" and ";i;" " j=1100d:j 31;(i*480)-21,112p,17 6,i*6-3;" ";7,i*6-4;" ";8,i*6-4;" ";9 ,i*6-3;" " ti*480-17,134:1;0,-4:i*480-25,134:1;0,-4 u4;1,n*6-4;"";2,n*6-5;"";5;3,n*6-5;"" *f(n)=4:o(n)=4:m(n)=0  31;(i*480)-21,151,17 4;1,i*6-4;"";2,i*6-5;" ";5;3,i*6-5;" ";4,i*6-3;" " *(i*480)-21,151,23  *f(i)=4:o(i)=4:m(i)=0 %?11 ,i*6-3;" ":7,i*6-3;i &V11 ,0;" " * cell division m13 ,0;1;"Cell ";n;" is now mature and divides":i=110 :.05|L,0:i 502 m(n)=1 11;n*480-21,151,23 1,n*6-4;" ";1,n*6-2;" ";2,n*6-5;" ";2,n*6-1;" ";3,n*6-5;" ";3,n*6-1;" ";4,n*6-4;" ";4,n*6-2;" " *(n*480)-21,151,17 bn*480-17,134:0,-4:n*480-25,134:0,-4 J7,n*6-3;" ":(n*480)-21,112p,17 4;6,n*6-3;"";7,n*6-4;"";5;8,n*6-4;"";9 ,n*6-3;"" 11 ,n*6-3;n 713 ,0;" " -i=15:m(i)=02590 i  1000  cells and time block 1:1:7: ^x=15:(x*480)-21,151,23:7,x*6-3;x:x [0;17,3;" ";18,3;" ";19,3;" " ]27,21:42*,0:0,13 :-42*,0:0,-13 "15,3;"ENERGY UNITS" ^6;17,23;" ";18,23;" ";19,23;" " p0:187,21:42*,0:0,13 :-42*,0:0,-13 :7 G15,17;"ELAPSED TIME":21,16;"million years" *6;0;18,27;"0" K#0;6;1,0;">> Press  SPACE  to start <<" &=" ".05|L,0:3075 3065 >#0;1,0;" " ?23674z\,0:23673y\,0:23672x\,0 X6;0;18,27;((256*23673y\+23672x\)/502)  divided cell dies 31;(n*480)-21,112p,17 6,n*6-3;" ";7,n*6-4;" ";8,n*6-4;" ";9 ,n*6-3;" " tn*480-17,134:1;0,-4:n*480-25,134:1;0,-4 31;(n*480)-21,151,17 ԁ1,n*6-3;" ";2,n*6-4;" ";3,n*6-4;" ";4,n*6-3;" " *(n*480)-21,151,23 *f(n)=0:o(n)=0:m(n)=0 !11 ,n*6-3;" " 7,n*6-3;n V0;18,4;" ":13 ,2;" "   success '10 ,13 ;" You have passed" $*12 ,13 ;" your Aptitude Test" .(14,13 ;" and are accepted" 8Q16,13 ;" as a ";6;0;"Cadet";1;7;" Time" =$18,13 ;" Traveller at" BH7;0;20,0;"THE PIPER ACADEMY OF TIME TRAVEL" G 3750 L ttune yj=12 ~ 3730  i=16:a,b:a,b:i j g.2~L,7,.2~L,4,.2~L,2,.2~L,0,.2~L,2,.2~L,4  3780 !i=110 :a,b:a,b:i ī.2~L,7,.2~L,4,.2~L,7,.2~L,9 ,.2~L,4,.2~L,9 ,.2~L,7,.2~L,4,.2~L,2,.4L,0  tune2  3830 &i=112 :a:.2~L,a:i f0,0,4,12 ,11 ,9 ,-1,-1,2,11 ,9 ,7   tune3  3880( !i=116:a,b:a,b:i (.3,3,.1}L,3,.3,3,.1}L,3,.1}L,3,.1}L,3,.2~L,5,.4L,6,.3,5,.1}L,5,.3,5,.1}L,5,.1}L,5,.1}L,5,.2~L,7,.4L,8 2 <tune4 F:.05|L,5:.05|L,5:.05|L,10 P change colour i=(*5)+1 m(i)=14040 /ink;(i*480)-21,151,23 ink=7ink=1 ink=ink+1  end 1 1:1:7: 33,0;" Sorry - you have failed to " -'" multiply and evolve. ":502 #'" You are EXTINCT! " .5,-3:.55 ,-3:.2~L,-3:.65&fff,-3:.5,0:.25~,-1:.5,-1:.25~,-3:.5,-3:.25~,-4:.75@,-3:100d ''''''" Have another go. " K#0;6;1,0;">> Press  SPACE  to continue <<" 2=" ".05|L,0:cert=0:502  4570 end 2 1:1:7:  43,0;" Good try - you have evolved to" @'" become a bacteria.":.05|L,1:502 3800:100d  $'''''" Try again to see if you" *>'" can evolve further. ":.05|L,2:100d 4game=0 >K#0;6;1,0;">> Press  SPACE  to continue <<" H2=" ".05|L,0:cert=0:502 R 4670> \end 3 f1:1:7: p43,0;" Well done - you have evolved " z"'" to become a sea " >'" plant. ":.05|L,1:502 {4;;7,1;"";7,8;"";8,1;"";8,11 ;"";9 ,4;"";9 ,10 ;"";10 ,3;"";11 ,6;"";11 ,9 ;"";12 ,2;" ";13 ,2;" ";14,5;" ";15,3;"";15,8;"";16,6;"";17,7;"" u5;7,2;" ";7,11 ;"";8,4;" ";9 ,2;"";9 ,8;"";10 ,9 ;"";11 ,4;"";11 ,8;"";12 ,7;" ";13 ,1;"";14,2;"";15,5;" ";15,9 ;"";16,5;"";16,7;"";18,7;"" 3800:100d '12 ,13 ;"Try again to see" (14,13 ;"if you can become" (16,13 ;"a sea creature "  game=0 ?18,13 ;"or a fish.":.05|L,2:100d jK#0;6;1,0;">> Press  SPACE  to continue <<" t2=" ".05|L,0:cert=0:502 ~ 4970j end 4 1:1:7: 51,0;" Very good - now you are a sea" $'" creature and are " #'" well along the " C'" path of evolution.":.05|L,1:100d 35;5,2;" ";6,1;" ";7,1;" ";8,5;"";8,7;"";10 ,6;"";11 ,6;"";12 ,5;"";13 ,5;"";14,4;"";15,5;"";16,6;"" L4;8,4;"";8,6;"";8,8;"";9 ,3;"";10 ,3;"";10 ,7;"";11 ,3;"";11 ,7;"";12 ,3;"";12 ,8;"";13 ,3;"";13 ,8;"";14,3;"";14,9 ;"" 3850 :100d 3600 :100 d > Press  SPACE  to continue <<" F&=" ".05|L,0:7800x K 5180< |end 5 1:1:7: 21,1;" Congratulations - you are a " $'" born survivor! You have" $'" evolved to become" A'" the first fish. ":.05|L,1:100d 4;5,7;"";6,5;" ";7,4;"";8,4;"";9 ,3;"";10 ,2;"";11 ,2;"";12 ,2;"";13 ,2;"";14,3;"" Œ5;6,9 ;"";8,3;"";9 ,2;"";9 ,8;"";10 ,1;"";10 ,6;" ";11 ,1;"";11 ,5;"";12 ,1;"";12 ,4;" ";13 ,1;"";13 ,4;" ";14,1;"";14,4;" ";15,2;"";16,3;"" 3850 :100d 3600:100 d 0K#0;6;1,0;">> Press  SPACE  to continue <<" :&=" ".05|L,0:7800x ? 56800 Dcode Ecode=1 Ia(5):a$(5) N z$="CADET" Xi=15 bb=1+(*5) la(i)=b v)j=1i-1:a(j)=b5730b {j  a$(i)=z$(b) i code=1  finish  8600! 6,8;"Birth of Life":8,8;"DINOSAUR FACTS":11 ,6;" Sandra Smallwood":13 ,6;"for Chalksoft Ltd.":17,1;" Published by PIPER Books Ltd.":19,13 ;"1984" 3700t:3750 i=1500:i   print certificate   8600!  5700D %1;2;2,3;"";3,3;"";4,3;"":2;39',147,19 *_2,10 ;7;0;"THE PIPER ACADEMY";3,10 ;" OF TIME TRAVEL " 4,8,4;"This is to certify that" >!10 ,10 ;"THE BEARER" H212 ,2;"has passed the Aptitude Test" R"14,9 ;"and is now a" \<6;0;16,6;"CADET Time Traveller" f50;7;19,8;"CODEWORD ";a$ g>#1;1,0;" Print this? Y(yes) or N(no). " h<=89Yů=121y.05|L,10 ::5995k i:=78Nů=110n.05|L,10 :5995k j 5992h kK#0;6;1,0;">> Press  SPACE  to continue <<" l*=" ".05|L,0:cert=1: m 5996l o pgame explanation 1 z1:1:7: 31,0;" It took 500 million years for" #'" life to evolve from the first" #'" single cell organisms to " g'" abundance in the sea. ":.05|L,1:.05|L,3:.05|L,1:100d 72;'" # ":502 $'" Your goal in this test is to " $'" make 5 single cell organisms " $'" evolve to the highest level " $'" of life possible within a time" j'" span of 500 million ""years"". ":.05|L,2:.05|L,4:.05|L,2:100d 72;'" # ":502 8K#0;6;1,0;">> Press  SPACE  to continue <<" B&=" ".05|L,0:502: L 62008 dgame explanation 2 n1:1:7: x31,0;" A cell must contain 16 energy" $'" units in order to evolve: " ]'" ";5;0;"8 OXYGEN";1;7;" & ";4;0;"8 FOOD" i'" If it has any more it will die.":.05|L,1:.05|L,3:.05|L,1:100d 72;'" # ":502 $'" When a cell is filled with the" $'" right number of units it " #'" divides in two. Each new half" '" contains:" ]'" ";5;0;"4 OXYGEN";1;7;" & ";4;0;"4 FOOD" h'" energy units.":.05|L,2:.05|L,4:.05|L,2:150 ,K#0;6;1,0;">> Press  SPACE  to continue <<" 6&=" ".05|L,0:502: @ 6700, Xgame explanation 3 b1:1:7: l31,0;" As energy units flash on the " v$'" screen, press the correct " $'" number to place them in the " $'" cell you want: " s'" ";6;0;"PRESS 1 to 5":.05|L,1:.05|L,3:.05|L,1:100d 72;'" # ":502 ''" PRESS ";6;0;"0";1;7;" to CHANGE ENERGY UNITS.":.05|L,2:.05|L,4:.05|L,2:502 82;''" # ":502  K#0;6;1,0;">> Press  SPACE  to continue <<" *=" ".05|L,0: 4 7200  Lgame explanation 4 V1:1:7: `41,0;" SCORES ARE AS FOLLOWS:- " j'" ";5;0;"Complete";1;" ";5;"Level of ";1;'" ";5;0;" Cells ";1;" ";5;"Evolution ":502 t'" 0-1"," Extinction" ~'" 2 "," Bacteria" '" 3 "," Sea Plants" !'" 4 "," Sea Creatures" \'" 5 "," Fish":.05|L,1:.05|L,3:.05|L,1:100d H''" To pass the Aptitude Test, you":'" must complete 4 or 5 cells." M'" ";2;1;"GOOD LUCK!";1;0;" " :.075},2:.075},4:.1}L,6 K#0;6;1,0;">> Press  SPACE  to continue <<" &=" ".05|L,0:502: ( 7700 x 5900 :  8600! %6,3;"Do you want to :" 10 ,3;"1 try 'Life on Land' now";12 ,3;"2 try 'Birth of Life' again";14,3;"3 finish";16,3;"4 see Certificate again" ,="1"Ŧ="!".05|L,0:7900 3="2".05|L,0:count=0:502 &="3".05|L,0:5800 ="4"Ŧ="$"7800x  7840 ܽ8600!:3,3;"O.K! Do you know your";5,3;"CODEWORD? Do you need to";7,3;"see your certificate again?";9 ,3;"Press Y(yes) or N(no)." &=89Yů=121y7800x &=78Nů=110n7980,  7910 ,<8600!:3,3;"Press PLAY on your recorder" 6 "game2" ? @introduction J1:1:7: T 0,0;"Welcome to " Y80,160:1;7;255,0 ^J1;0;7;'"THE PIPER ACADEMY OF TIME TRAVEL":502 r"''"You have been accepted as a " |%'"Trainee Time Traveller and must" $'"complete the Aptitude Test - " 0'" ";5;0;"Birth of Life" #''"If you are successful you may" "'"enter the PIPER ACADEMY as a " 3'" ";6;0;"Cadet Time Traveller" 1'"and go on to take further tests.":3700t K#0;6;1,0;">> Press  SPACE  to continue <<" &=" ".05|L,0:502:  8200 lintroduction2 v1:1:7: 40,0;"Passing the tests will gain you" :'"promotion in the ";7;0;"PIPER ACADEMY" M'"and the ";6;0;"CODEWORD";1;7;" to enable you" 8'"to travel in the ";2;7;"TIME MACHINE." 502 .2;'" # " '"Promotion ranks are:-" '" Cadet Time Traveller" " Time Traveller Class 2" " Time Traveller Class 1" " Super Time Traveller" $'"and the top rank for experts - " 9'" ";0;7;1;"TIME MASTER" 3750 !K#0;6;1,0;">> Press  SPACE  to continue <<" ! &=" ".05|L,0:502: ! 8450! !3 !4 stop tape !>0:0:7: !Huj=24:i=7152:0;j;i,9 ;" STOP THE TAPE ":.075},2*i:i:j !R !screen !1:1:7: !3,8:0,159:8,172:239,0:252,167:0,-159:247,3:-239,0 !Y0,0;"";0,31;"";21,0;"";21,31;"" ! #(initialisation #29050Z#:i=18 #<.n=07:a:(143+i)+n,a:n #Fi #ZH1,3,7,15,31,63?,127,255 #dQ128,192,224,240,248,252,254,255 #xK0,60<,126~,126~,126~,126~,60<,0 #I0,60<,102f,66B,66B,102f,60<,0 #A0,0,0,0,3,4,8,8 #F0,0,0,0,192,32 ,16,16 #A8,8,4,3,0,0,0,0 #F16,16,32 ,192,0,0,0,0 #$f(5):o(5):m(5) #@i=15:f(i)=0:o(i)=0:m(i)=0:i #game=0 # ' cert=09999' ' 7900 '1,-25::10 ,0;"You can't play 'Life on Land'";12 ,0;"until you've succeeded in this";14,0;"game...":200::502 ounerH!2#<#a~game2    Life on Land Dinosaur Facts. Game 2.  Sandra Smallwood for Chalksoft Ltd. 1984 Pub. by Piper Books Ltd Version 14 07 84  64510 0:0:0: "" ()n=23232Z23296[:n,8:n <4:4:1 F8,0; P"" Z8,0; n"" [[(p @m3  @`Am@m> m`x ;o?s?g8mm`<@m8@x`{%3|#0mm< mp? xC?3 &|`p m < mx`<??? |@m 0< m<? ?@ 88?8?m@| m۞`@ s`?p8m|8m@ ?v-0m x ;m ?E?@P@h|? F?@0@  BD8880$>?>??@P?@|DD@ ??i=8BDx8 ? ??As@y`B<@ >>?@#?Q@0| <c<8||ppspp>`f~f~n~ff`fk0?x|ppp?qpp`fffnff~><~k>0p~ppp?qp`fflff|`f`f0~pppÇ88p~|<6><pppÇ88p`llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllkkllllllllllllllllllllDDDDD`````CCkkkkklllllllllllll````````````CCCkklllllhllll`````````````````ccccckkkhhhhllD`````````````````````````````````````````````````````````````````````````````````````````````````````````````````ddddddddddddddddd```````````````DDDDDDDD`aaaaaaaaaa`````aaaaaaaaFFFFFFFFFDDaaaIIIIILaaaaaaaaaaaaFFFFFFFFFFp`aayyyyyyyyyyaaaaaaaaGFFFFFFFGG```aaaaaaaaaaaaaaaaaaaGGGGGGGGx```````````````ddddddd`````````````````````````````````aaaaaaaaaaaaaaaaaaaa````````````MMMMMMMMMMMMMMMMMMMMaa``````````MMMMMMMMMMMMMMMMMMMMaaaaaaaaaaaaMKKKKKKKKKKIIIIIIIIIIIOOOOOOOOOOIIIIIIIIIMMMIIIIIIIIIIIIIIIIIIIIIIIIIIIIIc ?jlll66666 ?h> ~`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> Press  SPACE  to continue <<" Z32 90Z c..05|L,0:rep=0:amph=5 da=1amph 2000 drep=0 300,  print Ip=1̱p$:#0;0,0;p$(p):.005y# =,12 :p  \q=1̱q$:#1;1,10 ;0;6;q$(q):.005y# =,12 :q N.25~,0:.25~,-3:.25~,0:.25~,-3  ty,tx;7;0;1;"";ty+1,tx;"";1;2;0;"";7;0;1;"";ty+2,tx;"";2;1;0;"";1;7;0;"";ty+3,tx;""  reptile score 9rep<10 0;7;0,30;rep: )0;7;0,29;rep %rep=30150:1600@   amphibian loss ,0;7;0,13 ;amph-a " ,ff=0:game 6<.5700 ^move reptiles rr=1numrep |x(r)=500650 8nx=x(r)+(x(r)xax(r)>1) 8ny=y(r)+(y(r)yay(r)>1) i=1numrep r=i420 nx=x(i)ny=y(i)440 i  y(r)+1,x(r)-1;" " x(r)=nx:y(r)=ny )1;y(r)+1,x(r)-1;"" x(r)=xay(r)=ya1000 b$(y(r),x(r))=""500 b$(y(r),x(r))=""520  650 &p$=" REPTILE STUCK IN A SWAMP! "  200 0i=-20-30-1:.05|L,i:i rep=rep+1:250 34;y(r)+1,x(r)-1;b$(y(r),x(r)) >#0;0,0;" "  550& 'p$=" REPTILE TRAPPED IN A RAVINE! "  200  -i=10 1-1:.05|L,i:i rep=rep+1:250 30;y(r)+1,x(r)-1;b$(y(r),x(r)) !>#0;0,0;" " Xi=1300,:i bx(r)=500 ldrep=drep+1 vedrep=numrepnumrep=numrep+1:drep=0:ya+1,xa-1;" ":2520 :300, ff=1:700 r move amphibian ya+1,xa-1;" " .xa=xa+(="8"xa<32 )-(="5"xa>1) .ya=ya+(="6"ya<19)-(="7"ya>1) %2;ya+1,xa-1;"" b$(ya,xa)=" "799 ?b$(ya,xa)=""4;ya+1,xa-1;"":720  b$(ya,xa)=""1200 #ff=1ff=0:656  3106  end games ,.075},-30:.075},-40( 'p$=" AMPHIBIAN CAUGHT BY A REPTILE! " q$=" Lose 1 life "  1240  -i=10 1-1:.05|L,i:i 'p$=" AMPHIBIAN TRAPPED IN A RAVINE! " q$=" Lose 1 life" 200:230  270  1550  .5,0:.5,0:.25~,-3:.25~,0:.25~,5:.25~,7:.25~,9 :.25~,9 :.25~,9 :.25~,7:.5,5 a @end Ey=3:7900 Frep>191650r J/p$=" You have failed to complete":7815 O*p$=" your first assignment.":7815 T2p$=" REMEMBER, you must capture at ":7815 Y1p$=" least 20 reptiles to attain a":7815 Zp$=" new rank.":7815 ^ 1730 cy=3:7900 h)p$=" O.K! but you remain a":7815 i0p$=" CADET Time Traveller. You do":7815 j+p$=" not have access to the ":7815 k1p$=" remaining tests on this tape.":7815 l&p$=" GOODBYE!":7815 m100d:3500 r3p$=" You have successfully completed":7815 |?rep>29x$="Time Traveller CLASS 1":c$="C":1667 %x$="Time Traveller CLASS 2":c$="B" Cz$=u$(3)+u$(2)+c$+u$(1)+v$(2)+v$(1) .p$=" your first assignment. You":7815 mp$=" captured ":7815:y=y-2:x=12 :y,x;rep;:x=16:p$=" reptiles and":7820 2p$=" have now attained the rank of ":7815 p$=x$:x=2:7820 1800:502  6400  3000  <p$=" Would you like another game?":y=13 :7815 5p$="Press Y (yes) or N (no)":x=6:7820 f=89Yů=121y.05|L,10 :100d:7900:y=3:8530R!:557 :=78Nů=110n.05|L,10 :502:  1750 tune  j=0  1900l i=111 &d,p:d*.5,p 0i 5 :0j=01910v:j=j+1:1860D ?j=j+1:1920 Di=13 Nd,p:d*1.5@,p Xi bj=11810 g l.325&fff,4,.125},7,.5,7,.325&fff,4,.125},2,.5,0,.25~,2,.25~,4 v7.325&fff,7,.125},4,1,2 7.325&fff,2,.125},0,1,0   background 0:7:0: Ni=01:0;i,0;" ":i ?0;21,0;" " d3;7;0,0;" AMPHIBIANS ";4;0;0,18;" REPTILES " A0;7;0,13 ;amph-(a-1):250 b$(19,32 ) y=119  )b$(y)=" " y 4swamps and ravines >i=-5̥*15 Hys=(*19)+1 Rxs=(*32 )+1 \which=(*2) f$which=0w$="":ink=4 p$which=1w$="":ink=0 zb$(ys,xs)=" "b$(ys,xs)=w$  ink;ys+1,xs-1;w$ i reptiles start coords numrep=a+(*a) x(numrep):y(numrep) r=1numrep y=(*19)+1 x=(*32 )+1 i=1r x=x(i)y=y(i)2540 i b$(y,x)" "2540 x(r)=x:y(r)=y r (amphibian start coords Pya=(*19)+1 Zxa=(*32 )+1 db$(ya,xa)" "2640P nr=1numrep sC((x(r)-xa)*(x(r)-xa))+((y(r)-ya)*(y(r)-ya))<162640P r  end y=3:7900 $p$=" Do you want to :":7815 *p$=" 1 try 'Mission 1' now":7815 /p$=" 2 try 'Life on Land' again":7815 p$=" 3 finish":7815 +p$=" Press 1, 2 or 3":7815 &="1".05|L,0:3100 G="2".05|L,0:7900:y=3:8530R!:557 &="3".05|L,0:3200  3070 7900:y=3 &.p$=" O.K! but do you know your ":7815 00p$=" CODEWORD? Do you want to see":7815 :+p$=" your CERTIFICATE again?":7815 D0p$=" Press Y (yes) or N (no).":7815 NE=89Yů=121y.05|L,0:6400:3000 X9=78Nů=110n.05|L,0:3300 b 3150N 7900:y=3 !p$=" Are you sure?":7815 +p$=" Press Y (yes) or N (no)":7815 9=89Yů=121y.05|L,0:3500 9=78Nů=110n.05|L,0:3000 3230 7900:y=3 7:7: -p$=" Fastwind tape forward":7815 &p$=" Turn tape over":7815 "p$=" Press PLAY":7815 "game3"  finish 0:0:7: ʴ8,0;"'Life on Land'":10 ,0;" S.J.Smallwood":12 ,0;"for Chalksoft Ltd":14,0;"Published by Piper Books 1984" 1800 i=1500:i    next game j tmove amphibian ~xy=(*4) 1xy=0ix=-1:iy=0:3760 0xy=1ix=1:iy=0:3760 1xy=2ix=0:iy=-1:3760 ix=0:iy=1 ampy,ampx;" " ampx=ampx+ix:ampy=ampy+iy ampx<1ampx=1 ampx>30ampx=30 ampy<2ampy=2 ampy>20ampy=20 3(ampx-tx)<4ƽ(ampy-ty)<43710~ 2;ampy,ampx;"" .01z# =,-20:25  screen  ano=0 0:7:0: Ni=01:0;i,0;" ":i ?0;21,0;" " Y2,0;"";2,31;"";20,0;"";20,31;"" screen=2  screen1 j3;7;0,0;" AMPHIBIANS ";5;0;0,16;" PRESS A or B " )0;7;0,13 ;ano 64tx=(*26)+1:ty=(*14)+2 @ty,tx;7;0;"";ty+1,tx;"";1;2;1;"";7;0;0;"";ty+2,tx;"";2;1;1;"";0;7;0;"";ty+3,tx;"" J8ampx=(*30)+1:ampy=(*18)+2 O@((ampx-tx)*(ampx-tx)+(ampy-ty)*(ampy-ty))<9 4170J T2;ampy,ampx;"" hprint question rquest=(*20)+1 |q(quest)=quest4210r #restore=9280@$+20*quest @qno=1:p=120:q(p)>0qno=qno+1 Bp:qno=20p=120:q(p)=0:p:4210r  restore ans,p$ p=1̱p$ 9#0;0,0;;p$(p);:.005y# =,12 p (p=7̱p$:p$(p)="A"xA=p-1 p -n=23231Z+xA23264Z:n,40(:n p$ p=1̱p$ 7#1;1,0;p$(p):.005y# =,12 p (p=7̱p$:p$(p)="B"xB=p-1 p -p=23263Z+xB23296[:p,40(:p 0answer :an= DHan=65Aan=66B.05|L,0:an=an-64@:4450b NHan=97aan=98b.05|L,0:an=an-96`:4450b X3700t:4410: b0an=ansq(quest)=quest:8400 :4500 l 243 q 8450! v 4640  fire -tx+1>ampxxsign=-1:4530 xsign=+1 ,ty+1>ampyysign=1:4550 ysign=-1 .dx=(tx+1-ampx):dy=(ty+1-ampy) dx>dydi=dx:4580 di=dy i=1di yxA=((tx+1)+xsign*(i-1)*dx/di+.5)*8:yA=((20-ty)+ysign*(i-1)*dy/di+.5)*8 1;xA,yA ty,tx;7;0;"";ty+1,tx;"";1;2;1;"";7;0;0;"";ty+2,tx;"";2;1;1;"";0;7;0;"";ty+3,tx;"" 1;xA,yA+1 >.005y# =,10 :.001wn,30:.001wn,4 i a.05|L,-15:.05|L,-16:.05|L,-17:2;1;ampy,ampx;""  :ano=ano+1:0;7;0,13 ;ano 502:ampy,ampx;" "  ano5screen=2: * 4010   code check  7900 v$=r$ $v$<2v$=v$+"Z":5020 u$=s$ $u$<3u$=u$+"Z":5040 *i=15:t$(i)="C"5048 i  5060 *i=15:t$(i)="A"5051 i  5060 *i=15:t$(i)="D"5054 i  5060 *i=15:t$(i)="E"5057 i  5060  i=15:t$(i)="T" i  5060 i5,9 ;1;"INVALID ENTRY":i=110 :.25~,10 :.25~,5:i 95100:y=7:i=17:7800x:i 150:3500 " You cannot enter " $"THE PIPER ACADEMY OF TIME TRAVEL"  " without your CODEWORD. Take"  " the APTITUDE TEST in 'Birth" " of Life'. If you pass, you"  " will receive your CODEWORD." (" GOODBYE for now!"  certificate  7900 5;2;1,3;"";2,3;"";2,6;"";3,3;"";3,6;"";4,3;"":5;2;2,4;"";3,4;"" &2;39',151,19 sp$="THE PIPER ACADEMY":y=2:x=10 :7820:p$="OF TIME TRAVEL":y=4:x=11 :7820 (@p$="This is to certify that":y=8:x=4:7820 21p$=r$+" "+s$:y=10 :x=7:7820 96`q$=(-32 ) y,x;q$:.05|L,10  x=x+1  m$=m$+q$ &flag=2Ʊm$=68200 m$=11 8200  8150 ;8360 :y=y+2:i=12:7800x:i :=89Yů=121y.05|L,10 :8230& ]=78Nů=110n.05|L,10 :7900:y=9 :8340 :8115 ! 8210 &uflag=0flag=1:r$=m$:7900:3,1;"FIRST name ";r$:y=9 :8340 :8115 +flag=1flag=2:s$=m$:7900:3,1;"FIRST name ";r$:5,1;"LAST name ";s$:y=9 :8340 :8115 0t$=m$ : v" THE PIPER ACADEMY OF " " TIME TRAVEL " " REGISTER NOW" " Type in your " !" then press the ""ENTER"" key" " Is your entry correct?" " Press Y (yes) or N (no)" correct P#0;0,0;7;1;"***** CORRECT *****" >#1;1,0;" " J.1}L,10 :.2~L,7:.1}L,10 :.4L,3  !wrong !P#0;0,0;7;2;"!!!!! WRONG !!!!!" !>#1;1,0;" " ! i=15 !.j=10 305:.005y# =,j:j !/j=3010 -5:.005y# =,j:j !i !* !4 assignment !>7900:y=1 !C&p$=" Welcome "+r$+" "+s$:7815 !H2p$="CADET Time Traveller":x=9 :7820 !M502:y=y+1 !R.8670!:i=12:7800x:i !W9=89Yů=121y.05|L,0:8550f! !\A=78Nů=110n.05|L,0:502:557 !a 8535W! !fdy=y-4:x=0:i=12:y,x;" ":y=y+2:i !.8600!:i=14:7800x:i !E1:7:p$="THE PIPER ACADEMY OF TIME TRAVEL":7815 ! y=y+1 !B#1;1,0;">> Press  SPACE  to continue <<" !32 8595! !.05|L,0:8700! ! ! ! " Your first assignment is to" ! " collect as many prehistoric" ! " reptiles as you can." !"" These are needed for study at" !"" Capture 20 reptiles to become" !" a TIME TRAVELLER " !#" Capture 30 reptiles to become " !" a TIME TRAVELLER " !" Would you like to see the " !!" instructions? Press Y or N" !instructions " 8800`" "j=12 "itot "7900:y=2 " 7800x "i=1itot "$ 7800x ".i "8B#1;1,0;">> Press  SPACE  to continue <<" "B32 8770B" "L.05|L,0:j "`$5," There is no time limit." "j&" Your TIME MACHINE is equipped" "o' " with COMPUTER-CONTROLLED DARTS." "t" These have no effect on" "y"" reptiles but they can be used" "~" to control amphibians." "#9 ," Fire the darts at the " "!" AMPHIBIANS by answering your" "$" computer's questions correctly." "" You can then control the " """ amphibians' movements to lure" "" REPTILES into SWAMPS and" "" DEEP RAVINES. " "" The answers to all the" "#" questions are in your DINOSAUR" "$" WORLD Factbook (pages 10 to 22)" """ Capture 20 reptiles to become" "" a TIME TRAVELLER " "#" Capture 30 reptiles to become " "" a TIME TRAVELLER " """ REMEMBER - YOUR AIM IS TO WIN" " " PROMOTION." #7900:y=2 # f5:0:7800x:7800x:6:x=18:y=y-2:p$="Class 2":7820 #f5:0:7800x:7800x:4:x=18:y=y-2:p$="Class 1":7820 #75:0:y=y+1:7800x:7800x #e2:7:1:x=7:p$="GOOD LUCK, Cadet!":7820:5:0:0 ##B#1;1,0;">> Press  SPACE  to continue <<" #$32 8996$# #&U.05|L,0:#1;1,0;">> Press  SPACE  to continue <<" #' #(initialisation #2 9050Z#:i=113 #<.n=07:a:(143+i)+n,a:n #Fi #P #ZH0,0,8,44,,189,255,36$,36$ #dG0,24,60<,86V,255,36$,0,0 #nL0,16,146,146,146,84T,568,254 #xQ129,129,195,195,195,195,255,255 #Q255,252,240,224,192,192,128,128 #E255,63?,15,7,3,3,1,1 #Q128,128,192,192,224,240,252,255 #E1,1,3,3,7,15,63?,255 #B0,0,0,0,1,3,7,15 #I0,0,0,0,128,192,224,240 #B15,7,3,1,0,0,0,0 #I240,224,192,128,0,0,0,0 #G0,32 ,64@,255,72H,40(,8,8 $T,2," Blunt-toothed A flesh " $^$" reptiles ate B plants " $h,1," Sharp-toothed A flesh " $r$" reptiles ate B plants " $|,1," Reptiles could A on land " $$" live entirely B in water " $,1," The first known A Ichthyostega" $$" amphibian was B Microbrachis" $,2," Ichthyostega A 3 metres " $$" measured B 1 metre " $,2," Amphibian eggs A on land " $$" were laid B in water " $,1,"Coelacanths A strong stumpy fins" $$" had B airbreathing lungs" $,2," Eusthenopteron A salt water " $$" lived in B fresh water " $,1,"Early jawless A ostracoderms" $$"fishes are called B placoderms " %,1,"The ancestors of A bony fishes " %$"dinosaurs were B jellyfish " %,2," Amphibians A dry deserts " %&$" lived in B swampy forests " %0,1," Labyrinthodonts A amphibians" %:$" were prehistoric B reptiles " %D,1,"Reptile eggs had a A waterproof" %N$"hard shell that was B porous " %X,2," Amphibians gave A dinosaurs " %b$" rise to B reptiles " %l,2," Reptiles gave A amphibians " %v$" rise to B dinosaurs " %,1," Dinosaur A terrible lizard " %$" means B prehistoric beast" %,1," Amphibian A soft and jellylike" %$" eggs are B tough and hard " %,2," Rhipidistians A 1 metre " %$" grew up to B 3 metres " %,1,"The first fish to A lobe-fins " %$"move ashore were B shell-skins" %,2,"Animals without A vertebrates " %$"a backbone are B invertebrates" gnTT