500 Game Surplus/XSurplus.iso/293/ADV.PIC

AmigaBASIC Source Code | 1992-07-30 | 15KB | 16 lines

                                                                                                                                                                                                                                                             <0x56c692>8P CLNGCALL<0x56c698>!ANDz
COS@ELSEIFlabel5260'<0x56c6a6>
ABS<0x56c6a9>7-^<0x4c>h                                                                    H<0x56c6e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x00><0x60>LOGASCEOF<0x56c6f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x00>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>v<0x61,0x00>ATN0<0x50><0x48>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNk<0x5b>B<0x7d><0x49>5n<0x61>STRING$"qêý¸`°ÝÃ)
Û¡ØïA¿Ë–-W6<R)ÅÎ4=Dõ1\•j9 ,È:à>
à
label7720<0x55>><0x46><0x5d>!<0x20>4.2113e-36119648ANDSTATIC<0x46>FN#_READVAL9XORNOT<0x4e>LOGCLINE.WEND:IMP<<0x56>RSETc<0x5f>READWEND;\/<0x5e>MKL$?W}<0x56c7ed>FIXvar757aq6ASCABStABS<0x53><0x56c7fd>O_VAL<0x7d><0xa6,0x00>/<<0x4f><0x4f><0x56c808>WRITE<0x7f><0x7e>
CVDGLET{'8<0x60>N@7                                                                                                                                                          |<0x4a>E<0x62>LENCALL
BNAMEp1<0x56c84e>STR$33813:GOTO!<0x56c856><0x56c857>NnW!COMMON437756553labelffffda46 $ELSEIFALOFASC;0<0x56c871>$ACVI_08<0x5d>COS"âhŽš    †Räw?z8¤v?9¢†8:HÀŽM
Iá”×E2 ^è) z·4Ä

µ †Ewä…R~($‰Ï•©äŽ6„¢™nº)'‡Kªi&•iò)bŸj&AîI'•#bxe
è1z„Ùâc‚4' INùä‡d*y¦§k"=MKI$EOFsTHENYMKD$EOFdELSEONTHENMKD$@RNDINPUTNOTFOR<0x56c910><0x20>:'NEXTLEFT$z<0xe5,0x00>LOFLOCr<0x5a><0x60>LOF'WEND<0x56c921>P9GETRND                                                                                                                                                                      kTHEN3COSEnZD!RND<0x4b><0x56c95d><0x5a>+<0x20>MKL$9jOPENPRINTzfON&<0x56c96c>+MKS$INPUTRIGHT$:[kNEXTGOTO*>*RIGHT$OPEN97<0x20>;SQRSTRING$CALLLET<0x56c983>STATIC<0x20>SQR@@c
g<0x5b>l41105CALL<0x56c993>3<0x4b>>WEND\B<0x62>ELSEIFFOR/9COMMONCLNGFOR%LNEXTASCEXPW1ABS98935031A@e<0x48>'<0x56c9b4>WHILE<0x7f>8q<0x45>FIELDH2q@<0x56c9c0><0x7c>h<0x51><0x46><0x56c9c5>y&Hd2c6<0x48>JATN+RIGHT$'<0x56c9d0>COMMON,
&CLOSElq<0x46>12337$52348
<0x46>3<0x56c9e4>0XOR<0x56c9e7><0x56c9e8>/\<0x4e><0x4f>                <0x56ca22>8cf|RIGHT$<0x46>F;xsFIX<0x7c>RNDVAL2<0x4b>(INTCVSORRIGHT$zELENFN<0x49>'S<0x5d>AND<0x48>0[CVS3<0x4c>#_LEFT$LSET<0x58>^WRITEl6<0x52>eCALLM
<0x59>0W+6<0x52>G\<0x4c><0x62>2tLOGW
0OIF<0x57>pCJ<0x50><0x7d>D2xCLOF@0
<0x56ca75><0x51>D<0x5e><0x56ca79>
ELSE8<0x61>CINT#READSTR$<0x60>CVS3.83138e-31516145<0x56ca90>WRITEPRINTRIGHT$<0x58>p                                                                                                                                                                                                                                                 <0x54>OGmTAN<0x55>2.90034e-315<0x49>USTATIC&H52d2p<0x47>ELSESPACE$$!<0x56cadd><0x5e>5<0x5c>SGNCALL~{<0x52><0x56cae6>CHR$LETRIGHT$<0x4b>VON<0xfb,0x00>w<0x5f><0x56caf5><0xfb,0xfffffffc>DMKL$=0<0x7f>70}O627313Q}<0x62><0x57>NOTLEN<0x7d>MODMt201\<0x5e>k/x@03]{<0x47>RNDWRITE6<<0x56>9sLEFT$AND<0x47>ANDRSETCVSIMPWHILE<0x5f>;SIN<0x51>55198ELSEIF^+CVILENy<0x46>THEN$<0x5d><0x61>ELSE}G;INPUT<0x51>.&STR$<0x5d>var6f6dz9GOTOTANXCDBLSQRTAN><0x45>oTHEN{ATN1~&=ELSEIFvar206fELSElabelffffe107!0B1ELSERETURNCDBL(<0x7c> <0x5d>rRA<0x4d>A"}³Á]†W€á5`x°Øø†‡€á•€vøî A.1¯    vó[9ZXŽÁ"~<0x4b><0x49>0UCONTrUSINGF5.08992e+12CVL6ECLNGuRIGHT$
S+