home *** CD-ROM | disk | FTP | other *** search
/ Crazy Collection 1 / CC-01.iso / GAMES_1 / F117 / DATA.A00 / 256REAR.PIC (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1991-04-18  |  13.5 KB  |  71 lines
  1.                                                                                                                                                                              Hlabel29c1FIX%M FIELDplabelffff8951B1<0x3980a6a1><0x3980a6a2>&CLNGCDBL#7*CVL7                                                                .50B1CLNG0B2&KFOR0FORp2%C8-UBbCOSRMKD$<0x49>FIELD2.6924e-152aCOMMONFIX.!QPINT>s<0x3980a712>$<0x53>21ATNP<0x3980a71d><0x3980a71e>M<0x53>12<0x3980a723>%<0x7c>@GETMS12var25f4@4N<0x53>7476i<0x62>CDBL<0x3980a73a>$                                 <0x57>-\STRING$EXP<0x54>B=@GETNS6960a<0x62>d<0x49><0x5b>SPACE$CDBL!<0x59>7\<0xb2,0x00>cH<0x3980a791>1r<0x20>CVDMKI$><0x3980a798>CINT&He3aQrXRSETb<0x4d>LEFT$<0x61>zfEXPp>M50\<0x20>D%ASTR$PUTNOT<0x46>GOSUBCOMMON<0x3980a7ba><0x49>FIELD<0x5a>IFIXlGOSUBSTRING$ LOC<0x3980a7c5>ONABSINPUTf`MKS$ wcSTR$<0x46>4<0x3980a7d2>7CVS\7$<0x3980a7d8><0x3980a7d9>3P%<0x54>3CALLKVzSPACE$<0x61>YATNNOT<0x3980a7ea><0x3980a7eb>1PE<0x54>EQVlabel4339<0x3980a7f4>/Pe<0x54><0x54>labelffffc303AWEND<0x4b>SGN<0x20>$<0x3980a803>FIXlabelfffff897$FIELDNEXT^MKD$<0x7c>\<0x3980a80f>Y@4$MUELSEIFEXPvarfffff1054ASC1SIN!0<0x51>}                                                                                                                                                                                                       <0x60>~<0x59><0x4d>FOR<0x20>L<0x3980a859>$Tvar55944Evar4305\H33680 @LOC~G<0x60>6"¡┘g$(Qß·iτ\    
  2. уGÉ`╥╘  "$<0x3980a890>EXPX@nPUT<0x55>MKI$d10MID$7akHVALhELSEIFmTRNDX!ATN<0x4e>yCLOSEDEXP<0x3980a8ae>M@4'MI<0x60>AREAIF"F£ºdDF¿╕ï⌡!còT▐evd·Wπÿ    y╖úNá4A₧┌φêfJ╧φº(¢**IΓö╢Ez$▄YfBPEJSó┘ñƒä)!¬ªóL.ADA
  3. LOCj<0x3980a911>PRJ'FIELDF45870SQRU<0xeb,0x00>B<0x3980a921>PCHR$JH COMMONPMKL$REM$TXà|┌┌A2&¢ΦÆ¥
  4.                  PUTBJ%PRINTRND<0x4a><0x3980a979><0x3980a97a>varffffb532FOROPEN1CLNG1P"    ┬T─
  5. A⌠
  6.                                                                                                                                                                                                                                1<0x3980a9c3>lvar1e90<0x60>CLNGSINSTATICFIXD&MKS$<0x48>CINTINPUTMKD$LOFIMPGET=lvarffffd01a<0x3f,0x00>varffffb116<MKI$CALL CVD0READ<0x3980a9e8>STATICFIX
  7. CVL<0x3b><0x5f>9@CVLAREAWRITE<0x56>0RIGHT$CVL <0x20><0x3980a9fa><0x3980a9fb>,STRING$%<0x51>                                                                                                                                                                                                FIX<0x50>.<0x48><0x5d>><0x4c>0MKL$308642<0x3980aa3f>H95LOGWHILEvlj<0x3980aa49>FORB+'SPACE$FIXRkRETURNvar4518<0x51>XOR0XOR5EXP2MKL$63|-REM"°jq╗Iïq╟╤Æä»"╫╨k╜0NLB╥∩zα5DRHi▓ó≥¢¢│    !g╙░s╧p≈</ /╕M_¢⌠╕╜*\▒┬Idï║"c∞5╓X£┤╥±₧ B╩-ñ∞¿╬F@─└o√∞≤╡F±⌡ß±éÇ⌠╤à/|╕▐Hâ ╕Φ/ 6╜
  8.                                                                                                                                                                                                                                                         <0x51>&_<0x4b>RNDCVS<0x4f>FIELDWENDREM╬║φä4á÷┤[╦≤µ    æ2æ╫«╖Ñâ0o║⌡╢╛║≤╬?«h└≡≤K/n▒╝╥gî;ôK╪√ÿN╣m:[K
  9. <0x5c>01QCDBL<0x7d>MOD45=<0x45><0x62>CLOSE/<0x7d><0x4a><0x57>"┌╟D░║ª)î░Ç0└╓5¡pMk£╫─å>ÿÖH    â96H3ßw▄ îÉ│ΓßZ⌠3
  10. <0x7e>*SQRCLNG"╠¡yΓ+¥╩                                                                                                                                                                                             *1RETURN^WHILE $<0x3980abea>gELSEIF<0x47>a<0x20>label0b4cY<0xae,0x00>THEN<_INKEY$<0x4c>|CINTNEXT`<0xae,0x00>s3SGNNEXT-ZAREA3<0x58><0x7c>4WCDBLk<0x61>EOFR.<0x5c>LINE'INPUTTHEN?108<0x4f>label1500LOF<0x3980ac20>VAL<0x57>7NOT4Pq><0x3980ac29># ATNCVLi<0x3980ac31>{STATICXOR
  11. <0x3980ac36>uSQRPRINT<0x47><0x3980ac3b>
  12. <0x3980ac3d>WENDS[EXP<0x60>gB7<0x51>EOF
  13. WLABS<0x3980ac4c>STATICU5ONCOSl\4<0x3980ac55>#<0x3980ac57>5Yvar0c7c/CLOSEgSGNINPUTEQVWHILEMKL$6:/DATATCVI6CHR$Plabel0925GOSUB<0x4d>-<0x3980ac75>plabel1e69<0x3980ac7a>RETURN-8<0x3980ac7e>gFN=STATIC3OPENk,                                                                                                                                                                                CVLDATAOa*<0x53>
  14. 7ASC7F<0x3980accd>4Pi:USING<0x61>REM\╖=2■
  15. ô¡█dΘ¿&╖└     "é╦°°6+║Æ
  16. RND|<0x56><0x3980acf5>ELSEPK+Q+<0x3980acfc><0x3980acfd>\$<0x3980ad00>ABSHFON<0x3980ad05>S]FIX<0x4c>MID$/WRITEWDdFIX@INKEY$LEFT$EQVUSING*d67&DXOR SINi<0x5b><0x3980ad21>EOF<0x47>J"╝2û5█& ╞g5òàs£cL┘╒╢Ib«çm$b
  17. ÄàÆx2╙l╣Y)àO╠╔∩Å°ï%@╙&╨è±/ù╗$ºB╞╨óù4|h▀"ZSTR$PUTLOG<0x4b>CDBL<0x59>MKS$COMMONEQV7RESETNEXTCDBL<0x55>lMID$?RIGHT$y-!7u7153<0x4b><0x3980ad93>*RETURN{<0x3980ad97><INPUT20868GOTOJ<0x4f>CVI9('<0x52><0x5e>                                                                                                                                                            ZTMKI$f<0x3b>VO;<0x3980adda><0x54>EOFn44844ON<0x3980ade3>ATNp<0x54>LSET3247441325[<0x3980adee>LOC<0x4a>0NEXT5! RND(B0IF`UuREAD<0x54>LSET2<=MWRITEINPUTWHILE<0x3980ae09><0x3980ae0a>LINEmCVL131<0x20>T<0x56>}MODXORINPUTCCOMMON+ZQ%CDBL<0x48>CVLORZ                                                                                                                                                                                                                                  &H8bf9PNEXT2AREMqà^δ┘╫\■5dé⌡jN ½¿k1J▒pÆ5═┌╧┤└¿l¡¼1+├═Sí₧ h!íè╤è ÿ|S╤ö6>╒S╡ä-¢aC⌠&#êp▒ j¼¡9Tñ▐╢¡h¥_ó7C╥₧%╥pMa▄X╒t╦¡D08Φ«V║¡¡öï╓µ╤«Æ╗"E*I[h┐╠N«║\#z    É4gùOxé3▀{╒°■╩ª«∞}9c&4í
  18. BNEXTvar0d66 CALLj9<0x56>g\CALL,@CHR$wYAND5A<0x3980af1f><0x3980af20>6/yIMP&label67468 <0x3980af2b>GOSUB0MID$^jSTR$MKL$CLNG<0x55>STRING$8                                    37644634887<0x3980af68>5RIGHT$<0x4f>0EQVINPUT<0x62>*label1460-Nq0<0x5e>J<0x4c><0x3980af7b><0x4e>IFCLNG5MKD$<0x54>DATA!FIELDSTATIC<0x3980af86>o^<0x2b,0x00>                                                                                  label4afbGOSUBMKS$<0x48> ^&H83ac<0xd4,0x00>YCVD3CHR$MODMKL$PRINT<STR$<0x3980afd8>U<0x60>b<0x59><0x46>OELSEIFqCDBLWENDCVS40/SQRSTRING$9=PRINTCINTy<0x4a>5<0x3980aff0>GELSEIF<0x3980aff3>=ABS&Hff2<0x52>CABS<0x3980affe>kMODMKI$label52ccSTRING$ON<0x7e>EOFRSETLENWENDRSETGOSUBXOR&H8952+8F<v]WENDlabelffff8b41ELSEj7<0x4d><0x3980b020>AEQVLOF0EXP'31233DATA>sLSET<0x7d>7g246&H957<0x4d>ON/IMPGcPn<0x59>3LINEN6s{L81
  19. 8ACALL-4FIELDTWENDCALLk-TAN
  20. COS>ABS32RIGHT$ASCD/`<0x51><0x3980b062>'ASC84<0x3980b067>i$XSQR<0x49>U4ABSTHEN\GC^6<0x20>CLNG0<0xd4,0x00>RETURN<0x51>YAREAOPEN5<0x3b><0x54>ANDLOGj-4.23177e+24X4var125dABS                                                                                                                                                                                                                                <0x3980b0c2>EXPMKS$ELSEIFSGN<0x3980b0c7>EXPh<0x20><0x59><0x3980b0ce><0x50>var0fdcFORCDBL%GOTOHsF0]<0x5d>Ng
  21. t<0x3980b0e1>@<0x5d>:5                                                                                                                                                                                                                                                      VWEND<0xdd,0x00>SLOGXOR.ELSEIFCLNGs`o|XORABS<0x3980b122>COS&ELSEIFSGN0^<0x3980b12a>&Hbc070<0x5f>ASC32899INPUT<0x5f>;B22735:CLOSE<<0x20>AND<0x3980b142>c}XOR5MKI$OANDilabel78ccW<0x60><0x62><0x3980b151><0x20>LEN8r3833652471<0x4e>7<0x4a>SIN}-ABSOPEN`<0x5a>63944kELSESTATICMKI$<0x5b>T<avar1646REMz²\Ip ╢îèó²o┘√╪|¥!#≈{P7∙╘}αÇ├ασZù9═I▐h░≈îHG≡Xà~÷┤_ïφ{ ô╪¥├QΣjƒ7╛I«wÿ≤α4
  22. |14>s<0x4e>6
  23. +COMMONEOF4"çCΩº₧Éù░Σùá«ñNF'╣ûµq                                                                                                                            {WHILEEXPSTR$varffffa2a7<0x4d>
  24. PUTLINE<0x5c>USING<0x5a>4666W0YCLNG\+READO<0xf7,0x00>SPACE$LEFT$CVD=GOTOONMODNOT*STR$sOATNTHENlabelffffeca0THENLEFT$G<0xf7,0x00>!LOCSWENDCSRLIN\<0x7d>SPACE$IMP<0x53><0x7c>X<0x61>FIXIMPCVIs<0x7d><SQRPRINT<0x3980b26d><1.36737e-314IF<0x3b>CALL<0x7f><0x5e><z<0xf7,0x00>ANDEOFASClabel2135'CLNGEXPCLOSECASC<0x3980b28f>FOR 1rCDBL<0x62>FIELD$ <x
  25. CLNGQCDBL<0x47>ELSE"û,I┬Σ╔
  26. EXPR4)CVL$COS<0x48>& D<0x54>ABSd@MKD$4aRNDRSETIvar1f3bpG@ATNEXP~<0xf7,0x00>'Ca72<0x3980b2d7>ELSEFPRINTx<0x3980b2dc>jFOPEN1EABSl"ÆΣJöªV2δRg╠ÖH▄╠╔ôgüAç=Z0┬ä ÷xïñj8hΣXCkV«#╟          IFORXMKS$eSTRING$LETCHR$FOR
  27. MKI$NLETN<0x3980b350>EQV<0x50>!3<0x3980b355>QLOGlabel0b0eYINPUT<0x50>AC6.89091e-315EXP:<0x3b>2ASC<0x4a><0x58><0x53>cFIELDdLENiABSD<0x3980b37a><0x4b>m<0x5f><0x46>IMP<74LSET"w¢µσ±╢*$I4n╠j╪#─$i2╓⌠°@Σ%║'≈«┴ΣÑ█═¥?╙àtätSº Ö▀W╖kÅ╒E ë¥╥╞û<û@nß╔ñ    ╛1!Q;└P⌐gεA_@$qD}GÇ
  28. GETLENlFOR1&<0x49>c<0x3980b3f6>|CLOSEDASC34ABS yH<0x3980b401>RIGHT$22pMID$W21066TSTR$@C0IMP<0x3980b411>AREACINT208237H+ORGOTOLENlabelffff8c41b<0x52>l)WHILE"ï"<0x48><0x3980b42b>0F0H#grASCCINT#i<0x3980b437>                                                                                                                                                                                                                                   1G<0x50><0x3980b465><0x3980b466><0x3980b467><0x61>-MODQVOb<0x47>LSETI()<0xbe,0x00>l<0x3980b479>1948104072 <0x3980b480>LL<0x54>CDBL2W<0x5a>MKS$eAKp<0x59>FORGOTO<0x4c>ITCALL<0x3980b494>CFOR>Qa<0xbe,0x00>QLSETINPUTFORRIGHT$<0x3980b4a1>COSINTp1COMMONCDBL1uFCOSNOTATN|5ABS%q<0x3980b4b3>BCVLCDBL<0x20>FORIMPELSEIFLEFT$LOG5&H6184LOF6TO'<0x51>CVDEXP& )MID$EXP <0x20>"tLdΩóöM(▒gƒY«╫⌐ÿZ└è5!QÉï₧ΘQÄε)ÆF▓ñû*æδd╗Γ╔α₧Kx¼qNk∞å4╘α(│¡n⌡Ωê² ⌐$╫Γ&                                    mk`SQR<1'DSTR$XJCOMMON<0x54>2LSET9ELSEIFSTATICCINT<0x50>PUT<0x48>*EXP[A<0x88,0x00>COS<0x3980b56f><0x4c>[oSPACE$c>zgGET<0x7e>label3c2eRPEXPONINKEY$RIGHT$OPENB4<0x3980b586>RSETCHR$<0x55>ELSEIF.CALL/B9ANDIEXP<0x50><0x88,0x00>jSQRTHENOPENREM¥$AäNαè ΩzQÉJ
  29. EOFOPENREAD(&<0x3980b5af>f9v7CALL<0x51>99[varffff924er-var1457<0x4c>-ATNE53743WRITE:<0x3980b5ca>\P<0x4f>&H9746<0x48><0x50><0x4d>EXPj<0x3980b5d7><0x88,0x00>                                                  <0x4a>iFIXHABSLSETFOR,I<0x56>WENDSTR$CINTHXORCINT<0x5f>b-3.4915e+29!(GOTO<0x4c>8<0x61>'1531AREALOF50|7d3965<0x5b>nSQRUSINGUSINGCVD<0x5a><0x4a>-2.83556e-16VALRSETqz?CHR$@<0x5f><0x50>)QMKL$0EFOR\STR$<0x51><0x4f>BGETRNDlCVIRSET<0x5c>MODINTELSE<0x47>CINT/l<0x3980b66d>ELSEIFSGNMKS$MKD$WHILELEFT$5<0x5e>EXPLRIGHT$FOR<0x3980b67b>}'FIELDCDBLNOTI<0x7c>62varffffa48b<0x50>                                                                                                                                         NOT+i%KR&H95ec<0x3980b6cb>MKD$ELET-wCLOSEON<0x3b>NEXTO9XABS<0x5f>WRITE/!FNoLOGgSGNGETjMKI$'&NEXT%&<0x45>&H3b83<0x3b>QTHEN<0x3980b6f1>IMP<0x3980b6f3>6tCVL1JSUBCDBL<0x7c>K<0x3980b6fe>LSETZ/WHILE.|SCREEN)2.27035e+28GET<CLNGyRIGHT$CALL<0x5e>L1^WHILE<0x45>EkEXP(varfffffd94P?GSTRING$LSET &^ASC<0x7e>&Hb03d<0x5f><0x7d>*7WHILEDATAVlabel683cINPUTFOR/<0x3980b73d>O0FIELDXIFp0GOTO$CLNG<0xca,0x00>NOT"ß9!3╫â.ç╨2╛δ\AJÉ┐∞mO    P)° C┬π`"~<0x3980b776>COSCINT<0x46>CVL7G<CINT
  30. -\label0c95%C<0x3980b787>142868480<0x56>z<0x3980b7c4>?HCVS@$HCDBLINPUT<0x3980b7cd>!W<0x3980b7d0>13Q5GL<0x62>CVI7v3.24645e-315CVDABS1E<F>                                                                                                 &H55f3-ANDCDBLEXP<0x3980b829>73LSET0<0x3980b82e>EXP5$$h<0x3980b836>LOF<0x3980b838>7LSETCDBLATNCVS`);ABSCVD@EXP <0x3980b846>!<0x3980b848>ASC"  _Fx<@╤àST
  31. c ╤¥,n1r≡╫Yö¿D¿îèïΣ CP₧H¬1a⌠╣ƒüó╔t╥ô6í9rƒ≈∙τÄ0╠πl■├GHΓ1╚                                                                                                                                                 0<0x3980b8d3>OR{<0x7f><0x3b>FN34COSCDBL<0x20>+RNDGOTO?TcSGNTHENs0&<FIX<0x3980b8ed>P                                       FIELDiRSET#<0x5c>COSELSE                                                                                                                                                                      )aCOMMONJ="Ç1~@æ+a9oεΘ,!T"ATNFIX
  32. 4\*@GOTO:X8<0x46>"Æt╤QT╣╘;πΘâcüP╣'≤YJhAÜÉ@R5∙p¡hå▄ñI▌╬à¬fïσ$ÄD)ΩK«¿"<0x72,0x00>&yvORLOGINPUTCVLgGLEFT$INKEY$                                                                                                                                                                  21590 ,c><0x4b>\jWRITEWv<0x53>_N@'CVIAREA<0x49><0x50>cmANDLOCAREA1<0x4e><0x3980ba1d>3S<0x51>4^SGN"A≤]Aå╧xñ≥y╤Hù¬Oô>URR¥M6    ╙ibU½ç$CÇSsΩ└8                                                          <0x4d>9AREACVSMODREMÆÉ≡
  33. Q7yTEXP                                                                                                                                         <0x62><0x4b><0x4a><0x3980bac5>EOF<0x57>T~LOFFORZQWEND<0x56>^]bUINKEY$<0x7e>IMP{<0x58>OR0.6160473974149574>ELSEIFSQRxj<0x51>uMKD$SIN~3,H<0x3980baf1>COMMONCVDINPUTSQR21137ATN<0x4d>THEN8BEXPlGOSUB2vIMPLEN?%<0x55>CLOSEzWENDtEXP<0x3980bb0f>MKS$[VQ<LEN61<0x61>FNONCHR$a<0x57><0x56>MKL$ASCSTATIC0ABS                                                                                                                                                                                                                                             <0x3980bb52>PLOCXOR;<0x3980bb57><0x3980bb58>FN5f'm6MKD$<0x3980bb62>|FORGELSEOPEN
  34. MKI$*SQRINTFIXORCALLsOPENJPWRITELETMOD7NEXTMID$IF87x<0x3980bb86><0x46><0x59>ELSEIFAND<0x3980bb8b>
  35. ^AREAULSETNrLOF[%AREA <0x3980bb9c>3MKS$({CHR$
  36. CDBL\<0x4e>FIELDaOCT$orSSTRING$2FOR'\eABSta_k%]CDBL<0x3980bbbb>x>~<0x53><0x56>Xh@cSTR$ 78LETvarffffc8ea<0x4b>WHILEEXPJLEN+/CDBL)&H900                                                                 <0x3980bc12>2COMMONvarffff9233,FIX#\SQRRND^Mh~Dp<0x5c><0x3980bc25><0x58>7GETLc<0x59>COSGOTO6P.<0x26,0x00><0x3b>7tq                                                                         <0x60>8      65THEN<0x3980bca5>zB2RND<0x56><0x3980bcab>LOG3!/<0x3980bcb0>'CVSFFIELD3dlabel475eOR&H902cCALLCDBLpCLNG<0x3980bcc8><0x62><0xa2,0x00>svar23d6cGOSUBQORCLOSE<0x46>=7MKD$var7c80FIELDEXPO148sTANhEXPTHENATN4`,=<0x61>IINT<0x51>STRING$'INPUTH1<0x48>s.OPENy<0x4b>STATIC><\INKEY$<0x53>{V<0x3980bd07>FNCLNG<0x3980bd0a>W{ATN<0x4f>7g1EQVLOCREMl╡╘íĵ»ù#ì╒Iôα═¬┴┤j░ifú∙└9└U█▓`₧û:πLuN&╕φ
  37.                                                                                                                                                                                                                                                           INKEY$|THENSGNSTR$<0x3980bd77>,<0x4f>9READ[4^READNEXT\TOD+FRELSEIFf<0x5d>LOG<0x61>$i6# <0x5b><0x4a>>ABSRSETINTMcX<0x5f>IFPRINT<0x5e>~3047244497R/`$<0x5a>FLOGyGOTO<0x3980bdaf>p<0x60><0x48>PLOCASC&Hc6cd>r<0x3980bdbd>ELSEIF<0x4f>SGNREADgTANq<0x5d>ON<0x3980bdc7>:FNvarffffbcf65$<0x62>=GOSUB.G.<0x52>PANDSTR$CVI<0x3980bdda>Tf&d9varfffffbde7M<0x52><0x4c>^INPUTREMÅ┌è-up╗≡    è$αß│ì'>±î█Γ4_é═ó£PÄ3╩π╟cÇ╗K┬▓@ÿd▐ösÿQïφ
  38.                                                                                                                                                                                                                                       -INKEY$6@<0x4c>7M8INPUT<0x3980be5b><v8<0x5f>COS2 <0x61>
  39. n<0x53>REM╬6g╕½g@óS<╓÷╩aô
  40.                                                                                                                                                                                                                                            MKD$OPENTO7TAN>^-)A\]<0x58>FIELDKABS<0x56>DATALENRINKEY$FIELD<0x20>
  41. ON>\<0x58>INKEY$-1.72845e-314{Rj61.68738e-314<0x45><0x4b><0x3980bee2>SINpWENDE<0x3980bee7>><0x7c>XORRIGHT$<0x3980beec> <<0x3980beef>}/^<0x3980bef3>ISGNLSETlabel3184<0x53>XORuEXPCVD                                                                                     POPEN
  42. CINTEOFCHR$<0x3980bf38><0x3980bf39>CINT|var261fv<0x50><0x7d>SPACE$THEN<0x51><0x5e>FNSIN{<0x5e>VALNEXTGOSUB<0x7e>X<0xb7,0x00>CALL<label0108CHWEND<0x51><0x47>WRITEgGOTO@LET
  43. 5GOSUBA+CLNG4{
  44. 2240T~LETBx<0x5d>{2\WHILECOMMONMKI$SQR^<0x3980bf7f><0x60><0x62><0x3980bf82><0x54>8MKL$<0x3980bf86> 8<0x20>QCALL <0x3980bf8d>ASCECVS78RCDBL<0x3980bf95>DATA8KIFDCVS&MLEFT$@FIXRETURNdCOS1EOF2.47161e-15c<0x46>CVS CCINT
  45. <0x3980bfb6>brCINTCVSCLOSE0FN,<0x3980bfbf>X@I&H1932I@JPC'var113dECOMMON<0x50>h0R<0x3980bfd7>DATA,IFIXUSING<0x48><0x48>FOR
  46.  >I9FIX<0x49>0                     "aIAôèDA
  47. <0x55><0x3980c01d>CLNG<0x61>CCOMMONvar0f143x<0x3980c027>COSFIELD"G╠vöH╖ΓEì?~£Kæ@K"@CINT<0x3980c03f>!2LOG"╠Öm▐╠┘╡g┼▒Bë~uα╓êLªNƒ                                                                                                          CLOSE*LSETlabel5765&UCVL<0x55>+<0x58>CVDb168.441/ZASCMINPUT1037<0x57>lFNEXPt)5ELSEIF<0x5b>qREM╚╧-æ|ñ0LP,τ▓5é╡ ╔RàK¢r-
  48. 4FIX52998Bg5RNDSIN<<0x57><0x5d>MKS$<0x47>BCVDELSEIF98<0x5a>labelffffe82d<0x4a>CINTCDBL<0x60>v<0x45>TAN<0x3980c0f9><READ?<0x62><0x3980c0fe>WRITEFIXCVL<0x3980c106>^<0x55>3MKL$M<0x4d><0x49>T
  49. t<0x52>I<0x3980c113><0x49>]                                                                <0x5d>STRING$<0x61>8labelffffe28dV<0x5a>yaNEXT<0x47>^{<0x3980c151>IF4Sl8}6LINE|K|VWvarfffffa41EXP<0x3980c163>1{<0x55>CHR$ELSEIF<0x3980c169>CINTqMID$GOSUB2J<0x48> EXPATN:E<0x3980c176>3.49846e-33ELSEIFuJa<0x46>4labelffffdda9<0x61>Ylabelffffe225LOC4W<0x3980c18d>pIFLETc1ELSEIFw<0x50>var227e<0x55>@CVD<0x3980c19c>USING<0x46>4var1e29!CDBLQJ !<0x53>}EXPXEXPcI:1<0x20>`GOTOL8!MKI$N&Hf404USINGtEA<0x3980c1c1>avN-<0x54>4.28557e-234FNXi4EXPINPUTN2X)P                                                                                      IMPU~EQVyCOS02J(AAREAIF0/.q<0x5b>o2PRINTiRINTofJ                                                                                                                   <0x52>ggEXP<0x3980c266>|5dR|26708ABS<0x3980c271>J_FNO715498218Q<0x60>hvar0541<0x3980c281>0WFOR*@<0x57>H8aON>IF<0x3980c28e><0x3980c28f>AND80e&<0x61>AREAmuI`=Y<0x4d>9<0x3980c29f><0x5f>GOTOJ<0x20>I@OPENAREAFIXpMKI$FRIGHT$BLOFMKI$B1MODCOSELSEIFPUTEXP                                                                                                    CINT<0x3980c2e3>PUTCVD(zELSEIF:VASCLOG<0x3980c2ed>3;CALLRIGHT$3QzABSMID$<0x4d>ON:9223P<0x3980c2fe>=SIN\=p<0x51>H<0x5b><0x4e>^PSQRoNZUSTR$<0x3980c310>CVS<0x54>ONvarffffb07e<0x3980c317>varffff91b5<0x52><0x3980c31c>REM╝≤JW ⁿ║hÜV:Σo
  50.  ₧pè,¢£·1`ª£▒QΣ╒ÑMD ôK▐.ê≡WCLZ£N°╘±z{ë
  51.                                                                                                          <0x3980c392>CVD,WENDF<0x58>;)TAN+[@ k<0x3980c3a0>WENDlVLSETlabelffffe1160FRIGHT$<0x45>COS>LOC<0x3980c3af>wFORMODN6]SGN-K1KLEFT$<0x60>LFMKI$LEFT$SPACE$RSET97}READCOS<ASC,SINvarfffff0aaaIMPg&GOTOGOTORND@\<0x3980c3d8><0x3980c3d9>]<0x3980c3db>O@490811823U
  52. <0x59>,.CVI6F8CLOSEOPENELSEIF<0x4e>NABSFORv<0x5c>@cdONK4<0x50><0x3980c3fc>2N<0x3980c3ff>M.1LEN{gONAND<0x5f>>J<0x3980c40b>IMPCDBL<0x3980c40e>3~8hCHR$<0x56>CVIOR<0x56>LINEPUT,AtFIELD6/y<0x58><0x3980c422>!L6IFFIXFIXREAD61]-2.86538e-09CVDJz<0x5c>A7gLEFT$=u<0x4f>EXPD<<0x3980c440>LENIMP:$z+6.69746e+23                                                        *TAN<J@<0x62>\5 MID$var2b43PMKL$g<0x46><0x3980c493>_lOR<0x3980c497>`><0x2c,0x00>r<0x3980c49d><0x48>label70e6FIELD$|USING<0x3980c4a6>6<0x51>LET@STR$w                                                                            READ"º╥
  53. tÑç-m:°èφ╪2└k
  54. V    ╓V╡8hä~                                                                                                                                                                                                <0x7d>1EXPWRITE<0x7d>PUTevar10b9<0x5e><0x7f>45EXPCVS)ASC&<0x54><0x4b>FORvar3f02SGN&FORd'CLOGvar6926NOTEXPGOSUB4NOT@17_<0x77,0x00>wB<0x3980c562>READ/3LABS6<0x3980c569>B133ELSEqELSEIF<0x7d>9PVAL<0x48>%<0x4f>
  55. MCOSK0{x=9VLSETL8+<0x3980c589>S&H28aaKTOh<0x3980c591>GHCOS0CVSEOF:<0x62>ASC`
  56. SGN<0x3980c5a6>@                                                                                                LEFT$
  57. 7ASC<0x5b>eFCVDT+]<0x56><0x62>w<0x45>GET5<0x60>q<0x48><0x3b><0x5f>varffffbae8ESPACE$3!MOD<0x4a>(EXP@GET)E<0x3980c5fb><0x50>!SMOD1SQRFIX<0x4c>@0ASCLOCLOG-5.70112e+28|fEOF1ABSA1SIN'1ASC<0x4c><0x60>&i#DATACALLJE+#EAND<0x3980c626>QINKEY$LOF<0x20>ON'ABSFONMKI$NFIELDCVS$<0x7e>3583686356THEN!h+STATICE^\CDBL2IUSING3LOF<0x5c><0x61>var1368FIX"\r-Ye5°G`Å|dôK2╢¢SL╗$(`╚_FÑ
  58. ü!#v┬ò-└à                                 AND<0x3980c6b3>CINT<0x47>#\<0x45>,INTFNMKD$LSET<COSCDBL@<0x3980c6c2>*$:<0x4c>THH<0x54>FIX#3a8<0x49>YAREACOS!&H89b2CVS`&H2af2FIX"║SnL√
  59. ₧/7<üÿ└;Ç?∙╨╟ÅÖÅBZΘΓ÷l6T Qùb≤ä┬╘d    =%i╞÷
  60. LSETtFNCLNGH/<0x57>                                                                                                                                                                TNORLSET'<0x3980c757>1HSGN!%<0x17,0x00>NLWMKD$ABSUSING<0x7d>   TOCOSY GLOFLEN6LOCMKI$LOC<0x7c>)labelffffae79
  61. LOF5u<0x3980c7a6>9<0x3980c7a8>TORSTRING$U7<0x3980c7b0>LSETI|<0x48>H<0x3980c7b6> AFNj1LET<INTNOT2FND4IFOR2ad]CVI<0x3980c7cb>MKL$F<<0x48>FIELD1297>ilabelffffcad4Se<0x3980c7db>IMPPUTUSINGsCVLV<0x46><0x46>MKD$CVL41051'CVS=`<0x3980c7ed>INTTAN7\ULET4MKS$gw<0x4c>@40*rU<0x45>|PRINTL<0x55>S<0x56><0x3980c806><0x55>t<0x20>ORC`ga<0x54><0x53><0x3980c811>\S><0x45>PUTASC5CVIx*GOTO7IMPREM▒
  62.                                                                          ]RNDZ?<0x3980c856>MODRETURNTAN<0x7c>J<0x3980c85c>LETXGET*COMMONCLNG3/MKL$CVDFNNMOD<0x20>REM@#╗uLYâX7ÿö▓Æδ¼pw▓]21P\%Γ6╨*á
  63.                                                                                                            sM><0x4a>MKI$FGOTOLEN2<0x53>STATICM$&<0x58>OPEN~<0x45>labelfffff5acHwVAL
  64. LETRETURN:LSQRdeREMåkI,éTñºzπibbα°|≥╛@
  65. B~{INPUTLINE<0x7e>j6:<0x4b>eREAD+6
  66. R><0x46>CVS[ELSEIF9<0x3980c90e>COS2.12514e-31rB<0x3980c917>'ELSE5<sABS*^7varffffe825ka5<0x20>aGOTOASC/MKD$^CLNG^O<0x3980c931>`FN 3LOCAREAvar46021CALLRETURN1<0x7c>=\>.&htlabelffffcc84V<0x7e>SIN+|\00WRITEtWRITE<0x5d><0x4c>ABSaq<CVLCALL#|ABS*XaI56REMFádÆ┌╥0φu▓M/╦SO╞└S101û`╤╢$ß╨ê■2ÿê·¿√─8Åâà┴í╘li$╝Σ3N
  67.                                                                                                                                                                                      GOSUBELSEIFTO <IF<0x3b>~<0x5a>&H24a8p8&H89b7W<0x3980c9e4><0x50>3}FORL4NEXT6UASC<0x47>aRETURNCLOSE=<0xbf,0x00><0x4b>f^MKL$<0x55>CDBLt&H9250_UAREM
  68. EOFELSESGNCPUTGOTOTHlabel1846e<0x46>AND9+LOFi<0x3980ca17>MKS$8ELSEIFNELSEIF<0x54>7IMP(<0x4b>FIXEXPz%_STRING$@CDBL<0x5f><0x55>UV<<0x4a><0x55>LOFANDLENTANd<0x4d>NOTREM0Çh5ûу]ô╓▌┤_≈]░/9∞ÖX≤îAéûQÆäe█5rDä±h∙ΩJk∩±ò%┴vΦÉ öp[û▀65$.ÇjrG┼▄6¬b¼Θâ.ùì∙P"}xVK`
  69.                       varfffff17dlabelffff8982mTOE6<0x59,0x00>J<0x3980cacf>DEFSTR%OR<0x56><0x48>8CINT IF<0x5a>JLPOSkJ3.56575e-14w'Q04GO<0x3980caec><0x61>COMMON4<0x49><0x59,0x00>0@gxASCVALdSQRTO<0x4a><0x48>kv<0x3980cb00>LET<0x54>ELSEIFFH3bMKD$<0x3980cb09>ATNAREAn<0x59,0x00>XGOSUB<0x7d>REM╠πVσⁿ┬G
  70.                                                                                                     \SPACE$CALL*TO'0<0x3980cb59>FIX.<0x3980cb5c>TANNtW1038732569LSETRINT^-2.62052e-31FN+j4vW<0x45>ulabel7027CDBL<0x3b>RGOTOEOFRND<0x54>SGNASC0dFIX<0x49>RIGHT$XrGET]<0x4f,0x00>5433YRSETMKI$H<0x4e>SPACE$                                                                                                                                                _SGN<0x5d>/881.SGNAND<0x5e>w1.87118e-09Q<0x5b>ABSFORkQ" ßP╥"
  71. FE<0x3980cbf2>SINPUTRNDREM½V`|╓½S─Æ,╕û ²·╤ êZjW$║≥&,;èoƒτ.Pq{t£è])çf█L╤£ñpú63ùMd»>d⌐f⌠┬LH8┬íRqö╚Y]Jî\Æ$╔&É
  72. <y
  73. FIXGETCHR$                                                                        P 1CDBL533920#<0x3980cc9c><0x47>ELSE2f<0x4c><0x20>varffffc940<0x3980cca6>H<0x3980cca8>LEFT$@Z0#LSETCVSEOF0 -8.74568e-34                                                     j<<0x51>STRING$3'DATA9?s.l<0x52>CDBL<0x49>1$NLEFT$3PATN                                                                                                                                                  #ECINT39LOFD<0x3980cd29>FN'IGET,aB4'P93LEFT$ STRING$xRNDABSFRETURN"]óñë
  74. <0x3980cd44>H8K                                                                 X NEXT<0x46>84<0x3980cd78>12594$COMMON<0x5f>#M A@"0    Aâ6|°$ΓD├ìXà╘@π╦╖Aè╘Φ3(BD¢ä                                                                                                                         MID$Mlabel2d71OREQVJRNDELSEIFWLETDINKEY$0Q*GOSUBNEXT1FORHJ*NEXT<0x4b>SIN+J9LlLINE<p6PRINT<0x4b>EOF8.26603e-315*0EXPCVS0STATICH<0x5f> Clabel43088RETURN<0x60>AFORCVD!]ASC<0x48>USINGqE#6)[CINT<0x51><0x52>yZEOF/7LOG<0x4c>NEXTrCLNGh<0x52>4216<@ZIMPBLINEEXP$ <0x54><0x3980ce3c>J-u<0x51>dK%<0x54>T]]                                                                                                                                                                                                                            XJVALGOSUB<0x50>](GETfABS[7*NOT<0x5c>OZ                       $2\GOTO3.14558e-17CDBLa<0x5e><0x49>5384080151<0x59>dGETWEND<0x3980cec9>MKL$K.<0x45>^<0x5e>hPUTTOCDBL<0x50>varffff81a1MOD1208576278<0x5f>}?<0x7d><0x3980cee2>3$<0x3980cee5>xSIN<0x50>Nu5%INTJ<0x3980ceef><0x48>MOD`CDBLMx%<0x3980cef7>CDBL9DATA33P@<0x4d>PRi<0x3980cf03>dIFLOCG22021TO]MKI$<0x51>d@|GOSUBIMP                                                                                                                                        0pgAREAa<0x3980cf47>]<0x45><0x3980cf4a>$,6f^15!TYK<0x4b><0x61>CHR$LINEGOTO<0x3980cf5b>RETURNSTRING$e`<0x3980cf60>MKS$DABSq-0.00017462.MID$GET<0x5a>GOSUB$LOC<0x3980cf71><0x56>MID$XOR4YMKL$1M<0x4e>MKD$FORLI<0x4d>%\<0x3980cf82>RNDDATATAN8MID$?LOC))DATADATAfCOMMON<0x3980cf90>N4 QD<0x3980cf96>EXIMPLSET231EXPfM!COSIFCOMMON"b+BΣó@ô1` üif≡iÖ╙2╤╒╥M⌐U(Rjº▓v╙Ñ#iTO╗ë┼DÉ0 ΩESf┘mg¼IZßZ2à─íu~æäó¡ë─M⌠à╥G╝X£æ╤i                                                                                         <RIGHT$gLINE>ATNMID$45853<0x61>TO,SGNANDDATAtAREA0<0x3980d045><0x3980d046>CINT@MKS$M<0x20><0x45>mH41)mg<0x61>ATN5LOCSTR$BmCVD4<0x3b>SQRECOSnJMID$6TOREADSGNWRITEDATAAREAINPUT<0x4a>TANMKD$fS▄eÇ4╛ ╘╦┴Mv@εN∞ä$g~.╙ÆfBéI
  75. ╪$¥e aûΣ@9ΦA" ÿKO╓8B1è    Θ84(╩öP«înV%)BI6F┘@E'1└2σÑ5]╦G»[√nU3'@! ƒ▀v╖6òêp!I
  76. B"á╫îÉ                                                                                                                                                                     <0x3980d0a2>Tlabel3b00AREA<0x51>A<0x48>4CDBL0GEXP&MKL$CLNGCVL<0x52>yMKI$562498B<0x3980d0bd>l4qs<0x7d>MID$<0x3980d0c4>NEXTWEND4VALY
  77. SINLOCFIELDREAD<0x4c>8<0x4a><0x60>:WEND<0x59><0x49>;<0x4d><0x46><0x54>CALLE<0x48>*4UVSTRING$THENTCDBLL<0x20><0x45>INKEY$<0x5a>?<0x7d>F<0x61>)Z<0x55>^E<0x3980d0fa>1<0x3980d0fc>RETURNE0<0x5d>SGNF<0x4c>=-IFLEFT$R7LSET<0x45>MKL$'aPUTuL<0x3980d112>4TAN=e_CALL-W<0x47>+CHR$<0x5a>/CDBL2-61116<0x3980d126>LEFT$98var2f57MID$D1RND31GOSUBFOR{3<0x51>MID$<0x4e>2ASCOPENQMKS$
  78. ><0x20>#JMKD$'AND3$4ABSMCALLr4j6SINwGOSUB3.57247e-315<0x51>ON<0x55>9LSETMKI$1026986612Q<0x3980d169>
  79.