Dominator 2/DOMINATOR2.ISO/f117a/adv.pic

AmigaBASIC Source Code | 1991-10-07 | 14.8 KB | 11 lines

                                                                                                                                                                                                                                                             <0x1f357692>8P CLNGCALL<0x1f357698>!IMPz
COS@ELSEIFlabel5260'<0x1f3576a6>
ABS<0x1f3576a9>7-^<0x4c>h                                                                    H<0x1f3576e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x00><0x60>LOGASCEOF<0x1f3576f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x00>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>u<0x61,0x00>ON<0x1f357738>P<0x4c>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNEXP*<P{RSET<0x5f>`MKL$<0x7d><0x1f357786>CzINKEY$<0xa6,0x00><0x62><0x46>COS06.52551e-315b<0x1f35779a>,STR$<0x61>c<0x49>EXP6;MODMKS$SPACE$LSETNOT<0x46>~GET~D<0x1f3577ad><0x55>READTHENFOR<0x1f3577b2>c#,<0x48><0x1f3577b7>varffffa44f
8<0x5c><0x1f3577be>ABSELSEIF251650w*/O INKEY$pFIX<0x5c>
sTHEN<0x1f3577d6>LEN4|CVL<0x7c><0x1f3577dc>IMP<<0x52><0x1f3577e0>PCLOSENELSEIFCOS\-<0x60>WRITEC?P]<0x7c>v'<0x1f3577f1><0x4a>'W
}MKL$632027PMKI$<0x57>wASCABS2USING<0x1f357805>LSETcLEFT$H2080835842<0x4f>=7LENz                               v<0x57>a\LENu=8MKS$<0x5d>CALL<0x60>U7LOCu<0x1f357852>6<0x45>SQR7}<0x1f35785c>STR$2<0x1f35785f><0x1f357860>MOD<0x1f357862>4G<0x1f357865><0x7f>u@!t+=<0x1f35786d>LOCABS<0x5d>a7-5.00298e-36 CALL<0x52>-4.34814e-295COMMONay'!<0x48>^r2t<0x58><0x5b>CLOSELSETASC;L<0x1f357894>$ASCqEXP|ASCbr7Tw<0x5d>bTO4.77229e-349<0x48>ELSEIFy5B@STATICCVI&H4637-1.83705e-25\CVSEXPP`LSET}EQV) 0}WEND<0x1f3578c6>4AREAvar01b50%$6@NOT\ASC]685870904<0x1f3578da>ZLOGv38912CALL2048                   <0x1f357912>STRING$MKD$CVI4BR$|G5@2.85525e-316RETURNNOT<0x1f357929>CALLINPUT' ASC=GOSUB<0x59>LENNEXT<0x1f357934><0x5a>7MKS$var10ea%#labelffffe165YELSEIFLOCdGOSUBINKEY$LETLOG<0x49>5^MKD$^EQVWEND<0x1f35794f>P9{V^'RIGHT$`6<0x1f357959>hDATA20<0x1f35795e>OPENt4\<0x59>LENPRINTASC=<0x8a,0x00>$<0x1f35796b>STR$TAN<0x53>INT;EQVINKEY$028204CINTqVAL-5.04114e-25<0x5e>h PRINT89MKS$cRND/<0x56>ZREMt┤f'π│╪╓╪
                                                                                      B'CLNGREM╨GA9⌠}P{:0î>zk¼ⁿµ╔┐ε«µái║kα¡
H^Ñ╛bΩ[┴mûú2}D╞₧#'╪nù╡å╖ÿî;°▐ÿ«Ü\╢;L'å⌠@Ds7ñåM
ëE
@D2<5WEND^<0x54>SW-4<0x54>RS<0x7d>t<0x53>^+`IMP<0x53>QO6<0x1f357a51>**XOR<0x46>/.CVIREM═&4æú▄m╓╕Ç▓+╥êá┌1vn┐╓╜⌠T[G┬ΩN
                                                                           <0x1f357ab2><0x1f357ab3>@STATIC<0x1f357ab6>3<0x51>STR$<0x58>EOF'6<0x0f,0x00>              <0x49>TOGOSUBK^u@0LYfCVI>FIX)LETASC2<0x50>]ABS<0x5c>N<0x50><0x5d>@2tC@7<0x1f357b11>STR$<0x5a>ON!t%<0x47><0x47>$LENG<0x1f357b1d>.OPENuLET?LOCCDBL<0x4a>CVD7<0x1f357b28>@rLEFT$"<$╔3┐|≤╨o]N╜?
·₧<HΘ                                                                                                                                                                                                                                      [phone]<0x3b>tOPENSQR*-5.58031e+26:<0x5d>2<0x54>V9STATICGET<0x1f357b8e><0x33,0x00>NOT<0x60>M3DATAa9<0x55>GOTOS<05CLNGPN^'WEND                                                                                                                                                                                                                                   7=(<0x60>
PUTFN9var3ecdASC<0x1f357bde> <0x20>0ALOCS6MID$vTHENREAD<0x5b>e>labelffffeb33_CTG7labelffffd02dlabel2184CDBL<0x1f357c02>'U3F=LOC[EQVY3^'CABS<0x7e>GET<0x7f>RSETH<0x7f>~\CDBL"∞0
╒╦    å|Φ@ BpêA─Vì8=û-â■╤▐#û*ΘáP:á█
╘g╛≤ì∩|`lûFHBì$Zñ█▌⌠Ñ/≈1
FF                                                                                                                                                                                                                 EQVATN?<0x62>-MKS$i*XOR2.53599e-316uT