home *** CD-ROM | disk | FTP | other *** search
Wrap
AmigaBASIC Source Code | 1997-08-18 | 15.0 KB | 69 lines
IMP<0x07,0x00>9 <0x24cb56d2>59075<0xd5,0x05>2593<0x5d>TO5<0xd5,0x00><0x48>THEN<0x7e><0x24cb56e4>/USINGAREA<0x61>(=<0x46>GOSUB=CSPACE$<0x20>>/EOF<0x62>]"ÿ a µ≥°HÄ▄H╙δ.07a╞ª*B┴é╧E═g6½ O₧█F╞åb┼Ö*G╥'_║╔8╫╞⌠╒èΘôⁿ╓ε⌠╒╒-(╠+\▌╘]ε╝Θδ┐╞(b°@ W-<0xd5,0x00>k<0x24cb575a>TANMOD1P<0x24cb575f>-(<0x5f>TO5<0x50><0x5d>R^<0x5a>WI"2<B┌┼▀τBB╘JU0╛!a▀╔Oφ4-φ0╞∞b è_┼╙┼·▌├┼╒»â╦√ªÅΓ²╥ <0x60>EOFMKS$1EQVWRITEIMP/WRITE<0x48><0x4f><0x55>&H15e6NOT8%<<0x24cb57e5>A252=1F<0x24cb57ec><0x54>EQV#+<0x50><0x4b>GH<0x7c>3^IMP+;=<0x84,0x00>*a>IMP%^bYS\?<0x24cb5809>61$"(P)9$ⁿ√φφΩ <0x5d>><0x46><0x51>NOTSTR$RETURN<0x61>USINGPRINT<0x4b><0x53><0x50>WHILE<0x62><0x55>CVDFIELDPUTLEFT$MID$<0x4b><0x5c><0x5d><0x59>AREA<0x5a><AND=STATIC<0x24cb5842>-TO34ORAND0<0x7e><63758)&H50f<0x24cb5854> 0A60=A24D<0x24cb588b><0x24cb588c>M2var1300<0x24e58640,0x00>T)842010106<0x24cb58cb>ORTHEN<0x24cb58ce><0x7d><0x62>>=<0x7f>17*<0x59>label00ecXOR+<0x5d>><0x7d> <0x5a>/<0x54><0x5f>\<0x5a><0x54>=<0x61>/<0xe2,0x00>+<0x7d><0x24cb5920><0x24cb5921>4.40229e-315<0xe2,0xcccccccd>)(<0x24cb592f><0x24cb5930>112951<0x24cb5936><0x24cb5937>9249<0x24cb593b>253;6!)"■÷ß╪╪ß╓≈⌠╤δ∙Φ ⌡≈±√φµπσ±≡∙▌╬╥┐╣╗┐█╪╞╫█┘╤├φ┘Γ +GH)φ█∩ <<0x57>NOT 436NK8:-$-CGF:JH)!1010<0x62><0x5f>TOXOR<0x24cb59a1><0x7e><0xe2,0x00><0x24cb59a5>//<0x24cb59a8>'+XOR<0xe2,0x00> 3<0xe2,0x00><0x47>READFIELDCOMMONGETSIN<0x4e>USINGXOR<0x5f><0x56>MOD<0x7d>XORIMPEQVAREAFNMKD$=<0x24cb59c8>label2035 <0x24cb59cd>4REMôá╗▄:.$,C2√*.8=HG>)╪┴Ω²-R <0x24e58640,0x00><0x24cb5a24>$<0x24cb5a26><<0x57>ELSEIF<0x45>''OR4 <0x24cb5a62>IMP<0x61>CLNGTAN<0x55><0x52>MOD2540++<0x1c,0x04><0x7e><0x24cb5a72><0x50>-label0322.50 MKI$READ<0x3b><0x59><0x24cb5ab6><0x24cb5ab7>$&6737198760<0x24cb5ac0>0<0x24cb5ac2>THEN<0x4a>MKL$<0x52>^<0x24cb5ac8>)I=0<0x24cb5acd>7<0x7e>/<0x7e><0x7d>EQV<0xde,0x00>9001!<0x24cb5ada>varffffedd0RETURNSPACE$<0x5b><0x56><0x4f><0xde,0x00>AND<0x24cb5ae6>4226011831LOCREM╕╩∙##*$■· ")2 "7;2 $0()⌠⌠√²⌠Θ∞Φφ∩∙√δ┘┘╥╥▐▀σδ≥≈π╓φ∞Ω▌┌ΦµßΩΘσ∩ ²²/$" ≥±∩9M=>B(" +AF.+- φ∩≥°ⁿ&$ µ╓╢ƒá└≈"6-▀═└ +>THEN/=<0x55><0x4a><0x58><^\<0xca,0x00>NOT+<0xca,0x00><0x24cb5bd3>&H1c17<0x7d>=USING<0x5a><0x46><0x47>*<0x24cb5bde><0x24cb5bdf><0x24cb5be0>,/)+2*61<0x24cb5be9><0xca,0x00><0x7f><0x7e><0x24cb5bee>339!&9.25231e-35IMP*/EQV<0x7f><0x24cb5bfe>OR-<0x7c>AND'EQV-<0x48><0x48>STATICTOSTATIC'*<0xca,0x00><0x58><0x4a><0x5e><0x7c>5 <0xca,0x00>IMP<0x62><0x50>STATICMOD 33<0x24cb5c25>label0af6<<0x24cb5c2c>0<0x7c><0xca,0x00>IMPMOD&*,.$"$$≤≥≤ⁿ/(28&÷Γε°√ <0xca,0x00>*<0x53><0x49><0x54><0x53><0x50>^<0x7f>^>EQVAND<0x60><0x5e><0x5f><0x62>TO-=<0x5d><0x50><0x59><0x61><0x5a>STATICSTATIC<0x5b><0x58><0x7c>4APPENDMOD+OREQV+<0x7f>&He115&/0'%+7<0x24cb5c8a> 343%<0x24cb5cc6>91280 ,=8<0x24cb5d05>64754<label190a<0x24cb5d0e>&0<0x25,0x00>1"√∞▌╠╚╘▄Θδδ≤±⌡≈φ TANRETURNMKL$<0x48><0x47>THEN<0x7c>WAITEQV/=*TONOTIMPvar0b18$8486.35923e-30404)15;>8'""8<0x7f>!"/8) ≥≈√εΦ∩δ⌡≤ΩΦ▐╥τ■·≥⌠≈Φ╘╬╙╨╩Γ∙²ⁿΓ▌Γ═└╓Θßσ∙∙∙≡∞≡φ∙ &ⁿ∩Ωⁿ ≥∞δδ≥∙≈≡φ╒╙πΣ▐∞∙ⁿ°·√≥δσßΣ±±Ω⌡ label1006XOR=IMP<0x24cb5e08> <0x7c><0x24cb5e0b>29"'#5>8# &! √σΣ±≥φ∞Ω╫╙µδΦφφß╩╚╬─└╦╫ -\NOT<0x5e><0x62><0xe1,0x00><0x24cb5e89><0x24cb5e8a><0x24cb5e8b>EQV<0x61><0x4e><0x5b> 195.13085e-22181<0x24cb5e9b>9#")++31$!$ ··ⁿ∙√■≡µταΣΘΘεΣπ≤Ω╓▀ΓΓ┌απδ∩π┘╪╓╧╥█╫╔╠Φ·÷⌠√²εΣσ° ²&"403439619&H181993%*9707858951<0x24cb5f06><0x7d><0xe1,0x00>2<0x24cb5f0b>35*$$<0x24cb5f11>*<MOD<0xe1,0x00>0<0x24cb5f1c>label0a04<<ORNOT\<0x24cb5f25><<0x5d>EQV<0xe1,0x00>1&Hebdb<0x5e><0x5a><0x56>=<0x7d><0x7c>IMP&H12ff^XOR<0x60>MKL$<0x5a><0xe1,0x00><0xe1,0x00>.8737<0xe1,0x04>IMPlabelfffff7010<0xe1,0x00>2<0x24cb5f57>21<0x24cb5f5a><0x24cb5f5b><0xe1,0x00><0x24cb5f5e>labelfffff9fe <0x24cb5f92><0x24cb5f93> <0x19,0x00><0x24cb5f97><0x24cb5f98>OUTPUT-'<0x5d><0x61>*MODUSINGTHENlabelfffffef312 <0x24e58640,0x00><0x5f>NOT<0xf2,0x00>6169 2WAIT^<0x4f><0x47><MODXOR0*"!≤■' ²ⁿ <0x7d><0x24cb601a>PTAB65532<0x24cb6021><0x24cb6022>\XOR<0xf2,0x00> <0x7d><0x24cb6029><0x7e>STATIC<0x56><0x5a><0x62>=<0x60><0x55><0x5e><0x5f>STATIC<0x7e>2<0x24cb6037>+><0xf2,0x00>^TO'TOTOOR<0x24cb6042>2<0x24cb6044><0x24cb6045>&H9f9<^*OR<0x24cb604d>3<0x24cb604f>1$5<0x24cb6053><0x24cb6054>varfffff3f9<0x24cb605a><0x7e><0x24cb605c><0x24cb605d>3.6231e-17<0x24cb6063>*<0x59>USINGTHENOR<0x24cb6069><0x24cb606a><0x24cb606b>17<0x24cb606e><0xf2,0x00><0x24cb6071>5<0x24cb6073>'<OR-OR4<0x7f>><0x5e><0x61>>USING<0x56><0x5f>^<USING<0x24cb6089><0x24cb608a>AND<0xf2,0x00>6<0x24cb608f>*<0x59><0x58>>-*varffffff0521<0x24cb609d>ASlabelfffffcfc305115MOD<0x24cb60ae><0x24cb60af><0x24cb60b0><0x24cb60b1>638845937'EQV<0xf2,0x09>AND<0xf2,0x00>ANDOFFAND<0xf2,0x00>*'<0x5f>-<0xf2,0x00>USINGMOD<0xf2,0x00>USING <0x60><0xde,0x00><0x24cb6105><0x7f>EQV<0x5f><0x62>*AND<0x7c>&H9f8OROR<<0x57><<0x24cb6115><0x24cb6116><0x24cb6117>588316924=<0x5f><0xde,0x00><0x7d><0x24cb6122>6936#6B<"÷∙∙ⁿ#-∙φ▐≤ °Σ█╓█µ≡ⁿⁿΩ┘╨╤ß≡÷≤°!ⁿ·δ⌡²ⁿ √2@3('(∙δ∩ ?D:-"3<0x24cb618b>SPC<0xde,0x00><0xde,0x00>437238708<0x60>/*<0x4e><0x52>NOT**XORXOR=ANDORTO>XOR<0x5e>MKL$<0x4e><0x5d><0x52><0x5a><0xde,0x00><0x24cb61b2><0x24cb61b3>0<0x24cb61b5>-='<0x60>+XOR*<0xde,0x00>6")"THEN< <0x24cb61ca>8+!<0x24cb61ce>%8/^'^830<0x24cb61de> <0x7f>OR<0x7e>24<0x24cb6217><0xe5,0x00>51<0xe5,0x01><0x5e>=MODTHENUSING<0xe5,0x00>\<0x24cb6229>6<0xe5,0x01>*TOUSINGUSING<0x5c>NOTBASE<0x24cb6238>2<0x24cb623a>+><0x5f><0x4e><0x57>>/<0x7f>098551.32821e-3151<0x24cb625a><0x24cb625b>38536-2.3775e+36<0x24cb6265>4647<0x24cb626a>TOlabel0bf3<0x59>USINGvarfffff4cd<0x4b>NOT><0x5d><0x61><<0x7d><0x24cb627b><0x7d>+<0xe5,0x00><0x4c>'IMP-ANDORTHEN>=NOTTO<0x5b><0x53><0x57><0x54><0x5a>-*>6varffffe6e3ORMODOR-<0x24cb629f>-68.<0x24cb62a4><<0x56><0x4c><0x5a>\25G1(6MOD><0x5f><var0406!" ■√≤°≡╓φ ²²⌡▀√ ∩⌡≥≤ ≈┌τ÷⌠φⁿ∞±18,$"4IMPOR<0x7f><0x7e><0x24cb62f3>47 <0x24cb6322>51.90907e-315<0x24cb632d>2.)6&&<0x24cb6334>AND/APPENDOR= !4174628807<0x5c>XOR<0x1c,0x00>19&Hfa08<0x24cb6381>AND<0x58><0x57><0x55><0x4c><0x4c><0x60>ANDlabel0d10 <0x4e>STR$<0x4b>THENMOD<0x7e><0x24cb63c8>2541 <0x7c>\TO<0x56><0x60>THENTO<0x7d>9'2>-<0xf6,0x00><0xf6,0x00>>0!7704&H1d31(1.37057e-16<0xf6,0xcccccccd>AND><0x24cb63f3>)4261018083<0x5d>-<0x24cb63fc>258var060d<0x24cb6404>THENAND<0x7d><0xf6,0x00>NOT-\ANDEQV<0x24cb6411>/XORSTEP<0xf6,0x00><0x24cb641a><0x24cb641b>varfffffb05<0xf6,0x00>16MODAND<0x24cb6427>4<0x24cb6429><0x24cb642a>254TABMOD2"√■≥"!#)%1<0x24cb6441><0xf6,0x00> <0x7d>EQVIMPMOD*<0xf6,0x00>labelffffecf3<0x7f>\EQVMODvar0df2<0x52><0x5f><0x5e><0x4d><0x4a><0x62><0x7d><0x7d>label0c03+<0x5d><0x5f>>=<0x5e><0x5b>^MOD<0x4e><0x46><0x7e>8varfffff702\->NOTEQV<0x24cb6476><0x24cb6477>%<0x24cb6479><0x7d><0x24cb647b><0x24cb647c>IMP<0xf6,0x00>^=AND65<0x24cb6485>10var0f180<0x24cb648c><0x24cb648d>labelffffff10varffffeaf2<0x7d>MOD=*<0x7c>&H9fc\<0x24cb649f><0xf6,0x00><0x5c><0x61><0x5d><0x62>+<0xf6,0x00>5<0x24cb64aa><0x24cb64ab><0x24cb64ac>/+<0x55>RNDCLNG<0x5c>+label0915 <0x53><0x56>STATIC<0x5e> <0x24cb6522>62<0x24cb6525><0x24cb6526><0xf8,0x00><0x62><<0xf8,0x00>!"°εεε'-%7∙≤≈≈∙≤ -9-<0x24cb654d> <0x24cb654f>\<0x54><0x52>><0x7e><0x24cb6555> <0x7f>4603><0x24cb655d><0x24cb655e>STATIC<0x5c>AND <0xf8,0x00>^^STEPIMP<0x7e><STATIC<0x5d>*<0x7e>IMP 2960<0x24cb657a><0x24cb657b><0x24cb657c><0x24cb657d> OR=AND<0x7f>39(1+0<0x7d><0x7f><0xf8,0x00><0x24cb658d>&2&<0x24cb6591>(2AND*<0x24cb6598>37021620562973<0x24cb65a2>/EQV+NOT'TO<0xf8,0x00><0x24cb65ad>MOD<0xf8,0x00>AND'<0x59><0x58>/<0x7d>\/\9+THEN/<0x58><0x4f>=<0x24cb65c3>11<<0x46><0x48><05909564<0x24cb65d1>XORANDAPPENDIMP-STATICNOT<0x24cb65da>84806MOD<0x5d>'*IMP301$" /<0xf8,0x00>4877854707%<0x24cb65f7>AS<0xf8,0x00>STATIC<0xf8,0x00><0x24cb65ff>-/^NOT**IMP<0xf8,0x00><0x24cb660d><0x24cb660e><0x24cb660f><0xf8,0x00>XOR*<0x60>TO<0x60><0x61>XOR <<<^MOD<0x24cb665b><0x24cb665c><0x24cb665d>4.32197e-315EQV<0xef,0xcccccccd>&Hc0d<0x24cb666d>&H141662<0x24cb6673><0x7c>3(!<0x24cb6678><0x24cb6679><0x24cb667a>1.74005e-315 C6<0x24cb6687><0x7c>IMP<0x5f><0x49><0x58>^OR<0x60>USINGXOR663719NOT>=XOR<0x7e>label0115'1EQVOR<0x7e> 2<0x24cb66a9>STATICXOR0<0x24cb66ad><0x24cb66ae>3<0x24cb66b0>var0c0f<0x24cb66b4>5<0x24cb66b6><0x7e><0x24cb66b8>6<0x24cb66ba><0xef,0x00>93<0x24cb66c3>1&H3ef+5"≈≈$°ß▌Φ ■Θ╬╬∞²√Ω █▒┬█αΣ≡≈⌡°²∙σ╪═▀° ≈⌡²/√δε÷÷<`S7 TO<0x5f><0x62>*<0xef,0x00>6IS0labelffffe3baLOGRSETSTR$+9)9<0x24cb672f><0xef,0x00>MOD*<0x55>\#@W3<0x5b><0x4c><0x47>RSET-<0x24cb673f> USING*\TOUSING5)<0x24cb6779><0x24cb677a>labelffffd6c5<0x24cb677e>@<0xf3,0x00>8X RIGHT$LSETTAN<0x24cb6788>5FE<0x24cb678c><0x58><0x5c><0x7f>KU <0x24cb6793>28950<0x5d>THEN<0x7e>1#8.62815e+1115-8<0x4d>VALAND<0x7f><0x24cb67ac>5ORRSET6]8/WRITESTR$STR$LOCTANvar2139Q%IMP<0x56>LETNEXT-,-8.0765e+21<0x7e>EQVvar2616PALETTEOPENLEN<0x58>0 <0xf3,0x00>46<0x24cb67db>\10502<0x5e><0x53>+STATIC<0x52>OR<0x24cb67e6>H:<0x24cb67e9>EQV*THEN<0xf3,0x00>2<0x7c><0x61>\11242VAL<0x50>6.15/!IMPUSINGAND/<0x58>IMP<0x24cb6805><0x24cb6806>9B<0x24cb6809><0x52>WEND<0x3b>WRITE/62412&H26f7<0xf3,0x04>*"°╝¬╥√⌠∩∙&■⌡∩÷Σ≈╙≈00*±╩ß,9' ⁿ°²╒╨⌡Θ"(<0x7e><0x7c><0x24cb6854>5<0xf3,0x00>+<0x62>THEN<0xf3,0x00>^71.95478e-314 12540<0x51><0x56>STATIC<0x4c>CVL<0x5f>TO<0xe7,0x00><0x58>MKL$+604630499<0x62>ANDvarfffff1eb<0x24cb68ab><0x24cb68ac><0x24cb68ad><0x7d>USING<0x59>\5*=,<0x24cb68b6><0x24cb68b7><0x24cb68b8><0x24cb68bd>\<0x24cb68bf>"²$?D² ⁿΩ∩÷≥απ÷ √╦╠≥⌠44÷╫╨α∩Φ≡ⁿτ╟╔▄±δ╫▐√:I3≤═┤╘ ╩█ <0x60>>Ec9830<0x24cb6914>/<0x7f>" ⌠⌡∞≈╨▒δ?%┘÷-Φ╞╬/)!╒▓Γ÷╠╗bY%·÷µ┬ß"<0x24cb6942>AREA>8/REM┼τΩ4H ∩≥∙@┬ß⌡Θ±0-B,≤┘±Φ▀-$'!├╩*W2ⁿ SPACE$+(6<0x24cb69a6>3STATICEOFCVL38#6.60785e-30<0x5b><0x5f><0x53>'<0x24cb69b7>STATICSQRUSING)-1.21445e+37<0x5f><0x4a><0x58>label09ec58<0x24cb69c9><0x50><0x59> 2'505744892<0x24cb69d4>varffffeae9<0xf4,0x00><0x24cb69da>AND<0x24cb69dc>\S2USING--<0x51>MOD<Q:26(<0x24cb69eb>THEN+59913<0x24cb69f2>STATIC<0x5c><0x7d>1<4193321994<0xf4,0x0a>\IMP<0x4b>MKL$'<0x24cb6a04><0x24cb6a07>6!9USING<0x48><0x61><0x61><0x5a>XOR7#<0x7f><&H1711<0x24cb6a18>XOR<0x54>+<0x24cb6a1c>-<0x7c><0xf4,0x00>ANDlabelfffffe0d5<0x60><0x24cb6a2b><0x7e>XOR<0xf4,0x00><0x24cb6a30>37A:1<0x49>LINE<0x4c>11587F-3.91583e+28<0xf4,0xcccccccd><0x58><0x5c>OR-C7&H16dbLENON<0x54>>1/."⌠┌π▌╤▌τ╕¡╢╜╓@2╥╬Ωⁿ∙√ⁿπΘ4%(,∙Σ°▀≈ ⁿ#·⌡⌡ ÷ <0x24e58640,0x00> ^OR5<0x24cb6b05><0x57><0x62><0x1a,0x00>-EQV<0x24cb6b0c><0x7f><0x7f><0x1a,0x00>USINGOR\IMP<0x1a,0x00><0x62><0x62><0x5d><0x5b> '2.34209e-38AND<0x5e> &9<0xf8,0x00><0x24cb6b63>734<0x5d> 8241<0x5e>OR9*74 1<0x24cb6b7c>8<0x24cb6b7e><0x5c><0x5c><0xf8,0x00>=<0x61><0x7c> 9<0x24cb6b88>^<0x5d>NOTOR<0x5f><0x61><0x24cb6b91><0x24cb6b92><0x61><0x45><0x3b><0x46><0x60>label1107&He8ca<0x56><0x7d><0x24cb6ba2>+ANDMOD<0x54><0x45><0x5f>2-6<0x24cb6bac>varffffe0e2><0x5e>^56&H192b31-(labelfffff20d8<0x24cb6bc0>var0313<0x24cb6bc4><0x24cb6bc5>0!29'<0x24cb6bcb>8219labelfffffff0<0x4c><0x4b><0xf8,0x00><-<0x24cb6bd9>varffffddd3<0x52><varfffff6ed<0x58><0x45><0x5e>65257<0x5c><0x4a>*<0x24cb6bec><0xf8,0x00>THENOR><0x53><0x4a><0x4c><0x5b>=MOD=<0x5f><0xf8,0x00>042.00889e-38WHILE5<0xf8,0xcccccccd><0x5f><0x24cb6c09>.=&1<0x61><0x58>\3.73755e-315XOR<0x7f><0x24cb6c1d><0x24cb6c1e><0x24cb6c1f>>I4+\2.80483e-125<0x5c><0x57>var0a08<0x24cb6c30><<0x7d>0D!<0x24cb6c38><0x54><0x52>label1e18 <0x5c>CLNG<0x47>^22295<0x50>ELSEIF <0x4d> <0x24cb6cc2><0x24cb6cc3>&Hd15<0x24cb6cc7>&Hfef6<0x5b><0x55><0x24cb6ccd>!&Hfdfb<0x24cb6cd2>8MODTO\MODOR<0x1b,0x00><0x24cb6cdb> 9K$<0x7c><0x24cb6d16><0x7e><0x5d><0x60> 3labelffffe5ef4&" µΓß⌡ⁿΘεⁿ <0x52><0x56><0x56><0x61>*XOR<0x24cb6d98>22<0x24cb6d9b>IMP<0x61><0x62><0x52><0x45>MKL$<0x61><0xd4,0x00><0x61>/&H2002<0x5a>AND<0x24cb6dac><0x7c>*<0x24cb6db3>&493$1TABIMP<0x56><0x51>/ALL,?*7712<0x24cb6dc8>EQV<0x24cb6dca><0xd4,0x00>'/<0x24cb6dcf>3<0x24cb6dd1>2..9varfffffff1<0x5c>XOR4895370083841PATTERN<0x5f>EQVIMPORlabel050e93<0x24cb6df1><0x24cb6df2><0x59>ELSEIF<0x57>label00fe<0x24cb6df9><0x7d>+NOTAND<0x24cb6dfe>319226606<0xd4,0x09>*5<0x7f>//<0x7e>*<0x60><0xd4,0x00>4 =<0x24cb6e13>0label1e1aMOD*<0x7d>!7/<0x62>XOR2<0x7e>MOD32.80478e-26label1206<0x24cb6e2c><0x24cb6e2d><0x5c><0x24cb6e33>-0<0x62><0x56>NOT<0x4d>READNOT+<0x24cb6e3d><0x5b><0x61><0xd4,0x00>EQV<0x24cb6e43>58887<0x24cb6e48>AND<0x61>^%*<0x50>PRINT<0x57>647752labelffffd7e0XOR<0x60><0x51><0x24cb6e5c>.3'<0x62><0x24cb6e61><0x24cb6e62>XOR<0x7f> AREA!]2<0x51>MKL$<0x62>-EQV<0x57>MKL$USING0%+HE<0x4d>CINTINT<0x62>"ITJ4╒╩┌α÷╫XI┘π⌡&"<0x55>LEFT$<0x20><0x4f>8693<0x5c>0\/-<0x61>/WAIT25$<0x7d>\2$,1BO)<0x58><0x48>8H&/<0xe3,0x00>4.32452e-315,<0xe3,0xcccccccd>^587<0x62><+- 2HU<0x24cb6f02><0x57><0x61>IMP53=234^<0x7e>MOD-\varffffe3c8<0x46><0x52>WAITIMP3F4<0x24cb6f1b><0x24cb6f1c>WHILE<0x58><0xe3,0x00>60642<0x55>*<0x24cb6f28><0xe3,0x00>-923399946labelffffd4bdAND<0x24cb6f35>3"'#Σ▄Γ╙╓╓#aT* ╒Φ# Ω≡≤Θ'. ╬┬ <-╬┴τ±┌■Γ┐3⌠┐ⁿ·╪Θ≥φ≤■ L0-^/NOT\<0x7f><0x24cb6faa>7<0x1d,0x00>^=^93%<0x1d,0x00>2.05991e-315 IMP') <0x7d>SQR<0x57><0x24cb7035>5/SGN<0x7c>+<0x7c>=='<0x61><0x5b><0x24cb7041>+<0x24cb7043>6031884941287 ANDTO<0xe0,0x04>label1529,:2<0x24cb7058><0x7f>0<0x24cb705b>EQV<0x53><0x5a>EON<<0xe0,0x00>XORMOD*<0x24cb706a>8WINDOWUSING)'96<0x7f><0x7c><0x24cb7075><0x24cb7076> MODTHEN<0x4a>>1BO2<0x46>'<0x4c><0x48><0x5e>0+<4243506625<0x24cb708f>4'<0x4f><0x5f>45.9MODINKEY$LET<0x7c>'<9/WRITE<0x47><0x5b><0x5c><0x4c>EQV,3<0x7c><0x24cb70a9>211293<0x7d><0x7f>0D`'TOIMP<0x24cb70bf>*87+)D3^<0x52>TOXOR<0xe0,0x00>/+4#-<0x24cb70d2><0xe0,0x00>422.03936e-31455313%<0xe0,0x05>6.07009e-315<0x55><0x5c><0x55>MODBb2WENDLINE\F-<0x62><0x4b>WENDCVLMKL$MID$>JR4129110791TANCOSFOR<0x51>0<0x24cb710f>/ !6AND<0x4a>><0x24cb7147>ORNOTMOD<0x24cb714b>+-4.65002e+29" φ┘└╟≥±°+8!╥┼°√┌╪ ╩¥╡⌡Ha$≤∞ <0x5f><0x51><0x7c>3<0x7c><0x5e>EQV<0x7d>3!<0x24cb71ac><0xd7,0x00><0x54><0x4e>ONREMTG2 ╓▐▐╛▄ τ"\W#≥╪φ)C&√√·≈ ≥≈ⁿ ≡╧Θ ╪ΘN<╓╕╪∞$<╔│¿╙ %. ║ƒ┤¡╟.95;% ╘ê▌ZZ╥╤╔JBⁿ· σÑ▓%`÷┐;2`░⌐╤(_F═¢⌐ï┘MXß╪╬≡,,²╧⌐∞φJCµ╤σ┘à│-\─▓∞Heb8╓»ÉòΘX]6$4α¿YB5╟ö▀█ª╓σ^ <0x7f>SQRREM.e'╥▐JVA└ü¼:Z╫»¡CH9≥▀ N6READCALLGOTO5/MKS$INKEY$6Q4WENDRSET<0x7f>=*XORUSINGOR+(<0x4c>SIN,G <0x59>6.9787e-3152WHILECVI<0x48>3/_U)<0x24cb7328>=PUTRETURNUSINGEQV'ELSEIFCVLNOT4FG*1^NOT<0x5d>TOlabelffffeaaaGOTOTO9'58088\<0x24cb7347>*1.98879e-314.<0x4e><0x5b>MODSTATICLSETIF<0x45><0x4c>/9O5.9355e-316/'<0x50><0x52><0x94,0x00>3.21862e-38<0x57><0x4a>TO0+4/<0x7f>655558643<0x24cb737f>5.71138e-316GR1<0x24cb738c>0><0x7e>VALWRITE<0x57><0x4b>RETURNLSET<0x53>25930<0x7f><0x55>STATICAND<0x94,0x00><0x24cb73a1><0x24cb73a2><0x4c>RND A*9457MKL$ELSEIF<0x4e,0x04>11033*VALCVL"G┌»ƒ╦± <_d%╓*c,┬¡∩.S NEXTNOT1.24857e-315LOF3224STATIC<dO-AREA*Q<0x58>SIN%@<0x4e,0x00>WEND*M/ <0x55>RSET<0x24cb7454>I]/9>A&HcacaIFFIX<0x24cb7460>`JIMP4[VL#<0x7c><0x24cb746a>%XORPRINTINKEY$<0x24cb746f>W<<0x7f>IMP<0x24cb7474>4327<0x57><0x24cb7479><0x35,0x00><0x24cb747c>LOFRSET<0x7c>;N <0x4b> 8<0x49>CALLATNSPACE$"5,6Y RETURNRIGHT$ELSEIF62098<0x51>&+?&<0x4b><0x45>MKS$CALLFIX<0x53>21516<0x61><0xe0,0x00>LETFORMKL$<0x55>-36667526976<0x24cb7517>=MKI$MKS$ 1.4299e-316 6<0x7c>/9TAN<0x47><0x59>INPUT<0x3b>1G USING<0x24cb7533><0x7c><0x4e>INPUTMKS$<0x48>+IMPPRINTLOG<0x24cb753d>4390*<0x5c>INT<0x4b><0x24cb7545>.<0x24cb7547>VALEXPIFSQR<0x48>6ebRR;6><0x62><0x49>INKEY$MOD5'972.58808e-3153P245<0x24cb756a>1364862712THEN<0x5f><0x7f>$9U"Dε^]Y^^K / └═╓ HEΩ╡3\]πù N_0╢σ`óé£(eV_Æç╜ß┘Z\\G»à╬ -! ∞√J_⌡│δ╣½╣√Ic3⌠?N óò█╬»ò¬ "/2≤«╣Σ═ó└∩$-╟ì╫%>!■╚Ö▐X7╪≥▌µ╒¥íò¡ÿïî═Jf RND%eE<0x60>RETURNRSETLOGNEXTTHEN!" ⁿ·3:╬ê▀^Z╫ëÅ╞GPFδæ╞²╦▄τ·%@ZΦÆ╧∞╬╪%╦╚┐┤·²≥║╦\jdá¿▄┼τδ╧╢ΘBnZ:8≥█╨≤!G*1ce╧σ∩ O`^f]4°┬░∙50 σ b.ⁿπ╥÷AL≥╩/∞+`W7 <0x5a>WHILE 21<0x24cb76fa>OR<0x5e><0x54>'XZvarffffacd0/+0>W\8<0x7d><0x5a>CVDCALLLINEMOD-_L*<0x7f> <0x24cb7717>THENAND0=<0xeb,0x00>3(36Z)MKS$READ0<Y<0xeb,0x00>UM<0x62>COSCALLGOSUB<0x54>1055580699XOR+1247629028COMMONGOTOFIELDCALLVAL9@SP<0x47>LSETRIGHT$ *RIGHT$CALLRIGHT$&H32fd<0x7e>44514WENDCOSATN<0x59>``Z>4'FIXON<1.8342e+14GETFIELDCVL<0x58>CLNG<0x24cb77a6>e^5THEN-<0x24cb77ac>SPACE$<0x20>EQV<0x58>ELSEIF5c 2^RND $>VALOR<0x5d><0x7d>$84@5TONEXTCOMMON