ZXTape! game3   Mission1 Dinosaur Facts. Game 3.  Sandra Smallwood for Chalksoft Ltd. 1984 Pub. by Piper Books Ltd Version 17 07 84  50430 &0:0:0:1: "" (+n=23232Z23296[:n,112p:n <5:5 F0,0; P"" 0,0; "" [[(pic @3LJ??~8}??>?}|??????~8??088p8?x>c81p}?K`xp`88p8cx81pҀE??K?p`x0 0`<pa<80pE 0 K`x0`0<p?``00pE @K8lN8`06p` ``00|pE ?`?K ?lN<86p` `0`0|p?A???ppI0`<f83p`80<p>(0@@?pof83px>0>@@> @@@?@ p||@<?0 @@ @@@@ DDDx`~ ~~~~~|~D~~~x~~~~B~~x~~~B~~~~~~B~~B~~~DDD~`@ BBBTTBBB BBBD@B BBB@BBBBBBBD@ B||Dx`@ ~BB@~T~TBBB B@B~x~B BBB~B~BBB?BBx~ B d~0@BBB@BTBTBBB B@BBDB BBBB@BB~?BBD BLd ?~0~B~@~D~|~~~ ~@B~B~~ >>~~~~B~~~ǀ?~~B~>~||| ~mmmmmmmmmmmmmmmoooooooooooooooooooommmmmmmmmmmmmmhhhohhhhhhhhooollllllmmmmmmhmmmohhhhhhhoooDDDlllnnnnnnnnnnnhhhhhooDDDDDllllllllnnnnnnh(@hh``````DDlllllhhhhhhhhh`xx `DDDDDDlllllll`,`xx DDDD``````````ppppppdddd`ppppppttttttttttdddD`84ppppppttttttttttffff ppppppppppttttttttttttttp8ppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppupppppppmc 4:6: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|Op8p?<<?`?~?~??`??@`?>?????8?x ??|?<l?0????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????~߀@>@߀|@??߀x??????/|?? <(0?~?x(? >@? ?p??| 8 ?>?  ??`? ??x? ??< ??????????~???????O??`?`>?!?(?~?a???s ??~x???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????!@~#@!~#!@~#@!~# 88wM1 HG_ H0:5:0: 236077\,196  F 8000@ Z8a(8,5):t(5):p(5):c(6) [:c$(5,29):n$(17):d$(8,17) \ 9900& _7600:7700 d8050r:8400 n85004!:8700! 8800`" start dcount=0:score=0 $i=15:c(i)=0:i &no=0:tno=1:new=0 1cno=1:i=15:c(i)=0:i dino=(*8)+1 tno=66000p )i=15:t(i)=dino200 i n$=d$(dino) edino=3dino=4dino=8y1=11 :y2=21:y3=0:y4=9 :210 3y1=0:y2=10 :y3=12 :y4=21 t(tno)=dino ;part=(*5)+1:p(1)=part:pflag=0 i=14 5pflag=1p(i+1)=p(i)-1:250 p(i+1)=p(i)+1 Fp(i+1)>5pflag=1:p(i+1)=p(1)-1 i z=1:x3=31 %dino<57200 :290"  7300 "x1=a(dino,p(z)) 'x331x2=31 B end y=3:7900 $p$=" Do you want to :":7815 p$=" 1 try Mission 2 now":7815:p$=" 2 try Mission 1 again":7815:p$=" 3 finish":7815:p$=" 4 see Certificate again":7815 8=491ů=33!.05|L,0:4100 7=502ů=64@.05|L,0:190 8=513ů=35#.05|L,0:4200h 8=524ů=36$.05|L,0:6600  4040 7900:y=3:p$=" O.K! Do you know your":7815:p$=" CODEWORD. Do you need to see":7815:p$=" your certificate again?":7815:p$=" Press Y (yes) or N (no).":7815 9=89Yů=121y.05|L,0:6600 9=78Nů=110n.05|L,0:41506 " 4110 6F7900:y=3:p$=" Press PLAY on your recorder":7815 @"" J h7900:y=3 r/p$=" Are you sure? Press Y or N.":7815 |9=89Yů=121y.05|L,0:6800 9=78Nů=110n.05|L,0:4000  4220|   flash names >#0;1,0;"Press ENTER when name = dinosaur" "5;yp,1;"Dinosaur " J=12 i=18 5;yp,10 ;d$(i) .05|L,10 :502 =13 5100 i J M5;yp,10 ;"unidentified":.05|L,10 :.05|L,5  30 score=score+5  d$(i)=n$5200P S5;yp,10 ;"wrongly identified":.05|L,10 :.05|L,5 score=score+5   PY5;yp,10 ;"correctly identified":5;yp+1,10 ;"as ";d$(i) Z&.05|L,2:.05|L,4 ddcount=dcount+1 n 100d  5300  print dinosaur &dino<57200 :5310  7300 x1=a(dino,1)  z=5 x2=x1+(3*z)-1  1300  62008 5:y3+1,1;" ":y3+2,1;" ":y=y3+1:x=7:p$=d$(dino):7820 ?#0;0,0;" Print this? Y (yes) or N (no) " ,="n"Ŧ="N".05|L,0:5390 E="y"Ŧ="Y":.05|L,0:n=130:n:5360  5360 Mt(tno)=dino:tno=tno+1:new=1:n=15:c$(n)="":n: p end routine z"y=3:x=1:7900 ,t$(3)="C"score5026050 score2006100 .6150:i=13:7800x:i @t$(3)="B"p$="as a Time Traveller Class 1.":6040 !p$="as a SUPER Time Traveller." 47815:100d:1,-25:502  7900 Cy=3:x=1:p$="Another game? Press Y or N":7815 8=89Yů=121y.05|L,0:190 9=79Oů=110n.05|L,0:6800  6043  6165 "i=13:7800x:i 5p$="as a SUPER Time Traveller.":7815:k$="D"  6140 $6180$:7800x:6170 "i=12:7800x:i Tt$(3)="B"p$="as a Time Traveller Class 1.":7815:k$="C":6140 5p$="as a SUPER Time Traveller.":7815:k$="D" H502:y=y+2:p$="Your CODEWORD for MISSION 2 is":7815 [p$=h$(3)+h$(2)+k$+h$(1)+g$(2)+g$(1):x=13 :7820 150:6600 !"You were slow to identify the"  ""dinosaur shapes and need more " !"practice in order to qualify " "EXCELLENT! You were very" ""quick to identify the dinosaur" !"shapes and have now qualified" $!"CONGRATULATIONS! You were " 8print screen =yp=y3+1 BMy1=05;y2+1,0;"" LRy1=11 5;y1-1,0;"" Vj7;y1,0;"":7;y1,31;"":7;y2,0;"":7;y2,31;"" jDy=y3y4:5;y,0;" ":y ~*y3=12 3,3:6290 y3=03,95_ L0,78N:249,0:0,-78N:-249,0 Ny3+4,2;5;0;1;" Computer-simulated screen " y=y1y2-5 8y=y15;y1,0;"":xy=1:6312  xy=0 gdino=6y=y2-5x=031:5;y,x;" ";:.001wn,12 :x:6360 'dino=7y=y2-56330 pdino=7x=xy31:5;y,x;" ";:.001wn,12 :x:5;y1,31;"":6360 =x=xyx1-1:5;y,x;" ";:.001wn,12 :x =x=x1x2:5;y,x;1;" ":.001wn,12 :x ^x=x2+131:5;y,x;" ";:.001wn,12 :x:5;y1,31;"" y y=y2-4y2 8y=y24;y2,0;"":xy=1:6390  xy=0 Udino=6x=xy31:4;y,x;" ";:.001wn,12 :x:6430 =x=xyx1-1:4;y,x;" ";:.001wn,12 :x =x=x1x2:4;y,x;1;" ":.001wn,12 :x  Bx=x2+131:4;y,x;" ":.001wn,12 :x y (Ly3+4,3;5;0;0;" " 24;y2,31;"" dn=15 n&y3+3+n,1;5;c$(n) xn   certificate 5:0:  7900 [5;2;2,3;"";3,3;"";4,3;"" &2;39',147,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 1p$=r$+" "+s$:y=10 :x=7:7820 Bp$="has attained the rank of":y=12 :x=4:7820 1k$="C"p$="TIME TRAVELLER Class 1":6685 p$=" SUPER Time Traveller" #y=14:x=4:7820 "kp$="signed":y=16:x=16:7820:p$="TIME CONTROLLER":y=20:x=16:7820 '150,32 :1,-12 :150,27:5,6:150,28:7,-5:160,28:1,-6:160,27:5,1 (170,25,3:175,29:1,-6:175,28:5,1:1,-6:187,27,3: )j193,24:4,1:0,2:-3,1:0,2:5,1 ,17,1;"":18,1;" ":19,1;" ":20,1;"" 6p$="CODEWORD":y=18:x=2:7820:p$=" "+h$(3)+h$(2)+k$+h$(1)+g$(2)+g$(1):y=19:x=2:7820 @?#1;0,0;" Print this? Y (yes) or N (no) " JS=89Yů=121y.05|L,10 ::n=130:n:6730J T:=78Nů=110n.05|L,10 :6750^ Y 6730J c 7900 h 4000 r end  7900 s6,0;"""Mission 1""":8,0;"DINOSAUR FACTS":10 ,0;" Sandra Smallwood" -12 ,0;"for Chalksoft Ltd" Q17,0;"Published by PIPER Books Ltd";19,0;"1984" i=1500:i    pic1 *-7:7::l=65261:0 4 pic2 -7:7::l=65303:0  set print positions i=15  a(1,i)=1+2*i !a(2,i)=13 +3*i *a(3,i)=0+3*(i-1) !a(4,i)=13 +3*i *a(5,i)=0+3*(i-1) !a(7,i)=14+3*i !a(6,i)=13 +3*i i =i=15:a(8,i)=1+6*(i-1) i   names d$(1)="Ornithomimus" (d$(2)="Parasaurolophus" 2d$(3)="Stegosaurus" <d$(4)="Triceratops" F!d$(5)="Tyrannosaurus Rex" Pd$(6)="Pteranodon" Zd$(7)="Euoplocephalus" dd$(8)="Diplodocus" n xprint p$  x=1 p=1̱p$ ,5;y,x;p$(p);:.005y# =,10 p  y=y+2  screen 0:5:0: _3,3:0,169:249,0:0,-169:-249,0  @ stop tape J1:1:7: Tj=57:i=6172:1;j;0;i,9 ;"STOP THE TAPE":.075},i:.05|L,j+2:i:.353333,j:j:.75@,-25 ^ r welcome |236099\,35# y=3:flag=0  7900  8300l "i=12:7800x:i 9000(#:y=y+2 %7800x:x=21:y=y-2 7flag=0p$="FIRST name":7820:8110 6flag=1p$="LAST name":7820:8110 )flag=2p$="CODEWORD":7820  7800x 9flag=2y,1;"Code ":x=6:8115 y,1;"Name ":x=6 m$="" ""8120 =""8130 =13 8170 &q$=:>96`q$=(-32 ) y,x;q$:.05|L,10  x=x+1  m$=m$+q$ &flag=2Ʊm$=78170 m$=11 8170  8120 ;8350 :y=y+2:i=12:7800x:i :=89Yů=121y.05|L,10 :8200 ]=78Nů=110n.05|L,10 :7900:y=9 :8330 :8105  8180 uflag=0flag=1:r$=m$:7900:3,1;"FIRST name ";r$:y=9 :8330 :8105 flag=1flag=2:s$=m$:7900:3,1;"FIRST name ";r$:5,2;"LAST name ";s$:y=9 :8330 :8105 t$=m$ : l " WELCOME" " to the TIME MACHINE" "Please type in your " !"then press the ""ENTER"" key." "Is your entry correct?" "Press Y (yes) or N (no)." code check g$=r$ $g$<2g$=g$+"Z":8402 h$=s$ $h$<3h$=h$+"Z":8408 ډt$=h$(3)+h$(2)+"B"+h$(1)+g$(2)+g$(1)t$=h$(3)+h$(2)+"C"+h$(1)+g$(2)+g$(1) 7900 i5,9 ;1;"INVALID ENTRY":i=110 :.25~,10 :.25~,5:i B8450!:y=9 :i=16:7800x:5:i  !!"You cannot travel in the TIME" ! !"MACHINE without your CODEWORD" !#"which you will obtain when you" ! "have qualified as a TIME" !*"traveller in games 1 and 2." !/" GOODBYE for now!" !4 mission !>7900:y=3 !H 8600! !R"p$="Hi! "+r$+" "+s$ :7815 !W x=5 !\=p$="Time Traveller ":7820:x=x+15:y=y-2 !f7t$(3)="B"p$="Class 2":7820:8570z! !p+t$(3)="C"p$="Class 1":7820 !z y=y+2 !"i=16:7800x:i !" "8595! ! !""Your mission is to travel back" ! "to THE AGE OF THE DINOSAURS " !""and to identify those that you" !"see." ! "Press ""SPACE"" key to start" !"your journey." !travel "0:0: "Wy=021:1;1;2;y,5;" ":y "Qy=318:1;2;1;y,8;" ":y "$Ly=615:1;1;2;y,11 ;" ":y ".Fy=9 12 :1;2;1;y,14;" ":y "8<j=110 :i=1520:.03{u\,i:i:j "BJi=110 :254,*7+16:254,*7:i "L0:0: "V 100d: "` landing "j7900:y=3 "t 8900" "~"i=14:7800x:i ":=83Sů=115s.05|L,10 :8860" " 8840" "1::502:0 "7900:y=3 " 8940" ""i=19 :7800x:i "" "8895" " " "You have crash-landed. It is" ""too dangerous to leave the" " "TIME MACHINE. Press ""S"" to" ""switch on your scanners." ""Your scanners have been" " "damaged on landing. You must" """identify the dinosaurs as best" #"you can with the aid of the" # "onboard computers and your " # "DINOSAUR FACTBOOK (pp22-55)." #""When you spot the name for the" #"dinosaur - press ""ENTER""." #"Press ""SPACE"" to start." #(tune #2i=12:.15~,-10 :.15~,-8:.15~,-9 :.15~,-7:.15~,-8::.15~,-6:i:i=-10 0:.05|L,i:i:502 #< #Ornithomimus #"A ""bird-like"" dinosaur" #"Toothless beak" #"Claw-tipped hands" #"Ate eggs of other dinosaurs" # "Lived at end of Dinosaur Age" #Parasaurolophus #"A ""big lizard"" dinosaur" $"Length 9 metres" $!"Backward-curving horn on head" $"Browsed on trees" $" "Lived at end of Dinosaur Age" $T Stegosaurus $^!"A ""plated reptile"" dinosaur" $h"Length 9 metres" $r!"Brain no larger than a walnut" $|"Back taller than a man" $"Lived 150 million years ago" $ Triceratops $"A ""horned-face"" dinosaur" $"Length 11 metres" $"Weighed 8.5 tonnes" $"Plant-eater" $ "Lived at end of Dinosaur Age" %Tyrannosaurus rex %& "A ""tyrant-lizard"" dinosaur" %0"Length 14 metres" %:!"Tiny arms, powerful hind legs" %D"Carnosaur (meat eater)" %N"Lived 70 million years ago" % Pteranodon % "A ""winged-lizard"" dinosaur" %"Wingspan of 7 metres" %"Bony crest on head" %"Fish eater" %"Lived 200 million years ago" %Euoplocephalus %""A ""rounded-reptile"" dinosaur" %"Length 4.5 metres" &"Tail ended in a bony club" & ""Protected by sharpedged plates" &"Lived in North America " &H Diplodocus &R "A ""lizard-footed"" dinosaur" &\"Length up to 27 metres" &f"Called ""double-beam"" " &p"Plant eater" &z!"Lived 200 million years ago " &initialisation & 9920& &Di=18:n=07:a:(143+i)+n,a:n:i & &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 &K0,0,0,248,252,254,254,254 &Q254,255,255,255,255,252,248,224 &M127,255,255,255,127,63?,31,0 &L0,0,62>,127,255,255,255,127 T Tgame4   Mission 2 Dinosaur Facts. Game 4.  Sandra Smallwood for Chalksoft Ltd. 1984 Pub. by Piper Books Ltd Version 18 07 84  51150 0:0:0: "" #+n=23232Z23296[:n,112p:n -6:6:1 220,0; <"" F20,0; K"" P20,0; Z"" d20,0; n"" x20,0; "" [[#upic @40 0>@@>  @@@@?0 @@ p@@@@|??`~ |~D~~~>|x~~~~B~~x~~~B~~~~~~B~~B~?`@ TTBBB8 BBBD@B BBB@BBBBBBBD@?`@ T~TBBBp B@B~x~B BBB~B~BBBBBx~<<0@TBTBBB` B@BBDB BBBB@BB~BBD~?~?~0D~|~~~` ~@B~B~~ >>~?~~~B~~~~~B~@`~ p||@ DDD~}~~DDD@?|Ҁ B||D @> B d~ }|  BLd ??@??|>~|||  ~@`?}?KpE??K?EKEKE?KA?I???XXXXXXXXXXXXXXXXXXX\\\\\\\\\\\\\__________________XXXXXXXXXXXXXX_________________XXXXXXXXXXXXXXX_XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_XXXXXXXXXXXXXXXXX\\\_\\\\\\\\\\_XXXXXXXXXXXXXXXXXXX\_\\\\\\\\\\_____________XXXXXXXX_\g||||||||XXXXXXXXXXXXXXXXXXXXX_ggggggggggXXXXXXXXXXXX^^^^^^^^X_ggggggggggXXXGGGGXXX^^^^^^^^X_ggggggggggXXX^^^^ZZZZ^^_ggggggggggX@XX^^^^^^^^^_ggggggggggXGG^^^^^^^Z^_OgggggggggpGGIIIIIIIIOOgggggggggpGGOggpGGOgggggggggggp(OgggggggggggppppNNOOOOOOOOOOOOpppGGGG0ppvNNNNOOOOOOOOOOOOpppppppppppvvvNNNpppppppppppvvvNNNNNNNs ;!@~'w#~'w0+~w##!W~?w+~?w0#~w++@#+w##@O+#@ ++>/ !W A#BK # >/ !WxGyO A#BK + R3mc2 TmaV!@~#@!~#!@~#@!~#sc 　<??????????????????0?@>@ @@@@@ @ @@@@@x~~~~~~~~~~~~@@@@@ BBBBBBB @BBB@@@@@ ~BB~~BB @B@~@@@@@ @B~@@~B @B@@@@@@@@ ~B~~B>~~@~@@@@@~~@@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((,(((((((((((((((((((((((((((((((,(((((((((((((((((((((((((((((((/(((((((((((((((((((((((((((((((/(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((8(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((8888888888888888888888888888888888888888888888888888888888888888t ׀%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<  <81kF10 6000p T9400$:l=65261:5;0;17,2;"Lives":400 1300 @5;0;1,31;"";2,30;"" ׋wx=1:#1;0,0;0;" ";1,0;"GLIDE CONTROL:- ""6"" DOWN ""7"" UP" i=1300,:i 75;1,31;" ";2,30;" " Y512568,64@:51241),128:51244,,79O:0*51240( 9y=57:5;0;y,31;"":y 35;0;1;1,30;""  7000X "1;7;fy,fx;"" , 500 update values #5;18,18;" "  xh=20 #h10 h<0xh=19 &h100dh-10 xh=18  xs=27 ph=h h<0ph=0 V0;5;18,4;4-ptero;18,xh;ph;18,xs;score rev=2460 90Z,24:5;0;1;-dhx/2,-dp/2:90Z,24:5;0;1;dhx/2,dp/2 ?rev=1rev=2:dhx=15:dp=0:450 )dp=d:dhx=((16*16-dp*dp)) |90Z,24:5;0;-dhx/2,-dp/2:90Z,24:5;0;dhx/2,dp/2  ̎90Z,24:5;0;1;-dhx/2,dp/2:90Z,24:5;0;1;dhx/2,-dp/2 )dp=d:dhx=((16*16-dp*dp)) |90Z,24:5;0;-dhx/2,dp/2:90Z,24:5;0;dhx/2,-dp/2   movement  rev=0 $y=1:dx=0:ix=.5 $x=30:d=0:h=100d C=546ů=10 id=2:.02{# =,2:550& E=557ů=11 id=-2:.02{# =,-2:550& id=.125} &d=d+id +d>16d=16 ,d<-16d=-16 0h=h-d 1%h>124|h=124|:d=0 3 400 5 paper;ink;y,x;1;"" 6h<01030 :y=14-(h/8) ? dx=dx+ix Dx=(30-dx) N#y<0y=0:h=120x S#y>15y=15:h=0 Y/sflag<51;fy,fx;" ":800  Z$tflag=110 :604\ \ 700 ^ paper;ink;y,x;1;"" _ tflag=0x=fx1000 b tflag=1tx=x3000 lcflag=1640 v1;7;fy,fx;""  520  replace original colours  v=(y,x) paper=(v/8) ink=v-((v/8))*8   scroll screen " 1300 *Y512568,119w:51241),64@:51244,,71G:0*51240( /sflag=5 4X512568,64@:51241),64@:51244,,79O:0*51240( Hsflag=sflag+1 R  scroll left  1350F Z51231,119w:51216,128:51219,64@:0*51215  catch or miss y=fyscore=score+1:.05|L,-10 :fy,fx;1;7;"":cflag=1:400:5;0;20,1;"FISH CAUGHT- NOW CATCH THERMAL":100d:1100L sy7sy=sy+1:sstart=sstart:1440 Asmove>3sy=sy+1:sstart=sstart+1:1440 sstart=sstart+1  sx=sstart  catch or miss thermal y=tyy-1=ty4000 m=1 Kt=16:1;7;1;14-t,1;"":t Lt=710 :5;0;1;14-t,1;"":t m=13050  sflag=0:800  =5;20,1;" " x=x+1:700 Mpaper;ink;1;y,x;"":x=x-1:paper;ink;1;y,x;"" T10 :800 :1;7;13 ,0;"";14,0;"" x=x+1:700 Mpaper;ink;1;y,x;"":x=x-1:paper;ink;1;y,x;"" 10 :800 :1;7;11 ,0;"";12 ,0;"";13 ,0;"";14,0;"" 7;0,88X:7;0,89Y:7;1,88X:7;0,59;:7;0,58::7;1,59; x=x+1:700 Mpaper;ink;1;y,x;"":x=x-1:paper;ink;1;y,x;"" v10 :800 :i=143-1:7;i,0;"":i:5;4;2,0;"" x=x+1:700 Mpaper;ink;1;y,x;"":x=x-1:paper;ink;1;y,x;"" !20:x=13100  3086 -paper;ink;1;y,x;"":x=x-1 &y<2y=2 0y>14y=14 :.i=15:.075},-40(+i:i D57;0;1;y,x;"";paper;ink;"" NF5;0;20,1;"CRASH INTO CLIFF - LOSE A LIFE" Xptero=ptero+1 bptero=46000p l 100d vB#1;1,0;" Press  SPACE  for another turn " " "5540 *.05|L,0:1400x:200 rise in thermal 1;7;y,x;" " =5;20,1;" " y=3:x=3 xt=16:1;7;14-t,1;"":15:1;7;14-t,1;"":t t=710 :5;0;1;14-t,1;"":5;0;1;14-t,1;"":15:5;0;14-t,1;1;"":5;0;1;14-t,1;"":t )5;0;3,3;""  700 #paper;ink;3,3;"" reverse direction G400:rev=1:ix=1:dx=0:d=0:h=92\  m=0:3020 D=546ů=10 id=2:.02{# =,2:4120 F=557ů=11 id=-2:.02{# =,-2:4120 id=.125} d=d+id d>16d=16 d<-16d=-16 h=h-d %h>124|h=124|:d=0  400 " paper;ink;y,x;1;"" 'H<01030 ,y=14-(h/8) 6 dx=dx+ix @x=dx J#y<0y=0:h=120x T#y>15y=15:h=0 ^7x=2lscroll=0900:lscroll=1 c7x=3lscroll=1900:lscroll=2 h7x=4lscroll=2900:lscroll=3 ixx=5lscroll=3900:1;7;12 ,31;"";13 ,31;"":lscroll=4 jx=6lscroll=4900:1;7;10 ,31;"";11 ,31;"";12 ,31;"";13 ,31;"":lscroll=5 kYx=7lscroll=51350F:l=65261:400:sx=sstart:1350F l#1;0,0;0;" ";1,0;"GLIDE CONTROL:- ""6"" DOWN ""7"" UP" mlflag34220| r 900:lflag=lflag+1 | 700  paper;ink;1;y,x;"" x=305000 i=15:i  4110 return to cliff ,y=hyy=hy-1y=hy-25500| ?.01z# =,-15:.01z# =,-16:.01z# =,-17 F5;0;20,1;"CRASH INTO CLIFF - LOSE A LIFE"  paper;ink;1;y,x;"" ptero=ptero+1 ptero=46000p  5525 | paper;ink;1;y,x;"" >5;0;hy-1,31;"";hy,30;"" .05|L,0:.05|L,5:.05|L,5:.05|L,10 :.05|L,10 :.05|L,15:.1}L,20 F5;0;20,1;" SUCCESSFUL LANDING " #h=100d:400:100d B#1;1,0;" Press  SPACE  for another turn " " "5540 1400x:200 p end game z7900:y=3 smove=11 6050  6700,  7800x 6730J:6070  6720@  7800x  7810 6y=y-2:y,15;score;" fish.":y=y+2 sscore=sscore+score ,t$(3)="C"sscore46250j ,t$(3)="D"sscore86250j 6740T:7810  7810  x=3 Dt$(3)="D"p$="SUPER ":7820:x=x+6:y=y-2 =p$="Time Traveller ":7820:x=x+15:y=y-2 8t$(3)="C"p$="Class 1":7820:y=y-2 %y=y+2:6760h:7810 .H=89Yů=121y.05|L,10 :ptero=1:190 8:=78Nů=110n.05|L,10 :6600 B 6190. j$6770r:7810:7810 tsscore<86300 ym$(3)="E" ~1x=10 :p$="TIME MASTER":x$=p$:7820  6310 9x=6:p$="SUPER TIME TRAVELLER":x$=p$:7820 "t$(3)="C"m$(3)="D"  7700  certificate  7900 1;5;2,3;"";3,3;"";4,3;"":5;39',147,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  8160 ;8340 :y=y+2:i=12:7800x:i :=89Yů=121y.05|L,10 :8250: ]=78Nů=110n.05|L,10 :7900:y=9 :8320 :8105 ! 8210 :uflag=0flag=1:r$=m$:7900:3,1;"FIRST name ";r$:y=9 :8320 :8105 ?flag=1flag=2:s$=m$:7900:3,1;"FIRST name ";r$:5,2;"LAST name ";s$:y=9 :8320 :8105 Dt$=m$ N l"" WELCOME to the TIME MACHINE " v" for MISSION 2." "Please type in your " "then press the ENTER key." "Is your entry correct?" "Press Y (yes) or N (no)" code check v$=r$:w$=s$ $v$<2v$=v$+"Z":8405 $w$<3w$=w$+"Z":8406 ډt$=w$(3)+w$(2)+"C"+w$(1)+v$(2)+v$(1)t$=w$(3)+w$(2)+"D"+w$(1)+v$(2)+v$(1) 7900 j5,9 ;1;"INVALID ENTRY":i=110 :.25~,10 ::.25~,5:i B8450!:y=9 :i=15:7800x:5:i 200:6600 !!"You cannot travel in the TIME" ! !"MACHINE without your CODEWORD" !""which you will obtain when you" ! "have completed MISSION 1." !*" GOODBYE for now!" !4 mission2 !>7900:y=1 !H 8600! !R/p$="Hello! "+r$+" "+s$:7815:x=5 !\Tt$(3)="D"p$="SUPER ":sscore=4:7820:x=x+6:y=y-2 !f=p$="Time Traveller ":7820:x=x+15:y=y-2 !pHt$(3)="C"p$="Class 1":sscore=0:7820:y=y-2 !~ y=y+3 !"i=14:7800x:i !6:7800x:7 !"i=13:7800x:i !@#1;1,0;"Press  Space  to start journey" !" "8595! ! !"In MISSION 2 you have the" ! "chance to reach the ultimate" !"rank of TIME MASTER." !"You are to travel back to" !" THE AGE OF THE DINOSAURS" !!"and show that with the aid of" !""your personal computer you can" !"control life about you." !travel "0:0: "Wy=021:1;3;5;y,5;" ":y "Qy=318:1;5;3;y,8;" ":y "$Ly=615:1;3;5;y,11 ;" ":y ".Fy=9 12 :1;5;3;y,14;" ":y "8<j=110 :i=1520:.03{u\,i:i:j "L0:0: "Q,i=15:.1}L,-40(+i:i "V 100d: "` arrival "e7900:y=2 "j 8900" "t"i=14:7800x:i "y6:7800x:7 "~ 7800x "R5:7800x:p$="& 8 fish":7:x=22:y=y-2:7820 "7800x:4:x=13 :y=y-2:p$="TIMEMASTER.":7820:7:p$="A":x=24:y=y-2:7820:6:y=y-2:p$=" SUPER":x=25:7820 "V6:7800x:7:y=y-2:x=16:p$="must catch 6":7820 " 7800x "Iy=y-2:x=18:4:p$="TIMEMASTER.":7820:7 "L100d:#1;1,0;" Press  SPACE  to start " "" "8890" ".05|L,0: ""You have control over the" ""glide path of 3 pterosaurs." """You have until the sun sets to" """catch as many fish as you can." ""A Time Traveller Class 1" "!"must catch 4 fish to become a" #"SUPER Time Traveller" # "to become a " #"Time Traveller" #"fish to become a " #(initialisation #2 9050Z#:i=121 #<.n=07:a:(143+i)+n,a:n #Fi #ZH0,0,15,25,24,40(,92\,255 #dK255,255,255,62>,28,20,20,0 #nE0,124|,134,3,1,2,4,0 #xH0,64@,190,225,128,0,0,0 #I0,62>,97a,192,128,64@,32 ,0 #E0,2,125},135,1,0,0,0 #H255,255,15,0,0,0,0,192 #C0,0,0,1,1,7,31,63? #O31,63?,127,255,255,255,255,255 #Q248,252,254,255,255,255,255,255 #K0,0,0,128,128,224,248,252 #G255,255,240,0,0,0,0,3 #D7,15,15,12 ,8,0,0,0 #A0,0,0,0,0,0,0,0 #F0,0,3,15,31,31,63?,63? #M0,0,192,240,248,248,252,252 #F63?,63?,31,31,15,3,0,0 #M252,252,248,248,240,192,0,0 $G15,240,0,0,0,0,240,15 $G0,0,15,240,240,15,0,0 $"K568,121y,191,255,121y,568,0,0 $T $ 0: $Llscroll=0:flag=0:cflag=0:sflag=0:tflag=0 $ rev=0 $,236077\,204:236099\,0 $lflag=0 $tx=0:hy=2 $paper=5:ink=4 $h=100d:v=0 $dp=0:d=0 $dhx=15:dhy=0 $ & TT