LANDER DSK( C99PFF P"C99PFI P#CSUP  P&%GRF1  P%2GRF1;H 2P?KEYJOY/O PA@LAND-ARC oFLANDERDOC PPRINTF  P$ưPUTNUM/O PPRANDOM;C P SAVE  P$۰SND;O PpSPEECH P TILANDER  TILANDER/C0TP0TILANDER/PPBTILANDES C# 0P@bL& CLPB!`lB=&g7tuQP0g)!yBB!٭цn:^'ry\g7tz\-4Cg1Aѐz}^K)__1x@AoДPL`A9 8hvpiw B !x@bBd`D((4 6Ap XCp:!Bp (ȠA!2cNȋB0f,"|gjB# KݣxGf} )s9 @ $ґ BBlCW&z )U `c99pff ABF 5SLAST F : 99/4 AS FILE FIN 0003hc99pfi AB CfBB B BBBBCdBB`BBB`BBB`CBBDEF A*BBC BBpBB BBBCB`C$BBBB"ZBB B CdBC>B F AZB BCfB`BAdAfF 5SFIRST5SLOAD 3C$SGRA3VC$PGRA3.C$CTFLF 3BGRMRD 3bSTART F : 99/4 AS FILE INI 0006c99supp ABNBLjB[BBNBNjBWBBWB CBBBCBC0BBBC"F A*B`BBBBB BBBB`C,BBBBB@BC2BCBBB BF AZBBBBBB CXBCBB?BǀBB€B*BB BBB,BBLB-BF ABCBBB1BBBB`BAABCBBCB CBBBCBBF ACBCBAB_BBYBBBNBBCBB|B`CBB BB C0BC"F ABBBCBBB[B cB99B eBxiBtB-RBerBunB? B(YB/NB) BBB BBF AB CBBB[BBBBC$BB[BBB BsB B BB C2BBBsF AHB;BKBC"BC\BBB`BjBBBQB>BBB>B BB>B B B>B F AxBB>BBB>BBBB[BbB[B>BBB>BBB>BBB>BBBF AB>BB[BB>B B[BBCBBWBBCBBWBB~BIBABB BBF AB<BBBBIBBBB[BBB[BNBNjBCBWBBBBbB[BB[F AB;BB;BBPB[BCBB BABBB BBCBB]BB BBB BF A8B BCBB]BBBBBBnBBBPBBCBB BBBBBBF AhBBBBBPBBBBCBBBABCBBBBB BABBCBB]B.F ABBHBBCBB]BBnBBuBBCBBB]AAABB(BBBBF ABBB CB BBCBB BBB|BBB BBBdBB`CBBBF ABBBB_ B BBBBBBB`CB C&BB`BuB[BABBBB F ALBB B CB C8BCBB[B CB[BB B'BCBaCBCBB F A|CCBB CBCBCBB BB`B BBBBCBBBBB B`F ACBBBCBBBB B BB`CBB``CBCB<B`BCB[BF AB B BCBCB`CB`BBB BBCBWBBBBB\ B CB CVF A BCBBBBBCB[BbB@BBBBBC&BBBBBB[B.F AGRMRD F 5S$WDTH5S$STRT5S$SEND5C$STRT5C$SENDF 5C$CLS 5C$FILL5C$VADR3,VDPWA 32VDPWD F 3 VSBW 3VMBW 3VSBR 3VMBR 3ZKSCAN F 5:LOCATE5LPOLL 5zTSCRN F : 99/4 AS ROUTINES 0038c99grf1 ABBBBBBBBBBBB BBBBBBBB BF A*BBBBCHBBBCBCfB]BCBCBBBCBCBB(F AZBCBCBBBBB BBBBCBCfB]BBBBBC}BF ABBC|BBB0BBCB!BBBBB[B.BBB@BB BB BF AB]B.BB@BB BBnBBBABBBBBBBB BBBBB ClB]B.F ABBC@B`B@BBCBBCB.BBBBBpBBCLB CBBpBF ABCLBBBBBABBBBBB"BBBC$BBB]B@BB 0B BF AJB[BB B$BBB BB$BBDBBB[BB BBJBBBBBBF AzBJBCpBJB]B.BBC@BCBBB BB.BBC@B BB]AF ABC`B]BnBB.BBBBB.BBBnBBC.B]BnBB.BBCF ABnBBBBB CBB B C\B CTBB` CBBB]BnBB.BBF ACB BB BB]BCB`BtB.BBtB BBBtB BwBBnBB@B F A>BvBBnBBHBB]BCB.BBB`BtB.BBtB C*BBtB BuB F AnBBBBB]BB`B|BAB BBB]BBBBB[BBB.B BCF AB@BnBBCBBBBCBBnBBBBCBBB CBCBF ABCB BB@BB]B B BB[B BBB CB[B BB CBABBF ABBBB CB[BBB CBBC8B[B`CB CBBCB[BBB "F A.BB BBCB"BBBBBCB]B CBzBBBCBBB CF A^B BBBBBBBBBBCDB]B.BBCBBBCB]B.BF ABCBnBBCB]B.BBCBnBBBBCB]B.BBB@BBF AB`BBABBBBBBB CB]B.BB B BBnBB CB.BC$F AB]B.BBzB]B.BBCB.BBB.BBB]BBCBC2BBB F ACB`C2B!BB BРC3B BWA2A4B.BBCBBB.BBCBCPF ALBB]B`CBABaBDB8AB9BBBBBBBBBBB[B.BBCBBF A|B.BBCPBB]BB.BBCBBB.BBCBCPBnBB8ABBF ABB]BB.BBCBBB.BBCPBnBB8ABBBB]B B{BHB F AB]F 5GRF1 5BTEXT 5SCREEN5COLOR 5CHRDEFF 5fCHRSET5PATCPY5CLEAR 5HCHAR 5VCHAR F 5GCHAR 5JOYST 5LKEY 5SPRITE5(SPDEL F 5HSPDALL5xSPCOLR5SPPAT 5SPLOCT5SPMAG F 5SPMOTN5SPMCT 5SPPOSN54SPDIST5pSPDRC F 5SPCNC 5SPCRC 5SPCALL3VDPWA 3VDPWD F 3VSBW 3\VMBW 3VSBR 3VMBR 3VWTR F 3bKSCAN 3S$WDTH3DS$STRT3PS$SEND3HC$STRTF 3C$SEND3C$CLS 3tC$FILL3C$VADR3~C$GPLLF : 99/4 AS 1 FUNCTI 0037/* grf1 references*/Iextern grf1(),text(),screen(),color(),chrdef(),chrset(),patcpy(),clear();Gextern hchar(),vchar(),gchar(),joyst(),key(),sprite(),spdel(),spdall();Cextern spcolr(),sppat(),sploct(),spmag(),spmotn(),spmct(),spposn();1extern spdist(),spdrc(),spcnc(),spcrc(),spcall();00138 F DSK1.KEYJOY/S 0001A0000B04C8BC06EB0004B112AB0281B0005B1527BC0EEB0002B06C1BD801B8374B0420F 0002A001AB0000B0300B0002B0300B0000B06C1BD0A0B8375B0882B0282BFFFFB1311B9860F 0003A0034B8375C012CB1603B0208BFFFFB100EB0208B0001BD860B8375C012CBD120B8375F 0004A004EB0984BC4C4B1004BD860B8375C012CBC4C8B045DBC06EB0006B0281B0001B1134F 0005A0068B0281B0002B1531B06C1BD801B8374B06C1B0601B0420C001AB0300B0002B0300F 0006A0082B0000BC220B8376B130AB9860B8376C0132B1606B9860B8377C0134B1602B0208F 0007A009CBFFFFBD860B8376C0132BD860B8377C0134B0288BFFFFB1304BC208B1302B0208F 0008A00B6B0001BC0EEB0002BC12EB0004BD1A1C0132BD1E1C0134B0886B0887BC4C6BC507F 0009A00D0B045DB04C8B0201B0100BD801B8374B0420C007AB0300B0002B0300B0000B9820F 0010A00EAB8375C0136B130EB0221B0100BD801B8374B0420C00DEB0300B0002B0300B0000F 0011A0104B9820B8375C0136B160DB9820B8375C0137B1603B0208BFFFFB1002B0208B0001F 0012A011EBD820B8375C0137B045DBD808C0137B045DB0000B0000B0000B0000B0000B1200F 0013500D2BUTTON5005EGETJOY50000GETKEY300FAKSCAN F 0014: RAG SOFTWARE ASSEMBLER V8 # 0P@bL& CLPB!`lB=&g7tuQP0g)!yBB!٭цn:^'ry\g7tz\-4Cg1Aѐz}^K)__1x@AoДPL`A9 8hvpiw B !x@bBd`D((4 6Ap XCp:!Bp (ȠA!2cNȋB0f,"|gjB# KݣxGf} )s9 @ $ґ BBlCW&z )U `R|zߤZ`V,0 G1pNr"I#E{xf`'!xPH00L &:) ch !? l %&F=㹄 , <"[ C)lCdBO &$I25$b-Ip@(dUZ#.UB0p-xJ%H3B 4x ǃ>dȜ"pIDbBܐwˀyP_$f.<4NƷI%n"@@B,/kevfC"1 QxD!. E!e!nbY`)C m@b;S0̣tB̯ij! 1 `|ˀHN8FA<!qw;FT^ $(!@@`ht!@\$@T`@,0C#B% !0pB$ly *85ODW0"(N*2-т2hOϩsFޟ\} J"rCm4%@S(?T$@,w[}` I`+Gq#]BXr5~0 PB &d$\qJ C> ]a#Hh~h/| ^)r$cIP  `DQ-7qBo)ьLi B%`ha1#DP!'ke@i6@an)`I$ѫEJ0}Li@:HP[MA55xj$9RyH`1kuhl7eh`"qHMUV<UX&YC.`q#Cp SD5F"UVr4`BYzc@65jB*zulk8$19Uu >L $6Lg4Pً-C0!Ku7#w A;d%6BAM@nSa0mvf >Bwmݤ#U[xJot t U i e64l I x`)Bod'iNWB&npkW2| pd- \@ rIBV9 :H`$@O /,ڝ.{H*%=U;HnfJ h fV SsXpR^s WP$r及壛^NG_AS<S@@}7HR+@_BH{ L!~M}o3bH+}K a r@ : H @B`P l@R w|+!,  Oq] Hh,!g f>?82s&82q1"x2"BWx4 /E3#2%7@'! 7h-((l"D1462NT&Z%u>P%0e,"204&vC!}d6]!5US. S!!!2YBi}gg &8RgS(\(Wgh#hFVhd!hhBM"#9lLvw81#v8>r*ERe.$ZC p:@/#VC1fnT>a%5`f9C9 " 4@2$cF&xVeMr@`JD`%0 P`&0 P`BNDH] `.59 5|>3'@`z!&X PXU@ bW5Y6%” b5exb#y5NEborpeC%gPS@о@eVP#WՙbèB֚!r 1`>St1pE9`vwg')`Ez"@ $wL-C49%9>BpBdB Cet'pi-[D)F26q)k9B(CyY$US!efJЛij85U'%0:xe~dDFp%96$ӎ Ĭ31DS_t7TK* 9j$PHUh$U@ "F]M0j$N1EX!X$2:Y ":9/.%*3?V"e:`Mde_XX#3FVWW /z6x "@0T8/fZ0!.S_ > )`A0^jɁ#0$ISE%N205`IS*WpN`59HßFFU9C5|LCޤ@1("d:1s`&jt WF]#؊50$!Ŧ@RYR(4 6NĞCL7\Wȥf#(8` $aP3?nG'&'I /%B2:dV )& a9uCp0PXT$D"ݖ%zF':0eNDޮy卑}Bb MJ -' &Ki{)ȜP@ f(ѣ+m.@Xo qм7tPQa)Ez@P0CYm' Bm6p "zŠr{~m@LYr'?0P{(qNrkw7o0x{_R{{r' ˗{wy{p7 kh{𻒨m{O0Nt4I)  !SR tN7I V@Ժ |~쾗̴~})}}~P;xr0'~0'y Dy Pz1M })ǩQ))Ǥа{1~A){ lwKih,! F[ir xlGČIĬKM / H&rPf ]X]hLմ) ׄ"Ar r(M!M<]B 4M97k-h}hpC4YѠ6 m#]K6m 040]mM&-)]dS}9=&֍&M@ѭ9mNԽM ,mս3C-@==UmՍRӐ32-u,ذ7}r)֍^ս}Fٽ-2-7 <޽$Mm=@Mm8:ԭ/ڝL!ZؐA1^--057095 MI}=ӝJ:>ܐ0ܽԍJ>EJM@1]}9-=ԝ~ݝ& -~Ga,M>;^Kޝq= ~ ׭b M.1 }.t5-[-}ԾI-֑ 3o2!g@O PEsK sKF ~A;0O`TxSqB Gm"*a@ lA`LnrH |dMui upuʠ L0 &v:HX4KCH P:$F钬'#2x7d7 -{!nBÔ0-@!hjrĵ 21$n\+ +9@B{;Cs3.$"74IO,52$7$@3X(<- p)"L"̊NFȱ}^<3/ SY+X%-!]5r?J+Mh^b@ J?e8Mĭ.]g$(- ;dVj<p<6vb)ʫug4Zè ^x t&:d1Cֆ".͜/c6LGbA 2*d>,AyE;˪qy(bxR6!ģ+tz%,6h.6rz*63x*J,'fcrVٵ 1hI R<7Jʅ=ރH`.k\w1@A8͞AR)z'U",`Б!v9U-bzZ@r\ RO"C+GV0x\$l7B"Dv H"o%L+gYeHis& \ۻ K9))TzDR2N ut!:IJspXxfYȤA̡,U6DJyPPr eF$huINݵXW$kK8f2 KʋpSVE0H^d`\'z 'r`Az7PH2 `)m[CxO!Q:LR ;EI`oRld B)П'uP$ E P <Bb.)Lk蔉c<5* u%@.Y#+0F!dQ+,l , ̐O.ǁJ:% DCgհ&ZH[A&Sd3e*-%5bMLWMdB⤀{!r.$iis*1xɐ(0)𠯉yw*BBo !"rJXC0YJ'3/kl kV|$mE [yPZK9]p^f ?"qX 4^Ŏih @ Q$"^q:/D#zF#}:OMﾷ)_,`  0BB !Q]N@.! q7قo #`! ;`.P%>Nx}ϴ-仸 ]-{d0PHOpcc{/p=Ǥ^<@7@'2<@!Oqݤ00)g?!~o񕝹[ Kم` NA/^ Po10/ `N<@ Oh4*OF@Zo0\/@ 4ЃPH  ` @ - Apv DaQ P0g/} 00loS  0+ 0pN m<A H 1 0 QOq0  1G POOOO  L Q* q`aqQq1 2 hPiq,`Qpx@9/ D $!k!GR2% rPrU#'$m$R#$2w'Y' OUlO0O*X@*b**@*@@ (`n 2OA'Rc0Pc/NPV&pcP1 1Wo)3 $310{QQ010R0 /&1`LR|3.270VOM`/~ Up$p `'6c6ShSs7s#\`vo;8@OmO]$H0 9hP5>aO O?@.=ѦaC=C`& Cx SM& m333!C;(0!UNE С:4Q9vHGН\ p4ѵHGT& $p24H HPa@T'q `- u -CNtO#qLU<NtRt4IhU폳@40p\A rHqT J L#I% U5AQV)@!.T2AՀ@ '"  @EAO$@N]$] .@Z5x -US9 !b6%bv)b"`@H`Ƞi*H Ac`H @ Kd ldQebp r` PV`f4 h@P@aiiv1[ HVvog6+cjf@H lhj[dk6bv0Vhre Mmo`o j@ mb+sdpgd  $ fp @m jmqc%e3sj0 V: 4 د+u Z7j 1qXj4vhw yqP`l%P jv#yr`]r` yPb7 `eP@ mw~Uce`~8 `~P@pd}e~W7{a`j b`a+xUefw`h`rT*sc@c mWt x!~à `xM 68Lؑ8@7߀`7kUO`TV@d/f߃x@qx8*85ۋmXk~ ؉maY@e}%Qybc8Xxx)AiXკrUos炠kuٳ ǎص~xA~YW9y87xMP8 Xi٧zTcoZUXm ۄ8{7Nl)5kM8~}`ey9xфzn7剸`q<gye@bZу`am@ ~l::_X!"͈hzӮx m؇^׆؟+6ai9ǶY~D ` T}ՅX  l kWvhHL$@ 6Uze` h qzb%\v8WXeozȠA Atw @m s Ob eW4GtRv 7~;قU  ``;R@h:Է TTG~g9ma-&"`K* 2 ܂FB(. Z @ 5B@p_Ajɠ_`TRR -|΀C RR F1@ @}dce\Nh7`@  @F *;|Ob@ }'Ҡ37ӺoĀ/k`l; `±hgF_yl]sdN1V{6bt \x)t3.Dw:! ΀@ ] V}Ì[6 >Wӝx6xb,@ ]ajT t}@3]_Oj}I9`sEk^DEg鯆}>-} }BCMȾ iU$ Ɵ΀P |! w==%~Z`s-~"ȷ I H`nZdKhL`r& ݝd] Xae|4=?1ݞ=`0 j%f P`Q}^2Wl@֯ v@@s` -:[@}mk?+\@\gp?bS R0 O)0L8G~=!I?Bt`cPE(6T'Q E!!dҭ4IYJ "|0B'Ȕ iZ**%M$1X) \^IZ5g:f8u{?uE,Cd"FB&R5 )B? "Ev@4B&4Gҡ#S .y&XD!E~,9qgEtO'ƷprBTI; {_^Puvv,C\a\ hǕZ \`m#gETMaX]LaͪP1QD+>j#ضD$X0RLVJA xPKIsX㋻hDy_g9w%uq0nx9 Њ; UݡÈN ߫N^| tTaHs4y&V.o,g 6V=ZA6aN1LV* z%&Td QEA2Ĭ^ U~ f@V !` N0 Wh d{..YY7/} }L *j -pX+) `@<&JM=D@LA AA&`Q ^E%0ż[K[D ` ;}@ۺ \M` bFb @`ˠE \ܺ ] ҝ1-MU0!Eڝ  v LQ@@U?!$ ޶!b5@TY4? €8 1CC9  V(о`+ EH(K@> +Cp"@X? j)*"`0&Ð( L@ B8# 2 <@%&,Cc<`pÔp(1C&@#H$~GdvGLHD T8$VJIFbEENFH$J.QEfOzPdS$RvFfO%NOrRJ$KLe6He^I2L~T%MIXejW$ dJzMeZTdU$fV&JIe\WeYZ%&`ef]d\dF@0.Ne&e$^`fJE0d^VbeZ`eb2Vi/ZcefJd[XeI^b>feB]@&Ze2pgifJe$eniXɄJL,pge&Rl>m%WfX:MEdhlptx| baߘ'I!'VuL&u'fvKwxfK]fz%N'{g|g}g~gcu'Z&v6lmgBW:i(ZT'(Άg(j|}~g'rd&w:(>x>e„>yeXhVYh{'|(hChv'j炔(gXe~GHFN$f(^bfhrh~: *:*"*2B4j^jbr "j&*JjnƩ*F棪**"ľ*ꦱƳ*jjz*֤JkZj*:R+N+~+&knΪk>"+:ꆲkkkRb*β+lVq {TGTWg.Kgfhi"d>XzڟɬcRn|'ذpfJ]$Gvl,tgfޖj'Vh蒁'jr׭v-~ةv٭"wm-ۭ).ܩ*)xmޓm-*@*@*@*@*@ADAD ,!0(B)!C=$$(BC$/y!#$2C:F./$>Bp2O081/Vq/h˄1#h*CJ/`0`B`0&/hj 0h/0t .A+ D0wA ^A pB/ BspB"0D/'C?"D81?=qX q<pBC%//h /rqG$*A{! xC"oh/p5jBC,$,!k2 B>@22BC0Lokr2)* (2,.n(/./*/.+,lo->2+/*d)37?0Rk ,jC9r< /9r4r;3ss38sG95O,63t;8vJ'3>k; /t44@tGAP3BoB?!KF‚7h+BL/NBCL0*AS- $7OBB)$-' 70*AC@07"k'w o<3 $$.Q¤/'6ݵ #N,3Ro48@=@+ge_A+K ef$<53iu+Qu/RvSo<3u?/u#]RN`w+Mav_4 ru1NKk/vE6Mr676Ki5zza;P4_x~ w7|33/k,_<5o?~P1%jCH'w/u0;8gb6t,JBC4#h*oFP2AKv`wt,@]AXB*A[j7Z2cySR3B59Zgr ?8Rp &1srNnF?x kP&8_OH x@d8# S\zWkɫ9By_x92iޗUFzRFIQFzmo/WmDuzR;%&^QE vc;#Q;햘o=T{RԈ T] #HdW` ԯ; ig}Cʫ|_@AA@dǁ|xCA|@x<<>Sc>{t)q߹O~gDW@;rd/L> 5s1/0-@8h9uBC8&r 1@ -}Bxc/~S7?R?S'y w*C7 X?rS9$@d94 @GH|-jU8 D!q "!N b0FQ'H1$X* R5SbDM(nae6 a[}xo)#'cIrA:aČ((``[4TpL0:P(+)ȭ5d HMZ3@83sx0x+Cmb1A=)l2;@{<ͫnH= :оO?O޼/ʘ==DAM (:Ao&DD05pNQY {88!8)Q$L kB41n#b# 3>0;LP &N Eͻ*ih̍̋ I@#)- Ctu+H>Q306ERD+#FRm" 2Ȫ dH(EIuBѾ4 6 +G-Bh "#ufΆ,I68Uh!3N3L+P7 Ďc@2k ;%YM\1rZm|0/]%)!%I,[Mu#b/f&6g"Ww&4$.g!ci1i~6l(2BS$d(g9ɦSvy7G@*ñ [Xo"Uq8C"XwZ^dΈHeBR7ns$*XɖimP*(rurv]J&܈{nov_(-އZ\GAKnu^ԉ/q\X~"1G(awz6W^Ni9A@} ~#:?U_,j C -@7,u1@GyR݁P9yCAaY8Ey-S!Q$j/_3%詯O -F €?0S7X **,)e@2d\*/ 2Az}khH2K sI*H$V*M+%ğA| 0j21zݐMk$UGM0pdX*LQaeSDӄ-=_ER#4Rrkʧ c ؀-,";@ѪvÌ ^4-D "g9f@rBkt,^ ]1Cpt0Cpg &S eMn 1C 2M^?elb)КƪnD ޺ @`A " (+B +C k !3PKA0^At1("L% \F $ 1euVrZ\hD 40EdF9@t 6R )sACK ] }׹AΘn,ʙ@rAݓ por `.`rA{@ g8bpN A $`ko1ØhCBuĸ@c8S `e8o< a 1FDKa0Y2^Jɹ3'죔0F<d<  a153}~ Y7LݹJn-k~׀k}C7Vmo 7&:{MӇ6ʙMݷ0F~`1u ֻ|{O,_;}x`+™w@h oFsQrG8T깻q2%eXP`gx&on073[,@Έ 0qS`?M\c{=c=sĽKٵ8#1| . 3?#6޶T3C߾?ò?= # <˷9ɯk4߹/ヱ{6"D#ocO4BsO8KA5)“O?;[-OB/51;D3D4\747Ô%B$:B4:;+(Cch@?Œ+ (5'*TBB0BPC FCHCPCB7,DClCD,DKD2<&%4>zWXMau XKXņ(WuװXtEX-eY$brYm}#P0w5#Z ZXs Y]{ ZE--R Z(XZ0!uXsٍZ[! e W}/(ۅ~[@"\u\\K%\̻U}ʁ[Eū,mYX}]eeN:7=I{&RQҸ=? 36m8=.}\9Du QB{;TI\:WO1{ ^X__[߅\_P`5I`UU{^_ߝ_i6J_NU[ ` `U `1lfp<n Mh1`ɀ2|bPnT+hh֝jzuH8+S~/(>R)/X!h45Xc2z"S<,H3d -.ac;:>.7_fB=7U5+H3V5Ҁ>/>e N9b1RK1./3x,&&V5K+;@4VPee(6TE(U2e6Xlf`g>(5j/?ר|rCBj}[;_d1`LJW6]+.v!@@9+0=cpN0i8޸3O^Og-x]7]8eW*(< fW&g㩎==3֦jP4HfVխ5RlcQ'fɁO)āHV簥! j:H>.{ڢ rP3ʾ/07J\ֻ^К*6prm֙]( ʻZ:k]^)bنvM[Fޡh<65^YhsoƒWWΤF`:jv8p8k6k-\%G NéZ&92r4G5A3r-K n˟ XH =_% ~ 2U\ΰ A20# sn06V=J-p^IgKt+5]M tsIu@UtcWPGZuj[/:/P#x.$g$6\tqt n Pv-\s= P tGnU,\P}x9T&Kp9Ԡ9, fZVxեgRrj.%b6$&,r-`o17y2/[ gfw(x12zxp.6Ty_ z6S!2פ9-p@j`8b  ߉À4CPϡ\@dptFSA۷w!ݡG|^P 94@C 2Pa9"Bda үɀdư31?a;&@/D H{챥FhUD -D8x Ns-M%CTb (P`;D;P KG)4t{y09rO?? 1^T1/Fy$4h~H 7iB_b%dCa,I/7R #/0BhI_ 00ƐX 2>kMxm+ۛт .C+x̸DHc u+zzo=; l1(%pC2BN C !Pxu >$\s` PΑf) Qj'@'irKfF_*,:/" ф!Izzst~F^VuF/OO@ QjFpeWjpG7X55Ď:]S4tT:\$t OFg5+.t > gQj`b'KAcMrp^!\i`UV@TF{2%."E&YC('{T\ːjF][c*6U+7~ޛOa.P'7 j|zvH'|GM`-d'z,p{wD]pFA!ǸG@t8-+#QF*Vlc|qq;ǘX2 H9 @N)rnDaL* G Aܶ U 8*ܱ3. a,r !O*3S "0pP A$'@G!0BEOiA 0 5~] `N @l vGH@Q€ڛ[lk. Ƿ@Xr2@ ;`@# <\Pf\ o?ǰ F~#p 0+j [[xA`y8b5j~TW@ Q587yϺؼtqXp#-~cQmM6=@-;~zuM5OP=@w>6 [kW~4v ㄇ>_>#<ο~;<@FPs~zz9꼞?fͱx,[qy"a -n0弿> .D9~_Phcֈm@ Gbp Axr}W׀|~'P{}F 0jL}.s2lF vƿ 4ofq׺x|h3l~f gXv(1x@zh7mkA ̈́qk ƅ'nwp|nPFkcw&p|%k r0` @rkp}! @B^kuh kPm@g `Zy6QQR"R@i/SS00 bA6$&(vN p@[ hp Pn 6 @k`@j@xӍX׍ `@zР &! Hpx@u@ x *  0 ,l  @(  ַ dp@ Pm@` `k )6f p AY 8f 0|p` P6Pˍ pf 6GA@x@RRD?z)py`МIH 0sؙ0 @ ٔ ; KH `.`kpfQ >0   6&)` r>V > r )j@q0(. PP IP[΋( p  `̋^[i0  F pvxp AƱ nPiFD:& qH0PhU@@i"sէϤ & ZLoΥi u{Fjp0p Ǔ}@ y )i^p@8Ӫ* P y" @ Z Ό0u*:j":!@ z p p *A J`(: _oY @`(0`@P U pC   , k H. [  `+- `W` :ΰv0 h׌: b ykfЌl W`}] " )Z8*# 0`kyi@` 0 9, KZi`ۺ v Wl7zqrX)yW ppGKHj)H` !( @l*{ٯ{۩ (IUw ИK]"xx 9" ii !߮p{d۠yk `BP  *|7 `KŶU@ p8 9^jc0 0;q A`{:F ,&`JN@0G:7@@ m )& DP J  @&JE4lRFP`P t瞩/Y@y QR.N ` ` ȥ 09U# ` Q 89` `l00`ߍ`~4</^P )0 `*p0uPѸp @ L4 ĸ83Y*׽x(ϟ%p™0v_2РoapHochI&!` 0i @ P"#' , W@,` ?7̦4  42&𘠟  P )ҝӉ P ^pzD0  0 @H 6 G E ~ZF{ܒcQ~UB`  HMH *Gb8 ]@hdV E$`Pۄ`3E H `US$R"p(  ]rP«3[4FPpXdl6ʆA hofΘ p 2 #Aʁd8, FJeAgi~`'! gM,tG GP@\APa D..a?Hb0 kvݾqA$0汰0eh+7,. QH$iI0Id)J0t d )a> Md6K/&0h <5ԡ8f4gL@[APK<`56SԜJ2 4a%<V5<56Qp8kό3I]W PIQTEo/RuX XBq7%gI`eXٝ^նiڵ(i"Kz>-% ?ZiTRC-a ?Ԙv  zf y&T1 oؕYjnG1ekfl & mjj+!yv)\-K@`'g7LB(aRxlRI{Ed{Ɍ&n A yk G1lg`E DաSw4R]4MR)=\9'\s_t4ZQԀ wƘq A<Jl g\)7M^f 7|w?` _]%& -C wT @iÆ5YL?&԰r"/xp`Z3V0/XZAPWZ>jY PA A>I( sΑ O9w~0* Hd@A7I!  @AM-0<\j!Ih`  xV $0Q @q, Ѭ\BFrN?(% rRiO*%LrVR& -C wT @iÆ5YL?&԰r"/xp`Z3V0/XZAPWZ>jY PA A>I( sΑ O9w~0* Hd@A7I!  @AM-0<\j!Ih`  xV $0Q @.CE 4 &TI &Lander  By Walid Maalouli August 2002  &Overview:  OTI Lander is an arcade game somewhat similar to the classic Lunar Lander game. LYou are in command of an unmanned 700kg lander that will be used to explore ?different planetary bodies with increasing gravitational pull. "It was programmed using C99 V5.0 .  &Gameplay:  PThere are five different "planets" in the game each of which has five different Planding areas with increasing levels of difficulty. In addition, the gravity of Meach planet increases progressively, starting with the equivalent of Earth's Nmoon's gravity up to Jupiter's gravity. Your lander is equipped with one main Ithruster as well as two lateral smaller thrusters. The main thruster willCaffect the vertical velocity of the lander and counter the planet'sJgravitational pull, while the smaller thrusters will affect the horizontal velocity. LThe game screen will show the current area's terrain, with a different colorKfor each planet. The landing area will be green. The top left of the screenIwill display the current level (1-5), current area (1-5), and the currentOgravitational level. The top right of the screen will show the remaining fuel,Pwhich initially starts at 500 units, as well as the horizontal (Vx) andPvertical (Vy) velocities in m/s. A negative velocity indicates either a leftP(Vx) or upward (Vy) motion. Next to each velocity display is a number inPbetween square brackets [n], which indicates the maximum &landing Vy for theAcurrent gravity. Vx should always be between -1 and 1 inclusive. JYou should attempt to land within the velocity specifications on the greenNlanding strip, and if successful then you will move to the next area or planetNdepending on where you are in the game. Should you crash, i.e. come in contactOwith the terrain, then you will be given the option to retry the landing again.HYou will not have to restart the whole game. If during the course of theNlanding you get too close to the top edge of the screen, then your lander will3be "lost in space" and you will have to try again. NNo scores are maintained. Your goal is to reach and successfully land in levelM5 area 5 (Jupiter gravity), which I believe is close to impossible (I did say"close" however...).  &Controls:  OYou can either use the joysticks or the keyboard to control the thrusters. LeftLor right joystick fire the corresponding contralateral small thruster, whilePeither up or down joystick will fire the main thruster. It is possible to firePthe main and one of the lateral thrusters simultaneously (Note: this is not!possible with keyboard control). FWith the keyboard, the left and right arrows control the correspondingCcontralateral thrusters, and the ";" key fires the main thruster. KEach firing of the main thruster consumes 10 units of fuel, and the lateralOthrusters use 5 units. When your remaining fuel reaches 50 or less, a repeatingJwarning beep will be heard to alert you of impending thruster shutdown. OfOcourse, when you run out of fuel, then you will be at the mercy of the planet'sIgravity and will likely slam onto the surface at unhealthy velocities...  &Hardware &Requirement:  AE/A cartridge, 32K RAM. Optional: Joysticks, Speech synthesizer.  &Running &The &Program:  OThe files TILANDER and TILANDES should be on the same disk/directory. Go to E/A!option 5 and type DSKx.TILANDER.  &Final &Notes:  LTI Lander is freeware, and you are welcome to modify it and distribute it asJyou see fit. The source code is included, along with all the necessary C99Llibraries. There is also a batch file (TILANDER/P) that can be used with Tom2Bentley's C-Loader to create an E/A 5 executable. HComments and suggestions can be E-Mailed to me at wmaalouli@@attbi.com. Enjoy!  Walid Maalouli 8.4.02BՋՀՋՀՋՀJ ABNBB;BBBBBBB.BBǛB^BCBBCnB.BBB]B.BBBBBB]AJALANAPARATAVF AXBBA\AnBBBXBXB BBCXB CXBB BB`CB CXBB BF ABB%BBBB.BBBB CXBCXBB BBBBBBBCXB F ACXB CXBB BBB%BBBB.BBCB CXBCXBB BBCF ABBB CXBB BBB-BCB BBBCLBCXB CXBBbBCLF A&B CXBB BBB0BC BBB0BCNBBB BCNB CXBB BF AVBCBBHBB CXBCXBBCBBCVB CXBB BBCBBHF ABBCXB CXBBBbBCVB CXBB BBB.BC6BBCXBNBǠF ACXBCBBCRB CXBB BBCBBHBBCXB CXBBBbBF ACRBBBXBXB BBCJBC\BCZB CXBCXBB BKBC\BB F ACJB~BZBC\BBBbB~BZBLB CJBCZBGBNBǠCJBC\BBCF AFB.BBBBCVBBbBCVB CLBBBB CVB CVF A6BHB B.BBCBNBǠCNBCBBB CPB CPBHBB.BBC@B F AfCZBCZBB BBCJBBB CLBB CVB CVBHB B.BBCbBF AB BBCtBBB`C~B]B.BBBB9BBBB.BBBB0BBF AB^BB>B]BB.BBBCBCB CBB BBBNBǠCB.BBb>BF AB]AAAB.BBB BBB BCBBBBBBBBBCB.F A$BBB BBB-BC B BBBBCBBBBB.BBB BBF ATB+BC2BBBBBBbBCB.BBB BBCBBHBBB BF AB CB:>B BBB(BBXBB BB B>B(BBCBBNBǠCB CF AB:>B B]B.BBBbBCBBBBXBB BHBB-BZBB(BBB.F ABBB~BHB.BBB.BBBB BBCB.BB]BBBBBCBF ABBB2FF CHECK END OF SCREEN) JGT CLFEX IF GREATER, EXIT# AI R0,>1800 ADD OFFSET. LI R1,>2000 SPACE IN LE/*** c99 random number functions**%** by Clint Pulley, based on TI-FORTH** last edit 85/11/16 0810*//*** initialize the random seed*/ randomize(){#asm MOVB @>8802,0 RESET VDPSTA CLR 1R#1 INC 1 COUNT MOVB @>8802,0 READ VDPSTA ANDI 0,>8000 JEQ R#1 IF NOT VDP INT MOV 1,@>83C0 STORE SEED#endasm}"/* generate a 16-bit random number*/rndnum(){#asm MOV @>83C0,0 GET SEED MPY @R#C1,0 A @R#C2,1 SRC 1,5 MOV 1,8 RETURN NUMBER MOV 1,@>83C0 NEXT SEED#endasm}#asmR#C1 DATA >6FE5R#C2 DATA >7AB9#endasm#/* generate a random number between ** 0 and n-1*/ rnd(n) int n;{#asm BL *12 CALL rndnum DATA RNDNUM ABS 8 CLR 7 MOV @2(14),9 GET n DIV 9,7 REMAINDER IN R8#endasm}SAVE 9(B(CB) BCOBPYBRIBGHBT B19B81B BBY BTEBXABS BINBSTBRUBMEBNTF BS,B IBNCB.9(.B B B B B B B B B B B B B B B B B BSABVEF B MBEMBORBY BIMBAGBE B B B B B B B B B B B B B B B B B F B B B B B B 1B. BPRBOGBRABM BTOB BBE BSABVEBD BMUBSTB B B B BALF BREBADBY BBEB LBOABDEBD.B B B B B B B B B B B B B B B B F B B B B B B 2B. BTHBE BFIBRSBT BWOBRDB IBN BTHBE B B B B B BPRF BOGBRABM BMUBSTB BBE BEXBECBUTBABBLEB. B B B B B B B B B B B F B B B B B B 3B. BPRBOGBRABMSB WBHIBCHB ABREB BBIGBGEBR B B B BTHF BANB 8BK BWIBLLB CBREBATBE BNEBW B B B B BFIBLEB NBAMBESB BBY BADBDIF BNGB AB OBNEB B B BTOB TBHEB LBASBT BBYBTEB OBF BTHBE B B B B BCUF BRRBENBT BFIBLEB NBAMBE.B B B B B B B B B B B B B B B B F B B B B B B CBURBREBNTB FBILBE B: B B B B B B B B B B B F B B B B B B B B B B B B B B SBTABTUBS:B B B B B B B F B B B B B B B B B B B B B B B B B B B B B B B B F B B B B B B B B B B B B B B B B B B B B B B B B F B B B B B B B B B B B B B B B B B B B B B B BENBTEF BR BFIBLEB NBAMBE?B B B B B B B B B B B B B B B B B B F B B B B B BCSB9+29+RB SBLABSTB IBS BINBVABLIBD B B B B B B F B B IB/OB EBRRBORB B B B B B B B B B B B BBADB FBILBE BNABMEF B B B B B B B B B BBBBB BBBBBBB9+BBF BBB||BBBB(.BBB BBBBB+BBB B+B B+B+BBF B B+B+BB,lB BBРB|BBB`B-BB`BuBBBBB B*BBF BBBBBB BBB BBBBBB B,\B+BBBBBBBF BxB+BBB+B`B-BBBB+BBB B+B[B B+B+BB,lBBBF B+2BB B BBB+2BB+RBB3B(nBBBHBB+2B`BBBBBBF BB+1BBBB+BBBBBaB[BBBBBBB‚B"BBB+BF BBB+BB B B,zBBBBB+1B B,BBB(.BBB B-BBBF B+2BBB B-BB+BBB B+B B+B+B B+B+BBBB+BBB F B-&BBBBFB B-NB B+2B+.B#BBBBVB BBBBB. B`B+B=F BBaB B+B B+0BBB+RBBB. BB+rBBBBB B B-ZB`B+BBF BBVBBBBTBBBBmBBBBJBBB B,BBB BB|B F BB=BB. B`B+BBB B+BaB`B,BBB|BBBBBBpBBF B BB BABBB!B0BB+}BB[4-nDSRLNK4-GPLLNK4.GPLWS 4GRMRA F 4GRMRD 4GRMWA 4, KSCAN 6+SAVE 4,SFIRST4,SLAST 4,SLOAD 4-VMBR F 4-VMBW 4.VSBR 4,@VSBW F : 00150 A0000B0100B049FBBFDFBFF00A0008A0022BC0CEB05C3BC1137F2A6F 0001A0028B0200B0004B0201B0003B8044B1305B05C1B0600B15FBB04C8B045D7F2FAF 0002A003EB0A14BA103BC0D3BC1D4B0644B0200C0008BC147B0245B8000B16097F2BEF 0003A0054BD820B83CEB83CEB130FB0300B0002B0300B0000B10F7B0507B02017F2D6F 0004A006AC0002B0202B0003BCC31B0602B15FDB0640B05B0BC040B0581B09477F2D5F 0005A0080B04D0BC087B0242BFF00B1302B0207B00FFB0227B8000B0913BC0947F2C1F 0006A0096B0644B0282B006DB1505B0282B8000B1B20B0708B045DB0205B00017F307F 0007A00ACB0206BB4F4B3D42B0B45BC185B0245B003FB0946B0246B0F00BA1877F283F 0008A00C2BDC46B06C5BDC45B0202B0300BB402B0227B1000BC147B0227B10007F2C8F 0009A00D8B0245BF000B1010B0208BFFFEB045DB0502B0282B0008B15F9B0A827F29AF 0010A00EEB0222BE000BDC42B0202B0200BB402B0205BF000BC094B0912B06447F2CBF 0011A0104B0282B0010B1A02B0202B000FB0A82BA142BDC45B0603B15BEB06C77F2B9F 0012A011ABDC47B0200C0002B0202B0006BDC70B0602B15FDB0208B0001B02007F2EBF 0013A0130B1000BC800B83CCB0201C0008B0202B001AB0420B0000BF820C00007F318F 0014A0146B83FDBD820C0000B83CEB045D7F90FF 001540000C$CIND40000C$DIV 40000C$REM 40000C$ASR 40000C$ASL 7F3D7F 001640000C$EQ 40000C$NE 40000C$LT 40000C$LE 40000C$GT 7F4CDF 001740000C$GE 40000C$ULT 40000C$ULE 40000C$UGT 40000C$UGE 7F40AF 001840000C$LNEG40000C$SWCH40000GETCHA40000GETS 40000PUTCHA7F2F8F 001940000PUTS 40000LOCATE40000POLL 40000TSCRN 40000EXIT 7F326F 002040000C$GPLL40000XMLLNK30140VMBW 40000GRMRD 40000GRMWD 7F2DCF 002140000GRMWA 50022SND 7FAF9F 0022: 99/4 AS 0023ABC7BNBLjBCDB.BBCBNBLjBBC:BHBB`CBBBNBLjBF < ABBBBBCB CBBB @B@B ABABBaB@BBBBF A*BB@BC$BBPBC0B]F 4C$CIND4C$DIV 4C$REM 4C$ASR 4C$ASL F 4C$EQ 4C$NE 4C$LT 4C$LE 4C$GT F 4C$GE 4C$ULT 4C$ULE 4C$UGT 4C$UGE F 4C$LNEG4C$SWCH4GETCHA4GETS 4PUTCHAF 4PUTS 4LOCATE4POLL 4TSCRN 4EXIT F 38SPCHWT5SAY F : *99/4 AS 0009 f  d```DEp `"Z  d f`  @] 8 ` Q]ozHn=]                           #         "',29MoonMarsEarthSaturnJupiter(,.3: : .hɼdx.( ~H( F``( X `( x.`x.6ʤ.Gʤ.Xʤ.iʤ.zʤ.ʤ.ʤ.ʤ.ʤ.ʤ.ʤ.ʤ.ʤ.ʤ.$ʤ.5ʤ.Fʤ.(~H(~Hb^b`b ~Zjb( (R. ( (>R. ( >(R. ( >(>R. ( >(>R. ( >(R. ( >(>R. ( >(>R. ͬ( b~H( F``( X `(  T R͒.`2NPT.ZbX.\ `b:`B ^b:`VbRbT(b~H(2F``(X `d( b~H( F``( X `(  T R͒.`` `b4` ^b4` `b:`(b~H(dF`l`h(X `<`X(ҀzkҀb&ҀEҀҀWJ.pҀ~Z y4` Y4``f~ ^b:`0 VV VL`ZbV LL LL`hJ. J.~Z~J.R1ҀbҀ;Ҁ\ҀFҀLAҀ~Z`f. ]0102040810204080804020100804020110102020404080800808040402020101010102020404080880804040202010100000000800000000073FFF0F00000000000000000000FFFF07080F1010103F40E010F0080808FC02808080FF122444C7010101FF482422E3E0E0E0E0C0C0C0800707070703030301E0FCFFF000000000FFFFFFFFFFFFFFFFTry again? (y/n)You are a Master Pilot!!Live long and prosper!Press any key to continue...Nj L>x.b~HB V>F``X ` V;9(>> V;9(>>F V;9(>>p.`:J.  L>bΚ.BJ. V>bΚ.IJ. bbΚ.PJ. RbΚ.UJ. .Z L>Һ. TbΚ._J.  L>J.]Level: Area: Fuel: Vx: Vy: [%d]Gravity: .~H(F``X `z(B V>>~H>~H V;9( >>R` V;9( >>>R` V;9( >>>R` V;9( >>>R` V;9( >>p.`.]. `4`<. ](~H(bR``v(X `L(( (ʹ.(( >ƈ>(>ƈ>.~H(R`"(F`J.`b~HF``~X `Vbb͒.`pnbbbP.~H``f. ]You have crashed....~HF`L`2X ` 4.`$ `b:`l ^b:`z.] Zb4` \b4` bb4` T L>>T` Pb:` X;4` b >b bb@`,bb b2F`fdbP.~H 4. 4.,bP. T L> L>>>T N4` XS4` Xs4` R>R 4., P.~H b>b b2F`dbP.~H N4` XD4` Xd4` R>R 4., P.~H b>b b2F`dbP.~H bbΚ. RbΚ. TbΚ. ., L>Һ..][%d]. `4`P.]((ʹ.R`p RF` RR` T L>F`(b~H(F`*` (X `(bb͒.`b(X.(>X.(X.(>X.vJ.b&ҀEҀҀqҀ0Ҁ^`pJ.nbbbP.~H`.]Excellent landing!Landing velocities exceeded!.b((ʹ.(@`(R` T /* TI LANDER By Walid Maalouli August 2002 */ #include "DSK2.GRF1;H"#include "DSK2.RANDOM;C" @extern putnum(),disstr(),GetKey(),GetJoy(),snd(),say(),printf(); Lint gYterr[5][59]={24,23,22,21,20,19,19,20,21,21,20,19,18,17,16,15,14,14,15,N 16,17,18,19,20,21,22,23,24,24,24,24,24,24,24,23,22,21,20,N 19,18,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,23,22,21,N 20,19,18,17,17,18,19,20,21,22,23,24,24,24,24,24,23,22,21,N 20,19,18,17,16,15,15,16,17,18,19,20,20,19,18,17,17,18,19,O 20,21,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,23,22,21,20,19,19,N 19,18,17,16,15,14,13,13,14,15,16,17,18,19,20,21,22,23,24,N 24,24,24,24,23,16,15,22,21,17,14,20,19,18,13,13,14,15,16,N 17,18,0,0,0,0,0,0,0,0,0,0,0,0,24,23,22,21,20,19,18,17,16,N 15,14,13,24,23,12,11,24,22,21,11,24,20,19,12,24,18,17,13,N 24,16,15,14,24,23,22,21,20,19,19,20,20,19,18,17,16,15,15,P 16,17,17,16,15,0,0,0,0,0,0,0,24,23,22,21,20,19,18,17,16,15,N 14,13,12,12,13,14,15,16,17,18,24,23,19,24,22,21,20,13,12,O 24,14,11,24,15,10,24,23,16,9,22,21,17,10,9,20,19,18,12,11,1 14,13,16,15,16,15,15,16,17,18}; Oint gXterr[5][59]={1,2,3,4,5,6,7,8,9,10,10,11,11,12,12,13,13,14,14,15,15,16,16,N 17,17,18,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,0,0,P 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,P 8,8,9,10,11,12,12,13,13,14,14,15,15,16,16,17,18,19,20,21,22,N 23,24,25,26,27,28,29,30,31,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,M 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,16,16,17,17,18,18,P 19,19,20,20,21,22,23,24,24,24,24,25,25,25,25,26,26,26,26,27,O 28,29,30,31,32,0,0,0,0,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,8,9,9,10,P 10,11,11,11,11,12,12,12,12,13,13,13,13,14,14,14,14,15,15,15,P 15,16,16,17,17,18,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,O 0,0,0,0,0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,15,15,16,P 16,17,18,18,18,19,19,19,19,19,19,20,20,20,21,21,21,22,22,22,M 22,23,23,23,23,23,24,24,24,24,24,25,25,26,26,27,28,29,30,31, 32};  Lint gChTerr[5][59]={128,128,128,128,128,128,129,129,129,130,132,130,132,130,M 132,130,132,133,131,133,131,133,131,133,131,133,131,129,O 136,136,136,136,136,128,128,128,128,128,128,128,129,0,0,0,O 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,130,132,130,132,130,132,130,M 132,133,131,133,131,133,131,133,131,136,136,136,130,132,M 130,132,130,132,130,132,130,132,129,129,129,129,129,129,O 128,128,128,128,129,129,129,129,129,129,0,0,0,0,0,0,0,0,0,O 0,0,0,0,0,128,128,128,128,128,128,129,128,128,128,128,128,M 128,128,133,131,133,131,133,131,133,131,133,131,133,131,M 136,136,136,130,132,129,128,130,132,129,128,130,132,129,I 128,129,129,129,129,129,129,0,0,0,0,0,0,0,0,0,0,0,0,128,M 128,128,128,128,128,128,128,130,132,130,132,131,132,130,M 132,136,130,132,129,136,130,132,129,136,130,132,129,136,M 130,132,129,130,132,130,132,130,132,129,129,128,128,128,O 128,128,128,129,129,129,128,128,128,0,0,0,0,0,0,0,128,128,M 128,128,128,128,128,128,128,128,128,128,128,133,131,133,M 131,133,131,129,131,132,129,136,130,132,129,129,128,136,M 129,128,136,129,128,130,132,129,128,130,132,129,131,133,130,132,J 129,131,133,131,133,131,133,128,128,129,129,129,129};  int gAcc[5]={2,4,9,13,26};int gThrust[5]={4,6,13,20,35};int gLandVel[5]={2,4,8,10,15};int gColor[5]={16,10,8,11,14}; Pint gXintro[87]={2,3,4,6,7,8,3,7,3,7,3,6,7,8,2,7,8,9,10,12,15,17,18,19,22,23,24,O 25,27,28,29,30,2,7,10,12,13,15,17,20,22,27,30,2,7,8,9,10,12,14,P 15,17,20,22,23,24,27,28,29,30,2,7,10,12,15,17,20,22,27,29,2,3,4,9 5,7,10,12,15,17,18,19,22,23,24,25,27,30}; Oint gYintro[87]={2,2,2,2,2,2,3,3,4,4,5,5,5,5,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,P 8,9,9,9,9,9,9,9,9,9,9,9,10,10,10,10,10,10,10,10,10,10,10,10,10,10,O 10,10,10,11,11,11,11,11,11,11,11,11,11,12,12,12,12,12,12,12,12,, 12,12,12,12,12,12,12,12,12}; 4) {gScreen=0; gLevel++;} if (gLevel>4)- {disstr(8,5,"You are a Master Pilot!!");+ disstr(9,6,"Live long and prosper!"); ans=getchar(); exit(7);}. disstr(8,3,"Press any key to continue..."); say(21041); say(6498); say(15289); say(5212); say(18143); say(19521); ans=getchar(); spdall(); goto mainloop;}} P/******************************************************************************/ terrain() {int c; stars();color(16,gColor[gLevel],2);for (c=0;c<=gLarr[gScreen];c++)G {hchar(gYterr[gScreen][c],gXterr[gScreen][c],gChTerr[gScreen][c],1);}disstr(1,2,"Level: ");putnum(1,9,gLevel+1,0);disstr(2,2,"Area: ");putnum(2,8,gScreen+1,0);disstr(1,20,"Fuel: ");putnum(1,26,gFuel,0);disstr(2,20,"Vx: ");putnum(2,24,gVx,0);disstr(3,20,"Vy: "); locate(3,28); printf("[%d]",gLandVel[gLevel]);putnum(3,24,gVy,0);disstr(3,2,"Gravity: ");disstr(3,12,gPlanet[gLevel]);} P/******************************************************************************/stars() { int sx,sy,sc; for (sc=1;sc<=40;sc++) {do {sx=Rnd(gLarr[gScreen]+1); sy=Rnd(24)+1;}A while (sy>=gYterr[gScreen][sx] || sy>=gYterr[gScreen][sx+1] ||B sy>=gYterr[gScreen][sx+2] || sy>=gYterr[gScreen][sx+3]);' hchar(sy,gXterr[gScreen][sx],31,1);}} P/******************************************************************************/ crashCk() {int xsp,ysp,c,terr,c1,sn; if (gCrash==1) {return;}for (c=3;c>=0;c--) {spposn(c,&ysp,&xsp);' terr=gchar((ysp+4)/8+1,(xsp+4)/8+1); if (terr>=128 && terr<=133)( {disstr(6,7,"You have crashed..."); gCrash=1; for (c1=0;c1<=7;c1++) {spmotn(c1,0,0);}% sn=snd(200,110,0,960,0,-6,0,7); break;} }} P/******************************************************************************/ velCalc() { int spn,sn; for (spn=4;spn<=7;spn++) {spcolr(spn,1);}if (gCrash!=0 || gLand!=0) {return;}-if ((gJstatus==0 && gKstatus==0) || gFuel==0) {gVy=gVy+gAcc[gLevel];}else {if (gYjoy!=0 || gKey==59) {gFuel=gFuel-10; if (gFuel<0) {gFuel=0;} if (gFuel<=50) {sn=snd(100,755,0,3);} spcolr(4,9); spcolr(5,9); snd(300,-7,0,3);- gVy=gVy+(gAcc[gLevel]-gThrust[gLevel]);}* if (gXjoy==-4 || gKey==83 || gKey==115) {gVx=gVx-1; spcolr(6,9); sn=snd(300,-5,10,3); gFuel=gFuel-5; if (gFuel<=50) {sn=snd(100,755,0,3);} }) if (gXjoy==4 || gKey==68 || gKey==100) {gVx=gVx+1; spcolr(7,9); sn=snd(300,-5,10,3); gFuel=gFuel-5; if (gFuel<=50) {sn=snd(100,755,0,3);} } }putnum(1,26,gFuel,0);putnum(2,24,gVx,0);putnum(3,24,gVy,0); locate(3,28); printf("[%d]",gLandVel[gLevel]);} P/******************************************************************************/landCk() {int c,spx,spy,sn; if (gCrash==1) {return;}spposn(2,&spy,&spx); if (spy>=184)2 {if (gVx<=1 && gVx>=-1 && gVy<=gLandVel[gLevel]) {for (c=0;c<=7;c++) {spmotn(c,0,0);} sploct(0,175,spx); sploct(1,175,spx+8); sploct(2,183,spx); sploct(3,183,spx+8);& disstr(6,8,"Excellent landing!"); say(25126); say(17887); say(7962); say(8049); say(12538); gLand=1;} else0 {disstr(6,3,"Landing velocities exceeded!");$ sn=snd(200,110,0,960,0,-6,0,7); gCrash=1;} }}P/******************************************************************************/lost() {int spy,spx,sn; spposn(0,&spy,&spx);!if (spy<5 || (spy>=184 && gVy<0)) {spdall;" disstr(6,8,"Lost in space..."); say(29172); say(20716); say(19386); say(15439); say(22735); gCrash=1;}} P/******************************************************************************/inton() {#asm LIMI 2 LIMI 0#endasm} P/******************************************************************************/intro() {int c,sn,spx,spy; char ans; for (c=0;c<=86;c++)& {hchar(gYintro[c],gXintro[c],30,1);}!disstr(15,8,"By Walid Maalouli");disstr(17,11,"August 2002");hchar(23,13,136,7);sprite(0,137,16,136,116);sprite(1,138,16,136,124);sprite(2,139,16,144,116);sprite(3,140,16,144,124);sprite(4,141,9,152,124);sprite(5,142,9,152,116); spmct(6);for (c=0;c<=5;c++) {spmotn(c,2,0);}do {sn=snd(300,-7,0,3); spposn(3,&spy,&spx);}while (spy<174);for (c=0;c<=5;c++) {spmotn(c,0,0);} spcolr(4,1); spcolr(5,1);sploct(0,166,116);sploct(1,166,124);sploct(2,174,116);sploct(3,174,124); say(30487); say(7764); say(5212); say(25126); say(7962);for (c=0;c<=2000;c++);!disstr(19,8,"Press any key....");ans=getchar(); spdall();} DSK2.C99PFIDSK2.TILANDER/O DSK2.CSUP DSK2.GRF1 DSK2.PUTNUM/O DSK2.KEYJOY/O DSK2.SND;O DSK2.SPEECH DSK2.PRINTF DSK2.C99PFF DSK2.SAVEb@`rxJ.qҀPҀKҀ( >p.`ĢJ. ĴJ. p.btR. |R. tR. |R.  |R.  tR. ͬ(b~H(F`²`’(X `f(b͒.`‚(,bP.~H((ʹ.@`²(b~H(F`j`L(X ` (bb͒.`<4.4.btX.|X.tX.|X.wҀTҀ\Ҁb&ҀҀ(b~H(F`r`n(X `B`^J.~Z. ]By Walid MaalouliAugust 2002Press any key....NLj[NNjWW n` `@Ȳ ! !p?ǀ€* ,L-1B`dv ɺvǾA_YNȲ|` n[ c99 exit-Rerun? (Y/N)  [[ s   s;K.`jQ>> >  > >>[b[>>>>>[> [ƜWƜW~IA B<I[[NNjWb[[;;P[Ǿ A ]   ]nPǾ PA A].H]nu]( Dz !ǰ !|B d`ǰ_  ! `ǰ ! `u[A  Dz ! Ƕ[ Dz[ 'ǸaǴDz ǴDz ǶLjǴ !` !ǸB `Ǹ  `Dz``ǶǴ<`Dz[  ǶDz`Ǹ`B W\ Dz ! ǸDz[b@[.nnDz] ! u ]`p.@nA A  !]8`Ǵ Ǻ[.`p@`Š 0ɷɮv`z c99 err=XǶǺǸǼ ǴȲ @"]ǶǺǸǼ(ǴȲ ! @"]980![.@  !].@ nAB BB ! ].`@.p CpAB"]@ 0 [ $ $D[ JJJ].b !. !]Ȳ]n.n.n]n.nn !  Ǵ Ǽ` Ǽ]n.n ! ]D`t.t !t wn@ vnH]D.`t.t !t u ]`|A ][. ̘@n̠̬n !N @]  [  ! [  !AB ! [ ! [`P ! [ " "] OzN ! ].̘̬].̘n̠].̘n].@`A !].  n ! .].z]...]̘ !`! Р W.. ]`CAaD8A9B[.. ].. n8A].. n8A] {H ]ψnn. (8C P<9ˆ2 !E-^ Ϥ/|Рa `g !`G ! C !]ψ..  P(8t ! ] @ [ [ϖ϶lPC>   Ϫs`` lϖ  n*'t !Рu`u"`u" u `u"]n41t ! v `v(`w*`v(`w*.ѡ(*]t ! u,!t ! u, u- u-]-]ɓ)JIiZD] D6GE ΃01@@ GB' Dm ]=B EE? FFFE'G'E] "B D BEG0p6 ! . .]~ ~ @@ AAa@@P]N;.Ǜ^(.>(.].h] ~  F  HU``ӭVXX   ``  %:.     %4.    -4  b  040   bH ֶ  bH b  .4NǠֶ  bH b XX   K ~Zb~ZL GNǠt.<NǠ..NǠ . NǠ.]csdo"u>xNǠֈ  NǠ @b  NǠ L NǠ b>b   H .NǠ  H.     H . `8].9F.0R^B>].ֆֆ ֆ NǠֆ.b>]Z.  4ֲ. -4 ֲ. +4bִ. bH  ִ:> (X  >(ִNǠֲ ִ:> ].b@X H-Z(.~H.. .]