Z Trap It By Paul Kennedy December 1989("d X p   (# > windo(,,:,) cl windo(,,Z, )ot({)&u "" ()? ({)(})  c  c]  x((l))((r))y(u)(dow)(xxxyyy t({) tot limilimiti(limi,) (limi)ott a(,,);ti limi  %- gri(x,y)  % gri(x,y)  numa p(,) rRap(,)ap(,)axx()ayy() ay @*" gri(aax,a) hO,x()y()c gri(a,ay()) hW6y()y() gri(a,ay()) h   r*@ gri(a,aay) hQJy()x()c gri(ax(),a) hWOx()x() gri(ax(),a) h   rThp(,)p(,)x()p(,)p(,)y()mgri(p(,),p(,))link()link()s(,link())p(,)s(,link())p(,);o a( p(,),p(,));a() r %| a( x,y);p/ dela (numa<) dela   Wipe Out Alien Trial. numal=numal-1:IF numal=0 THEN GOTO 4500 link()   a( s(,),s(,));" "gri(s(,),s(,)) p(,),alal alnuma (#h Update ScoreQr newgam scorscor(limi2)leve  newgam`w"(scor)|(,())((),"0") a(,);| Title And Define Keys  clk( ,)" TRAP IT "( ,)  () a(,,);(,,) "The object of this game is to guide your hero"y H&"around the screen trapping the wicked aliens!"y H&"Make sure you don't hit anything and keep an eye on the time!"y H&"This is you: "py  H&"And these are the aliens: "a()" "a()" "a()y  H&w"** Define Your Keys **"y H&"(Choose from the alphanumeric (A-Z 0-9) keys)"y H&  a( ,);"Which key for up:?";uv() a(,);"Which key for down:?";dowv() a(,);"Which key for left:?";lv(); a(,);"Which key for right:?";rv(){"Press P to play the game or D to define the keys"y H&v() "p" "P"   Hu(u)dow(dow)l(l)r(r)\ Draw Screen  cl  K  a(,);b a(,);b a(,);b a(,);b    a(,);b a(J,);b    a(,);b a(J,);b< a(,);"SCORE: 00000 LIVES: 4 TIME: ";(,)p Initialise z a-z ()"f"s p(,),gri(=,),h(),h(),a(),x(),y(),s(,,),s(,,),link()>  =gri(,)gri(,) >  gri(,)gri(=,) !cl()"E"()"H"qp()()b()()a()()()a()()()a()()(); a(,)()"Y"( )( )u windo(co,ro,wid,hig)()"X"(ro )(co )(hig)(wid):    h() h()  "27000","ALAN SUGAR","20400","JACK TRAMIEL","18600","MAGGIE THATCHER","14900","GERRY AUSTIN","12500","PAUL KENNEDY","10700","NEIL KINNOCK";8newgamallivelevescorX Design Characters ] l>b  hep  p he,p heOl 243,62,129,211,241,62,130,211,242,175,95,103,22,184,58,153,192,111,41,41Ov 41,25,17,154,192,235,1,8,0,237,176,62,133,211,241,62,134,211,242,251,201$ cha  ,chaQ ro  binar(ro) ro,(binar(ro)) ro cp c cha$ 106,192,217,195,216,223,106,0  172,6,54,134,54,246,172,0" 60,48,255,192,219,195,254,0! 120,24,254,6,182,134,254,0! 15,48,198,195,48,143,252,0" 224,24,198,134,24,226,126,0# 127,222,213,115,25,249,223,0! 252,246,86,156,48,62,246,0$ 255,192,223,216,223,192,255,0 254,0,254,6,246,6,254,0 (# Get Ready For Next Game>2# windo(,,:,) cl windo(,,Z, )L5# alnuma leveleve h leve leve37# a(!,);"GET READY FOR LEVEL";leveC<#    ;gri(,)  F# ({)"P#  link()3n#x(})  x(x) n#'x#y(}) y x#,#p(,)xp(,)y#(}),#  x()y()+#  x()y(),#  x()y()+#  x()y() $ K$xyy x(}) x(x) $)@$alnuma((leve))r$limi(leve)ti(limi,) (limi) a(#,);live a(,,);ti>$ windo(,,:,) cl windo(,,Z, )$% Collision% ()"p">%  " ** CRASH! You Have Hit The Wall! ** "N%  " ** OUCH! You Have Taken A Lump Out Of Your Tail! ** "H%  " ** BANG! You Have Collided With An Alien! ** "A%  " ** SHAME! You Have Run Out Of Time! ** ")%y  H&   %" === LOSE A LIFE === "y H& ()"q"    livelive a(#,);live live &  (# H& Print Message In Middle3R&() a(,(),y);\&& End Of Game &>& windo(,,:,) cl windo(,,Z, )d&"GAME OVER"y H&"---------- Todays High Scores ----------"y  H&i&   scor&(h()) h()h()"" &  Z&   a(,);h() a($,);h() &  &  &f&"" a(,);"Type In Your Name: "; h()%() a(,); (()i&   a(,);h() a($,);h()   &=&"** Press A Key For Another Go **"y H&$'""u "" 'F'numanewgamlivelevescoral ' (# H&$'""u ""