home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 10 / CDE10.mdf / f117a / breficon.pic (.txt) < prev    next >
AmigaBASIC Source Code  |  1991-07-22  |  14KB  |  143 lines
  1.                                                                                                                                                                                                                                                              <0x1baf692>(d<0x4f>10483175062<0x50>MKI$!1.12307e-314LINE<y<0x1baf6ab> XFIELD  ?<0x1baf6e3>22792                                                                                                                                                                                                   CLOSE1ABr^<0x61><0x4f><0x53>CLOSEEOFAREA=1008763376
  2. ELSE<0x1baf73c>INKEY$%G&
  3. ITTHENLINE0"D°A óÅ╩ë  ╨î╣ä⌐ìFâ■    σO'[áx≡┴─H%Ff(├┴H▄BRáτmE LxP!üÜk6ⁿ≡J|0Bê@!┬?uδÄ4Pro─~2 q0≥úK;/ Φ    ⌐'<≡@░$ß┼â₧}εx
  4.     é$J @Φx0"bCDBL{OR'GOSUB`bRIGHT$<0x1baf7d5><0x1baf7d6>2~<0x7e>)COSABSP                                                                                      4iRMKD$CVSGET+XSGNh8Y<0x20>CDBLJ<0x1baf821>i!=`<0x3b>Gnvar3d9043275<0x1baf830>ASC[CALL'6PRINTCLOSE/6REM┴╛&,ÿ╧çΣ▒G ü╟wL`xΣQQQ
  5.                   J<0x1baf893>MKS$LSETABS1.45465e-31401989996672kM|pCLNGkp<0x60><0x51><0x1baf8af>labelffffb3010R<0x1baf8b5><0x1baf8b6>PpASC<0x1baf8ba>2@ <0x60>Bz'<0x46>CVL<0x1baf8c4>&IF`A<0x1baf8c9>4\ABSASCr1CINTABSELSEIF ELSE&He204!V0CVLH#YRETURNRIGHT$]f}<0x48>TBx<0x1baf8e8>EXP<0x1baf8ea><0x5e>xEXP`
  6. CVL<0x1baf8f3>tCLNG                                                                                                                                                                                                                                    ASCLETvar66b6wHE30976                                                                                                         1<0x60>@]MOD-d<0x53>label1d20
  7. <0x20>ABS{+<0x1baf972>A<0x1baf974>'P<0x60>BCLOSEz<0x60>LOCG1.10035e-315GETDFNWENDTHENCLNG<0x1baf98d>1819279645vdzCVL<0x1baf997>9l^@COSCDBL=EXPASC5.73435e+35m<0x1baf9a7> :LOG<0x1baf9ab>60<0x79,0xfffffffb>ATNONI@ASC<0x1baf9b5>5|RETURNA<0x1baf9ba>Bf^ST%E<0x1baf9c2>CVLsS,Rlabelffff8803ELSE@<0x54>EXPT<0x61>8<0x20>TOH<0x1baf9d9>                                                                                                                                       1709369440var6bbaSQRTHENvar1899COSQi7<0x4d>9mLEN<0x1bafa27><0x58>t@LETz5<0x56><0x47>0CVI9PCLNG<0x20>7LEFT$PMKS$2081733255fRvar6552{<0x1bafa45>9MID$Rvarffff927a<0x50>ASC<0x1bafa4e>6VALpASCD8l<0x60>NEXT<0x1bafa58>INKEY$CDBL:j2092974377mC<0x7d><0x5b>CLOSE384083073<0x1bafa6c>w30786<0x1bafa71><0x1bafa72>MODhlabel0a84y@RETURN<0x1bafa7b><0x4a>54BREMLó╚ ïHΓÇöd±@Äû@BäZå-$╤ëφu≡σQµçª}╕¡Θ¡ëf╙Γ▒
  8.                                                                                                                                                 COMMON^<0x56>var7ceduPLETytpELSEIF<0x1bafaef>TO<0x61>THEN
  9. <0x1bafaf4>4<0x7c>IFDLOCx<0x1bafafb>7-5.79755e-315>9.63496e-315LSET<0x1bafb12>z{^
  10. <0x1bafb17>Z4LIF<0x1bafb1c>'SGN<0x1bafb1f><0x47>1.56056e-315varffffa51aT<0x60><0x61>3.33934e-15<0x1bafb35>nhFIELDE<0x49>25840label0b46<0x55>USINGGIN00CHR$!klabel2009%4297#ATN)<0x9b,0x00>GOSUB~LSET<0x55>XORCVIvar4120CDBLlabelffffc063label3502IF
  11. /D@<0x1bafb6d>COMMON<0x1bafb6f><0x1bafb70>}X&196688243INT                                                                  WENDIMP3REMI
  12. EQV<0x1bafbb9>8<0x50> LINEUSING<0x5a>T@LETCINTCVD<0x1bafbc5>ELSEIF<0x1bafbc7>N8<0x60>                                                                             TABSD13<0x58><0x61><0x61>SQRINKEY$<0x45>-Ue<0x10,0x00>                                                                                                                                                                                                                           zsAREA<0x61>BMKI$-5.63056e+14EXPvar0d70`RREM╔é%≤ü\αzÇâ⌐α0Ab(+ÆHBε
  13. 8FNYREADAwSTR$
  14.  SGNXORSTRING$<0x57>&Hec02-hASC$HLOC<0x1bafc89>CINT(AREA $1COMMONA8<0x60>%FOR8<0x49>CONEQVCLOSE1,D3INPUTASCDRND
  15. TOvarffffe077<0x1bafcab>STR$AREAEQV8<0x61><0x1bafcb1>"┴₧α─&fv    πò
  16. CLOSE <0x62>zJs9<0x1bafcc8>t&H56d2OPEN<0x5e>!ABSMKI$
  17. <0x1bafcd3><0x1bafcd4>DATA
  18. <0x55>kFND46339yk121aEOFlabelfffff802SPACE$57600%QLINE<0x4b>MKS$pABS$X`labelffffb09a<0x56>WEND<0x52>LOGREM√╪Dδy═
  19. <0x1bafd07>COMMONOPEN<0x1bafd0a>$PRINTyAREA#SGNRETURNELSEIF<0x1bafd15>CVDCVDTfATNCALL<0x1bafd1c>5@RIGHT$MID$T$15x                                                        30362 2`@;,COS$<0x1bafd5b>.pASC$ var0912xCOMMONWHILE<0x60>B79ATN<0x1bafd6d>P<0x1bafd6f>>COMMON^a9%
  20. ELSEIFGET<0x52>RNDBEDATADvar0151ELSEIFxCINT
  21. <M<0x4c>PRINT2N|LOF4INT'COSNtbfINPUT
  22. 855744700STRING$lANDCVC<0x50>-50.0685^REM£j$└╝╪▒oΘ┴>é╝ :É'=╪▒$à(═"▒ê+⌠H^4╠C(ôÆ28╚kP` ░≥ª▄└#$êXbüéδ
  23. <0x1bafdf5>=<0x50>1M<0x5e>CLNG LEND@EMODp<0x1bafe03>IiELSEIFvar1770ASC<0x3b>,@868label108f
  24.                                            ELSEIFFIELD$ELSEIFh604(1.24595e-314
  25. @ rSTR$EXP~ANDLOC$iSTRING$b` w<0x4c>ABS$ L                                                                                                                                                                  (0j.LSET2LEFT$`<0x62><0x4c>6LOC
  26. LOGAATNy<0x60>:<0x1bafeb7>ATN24583rJMDATA<0x1bafec0>PABSIMP<0x4c>)?XINKEY$>LENYINTO<<0x4f>E<0x4f>;tABS<0x48>c<351418ABSLET-3.86644e-3482<0x1bafee8>varffff876e<0x99,0x00><0x4d> 33034dON57536<0x99,0x00>INKEY$QB<0x1baff01>5.99548e-29<0x20>I8<0x5c>MKI$180<0x99,0x00>R41labelffffb72c<0x52>R10$<0x62>MID$ELSEpABS<0x1baff26>CVD#<0x20>AREAEQVMKD$EXP<0x1baff2e>ADPOPENG<0x1baff34>8<0x5a>$var3300      <0x61>THENREMvåê
  27. ÿ"'êÉO\½¢╨ä&8ß
  28. READ"≥    δü2ò╬6⌐U<jmS¢┌┌N┼æ=τy ≥╘ü:tαèà8!&ëH0ó]┴▄f7ï╫ávBHi°ÇüóêÇ8CI╤c    BY
  29. AREA]oCHR$var4d5e@labelfffffd92EXPPMKD$1label2548<0x60>D807$'+I  Y                                             <0x1bb0072>$ 9LEFT$<0x1bb0077>&+
  30. 0<0x48>2.07436e-314I'/<0x61>CINTREMσ ╖┐∙"╔ôδ
  31. THEN"└P;└&<í    L`Γ╤¼ε&Æ╣₧W▌í¼k]δw#^1╩∩{π╩Ü ╖╚₧⌡Ωë₧t(I⌡µ[_√«a┼3 E,B%t░∙A╚Xê┴Ö`Zyê└╚ ┘A<└ÆÇ0 ╢!8hαÇX                                                                                        !*i<0x1bb0135>label2810\z4053406591
  32. <0x1bb0141>/<0x55>LEFT$<0x1bb0145>X^<0x56><0x5e>D'<0x4e>4LOC1<0x4d><0x50> 2INT<0x1bb0155>@${NEXT_V                  MKI$3W*<0x7f><0x1bb0197>DTHEN9
  33. <0x49><0x55>CHR$&0PRINT)<0x55>&6STRING$ON50417.8-SPACE$COSS{<0x5e>]<0x53><0x1bb01ba>TAN\WEND8WRITE5ELSE7COSCVSA+<0x5a>var3b5c<0x60>WEND/<0x45>LOF|)LOCCOMMONEIF<0x61><0x1bb01d7>M<0x1bb01d9>DATA<0x1bb01db>+LOFB<0x1bb01df>9<0x1bb01e1>ELSEIFTOCVLABSD^cGOSUBzA`d56ABS4&Hc16fB@<0x1bb01f7>                                                                                                                                                                                                                ABSD8^label43fdR_#9
  34. R41105=RETURNELSEIFlabelffff80ab<0x48>                                                                                          <0x1bb0272>
  35. b<0x60>INPUTRSET17978FREMSá.QΘâ,ßâ?Pó╒ÉèuÅçY▀╚:╚╚J╨╒cÇ║K~b59]g┌ⁿÜ
  36. f{└eIO¡╒#┴╢· 5Ñ
  37.                                                                                                                           n<0x1bb02f3>RSET-9AREA50688=varffffc0015<0x1bb0305>4
  38. CVD(MKL$varffff9ca0<0x1bb030e>$<0x54>READ~GOTOA{I<0x46>CVS^&H1062ABS<0x1bb031e>p
  39. <0x1bb0321>,ANDCLOSE$8a<0x1bb0328>144
  40. ATN&H6106C&He2df<0x1bb0334>T7<0x1bb0337>., 1782070536FRE1<ELSEIFCLOSE`<0x1bb0349>REMyÇë    d╢üÇ⌐µ.É╕;TÇÇîe,Æ~⌡83V╣p-R⌐▄(ΘQÇÅ]Ç)
  41. [τ╓öbô»╣    _'√║
  42. SGNi609115@>#5COMMONMODEXPOABS2CVDRIGHT$VALpLENzzTHENMKL$<0x5e>9<0x50>2var77e8zI"▒[F\í▒ä£`R╥ε╡┐{ûHº8`êJα
  43. i@âⁿ"ELSEIFSWRITE<0x1bb03d6>CVL0(H7<0x1bb03dc>nGET8                                                                                                                                    6<0x1bb0413><0x1bb0414><0x7d>8'ELSEIF<0x1bb0419>2'0 @MKS$0HP <0x1bb0424>ASClabel0d620H<0x1bb042b> @l62624AMKL$CALL<0x1bb0436><0x1bb0437>XTABS<0x60>NOT36 },æ
  44. û@y╝H`    Mê·╘ΘⁿÇrgd%    ²╚TóÿöºÉ'q0'<0x4f>1048574620,<0x1bb044d><0x49>ELSEIFK>|<0x7c>FOR22528                                                                          >2<0x1bb0484>AREA<0x54>>MKI$<0x4f>ELSEIF?
  45.  2.80229e+10'"'99àj└ºM¢0) Γ╔'¿<uRÉü₧<y≡α╣sτ╨I
  46. ▄ q¿nHΩ╥┼½└ü[w≡Σ╤ôT─`Ñ{÷t@╨aq;é9αìD(ƒ                                                                                                                                                                                                                                  <0x1bb0512><0x4a>YfASCFORCOS\'<0x51>#INPUT4label0ca8;nX<0x5d>MKS$<0x4d>GET&HpRSQREXPC@(6t^ELSEIF<0x61>CVLLENCLNG&?,<0x50><0x4f>:LOCRMKS$P<0x45>COMMONCALLLOF<0x1bb0550><0x52>LOFMID$DATACALL<4.67318e-315zL9H9zMID$KIF1<0x7e,0x0c>LOCI 4<0x4e>LEFT$<FN5xREMhƒñBæ╓ó`ô"Dl╒'FHäTx
  47.                      ABSR=CHR$<0x57>&<0x1bb05c8>LOGNEXTSINGOSUB[<0x1bb05d2>ELSEIFTO<0x56>var24a4MID$T1928721815ZCALL4v<0x58>var1de0CHR$
  48. cz!62145<0x1bb05f4>2<0x62>CDBL8}8IMP<0x51><0x59>L<0x20>>ASC7label1fa0<0x46>CLNG<0x1bb0608>5.5398e+20(XABSvar022d53256<0x1bb0619>labelffffc823156USINGCVLo{<0x1bb0623>GOTOFIXELSE33.9566e+32<0x20>RIGHT$USINGABS CALL8p<0x52>!61952<0x1bb063f>8\@A<0x1bb0644>xVALd<0x52>varffffe48d5IK7<0x45><0x54>MID$K'<0x61>LSET2R><0x7d>AREA8N2=gABSlabel526dlabelffffe00fG<0xb0,0x00><0x20>0
  49. :RETURN<0x1bb0670>                                                                                                                    <0x62>LINE&D7h)X^FIELDMID$<0x54>Y5SPACE$IMPV\5<0x61>q<0x52>3.56407e+06labelffff99fcGET5aEXP7vGOSUBd<0x1bb06c8>'ASCvarffff8a8d<0x51>qB<0x1bb06d1>ASCCLNGxCLOSE<0x1bb06d6>EXP
  50. ^A<0x20>188<0x1bb06de><0x1bb06df>label41d9G<0x5e>IMID$%MOD
  51. 6256<0x50>FIELD<0x1bb06ef>7P
  52. CLNG!0A<0x1bb06f9><0x1bb06fa>61569#ASC8<0x62>0var1ee1<0x55>EQV<0x53>I<DATAABSH1.20479e-315ELSEIF$<0x51>NEXTCOSABS5(
  53. BUSINGv2USINGFIELDSTATICLENy:P<0x5e>y0<0x1bb0732>5<0x50>2164980295<0x1bb073a>OR                                                                                                                                                                                                                    labelfffffa11 :╓¼│╞Ö)¥p*╪â┘╓┤A┬ε⌐qO`pö╣Φ"╨     ^σΦ∩µåB&m An▓═ª┬WòNù╨4+╥H>aöæ¿vH÷#VK2yǼ»║'v▓y0∞pöx▄┴éN¼@^┘,┘ùΩΣ{{ⁿ╤f│hûLW╡àE█RZ1m√`╠2 KAO αñANΦ&░sM¼⌐á╔<└Ft<0x55>IABS40`<0x1bb0780>ASC
  54. 1RIGHT$<0x49>SLEFT$|<0x55>ANDMKI$LENJ<0x1bb078e>ON'LOFRIF<0x56>CHR$xiXW5.58608e+326.88304e-20]CLOSEELSEIF:bCOSSINLOFGET<0x1bb07ad><0x1bb07ae>z PUT<0x1bb07b2>label0514p
  55. label7534<0x56>var1d76ELSEIFXCLOSE<0x1bb07c2><0x62>~RETURNCLNGeCOSANDLOCFORL264765799<0x1bb07d6>9p<0x20>-jKBRETURN3.265e-35HSTRING$n~ABS<0x59>TANy62913Q)FIELD0CVL0+CVD^CLOSE@<0x1bb07fa>8`I%FORL2I<0x62>CALL<0x1bb0805>   <0x7c>:EXP<0x1bb0835><0x1bb0836>2021671570<0x5d>A
  56. 3Mxlabel30d8Y>ONAREA^@=<0x1bb084c>4INPUT{@Q&Hc9048?ELSEIF10<0x7f>0<0x51>AREA77(<0x1bb0861>DMKI$<0x1bb0864>:P<0x20>0A<0x54>LSET]ASC9 
  57.  <0x48>7XZm<0x55>e<0x1bb087b>$<0x1bb087d>RETURN<0x4b>GJ
  58. <0x48>ASC<0x57>O-.<0x1bb0889>
  59. <0x50>$INPUT87READ<0x1bb0891>20544cNEXTuABSASC<0x55>.tABSLOF<0x56>d<0x3b>WFNELSELENvarfffff56clabel7470CVIINPUT<0x1bb08ae>5TELSEIF6label1064ELSEIF6<0x1bb08b8>e0<0x52>COMMON#IFy@<0x1bb08c1>NELSEIF.;mMKD$o ABS },æ
  60. û@y╝H`    Mê·╘ΘⁿÇrgd%    ²╚TóÿöºÉ                                label1184
  61. 0COMMON<0x1bb0908>A4<0x58><0x20><0x1bb090d><0x1bb090e>H<0x62><0x1bb0911><0x48,0xfffffffb>CDBL!DMKI$<0x1bb091c>GOSUBCASC#L<0x50><0x1bb0923><0x1bb0924>4!<0x1bb0927>|pABS2.01012e-315<0x59>Iy FABSNOT)E?7<0x4b>XANDSPACE$ORLINEINPUT=ew                                                                  \v<0x57>3JqMID$CLOSE89LET<^";╪!)áâô╥
  62. '<0x7e>E{I;<0x5a>`0
  63. varffffc6e8<0x1bb09a9>/!RETURN9                                             Y/STRING$I<0x57>rd2.05288e-314Qsvarfffffb75+<0x1bb09f8>lsA<0x1bb09fc>MKS$@COMMONFAREAvar331c `1854021127<0x60><0x61>yAREA<0x1bb0a10>ASC"K /E┬áüVp
  64. 5<0x1bb0a20>CXRND<0x1bb0a24>5AND
  65. <0x1bb0a28><0x54>pCHR$&(ASC<0x1bb0a2f>HSTR$<0x4e>1.15019e-314
  66. 30052TAN<0x53>%&<I1ABS~3ELSEIF                                                                                                                                                                            +co<0x98,0x00>MKI$LTHEN<0x1bb0a8a>#<0x60>MID$+INT0LOF<0x4b>|HGOSUBDATAm<0x1bb0a98>Q
  67. 8<0x1bb0a9c>EQV<0x58>$ON<0x1bb0aa1>ELSEIF<0x61>bBKCOS2var6043MKL$3609912314<0x1bb0ab3>.ELSEIFIF<0x45>LEFT$$E<0x61>INPUT09GET<0x55>481938291'AND<0x51>varffffb865WRITEFN<0x60>OLOFELSEIFPvar2718"o┌
  68. <0x1bb0adf>~CINPUT\17679COMMONTUSINGATNATN<0x60><0x20>!<0x20>CLNGu<0x7e>29&Hd002*LASC<0x1bb0b07>524F`FIX<0x1bb0b0f>IF2LENp3523<0x58><0x57>                                                                                                                                                                                                                                            a'OR<0x51>Olabel4aa7(F}=$<0x7e>ANDeCINT6<0x51><0x1bb0b65>#h<0x4a>varffff9ad8-7.55979e+26<0x1bb0b71>MUCINTPU
  69. <0x7d>8<0x60>1270<0x5a>IRNDWOPEN<0x48>hq4pC<0x51>i+pCLOSEn"á&f∞ÜV∙@C6"XORx`<0x1bb0ba2>LEN1048707447B`CVS
  70. j'ABSRSET<0x1bb0bb3>0@`var0400ON<0x55>,u-%label2d01<0x1bb0bc5>MKD$Glabel107c<0x60>1GOSUBhCDBL[<0x1bb0bd1>p/<0x1bb0bd4>`CVLvar5880ATNRETURN<0x1bb0bde>8,var0747]<0x56>G)49IFVALLSET93<0xd0,0x00>EOFPR3<0x7d>3SIN,IMPASCI,<0xd0,0x00>NEXTFN&H8852<0x1bb0c04>BPvar0814GETNEXT<(B?LEN8[<0x7e>LOF!Hd@NEXT<0x1bb0c1a>RETURNEXPMODRETURNINKEY$<0x4d>                                                                                                                                                                <0x1bb0c52>TO-1.16302e+27RETURNe|CVI<0x61>ELSEIF<0x1bb0c61> v
  71. READ<0x62>DYSTATICAND<0x5c>)/B
  72. 8TAN<0x4d>PRINT45248<0x1bb0c77>(ABS9<0x7d>]
  73. gu<0x60>
  74. <0x1bb0c82>7RIGHT$COMMON<0x1bb0c86>LSET1P*CLNG<18ABSb
  75. ^<0x5b>0p<0x60>%sYCDBL <0x1bb0ca2>pLEN4!
  76. <0x1bb0caa>                                                                                                                                                                                                                                                            p1LSETH6tq<CVIe<0x7d> 9>CDBL'<~
  77. ABS5.68159e-315BCOSRIF<0x62>Zlabel34c8GOTO<0x1bb0d09>7<0x1bb0d0b>XAREA"*│ o╕¬φD┤*ªè└⌐                                                                                                                                                                                                   v8902<0x58>ASC60710887095556(GOTO40sO<0x57>Jp1SN7LSETh)+varfffff087
  78. -r6554791=0<0x1bb0d81>9IF<0x20>&H5180IFvarffffb89a<0x46>=MKS$w<0x1bb0d90> <0x1bb0d92>var094aELSEIF
  79. FATN`<0x1bb0d9b>AREAcATN"a╣éèXDB@║¥î╥( P╧z"CVS<0x4e><0x1bb0db9>LEFT$<0x1bb0dbb>-']Xx&H7c1fLOG@<0x4f>CVL7><0x60>CINTREMéD ╘ h
  80. O¬▓
  81. u-V<GET[V+GOTOU<0x1bb0de6>&133Q<0x1bb0deb>oDATA6cSGN8fCVSTANA@&H9c60e24334379040CDBL %ATNASCCDBLlabelffffee08ASC88<0x60><0x7e>@TO27392                                                                                                           label1053
  82. GOTO<0x55>{P<0x1bb0e5a>3SGN'%8h|CLNGCVSCOMMON6<0x57>MID$<0x4d>CINTH<0x1bb0e6b>AND
  83. <0x50>ELSEIF0'<0x1bb0e72>056713zTHENUdt6 '<0x1bb0e7f><0x1bb0e80>TO(8LM@Q7i<0x56>CDBLJELSEIFaONHE2WEND\GOSUBCOMMON)uFIXMKD$(@u2M
  84. 4CVIHylQ<0x4b>nAND             \@f/Zu<0x1bb0ee8>R-25494.2FLOF0CLNGZLOGYTAN$ON<0x1bb0efd>6O<0x62>kSINLOCfFACVL@EXP~<0x7d>b<0x1bb0f11>`MODIF0fLINE3EOFb$ ELSEIFI1ASC<0x1bb0f26>
  85. X/
  86. label3761]INT<0x52>BwQELSEIFKDJ:=^<0xe1,0x00>)ASCwAREA=S5<0x7e>p<0x62>)FN=TW,U<0x53>labelffffdd74*<0x3b><0x1bb0f54><0x50>ABS$AREAVALK21544397<0x1bb0f61>2087&54349WENDTHEN<0x1bb0f6c><0x1bb0f6d>CALL<0x1bb0f6f>CLOSE<0x53>LOAD0j&H232PAND24646CVD<0x5c>+var3a7eN1CHR$|<0x49><0x1bb0f8a>
  87. ABS<0x1bb0f8d>STR$7$*=INPUTFGET<0x1bb0f96><0x5b>+EMKL$\INKEY$<0x1bb0f9d><0x60>STATICON3
  88. <0x45>LSETDATA<0x57>INPUTMKI$$<0x1bb0faa>>Xlabel1244PFOROPEN1`0TOv<0x51><0x4c>rDATA
  89. <0x1bb0fbd>58&N                                                                                                                                    c<0x1bb0ff3>RIGHT$<0xb2,0xfffffffb><0x59>CINT<0x1bb0ff9>'18w<0x57>4MID$LEFT$<0x4c>@5MKL$JR3 <0x5b>RSETLOGLENM<0x48>G<0x55><0x1bb1012><0xb2,0xfffffffb>GOTOC<0x54>CLNG-ASCCLNGCaBEXPCLOSE<0x1bb1021>TLINE*vLINEREADNEXT%WHILEWHILE9TOcf<0x5e>^LOGOPEN*labelffffa405-<0xb2,0x00>
  90. j pVALINPUTlVTO<0x3b>labelffffd2e9ABSLEFT$+9~8<0x1bb1050>x<0x1bb1052>VALO8*7INPUT<0x5b>:%%
  91. FOR@<0x60><0x20>CLOSE8464(DCVLpCDBLC<0x1bb106d>
  92.  
  93. <0x60>ASCt 69=y<0xb2,0x00><0xb2,0x01>RIGHT$EOF5.09582e-315LSETlabel7af6LEFT$USINGMKL$MKI$O5.15154e-315FIELDFNFCOMMONUSING4labelffff8980<0x4e>                                                        9<0x58>LSET@A<0x4c><x^<0x5c>RIGHT$RSETSGN<0x4e>!<0x1bb10e1>CLOSELOFBUp7850cCLOSE>LENLSET&EFOR(RIGHT$ASCMKL$<0x1bb10fb><H7\MKS$IF'OBCHR$0.000857953ANDMKL$CLOSE1EXP1EXPp                                                                                                       AREACOS<0x1bb1144><0x5a><0x62>A<0x1bb1148><0x51><0x1bb1150>STRING$IF31908/IINKEY$r<0x4f>d<0x4b>FN#ATN7!bAREAf<0x4f>LINEIEXP<0x1bb116b>XCVLCLNGX1 labelffff9226MLOFDkCLOSE#DEOFABSDX"Eñh╤«Σ╪÷c╧=%OR╛lÖ%ƒ=&êφ43kº£@wΩ4▌SVó¥L2¼t⌐¿'ºV}ÇUj«^┴BK6╧Éε╫"'&Hc900COSSTR$h6/ATNWEND'DATA&<0x51>W~4<0x1bb11db>var6290(
  94.                                                                                                                      
  95. LINE3026024082f |f<0x61>f=SIN<0x46>ABSiMID$<0x61><0x45>ABSlcGET
  96.                                                                                                                                                            <0x7d>E<0x20>varffffdc59d
  97. oy|SGN<0x51>dCLNG0
  98. FIXCDBL<0x1bb1275>IFLSETELSEIFlabel0c51FOR&<0x4e><0x5d>tABStLENdMID$IQC
  99.  
  100. 0$<0x1bb128e><0x60>MKD$TW16711U<0x1bb1298>duP^Tt4<0x49><0x55>5.09061e+17k37040ASC
  101. <0x52>XqeABSABS\CINTRND<0x55>'`RJy<0x59>2labelffff8825e0varffffba1d<0x60>`253917465CHR$"XH[lx                                                                                                                                k%|STR$GOTOg=DATA^WO<0x1bb131d><0x1bb131e>CINTTOm!<0x45>GozERL<0x47>2.92351e-315YL<0x1bb1336>var2044QGOTOdUFN'D<0x54>=<0x1bb1343>'49pIQBDCDBL#$EOFLETtCLOSEI<0x1bb1354><I+TEEIMPFORRNDEa<0x1bb1360>
  102. GOSUB05<0x1bb1365>
  103. GOTO
  104. USINGANDeO<0x1bb136d>+<0x1bb136f>ATNINKEY$#<0x60>SIN
  105. ]<0x1bb1377><5NOTLEFT$<0x1bb137c>
  106. HABShPUTINKEY$AEXP<0x1bb1389>n5%ELSEIFX[<0x1bb1390>BIFELSEIFd !Z<0x61>C'CLNGCINTnCOMMON43904hREADM<0x1bb13a6>BWRITE<0x1bb13a9>TOy"╝⌡±ßówh\╡`Ye─Ö┴½EaΓ
  107. mIF^9FIELDFIELD&5<0x50>                                                                          9
  108. ABS4.05648e+31                                                                                                                                                                                                           Pj5eQ43820T<0x4f><0x4e><0x51>24.27005e+32Dz<0x4e>iLINECkSIN<0x1bb145d>COS<0x45>IMPvarffffb993<0x46>FRETURNj]1;QE~=<0x46>
  109. CDBL4aPUT8FIXRSETLEN{9^^<0x1bb147f>mg<0x57>4CVD`                 }GET'FIX^LOFMID$0AREA0FN="╜']î▒I┴m┘ABR%▄ß└╧τ╣ ≤╚OI)╒═è0╟π
  110. LEFT$WG<0x5a>wX<0x3b>1593242996
  111. ^H3INPUTGOTOSTRING$<0x7f>R>+SGNx.lIMPbCDBLlabelffffbbf5label5df7U
  112. THEN'Jj^If3EXPhOPENj<0x1bb1516>MID$<0x83,0xfffffffb>7.69009e-315ce&<0x49>
  113. <0x83,0x00>LOG<0x1bb152f>WHILET<0x4f>                                                                                                                                                                                                                                                 var5515<0x60>RND<0x4e>.6LETv<0x50>RETURNFN<0x20><0x50>var0748@ASC<0x1bb1576>s<0xf2,0xfffffffb>)CLNG3LOC;<0x5b><<0x5b>O<0x5b>e^I0HSINEW<0x53><0x5d><0xf2,0x00>RSET<0x7d>'<0x1bb1593>_M;^<0x1bb1598>
  114. IDSTRING$READ<0x5c><0x61>$kK
  115. nMODELSEIF%CLOSENEXT<0x49><0x1bb15b3>@^ABS#a
  116. p\<0xf2,0xfffffffb>1.60735e-15uRETURN*<0x1bb15c6>
  117. EOFvar5ee6<78*;1<0xf2,0x00><0x51>4038000801ovar7d21
  118. _<0x52>THEN>CHR$<0x45>ow'<0x59>Tvarfffffef4.CVS<0x1bb15ef>CVD^CVI)<0x50>CLNGXgGETCALL<0x4d>CLOSEDCOSINPUT<0x50><0x4a>166L-SHY<0x60>790.424<0x56><0x4d>FIXVVSTR$LINELENCDBLg<0x55>FN<0x59><0x4b>x<0x56>RNDCOMMON<0x7c><0x4c>CVSLSET3<0x4d>SIN RETURNGOTO69<0x4d>label2408A<0x5a>ABSeMKL$.TO%CVD~1<0x4e>79SINSIN<0x1bb1646>PRINTREM/    αFT32
  119.                                                                                                                                                                                                                                                 c"₧pc└pΣ"EQV"╘âfö<─»>v¿OΩ3F-ì±<╠ñûó;òAΓ&A%$H±H¼á∙ǼΓæ·╘Æ
  120. 4047711837LOFKEOFEQVACOS*A
  121. KMODELSEIF<0x1bb16d4><0x5a>STR$LSET%/If}zNEXT<0x4b>Y<0x56>THEN115hTO<0x1bb16e7>fSTRING$
  122. GOTOTROFF17a<0x1bb16f1>E5A62D<0x1bb16f8>/.<0x60>CLOSErORRND127H':<0x7f>EXPL<0x46>`S                                                                                                                                                                         e5<0x4b><0x59><0x4b>]<0x77,0x00>GOTOHCVDCOMMONJ1pLEFT$a5RSET
  123. /aCOS21.18951e+20 "¡4└F qüY2`ù┘ñ:
  124. ASC4ELSEIFh<0x1bb177a>2466334820<0x20>PRINT
  125. ^2236FORKDxQ@IK<0x1bb1792>COS_COS<0x20>GET5<0x20>';<0x59>IFIELDGOSUBLEFT$TOi<0x50>s^2LINE<0x1bb17ae>h<0x1bb17b0>2<0x1bb17b2><0x1bb17b3>2
  126. MKS$CDBL                                    THENIFORIABSLOCLETRSET<0x20>SGNA($<@MGOTOTBGOTO0%ELSEIF<0x1bb17f9><0x62><0x62>CDBL296984MKS$
  127. X1.09006e-314ABSZ7<0x60>ASC<0x1bb1813>h<0x20>LOG<0x1bb1817>(OPENZAJ9<0x1bb181e>IFEQV0x<0x45>K<0x1bb1825>9QATNVALRLSET[c<0x59>\@<0x56>3<0x4e>_:
  128. B<0x1bb1838>COMMON<0x48>,<0x1bb183c>^SfOREQVLEFT$HRNDiSPUTY<0x4c>CALLCVDUSINGb*q@?{ORFIXMID$LETLSETLET<0x4d>Tb:<0x7f>PCOSV.
  129. &GkQ<INT>FIXPRINTREQV<0x1bb186e>z'ABS<0x1bb1872>ELSEIFjASCANDqFOR6d4CLNG\=ELSEIFvar0e3cCINT%<\WRITEIFIELDGEQVAREALSETF[@I<0x1bb1894><0x61><0x57><0x1bb1897>COMMON21USINGdNOT1<0x5b>NEXT<0x1bb18a1>                                            3
  130. MKS$%@A<0x52,0x00>CALL<0x7e><0x52>z<0x5d>CHR$<0x49>/128<0x4c>d<0x1bb18e6>SGNMKS$3ON198Xb<0x54>LSETV6INKEY$<0x48><0x4c>.FIX<0x1bb18f8>*U<0x1bb18fb>FOR<0x53>r4pIFg<0x1bb1903>ABSU
  131. hFN
  132. 9.16072e-05<0x1bb190f><0x56><0x1bb1911>X<0x20>label17b8-label3040ATNSTRING$vELSEIFCLNG
  133.                                           <0x57>STR$<0x1bb1954><0x57>
  134. !0.var4a10ATN@pREAD0DATAzABS4varfffff6b90 <0x1bb196f>E<0x7c> <0x5d>u"B
  135. @Ä,oiO╓╢÷ÿ#ï∩wà
  136. _èÿ*╜¬*$fî#Lóè╫⌐ƒ╜µ;[y/ôhα▒╖tφ    l` $°╢¿@G
  137. <0x61><0x47>x@<0x50>ABSGOSUB9.35765e+36BAREAASC
  138. varffff898dFABS3w7<0x1bb19cf> fNEXTs<0x1bb19d4>k4NEXT5ELSEIF36<0xdd,0x00>CVIW<0x1bb19e0>STATIC<0x62>DLSET<0x46><0xdd,0x00>'L`RASC26423<0x20>FOR-,@+OPEN<0x4f><0x61><0x60>k8<0x1bb19fc>CVL&H2c0:var0410RSETMKS$<5ONM<0x1bb1a0b>PNNEXTZ<0x5a>$49255m7A=PUTNSTRING$WHILEGOSUB<0x59>TANASCELSEj<0x55><0x4b>_43821,                                                                                                                                                            8REMff⌐φ4|f╛VΘ╣Plü╓╔gè`╓8è⌡eM╟æL
  139.  
  140. <0x1bb1a85>78eEOFFLSTOE%<0x51>6j<0x1bb1a93>2`ASC;X EXPAND?GETyABSfJ5<0x5a>EXPSOUND/G]=2LEFT$<0xf8,0x00>e-<0x1bb1ab3><0x1bb1ab4>SGNL01~ABSPRINT><0x1bb1ac1>`9<0x56><0x5a>
  141. <0x4c>MID$-9.35038e+230LINE8/s~)$ATN<0x7d>glGOSUBAREAMKS$OPENINPUT<0x4c>o*<0x53>O<0x4c><0x7c><0xf8,0x00><0x48><0x7e>ABSWCALL<0x5d>RETURN<0xf8,0x00><0xf8,0x01>4gREMH&Nëú¬6ä╥aô¿τöjb!é_r:¢φ░\nδ
  142. {OPEN5PRINT5<0x5c>QELSEIF<0x5f>IF<0x1bb1b2b>CLNGCOMMON<0x4d><MKI$INKEY$plabelffffc29fKP=MKI$39<0x48>CLNG<0x4c>NEXTCVDCLGETXSPACE$VAL`6=I*<0x20>qRIGHT$<0x62>@                                                                                                                             LEFT$<0x62>EQV<0x53>TNEXT3J}<0x46>OR<0x5d>USING3XOR
  143. uW1JLRs2.0865e-314ELSEIF[labelfffff724'2017462016