home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 10 / CDE10.mdf / f117a / adv.pic (.txt) < prev    next >
AmigaBASIC Source Code  |  1991-10-07  |  15KB  |  11 lines
  1.                                                                                                                                                                                                                                                              <0xa5f692>8P CLNGCALL<0xa5f698>!IMPz
  2. COS@ELSEIFlabel5260'<0xa5f6a6>
  3. ABS<0xa5f6a9>7-^<0x4c>h                                                                    H<0xa5f6e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x00><0x60>LOGASCEOF<0xa5f6f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x00>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>u<0x61,0x00>ON<0xa5f738>P<0x4c>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNEXP*<P{RSET<0x5f>`MKL$<0x7d><0xa5f786>CzINKEY$<0xa6,0xfffffffc><0x62><0x46>COS06.52551e-315b<0xa5f79a>,STR$<0x61>c<0x49>EXP6;MODMKS$SPACE$LSETNOT<0x46>~GET~D<0xa5f7ad><0x55>READTHENFOR<0xa5f7b2>c#,<0x48><0xa5f7b7>varffffa44f
  4. 8<0x5c><0xa5f7be>ABSELSEIF251650w*/O INKEY$pFIX<0x5c>
  5. sTHEN<0xa5f7d6>LEN4|CVL<0x7c><0xa5f7dc>IMP<<0x52><0xa5f7e0>PCLOSENELSEIFCOS\-<0x60>WRITEC?P]<0x7c>v'<0xa5f7f1><0x4a>'W
  6. }MKL$632027PMKI$<0x57>wASCABS2USING<0xa5f805>LSETcLEFT$H2080835842<0x4f>=7LENz                               v<0x57>a\LENu=8MKS$<0x5d>CALL<0x60>U7LOCu<0xa5f852>6<0x45>SQR7}<0xa5f85c>STR$2<0xa5f85f><0xa5f860>MOD<0xa5f862>4G<0xa5f865><0x7f>u@!t+=<0xa5f86d>LOCABS<0x5d>a7-5.00298e-36 CALL<0x52>-4.34814e-295COMMONay'!<0x48>^r2t<0x58><0x5b>CLOSELSETASC;L<0xa5f894>$ASCqEXP|ASCbr7Tw<0x5d>bTO4.77229e-349<0x48>ELSEIFy5B@STATICCVI&H4637-1.83705e-25\CVSEXPP`LSET}EQV) 0}WEND<0xa5f8c6>4AREAvar01b50%$6@NOT\ASC]685870904<0xa5f8da>ZLOGv38912CALL2048                   <0xa5f912>STRING$MKD$CVI4BR$|G5@2.85525e-316RETURNNOT<0xa5f929>CALLINPUT' ASC=GOSUB<0x59>LENNEXT<0xa5f934><0x5a>7MKS$var10ea%#labelffffe165YELSEIFLOCdGOSUBINKEY$LETLOG<0x49>5^MKD$^EQVWEND<0xa5f94f>P9{V^'RIGHT$`6<0xa5f959>hDATA20<0xa5f95e>OPENt4\<0x59>LENPRINTASC=<0x8a,0x00>$<0xa5f96b>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<0xa5fa51>**XOR<0x46>/.CVIREM═&4æú▄m╓╕Ç▓+╥êá┌1v n┐╓╜⌠T[G┬Ω N
  9.                                                                            <0xa5fab2><0xa5fab3>@STATIC<0xa5fab6>3<0x51>STR$<0x58>EOF'6<0x0f,0x00>              <0x49>TOGOSUBK^u@0LYfCVI>FIX)LETASC2<0x50>]ABS<0x5c>N<0x50><0x5d>@2tC@7<0xa5fb11>STR$<0x5a>ON!t%<0x47><0x47>$LENG<0xa5fb1d>.OPENuLET?LOCCDBL<0x4a>CVD7<0xa5fb28>@rLEFT$"<$╔3┐|≤╨o]N╜?·₧ <HΘ                                                                                                                                                                                                                                      +2675189504<0x3b>tOPENSQR*-5.58031e+26:<0x5d>2<0x54>V9STATICGET<0xa5fb8e><0x33,0xfffffffc>NOT<0x60>M3DATAa9<0x55>GOTOS<05CLNGPN^'WEND                                                                                                                                                                                                                                   7=(<0x60>
  10. PUTFN9var3ecdASC<0xa5fbde> <0x20>0ALOCS6MID$vTHENREAD<0x5b>e>labelffffeb33_CTG7labelffffd02dlabel2184CDBL<0xa5fc02>'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