home *** CD-ROM | disk | FTP | other *** search
/ Flight Simulators / FLIGHTSIM.ISO / games / f-117 / adv.pic (.txt) < prev    next >
AmigaBASIC Source Code  |  1991-10-07  |  15KB  |  11 lines
  1.                                                                                                                                                                                                                                                              <0x17db692>8P CLNGCALL<0x17db698>!IMPz
  2. COS@ELSEIFlabel5260'<0x17db6a6>
  3. ABS<0x17db6a9>7-^<0x4c>h                                                                    H<0x17db6e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x00><0x60>LOGASCEOF<0x17db6f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x00>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>u<0x61,0x00>ON<0x17db738>P<0x4c>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNEXP*<P{RSET<0x5f>`MKL$<0x7d><0x17db786>CzINKEY$<0xa6,0xfffffffb><0x62><0x46>COS06.52551e-315b<0x17db79a>,STR$<0x61>c<0x49>EXP6;MODMKS$SPACE$LSETNOT<0x46>~GET~D<0x17db7ad><0x55>READTHENFOR<0x17db7b2>c#,<0x48><0x17db7b7>varffffa44f
  4. 8<0x5c><0x17db7be>ABSELSEIF251650w*/O INKEY$pFIX<0x5c>
  5. sTHEN<0x17db7d6>LEN4|CVL<0x7c><0x17db7dc>IMP<<0x52><0x17db7e0>PCLOSENELSEIFCOS\-<0x60>WRITEC?P]<0x7c>v'<0x17db7f1><0x4a>'W
  6. }MKL$632027PMKI$<0x57>wASCABS2USING<0x17db805>LSETcLEFT$H2080835842<0x4f>=7LENz                               v<0x57>a\LENu=8MKS$<0x5d>CALL<0x60>U7LOCu<0x17db852>6<0x45>SQR7}<0x17db85c>STR$2<0x17db85f><0x17db860>MOD<0x17db862>4G<0x17db865><0x7f>u@!t+=<0x17db86d>LOCABS<0x5d>a7-5.00298e-36 CALL<0x52>-4.34814e-295COMMONay'!<0x48>^r2t<0x58><0x5b>CLOSELSETASC;L<0x17db894>$ASCqEXP|ASCbr7Tw<0x5d>bTO4.77229e-349<0x48>ELSEIFy5B@STATICCVI&H4637-1.83705e-25\CVSEXPP`LSET}EQV) 0}WEND<0x17db8c6>4AREAvar01b50%$6@NOT\ASC]685870904<0x17db8da>ZLOGv38912CALL2048                   <0x17db912>STRING$MKD$CVI4BR$|G5@2.85525e-316RETURNNOT<0x17db929>CALLINPUT' ASC=GOSUB<0x59>LENNEXT<0x17db934><0x5a>7MKS$var10ea%#labelffffe165YELSEIFLOCdGOSUBINKEY$LETLOG<0x49>5^MKD$^EQVWEND<0x17db94f>P9{V^'RIGHT$`6<0x17db959>hDATA20<0x17db95e>OPENt4\<0x59>LENPRINTASC=<0x8a,0x00>$<0x17db96b>STR$TAN<0x53>INT;EQVINKEY$028204CINTqVAL-5.04114e-25<0x5e>h PRINT89MKS$cRND/<0x56>ZREMt┤f'π│╪╓╪
  7.                                                                                       B'CLNGREM╨GA9⌠}P{:0î>zk¼ⁿµ ╔┐ε«µái║kα¡ H^Ñ╛bΩ[┴mûú2}D╞₧#'╪nù╡å╖ÿî;°▐ÿ«Ü\╢;L'å⌠@Ds7ñåMëE
  8. @D2<5WEND^<0x54>SW-4<0x54>RS<0x7d>t<0x53>^+`IMP<0x53>QO6<0x17dba51>**XOR<0x46>/.CVIREM═&4æú▄m╓╕Ç▓+╥êá┌1v n┐╓╜⌠T[G┬Ω N
  9.                                                                            <0x17dbab2><0x17dbab3>@STATIC<0x17dbab6>3<0x51>STR$<0x58>EOF'6<0x0f,0x00>              <0x49>TOGOSUBK^u@0LYfCVI>FIX)LETASC2<0x50>]ABS<0x5c>N<0x50><0x5d>@2tC@7<0x17dbb11>STR$<0x5a>ON!t%<0x47><0x47>$LENG<0x17dbb1d>.OPENuLET?LOCCDBL<0x4a>CVD7<0x17dbb28>@rLEFT$"<$╔3┐|≤╨o]N╜?·₧ <HΘ                                                                                                                                                                                                                                      +2675189504<0x3b>tOPENSQR*-5.58031e+26:<0x5d>2<0x54>V9STATICGET<0x17dbb8e><0x33,0xfffffffb>NOT<0x60>M3DATAa9<0x55>GOTOS<05CLNGPN^'WEND                                                                                                                                                                                                                                   7=(<0x60>
  10. PUTFN9var3ecdASC<0x17dbbde> <0x20>0ALOCS6MID$vTHENREAD<0x5b>e>labelffffeb33_CTG7labelffffd02dlabel2184CDBL<0x17dbc02>'U3F=LOC[EQVY3^'CABS<0x7e>GET<0x7f>RSETH<0x7f>~\CDBL"∞0╒╦    å|Φ@ BpêA─Vì8=û-â■╤▐#û*ΘáP:á█╘g╛≤ì∩|`lûFHBì$Zñ█▌⌠Ñ/≈1
  11. FF                                                                                                                                                                                                                 EQVATN?<0x62>-MKS$i*XOR2.53599e-316uT