home *** CD-ROM | disk | FTP | other *** search
/ Aztec Shareware Collection / SIMULATION.ISO / f117demo / adv.pic (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1992-07-31  |  14.7 KB  |  16 lines
  1.                                                                                                                                                                                                                                                              <0x789d692>8P CLNGCALL<0x789d698>!ANDz
  2. COS@ELSEIFlabel5260'<0x789d6a6>
  3. ABS<0x789d6a9>7-^<0x4c>h                                                                    H<0x789d6e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x02><0x60>LOGASCEOF<0x789d6f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x05>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>v<0x61,0x02>ATN0<0x50><0x48>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNk<0x5b>B<0x7d><0x49>5n<0x61>STRING$"qΩ²╕`░▌├)█í╪∩A┐╦û-W6<R)┼╬4=D⌡1\òj9 ,╚:αÉ>α
  4. label7720<0x55>><0x46><0x5d>!<0x20>4.2113e-36119648ANDSTATIC<0x46>FN#_READVAL9XORNOT<0x4e>LOGCLINE.WEND:IMP<<0x56>RSETc<0x5f>READWEND;\/<0x5e>MKL$?W}<0x789d7ed>FIXvar757aq6ASCABStABS<0x53><0x789d7fd>O_VAL<0x7d><0xa6,0x02>/<<0x4f><0x4f><0x789d808>WRITE<0x7f><0x7e>
  5. CVDGLET{'8<0x60>N@7                                                                                                                                                          |<0x4a>E<0x62>LENCALL
  6. BNAMEp1<0x789d84e>STR$33813:GOTO!<0x789d856><0x789d857>NnW!COMMON437756553labelffffda46 $ELSEIFALOFASC;0<0x789d871>$ACVI_08<0x5d>COS"Γh¥ÄÜ    åRΣw?z8ñv?9óå8:H└ÄM
  7. 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<0x789d910><0x20>:'NEXTLEFT$z<0xe5,0x02>LOFLOCr<0x5a><0x60>LOF'WEND<0x789d921>P9GETRND                                                                                                                                                                      kTHEN3COSEnZD!RND<0x4b><0x789d95d><0x5a>+<0x20>MKL$9jOPENPRINTzfON&<0x789d96c>+MKS$INPUTRIGHT$:[kNEXTGOTO*>*RIGHT$OPEN97<0x20>;SQRSTRING$CALLLET<0x789d983>STATIC<0x20>SQR@@c
  8. g<0x5b>l41105CALL<0x789d993>3<0x4b>>WEND\B<0x62>ELSEIFFOR/9COMMONCLNGFOR%LNEXTASCEXPW1ABS98935031A@e<0x48>'<0x789d9b4>WHILE<0x7f>8q<0x45>FIELDH2q@<0x789d9c0><0x7c>h<0x51><0x46><0x789d9c5>y&Hd2c6<0x48>JATN+RIGHT$'<0x789d9d0>COMMON,
  9. &CLOSElq<0x46>12337$52348
  10. <0x46>3<0x789d9e4>0XOR<0x789d9e7><0x789d9e8>/\<0x4e><0x4f>                <0x789da22>8cf|RIGHT$<0x46>F;xsFIX<0x7c>RNDVAL2<0x4b>(INTCVSORRIGHT$zELENFN<0x49>'S<0x5d>AND<0x48>0[CVS3<0x4c>#_LEFT$LSET<0x58>^WRITEl6<0x52>eCALLM
  11. <0x59>0W+6<0x52>G\<0x4c><0x62>2tLOGW
  12. 0OIF<0x57>pCJ<0x50><0x7d>D2xCLOF@0
  13. <0x789da75><0x51>D<0x5e><0x789da79>
  14. ELSE8<0x61>CINT#READSTR$<0x60>CVS3.83138e-31516145<0x789da90>WRITEPRINTRIGHT$<0x58>p                                                                                                                                                                                                                                                 <0x54>OGmTAN<0x55>2.90034e-315<0x49>USTATIC&H52d2p<0x47>ELSESPACE$$!<0x789dadd><0x5e>5<0x5c>SGNCALL~{<0x52><0x789dae6>CHR$LETRIGHT$<0x4b>VON<0xfb,0x02>w<0x5f><0x789daf5><0xfb,0x07>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$
  15. S+
  16.