þþÒ-dX;SAVE#D:BCALC.PT1nEIx‚„PASS„PASSŒ „PASS–>‹D:BCALC.PT2 ª X;ãìïóå´X;save X & res X in XSAV¾ †CLOSE È $>4 Ò …CLOSEÜæX;ðEIú …SCMEM( †TXTWIN  ƒBF1€" ƒBF2€, †STRING€6…MDLST p=p=P=B@ …SCMEMJ ======T =======^ ======Bh„WFLP †TXTWINr ===A| …MDLST†X;äìéƒDLI5šA¤5® $„DLIX¸ Q„DLIC9 P…WSYNCÌ P†COLPF2Ö #„DLIXà7ê>ô7þ9X; „DLIX „DLIC ‚=&X;0 X;öâìáîë: ƒVBIQ>D P„DLIXN$>XƒVB1Q†COLOR09b P†COLPF09l0vIƒVB1€ !†SYSVBVŠ X;ôéôìå”…BEGIN „INITž †CLRSCN¨ …DRAWH² „SCRV¼ †CLRTXTÆ Q>5…MDLSTÐP†SDLSTLÚ Q>4…MDLSTä P†SDLSTLî Q>4…SCMEMøPL Q>5…SCMEM  PL Q>5†CREDTF  $>4†CREDTF*%>4 †DPRINT> …GNKEYH Q>5†CREDITR $>4†CREDIT\%>f †DPRINTp …IVCRSz„BFLP †CLRTXT„ †SHWREFŽ„HINP †CLRSTR˜ Q†CONSOL¢ R>;;sel¬ H„TOPT¶ !‡COMMODEÀ „TOPTR>Ê H„TKEYÔ †SHOWSTÞ !„BFLPè „TKEYQ‚CHòR>ÿü F„HINP „GKEY$>PƒDM0$M>.„TSKYR†SPCKEY98 F…SPCALB0L I„TSKYVQƒDM0` …INPUTj E„BFLPt !„GTIN~…SPCALQ…SPECL9ˆ P…SPJMP’ Q…SPECH9œ P…SPJMP¦Q>ÿ°P‚CHº …SPJMP ÿÿÄ …SHWT2Î !„BFLPØ„GTINQ†STRINGâ R>ƒEOLì H„GTN1ö †SHOCEL !„HINP  „GTN1QƒSTR F„HINP Q†FRCTXT( H…TRYTX2 Q†STRING<R> =F F„AFNNPR> ½Z F„AFNNd !…TRYNUn „AFNNQƒSTRx P„STR2‚ …LO2UPŒ †TRYFNC– D„HOOK Q>‚;;errorª H„FHOK´ „HOOKQ>¾„FHOKP„DTYPÈ Q„STR2ÒPƒSTRÜ,æ O>4†STRINGð P…FLPTRú Q>5†STRINGO> P…FLPTR$>" …FST0P,QƒSTR6,@O>JPƒSTRT>^ Q>ƒEOLh P†STRING9r †INSERT| †CLRSTR† $ƒBF2 ‡STFLPTRš …FLD0P¤ †NM2STR®!ƒGTR¸…TRYNUR> -;;-,.,0-9 D…TRYTXÌH‚H1ÖQ†STRING;;nx chr #?àR> :ê E…TRYTXôR> /þ F…TRYTXR> . D…TRYTX ‚H1R> /& F…TRYTX0R> :: E…TRYTXD …SBNUMN!ƒGTRX …TRYTXQ>b P„DTYPl P†FRCTXTv †INSERT€ ƒGTRQ„CRSYŠ P„VCNT” Q„SROWž †REFROW¨ …IVCRS² Q„DTYP¼ †SHWTYPÆQƒONFÐ F„NORCÚ †RECALCä„NORCQ„CDIRî F…NOCRSø …MVCRS…NOCRS!„BFLP X;íïöå ãòó òïõô …MVCRSR> F‚CR*!ƒCLA4 ‚CR%„SCOL>)>?H E„NORTR Q…CRSEN\,f O„COLW8pR>)z E…SCRRT„5Ž Q…CRSEN˜ P„CRSX¢7¬ P…CRSEN¶ #„SCOLÀ Q…CURRWÊ P„VCNTÔ Q„SROWÞ †REFROWè„EXC1 …IVCRSò %„SCOLü Q…FMCOL8 P†FORMAT „NORT: …SCRRT#„SCOL$ Q>;;find 1st col. %„SCOL8 „FFLP,B O„COLW8L R>(V EƒFNF` 1j !„FFLPt ƒFNF3~ '„FCOLˆ …DRAWH’ †REFSCRœ X;find st/end of cursor¦ Q>° %„FCOLº )„SCOLÄ FƒFSFÎ ƒFSE,Ø O„COLW8â 3ì )„SCOLö HƒFSE ƒFSFP„CRSX , O„COLW8 P…CRSEN( Q„SCOL2 R>?< HƒFFJF Q„CRSXP ,Z O„COLW?d P…CRSENn ƒFFJ!„EXC1x X;ìåæô‚ ƒCLAR>Œ HƒCUA– ‚CLQ„CRSX  R>ª H‚PA´ Q„FCOL¾ H…SCRLLÈ :Ò ‚PA"„SCOLÜ Q…CURRWæ P„VCNTð Q„SROWú †REFROW Q„CRSX 5 ;" %„SCOL, S„COLW86 P„CRSX@ 7J P…CRSENT !„EXC1^ …SCRLL"„SCOLh Q„SCOLr P„FCOL| …DRAWH† †REFSCR Q>š P„CRSX¤ %„FCOL® ,¸ O„COLW8 P…CRSENÌ !„EXC1Ö X;õðà ƒCUAR>ê HƒCDJô ‚CUQ…CURRWþ H‚R3 Q„FROW H‚R4 :& ‚R3 …IVCRS0 "…CURRW: "„CRSYD "„SROWN !…IVCRSX ‚R4 …IVCRSb "„FROWl "„SROWv X;€ Q>4…SCMEMÐ Š P‚JL” Q>5…SCMEMÐ ž P‚JL¨ Q>4…SCMEMø ² PL¼ Q>5…SCMEMø Æ PLÐ $>Ú „MUAG †MOVSCNä ;î S>(ø P‚JL Q‚JL S> P‚JL 0* I„MUAG4 X;> $>'H Q>R ‚UUP…SCMEMP9\ 0f I‚UUp P„VCNTz Q>„ PƒSPXŽ Q„FROW˜ †REFROW¢ …DRCOL¬ !…IVCRS¶ ƒCDJR>;;äï÷îÀ F‚CDÊ :Ô ‚CDQ„FROWÞ ,è O…CURRWò R>?ü D‚R1: ‚R1Q…CURRWR>$E‚R2. …IVCRS8 #…CURRWB #„CRSYL #„SROWV !…IVCRS` ‚R2 …IVCRSj #„FROWt #„SROW~X;ˆQ>4…SCMEMx ’P‚JLœQ>5…SCMEMx ¦ P‚JL°Q>4…SCMEMP ºPLÄQ>5…SCMEMP Î PLØ$>â„MDAG †MOVSCNì,öO>(P‚JL  Q‚JLO> P‚JL(02 I„MDAG<Q>F$>'PƒDDZP…SCMEMø9Z0dIƒDDZnQ>xPƒSPX‚Q>Œ P„VCNT–,  O„FROWª †REFROW´ …DRCOL¾ !…IVCRSÈ X;íïö óãòîÒ†MOVSCN%>'Ü ƒMS2Q@‚JL7æP@L7ð1úIƒMS2 Q‚JL PLQ‚JL"PL,:6 X;ãìïóå@…CLOSE&„XSAVJQ> T P…ICCOM9^ „CIOVh $„XSAVr:|X;äòá÷ óãòååSCRV …DRCOL !…CLEARš„SCRH …DRAWH¤…CLEAR †CLRSCN®:¸X;ðòéîôá½è¬ø½ì¬ù½óôòô†DPRINTP‚ILÌ&‚ILÖ ƒDOPQ@‚IL7à R>ƒEOLê F„ENDPôP@L7þ3HƒDOP „ENDP:X;äòá÷ ãïì£& …DRCOL%>0 '„VCNT: Q„FROWD P„BCD1N #„BCD1X ‚FGQ„BCD1b$>l ‚FER> vD‚FF€;ŠS> ”2žH‚FE¨‚FF5²A¼5Æ %„VCNTÐ Q„Y40L8ÚPLä Q„Y40H8î PLø7L> %>P@L7 7*34L>>P@L7H #„BCD1R #„VCNT\ Q„VCNTfR>pH‚FGz:„ X;éîéôéáìŽ „INIT-˜Q>4…SCMEMP ¢ P„Y40L¬PL¶Q>5…SCMEMP À P„Y40HÊ PLÔ%>Þ ‚I1QLè,òO>(üPL P„Y40L8 QLO>$ PL. P„Y40H883B)>LH‚I1VX;` Q>4ƒDLIj P†VDSLSTt Q>5ƒDLI~P†VDSLSTˆQ>’ P†COLOR4œQ>¦ P†COLOR2°Q> º P†COLOR1ÄQ>Î $>5ƒVBIØ %>4ƒVBIâ †SETVBVìQ>Àö P…NMIENX; %>? ‚IJQ> P„COLW8(Q> 2 P…FMCOL8<1FI‚IJP P†FORMATZQ>d P…SPFLGn$>Ñx „ZPLPP9‚0Œ G„ZPLP– P„CRSY  P…RCFLGªPƒONF´Q>¾ P„CRSXÈ,Ò O„COLWÜ P…CRSENæ X;ëåùâäðQyúLz F„BUZZQy PƒGTV"Qz, PƒGTV6X;@ „BUZZQ>J?T>^ƒKLPAh PƒAIT8rN>€| PƒAIT€8†01šG‚KD¤)>_®HƒKCA¸$>?ÂHƒKLPÌ ƒKCA)>ÖHƒKLPà$>_êHƒKLPô X;òáä ôáâìþ ‚KDQ>4ƒRO1PL Q>5ƒRO1 PL&%>0 ƒCETQL: PƒRAD8D QLN3X PƒRAD8bQLl,vO>€PLŠ QL”O>ž PL¨3²)>€¼HƒCETÆ%>?ÐQ>ÿÚ ƒCESPƒRO18ä1îIƒCESø Q>4†ENPROG P…ENDAT  Q>5†ENPROG P…ENDAT X;æð ôáâìå áääòåóóåó*Q>4‡FPSTACK4PL> P„STLOHQ>5‡FPSTACKR PL\ P„STHIf%>p ƒFPZQLz,„O>ŽPL˜ P„STLO8¢ QL¬O>¶ PLÀ P„STHI8Ê3Ô)>9ÞHƒFPZè:ò X;äòá÷ èïòü…DRAWHQ>4…SCMEM( PLQ>5…SCMEM(  PL$%>'. ‚DHQ>€8P@L7B1LI‚DHVX;`Q>jP‚TMt Q„FCOL~PƒTM1ˆ ƒCOA%ƒTM1’)>@œFƒCDO¦ Q„COLW8°5ºV?Ä,ÎO‚TMØPƒTM3â"ƒTM3ì7ö,O‚TM PƒTM2R>)DƒCOK(ƒCDO:2 ƒCOKQ>!<PƒTM4FQƒTM1PR>ZD‚T2d#ƒTM4n;xS>‚R>ŒD‚T2–#ƒTM4 ;ªS>´‚T25¾%ƒTM3ÈQƒTM4ÒN>€ÜP@L7æ7ð,úO>!N>€3P@L7"#ƒTM1,QƒTM26P‚TM@!ƒCOAJX;éîöåòóå ãõòóïòT…IVCRS †LOCCRS^ %…CRSENh1r ƒIVSQ@L7|N>€†P@L71š )„CRSX¤IƒIVS® %„SCOL¸ Q…FMCOL8 P†FORMATÌ †SHWCRIÖ:àX;æéîä ãòóïòê†LOCCRS%„CRSYô Q„Y40L8þPL Q„Y40H8 PL:& X;ãìòôøô0†CLRTXT%>:CD‚CTP†TXTWIN8N3X)> bH‚CTlQ>€vP†TXTWIN€:ŠX;çåô òåç® ëåù”…GNKEY „GKEYž$>ÿ¨&‚CH²:¼X;çåô á ëåùÆ „GKEYQ‚CHÐR>ÿÚ F„GKEYä P„OLDCî‚K0?ø)>ÀDƒGTV %>š ƒGTVQþþ8  P…OLDAC*ƒKGBR>‚;;caps4HƒKII> ƒKIMQ„CAPSHN>@R P„CAPS\ ƒKIJQ>ÿfP‚CHp H„GKEYzƒKIIR>;;invrs„H‚K3Ž Q†INVFLG˜N>€¢ P†INVFLG¬!ƒKIJ¶‚K3R>ƒ;;shiftÀFƒKIMÊR>„;;controlÔ F„GKEYÞR>…è F„GKEYò Q„OLDCüR>@E‚K6 Q…OLDACR>a$D‚K6.R>{8E‚K6B Q„CAPSLF‚K6V L„OLDC`!‚K0j ‚K6Q…OLDACt$>~„KCMPR…SLKEY9ˆ F„KOUT’0œ I„KCMP¦ N†INVFLG° „KOUT:ºX;ô÷éî ðòéîôÄ „LIN1%>ÎHƒTPSØ „LIN2%>âHƒTPSì „LIN3%>öƒTPSQ…TWINL8PL  Q…TWINH8 PL%>(:2X;ïõô ïæ íåíòù< „MERR%>F †DSKERRP !„HOMEZ X;íïöåõðd…MOVUPQ…ENDATn PƒMFRx,‚ O„LENGŒ PƒMTO– Q…ENDAT  PƒMFRªO>´ PƒMTO¾RjÈ E„MERRÒ Q…ENDATÜ;æS‚LLð P„NBYTú Q…ENDAT S‚LL P„NBYT Q…ENDAT",, O„LENG6 P…ENDAT@ Q…ENDATJO>T P…ENDAT^ ƒMAG ƒMFRhDƒMM1r:|ƒMM1"ƒMFR† QƒMFRR>ÿšH‚MS¤ "ƒMFR®‚MS"ƒMTO¸ QƒMTOÂR>ÿÌH‚MTÖ "ƒMTOà ‚MT!ƒMAGê ƒMFRQÿÿô ƒMTOPÿÿþ ‚MQ"„NBYT Q„NBYT R>ÿ HƒCNR& "„NBYT0 Q„NBYT: R>ÿD HƒCNRN ;X :b ƒCNR,l :v X;íïöå äî€ …MOVDNQ‚LLŠ PƒMTO” ,ž O„LENG¨ PƒMFR² Q‚LL¼ PƒMTOÆ O>Ð PƒMFRÚ Q…ENDATä ;î SƒMFRø P„NBYT! Q…ENDAT ! SƒMFR! P„NBYT ! Q…ENDAT*!;4! S„LENG>! P…ENDATH! Q…ENDATR!S>\! P…ENDATf! ƒDD1 ƒMFRp!DƒDD4z!:„!ƒDD4#ƒMFRŽ!HƒDD2˜! #ƒMFR¢!ƒDD2#ƒMTO¬!HƒDD3¶! #ƒMTOÀ! ƒDD3!ƒDD1Ê! X;áó²éãÔ!…AS2IC&„XSAVÞ!>è! QƒAIT9ò! $„XSAVü!:" X;éîóåòô"X;⣰ ½ãïì £ â£± ½æïòíáô"X;⣲ ½ ìåîçôè â£³ ½ ôùðå$"#X;ôùðåóº°½ôåøô ± ½ £ ²½ æõîãôéïî."†INSERTQ„SCOL8" P…COLNUB" Q„FROWL",V" O…CURRW`" P…ROWNUj"T?t"?~" QƒRAD8ˆ"P‚LL’"3œ" QƒRAD8¦" P‚LL°" ‚IU%>º" Q@‚LL7Ä" I„FCELÎ" ‚ISQƒSTRØ",â" O>…DTLENì" P„LENGö" …MOVUP#%> # Q…COLNU# P@‚LL7#Q†FORMAT;;format(#%>2# P@‚LL7<#3F#QƒSTRP# P@‚LL7Z#3d#Q>;;flag2n# L„DTYPx# P@‚LL7‚# …ADDDTŒ#%>–#‚ITQ†STRING8 # P@‚LL7ª#3´#)ƒSTR¾#H‚ITÈ#QƒSTRÒ#,Ü# O>…DTLENæ# P„LENGð# Q…ROWNUú# …UPRAD$:$X;íö ÒÁÄ ôáâì õð$ …UPRADT?"$?,$36$3@$!‚IQJ$ ‚IRQƒRAD8T$,^$ O„LENGh$ PƒRAD8r$3|$ QƒRAD8†$O>$ PƒRAD8š$3¤$ ‚IQ)>€®$H‚IR¸$:Â$„FCELR…COLNUÌ$HƒNODÖ$Q…ROWNU;;4 delà$ †DELTCLê$;;;fall thruô$ ƒNODE‚ISþ$%>% Q@‚LL7%,%O‚LL&%P‚LL0% Q‚LL:%O>D% P‚LLN% …ADDDTX%!‚IUb%X;äåìåôå ãåìì» Á½òï÷l% †DELTCL5v%%>€% Q@‚LL7Š%,”% O>…DTLENž% P„LENG¨% …MOVDN²%7¼%T?Æ%?Ð%3Ú%3ä%!‚DQî% ‚DRQƒRAD8ø%;& S„LENG & PƒRAD8&3 & QƒRAD8*&S>4& PƒRAD8>&3H& ‚DQ)>€R&H‚DR\&:f&X;ãìåáò óãòååîp&†CLRSCN$>z&ƒCTD †CLRLIN„&0Ž&IƒCTD˜&:¢&X;åîôåò ÷¯Ø½òï÷¬&†CLRLINQ„Y40L9¶&PLÀ& Q„Y40H9Ê& PLÔ&Q>Þ&%>è& „CSLPP@L7ò&3ü&)>(' H„CSLP':'X;æéîä ìáóô ãïì$'†LSTCOL%„FCOL.'‚OB,8' O„COLW8B'R>(L'E‚OAV'3`'H‚OBj'‚OA'ƒTM2;;lst colt':~'X;òåæòåóè óãòååîˆ'†REFSCRQ>;;vert lines’' P„VCNTœ' Q„FROW¦'PƒTM1;;rows°'X;º' ‚OHQƒTM1Ä' †REFROWÎ'#ƒTM1Ø' #„VCNTâ' Q„VCNTì'R>ö'H‚OH( :;;done ( X;çåô ÒÁÄ( …STRADT?(?(( QƒRAD82(P‚LL<(3F( QƒRAD8P( P‚LLZ(:d(X;òåæ á òï÷ åîôåò ÷¯Á½òï÷n(†REFROW5;;save rowx( Q„FCOL‚( P‚TM;;colŒ(Q>–(PƒSPX ( †LSTCOLª( $„VCNT´( †CLRLIN¾(7È( …STRADÒ( ‚VE%>Ü( Q@‚LL7æ(R>ÿð(F‚VA;;done w/rowú(R‚TM)F‚VB;;got col)D‚VC)‚VD%‚TM;;next col")Q„COLW8;;scrn pos,),6)OƒSPX@)PƒSPXJ)#‚TMT)Q‚TM^)RƒTM2;;last col?h)D‚VEr)‚VA:|)‚VC †UP1COL;;inc ll†)!‚VE) ‚VBQ‚LLš),¤) O>…DTLEN®)P‚IL¸) Q‚LLÂ)O>Ì)P‚IL;;keep LLÖ) %„VCNTà) Q„Y40L8ê)P‚JLô) Q„Y40H8þ) P‚JL*QƒSPX*PƒTM3*%>&* Q@‚LL70* P†FORMAT:*%>D* Q@‚LL7N* I„NNERX* !„NUERb* „NNERM>l*FƒNNMv*R>€* FƒISN;;a #Š* %>;;a F”* Q@‚LL7ž*;¨*S>²*,¼*O‚ILÆ* >;;lowÐ* Q‚ILÚ*O>ä*?î* !„ISN2ø*X;ðõô ïî óãòî+ƒNNM †CLRSTR +%>+ Q@‚LL7 +?*+ Q>ƒEOL4+ P†STRING8>+1H+ ƒYTAQ@‚IL7R+ P†STRING8\+1f+IƒYTAp+ Q>4†STRINGz+P‚IL„+ Q>5†STRINGŽ+ P‚IL˜+ †FRMTXT;;result in IL¢+X;ðõô ïî óãòååî¬+ „NNM1%‚TM¶+ Q„COLW8À+PƒGMXÊ+%>Ô+'ƒTM4Þ+ ƒYLP%ƒTM4è+ Q„LBUF8ò+ …AS2ICü+%ƒTM3, P@‚JL7,#ƒTM4,#ƒTM3$,QƒTM4.,RƒGMX8,HƒYLPB, †CLRSTRL,!‚VDV,X;òåæò £ó éì èáó £`,ƒISN$‚IL;;strt of #j, %‚ILt,„ISN2 …FLD0R~, †SETINBˆ, „FASC’, †FRMNUMœ, !„NNM1¦, X;îõíâåòó°, …SBNUMQ>º, P„DTYPÄ, …SETFPÎ, „ZFR0Ø, ƒAFPâ, $>4†STRINGì, %>5†STRINGö, …FST0R-Q> -PƒSTR- †INSERT-:(-X;åòòïò éî ãåìì2- „NUER$><-Q>F-PƒGMXP-%‚TMZ- Q„COLW8d-R>n-HƒADQx-"ƒGMX‚- ƒADQ%ƒTM3Œ-ƒADPQ…ERMES9–- P@‚JL7 -3ª-2´-(ƒGMX¾-HƒADPÈ-!‚VD;;nx colÒ-X;óåô æð ðôòóÜ-…SETFPQ>5†STRINGæ- P…INBUFð- Q>4†STRINGú- P…INBUF.Q>.PƒCIX.:".X;óåô éîâõæ,.†SETINBQ>5„LBUF6. P…INBUF@. Q>4„LBUFJ. P…INBUFT.Q>^.PƒCIXh.:r.X;£ ôï ÓÔÒÉÎÇ|.†NM2STR †SETINB†. „FASC.%>š.ƒNLPQ@…INBUF7¤.GƒNL2®. P†STRING8¸.3Â.HƒNLPÌ. ƒNL2M>Ö. P†STRING8à.3ê.'ƒSTRô.)>þ.FƒNRT/ Q†STRING/R> 0/HƒNRT&/%>0/ƒNL3Q†STRING8:/ P†STRING8D/3N/)ƒSTRX/HƒNL3b/"ƒSTRl/ƒNRT:v/X;äï óðåã ãôòì ãíäó€/X;ãìåáò ÓÔÒÉÎÇ æïò ÆЊ/†CLRSTR$>”/Q> ž/„CSTLP†STRING9¨/0²/ I„CSTL¼/:Æ/X;ãïîöåòô ìï÷ ôï õðð ãáóåÐ/ …LO2UP%>Ú/„LOLPQ†STRING8ä/ R>ƒEOLî/ F…LODONø/M>0 R> z 0EƒNLO0R> a 0DƒNLO*0N> 40ƒNLOP†STRING8>03H0 H„LOLPR0 …LODON:\0>‹D:BCALC.PT3f0>‹D:BCALC.PT4p0>‹D:BCALC.PT5z0>‹D:BCALC.PT6„0 †ENPROG Ž0 …RUNAD˜0 …BEGIN¢0