'–êë© 1} ‰‰ ‰‰ ‰‰ ���@Œ½Ï&ÃÆÆÏ Ã! Ã"¤#˜$˜%š&š'$‰/ÿ q  ;H                  !" ' d 2q 2H               ! e 1h œ@isaaf(h �@isapp(GALL55GALLCHG55GAQS g gGBACKU e fGCALC¤§GCASH33GCASHFLOW1"]"^GCDOW!Ï!ÐGCERR%â%âGCGA%›%›GCGB%�%�GCGCFIGCGD%¡%¡GCGE%£%£GCGEDITJNGCGF%Ÿ%ŸGCGSORTnzGCGSUMMARYJKGCHGCG"a"iGCHQceGCLEARJQGCMS ÿÿGCMS2CIGCMS3$¤$©GCONFIG$GCOST  GCQCãåGCQS s wGCRSt|GCRS1stGCSET"P"PGDATE!!GDCHK  GDELCG"ª"ÆGDERRSSGDISK__GDOW77GDOWCHG77GDREV"hÿÿGDSRCH ´ »GDT&A&CGEDCHK%“%”GEFIX!ˆ!‰GEFIX2!‚!…GEFIX3!…!†GEFIX4!!€GEMV"a"iGEMV1"e"eGENTERCG"–"¨GERSGFILaaGFL&y&yGGBACKTÿÿGGRAPH8ÿÿGGU";"NGHLCV±ÀGISOK"x"‚GKAT_GMAA¤®GMAC")GMACDˆŽGMANCASHmqGMAT±²GMD!‡!‡GMO"R"VGMO1"V"WGMOA™ GMOD&Y&ZGMOVEÿÿÿÿGMV‡ŽGMVDòÿÿGMVRòÿÿGNCHK"g"lGNSGNT"X"bGNVA  GOBV"J"OGOBV1"O"PGOC±²GOFFeeGONggGOTHER GPCáéGPCHG¥§GPCHKGPCNäåGPDìõGPGRAPH8=GPNççGPN1ééGPOINTS"ˆ"“GPORTCFHGPORTRS"{"…GPORTU"%")GPOS “ •GPR""GPRINT^eGPSAVE×ÚGPSCHK22GPSELL5?GPSORT@HGPU 3 6GPUP  GQUOTES GRCâåGREC"rÿÿGRETB!\!_GRETB1 À ÁGRETB2ûþGROWTsuGRS1רGRSI"™"©GRSI1"£"¤GRSIG�•GRSIT"•"–GRSM²¹GRST¼ÁGSCHK"éÿÿGSCK&&GSECCHK))GSECEDIT…GSFIX""GSHORT^ÿÿGSLMSG00GSMSG,,GSNDCK&…&…GSORT(,GSPLIT"¾"ÆGSPY$Æ$ÉGST��GSTK1ÿÿÿÿGSTK2ÿÿÿÿGSTK3ÿÿÿÿGSTK4ÿÿÿÿGSTK511GSTK622GSTK7ÿÿÿÿGSTKEDIT~ˆGSTOCK  GSTOK“šGSTOK1™šGSUtxGSUMMARY1 7GSYMPòôGSYMSìîGSYMSLøúGTEC"‡"‡GTECHEQGTEDITÀÅGTESTx€GTMCïðGTMSëëGTODAY55GTOTAL22GTOTCOST22GTOTGAIN22GUDOWgÿÿGUHQT\GUPDATE^ÿÿGURGVIEWÀÿÿGVOª«GVOLA�–GWR1š›GYCHK15G\0  G\1G\2  G\3G\4G\AÿÿG\B'UG\ChqG\E‹¨G\F©ÆG\HõG\I@G\JFSG\KS^G\LåùG\MG\NhÿÿG\PÛáG\Q¤¤G\R G\SŽ�G\T"*G\U,4.ÇPB©® © ®ÿÿÿÿ ÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPortfolio Breakdown Security Dollars qqÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0'ÿ  # ÿÿÿÿgÿÿÿÿÿÿÿÿÿÿÿÿi(ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿfÿÿÿÿÿÿÿÿ$%ò &òcapital gains report '( ( PB)'*ÿÿÿÿÿÿÿÿ-·ÿÿÿÿ ÿÿÿÿ ÿÿÿÿ ÿÿÚÿÿ ÿÿÚÿÿ ÿÿÚÿÿ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOVING AVERAGE CONV/DIV BM ATE ACD 2 DAY-26 DAY MA DY EXP AVG 0 WEEK MA ACD A 4 A 5 qqÿ^DESCRIPTION ÿ^# OF ÿ^DATE ÿ' LATEST  ÿ^COSTÿ^GAIN OR ÿ^SYMBOL ÿ^TOTALÿ'COMMISSIONS ÿ^DATEÿ^50 PERIOD ÿ^150 PERIOD€ÿ'{CONTENTS AD2,AD1}{IF AD1=44}{GETLABEL "SORRY, NO MORE THAN 40 POSITIONS IN YOUR PORTFOLIO (HIT ENTER TO CONT):",AD5}{\M} ÿÿRžð ADDRESSO3 ÿ$A$1ÿ 'ò" Mÿ# Gÿ$ Gÿ% Gÿ&G ÿ^SHARESÿ^ACQUIRED ÿ^PRICE ÿ^LOSS ÿ^HIGH ÿ^LOW ÿ^CLOSE ÿ^VOLUME ÿ^MA ÿ^MAÿ'{RECALC AD3}ÿ' 9 ÿ'{OFF}/wtc{HOME}{ON} ò"ÿ'------------------ÿ'-----------ÿ'----------ÿ'--------------ÿ'--------------ÿ'-------------ÿ'----------ÿ'---------------ÿ'------------ÿ'------------ÿ'-----------ÿ'-----------ÿ'-----------ÿ'-----------ÿ'-----------ÿ'-----------4ÿ'{RECALC AB4}{HOME}{OFF}{GOTO}A1~{GOTO}A4~/wthÿQž ð€ÿ¿m3ÿ9Dÿ'{RECALC AF4}{IF AL104=1}{IF AG36=1}{LET AL104,0}{BRANCH F391} ÿ%'23 ò ¢ ¢ ¢ ¢ ¢ ‚ ‚/ÿPžð {GOTO}A€ÿ¿~{BRANCH AB6}3ÿ{GOTO}A9~{BRANCH AB6}:ÿNž ð+{OFF}{MENU}REAþ¿ÿ¿..Jþ¿ÿ¿~{ON}3ÿ{OFF}{MENU}REA9..J9~{ON} ÿ%'20 ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ÿ'{END}{DOWN}{DOWN}ÿ'%ÿ'{IF AH10=1}{LET AH10,0}{SHORT} ò ¢ ¢ ¢ ¢ ¢ ‚ ‚fÿ'{RECALC AF1}{ON}{GETLABEL "ENTER THE SECURITY DESCRIPTION:",STOCK}{IF STOCK="\"}{OFF}{PCHK}{\T}'ÿ'{IF AH36=1}{LET AH36,0}{SECEDIT} ÿ 'ADF ò ¢ ¢ ¢ ¢ ¢ ¢  ¢ ¢ ‚ ‚7ÿ'{RECALC AB8}{IF AG36=1}{IF STOCK=""}{BRANCH AB9} ÿ'{\T} ò" ò ¢ ¢ ¢ ¢ ¢ ¢  ¢ ¢ ‚ ‚WÿKžðH{LET €ù¿,@trim(STOCK)}{IF @VALUE(€ù¿)=0}{ERS}{BRANCH AB6}3Aÿ{LET $A$1,@trim(STOCK)}{IF @VALUE($A$1)=0}{ERS}{BRANCH AB6}Aÿ'{GETLABEL "DATA ENTRY ERROR (HIT ENTER TO CONTINUE):",AG1} ò" ò ¢ ¢ ¢ ¢ ¢ ¢  ¢ ¢ ‚ ‚ÿ'{RIGHT}{RECALC AF1}3ÿ'{IF DATE="\"}{LEFT}{RECALC AF1}{BRANCH AB10} ò" ò ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ‚ ‚ Sÿ '{GETLABEL "ENTER THE NUMBER OF SHARES:",COST}{IF COST="\"}{LEFT}{BRANCH AB6}+ÿ '{IF DATE=""}{IF AG36=1}{BRANCH AB20} ÿ! ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ +ÿ '{IF COST=""}{IF AG36=1}{BRANCH AB14} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ qÿ '{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB13}{IF @ISERR(COST)=1}{ERS}{BRANCH AB10}7ÿ '{IF COST="\"}{LEFT}{RECALC AF1}{ON}{BRANCH AB16} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ +ÿ Ižð{LET €ô¿,€ €}3ÿ {LET $A$1,6070.5}2ÿ '{IF COST=""}{IF AG36=1}{RIGHT}{BRANCH AB24} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ ÿ '{RIGHT}{RECALC AF1} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ÿ'{BRANCH AB16}@ÿ'{RECALC AE16}{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB21}ÿ!'6/28/90 ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚†ÿ'{IF AH10=1}{GETLABEL "ENTER THE DATE OF THE SHORT SALE (MM/DD/YY):",DATE}{RECALC AH16}{\1}{IF @ISERR(AH16)=1}{ERS}{BRANCH AB16}>ÿ'{IF COST=""}{IF AG36=1}{RECALC AB28..AB29}{BRANCH AB28}ÿ!€#à@€ÿ¿M ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚‰ÿ'{IF AH10=0}{GETLABEL "ENTER THE SECURITY DATE OF PURCHASE (MM/DD/YY):",DATE}{RECALC AH16}{\1}{IF @ISERR(AH16)=1}{ERS}{BRANCH AB17}ÿ!' 33052 ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚5ÿ'{CONTENTS AH17,AH16}{RECALC AH18}{RECALC AB19}6ÿ'{IF STOCK="\"}{LEFT 2}{RECALC AF1}{BRANCH AB24}ÿ!Ižð€ÿ¿m3 ÿ!33052 ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚+ÿHžð{LET €î¿,€ÿ¿}3ÿ{LET $A$1,33052},ÿ'{IF STOCK=""}{IF AG36=1}{BRANCH AB32} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚ÿ'{RIGHT}{RECALC AF1} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚zÿ'{GETLABEL "ENTER THE LATEST PRICE PER SHARE:",COST}{\2}{LET COST,@VALUE(COST)}{IF @ISERR(COST)=1}{ERS}{BRANCH AB21} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚5ÿ'{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB23} ÿ €¶·@ÿ!' ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚2ÿFž ð#{LET €ê¿,€€}{RIGHT}3ÿ{LET $A$1,6070.5}{RIGHT}ÿ ' 6070.5 ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚§ÿ'{RECALC AF1}{IF AH10=1}{GETLABEL "ENTER THE PROCEEDS FROM THE SHORT SALE:",COST}{\3}{LET COST,@VALUE(COST)}{LET COST,-COST}{IF @ISERR(COST)=1}{ERS}{BRANCH AB24}ÿ Fžð€ÿ¿m3 ÿ 6070.5 ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚‚ÿ'{IF AH10=0}{GETLABEL "ENTER THE TOTAL PURCHASE COST:",COST}{\3}{LET COST,@VALUE(COST)}{IF @ISERR(COST)=1}{ERS}{BRANCH AB25} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚;ÿ'{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB27..AB29} ÿWÿ '{GETLABEL "ENTER THE BROKERAGE COMMISSION:",AF26}{IF AF26=""}{IF AG36=1}{RETURN} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚+ÿEžð{LET €æ¿,€ý¿}3ÿ{LET $A$1,6070.5}*ÿ '{IF AF26="\"}{LEFT 2}{BRANCH AB30}} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚Žÿ?žð{LET COST,E€ç¿}{RIGHT}{IF AH10=1}{PANELOFF}-B€ç¿*D€ç¿-E€ç¿~{PANELON}{RIGHT}{RECALC AF1}{BRANCH AB30}3bÿ{LET COST,E9}{RIGHT}{IF AH10=1}{PANELOFF}-B9*D9-E9~{PANELON}{RIGHT}{RECALC AF1}{BRANCH AB30}Vÿ '{LET AF26,@VALUE(AF26)}{RECALC AG30..AG31}{IF @ISERR(AF26)=1}{ERS}{BRANCH AG26} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚Zÿ<žðK{PANELOFF}+B€æ¿*D€æ¿-E€æ¿~{PANELON}{RIGHT}{RECALC AF1}36ÿ{PANELOFF}+B9*D9-E9~{PANELON}{RIGHT}{RECALC AF1}$ÿ '{IF AG36=0}{LET B55,B55+AF26} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚Sÿ'{GETLABEL "ENTER THE SYMBOL FOR THE SECURITY:",STOCK}{RECALC AB31..AB32}{\4}:ÿ :žð+{IF AG36=1}{LET B55,B55-Iý¿å¿+AF26}3&ÿ {IF AG36=1}{LET B55,B55-I9+AF26} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚Mÿ6žð>{LET €â¿,STOCK}{IF @VALUE(STOCK)=0}{ERS}{BRANCH AB30}3<ÿ{LET $A$1,STOCK}{IF @VALUE(STOCK)=0}{ERS}{BRANCH AB30}/ÿ 5žð {LET Iý¿ä¿,AF26}{RETURN}3ÿ {LET I9,AF26}{RETURN} ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚šÿ.žð‹{PANELOFF}{RIGHT}+B€ã¿*D€ã¿~{LET AG33,AD1+2}{CONTENTS AG34,AG33}{RECALC AG35}{RECALC AB33}{IF AH10=1}-B€ã¿*D€ã¿~3nÿ{PANELOFF}{RIGHT}+B9*D9~{LET AG33,AD1+2}{CONTENTS AG34,AG33}{RECALC AG35}{RECALC AB33}{IF AH10=1}-B9*D9~ ò" ò ¢ ¢ ¢ ¢ ¢ ‚ ‚  ÿ '{RIGHT}{CMS}{BRANCH AB34}bÿ '{GETLABEL "HIT ENTER TO RETURN TO THE TOP OF PORTFOLIO:",AH22}{PANELOFF}/WTC{HOME}{PANELON} ÿ ò" ò! ¢! ¢! ¢! ¢! ¢! ‚! ‚!Rÿ!'{IF AG36=0}{LET AD1,AD1+1:VALUE}{CONTENTS AD2,AD1}{RECALC AD3}{RECALC AB35}ÿ !' 11 ò"! ò" ¢" ¢" ¢" ¢" ¢" ‚" ‚"Vÿ"'{LET TOTGAIN,@SUM(F4..F49)}{LET TOTCOST,@SUM(E4..E49)}{LET TOTAL,@SUM(H4..H49)}ÿ ".žð€ÿ¿m3ÿ "11 ò"" ò# ¢# ¢# ¢# ¢# ¢# ‚# ‚#Aÿ#'{IF AH36=1}{PCHG}{ONERROR G275}{PANELON}{PUP}{BRANCH C389} ÿ # ÿ!# ò"# ò$ ¢$ ¢$ ¢$ ¢$ ¢$ ‚$ ‚$Zÿ$'{IF AG36=1}{LET CASH,CASH-COST+I388}{PCHG}{ONERROR G275}{PANELON}{PUP}{BRANCH F391} ò"$ ‚'$ ò% ¢% ¢% ¢% ¢% ¢% ‚% ‚%˜ÿ%'{LET CASH,CASH-COST}{PCHG}{PANELON}{GETLABEL "HIT ENTER TO RETURN TO TOP OF PORTFOLIO:",AH22}{OFF}/wtc{HOME}{ONERROR G275}{ON}{SCK}{BRANCH A296}~ ò"% ò& ¢& ¢& ¢& ¢& ¢& ‚& ‚& ÿ&'\Bÿ&'{IF AH10=1}{BRANCH F357} ò"& ò' ¢' ¢' ¢' ¢' ¢' ‚' ‚'Ÿÿ''{HOME}{LET AF86,0}{LET AF53,0}{LET AL103,0}{LET AG43,""}{IF AG45=214}{GETLABEL "SORRY,NO MORE THAN 150 CAPITAL GAINS (HIT ENTER TO CONTINUE):",AH43}{\M}ÿ ''RES.TRUST ZERO ÿ!' ò"' ò( ¢( ¢( ¢( ¢( ¢( ‚( ‚(ˆÿ('{GETLABEL "ENTER THE SECURITY DESCRIPTION:",AG40}{INDICATE WAIT}{OFF}{LET AH40,4}{RECALC AG42}{IF AG40="\"#OR#AG40=""}{PSCHK}{\T}ÿ ('"ÿ!(' 9 ò"( ò) ¢) ¢) ¢) ¢) ¢) ‚) ‚)fÿ)'{CONTENTS AH41,AH40}{RECALC AH42}{RECALC AG43}{RECALC AG42}{RECALC AB43}{IF AD1=4}{BRANCH AB44}'ÿ )-žð€ÿ¿€þ¿€ÿ¿€€3ÿ )"RES.TRUST ZERO"ÿ!),ž ð€ÿ¿m3ÿ!)9 ò") ò* ¢* ¢* ¢* ¢* ¢* ‚* ‚*sÿ*'žðd{IF AH40<>AD1}{IF $A$€ÿ¿=€ÿ¿}{LET AM310,$G$€ÿ¿}{RECALC AB47..AB48}{BRANCH AB46}3^ÿ*{IF AH40<>AD1}{IF $A$9="RES.TRUST ZERO"}{LET AM310,$G$9}{RECALC AB47..AB48}{BRANCH AB46}ÿ*'ÿ *'ÿ!*' ò"* ò+ ¢+ ¢+ ¢+ ¢+ ¢+ ‚+ ‚+_ÿ+'{IF AH40=AD1}{GETLABEL "SECURITY WAS NOT FOUND, HIT ENTER TO CONTINUE:",AF43}{PSCHK}{\T} ò"+ ò, ¢, ¢, ¢, ¢, ¢, ‚, ‚,%ÿ,'{LET AH40,AH40+1}{BRANCH AB42}Zÿ,'{GETLABEL "USE BUYBACK SHORT TO DO THIS FUNCTION (HIT ENTER TO CONT):",AF43}{SHORT} ÿ ,? ò", ò- ¢- ¢- ¢- ¢- ¢- ‚- ‚-&ÿ-'{IF AL103=0}{LET AL104,0}{NCHK}ÿ -' 67 ò"- ò. ¢. ¢. ¢. ¢. ¢. ‚. ‚.gÿ."žðX{CONTENTS AG46,AG45}{RECALC AG47}{IF AH63=0}{PSELL}{IF E€û¿<0#AND#AH60=0}{SMSG}3Sÿ.{CONTENTS AG46,AG45}{RECALC AG47}{IF AH63=0}{PSELL}{IF E9<0#AND#AH60=0}{SMSG}ÿ .!ž ð€ÿ¿m3ÿ .67 ò". ò/ ¢/ ¢/ ¢/ ¢/ ¢/ ‚/ ‚/Tÿ/žðE{RECALC AB49..AB50}{IF AH63=0}{IF E€ú¿>=0#AND#AH60=1}{SLMSG}3@ÿ/{RECALC AB49..AB50}{IF AH63=0}{IF E9>=0#AND#AH60=1}{SLMSG} ò"/ ò0 ¢0 ¢0 ¢0 ¢0 ¢0 ‚0 ‚0Fÿ0žð7{IF AH63=0}{MENU}CA€ù¿..F€ù¿~A€þ¿~3#ÿ0{IF AH63=0}{MENU}CA9..F9~A67~\ÿ0'{GETLABEL "USE SELL TO EXIT THIS POSITION (HIT ENTER TO CONT):",AF43}{LET AH60,0}{\T} ÿ 0 ò"0ÿ1'------------------ÿ1'----------------ÿ1'----------------ÿ1'----------------ÿ1'----------------ÿ1'----------------ÿ1'----------------¢1'---------------ÿ1'---------------ÿ 1'--------------- ‚1 ‚1sÿ1žðd{RECALC AB51}{IF AF53=1}{LET B€ø¿,AG58}{LET E€ø¿,AH58}{RECALC F€ø¿..H€ø¿}3Gÿ1{RECALC AB51}{IF AF53=1}{LET B9,AG58}{LET E9,AH58}{RECALC F9..H9}ÿ 1' 10 ò"1ÿ2'SECURITY TOTAL ¢2 ¢2 ¢2 ‚2 ‚2<ÿ2žð-{IF AF53=0}{MENU}REA€÷¿..J€÷¿~3 ÿ2{IF AF53=0}{MENU}REA9..J9~6ÿ2'{IF AH63=1}{LET AH63,0}{INDICATE EDIT}{SECEDIT}ÿ 2žð€ÿ¿m3ÿ 210 ÿ!2'57 ÿ3'CASH ¢3 ‚3 ‚3ÿ3'{LET AG49,AH40+1}%ÿ3'{IF AH60=1}{LET AH60,0}{SHORT} ÿ!3'STKERRÿ4'---------------- ‚4 ‚4ÿ4'{CONTENTS AG50,AG49} ÿ4 ÿ!4ÿ5žð€¦� TOTAL3ÿ5PORT1 TOTALò5ïîîîÑ:à@7¢5 €ý¿€þ¿ ÿ5' CHANGE= ¢5'$0.00 ¢ 5 ¢5 ¢5 ‚5 ‚5ÿ5'{RECALC AG51} ÿ5'PSELLFÿ5'{GETLABEL "IS THE TRANSACTION FOR ALL THE SHARES? (Y/N):",AF54}ÿ5'Y ÿ 5 ÿ!5ÿ6'YTD COMMISSIONS= ¢6ÿ6' % CHG= ÿ6'0.00% ¢ 6 ‚6 ‚6ÿ6'{LET AG54,AD1} ÿ62(ÿ6'{IF AF54="Y"#OR#AF54="y"}{RETURN}ÿ 6' 10  ÿ!6'CLOSE ÿ7'DOW JONES INDUSTRIAL AVE. ÿ7R¸…kФ@ÿ7' CHANGE=ÿ7'0.00,0.00% ÿ7'IND ‚7 ‚7ÿ7'{CONTENTS AG55,AG54}4ÿ7'{IF AF54<>"N"#OR#AF54<>"n"}{ERS}{BRANCH AE54}ÿ 7ž ð€ÿ¿m3ÿ 710ÿ!7' ¢ 8 ¢8 ‚8 ‚8!ÿ8'{RECALC AG56}{RECALC AB58}zÿ8'{LET AF53,1}{IF AH60=0}{GETNUMBER "HOW MANY SHARES DO YOU WANT TO SELL:",AD55}{IF @ISERR(AD55)=1}{ERS}{BRANCH AE57} ‚9 ‚9eÿ9ž ðV{IF AF53=0}{MENU}CA€ù¿..J€þ¿~A€ð¿~{MENU}REA€þ¿..J€þ¿~35ÿ9{IF AF53=0}{MENU}CA10..J10~A9~{MENU}REA10..J10~qÿ9'{IF AH60=1}{GETNUMBER "HOW MANY SHARES DO YOU WANT TO BUYBACK:",AD55}{IF @ISERR(AD55)=1}{ERS}{BRANCH AE58} ÿ 92 ÿ!9€¸@ÿ:'------------------ÿ:'----------ÿ:'-----------ÿ:'--------------ÿ:'--------------ÿ:'---------------ÿ:'----------- ‚: ‚:?ÿ:'{IF AF53=0}{LET AD1,AD1-1}{CONTENTS AD2,AD1}{RECALC AD3}gÿ:'{RECALC AE60}{IF AD55=0}{GETLABEL "0 SHARES MEANS NO TRANSACTION (HIT ENTER TO CONT):",AD60}{\T} ÿ#:'{GU}ÿ;^DESCRIPTION ÿ;^DATE  ÿ;^DATEÿ;^GROSS SALE ÿ;^COSTÿ;^GAIN OR ÿ;^SELL ‚; ‚;ÿ;'{RECALC AB61..AB63}ÿ;'Uÿ;žðF{LET AG58,B€î¿-AD55}{LET AH58,E€î¿*(1-AD55/B€î¿)}31ÿ;{LET AG58,B9-AD55}{LET AH58,E9*(1-AD55/B9)} ÿ!;Yÿ";'{GETLABEL "UPDATE THE HQ FILES WITH DATA (HQ FILES MUST BE CURRENT)? (Y/N):",AJ60}ÿ#;'Yÿ<^ACQUIRED ÿ<^SOLD ÿ<^PRICE ÿ<^LOSSÿ<'COMMISSION ‚< ‚<4ÿ< žð%{LET TOTGAIN,@SUM(F4..F€Æ¿)}3 ÿ<{LET TOTGAIN,@SUM(F4..F9)}&ÿ<'{IF AG58=0}{LET AF53,0}{RETURN} ù!<ûŽÍv× à@$ÿ"<'{IF AJ60="n"#OR#AJ60="N"}{\U}ÿ='------------------ò='----------ò='-----------¢='--------------¢='--------------¢='---------------¢='----------- ‚= ‚=4ÿ= žð%{LET TOTCOST,@SUM(E4..E€Å¿)}3 ÿ={LET TOTCOST,@SUM(E4..E9)}eÿ='{RECALC AE63}{IF AG58<0}{GETLABEL "TOO MANY SHARES!!!(HIT ENTER TO CONT):",AD60}{BRANCH AE57}" ÿ!=ûŽÍv× à@hÿ"='{IF AJ60<>"Y"#OR#AJ60<>"y"}{GETLABEL "DATA ENTRY ERROR,HIT ENTER TO CONTINUE:",AJ60}{BRANCH AI60} ò> ò> ¢> ¢> ¢> ¢> ‚> ‚>^ÿ>žðO{LET TOTAL,@SUM(H4..H€Ä¿)}~{RECALC AB64}{IF AH63=1}{PCHG}{BRANCH B389}3Jÿ>{LET TOTAL,@SUM(H4..H9)}~{RECALC AB64}{IF AH63=1}{PCHG}{BRANCH B389}Rÿ>žðC{LET E€ë¿,E€ë¿*AD55/B€ë¿}{LET B€ë¿,AD55}3&ÿ>{LET E9,E9*AD55/B9}{LET B9,AD55} ÿ!>Iÿ">'{GETLABEL "ENTER THE DATE YOU WISH TO UPDATE (ENTER=TODAY):",AH62}ÿ?'------------------ò?'----------ò?'-----------¢?'--------------¢?'--------------¢?'---------------¢?'----------- ‚? ‚?…ÿ?ÿ�ðv{RECALC AB65..AB67}{IF AH60=1}{MENU}C$E$€ï¿~$D$€ï¿~{MENU}REE€ï¿~{LET D€ï¿,@ABS(D€ï¿)}3Vÿ?{RECALC AB65..AB67}{IF AH60=1}{MENU}C$E$67~$D$67~{MENU}REE67~{LET D67,@ABS(D67)}ÿ?'{RETURN} ÿ!?…ÿ"?'{DT}{INDICATE WAIT}{CONTENTS K1,AH61}{RECALC AI1}{LET AH64,AD1-3}{CONTENTS AH65,AH64}{LET AH65,@TRIM(AH65)}{RECALC AI65..AI68} ÿ@'TOTAL ò@ ò@ ¢@ ¢@ ¢@ ¢@ ¢ @ ¢@ ¢@ ¢@ ‚@ ‚@wÿ@û� ðh{MENU}REB€î¿~{IF AH60=0}{MENU}RED€î¿~{MENU}C$C$€î¿~$B$€î¿~{MENU}REC€î¿~3Hÿ@{MENU}REB67~{IF AH60=0}{MENU}RED67~{MENU}C$C$67~$B$67~{MENU}REC67~ÿ!@'3>ÿ"@ù�ð/{PANELOFF}{WINDOWSOFF}/RVK1~K1...Kÿ¿€~3*ÿ"@{PANELOFF}{WINDOWSOFF}/RVK1~K1...K3~ ÿ&@'DT òA òA ¢A ¢A ¢A ¢A ¢ A ¢A ¢A ¢A ‚A ‚AmÿAô�ð^{WINDOWSON}{GOTO}A60~{DOWN 3}/WTH{IF AH60=1}{GOTO}A€í¿~{GOTO}B€í¿~{BRANCH AB68}3SÿA{WINDOWSON}{GOTO}A60~{DOWN 3}/WTH{IF AH60=1}{GOTO}A67~{GOTO}B67~{BRANCH AB68} ÿ!Aÿ"A'{GOTO}N1~/ÿ&A'{IF AH62=""}{LET AH62,@NOW}{BRANCH AM68} òB òB ¢B ¢B ¢B ¢B ¢ B ¢B ¢B ¢B ‚B ‚B4ÿBó�ð%{GOTO}A€ì¿~{GOTO}C€ì¿~3ÿB{GOTO}A67~{GOTO}C67~ ÿ!B'24ÿ"B'+@STRING(D4,2)~'ÿ$Bû¿6€I*;!ÿ&B'{IF AH62="\"}{BRANCH AI60} òC òC ¢C ¢C ¢C ¢C ¢ C ¢C ¢C ¢C ‚C ‚C"ÿC'{RECALC AF1}{INDICATE SELL}ÿC'{RECALC AF69..AF70} ÿ!Cfÿ"Cï� ðW{MENU}CN1~N1..Nÿ€ý¿~{CONTENTS Nÿ€ý¿,DOW}{LET Nÿ€ý¿,@TRIM(Nÿ€ý¿)}3:ÿ"C{MENU}CN1~N1..N3~{CONTENTS N3,DOW}{LET N3,@TRIM(N3)}Gÿ&C'{LET AH61,@DATEVALUE(AH62)}{IF @ISERR(AH61)=1}{ERS}{BRANCH AI63} ¢D ¢D ¢D ¢ D ¢D ¢D ¢D ‚D ‚D”ÿD'{IF AH60=1}{GETLABEL "ENTER THE DATE THE SHORT POSITION WAS EXITED (MM/DD/YY):",DATE}/RFD~~{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH AB69}<ÿDí�ð-{IF @TRIM(G€ê¿)=@TRIM(AH69)}{RETURN}3)ÿD{IF @TRIM(G67)=@TRIM(AH69)}{RETURN} ÿ!D'NA!ÿ"D'{HOME}{PANELON}{WINDOWSON}ÿ&D'{RETURN} ò'D ¢ E ¢E ¢E ¢E ‚E ‚E‡ÿE'{IF AH60=0}{GETLABEL "ENTER THE SECURITY DATE OF SALE (MM/DD/YY):",DATE}/RFD~~{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH AB70}FÿEê�ð7{IF AM166=0#AND#AH86=1}{LET G€é¿,AH69}{RETURN}33ÿE{IF AM166=0#AND#AH86=1}{LET G67,AH69}{RETURN}ÿ"E'{LET AH71,4}{LET AH73,1}ÿ%E'"ÿ&E'5 ¢ F ¢F ¢F ¢F ‚F ‚F5ÿF'{CONTENTS AH17,AH16}{RECALC AH18}{RECALC AB72} ÿFŽÿF'{CMS3}{IF AM166=0}{RIGHT}{ON}{GETLABEL "ENTER THE BROKERAGE SELL COMMISSION:",AE71}/RFC~~{IF AE71="\"}{LEFT 4}{LET AH68,1}{BRANCH AB73} ÿ!FMÿ"F'{LET AM70,AH72}{CONTENTS AH72,AH71}{LET AH72,@TRIM(AH72)}{RECALC AI72}ÿ&F'3 ¢ G ¢G ¢G ¢G ‚G ‚GDÿGç�ð5{LET €¹¿,€Ê¿}{RECALC AB73}{LET AH68,0}3/ÿG{LET $A$1,33052}{RECALC AB73}{LET AH68,0} ÿG`ffffòw@IÿG'{LET AE71,@VALUE(AE71)}{IF @ISERR(AE71)=1}{ERS}{LEFT}{BRANCH AF71}ÿ!G'6Šÿ"Gá�ð{{CONTENTS AH74,AH73}{LET AH74,@TRIM(AH74)}{RECALC AI73}{IF AH71<>4#AND#AH71<>AD1}{IF G€þ¿=Gÿ¿€}{BRANCH AI82}3nÿ"G{CONTENTS AH74,AH73}{LET AH74,@TRIM(AH74)}{RECALC AI73}{IF AH71<>4#AND#AH71<>AD1}{IF G5=G6}{BRANCH AI82} ¢ H ¢H ¢H ¢H ‚H ‚H?ÿH'{RIGHT}{IF AH60=1}{RIGHT 2}{IF AH68=1}{LET AH68,0}{LEFT}TÿH'{LET B55,B55+AE71}{RECALC AF74}{IF AM166=1}{LET CASH,CASH+AE72-AM157}{RETURN} ÿ!H€ÿ"HÜ�ðq{INDICATE €ý¿UPDATE€ý¿}{IF AH71<>AD1}{LET AH79,Aÿ¿ÿ¿}{LET AH81,Gÿ¿ÿ¿}{RECALC AI74..AI81}3Tÿ"H{INDICATE "UPDATE"}{IF AH71<>AD1}{LET AH79,A6}{LET AH81,G6}{RECALC AI74..AI81} ¢ I ¢I ¢I ¢I ‚I ‚IÿI'{RECALC AF1}/ÿIÚ� ð {LET G€å¿,AE71}{RETURN}3ÿI{LET G67,AE71}{RETURN}ÿ!I'3Xÿ"I'{IF AH71=AD1}{LET AH79,"THE DJIA"}{LET AH81,AH79}{RECALC AI75..AI82}{BRANCH AI76} ¢ J ¢J ¢J ¢J ‚J ‚J|ÿJ'{IF AH60=1}{GETLABEL "ENTER THE COST OF THE SHORT BUYBACK:",COST}/RFC~~{IF COST="\"}{LEFT 3}{RECALC AF1}{BRANCH AB69}%ÿ!J'{GETLABEL "ENTER THE HIGH FOR Mÿ"J×�ð>{LET AF121,Gÿ¿ý¿}{RECALC AK67}{IF AK67=1}{BRANCH AI82}39ÿ"J{LET AF121,G6}{RECALC AK67}{IF AK67=1}{BRANCH AI82} ¢ K ¢K ¢K ¢K ‚K ‚K|ÿK'{IF AH60=1}{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB79}{IF @ISERR(COST)=1}{ERS}{BRANCH AB75}$ÿ!K'{GETLABEL "ENTER THE LOW FOR !ÿ"KÔ�ðÿ¿ÿ¿ÿ¿€ÿ¿€34ÿ"K{GETLABEL "ENTER THE HIGH FOR THE DJIA:",AM71} ¢ L ¢L ¢L ¢L ‚L ‚LqÿL'{IF AH60=0}{GETLABEL "ENTER THE TOTAL SALE PRICE:",COST}/RFC~~{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB70}'ÿ!L'{GETLABEL "ENTER THE VOLUME FOR 'ÿ"LÓ� ð{LET Lÿ¿ý¿,AM71}3ÿ"L{LET L3,AM71} ¢ M ¢M ¢M ¢M ‚M ‚M|ÿM'{IF AH60=0}{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB79}{IF @ISERR(COST)=1}{ERS}{BRANCH AB77} ÿ MDÿ!M':",AM71}!ÿ"MÐ� ðÿ¿þ¿ÿ¿€ÿ¿€33ÿ"M{GETLABEL "ENTER THE LOW FOR THE DJIA:",AM71} ¢ N ¢N ¢N ¢N ‚N ‚N+ÿNÏ� ð{LET €²¿,€É¿}3ÿN{LET $A$1,6070.5}ÿ N' 68 ÿ!N'THE DJIA7ÿ"NÍ� ð({LET Mÿ¿û¿,AM71}{IF AH83=1}{REC}3#ÿ"N{LET M3,AM71}{IF AH83=1}{REC} ¢ O ¢O ¢O ¢O ‚O ‚O-ÿO'{RECALC AB81}{RIGHT}{IF AH60=0}{RIGHT}ÿ OÍ�ð€ÿ¿m3ÿ O68ÿ!O'{GETLABEL "IS !ÿ"OÊ�ðÿ¿ý¿ÿ¿ÿ¿ÿ¿þ¿36ÿ"O{GETLABEL "ENTER THE VOLUME FOR THE DJIA:",AM71} ¢ P ¢P ¢P ¢P ‚P ‚P™ÿPÃ�ðŠ{LET F€Þ¿,D€Þ¿-E€Þ¿}/RFC~F€Þ¿~{LET AE72,F€Þ¿}{WAIT @NOW+@TIME(0,0,1)}{CMS2}{IF AM166=1}{LET AG45,AM361-1}3jÿP{LET F67,D67-E67}/RFC~F67~{LET AE72,F67}{WAIT @NOW+@TIME(0,0,1)}{CMS2}{IF AM166=1}{LET AG45,AM361-1}ÿ!P'THE DJIA-ÿ"PÂ� ð{LET Oÿ¿ù¿,AM71}{ISOK}3ÿ"P{LET O3,AM71}{ISOK} ¢ Q ¢Q ¢Q ¢Q ‚Q ‚QžÿQ'{LET AG86,AG47}{LET AG45,AG45+1}{CONTENTS AG46,AG45}{RECALC AG47}{LET AG88,AG45+2}{CONTENTS AG89,AG88}{LET AG89,@TRIM(AG89)}{IF AH60=1}{LET COST,-COST}ÿ!Q':",AJ60}!ÿ"Q'{IF AH71=AD1}{BRANCH AI85} ¢ R ¢R ¢R ¢R ‚R ‚RuÿR'{LET AG78,AG45+1}{CONTENTS AG79,AG78}{RECALC AG80}{RECALC AB84}{IF AM166=1}{PANELOFF}{WINDOWSOFF}{BRANCH AB85} ÿ!R)ÿ"R'{LET AH71,AH71+1}{LET AH73,AH73+1} ¢ S ¢S ¢S ¢S ‚S ‚SˆÿS½�ðy{RECALC AB85}{PANELOFF}{WINDOWSOFF}{IF AF86=0}{MENU}CA€Û¿..G€Û¿~A€ü¿~{MENU}REA€Û¿..G€Û¿~3YÿS{RECALC AB85}{PANELOFF}{WINDOWSOFF}{IF AF86=0}{MENU}CA67..G67~A68~{MENU}REA67..G67~&ÿ!S'{GETLABEL "ENTER THE CLOSE FOR ÿ"S'{RESTART}{BRANCH AI71} ¢ T ¢T ¢T ¢T ‚T ‚T:ÿT»�ð+{GOTO}A63~{GOTO}A€€~{RECALC AB86}3'ÿT{GOTO}A63~{GOTO}A66~{RECALC AB86} ÿT'GBACKIÿT'{IF AG91="\"}{ON}{LET AF86,1}{LET AG45,AG45-1}{LET CASH,CASH-COST}ÿ"T'{LET G257,0}{\l} ¢ U ¢U ¢U ¢U ‚U ‚UiÿU·�ðZ{LET D€€,@SUM(D63..D€Ù¿)}{LET A€€,AG87}/RFC~D€€..F€€~3:ÿU{LET D69,@SUM(D63..D67)}{LET A69,AG87}/RFC~D69..F69~/ÿU'{IF AG91="\"}{RIGHT 3}{IF AH60=1}{RIGHT} ÿU ÿ U'66 ÿ!U ÿ#U ÿ$U'NOT TRADEDÿ%U'1ÿ&U' 0 ¢ V ¢V ¢V ¢V ‚V ‚VÿV'{RECALC AB88..AB89}BÿV'{IF AG91="\"}{CONTENTS AG46,AG45}{RECALC AG47}{BRANCH AB75} ÿ V'TOTAL ÿ&V'12 ¢ W ¢W ¢W ¢W ‚W ‚W8ÿW¶�ð){LET E€€,@SUM(E63..E€×¿)}3ÿW{LET E69,@SUM(E63..E67)}ÿW'{RETURN} ÿ WE ¢ X ¢X ¢X ¢X ‚X ‚XUÿX²�ðF{RECALC AB90..AB91}{GOTO}A€ý¿~{GOTO}A€€~{UP 3}{DOWN 3}3;ÿX{RECALC AB90..AB91}{GOTO}A66~{GOTO}A69~{UP 3}{DOWN 3} ÿ X'69 ¢ Y ¢Y ¢Y ¢Y ‚Y ‚YgÿY®�ðX{LET F€ÿ¿,@SUM(F63..F€Õ¿)}{IF AH86=1}{PCHG}{ON}{LET AH86,0}{BRANCH AI168}3MÿY{LET F69,@SUM(F63..F67)}{IF AH86=1}{PCHG}{ON}{LET AH86,0}{BRANCH AI168} ¢ Z ¢Z ¢Z ¢Z ‚Z ‚Z!ÿZ'{LET CASH,CASH+COST}{PCHG}ÿ Z'|ÿ!Zðm{IF N€û¿=AK86#OR#@VALUE(N€û¿)=0}{LET O€û¿,AM86}{MENU}CN€û¿~L€û¿..N€û¿~ ¢ [ ¢[ ¢[ ¢[ ‚[ ‚[gÿ['{IF AH60=1}{GETLABEL "HIT ENTER TO RETURN TO THE PORTFOLIO WINDOW:",AG91}/wtc{HOME}{BRANCH G357} ¢ \ ¢\ ¢\ ¢\ ‚\ ‚\eÿ\'{GETLABEL "HIT ENTER TO RETURN TO THE PORTFOLIO WINDOW:",AG91}/wtc{home}{PANELON}{BRANCH B296} ¢ ] ¢] ¢] ¢] ‚] ‚] ÿ]'UPDATE ¢ ^ ¢^ ¢^ ¢^ ‚^ ‚^yÿ^'{LET COST,0}{HOME}{OFF}{GOTO}A4~/WTH{GOTO}D4~{ON}{LET AG99,AD1-1}{CONTENTS AG100,AG99}{RECALC AG101}{RECALC AB103}.ÿ^'{GETLABEL "ENTER THE CLOSING PRICE FOR ¢ _ ¢_ ¢_ ¢_ ‚_ ‚_5ÿ_'{LET AG49,@CELLPOINTER("ROW")}{LET AG102,AG51} ÿ_'SWTR-ÿ _':",COST}{IF COST="\"}{UP}{BRANCH AB96} ¢ ` ¢` ¢` ¢` ‚` ‚`5ÿ`'{CONTENTS AG50,AG49}{RECALC AG51}{RECALC AB98}3ÿ `':",COST}{IF COST="\"}{OFF}/WTC{HOME}{ON}{\U} ÿ#`'EMV ¢ a ¢a ¢a ¢a ‚a ‚a]ÿa¥� ðN{AQS}{LET AE96,+A€Ñ¿}{RECALC AB98..AB99}{IF AG49=4}€ý¿€þ¿€ÿ¿3�ÿa{AQS}{LET AE96,+A10}{RECALC AB98..AB99}{IF AG49=4}{GETLABEL "ENTER THE CLOSING PRICE FOR SWTR:",COST}{IF COST="\"}{OFF}/WTC{HOME}{ON}{\U}ÿ a'{IF AG49<>4}Ýÿ"a'{PANELOFF}{WINDOWSOFF}{LET AO4,@NA}{GOTO}AO5~+(((S5+T5)/2)-((S4+T4)/2))*(S5-T5)/(V5+100)~{IF J361<17}{GETLABEL "NOT ENOUGH DATA FOR CALCULATION (HIT ENTER TO CONT):",AK98}{HOME}{ON}{INDICATE ANLYZ}{MENUBRANCH A403} ¢ b ¢b ¢b ¢b ‚b ‚b'ÿbŸ�ð€ÿ¿€ü¿€ý¿€ý¿3cÿb{IF AG49<>4}{GETLABEL "ENTER THE CLOSING PRICE FOR SWTR:",COST}{IF COST="\"}{UP}{BRANCH AB96} ÿ bZÿ"bœ�ðK{RECALC AI99..AI101}{MENU}CAO5~AO5..AOç¿�~/RVAO5..AOç¿�~AO5~3Bÿ"b{RECALC AI99..AI101}{MENU}CAO5~AO5..AO267~/RVAO5..AO267~AO5~ ¢ c ¢c ¢c ¢c ‚c ‚cCÿc'{LET COST,@VALUE(COST)}{IF @ISERR(COST)=1}{ERS}{BRANCH AB98}ÿ c' 5 )ÿ"c'{LET AP4,@NA}{MENU}CAP4~AP4..AP15~ ¢ d ¢d ¢d ¢d ‚d ‚d6ÿd'{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB102}ÿd'HEWLETT PACKARDÿ d›� ð€ÿ¿m3ÿ d5ˆÿ"d”�ðy{RECALC AI102}{GOTO}AP16~+@AVG(AO4..AO16)~{MENU}CAP16~AP16..APç¿�~/RVAP16..APç¿�~AP16~{HOME}{RECALC AI102}3pÿ"d{RECALC AI102}{GOTO}AP16~+@AVG(AO4..AO16)~{MENU}CAP16~AP16..AP267~/RVAP16..AP267~AP16~{HOME}{RECALC AI102} ¢ e ¢e ¢e ¢e ‚e ‚e,ÿe“� ð{LET D€Í¿,€²¿}3ÿe{LET D10,6070.5}ÿ e'4zÿ"eŽ� ðk/gRGTLXR4..Rç¿�~AAP4..APç¿�~OTSý¿l€~TFEASE OF MOVEMENT~TXDATE~TYEMV~GHFGLQCSSà¿Ò€~3Uÿ"e/gRGTLXR4..R267~AAP4..AP267~OTSIBM~TFEASE OF MOVEMENT~TXDATE~TYEMV~GHFGLQCSS81~ ¢ f ¢f ¢f ¢f ‚f ‚fAÿfŒ�ð2{IF AG49=€þ¿}{RECALC AB105}{BRANCH AB105}3-ÿf{IF AG49=5}{RECALC AB105}{BRANCH AB105} ÿ#f ÿ$f'9 ÿ%f ¢ g ¢g ¢g ¢g ‚g ‚g#ÿg'{DOWN}{RESTART}{BRANCH AB96}|ÿg'{OFF}{WINDOW}{GOTO}DOW~{ON}{GETLABEL "ENTER THE PRICE FOR THE DJIA:",COST}{IF COST="\"}{OFF}{WINDOW}{ON}{BRANCH AB99}oÿ gˆ�ð`{RECALC AG104}{IF AG49<>4}{IF G€Ë¿=G€þ¿}{LET D€Ë¿,D€þ¿}{BRANCH AB103}3Eÿ g{RECALC AG104}{IF AG49<>4}{IF G10=G4}{LET D10,D4}{BRANCH AB103} ÿ!g"NCHKÿ"g'{LET AJ103,4} ÿ%g ¢ h ¢h ¢h ¢h ‚h ‚h/ÿh†�ð {RECALC F4..H€š¿}{UDOW}3ÿh{RECALC F4..H9}{UDOW}Dÿh'{LET COST,@VALUE(COST)}{IF @ISERR(COST)=1}{ERS}{BRANCH AE104}Cÿ"h'{CONTENTS AK103,AJ103}{LET AK103,@TRIM(AK103)}{RECALC AI106} ¢ i ¢i ¢i ¢i ‚i ‚iÿi'{RECALC AB107..AB109}9ÿi'{LET AG160,DOW}{LET DOW,COST}{LET AH155,DOW-AG160}?ÿ"i…�ð0{IF G€ý¿=Gÿ€À¿}{LET AL103,AL103+1}3#ÿ"i{IF G9=G9}{LET AL103,AL103+1} ¢ j ¢j ¢j ¢j ‚j ‚j4ÿjƒ�ð%{LET TOTGAIN,@SUM(F4..F€˜¿)}3 ÿj{LET TOTGAIN,@SUM(F4..F9)}zÿj'{CONTENTS AH156,AH155,15,2}{RECALC AH157}{RECALC AG155}{CONTENTS AG154,AG155}{LET AG154,@TRIM(AG154)}{RECALC AG156}%ÿ"j'{IF AJ103=AD1-1}{BRANCH AI109}&ÿ%j‚�ð#AND#C!)=AH163ÿ%j#AND#C9=AH16 ¢ k ¢k ¢k ¢k ‚k ‚k4ÿk€� ð%{LET TOTCOST,@SUM(E4..E€—¿)}3 ÿk{LET TOTCOST,@SUM(E4..E9)}/ÿk'{LET DOWCHG,AG156}{WINDOW}{BRANCH AB106}(ÿ"k'{LET AJ103,AJ103+1}{BRANCH AI105}&ÿ%k� ð#AND#C!)=AH163ÿ%k#AND#C9=AH16 ¢ l ¢l ¢l ¢l ‚l ‚l2ÿl~�ð#{LET TOTAL,@SUM(H4..H€–¿)}3ÿl{LET TOTAL,@SUM(H4..H9)}ÿ"l'{IF AL103=1}{RETURN}ÿ%l' ¢ m ¢m ¢m ¢m ‚m ‚m-ÿm'{OFF}{WINDOW}{GOTO}A51~{GOTO}CASH~{ON}ˆÿ"m'{IF AL103>=2}{GETLABEL "ENTER THE SECURITY DATE OF PURCHASE (MM/DD/YY):",DATE}{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH AI110} ¢ n ¢n ¢n ¢n ‚n ‚nuÿn'{IF D292=0}{GETLABEL "ENTER THE AMOUNT OF CASH IN YOUR PORTFOLIO:",COST}{IF D292=0}{IF COST="\"}{WINDOW}{UDOW}>ÿ"n'{IF AL104=0}{MENU}CAL107~AG43~{LET AH40,4}{BRANCH AB42} ¢ o ¢o ¢o ¢o ‚o ‚oPÿo'{IF D292=1}{GETNUMBER "ENTER THE AMOUNT OF CASH IN YOUR PORTFOLIO:",COST}Gÿ"o'{IF AL104=1}{OFF}{MENU}CAL108~E383~{ON}{LET AH40,4}{BRANCH F384} ¢ p ¢p ¢p ¢p ‚p ‚pDÿp'{LET COST,@VALUE(COST)}{IF @ISERR(COST)=1}{ERS}{BRANCH AB111} ¢ q ¢q ¢q ¢q ‚q ‚qÿq'{LET CASH,COST}{\Q} ÿ#q'REC ¢ r ¢r ¢r ¢r ‚r ‚rKÿr'{OFF}{IF D292=0}{WINDOW}/WTC{HOME}{ON}{PSAVE}{INDICATE "UPDATE"}{GU}ÿ"r'{RECALC AI116..AI117} ¢ s ¢s ¢s ¢s ‚s ‚s-ÿs'{WINDOW}/WTC{HOME}{ON}{LET D292,0}{\T}!ÿ"s{�ðÿ€à¿ÿ€Û¿ÿ€Ú¿35ÿ"s{GETLABEL "ENTER THE CLOSE FOR THE DJIA:",AM71} ¢ t ¢t ¢t ¢t ‚t ‚t'ÿ"tz�ð{LET Nÿ€Õ¿,AM71}3ÿ"t{LET N3,AM71} ¢ u ¢u ¢u ¢u ‚u ‚u ùuÿ"u'{LET AH83,0} ¢ v ¢v ¢v ¢v ‚v ‚vÿ!vy�ð 3ÿ!v ¢ w ¢w ¢w ¢w ‚w ‚w ÿ"w'ISOKÿ#w'3ÿ$w'3 ÿ%w'2602ÿ&w'3 ¢ x ¢x ¢x ¢x ‚x ‚x ÿx'SWTRÿ"x'{RECALC AI122} ¢ y ¢y ¢y ¢y ‚y ‚yÿ!y'*xÿ"yu�ði{LET AJ120,Lÿ¿Ð¿}{LET AK120,Mÿ¿Ð¿}{LET AL120,Nÿ¿Ð¿}{LET AM120,Oÿ¿Ð¿}{RECALC AI123}3Lÿ"y{LET AJ120,L3}{LET AK120,M3}{LET AL120,N3}{LET AM120,O3}{RECALC AI123} ¢ z ¢z ¢z ¢z ‚z ‚z]ÿ"zq� ðNÿ¿Õ¿ÿ¿Ö¿ H=€ý¿,L=€ý¿,C=€ý¿,V=€ý¿ OK (Y/N)ÿ¿×¿3@ÿ"z{GETLABEL "IS THE DJIA H=3,L=3,C=2602,V=3 OK (Y/N):",AJ60} ¢ { ¢{ ¢{ ¢{ ‚{ ‚{-ÿ"{'{IF AJ60="Y"#OR#AJ60="y"}{BRANCH AI82} ¢ | ¢| ¢| ¢| ‚| ‚|9ÿ"|'{IF AJ60="N"#OR#AJ60="n"}{LET AH83,1}{BRANCH AI76} ¢ } ¢} ¢} ¢} ‚} ‚}iÿ"}'{IF AJ60<>"Y"#OR#AJ60<>"y"}{GETLABEL "DATA ENTRY ERROR,HIT ENTER TO CONTINUE:",AJ60}{BRANCH AI122} ¢ ~ ¢~ ¢~ ¢~ ‚~ ‚~ ¢  ¢ ¢ ¢ ‚ ‚ ¢ € ¢€ ¢€ ¢€ ‚€ ‚€ ¢ � ¢� ¢� ¢� ‚� ‚� ¢ ‚ ¢‚ ¢‚ ¢‚ ‚‚ ‚‚ ¢ ƒ ¢ƒ ¢ƒ ¢ƒ ‚ƒ ‚ƒ ù ƒ ¢ „ ¢„ ¢„ ¢„ ‚„ ‚„ ¢ … ¢… ¢… ¢… ‚… ‚… ÿ$…'10 ÿ%…'51.125 ¢ † ¢† ¢† ¢† ‚† ‚† ÿ"† ÿ#†ÿÿ ÿ$†  ÿ%†�I@ ¢ ‡ ¢‡ ¢‡ ¢‡ ‚‡ ‚‡ ÿ"‡'POINTS ÿ#‡  ÿ$‡'267 ÿ%‡  ÿ&‡'266 ¢ ˆ ¢ˆ ¢ˆ ¢ˆ ‚ˆ ‚ˆQÿ"ˆ'{PANELOFF}{LET AK135,1}{LET AL135,0}{RECALC AI139..AI140}{BLANK Z4..Z8192} ¢ ‰ ¢‰ ¢‰ ¢‰ ‚‰ ‚‰)ÿ"‰'{LET AJ136,G418+1}{LET AL136,G418} ¢ Š ¢Š ¢Š ¢Š ‚Š ‚Šnÿ"Šm�ð_{IF Uå¿�>(100+AI135)*.01*ã¿�å¿�}{LET Zå¿�,B}{LET AJ135,1}{BRANCH AI141}3Hÿ"Š{IF U53>(100+AI135)*.01*K53}{LET Z53,B}{LET AJ135,1}{BRANCH AI141} ¢ ‹ ¢‹ ¢‹ ¢‹ ‚‹ ‚‹2ÿ"‹k� ð#{LET AJ135,-1}{LET Zå¿�,S}3ÿ"‹{LET AJ135,-1}{LET Z53,S} ¢ Œ ¢Œ ¢Œ ¢Œ ‚Œ ‚Œxÿ"Œ'{CONTENTS AK136,AJ136}{LET AK136,@TRIM(AK136)}{CONTENTS AM136,AL136}{LET AM136,@TRIM(AM136)}{RECALC AI142..AI145} ¢ � ¢� ¢� ‚� ‚�Eÿ"�i�ð6{IF AJ135=1}{LET AL135,AL135+U€ú¿-U€ú¿}3-ÿ"�{IF AJ135=1}{LET AL135,AL135+U267-U266} ¢ Ž ¢Ž ¢Ž ‚Ž ‚ŽFÿ"Žf� ð7{IF AJ135=-1}{LET AL135,AL135+U€ù¿-U€ù¿}3.ÿ"Ž{IF AJ135=-1}{LET AL135,AL135+U266-U267} ¢ � ¢� ¢� ‚� ‚�€ÿ"�a�ðq{IF AJ135=1}{IF U€ø¿<(100-AI135)*.01*ã¿�€ø¿}{LET AJ135,-1}{LET Z€ø¿,S}{LET AK135,AK135+1}3]ÿ"�{IF AJ135=1}{IF U267<(100-AI135)*.01*K267}{LET AJ135,-1}{LET Z267,S}{LET AK135,AK135+1} ‚� ‚�€ÿ"�[� ðq{IF AJ135=-1}{IF U€÷¿>(100+AI135)*.01*ã¿�€÷¿}{LET AJ135,1}{LET Z€÷¿,B}{LET AK135,AK135+1}3]ÿ"�{IF AJ135=-1}{IF U267>(100+AI135)*.01*K267}{LET AJ135,1}{LET Z267,B}{LET AK135,AK135+1}ÿ ‘'PORTFOLIO NAMES ‚‘ ‚‘$ÿ"‘'{IF AJ136=J361}{BRANCH AI148}ÿ ’'--------------- ‚’ ‚’ ÿ!’;ÿ"’'{LET AJ136,AJ136+1}{LET AL136,AL136+1}{BRANCH AI141}ÿ “'NO PORTFOLIOS NAMED ‚“ ‚“cÿ"“'{CONTENTS AK134,AK135}{LET AK134,@TRIM(AK134)}{CONTENTS AL134,AL135}{LET AL134,@TRIM(AL134)}Nÿ%“'{RECALC AL149}{IF AM166=1}{LET AM166,0}{LET AG45,AM361}/WTC{ON}{CGEDIT} ‚” ‚”Aÿ%”Y�ð2{MENU}WTC/REAû¿š¿..Gû¿š¿~{ON}{CGEDIT}3'ÿ%”{MENU}WTC/REA67..G67~{ON}{CGEDIT} ‚• ‚•ÿ"•'ENTERCG ‚– ‚–6ÿ"–'{CONTENTS AG46,AG45}{RECALC AG47}{RECALC AI152} ‚— ‚—�ÿ"—S�ðr{OFF}{GOTO}A60~{GOTO}A63~{WAIT @NOW+@TIME(0,0,1)}{OFF}/WTH{GOTO}Aþ¿—¿~{RECALC AI154}{LET AM157,Fþ¿—¿}3gÿ"—{OFF}{GOTO}A60~{GOTO}A63~{WAIT @NOW+@TIME(0,0,1)}{OFF}/WTH{GOTO}A67~{RECALC AI154}{LET AM157,F67} ‚˜ ‚˜² ˜Î¡‚¨Þ:? €€€€  ¢!˜%@Mÿ"˜'{WINDOWSON}{GETLABEL "ENTER THE SECURITY:",STOCK}{IF STOCK="\"}{EDCHK} ‚™ ‚™ ÿ ™'0.01%4ÿ"™Q� ð%{CGA}{LET Aþ¿•¿,STOCK}{RIGHT}3!ÿ"™{CGA}{LET A67,STOCK}{RIGHT} ‚š ‚š² š €€€€  ÿ!šsÿ"š'{GETLABEL "ENTER THE DATE OF PURCHASE (MM/DD/YY):",DATE}/RFD~~{RECALC AH16}{IF DATE="\"}{LEFT}{BRANCH AI153} ‚› ‚›ÿ ›P� ð€€,€þ¿3ÿ ›$10.50,0.01%ÿ!›' $10.50 _ÿ"›'{CGB}{CONTENTS AH17,AH16}{RECALC AH18}{RECALC AI157}{IF @ISERR(AH16)}{ERS}{BRANCH AI155})ÿ%›'{IF STOCK=""}{RIGHT}{BRANCH AI155} ‚œ ‚œÿ!œP�ð€ÿ¿m3 ÿ!œ$10.503ÿ"œN� ð${LET Bþ€’¿,ÿ€u¿}{RIGHT}3ÿ"œ{LET B67,33052}{RIGHT} ÿ&œ ‚� ‚�oÿ"�'{GETLABEL "ENTER THE DATE OF SALE (MM/DD/YY):",DATE}/RFD~~{RECALC AH16}{IF DATE="\"}{LEFT}{BRANCH AI155}(ÿ%�'{IF DATE=""}{RIGHT}{BRANCH AI158} ‚ž ‚žnÿ"ž'{CGF}{RECALC AH16}{CONTENTS AH17,AH16}{RECALC AH18}{RECALC AI160}{IF @ISERR(AH16)=1}{ERS}{BRANCH AI158} ‚Ÿ ‚Ÿ ÿ ŸQ¸…óÍ÷@3ÿ"ŸM�ð${LET Cþ€�¿,ÿ€r¿}{RIGHT}3ÿ"Ÿ{LET C67,33052}{RIGHT}(ÿ%Ÿ'{IF DATE=""}{RIGHT}{BRANCH AI161} ‚  ‚ [ÿ" '{GETLABEL "ENTER THE TOTAL SALE PRICE:",COST}/RFC~~{IF COST="\"}{LEFT}{BRANCH AI158} ‚¡ ‚¡xÿ"¡'{CGD}{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AI163}{IF @ISERR(COST)=1}{ERS}{BRANCH AI161}(ÿ%¡'{IF COST=""}{RIGHT}{BRANCH AI164} ‚¢ ‚¢3ÿ"¢K� ð${LET Dþ€Œ¿,þ€u¿}{RIGHT}3ÿ"¢{LET D67,6070.5}{RIGHT} ‚£ ‚£_ÿ"£'{GETLABEL "ENTER THE COST OF THE SECURITY:",COST}/RFC~~{IF COST="\"}{LEFT}{BRANCH AI161}ÿ$£'2!ÿ%£'{IF COST=""}{BRANCH AI167} ‚¤ ‚¤vÿ¤'{RECALC F4..F49}{RECALC H4..H49}{LET TOTGAIN,@SUM(F4..F49)}{LET TOTCOST,@SUM(E4..E49)}{LET TOTAL,@SUM(H4..H49)}xÿ"¤'{CGE}{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AI166}{IF @ISERR(COST)=1}{ERS}{BRANCH AI164}ÿ$¤'{IF AM166=0}{RETURN} ‚¥ ‚¥Sÿ¥'{LET AG160,ALL}{RECALC ALL}{LET AH153,ALL-AG160}{CONTENTS AH156,AH153,15,34},ÿ"¥J� ð{LET Eþ¿‰¿,þ¿r¿}3ÿ"¥{LET E67,6070.5}{ÿ$¥'{LET AE71,0}{RIGHT}{GETLABEL "ENTER THE BROKERAGE SELL COMMISSION:",AK164}/RFC~~{IF AK164="\"}{LEFT 2}{BRANCH AI164} ÿ&¥ ‚¦ ‚¦yÿ¦'{RECALC AH157}{RECALC AG153}{CONTENTS AG154,AG153}{LET AG154,@TRIM(AG154)}{IF @TRIM(AG154)="ERR"}{LET AG154,"NA%"}4ÿ"¦'{RIGHT}{RECALC AB81}{LET AH86,1}{BRANCH AB81}ÿ$¦'{IF AK164=""}{RETURN} ‚§ ‚§[ÿ§'{LET ALLCHG,AH157}{LET F55,AG154}{RECALC TODAY}{RECALC J4..J49}{RECALC A51..J58}{ON}kÿ"§'{GETLABEL "HIT ENTER TO RETURN TO PORTFOLIO WINDOW:",AM168}{IF AM166=1}{LET AG45,AM361}{LET AM166,0}bÿ$§'{LET AK164,@VALUE(AK164)}{RECALC AK169..AK170}{IF @ISERR(AK164)=1}{ERS}{LEFT}{BRANCH AK166}ÿ&§' ‚¨ ‚¨ ÿ¨'\F"ÿ"¨'{OFF}/WTC{HOME}{ON}{CGEDIT}0ÿ$¨I�ð!{LET B55,B55+AK164-G .}3ÿ$¨{LET B55,B55+AK164-G67} ‚© ‚©Kÿ©'{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}{LET AE170,AD1-1}{RECALC AG170} ÿ© ÿ©'CASHÿ ©《¿ ²!© ÿ#©'DELCG0ÿ$©G� ð!{LET G .,AK164}{RETURN}3ÿ$©{LET G67,AK164}{RETURN} ‚ª ‚ªÿª'{CONTENTS AE171,AE170}ÿª' 4  ÿª'DAL ¢ ªÈ@ ²!ªÿ"ª'{OFF}{GOTO}A60~{ON} ÿ&ª"| ‚« ‚«#ÿ«'{RECALC AE172}{RECALC AB173}ÿ«G�ð€ÿ¿m3ÿ«4 ²!«oÿ"«'{GETLABEL "ENTER THE DESCRIPTION OF THE CAPITAL GAIN TO BE DELETED:",AM173}{IF AM173="\"}{BRANCH CGEDIT} ‚¬ ‚¬—ÿ¬?� ðˆ/DFK4..K€ÿ¿~~~~/DSDA4..K€ÿ¿~PH4~D~G{RECALC AF179}{CONTENTS AF180,AF179}{LET AF180,@TRIM(AF180)}{LET AF178,@STRING(D54,0)}3}ÿ¬/DFK4..K10~~~~/DSDA4..K10~PH4~D~G{RECALC AF179}{CONTENTS AF180,AF179}{LET AF180,@TRIM(AF180)}{LET AF178,@STRING(D54,0)} ²!¬¡ÿ"¬'{OFF}{LET AM174,63}{GETLABEL "ENTER THE DATE THE SECURITY WAS SOLD (MM/DD/YY):",AM171}{LET AM171,@DATEVALUE(AM171)}{IF @ISERR(AM171)=1}{ERS}{BRANCH AI173}ÿ%¬'" ÿ&¬'HWP ‚­ ‚­!ÿ­'{IF AE170<8}{BRANCH AB179} ²!­9ÿ"­'{CONTENTS AM175,AM174}{RECALC AM176}{RECALC AI175} ÿ&­B ‚® ‚®!ÿ®'{IF AE170=8}{BRANCH AB185} ²!®Jÿ"®=�ð;{IF A€€=AM173#AND#C€€=AM171}{BRANCH AI178}30ÿ"®{IF A66=AM173#AND#C66=AM171}{BRANCH AI178}ÿ&®' 66 ‚¯ ‚¯ÿ¯'{MENU}RVG4..H7~AF171~eÿ"¯'{IF AM174=AG45}{GETLABEL "CAPITAL GAIN NOT FOUND, HIT ENTER TO CONTINUE:",AM170}{BRANCH AI172}ÿ&¯<� ð€ÿ¿m3ÿ&¯66 ‚° ‚°ÿ°'{LET AF175,"OTHER"}ÿ °'ÿ!°'5(ÿ"°'{LET AM174,AM174+1}{BRANCH AI174}ÿ&°<�ð€þ¿m3ÿ&°66 ‚± ‚±hÿ±'{LET AG175,+TOTAL-@SUM(H4..H7)}{GOTO}AH170~+AG170/($ALL+1E-8)~/CAH170~AH170..AH175~{BRANCH AB186} ÿ±'223 ÿ ±'-45 ÿ!±'-145ÿ"±'{RECALC AI179}ÿ&±;�ð€ý¿m3ÿ&±66 ‚² ‚²ÿ²'{RECALC AB180}ò²Üdh19à@7 ÿ ²ÿ!²'3Bÿ"²:�ð3{GOTO}A€ý¿~{MENU}REA€ý¿..G€ý¿~3!ÿ"²{GOTO}A66~{MENU}REA66..G66~ ‚³ ‚³cÿ³5�ðT{MENU}RVG4..H€ø¿~AF171~{GOTO}AH170~+AG170/($ALL+1e-8)~/CAH170~AH170..AH175~3Pÿ³{MENU}RVG4..H10~AF171~{GOTO}AH170~+AG170/($ALL+1e-8)~/CAH170~AH170..AH175~ÿ³'12/18/90 ÿ ³'DSRCHÿ!³'4>ÿ"³'{LET AM174,AM174+1}{CONTENTS AM175,AM174}{RECALC AM177} ‚´ ‚´ÿ´'{LET AF181,171+AE170-3} ÿ´¬ïÿ ´'{PANELON}{INDICATE WAIT}{PANELOFF}{GOTO}R4~{END}{DOWN}{LET AG179,@CELLPOINTER("ROW")}{CONTENTS AH177,AG179}{LET AH177,@TRIM(AH177)}{IF AG179=8192}{END}{UP}{LET AG179,@CELLPOINTER("ROW")}{CONTENTS AH177,AG179}{LET AH177,@TRIM(AH177)}Kÿ"´'{LET AM174,AG45+2}{CONTENTS AM175,AM174}{RECALC AM178}{RECALC AI182} ‚µ ‚µ+ÿµ'{CONTENTS AF182,AF181}{RECALC AF183}ÿµ' 172 Vÿ µ1�ðG{RECALC AG182..AG183}{IF AH16>R€û¿}{LET AG179,3}{BRANCH AG186}3Bÿ µ{RECALC AG182..AG183}{IF AH16>R5}{LET AG179,3}{BRANCH AG186}[ÿ"µ/�ðL{MENU}CA€û¿...G€ü¿~A€ú¿~{MENU}REA€ü¿..G€ü¿~3,ÿ"µ{MENU}CA66...G66~A66~{MENU}REA66..G66~ ‚¶ ‚¶ÿ¶'{RECALC AB184}ÿ¶.� ð€ÿ¿m3 ÿ¶172´ÿ ¶%�ð¥{LET AH180,@VALUE(AH177)-@INT(.65*(R€ú¿-AH16))}{LET AH180,@IF(AH180<4,4,AH180)}{CONTENTS AH180,AH180}{LET AH180,@TRIM(AH180)}{RECALC AG183}{GOTO}R€ý¿~3˜ÿ ¶{LET AH180,@VALUE(AH177)-@INT(.65*(R5-AH16))}{LET AH180,@IF(AH180<4,4,AH180)}{CONTENTS AH180,AH180}{LET AH180,@TRIM(AH180)}{RECALC AG183}{GOTO}R4~;ÿ"¶'{LET AG45,AG45-1}{CONTENTS AM175,AG45}{RECALC AM176} ‚· ‚·Iÿ·"�ð:{MENU}REAF€ÿ¿..AH175~{RECALC AB186}{BRANCH AB186}37ÿ·{MENU}REAF172..AH175~{RECALC AB186}{BRANCH AB186}ÿ·'=Cÿ ·'{CONTENTS AH179,AG179}{LET AH179,@TRIM(AH179)}{RECALC AG187}=ÿ"·'{LET AM174,AG45+2}{CONTENTS AM175,AM174}{RECALC AM177} ‚¸ ‚¸^ÿ¸'{MENU}RVG4..H8~AF171~{GOTO}AH170~+AG170/($ALL+1E-8)~/CAH170~AH170..AH175~{RECALC AB186}Aÿ ¸'{IF AG179=3#AND#AF184="<"}{LET AG179,AG179-1}{BRANCH D349}=ÿ"¸'{RECALC AI186..AI189}{CONTENTS AG46,AG45}{RECALC AG47} ‚¹ ‚¹³ÿ¹�ð¤{RECALC AB186}/GRGTBXAF170..AF175~AAG170..AG175~OCDAAH170...AH175~AQTF€ú¿ PORTFOLIO SUMMARY~TSTOTAL=$€ø¿~QVQ/DSDA4..K€ò¿~PK4~A~G{BLANK K1..K49}3˜ÿ¹{RECALC AB186}/GRGTBXAF170..AF175~AAG170..AG175~OCDAAH170...AH175~AQTF12/18/90 PORTFOLIO SUMMARY~TSTOTAL=$223~QVQ/DSDA4..K4~PK4~A~G{BLANK K1..K49}Pÿ ¹'{IF AG179=3}{GETLABEL "DATE NOT FOUND (HIT ENTER TO CONT):",AG177}{RETB1}9ÿ"¹�ð*{LET D€÷¿,@SUM(D63..D€ö¿)}~3ÿ"¹{LET D66,@SUM(D63..D66)}~ ‚º ‚ºzÿ º� ðk{IF R€ø¿ÿ¿ý¿AH16}{LET AG179,AG179-1}{CONTENTS AH179,AG179}{LET AH179,@TRIM(AH179)}{BRANCH AG189}3aÿ º{IF R3=AH16}{LET AG179,AG179-1}{CONTENTS AH179,AG179}{LET AH179,@TRIM(AH179)}{BRANCH AG189}9ÿ"º�ð*{LET E€ö¿,@SUM(E63..E€õ¿)}~3ÿ"º{LET E66,@SUM(E63..E66)}~ ‚» ‚»(ÿ »'{LET AG179,AG179-1}{BRANCH AG184}Gÿ"» �ð8{LET F€õ¿,@SUM(F63..F€ô¿)}~{GOTO}A60~{ON}3-ÿ"»{LET F66,@SUM(F63..F66)}~{GOTO}A60~{ON} ‚¼ ‚¼Iÿ ¼'{LET AG178,AG179-48}{CONTENTS AG178,AG178}{LET AG178,@TRIM(AG178)} ÿ&¼'IBM ‚½ ‚½ ò½Jÿ ½'{LET AH178,AG179-148}{CONTENTS AH178,AH178}{LET AH178,@TRIM(AH178)} ÿ"½'SPLIT ÿ&½'IBM ‚¾ ‚¾ ÿ¾€ù¿<;ÿ"¾'{LET AM196,0}{BLANK AO4..AP8192}{GETLABEL "ENTER THE SYMBOL OF THE SECURITY YOU WISH TO SPLIT:",AM190}{IF AM190="\"}{\T} ‚¿ ‚¿ ÿ ¿'RETB1oÿ"¿'{GETNUMBER "ENTER THE #NEW SHARES/#OLD SHARES (i.e. 2/1):",AM193}{IF @ISERR(AM193)=1}{ERS}{BRANCH AI192} ‚À ‚À!ÿ À'{IF AH173=0}{BRANCH AI200};ÿ"À'{SPY}{LET AM197,4}{PANELON}{INDICATE WAIT}{PANELOFF} ÿ&À ‚Á ‚Á$ÿ Á'{IF AH173=1}{MENUBRANCH A343}9ÿ"Á'{CONTENTS AM198,AM197}{RECALC AM199}{RECALC AI195} ‚ ‚Â’ÿ"Â�ðƒ{IF @TRIM(G€€)=@TRIM(AM190)}{LET AM196,1}{LET B€€,B€€*AM193}~{IF AL198=1}{LET D€€,D€€/AM193}~3^ÿ"Â{IF @TRIM(G5)=@TRIM(AM190)}{LET AM196,1}{LET B5,B5*AM193}~{IF AL198=1}{LET D5,D5/AM193}~ ‚à ‚Ãÿ"Ã'{LET AM197,AM197+1} ÿ&à ‚Ä ‚Ä#ÿ"Ä'{IF AM197=AD1}{BRANCH AI199} ÿ&Ä ‚Å ‚Åÿ"Å'{BRANCH AI194}ÿ$Å'Y ÿ%Åÿ&Å' 5 ‚Æ ‚ÆYÿ"Æ'{\Q}{IF AM196=0}{GETLABEL "SYMBOL WAS NOT FOUND,HIT ENTER TO CONTINUE:",AK198}{\T}Uÿ$Æ'{GETLABEL "DO YOU WISH TO ADJUST STOCK PRICE AS WELL AS VOLUME? (Y/N):",AK198}ÿ&Æ�ð€ÿ¿m3ÿ&Æ5 ‚Ç ‚ǧÿ"Ç'{LET C484,"AI205"}{LET C485,"\T"}{PANELON}{INDICATE "SPLIT"}{PANELOFF}{GETLABEL "DO YOU WISH TO UPDATE THE HQFILE ON THIS STOCK (Y/N)?",AM201}{IF AM201="\"}{\T}Eÿ$Ç'{IF @TRIM(AK198)="Y"#OR#@TRIM(AK198)="y"}{LET AL198,1}{RETURN} ‚È ‚È0ÿ"È'{IF AM201="y"#OR#AM201="Y"}{BRANCH AI204}Eÿ$È'{IF @TRIM(AK198)="N"#OR#@TRIM(AK198)="n"}{LET AL198,0}{RETURN}ÿ&È'Y ‚É ‚É&ÿ"É'{IF AM201="N"#OR#AM201="n"}{\T}Mÿ$É'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO RETRY:",AK198}{BRANCH AK199} ‚Ê ‚Êÿ"Ê'{ERS}{BRANCH AI200} ‚Ë ‚ËÞÿ"Ë'{OFF}{LET A228,AM190}{SYMS}{SYMSL}{SYMP}{LET AM189,@TRIM(A228)}{LET AF184,"="}{LET AH347,0}{RECALC AI205}{GETLABEL "ENTER THE DAY THE STOCK SPLIT (MM/DD/YY):",DATE}{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH AI204} ‚Ì ‚Ì ÿ!Ì'151öÿ"Ìúœ ðç{GOTO}R1~{PANELON}{INDICATE WAIT}{PANELOFF}{BLANK R4..X8192}{ONERROR AG199}/FCCE{ESC}{ESC}å¿L€\STOCK\€ð¿.WR1~{ONERROR G275}{LET AH173,0}{DSRCH}{PANELON}{INDICATE €y¿SPLIT€y¿}{PANELOFF}{RECALC AI206..AI208}3Ñÿ"Ì{GOTO}R1~{PANELON}{INDICATE WAIT}{PANELOFF}{BLANK R4..X8192}{ONERROR AG199}/FCCE{ESC}{ESC}C:\123\STOCK\IBM.WR1~{ONERROR G275}{LET AH173,0}{DSRCH}{PANELON}{INDICATE "SPLIT"}{PANELOFF}{RECALC AI206..AI208} ‚Í ‚ÍZÿ"Íöœ ðK{GOTO}K4~+S4/$AM$193~{MENU}CK4~K4..Mÿ¿å¿~{IF AG179=3}{BRANCH AI210}3Fÿ"Í{GOTO}K4~+S4/$AM$193~{MENU}CK4~K4..M3~{IF AG179=3}{BRANCH AI210} ‚Î ‚Î ÿ!Î'CDOW�ÿ"Îïœð€{GOTO}N4~+V4*$AM$193~{MENU}CN4~N4..Nÿ¿ä¿~{LET AH205,AG179+1}{CONTENTS AH205,AH205}{LET AH205,@TRIM(AH205)}{RECALC AI209}3{ÿ"Î{GOTO}N4~+V4*$AM$193~{MENU}CN4~N4..N3~{LET AH205,AG179+1}{CONTENTS AH205,AH205}{LET AH205,@TRIM(AH205)}{RECALC AI209} ‚Ï ‚Ïÿ!Ï'{IF AM220="IND"}{RETURN}@ÿ"Ïìœ ð1{GOTO}O4~+W4/$AM$193~{MENU}CO4~O4..Pÿ¿ã¿~3,ÿ"Ï{GOTO}O4~+W4/$AM$193~{MENU}CO4~O4..P3~ ‚Ð ‚Ð ÿÐ'IBMÿ!Ð'{UP}{RETURN}ÿÿ"Ðãœðð{MENU}RVK4..Pÿ¿â¿~S4~{IF @VALUE(AH205)>=53}{GOTO}Wÿ¿ü¿~+@AVG(Uþ¿á¿..Uÿ¿ü¿)~/CWÿ¿ü¿~Wÿ¿ü¿..Wÿ¿à¿~{IF @VALUE(AH205)>=153}{GOTO}Xÿ¿ü¿~+@AVG(Uÿ¿á¿..Uÿ¿ü¿)~/CXÿ¿ü¿~Xÿ¿ü¿..Xÿ¿à¿~3 ÿ"Ð{MENU}RVK4..P3~S4~{IF @VALUE(AH205)>=53}{GOTO}W151~+@AVG(U-45..U151)~/CW151~W151..W5~{IF @VALUE(AH205)>=153}{GOTO}X151~+@AVG(U-145..U151)~/CX151~X151..X5~ ‚Ñ ‚Ñ ÿÑ'IBMˆÿ"ÑÜœ ðy{RECALC AI210}{PANELON}{INDICATE SAVE}{PANELOFF}/FXVA{ESC}å¿G€\STOCK\€ë¿.WR1~R1..Xÿ¿ß¿~R{HOME}{ON}{\T}3kÿ"Ñ{RECALC AI210}{PANELON}{INDICATE SAVE}{PANELOFF}/FXVA{ESC}C:\123\STOCK\IBM.WR1~R1..X5~R{HOME}{ON}{\T} ‚Ò ‚Ò ‚Ó ‚Ó ÿ!Ó'AHQÿ%Ó'PORTFOLIO NAMES ‚Ô ‚Ôÿ%Ô'--------------- ‚Õ ‚Õ ‚Ö ‚Ö ‚× ‚× ÿ!×'HQ ‚Ø ‚Ø ‚Ù ‚Ù ‚Ú ‚Ú ‚Û ‚Û ‚Ü ‚Ü ‚Ý ‚Ý ‚Þ ‚Þ ‚ß ‚ß ‚à ‚à òá òá ¢á ¢á ¢á ‚á ‚á ÿâ'CQCÿâ'3 ÿâ�} ‚â ‚â ÿã'IBM©ÿã'{WINDOWSOFF}{PANELOFF}{GOTO}R8192~{END}{UP}{LET D227,@CELLPOINTER("ROW")}{CONTENTS D227,D227}{LET D227,@TRIM(D227)}{IF @CELLPOINTER("ROW")=3}{GOTO}R1~{ON}{RETURN}ÿã' ‚ã ‚ã4ÿäÚœð%{RECALC C229}{LET E227,R€þ¿}3 ÿä{RECALC C229}{LET E227,R3} ‚ä ‚ä ÿå'\L=ÿå'{OFF}{LET AG281,4}{LET G238,1}{IF AD1=4}{LET AG281,56}Žÿå'{RECALC G230..H230}{IF AI1-E227>1}{IF G230<>0#OR#H230<>0#OR#AI1-E227>3}{GETLABEL "ARE YOU SURE HQFILES ARE CURRENT? (Y/N):",F233}{DCHK}ÿåþ¿ý¿z /ÿåÀ€¿z /ÿå'Y ‚å ‚åÿæð  €ý¿Lÿæ'{BRANCH B232}ÿæ'{GOTO}R1~{ON}{RETURN}ÿæ'55ÿæ'{LET G232,G232+1}{IF G232=2}{FIL}{BRANCH H234} ‚æ ‚æÿçð .€ü¿LŸÿç'{BLANK R4..X8192}{LET G231,AG283}{CONTENTS AG282,AG281}{RECALC AG283}{RECALC B233}{IF G257=1#AND#@VALUE(C475)<>@VALUE(E475)-1#AND#AG281=56}{BRANCH B261} ÿç ÿç'{DISK} ‚ç ‚çÿ ç'ÿè'3{ÿèÕœðl{LET G233,+G€2€}{RECALC G234}{RECALC B235}{IF AG281<>4#AND#AD1<>4}{IF G233=G€þ¿}{BRANCH B260}3`ÿè{LET G233,+G56}{RECALC G234}{RECALC B235}{IF AG281<>4#AND#AD1<>4}{IF G233=G5}{BRANCH B260}ÿè'Y ÿè'INDÿè'{BRANCH B238} ‚è ‚èÿé'4+ÿé'{IF @MID(G233,0,1)="*"}{BRANCH B260}ÿéÔœ ð€ÿ¿m3 ÿéINDKÿé'{GETLABEL "DO YOU WISH TO PROCEED WITH THE NEXT STOCK? (Y/N):",I230} ‚é ‚éEÿêÒœð6{PANELON}{INDICATE $€[¿€þ¿$€[¿}{PANELOFF}3)ÿê{PANELON}{INDICATE "IND"}{PANELOFF}-ÿê'{IF I230="Y"#OR#I230="y"}{BRANCH B260} ‚ê ‚ê ÿë'SYMSEÿë'{LET A228,G233}{SYMS}{SYMP}{SYMSL}{LET G233,A228}{RECALC G234}8ÿë'{IF I230="N"#OR#I230="n"}{ONERROR G275}{HOME}{\U} ‚ë ‚ë/ÿì'{RECALC A231}{IF @ISERR(A231)=1}{RETURN}.ÿì'{OFF}{GOTO}R1~{RECALC B238}{LET G232,0}ÿì'{ERS}{BRANCH H234} ‚ì ‚ìJÿí'{LET A233,@STRING(A231,0)}{LET A234,@STRING(A231+1,0)}{RECALC A239}[ÿíΜðL{ONERROR H231}/FCCE{ESC}{ESC}€+€\STOCK\€ü¿.WR1~{ONERROR G276}3Fÿí{ONERROR H231}/FCCE{ESC}{ESC}C:\123\STOCK\IND.WR1~{ONERROR G276} ÿí ‚í ‚íJÿîËœ ð;{LET A228,@MID(A228,0,€ú¿)&@MID(A228,€û¿,3)}3.ÿî{LET A228,@MID(A228,0,3)&@MID(A228,4,3)}9ÿî'{CONTENTS G239,G238}{RECALC G240}{IF AG281=4}{CQC}ÿî' 3 ‚î ‚î"ÿï'{GOTO}R4~{ON}{OFF}/WTH{MVR}ÿïËœð€ÿ¿m3ÿï3 ‚ï ‚ï=ÿð'{RECALC AF1}{RECALC B242}{RECALC G241}{LET AG314,G241}ÿðð?ROWO ‚ð ‚ð ÿñ'SYMPYÿñÈœðJ/RVK€þ¿..Q€þ¿~K1~{RECALC AI1..AM1}/RVAI1..AM1~€¿~35ÿñ/RVK3..Q3~K1~{RECALC AI1..AM1}/RVAI1..AM1~$A$1~ÿñ' 4 ‚ñ ‚ñ/ÿò'{RECALC A232}{IF @ISERR(A232)=1}{RETURN}(ÿò'{CONTENTS G242,G241}{RECALC G243}%ÿò'{IF @VALUE(R4)=0}{BRANCH B241}ÿòÈœð€ÿ¿m3ÿò4 ‚ò ‚òJÿó'{LET A233,@STRING(A232,0)}{LET A234,@STRING(A232+1,0)}{RECALC A245}ÿó'{RIGHT 6}%ÿó'{IF @VALUE(R5)=0}{BRANCH E246} ‚ó ‚óJÿôÅœð;{LET A228,@MID(A228,0,€ô¿)&@MID(A228,€õ¿,3)}3.ÿô{LET A228,@MID(A228,0,3)&@MID(A228,4,3)}pÿô¿œ ða{RECALC F245}{RECALC G245}{IF F245<4}{RECALC AF1}{RECALC B245}{LET € ¿,@NA}{BRANCH B249}3_ÿô{RECALC F245}{RECALC G245}{IF F245<4}{RECALC AF1}{RECALC B245}{LET $A$1,@NA}{BRANCH B249}ÿô'{END}{DOWN}ÿô€bÀ ROWO• ÿôð?ROWO ‚ô ‚ô ÿô'\H ÿôÿ!ô'(ÿõ'{CONTENTS F246,F245}{RECALC F247}Kÿõ¼œð<{RECALC AF1}{RECALC E246}{IF AI1<=€ ¿}{BRANCH B260}3:ÿõ{RECALC AF1}{RECALC E246}{IF AI1<=$A$1}{BRANCH B260}ÿõ' 119 ÿõ' 268 ‚õ ‚õXÿõ'{RECALC AB246}{GETLABEL "ENTER THE NEW DATE YOU WISH TO UPDATE (MM/DD/YY):",DATE}ÿöð /€í¿L5ÿö'{CONTENTS G246,G245}{RECALC G247}{RECALC B248}ÿö'{DOWN}{BRANCH B241}ÿö¼œð€ÿ¿m3 ÿö119ÿö»œ ð€ÿ¿m3 ÿö268 ‚ö ‚öÿö'{IF DATE="\"}{RETB2} ÿ÷'SYMSL2ÿ÷ºœð#@SUM(U€ÿ¿..U€ÿ¿)/1503ÿ÷@SUM(U119..U268)/150 ‚÷ ‚÷-ÿ÷'{IF DATE=""}{IF AC245=1}{BRANCH AB252}/ÿø'{RECALC A247}{IF @ISERR(A247)=1}{RETURN}iÿøµœðZ{LEFT}{RECALC F249}{IF F249<4}{RECALC AF1}{RECALC B249}{LET €¿,@NA}{BRANCH B253}3Xÿø{LEFT}{RECALC F249}{IF F249<4}{RECALC AF1}{RECALC B249}{LET $A$1,@NA}{BRANCH B253}ÿøHÀ ROWO1  ‚ø ‚ø:ÿø'{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH AB246}Jÿù'{LET A233,@STRING(A247,0)}{LET A234,@STRING(A247+1,0)}{RECALC A251}kÿù'{CONTENTS F250,F249}{RECALC F251}{LET F255,@VALUE(F266)+4}{CONTENTS F255,F255}{LET F255,@TRIM(F255)}ÿù' 219 ‚ù ‚ùBÿù'{RECALC AF1}{CONTENTS AH17,AH16}{RECALC AH18}{RECALC AB251}Jÿú²œð;{LET A228,@MID(A228,0,€î¿)&@MID(A228,€ï¿,3)}3.ÿú{LET A228,@MID(A228,0,3)&@MID(A228,4,3)}ÿú'{RECALC B252}ÿú²œð€ÿ¿m3 ÿú219 ‚ú ‚ú:ÿú°œð+{OFF}/RFD~~{ON}{LET €¿,€¿}3%ÿú{OFF}/RFD~~{ON}{LET $A$1,33052} ÿú'RETB2ÿú'82ÿû®œ ð#@SUM(U€ÿ¿..U€û¿)/50~3ÿû@SUM(U219..U268)/50~ ‚û ‚ûÿû'{RIGHT}{RECALC AF1}ÿû'{IF AC245=1}{UHQ}†ÿü'{LET F254,G245-@VALUE(F266)+1}{CONTENTS F254,F254}{LET F254,@TRIM(F254)}{RECALC B254..B255}{IF G245<=F265}{LEFT 5}{BRANCH B255}ÿü ROWO  ‚ü ‚üdÿü'{GETLABEL "ENTER THE SECURITY PRICE HIGH:",COST}{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB246}bÿü'{LET AF251,@CELLPOINTER("row")}{CONTENTS AF251,AF251}{LET AF251,@TRIM(AF251)}{RECALC AE254}zÿý©œðk/RVR€€..X€ù¿~R4~/RER€€..X€ù¿~{LEFT 5}{GOTO}R€€~{IF @VALUE(F255)<>4}{UP}3Qÿý/RVR-259..X268~R4~/RER268..X268~{LEFT 5}{GOTO}R268~{IF @VALUE(F255)<>4}{UP} ÿý'-259ÿý' 267 ‚ý ‚ý-ÿý'{IF COST=""}{IF AC245=1}{BRANCH AB257}Qÿý¦œðB{BLANK R€ý¿..X€ý¿}{IF AC245=0}{UP}{ON}{BRANCH A342}35ÿý{BLANK R8..X8}{IF AC245=0}{UP}{ON}{BRANCH A342}$ÿþ'{IF G245>13}{UP 9}{END}{DOWN} ÿþ'268ÿþ¦œð€ÿ¿m3 ÿþ267 ‚þ ‚þsÿþ'{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB256}{IF @ISERR(COST)=1}{ERS}{BRANCH AB253}—ÿþ'{OFF}{LET C342,AG179+2}{LET D342,AG179+3}{CONTENTS D342,D342}{CONTENTS C342,C342}{LET C342,@TRIM(C342)}{LET D342,@TRIM(D342)}{RECALC B348..B349}Bÿÿ'{ON}{WAIT @NOW+@TIME(0,0,1)}{OFF}{RECALC B257}{RECALC B259}ÿÿ2À ROWO  ‚ÿ ‚ÿ+ÿÿ¥œð{LET €¿,€¿}3ÿÿ{LET $A$1,6070.5}ÿÿ'{BRANCH B348}8ÿ£œð){LET AF209,G234}{LET AF210,A€€}3%ÿ{LET AF209,G234}{LET AF210,A56}7ÿ'{IF G257=0}{ON}/FS~R{BEEP}{BEEP}{LET A310,0}{\U} ÿÿ' 249 ‚ ‚ÿ'{RIGHT}{RECALC AF1} ÿ ÿ'{BRANCH B259} ÿ'{IF G257=1}{BRANCH AB147}ÿ£œð€ÿ¿m3 ÿ249 ‚ ‚cÿ'{GETLABEL "ENTER THE SECURITY PRICE LOW:",COST}{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB253}gÿžœðX{PANELON}{INDICATE SAVE}{OFF}/FXVA{ESC}€€\STOCK\€ç¿.WR1~R1..X€€~R3Lÿ{PANELON}{INDICATE SAVE}{OFF}/FXVA{ESC}C:\123\STOCK\IND.WR1~R1..X267~R ‚-ÿ'{IF COST=""}{IF AC245=1}{BRANCH AB262}Gÿ'{IF AG281=AD1-1}{LET G238,G238+1}{LET AG281,56}/WTC{BRANCH B232} ‚sÿ'{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB261}{IF @ISERR(COST)=1}{ERS}{BRANCH AB258}5ÿ'{IF AG281=56}/WTC{HOME}{BLANK AN4..AQ8192}{UR} ‚+ÿ�œð{LET €ü¾,€¿}3ÿ{LET $A$1,6070.5} ÿEÿ'{RESTART}{LET G238,G238+1}{LET AG281,AG281+1}/WTC{BRANCH B232} ‚Hÿšœð9{RIGHT}{RECALC AF1}{RECALC AB262}{LET AF261,€û¾}37ÿ{RIGHT}{RECALC AF1}{RECALC AB262}{LET AF261,$A$1} ‚eÿ'{GETLABEL "ENTER THE SECURITY PRICE CLOSE:",COST}{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB258} ÿ'267 ÿ'2646ÿ—œð'TURN PORTFOLIO AUTOSAVE ON/OFF€€33ÿTURN PORTFOLIO AUTOSAVE ON/OFF (NOW DISABLED) ‚-ÿ'{IF COST=""}{IF AC245=1}{BRANCH AB267}Sÿ“œ ðDSET NUMBER OF RECORDS IN ZOOM WINDOW (CURRENT #RECORDS=€€)3@ÿSET NUMBER OF RECORDS IN ZOOM WINDOW (CURRENT #RECORDS=49) ÿ'OTHERUÿ�œ ðFMAXIMUM NUMBER OF RECORDS IN DATA FILE (CURRENT #RECORDS=€€)3CÿMAXIMUM NUMBER OF RECORDS IN DATA FILE (CURRENT #RECORDS=264) ÿ  ÿ1ÿ' (NOW DISABLED) ‚sÿ'{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB266}{IF @ISERR(COST)=1}{ERS}{BRANCH AB263} ÿ 'DCHKKÿ Œœð<SET DISK DRIVE FOR DATA STORAGE (CURRENT DRIVE=€€)3<ÿ SET DISK DRIVE FOR DATA STORAGE (CURRENT DRIVE=C:\123)3ÿ '{RESTART}{INDICATE OTH}{MENUBRANCH C267}{\M} ÿ '264 ÿ '49 ‚ +ÿ ‹œð{LET €÷¾,€¿}3ÿ {LET $A$1,6070.5}5ÿ '{IF F233="y"#OR#F233="Y"}{GOTO}R1~{ON}{RETURN}ÿ 'DEFAULT DRIVE ÿ 'EXITÿ 'HQFILE SIZE ÿ 'OFF ÿ 'RESET ÿ 'ZOOMÿ 'AUTOSAVE ÿ 'QUIT ‚ ÿ '{RIGHT}{RECALC AF1}yÿ '{IF F233="N"#OR#F233="n"}{GETLABEL "YOU MUST UPDATE HQFILES BEFORE ADDING CQ'S (HIT ENTER TO CONTINUE):",C266}{\U}=ÿ 'SET DISK DRIVE FOR DATA STORAGE (CURRENT DRIVE=C:\123)ÿ 'EXIT 1-2-3Dÿ 'MAXIMUM NUMBER OF RECORDS IN DATA FILE (CURRENT #RECORDS=264))ÿ 'END AND RETURN TO SPREADSHEET MODE9ÿ 'CLEAR TO PORTFOLIO/CAPITAL GAINS TO ORIGINAL STATEAÿ 'SET NUMBER OF RECORDS IN ZOOM WINDOW (CURRENT #RECORDS=49)4ÿ 'TURN PORTFOLIO AUTOSAVE ON/OFF (NOW DISABLED)ÿ 'RETURN TO MAIN MENU ‚ `ÿ '{GETLABEL "ENTER THE SECURITY VOLUME:",COST}{IF COST="\"}{LEFT}{RECALC AF1}{BRANCH AB263}Oÿ '{GETLABEL "DATA ENTRY ERROR (HIT ENTER TO CONTINUE):",C266}{BRANCH C230}ÿ '{CONFIG}=ÿ '{INDICATE EXIT}{GETLABEL "ARE YOU SURE ?(Y/N):",AM300}iÿ '{GETLABEL "ENTER MAXIMUM NUMBER OF RECORDS IN HQFILE (1 MIN, 1000 MAX):",G264}{IF G264="\"}{OTHER} ÿ '{QUIT}ÿ '{LET E332,0}{CLEAR}Rÿ '{GETLABEL "ENTER NUMBER OF RECORDS TO BE VIEWED:",G264}{IF G264="\"}{OTHER}`ÿ '{GETLABEL "ENABLE PORTFOLIO AUTOSAVE FEATURE (Y/N)?",I265}{IF I265="\"#OR#I265=""}{OTHER}#ÿ '{INDICATE MENU}{BRANCH A272} ‚ -ÿ '{IF COST=""}{IF AC245=1}{BRANCH AB272}ÿ! ' ÿ '\M ÿ '{\s}1ÿ '{RECALC C266}{OFF}/RVC266~C268~{ON}{OTHER}4ÿ '{IF @TRIM(AM300)="Y"#OR#@TRIM(AM300)="y"}/QYYÌÿ '{LET F265,@VALUE(G264)}{LET F265,@IF(F265<=0,0,1)*F265+@IF(F265<=0,1,0)}{LET F265,F265-@IF(F265>1000,1,0)*(F265-1000)}{CONTENTS F266,F265}{LET F266,@TRIM(F266)}{IF @ISERR(F265)=1}{ERS}{BRANCH E269}ÿ '{OTHER}mÿ '{LET G265,@VALUE(G264)}{CONTENTS G266,G265}{LET G266,@TRIM(G266)}{IF @ISERR(G265)=1}{ERS}{BRANCH H269}qÿ '{IF I265="Y"#OR#I265="y"}{LET I266,1}{LET H265," (NOW ENABLED)"}{RECALC H264}{OFF}/RVH264~I268~{ON}{OTHER}ÿ ' ‚ sÿ '{LET COST,@VALUE(COST)}{CONTENTS AG23,AG22}{RECALC AG24}{RECALC AB271}{IF @ISERR(COST)=1}{ERS}{BRANCH AB268}jÿ'{INDICATE MENU}{LET C485,"\M"}{OFF}/WTC{HOME}{WINDOW}{GOTO}A51~{ON}{WINDOW}{BREAKOFF}{ONERROR G276}7ÿ'{IF @TRIM(AM300)="N"#OR#@TRIM(AM300)="n"}{OTHER}*ÿ'{OFF}{RECALC E265}/RVE265~E268~{ON}gÿ'{IF G265>200}{GETLABEL "NO MORE THAN 200 POINTS IN ZOOM (HIT ENTER TO CONT):",G264}{BRANCH H269}rÿ'{IF I265="N"#OR#I265="n"}{LET I266,0}{LET H265," (NOW DISABLED)"}{RECALC H264}{OFF}/RVH264~I268~{ON}{OTHER} ‚+ÿŠœð{LET €ò¾,€ ¿}3ÿ{LET $A$1,6070.5} ÿÿ'4.ÿ'{RESTART}{MENUBRANCH A273}{BRANCH A271}Lÿ'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO RETRY:",AM300}{BRANCH D269}Iÿ'{LET F265,F265+3}{CONTENTS F264,F265}{LET F264,@TRIM(F264)}{OTHER}1ÿ'{OFF}{RECALC C265}/RVC265~H268~{ON}{OTHER}ÿ'{ERS}{BRANCH I269} ‚ÿ'{OFF}{RIGHT}{RECALC AF1} ÿ'-45 ÿ ÿ'ANALYSISÿ'PORTFOLIO ÿ'REPORT ÿ'SAVEÿ'TRANSACTION ÿ'UPDATE ÿ'VIEW ÿ'OTHER ‚Tÿ'{LET AE271,@CELLPOINTER("ROW")}{CONTENTS AF271,AE271}{LET AF271,@TRIM(AF271)} ÿ'-145 ÿ'PERFORM SECURITY ANALYSIS&ÿ'CHANGE PORTFOLIO IN SPREADSHEET1ÿ'PRESENT DATA IN YOUR PORTFOLIO AND HQFILES&ÿ'SAVE WORKSHEET ON DEFAULT DRIVE0ÿ'ENTER/DELETE SECURITIES AND CAPITAL GAINS)ÿ'ACQUIRE SECURITY PRICE INFORMATIONAÿ'OBSERVE DATA IN THE PORTFOLIO,CAPITAL GAINS ,OR STOCKDATA ÿ'UTILITIES MENU ‚Iÿ'{LET AE272,AE271-49}{CONTENTS AE272,AE272}{LET AE272,@TRIM(AE272)} ÿ'{\C}ÿ'{LET E474,0}{\P} ÿ'{\R}•ÿ'{INDICATE SAVE}{LET C484,"D279"}{LET AH347,0}{GETLABEL "OLD FILE WILL BE OVERWRITTEN, DO YOU WISH TO CONTINUE (Y/N):",AM300}{IF AM300="\"}{\M}ÿ'{LET C292,0}{\T} ÿ'{\U}ÿ'{LET F361,0}{VIEW}ÿ'{OTHER} ‚Jÿ'{LET AE273,AE271-149}{CONTENTS AE273,AE273}{LET AE273,@TRIM(AE273)} ÿ'{\M}=ÿ'{IF @TRIM(AM300)="Y"#OR#@TRIM(AM300)="y"}{BRANCH D279} ÿ'{\M} ÿ'{QUIT} ‚ÿ'{RECALC AB276..AB278}Lÿ'{IF @TRIM(AM300)="N"#OR#@TRIM(AM300)="n"}{INDICATE MENU}{BRANCH A272} ‚[ÿ†œðL{IF AE271<53}{LET €ì¾,@IF(€ì¾>0,€ì¾,@NA)}{BRANCH AB279}3@ÿ{IF AE271<53}{LET $A$1,@IF($A$1>0,$A$1,@NA)}{BRANCH AB279}Lÿ'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO RETRY:",AM300}{BRANCH D275} ‚wÿ‚œ ðh+@AVG(U€ú¿..U€ù¿)~{IF AC245>=1#AND#U€ù¿<>AF261}/CW€ù¿~W€ù¿..W€›¿~3=ÿ+@AVG(U-45..U4)~{IF AC245>=1#AND#U4<>AF261}/CW4~W4..W5~‰ÿ'{PANELOFF}{WINDOWSOFF}{ONERROR A485}{BLANK R4..Z8192}{BLANK S1..V1}/REK1..Q8192~/REAN4..AQ8192~/FS~R{ESC}{ESC}{PANELON}{WINDOWSON} ‚…ÿ|œ ðv{RIGHT}{RECALC AF1}{RECALC AB279..AB280}{IF AE271<153}{LET X€ø¿,@IF(€ê¾>0,€ê¾,@NA)}{BRANCH AB281}3gÿ{RIGHT}{RECALC AF1}{RECALC AB279..AB280}{IF AE271<153}{LET X4,@IF($A$1>0,$A$1,@NA)}{BRANCH AB281} ÿ'\R1ÿ'{ONERROR G275}{INDICATE MENU}{BRANCH A272} ‚|ÿxœ ðm{OFF}+@AVG(U€ù¿..U€÷¿)~{IF AC245>=1#AND#U€÷¿<>AF261}/CX€÷¿~X€÷¿..X€™¿~3Cÿ{OFF}+@AVG(U-145..U4)~{IF AC245>=1#AND#U4<>AF261}/CX4~X4..X5~ÿ'{INDICATE REPORT}jÿ'{GETLABEL "NO SECURITIES IN PORTFOLIO TO REPORT ON (HIT ENTER TO CONT):",C282}{INDICATE REPORT}{\R} ÿ'C:\123 ÿ'C:\123 ‚ ÿqœ ð‘{MAC}{PANELON}{INDICATE  €-¿UPDATE €-¿}{PANELOFF}{IF AG272=1}{RECALC AB281}{BLANK W€˜¿..X€˜¿}{LET AG272,0}{BRANCH AB286}3tÿ{MAC}{PANELON}{INDICATE "UPDATE"}{PANELOFF}{IF AG272=1}{RECALC AB281}{BLANK W5..X5}{LET AG272,0}{BRANCH AB286} ÿ 8%ÿ'{RESTART}{MENUBRANCH A283}{\M}ÿ'ÿ'ÿ' ÿ'CONFIG ‚pÿ'{ON}{GETLABEL "IS THE DATA ENTERED CORRECT (Y/N):",AM300}{IF AM300="\"}{LEFT 2}{RECALC AF1}{BRANCH AB268}ÿ ' 56 ÿ'GRAPH PORTFOLIO ÿ'PRINT ÿ'SORTÿ'TIMEVALUEÿ'KEEP GRAPH ÿ'QUITeÿ'{GETLABEL "ENTER THE DATA DISK DRIVE (INCLUDE SUBDIRECTORY,IF ANY):",I281}{IF I281="\"}{OTHER} ‚>ÿ'{IF @TRIM(AM300)="Y"#OR#@TRIM(AM300)="y"}{BRANCH AB286}ÿ qœð€ÿ¿m3ÿ 561ÿ'SHOW PORTFOLIO BREAKDOWN IN BAR CHART FORM6ÿ'HARDCOPY OF PORTFOLIO RESULTS (TURN PRINTER ON)5ÿ'SORT CURRENT PORTFOLIO OR CAPITAL GAINS REPORT:ÿ'GRAPH THE PORTFOLIO TOTAL VS TIME FOR THE LAST YEAR(ÿ'SAVE THE MOST RECENT REPORT GRAPHÿ'RETURN TO TOP MENU LEVEL.ÿ'{LET H281,I281}{IF I281=""}{ERS}{OTHER} ‚Iÿ'{IF @TRIM(AM300)="N"#OR#@TRIM(AM300)="n"}{LET AC245,1}{LEFT 6}{\H}ÿ'{IF AD1=4}{NS}ÿ'{PRINT}ÿ'{IF AD1=4}{NS}ÿ'{IF AD1=4}{NS}¸ÿ'{LET AH347,0}{LET C484,"E286"}{LET C485,"BRANCH A281"}{GETLABEL "ENTER A NAME FOR THE GRAPH YOU WISH TO SAVE:",D365}{LET D365,@TRIM(D365)}{RECALC E286}{IF D365="\"}{BRANCH A281}@ÿ'{OFF}/GRGQ/REAO4..AP8192~{ON}{INDICATE MENU}{BRANCH A272} ‚Mÿ'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO RETRY:",AM300}{BRANCH AB282} ÿ'{\F} ÿ'{\R} ÿ'{SORT}ÿ'{PORTRS}Wÿmœ ðH{PANELOFF}{ONERROR A485}/GS{ESC}{ESC}€û¿\PIC\ÿ¿O€~QRQ{ESC}3@ÿ{PANELOFF}{ONERROR A485}/GS{ESC}{ESC}C:\123\PIC\Q~QRQ{ESC} ‚@ÿ'{OFF}{GOTO}R4~{IF @VALUE(R5=0)}{ON}{RESTART}{BRANCH A342}3ÿ'/WTC{HOME}{WINDOW}{GOTO}A51~{ON}{WINDOW}{\R} ÿ'{\R}+ÿ'{PANELON}{ONERROR G275}{BRANCH A281} ‚,ÿ'{END}{DOWN}{ON}{RESTART}{BRANCH A342} ‚ ‚  ‚!ÿ!'MA CORRECTION ÿ! ÿ"'{INDICATE TRANS}{restart} ‚"ÿ"'{IF AC245=0}{RETURN}ÿ#'{MENUBRANCH A293}{\M} ÿ# ÿ# ‚#eÿ#'{PANELON}{INDICATE WAIT}{PANELOFF}{LET AC290,@VALUE(AH177)}{IF AC290<53#OR#AE271>=153}{RETURN} ÿ$'BUY ÿ$'SELL ÿ$'EDIT ÿ$'CASHÿ$'DO SPLITÿ$'GO SHORT ÿ$'QUIT ‚$Dÿ$jœð5{RECALC AB293..AB294}{IF U€ê¿=AF261}{RETURN}30ÿ${RECALC AB293..AB294}{IF U4=AF261}{RETURN}(ÿ%'PURCHASE SECURITY WITH CASH FUNDS-ÿ%'SELL SECURITY AND ADD TO CASH RESERVES9ÿ%'ADD OR DELETE SECURITIES WITHOUT AFFECTING CASH/CGÿ%'CASH TRANSACTION-ÿ%'PERFORM A SPLIT OF A SECURITIES SHARES%ÿ%'ENTER AND EXIT SHORT POSITIONSÿ%'RETURN TO TOP MENU LEVEL ‚%cÿ%fœðT{IF AE271<53}{GOTO}W53~+@AVG(U4..U53)~/CW53~W53..W€‹¿~{RECALC AB295..AB296}3Oÿ%{IF AE271<53}{GOTO}W53~+@AVG(U4..U53)~/CW53~W53..W5~{RECALC AB295..AB296}%ÿ&'{INDICATE BUY}{LET C292,1}{\A}&ÿ&'{INDICATE SELL}{LET C292,1}{\B})ÿ&'{INDICATE EDIT}{LET C292,1}{TEDIT}4ÿ&'{LET D292,1}{LET C292,1}{MANCASH}{LET D292,0}dÿ&'{INDICATE "SPLIT"}{IF AD1=4}{GETLABEL "NO SECURITIES TO SPLIT (HIT ENTER TO CONT):",B302}{\T},ÿ&'{INDICATE "SHORT"}{LET C292,1}{SHORT}%ÿ&'{IF C292=1}{LET C292,0}{PSAVE} ‚&Jÿ&cœ ð;{IF AC290<153}{GOTO}R€è¿~{GOTO}X€è¿~{RETURN}3.ÿ&{IF AC290<153}{GOTO}R4~{GOTO}X4~{RETURN} ÿ''{\T} ÿ''{\T} ÿ''{\T} ÿ''{\T}ÿ''{LET C292,1}{SPLIT}{\T} ÿ''{\T})ÿ''{HOME}{INDICATE MENU}{BRANCH A272} ‚'ÿ''{RECALC AB297}ÿ('{MENUBRANCH E298}{\R} ‚(Sÿ(`œðD{GOTO}X153~+@AVG(U4..U153)~/CX153~X153..X€ˆ¿~{RECALC AB298}3?ÿ({GOTO}X153~+@AVG(U4..U153)~/CX153~X153..X5~{RECALC AB298}`ÿ)'{IF AD1=4}{GETLABEL "NO SECURITIES IN PORTFOLIO TO UPDATE (HIT ENTER TO CONT):",B302}{\M}ÿ)'LT GAINÿ)'ST GAINÿ)'PORTFOLIOÿ)'CG PERIOD ÿ)'QUIT ‚)Kÿ)]œð</RVW53..X€‡¿~W53~{GOTO}R€å¿~{GOTO}X€å¿~3'ÿ)/RVW53..X5~W53~{GOTO}R4~{GOTO}X4~ÿ*'{RETURN}#ÿ*'SORT LONG TERM CAPITAL GAINS$ÿ*'SORT SHORT TERM CAPITAL GAINSÿ*'SORT PORTFOLIOÿ*'SET CAPITAL GAINS PERIOD ÿ*'RETURN TO THE REPORT MENU ‚* ÿ+'\U ÿ+'IND ÿ+ÿ+'{LET AC366,"<="}{CGSORT}ÿ+'{LET AC366,">"}{CGSORT}ÿ+'{PSORT}jÿ+'{GETNUMBER "ENTER THE CAPITAL GAINS PERIOD IN MONTHS:",AC365}{IF @ISERR(AC365)=1}{ERS}{BRANCH H300} ÿ+'{\R} ‚+ÿ&+'Y<ÿ,'{INDICATE "UPDATE"}{LET C485,"\U"}{RESTART}{BREAKOFF}ÿ,'ÿ,'y ÿ,'{SORT} ÿ,'{SORT} ÿ,'{SORT} ÿ,'{SORT} ‚,/ÿ-'{BLANK AO4..AQ8192}{MENUBRANCH A303}{\M}ÿ-' ÿ-ÿ-'ENABLEDEÿ-Zœ ð6CHECK INCOMING COMM DATA FOR ERRORS (NOW ÿ€€)37ÿ-CHECK INCOMING COMM DATA FOR ERRORS (NOW ENABLED) ‚- ÿ.'HQFILEÿ.'ESTABLISH HQFILEÿ.'PORTFOLIO ÿ.'QUIT ‚.ÿ/'UPDATE EXISTING HQFILE$ÿ/'INITIALIZE SECURITY DATA FILE)ÿ/'UPDATE PORTFOLIO WITH CURRENT DATA#ÿ/'RETURN TO THE TOP MENU LEVEL ‚/aÿ0'{GETLABEL "ENTER THE SECURITY SYMBOL OR DESCRIPTION:",AG341}{IF AG341="\"#OR#AG341=""}{\U}tÿ0'{LET C484,"B311"}{LET AH347,0}{GETLABEL "ENTER THE SYMBOL OF THE SECURITY:",B300}{IF B300="\"#OR#B300=""}{\U}ÿ0'{SECCHK}{UPDATE}0ÿ0'{LET AG348,0}{INDICATE MENU}{BRANCH A272} ‚0@ÿ1'{LET AG350,1}{LET AG348,1}{LET AD352,"{BRANCH A307}"}{KA}eÿ1'{GETLABEL "ARE YOU SURE HQFILE DOES NOT EXIST NOW (Y/N):",AM300}{IF AM300="\"#OR#AM300=""}{\U} ÿ1'{\U} ‚1 ÿ2'{UHQ}=ÿ2'{IF @TRIM(AM300)="Y"#OR#@TRIM(AM300)="y"}{BRANCH B310} ‚24ÿ3'{IF @TRIM(AM300)="N"#OR#@TRIM(AM300)="n"}{\U} ‚3ÿ4'YLÿ4'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO RETRY:",AM300}{BRANCH B306}&ÿ4q= ×£`$@…ëQ¸Õ?ÿ¿€€€   ‚4ÿ4' ÿ5“ÿ5Sœð„{LET B300,@TRIM(B300)}{LET A228,B300}{SYMS}{SYMP}{SYMSL}{LET B300,A228}{RECALC B310..B311}{LET S1, €ö¿}{OFF}/CS1~S1..V1~3�ÿ5{LET B300,@TRIM(B300)}{LET A228,B300}{SYMS}{SYMP}{SYMSL}{LET B300,A228}{RECALC B310..B311}{LET S1, IND}{OFF}/CS1~S1..V1~ ÿ5'123 ÿ58^@.ÿ5ð?ø?ÿ¿€þ¿€ÿ¿€S  $" ‚5 ÿ&5'ADFhÿ6NœðY{ONERROR A485}{blank r4..x8192}/FXVA{ESC}€â¿\STOCK\€õ¿.WR1~R1..X3~QRQ{ESC}3Sÿ6{ONERROR A485}{blank r4..x8192}/FXVA{ESC}C:\123\STOCK\IND.WR1~R1..X3~QRQ{ESC} ÿ6'80 ÿ6ª"t>»!@*ÿ6€V@€€ €ÿ¿ " €ÿ¿  ‚6ÿ7'{PGRAPH}ÿ7'{ON}{\U} ÿ7'81 ÿ7'15 ÿ7`Z@ ÿ7 ×£p=ŠY@ÿ 7û¿€2 ‚7óÿ8'{INDICATE CHART}{LET E312,@MIN(U4..U8192)}{LET F310,@IF(@ISNA(@MAX(W4..X8192))=1#OR#@ISERR(@MAX(W4..X8192))=1,@MAX(U4..U8192),@MAX(U4..U8192,W4..X8192))}{LET F312,@MIN(W4..X8192)}{LET F312,@IF(@ISNA(F312)=1#OR#@ISERR(F312)=1,E312,F312)} ÿ8Ø£p= ·2@+ÿ8�Âõ(\3W@þ€ÿ¿€ÿ¿Sà?ÿ€€  ÿ8 ‚8 ÿ88^@ ÿ8…ëQ¸\@æÿ9'{LET F311,@MAX(V4..V8192)}{LET AE432,"X"}{LET AF432,"W"}{BLANK AN4..AQ8192}{LET E310,1.02*F310}{CONTENTS E310,E310}{LET E310,@TRIM(E310)}{LET F313,F310-@MIN(E312,F312)}{RECALC G313}{CONTENTS E311,G313}{LET E311,@TRIM(E311)} ÿ9'PRICE ÿ9'VOLÿ9'STPRICEÿ9'GRAPH STVOLÿ9'ALL P&Vÿ9'ZOOM P&V ÿ9'QUIT ‚9Rÿ9'{LET AE325,@IF(@VALUE(AE325)<@VALUE(I362),I362,AE325)}{RECALC AB315..AB321} ÿ 9cÿ:'{LET AD430,"50 PERIOD MA"}{LET AE430,"150 PERIOD MA"}{LET AF430,"PRICE CHART"}{OFF}{RESTART}*ÿ:'DISPLAY ALL PRICE DATA (LINE GRAPH)ÿ:'DISPLAY ALL VOLUME DATA3ÿ:'DISPLAY SHORT TERM H/L/C PRICE DATA AND MA'Sÿ:'GRAPH SHORT TERM VOLUME 3ÿ:'GRAPH ALL PRICE AND VOLUME DATA (LINE GRAPH)%ÿ:'GRAPH SHORT TERM H/L/C/V GRAPH&ÿ:'RETURN TO THE REPORT MENU LEVEL ‚:âÿ:DœðÓ{LET E312,@MIN(Uí¿/€..U8192)}{LET F312,@MIN(Wí¿/€..X8192)}{LET F312,@IF(@ISNA(F312)=1,E312,F312)}{LET AF330,@MIN(€ €€ €..€ €8192)}{LET F311,@MAX(€ €€ €..€ €8192)-AF330}3¤ÿ:{LET E312,@MIN(U219..U8192)}{LET F312,@MIN(W219..X8192)}{LET F312,@IF(@ISNA(F312)=1,E312,F312)}{LET AF330,@MIN(Z219..Z8192)}{LET F311,@MAX(Z219..Z8192)-AF330}%ÿ;'{MENUBRANCH B314}{BRANCH A364}vÿ;?œðg{RECALC B316}/gRGTLXR4..R€.€~AU4..U€.€~BW4..W€.€~CX4..X€.€~OLASTOCK PRICE~QQ3Rÿ;{RECALC B316}/gRGTLXR4..R267~AU4..U267~BW4..W267~CX4..X267~OLASTOCK PRICE~QQLÿ;<œð={RECALC C316..C317}/gRGTBXR4..R€.€~AV4..V€.€~Q34ÿ;{RECALC C316..C317}/gRGTBXR4..R267~AV4..V267~Qÿ;'{LET AC432,0}{HLCV}\ÿ;9œðM{RECALC E316..E317}/gRGTBXR€.€..R€.€~AV€.€..V€.€~Q38ÿ;{RECALC E316..E317}/gRGTBXR219..R267~AV219..V267~Qÿ;2œðp{BLANK AN1..IV50}{RECALC F316}{WINDOWSOFF}{GOTO}AO4~+$G$313+.4*$F$313*V4/$F$311~/CAO4~AO4..AO€.€~{HOME}3mÿ;{BLANK AN1..IV50}{RECALC F316}{WINDOWSOFF}{GOTO}AO4~+$G$313+.4*$F$313*V4/$F$311~/CAO4~AO4..AO267~{HOME}÷ÿ;%œ ðè{RECALC G316..G317}{LET E312,@MIN(S€.€..U8192)}{LET F312,@MIN(W€.€..X8192)}{LET F312,@IF(@ISNA(F312)=1#OR#@ISERR(F312)=1,E312,F312)}{LET F311,@MAX(V€.€..V8192)}{LET F313,@MAX(S€.€..U8192)-@MIN(E312..F312)}3Óÿ;{RECALC G316..G317}{LET E312,@MIN(S219..U8192)}{LET F312,@MIN(W219..X8192)}{LET F312,@IF(@ISNA(F312)=1#OR#@ISERR(F312)=1,E312,F312)}{LET F311,@MAX(V219..V8192)}{LET F313,@MAX(S219..U8192)-@MIN(E312..F312)}ÿ;'{PANELON}{IF H313=0}{\R} ‚;ƒÿ;œðt{LET AD313,@MAX(U€ €..U8192)}{LET AE313,@MAX(W€ €..X8192)}{LET AE313,@IF(@ISNA(AE313)=1,AD313,AE313)}3kÿ;{LET AD313,@MAX(U219..U8192)}{LET AE313,@MAX(W219..X8192)}{LET AE313,@IF(@ISNA(AE313)=1,AD313,AE313)}6ÿ<'/GOLB50 PERIOD MA~LC150 PERIOD MA~{RECALC B318}bÿ<œðS/GOTF€•¿~TSDAILY VOLUME~TXDATE~TYVOLUME (100/S)~GHFGLQCSS€û¿~QVQ{ON}3Iÿ</GOTFIBM~TSDAILY VOLUME~TXDATE~TYVOLUME (100/S)~GHFGLQCSS81~QVQ{ON}ÿ<'{PGRAPH}vÿ<œðg/GOTF€•¿~TSDAILY VOLUME (€Í¿ RECORDS)~TXDATE~TYVOLUME (100/S)~GHFGLQCSSÿ¿û¿~QVQ{ON}3Vÿ</GOTFIBM~TSDAILY VOLUME (49 RECORDS)~TXDATE~TYVOLUME (100/S)~GHFGLQCSS15~QVQ{ON}ˆÿ<œðy{RECALC F317}/gRGTLXR4..R€-€~AU4..U€-€~BW4..W€-€~CX4..X€-€~DAO4..AO€-€~OLASTOCK PRICE~QQ3^ÿ<{RECALC F317}/gRGTLXR4..R267~AU4..U267~BW4..W267~CX4..X267~DAO4..AO267~OLASTOCK PRICE~QQçÿ<œ ðØ{LET F310,@IF(@ISNA(@MAX(W€-€..X8192))=1#OR#@ISERR(@MAX(W€-€..X8192))=1,@MAX(S€-€..U8192),@MAX(S€-€..U8192,W€-€..X8192))}{LET E310,1.02*F310}{CONTENTS E310,E310}{LET E310,@TRIM(E310)}3½ÿ<{LET F310,@IF(@ISNA(@MAX(W219..X8192))=1#OR#@ISERR(@MAX(W219..X8192))=1,@MAX(S219..U8192),@MAX(S219..U8192,W219..X8192))}{LET E310,1.02*F310}{CONTENTS E310,E310}{LET E310,@TRIM(E310)}ÿ<'{IF H313=1}{BRANCH A364} ‚<Mÿ<œð>{LET F313,@MAX(AD313..AE313)-@MIN(E312..F312)}{RECALC G313}3Aÿ<{LET F313,@MAX(AD313..AE313)-@MIN(E312..F312)}{RECALC G313}Uÿ=ý›ðFTF€”¿~TSSTOCK PRICE~TXDATE~TYPRICE~GHFGLQCSS€ú¿~QVQ{ON}3<ÿ=TFIBM~TSSTOCK PRICE~TXDATE~TYPRICE~GHFGLQCSS81~QVQ{ON}ÿ='{PGRAPH}iÿ=ù›ðZTF€”¿~TSSTOCK PRICE (€Ì¿ RECORDS)~TXDATE~TYPRICE~GHFGLQCSS€ú¿~QV{ON}Q3Iÿ=TFIBM~TSSTOCK PRICE (49 RECORDS)~TXDATE~TYPRICE~GHFGLQCSS15~QV{ON}Qÿ='{PGRAPH}?ÿ='/GOLB50 PERIOD MA~LC150 PERIOD MA~LDVOLUME~{RECALC F319}©ÿ=ð›ðš{RECALC G313}{RECALC G310..G311}{RECALC G309}{RECALC G318}{WINDOWSOFF}{GOTO}Z4~+$G$311+$G$309*V4/$F$311~/CZ4~Z4..Z€,€~/RVZ4..Z€,€~Z4~{HOME}3‘ÿ={RECALC G313}{RECALC G310..G311}{RECALC G309}{RECALC G318}{WINDOWSOFF}{GOTO}Z4~+$G$311+$G$309*V4/$F$311~/CZ4~Z4..Z267~/RVZ4..Z267~Z4~{HOME} ÿ='{IF H313=2}{BREAKOFF}{\T} ‚=ñÿ=å›ðâ{RECALC AB318}{GOTO}€€€€~+$G$313+.4*$F$313*(€€€€-$AF$330)/$F$311~/C€€€€~€€€€..€€î¿,€~{IF E460=1}{LET AD324,@TRIM(AC324)}{LET AD325,@TRIM(AC323)}{LET E460,0}{BRANCH AB318}3®ÿ={RECALC AB318}{GOTO}Z219~+$G$313+.4*$F$313*(Z219-$AF$330)/$F$311~/CZ219~Z219..Z267~{IF E460=1}{LET AD324,@TRIM(AC324)}{LET AD325,@TRIM(AC323)}{LET E460,0}{BRANCH AB318}ÿ>'{PGRAPH}ÿ>'{PGRAPH} ÿ>…ÿ>à›ðvTF€“¿~TSSTOCK PRICE (VOLUME NOT TO SCALE)~TXDATE~TYPRICE~SYLÿ¿ø¿~Uÿ¿÷¿~MQGHFGLQCSSý¿ù¿~QVQ{ON}3_ÿ>TFIBM~TSSTOCK PRICE (VOLUME NOT TO SCALE)~TXDATE~TYPRICE~SYL80~U123~MQGHFGLQCSS81~QVQ{ON}Dÿ>'{CONTENTS E311,G311}{LET E311,@TRIM(E311)}{LET AC432,1}{HLCV}ÿ>'{IF H313=3}{\U} ‚>îÿ>Ö›ðß{HOME}/gRGTLXRí¿+€..Rî¿+€~AUí¿+€..Uî¿+€~BWí¿+€..Wî¿+€~CXí¿+€..Xî¿+€~DANí¿+€..ANî¿+€~OLASTOCK PRICE~QQ{IF @TRIM(AC324)=@TRIM(AD324)}/GEZí¿+€..Zî¿+€~Q{LET E460,1}3šÿ>{HOME}/gRGTLXR219..R267~AU219..U267~BW219..W267~CX219..X267~DAN219..AN267~OLASTOCK PRICE~QQ{IF @TRIM(AC324)=@TRIM(AD324)}/GEZ219..Z267~Q{LET E460,1}ÿ?'{PSORT}ÿ?' 4 ÿ?'{PGRAPH}ÿ?'{PGRAPH} ‚?@ÿ?Ô›ð1/GOLB50 PERIOD MA~LC150 PERIOD MA~LDì¿€~3/ÿ?/GOLB50 PERIOD MA~LC150 PERIOD MA~LDMACD~Zÿ@'{INDICATE "SORT"}{LET E319,AD1-1}{CONTENTS E320,E319}{RECALC E322}{MENUBRANCH A323} ‚@nÿ@Ï›ð_TF€‘¿~TSSTOCK PRICE (ì¿€ NOT TO SCALE)~TXDATE~TYPRICE~GHFGLQCSSè¿÷¿~QVQ{ON}3Pÿ@TFIBM~TSSTOCK PRICE (MACD NOT TO SCALE)~TXDATE~TYPRICE~GHFGLQCSS15~QVQ{ON}ÿ%@' ÿA'{SORT}ÿAÏ›ð€þ¿m3ÿA4 ‚A?ÿA'{LET H341,0}{BLANK AN4..AN8192}{BLANK Z4..Z8192}{RETURN} ÿB'AMOUNTÿB'PURCHASE DATE ÿB'GAINÿB'NO.OF SHARESÿB'DESCRIPTION ÿB'SYMBOL ÿB'QUIT ‚B ÿB'AQ#ÿC'SORT BY TOTAL DOLLAR AMOUNT 3ÿC'SORT THE PORTFOLIO SECURITY DATE OF PURCHASE&ÿC'SORT THE PORTFOLIO BY GAIN/LOSS-ÿC'SORT PORTFOLIO BY THE NUMBER OF SHARES+ÿC'ALPHABETIC SORT BY STOCK DESCRIPTION ÿC'ALPHABETIC SORT BY SYMBOL&ÿC'RETURN TO THE REPORT MENU LEVEL ‚CÿC'ZÿC'Z ÿC9ÿD'{RECALC A326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}9ÿD'{RECALC B326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}9ÿD'{RECALC C326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}9ÿD'{RECALC D326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}9ÿD'{RECALC E326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}9ÿD'{RECALC F326}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF} ÿD'{\R} ‚D ÿD'TECHÿD'YÿD'Z ÿD'219,ÿEÍ›ð/DSDA4..J€ü¿~PH4~D~G3ÿE/DSDA4..J4~PH4~D~G2ÿEÌ›ð#/DSDA4..J€ü¿~PC4~A~SA4~A~G3ÿE/DSDA4..J4~PC4~A~SA4~A~G,ÿEË›ð/DSDA4..J€ü¿~PF4~D~G3ÿE/DSDA4..J4~PF4~D~G2ÿEÉ›ð#/DSDA4..J€ü¿~PB4~D~SA4~A~G3ÿE/DSDA4..J4~PB4~D~SA4~A~G2ÿEÇ› ð#/DSDA4..J€ü¿~PA4~A~SC4~A~G3ÿE/DSDA4..J4~PA4~A~SC4~A~G2ÿEÆ›ð#/DSDA4..Jÿ¿ü¿~PG4~A~SC4~A~G3ÿE/DSDA4..J4~PG4~A~SC4~A~G ÿE'PORTC ÿE'CGC ÿ E'$0.00 ‚EUÿE'{GETLABEL "DO YOU WISH TO VIEW BOTH THE SECURITY AND INDICATOR? (Y/N):",AC325}"ÿF'{PANELON}{WINDOWSON}{PSORT}"ÿF'{PANELON}{WINDOWSON}{PSORT}"ÿF'{PANELON}{WINDOWSON}{PSORT}"ÿF'{PANELON}{WINDOWSON}{PSORT}"ÿF'{PANELON}{WINDOWSON}{PSORT}"ÿF'{PANELON}{WINDOWSON}{PSORT}HÿF'{OFF}{LET D330,AD1}{CONTENTS D331,D330}{RECALC D332}{RECALC H328}KÿF'{OFF}{LET D330,AG45+2}{CONTENTS D331,D330}{RECALC D332}{RECALC I328} ‚FQÿF'{IF @TRIM(AC325)="Y"#OR#@TRIM(AC325)="y"}{BLANK AN4..AN8192}{BRANCH AB330})ÿGÅ›ð{MENU}REA4..Jü¿€~3ÿG{MENU}REA4..J69~*ÿGÛð{MENU}REA63..Gû¿€~3ÿG{MENU}REA63..G69~ ‚GVÿG'{IF @TRIM(AC325)="N"#OR#@TRIM(AC325)="n"}{OFF}{LET H341,0}{LET AE324,0}{RETURN}-ÿ#G'+AO4+@IF(U5>U4,V5,-V5)*@IF(U5=U4,0,1)~ˆÿH'{MENU}REB55~{LET AD1,4}{MENU}RED51..F52~{MENU}CB54..D54~B54~{LET DOWCHG,"0.00,0.00%"}{LET F55,"0.00%"}{LET ALLCHG,J326}{HOME}{ON}HÿH'{MENU}REB55~{MENU}CA62..G62~A64~{LET AG45,63}{LET A65,AG87}{HOME}ÿ H' ‚HPÿH'{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO CONTINUE:",AC325}{BRANCH AB326}ÿ#H'WILLIAMS ACC/DIST ÿI'CLEAR ÿIE ÿI'CGEDIT ‚I,ÿI'{LET AD324,"AN"}{RECALC AB331..AB334} ÿIVÜÕ£eþÞ? ÿ!I  ÿ"I'OBVÿ#I'ACC/DIST ÿ%I ÿ&I(ÿJ'{INDICATE RESET}{MENUBRANCH A333}ÿJ' 69 (ÿJ'{RESTART}{MENUBRANCH F332}{TEDIT} ‚J%ÿJ'{OFF}{IF H341=1}{BRANCH AB314}ÿ!J' 9 ÿ"J'{WINDOWSOFF}{PANELOFF} ÿ%J'266 ÿ&J'18ÿK'{HOME}{BRANCH D336}ÿKÛð€ÿ¿m3ÿK69ÿKÛð€ÿ¿m3ÿK69 ÿKÿK'CHANGE CAPITAL GAINÿK'ENTER CAPITAL GAINÿK'DELETE CAPITAL GAIN ÿK'QUIT ‚K³ÿKº›ð¤{LET AF330,@MIN(€ù¿€ù¿..€ù¿8192)}{LET AD313,@MAX(U€ù¿..U8192)}{LET AE313,@MAX(W€ù¿..X8192)}{LET AE313,@IF(@ISNA(AE313)=1,AD313,AE313)}3ˆÿK{LET AF330,@MIN(Z219..Z8192)}{LET AD313,@MAX(U219..U8192)}{LET AE313,@MAX(W219..X8192)}{LET AE313,@IF(@ISNA(AE313)=1,AD313,AE313)}ÿ!Kº›ð€ÿ¿m3ÿ!K9ÿ"K'{RECALC AI335}ÿL'PORTFOLIOÿL'CAPITAL GAINS ÿL'BOTH ÿL'QUIT#ÿL'EDIT A CAPITAL GAIN POSITION;ÿL'ENTER A CAPITAL GAIN WITHOUT AFFECTING THE PORTFOLIO<ÿL'DELETE A CAPITAL GAIN WITHOUT AFFECTING THE PORTFOLIO9ÿL'RETURN TO THE EDIT MENU LEVEL AND PORTFOLIO WINDOW ‚LÝÿL®›ðÎ{LET E312,@MIN(U4..U8192)}{LET F312,@MIN(W4..X8192)}{LET F312,@IF(@ISNA(F312)=1,E312,F312)}{LET F311,@MAX(€ø¿€ø¿..€ø¿8192)-AF330}{LET F313,@MAX(AD313..AE313)-@MIN(E312..F312)}{RECALC G313}3¾ÿL{LET E312,@MIN(U4..U8192)}{LET F312,@MIN(W4..X8192)}{LET F312,@IF(@ISNA(F312)=1,E312,F312)}{LET F311,@MAX(Z219..Z8192)-AF330}{LET F313,@MAX(AD313..AE313)-@MIN(E312..F312)}{RECALC G313} ÿ!Lÿ"L'{GOTO}AO5~,ÿM'CLEAR THE PORTFOLIO OF ALL SECURITIES,ÿM'RESET CAPITAL GAINS TO ORIGINAL STATE,ÿM'RESET CAPITAL GAINS AND THE PORTFOLIO(ÿM'RETURN TO THE PREVIOUS MENU LEVEL\ÿM'{IF AG45=63}{GETLABEL "NO CAPITAL GAINS TO CHANGE (HIT ENTER TO CONT):",G330}{CGEDIT}ÿM'{ENTERCG}\ÿM'{IF AG45=63}{GETLABEL "NO CAPITAL GAINS TO DELETE (HIT ENTER TO CONT):",G330}{CGEDIT} ÿM'{HOME} ‚MóÿM¤›ðä{RECALC AB334}{GOTO}€ö¿€÷¿~+$G$313+.4*$F$313*(€÷¿€÷¿-$AF$330)/$F$311~/C€ö¿€÷¿~€ö¿€÷¿..€ö¿î¿€~{IF AE324=1}{LET AD324,@TRIM(AC324)}{LET AD325,@TRIM(AC323)}{LET AE324,0}{BRANCH AB334}3°ÿM{RECALC AB334}{GOTO}Z219~+$G$313+.4*$F$313*(Z219-$AF$330)/$F$311~/CZ219~Z219..Z267~{IF AE324=1}{LET AD324,@TRIM(AC324)}{LET AD325,@TRIM(AC323)}{LET AE324,0}{BRANCH AB334}ÿ!M' 273 #ÿ"M'+AO4+V5*(U5-U4)/(S5-T5+.01)~-ÿN'{GETLABEL "ARE YOU SURE? (Y/N):",A309}-ÿN'{GETLABEL "ARE YOU SURE? (Y/N):",A309}-ÿN'{GETLABEL "ARE YOU SURE? (Y/N):",A309} ÿN'{HOME}ÿN'{CHGCG}ÿN'{CGEDIT}ÿN'{DELCG}ÿN'{TEDIT} ‚N·ÿNœ›ð¨{HOME}{RECALC AB335..AB337}/gRGTLXR4..Rî¿€~AU4..Uî¿€~BW4..Wî¿€~CX4..Xî¿€~DAN4..ANî¿€~Q{IF @TRIM(AC324)=@TRIM(AD324)}/GEZ4..Zî¿€~Q3‡ÿN{HOME}{RECALC AB335..AB337}/gRGTLXR4..R267~AU4..U267~BW4..W267~CX4..X267~DAN4..AN267~Q{IF @TRIM(AC324)=@TRIM(AD324)}/GEZ4..Z267~Qÿ!N›› ð€ÿ¿m3 ÿ!N273Bÿ"N˜›ð3{MENU}CAO5~AO5..AOç¿€~{HOME}{RECALC AI336}30ÿ"N{MENU}CAO5~AO5..AO267~{HOME}{RECALC AI336}'ÿO'{IF A309="Y"#OR#A309="y"}{PORTC}%ÿO'{IF A309="Y"#OR#A309="y"}{CGC}RÿO'{IF A309="Y"#OR#A309="y"}{PORTC}{CGC}{GOTO}A60~{ON}{WAIT @NOW+@TIME(0,0,2)}ÿO'{IF E332=1}{PD}ÿO'{CGEDIT}ÿO'{CGEDIT} ‚ONÿO•›ð?/GOLASTOCK PRICE~LB50 PERIOD MA~LC150 PERIOD MA~LDì¿€~3=ÿO/GOLASTOCK PRICE~LB50 PERIOD MA~LC150 PERIOD MA~LDMACD~Hÿ"O’› ð9/gRGTLXR4..Rç¿€~AAO4..AOç¿€~{RECALC aI337}30ÿ"O/gRGTLXR4..R267~AAO4..AO267~{RECALC aI337} ÿP'{HOME}-ÿP'{GOTO}A60~{ON}{WAIT @NOW+@TIME(0,0,2)} ÿP'{HOME}ÿP'{IF E332=0}{OTHER} ‚PnÿP�›ð_TF€�¿~TSSTOCK PRICE (ì¿€ NOT TO SCALE)~TXDATE~TYPRICE~GHFGLQCSSç¿ç¿~QVQ{ON}3PÿPTFIBM~TSSTOCK PRICE (MACD NOT TO SCALE)~TXDATE~TYPRICE~GHFGLQCSS81~QVQ{ON}Qÿ"PŠ›ðBOTSý¿�¿~TF€ø¿~TXDATE~TY€ù¿~GHFGLQCSSà¿ç¿~3?ÿ"POTSIBM~TFWILLIAMS ACC/DIST~TXDATE~TYACC/DIST~GHFGLQCSS81~ÿQ'{CLEAR}ÿQ'{CLEAR}ÿQ'{BRANCH D336} ÿQ'DD ‚Q?ÿQ'{LET H341,0}{BLANK AN4..AN8192}{BLANK Z4..Z8192}{RETURN} ÿ!Q'MO ÿ#Q ÿ$Q'15 ÿ%Q ÿ&Q'16 ÿR ÿR˜ ÿR'268 ‚R ÿR'\K�ÿ"R�›ðŽ{BLANK AN4..AQ8192}{WINDOWSOFF}{PANELOFF}/REAO4..APç¿€~{LET AJ338,C411+3}{CONTENTS AK338,AJ338}{LET AK338,@TRIM(AK338)}{RECALC AI340}3‹ÿ"R{BLANK AN4..AQ8192}{WINDOWSOFF}{PANELOFF}/REAO4..AP267~{LET AJ338,C411+3}{CONTENTS AK338,AJ338}{LET AK338,@TRIM(AK338)}{RECALC AI340} ÿS'{UHQ} ÿS'RSÿS'5®ÿS'{IF AH16>@CELLPOINTER("CONTENTS")#AND#@CELLPOINTER("CONTENTS")<>0}{GETLABEL "CAN'T INSERT DATE LATER THAN LAST DATE IN FILE (HIT ENTER TO CONT):",AG1}{MENUBRANCH A343} ÿS'MACD ‚SeÿS'{GETLABEL "ENTER THE SECURITY SYMBOL OR DESCRIPTION:",AG341}{IF AG341="\"#OR#AG341=""}{RETURN}«ÿ"Sz›ðœ{GOTO}AO€þ¿~+U€þ¿-U4~{LET AP€þ¿,AO€þ¿}{LET AL338,AJ338+1}{CONTENTS AM338,AL338}{LET AM338,@TRIM(AM338)}{RECALC AI341..AI342}{MOD}3ƒÿ"S{GOTO}AO15~+U15-U4~{LET AP15,AO15}{LET AL338,AJ338+1}{CONTENTS AM338,AL338}{LET AM338,@TRIM(AM338)}{RECALC AI341..AI342}{MOD}^ÿT'{OFF}{GOTO}R1~{DOWN 3}/WTH{END}{DOWN}{LET C339,0}{IF @CELLPOINTER("ROW")=8192}{END}{UP} ÿT ÿT ‚TFÿT'{LET AF345,0}{LET AH342,4}{IF @TRIM(AG341)="IND"}{LET AH342,56} ÿ T'IBMZÿ"Tw›ðK{GOTO}AP€ý¿~+AP€ý¿+(AO€ý¿-AP€ý¿)*(2/($D$411+1))~32ÿ"T{GOTO}AP16~+AP15+(AO16-AP15)*(2/($D$411+1))~3ÿU'{RESTART}{ON}{MENUBRANCH A343}/WTC{HOME}{\U}ÿU'4 ÿU'151ÿU'4 ‚U—ÿU'{LET AG342,@TRIM(AG341)}{CONTENTS AH343,AH342}{RECALC AH344}{RECALC AB344}{IF AH342=AD1}{IF AG350=0}{LET AF345,1}{LET AF210,AG342}{BRANCH AB346} ÿ U'IBM ÿ!U‡ÿ"Ur›ðx/CAO€ü¿~AO€ü¿..AOç¿€~/CAP€ü¿~AP€ü¿..APç¿€~{BLANK AO4..AO8192}{RECALC AI343}{HOME}3Sÿ"U/CAO15~AO15..AO267~/CAP16~AP16..AP267~{BLANK AO4..AO8192}{RECALC AI343}{HOME}ÿV'ADD DATEÿV'DELETE DATEÿV'EDIT DATEÿV'INSERT DATE ÿV'QUIT ‚VMÿV'{IF AH342=AD1}{IF AG350=1}{LET AF345,1}{LET AF210,AG342}{BRANCH AB346}ÿ!V' 4 Hÿ"Vo›ð9/gRGTBXR4..Rç¿€~AAP4..APç¿€~{RECALC AI344}30ÿ"V/gRGTBXR4..R267~AAP4..AP267~{RECALC AI344}1ÿW'ADD THE NEXT SEQUENTIAL DATE TO THE HQFILEÿW'REMOVE DATE FROM FILEÿW'CHANGE EXISTING DATAÿW'PLACE NEW DATE IN FILE8ÿW'SAVE HQFILE (IF EDITED) AND RETURN TO UPDATE MENU ‚WeÿWk› ðV{IF $G$€€=AG342#OR#$A$€€=AG342}{LET AG342,$G$€€}{BRANCH AB346}3AÿW{IF $G$4=AG342#OR#$A$4=AG342}{LET AG342,$G$4}{BRANCH AB346}ÿ!Wk›ð€ÿ¿m3ÿ!W4Oÿ"Wh›ð@OTSþ¿þ¿~TFMOMENTUM~TXDATE~TYMOMENTUM~GHFGLQCSSà¿à¿~36ÿ"WOTSIBM~TFMOMENTUM~TXDATE~TYMOMENTUM~GHFGLQCSS81~LÿX'{OFF}{LET C339,1}{LET AC245,0}{GOTO}R4~{IF @VALUE(R4)=0}{BRANCH A348}vÿX'{OFF}{GETLABEL "ENTER THE DATE YOU WISH TO DELETE (MM/DD/YY):",DATE}{RECALC AH16}{IF DATE="\"}{MENUBRANCH A343}tÿX'{OFF}{GETLABEL "ENTER THE DATE YOU WISH TO EDIT (MM/DD/YY):",DATE}{RECALC AH16}{IF DATE="\"}{MENUBRANCH A343}?ÿX'{IF @VALUE(R4)=0#AND#@CELLPOINTER("ROW")=4}{BRANCH A345}ZÿX'{OFF}{LET AH347,0}{LET C484,"E351"}{LET C485,"BRANCH E352"}{IF C339=0}{BRANCH E352} ‚X(ÿX'{LET AH342,AH342+1}{BRANCH AB342} ÿXÿ%X'+ÿY'{IF @VALUE(R5)=0}{DOWN}{BRANCH A348}RÿY'{LET C339,1}{LET AC245,1}{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH B345}RÿY'{LET C339,1}{LET AC245,1}{RECALC AH16}{IF @ISERR(AH16)=1}{ERS}{BRANCH C345}vÿY'{OFF}{GETLABEL "ENTER THE DATE YOU WISH TO INSERT (MM/DD/YY):",DATE}{RECALC AH16}{IF DATE="\"}{MENUBRANCH A343}2ÿY'{RECALC E351}{IF @VALUE(R4)=0}{BRANCH E351} ‚YAÿY'{LET A228,AG342}{SYMP}{SYMS}{SYMSL}{LET AG342,@TRIM(A228)}lÿ&Y'{IF J3614}{UP}3+ÿ\{OFF}{GOTO}R4~{IF @VALUE(C342)>4}{UP} ÿ\ ’ÿ\'{PANELON}{INDICATE "UPDATE"}{PANELOFF}{LET AF184,"="}{LET E342,AG179+2}{CONTENTS E342,E342}{LET E342,@TRIM(E342)}{RECALC D350}{RECALC D352}Éÿ\'{LET D340,D339-@VALUE(F266)+1}{LET E339,@VALUE(F266)+4}{CONTENTS D340,D340}{CONTENTS E339,E339}{LET D340,@TRIM(D340)}{LET E339,@TRIM(E339)}{CONTENTS D339,D339}{LET D339,@TRIM(D339)}{RECALC E350}ÿ\' ‚\)ÿ\'{IF @TRIM(S1)=AG342}{BRANCH AB352} ÿ \ ÿ!\'{IF AG348=1}{BRANCH A305}ÿ]'{PRINT}ÿ]'{ON}{BRANCH A342}"ÿ]' 267 dÿ]W›ðU{GOTO}R€ø¿~/MR€ø¿..X€S¿~{DOWN}~{GOTO}R€ø¿~/RFD~R€ø¿~30ÿ]{GOTO}R4~/MR4..X5~{DOWN}~{GOTO}R4~/RFD~R4~Rÿ]ðC/MRÿ¿ö¿..Xÿ¿õ¿~R4~/RER€õ¿..X8192~/RFD~R4..R8192~ÿ]'{SHORT} ‚]cÿ]'{BLANK S1}{PANELOFF}{WINDOWSOFF}{RECALC AB351}{LET AH347,0}{LET C484,"AB351"}{LET C485,"\M"} ÿ ]ÿ!]'{BRANCH A362}sÿ^'{RESTART}{RECALC B351}{INDICATE "PRINT"}{ONERROR B351}{GETLABEL "TURN PRINTER ON (HIT ENTER TO CONT):",C352}Zÿ^'{ONERROR B351}{GETLABEL "PRINTER NOT READY (HIT ENTER TO CONT):",C352}{BRANCH A351}ÿ^V› ð€ÿ¿m3 ÿ^267Pÿ^'{LET AH177,@VALUE(AH177)+1}{CONTENTS AH177,AH177}{LET AH177,@TRIM(AH177)}¡ÿ^N›ð’{ONERROR A485}{PANELON}{INDICATE SAVE}{OFF}/FXVA{ESC}€º¿\STOCK\€÷¿.WR1~R1..X€©¿~R/WTC{HOME}{ON}{ONERROR G276}{LET C339,0}{\U}3†ÿ^{ONERROR A485}{PANELON}{INDICATE SAVE}{OFF}/FXVA{ESC}C:\123\STOCK\IBM.WR1~R1..X267~R/WTC{HOME}{ON}{ONERROR G276}{LET C339,0}{\U}ÿ^'{MENUBRANCH F353} ‚^mÿ^I›ð^{GOTO}R1~{ONERROR A485}{blank r4..x8192}/FCCE{ESC}{ESC}쿺¿\STOCK\€÷¿.WR1~{HOME}3Xÿ^{GOTO}R1~{ONERROR A485}{blank r4..x8192}/FCCE{ESC}{ESC}C:\123\STOCK\IBM.WR1~{HOME}ÿ_'{MENUBRANCH A353}{\R}ÿ_'Fÿ_F›ð7{LET R€ö¿,AH16}{ON}{BRANCH AB252}{BRANCH A342}32ÿ_{LET R4,AH16}{ON}{BRANCH AB252}{BRANCH A342}%ÿ_'/WTC{HOME}{ON}{LET C339,0}{\U} ÿ_'{\T} ‚_ÿ_'{ONERROR G276}ÿ_'{BRANCH A307}Qÿ_'{HOME}{GETLABEL "DISK DRIVE NOT READY, READY DRIVE AND HIT RETURN:",AG353}ÿ`'CAPITAL GAINSÿ`'PORTFOLIOÿ`'STOCK DATA ÿ`'QUITÿ`'SELL SHORTÿ`'BUYBACK SHORT ÿ`'QUIT ‚`/ÿ`'{RECALC AB354}{IF AG350=0}{PLOT}{RETURN}ÿ `' ÿ#`o ÿa'PRINT CAPITAL GAIN REPORT&ÿa'PRINT CURRENT PORTFOLIO RESULTS ÿa'PRINT THE STOCK DATA AREA&ÿa'RETURN TO THE REPORT MENU LEVELÿa'ENTER SHORT POSITIONÿa'EXIT SHORT POSITION+ÿa'RETURN TO THE TRANSACTION MENU LEVEL ‚a%ÿaD› ð{LET AG350,0}€þ¿3!ÿa{LET AG350,0}{BRANCH AB123}Aÿa'{GETLABEL "FILE NOT AVAILABLE (HIT ENTER TO CONT):",AE348}|ÿ"a'{OFF}{GOTO}A60~{ON}{GETLABEL "ENTER THE DESCRIPTION OF THE CAPITAL GAIN TO BE EDITED:",AJ354}{LET AJ354,@TRIM(AJ354)}ÿ#a'\ ÿ%a? ÿ&a'63kÿb'{LET C349,AG45+3}{CONTENTS C350,C349}{RECALC C351}{RECALC A356}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}hÿb'{LET C349,AD1}{CONTENTS C350,C349}{RECALC C351}{RECALC B356}{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}|ÿb'{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}{GOTO}R8192~{END}{UP}{LET C349,@CELLPOINTER("ROW")}{HOME}{IF C349<4}{LET C349,4}ÿb'{ONERROR G276}{\R}ÿb'{LET AH10,1}ÿb'{LET AH60,1} ÿb'{\T} ‚b7ÿ"b'{LET AL354,63}{IF AJ354="\"#OR#AJ354=""}{CGEDIT}HÿcA›ð9/PPRA60..F€û¿~OH1{ESC}CAPITAL GAINS REPORT~QAGPQ36ÿc/PPRA60..F267~OH1{ESC}CAPITAL GAINS REPORT~QAGPQPÿc=›ðA/PPRA1..F€û¿~OH1{ESC}SECURITY PORTFOLIO~QAGRA50..F56~GPQ3>ÿc/PPRA1..F267~OH1{ESC}SECURITY PORTFOLIO~QAGRA50..F56~GPQ5ÿc'{CONTENTS C350,C349}{RECALC C351}{RECALC C357} ÿc'{\A} ÿc'{\B} ‚cŽÿ"c'{GETLABEL "ENTER THE DATE THE SECURITY WAS SOLD (MM/DD/YY):",AJ353}{LET AJ353,@DATEVALUE(AJ353)}{IF @ISERR(AJ353)=1}{ERS}{BRANCH AI356}(ÿd'{PANELON}{WINDOWSON}{BRANCH A352}(ÿd'{PANELON}{WINDOWSON}{BRANCH A352}Gÿd;›ð8/PPRR1..X€ú¿~OH1{ESC}€m¿ STOCK DATA~QAGPQ3/ÿd/PPRR1..X267~OH1{ESC}IBM STOCK DATA~QAGPQÿd'{LET AH10,0}ÿd'{LET AH60,0} ‚dCÿ"d'{CONTENTS AM354,AL354}{LET AM354,@TRIM(AM354)}{RECALC AI358}(ÿe'{PANELON}{WINDOWSON}{BRANCH A352}ÿe'{SHORT}ÿe'{SHORT}ÿe'{PANELOFF}{WINDOWSOFF} ‚eJÿ"e8›ð;{IF A€ü¿=AJ354#AND#C€ü¿=AJ353}{BRANCH AI361}30ÿ"e{IF A63=AJ354#AND#C63=AJ353}{BRANCH AI361}Vÿf3› ðG{ONERROR AF380}/PPRA145..F€é¿~OH{ESC}CAPITAL GAINS REPORT~QAGQ3Pÿf{ONERROR AF380}/PPRA145..F{IF E332=1}{PD}~OH{ESC}CAPITAL GAINS REPORT~QAGQ ‚fcÿ"f'{IF AL354=AG45}{GETLABEL "DESCRIPTION WAS NOT FOUND (HIT ENTER TO TRY AGAIN):",AN354}{CHGCG} ÿg'\C ÿg'BGHÿg3›ðÿ¿€m3 ÿgBGHÿg'ÿg'{PANELON}{WINDOWSON} ‚g(ÿ"g'{LET AL354,AL354+1}{BRANCH AI357} ÿh'{PANELON}{INDICATE ANLYZ} ÿh ÿhÛ ÿ h  ‚h'ÿ"h'{LET AM361,AG45}{LET AG45,AL354} ÿ&h@nÿi'{GETLABEL "ENTER THE THE SECURITY SYMBOL OR DESCRIPTION:",AG341}{IF AG341="\"#OR#AG341=""}{BRANCH A272} ÿi'219 ÿ i'267 ‚iÿ"i'{LET AM166,1}{ENTERCG}cÿj'{INDICATE WAIT}{BLANK K1..Q8192}{INDICATE ANLYZ}{LET AG350,1}{LET AD352,"{BRANCH A364}"}{KA} ‚j3ÿk'{RESTART}{ROWT}{LET H341,0}{MENUBRANCH A366}ÿk' ‚k ÿl'{\M}ÿl'Q ÿl'266 ‚l ÿl ÿl™ ÿlC ÿ l#| ÿm'PLOTÿm'GRAPH SAVEÿm'OSCILLATOR ÿm'TRENDÿm'REL STRENGTH ÿm'STATS ÿm'VOLUME ÿm'QUIT ‚m ÿm'CGSORTÿm'> ÿm'153 ÿm'67 ÿ m ~ÿn'RETURN TO THE CHART MODE!ÿn'SAVE THE MOST RECENT GRAPHÿn'MOMENTUM INDICATORS ÿn'MOVING AVERAGE INDICATORSÿn'PLOT RELATIVE STRENGTH4ÿn'DISPLAY KEY STOCK PRICE AND VOLUME STATISTICSÿn'VOLUME INDICATORS#ÿn'RETURN TO THE TOP MENU LEVELÿ n' ‚n¯ÿn'{INDICATE WAIT}{PANELOFF}{WINDOWSOFF}{LET AF365,63}{LET AE365,514}{MENU}REA514..F1000~{IF AG45=63}{GETLABEL "NO CAPITAL GAINS TO SORT (HIT ENTER TO CONT):",AF378}{SORT}ÿo'{INDICATE CHART}¸ÿo'{LET AH347,0}{LET C484,"B369"}{LET C485,"BRANCH A364"}{GETLABEL "ENTER A NAME FOR THE GRAPH YOU WISH TO SAVE:",D365}{LET D365,@TRIM(D365)}{RECALC B369}{IF D365="\"}{BRANCH A364} ÿo'{MOA} ÿo'{MAA} ÿo'{RSM}mÿo'{IF J361<4}{GETLABEL "NOT ENOUGH DATA TO CALCULATE STATISTICS (HIT ENTER TO CONT):",F364}{BRANCH A364} ÿo'{VOLA}Bÿo'{OFF}/GRGQ{ON}{BLANK AN1..IV50}{INDICATE MENU}{BRANCH A272} ‚ogÿo'{CONTENTS AF366,AF365}{LET AF366,@TRIM(AF366)}{RECALC AB369..AB373}{IF AF365=AG45}{BRANCH AB379}ÿp'{LET H313,1}{PGRAPH}Wÿp/› ðH{PANELOFF}{ONERROR A485}/GS{ESC}{ESC}€¨¿\PIC\€ü¿~QRQ{ESC}3@ÿp{PANELOFF}{ONERROR A485}/GS{ESC}{ESC}C:\123\PIC\Q~QRQ{ESC}(ÿp'{INDICATE ANLYZ}{MENUBRANCH A366}2ÿp'{LET F365,J361-1}{LET F365,@STRING(F365,0)} ‚pbÿp,›ðS{LET AG365,@MIN(B€ý¿..C€ý¿)}{LET AG366,@MAX(B€ý¿..C€ý¿)}3:ÿp{LET AG365,@MIN(B67..C67)}{LET AG366,@MAX(B67..C67)}+ÿq'{PANELON}{ONERROR G275}{BRANCH A364}Tÿq(› ðE{RECALC F370}{OFF}{SU}/CR€û¿..X€ø¿~AB451~{RECALC F371}3<ÿq{RECALC F370}{OFF}{SU}/CR266..X267~AB451~{RECALC F371} ‚qOÿq'{LET AH370,@DAY(AG365)}{LET AH371,@MONTH(AG365)}{LET AH372,@YEAR(AG365)} ÿ!q¨ÿr ›ð™{LET AD450,100*V€÷¿/@AVG(V4..V€÷¿)}{LET AD450,@STRING(AD450,0)}{RECALC AE450}{RECALC AB453..AF465}{GOTO}AB453~{RIGHT 5}{ON}{INDICATE STAT}3�ÿr{LET AD450,100*V267/@AVG(V4..V267)}{LET AD450,@STRING(AD450,0)}{RECALC AE450}{RECALC AB453..AF465}{GOTO}AB453~{RIGHT 5}{ON}{INDICATE STAT} ‚rÿr'{LET AH371,AH371+AC365} ÿ!rLÿs'{GETLABEL "HIT ENTER TO CONTINUE:",F364}{INDICATE ANLYZ}{BRANCH A364}:ÿs›ð+/gRGTLXR4..R i~AAO4..AO i~3"ÿs/gRGTLXR4..R267~AAO4..AO267~1ÿs'{PANELOFF}{WINDOWSOFF}{GOTO}R4~{END}{DOWN} ‚sWÿs'{IF AH371>12}{LET AH372,AH372+@INT(AH371/12)}{LET AH371,AH371-12*@INT(AH371/12)} ÿ!sWÿt'{GOTO}AD455~+R4~dÿt› ðU{RECALC F373}{PANELOFF}{WINDOWSOFF}{MENU}CU4..U€õ¿~AP4~{LET J380,R€õ¿}3Lÿt{RECALC F373}{PANELOFF}{WINDOWSOFF}{MENU}CU4..U267~AP4~{LET J380,R267}yÿt›ðjOTSRELATIVE STRENGTH COMPARISON~TF² VS Ð~TXDATE~TYRELATIVE STRENGTH~GHFGLQCSS7~3ZÿtOTSRELATIVE STRENGTH COMPARISON~TFIBM VS IBM~TXDATE~TYRELATIVE STRENGTH~GHFGLQCSS81~Iÿt'{LET J361,@CELLPOINTER("ROW")}{IF J361=8192}{END}{UP}{BRANCH I373} ‚teÿt'{RECALC AH373}{RECALC AB374}{IF @ISERR(AH373)=1}{LET AH371,AH371+1}{LET AH370,1}{RECALC AH373} ÿ!t6ß@€ÿ¿€þ¿€ý¿6+ÿ"t'+AO4+(U5*100/U4-100)*@IF(V5V4,1,0)~Hÿu'{GOTO}AB463~+"PRICE HIGH (ALL DATA)="&@STRING(@MAX(S4..S8192),3)~3ÿu'{LET AG350,1}{LET AD352,"{BRANCH F375}"}{KA}Kÿu'{CONTENTS J362,J361}{LET J362,@TRIM(J362)}{PANELON}{HOME}{WINDOWSON} ‚uKÿu›ð<{IF AG366€ø¿AH373}{LET AF365,AF365+1}{BRANCH AB368}37ÿu{IF AG366>AH373}{LET AF365,AF365+1}{BRANCH AB368} ÿ!u'<=Iÿv'{GOTO}AB464~+"VOLUME HIGH (ALL DATA)="&@STRING(@MAX(V4..V8192),0)~Áÿv'{PANELOFF}{WINDOWSOFF}{GOTO}R8192~{END}{UP}{LET J381,@CELLPOINTER("CONTENTS")}{LET J382,@CELLPOINTER("ROW")}{LET I381,@IF(J382J361,4+J382-J361,4)}ÿv'4ÿv'{LET I361,J361-G265+1}{IF I361<4}{LET I361,4} ‚vJÿv'{CONTENTS AE366,AE365}{LET AE366,@TRIM(AE366)}{RECALC AB376..AB377}ÿ!v'>Gÿw'{GOTO}AF463~+"PRICE LOW (ALL DATA)="&@STRING(@MIN(T4..T8192),3)~Öÿw'{LET I381,@STRING(I381,0)}{LET I382,@STRING(I382,0)}{RECALC F377}{IF J381<>J380}{GETLABEL "FILES HAVE DIFFERENT END DATES (HIT ENTER TO CONT):",I380}{LET AG341,B435}{LET AG350,1}{LET AD352,"{HOME}{RSM}"}{KA}ÿw'Ûÿw'{CONTENTS I362,I361}{LET I362,@TRIM(I362)}{LET C312,@IF(J361<10,1,@INT(J361*.239)+1)}{CONTENTS C312,C312}{LET C312,@TRIM(C312)}{LET D312,@IF(J361<10,1,@INT(G265*.239)+1)}{CONTENTS D312,D312}{LET D312,@TRIM(D312)} ‚w;ÿw› ð,{MENU}CA€ö¿..F€ö¿~A€ö¿~3ÿw{MENU}CA67..F67~A153~ÿ!w'LONG TERM GAINS ÿ$w'267Hÿx'{GOTO}AF464~+"VOLUME LOW (ALL DATA)="&@STRING(@MIN(V4..V8192),0)~lÿx ›ð]{GOTO}AO€€~+AP€€/U€€*($U$€€/$AP$€€)~{RECALC F378..F379}38ÿx{GOTO}AO4~+AP4/U4*($U$4/$AP$4)~{RECALC F378..F379} ‚x>ÿx'{LET AE365,AE365+1}{LET AF365,AF365+1}{LET AH378,AE366} ÿxÿ!x'SHORT TERM GAINSÿ$x'4Wÿ&x'{GETLABEL "FILES HAVE DIFFERENT END DATES (HIT ENTER TO CONT):",AL378}{HOME}{\R}Qÿy ›ðB{MENU}CAO€€~AO€€..AO€ð¿~{RECALC F378}{HOME}3/ÿy{MENU}CAO4~AO4..AO267~{RECALC F378}{HOME} ‚y-ÿy'{IF AF365Rã¿ð¿}€ÿ¿3€ÿ&y{RECALC AM378}{IF AL376=1#AND#AM386<>R267}{GETLABEL "FILES HAVE DIFFERENT END DATES (HIT ENTER TO CONT):",AL378}{HOME}{\R}jÿzþšð[/gRGTLXR€€..R i~AAO€€..AO i~{RECALC F380}{RECALC G372..G373}3Bÿz/gRGTLXR4..R267~AAO4..AO267~{RECALC F380}{RECALC G372..G373} ‚zVÿz'{LET AE365,AE365+1}{CONTENTS AE366,AE365}{LET AE366,@TRIM(AE366)}{RECALC AB380} ÿ#z'PORTRS ÿ$zÿ%z'4Jÿ&z'{LET AK377,@IF(AL376=1#AND#AM387J361,@STRING(4+AM387-J361,0),"4")}Iÿ|'{LET AG341,B435}{LET AG350,1}{LET AD352,"{HOME}{BRANCH B441}"}{KA}ÿ|'4 ÿ |ß| ‚|]ÿ|'{LET AE365,AE365+1}{CONTENTS AE366,AE365}{LET AE366,@TRIM(AE366)}{RECALC AB381..AB384}Jÿ|'{GETLABEL "PRINTER NOT READY (READY AND HIT ENTER TO CONT):",AF378}fÿ"|'{CONTENTS AL379,AK379}{LET AL379,@TRIM(AL379)}{RECALC AI382..AI383}{IF AK379=AD1}{BRANCH AI391}ÿ}' ÿ}"ÿ}'5ÿ}'4 ÿ }  ‚}8ÿ}ôšð){IF AC366=AH374}{LET A€ð¿,AH376}3&ÿ}{IF AC366=AH374}{LET A153,AH376}ÿ}'{OFF}{BRANCH AB389}Dÿ"}òšð5{IF B€ý¿=0}{LET AK379,AK379+1}{BRANCH AI381}30ÿ"}{IF B4=0}{LET AK379,AK379+1}{BRANCH AI381}ÿ~'SECEDIT ÿ~'IBMÿ~'-ÿ~'{LET AH40,4}{LET AL103,0}{LET E383,""}ÿ~' ‚~8ÿ~ðšð){IF AC366=AH375}{LET A€ï¿,AH377}3&ÿ~{IF AC366=AH375}{LET A153,AH377}Áÿ"~æšð²{LET AN382,G€ü¿}{RECALC AI385}{LET AF121,AN382}{RECALC AK67}{IF AK67=1}{GOTO}AO4~+$H$€ü¿+AP4~/CAO4~AO4..AO8192~/RVAO4..AO8192~AP4~{LET AK379,AK379+1}{BRANCH AI381}3¥ÿ"~{LET AN382,G4}{RECALC AI385}{LET AF121,AN382}{RECALC AK67}{IF AK67=1}{GOTO}AO4~+$H$4+AP4~/CAO4~AO4..AO8192~/RVAO4..AO8192~AP4~{LET AK379,AK379+1}{BRANCH AI381}(ÿ'{RESTART}{MENUBRANCH A385}{TEDIT}Xÿ'{LET B383,@TRIM(B383)}{CONTENTS AH41,AH40}{RECALC AH42}{RECALC E383}{RECALC F386} ‚ËÿÝšð¼{LET D€î¿,@SUM(D514..D€ú¿)}{LET E€î¿,@SUM(E514..E€ú¿)}{LET F€î¿,@SUM(F514..F€ú¿)}/RFC~D€î¿..F€î¿~{GOTO}A511~{GOTO}A514~/WTH{RECALC AB385}3�ÿ{LET D153,@SUM(D514..D514)}{LET E153,@SUM(E514..E514)}{LET F153,@SUM(F514..F514)}/RFC~D153..F153~{GOTO}A511~{GOTO}A514~/WTH{RECALC AB385}}ÿ"'{LET AH347,0}{LET C484,"AI385"}{LET C485,"\R"}{LET A228,AN382}{SYMP}{SYMS}{SYMSL}{LET AN382,@TRIM(A228)}{RECALC AI385}ÿ€'CHANGE SECURITYÿ€'DELETE SECURITYÿ€'ENTER SECURITY ÿ€'QUITfÿ€'{IF AH40=AD1}{GETLABEL "DESCRIPTION WAS NOT FOUND, HIT ENTER TO TRY AGAIN:",AE348}{BRANCH A387} ‚€Xÿ€ÙšðI{PANELON}{WINDOWSON}{WAIT @NOW+@TIME(0,0,3)}{OFF}{GOTO}A€í¿~{ON}3Fÿ€{PANELON}{WINDOWSON}{WAIT @NOW+@TIME(0,0,3)}{OFF}{GOTO}A153~{ON}ÿ!€'nÔÿ"€ðÅ{LET AM386,Rç¿é¿}{SNDCK}{BLANK R4..X8192}{GOTO}R1~{PANELON}{INDICATE €Å¾€ý¿€Å¾}{PANELOFF}{ONERROR A485}/FCCE{ESC}{ESC}忘¿\STOCK\€ý¿.WR1~{ONERROR G276}{ROWT}{FL}{OFF}ÿ�'MODIFY SECURITY DATAGÿ�'ELIMINATE SECURITY FROM PORTFOLIO (NO CASH/CAPITAL GAINS CHANGE)@ÿ�'ADD SECURITY TO PORTFOLIO WITHOUT AFFECTING CASH RESERVES$ÿ�'RETURN TO THE EDIT MENU LEVELKÿ�Öš ð<{IF $A$€¨¾=B383ÿ¿ý¿}{RECALC F389}{BRANCH F388}3.ÿ�{IF $A$9=B383}{RECALC F389}{BRANCH F388} ‚�™ÿ�'{GETLABEL "DO YOU WISH TO PRINT THE RESULTS? (Y/N):",AH385}{IF AH385="N"#OR#AH385="n"}{OFF}{BLANK A514..F1000}/RFRA514..F1000~/WTC{ON}{HOME}{SORT}�ÿ"�Ïšð~{RECALC AI386}{GOTO}AO€ø¿~{LET AK376,@IF(AL376=0,J362,AK376)}{LET AM387,@IF(AL376=0,J361,AM387)}{RECALC AI387..AI388}3yÿ"�{RECALC AI386}{GOTO}AO4~{LET AK376,@IF(AL376=0,J362,AK376)}{LET AM387,@IF(AL376=0,J361,AM387)}{RECALC AI387..AI388}nÿ‚'{GETLABEL "ENTER THE DESCRIPTION OF THE SECURITY TO BE CHANGED:",B383}{IF B383="\"#OR#B383=""}{SECEDIT}ÿ‚'{LET AH63,1}ÿ‚'{LET AH36,1}ÿ‚'{TEDIT}%ÿ‚'{LET AH40,AH40+1}{BRANCH F384} ÿ‚ ‚‚mÿ‚'{IF AH385<>"Y"#OR#AH385<>"y"}{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO CONTINUE:",AH385}{BRANCH AB385}pÿ"‚Ìš ða+$H$€ø¿*U€ö¿/$D$€ø¿+AP€÷¿~{MENU}CAO€÷¿~AO€÷¿..AO$w~3.ÿ"‚+$H$4*U4/$D$4+AP4~{MENU}CAO4~AO4..AO267~ ÿ&‚ß|ÿƒ'{STKEDIT} ÿƒ'{\B} ÿƒ'{\A}&ÿƒ'{IF AL103=0}{LET AL104,1}{NCHK} ÿƒ ‚ƒ„ÿƒ'{LET AF377,0}{PANELOFF}{WINDOWSOFF}{GETLABEL "TURN PRINTER ON, HIT ENTER TO CONTINUE:",AH385}{INDICATE "PRINT"}{RECALC AB389}2ÿ"ƒËšð#/RVAO€ö¿..AO$w~AP4~3ÿ"ƒ/RVAO4..AO267~AP4~ ÿ%ƒß|ÿ„'{SECEDIT}ÿ„'{LET AH63,0}ÿ„'{LET AH36,0}lÿ„Æš ð]{LET I387,AD1}{LET AD1,AH40}{LET AG36,1}{LET I388,E€¥¾}{IF E€¥¾<0}{LET AH10,1}3Pÿ„{LET I387,AD1}{LET AD1,AH40}{LET AG36,1}{LET I388,E9}{IF E9<0}{LET AH10,1} ‚„Wÿ„š ðH{ONERROR AF380}/PPRA511..F€é¿~OH1{ESC}CAPITAL GAINS REPORT~QAGQ3Eÿ„{ONERROR AF380}/PPRA511..F153~OH1{ESC}CAPITAL GAINS REPORT~QAGQ\ÿ"„'{LET AK379,AK379+1}{LET AM387,@IF(J361"Y"#OR#@TRIM(AN396)<>"y"}{GETLABEL "DATA ENTRY ERROR, HIT ENTER TO CONTINUE:",AN396}{BRANCH AI393} ò'‰#ÿŠ'MOVE LEFT (TURN NUM LOCK ON)ÿŠ'MOVE RIGHTÿŠ'MOVE UPÿŠ'MOVE DOWNÿŠ'{MOVE UP 1 PAGE}ÿŠ'{MOVE DOWN 1 PAGE} ÿŠ'RETURN ‚Š[ÿ"Š'{PANELOFF}{WINDOWSOFF}{LET AG341,"IND"}{LET AG350,1}{LET AD352,"{BRANCH AI396}"}{KA} ÿ‹'{LEFT}ÿ‹'{RIGHT} ÿ‹'{UP} ÿ‹'{DOWN} ÿ‹'{PGUP} ÿ‹'{PGDN}.ÿ‹'{WINDOWSOFF}/WTC{HOME}{WINDOWSON}{VIEW} ‚‹]ÿ"‹¾šðN{ROWT}{FL}{OFF}{RECALC AI396..AI397}{GOTO}AO€î¿~{RECALC AI387..AI388}3Iÿ"‹{ROWT}{FL}{OFF}{RECALC AI396..AI397}{GOTO}AO4~{RECALC AI387..AI388} ÿŒ'{MV} ÿŒ'{MV} ÿŒ'{MV} ÿŒ'{MV} ÿŒ'{MV} ÿŒ'{MV} ‚Œyÿ"Œ»šðj+AP€í¿/U€ì¿*($U$€ì¿/$AP$€í¿)~{MENU}CAO€í¿~AO€í¿..AO€ë¿~{HOME}37ÿ"Œ+AP4/U4*($U$4/$AP$4)~{MENU}CAO4~AO4..AO267~{HOME}ÿ�' ‚�ÿ"�'{RECALC AI399}ÿ$�ð?ROWO ÿ%�'45fÿŽ'{IF TODAY>@NOW}{GETLABEL "DATE NOT SET IN DOS (HIT ENTER TO EXIT AND SET):",D398}{PANELOFF}/QYY ‚ŽŸÿ"Žð�/gRGTLXR€ê¿..Rç¿Û¿~AAO€ë¿..AO€é¿~OTS'Š~TFPORTFOLIO RELATIVE STRENGTH~TXDATE~TYRS~GHFGLQCSS7~QVQ{ON}{\R} ÿ$Žÿ%Ž'4 ÿ�'VOLA_ÿ�'{GETLABEL "TOTAL INVESTOR 2.01- COPYRIGHT 1988,89,90 - HFS - (HIT ENTER TO CONT):",D398} ‚� ÿ$�k ÿ%�'107Nÿ�'{RESTART}{INDICATE VOL}{LET C402,0}{BLANK AN4..AQ8192}{BLANK AN1..IV50} ÿ�'{\M} ‚�%ÿ‘'{MENUBRANCH A403}{BRANCH A364} ÿ‘ ÿ‘'EMV ÿ‘'NVI ‚‘ÿ’'ACC/DISTÿ’'CASHFLOW ÿ’'EMV ÿ’'NVI ÿ’'OBV ÿ’'PVI ÿ’'ZOOM ÿ’'QUIT ‚’1ÿ“'WILLIAMS ACCUMUALTION/DISTRIBUTION FORMULA&ÿ“'PLOT NET MONEY SPENT ON A STOCKÿ“'EASE OF MOVEMENT ÿ“'NEGATIVE VOLUME INDICATORÿ“'PLOT ON BALANCE VOLUME ÿ“'POSITIVE VOLUME INDICATOR"ÿ“'ZOOM IN ON VOLUME INDICATOR"ÿ“'RETURN TO THE PREVIOUS MENU ‚“”ÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{LET AO4,0}{OFF}/CAB394~AI334~{LET AJ329,"WILLIAMS ACC/DIST"}{LET AJ330,"ACC/DIST"}{OBV}QVQ{ON}‡ÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{LET AO4,0}{OFF}/CAI348~AI334~{LET AJ329,"CASHFLOW"}{LET AJ330,"FLOW"}{OBV}QVQ{ON}Aÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{EMV}QVQ{ON}™ÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{LET AO4,100}{OFF}/CAI373~AI334~{LET AJ329,"NEGATIVE VOLUME INDICATOR"}{LET AJ330,"NVI"}{OBV}QVQ{ON}�ÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{OFF}/CAJ328~AI334~{LET AO4,0}{LET AJ329,"ON BALANCE VOLUME"}{LET AJ330,"OBV"}{OBV}QVQ{ON}™ÿ”'{INDICATE WAIT}{BLANK AN4..AQ8192}{LET C402,1}{LET AO4,100}{OFF}/CAL373~AI334~{LET AJ329,"POSITIVE VOLUME INDICATOR"}{LET AJ330,"PVI"}{OBV}QVQ{ON}mÿ”'{IF C402=0}{GETLABEL "YOU MUST USE A FUNCTION BEFORE ZOOM (HIT ENTER TO CONT):",C410}{MENUBRANCH A403}$ÿ”'{INDICATE ANLYZ}{BRANCH A364} ‚” ÿ”'17 ÿ"”'RSITNÿ•'{LET H340,"ACC/DIST"}{LET AD325,"AO"}{LET AE325,"4"}{TECH}{OFF}{OBV1}QQNÿ•'{LET H340,"CASHFLOW"}{LET AD325,"AO"}{LET AE325,"4"}{TECH}{OFF}{OBV1}QQJÿ•'{LET H340,"EMV"}{LET AD325,"AP"}{LET AE325,"17"}{TECH}{OFF}{EMV1}QQIÿ•'{LET H340,"NVI"}{LET AD325,"AO"}{LET AE325,"4"}{TECH}{OFF}{OBV1}QQIÿ•'{LET H340,"OBV"}{LET AD325,"AO"}{LET AE325,"4"}{TECH}{OFF}{OBV1}QQIÿ•'{LET H340,"PVI"}{LET AD325,"AO"}{LET AE325,"4"}{TECH}{OFF}{OBV1}QQ#ÿ•'{IF H340="EMV"}{BRANCH G408} ‚•pÿ"•'{IF AL410+1>J361}{GETLABEL "NOT ENOUGH DATA FOR CALCULATION (HIT ENTER TO CONT):",AK407}{MENUBRANCH A437}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}$ÿ–'{INDICATE ANLYZ}{BRANCH A402}Æÿ–²šð·{RECALC G407..G408}{PANELOFF}{WINDOWSOFF}/GXR€Ó¿..R€Ó¿~AAO€Ó¿..AO€Ó¿~OTF (€s¿ RECORDS)~SSý¿¡¿~QVQ{ON}{LET H341,1}{TECH}{OFF}{OBV1}QQ{BRANCH G409}3”ÿ–{RECALC G407..G408}{PANELOFF}{WINDOWSOFF}/GXR219..R267~AAO219..AO267~OTF (49 RECORDS)~SS15~QVQ{ON}{LET H341,1}{TECH}{OFF}{OBV1}QQ{BRANCH G409}ÿ–' ‚–ÿ"–'{RETURN}ÿ$–'¦ÿ—«šð—{PANELOFF}{WINDOWSOFF}/GXR€Ò¿..R€Ò¿~AAP€Ò¿..AP€Ò¿~OTF (€r¿ RECORDS)~SSý¿ ¿~QVQ{ON}{LET H341,1}{TECH}{OFF}{EMV1}QQ3tÿ—{PANELOFF}{WINDOWSOFF}/GXR219..R267~AAP219..AP267~OTF (49 RECORDS)~SS15~QVQ{ON}{LET H341,1}{TECH}{OFF}{EMV1}QQÿ—' ‚— ÿ#—'14$ÿ˜'{INDICATE ANLYZ}{BRANCH A402} ‚˜ ÿ#˜ ÿ$˜ Oÿ™'{RESTART}{INDICATE "MO"}{LET B412,0}{BLANK AN4..AO8192}{BLANK AN1..IV50}ÿ™' ‚™'105.86!ÿ™'{GETLABEL "REVERSAL VALUE= ‚™Aÿ"™'{RSIT}{WINDOWSOFF}{PANELOFF}{GOTO}AO5~+@IF(U5>U4,U5-U4,0)~ ÿ%™ ÿ&™ÿš'{MENUBRANCH A413} ÿš ÿš #ÿš' (HIT ENTER TO CONT):",C410} ‚šaÿ"š'{GOTO}AP5~+@IF(U4>U5,U4-U5,0)~{CONTENTS AL411,AL410}{LET AL411,@TRIM(AL411)}{RECALC AI412} ÿ%š'18 ÿ&š'19ÿ›'{BRANCH A364} ÿ› ÿ›'12ÿ›'9 ÿ›'183 ‚›ƒÿ"›¦šðt{MENU}CAO5..AP5~AO5..AO€ÿ¿~{LET AO€ÿ¿,@AVG(AO5..AO€ÿ¿)}{LET AP€ÿ¿,@AVG(AP5..AP€ÿ¿)}3Tÿ"›{MENU}CAO5..AP5~AO5..AO18~{LET AO18,@AVG(AO5..AO18)}{LET AP18,@AVG(AP5..AP18)}ÿœ'MOMENTUMÿœ'REVERSALÿœ'SETTINGS ÿœ'ZOOM ÿœ'QUIT¢ÿœ'{GETLABEL "HOW MANY %D PERIODS OF AVERAGING?",AD401}{LET AD402,@VALUE(AD401)}{RECALC B409}{OFF}{MENU}RVB409~D462~{ON}{IF @ISERR(AE400)=1}{ERS}{BRANCH H413} ‚œ]ÿ"œ'{LET AM410,AL410+1}{CONTENTS AM411,AM410}{LET AM411,@TRIM(AM411)}{RECALC AI414..AI417}:ÿ�'12 PERIOD PRICE DIFFERENCE (9 PERIOD EXP SMOOTHING)2ÿ�'NEXT CLOSE VALUE TO CAUSE MOMENTUM REVERSALÿ�'CHANGE MOMENTUM SETTINGS!ÿ�'PLOT MOMENTUM IN ZOOM MODEÿ�'RETURN TO PREVIOUS MENU ÿ�'{OM} ‚��ÿ"�¡šð�{GOTO}AO€ý¿~+@IF(U€ý¿>U€ý¿,(AO€ý¿*$AK$409+U€ý¿-U€ý¿)/$AJ$409,AO€ý¿*$AK$409/$AJ$409)~3Sÿ"�{GOTO}AO19~+@IF(U19>U18,(AO18*$AK$409+U19-U18)/$AJ$409,AO18*$AK$409/$AJ$409)~-ÿž'{LET B412,1}{INDICATE WAIT}{MO}QVQ{ON}°ÿž'{LET E412,J361-C411+2}{CONTENTS E412,E412}{LET E412,@TRIM(E412)}{RECALC B416}{IF B412=0}{GETLABEL "YOU MUST USE MOMENTUM BEFORE REVERSAL (HIT ENTER TO CONT):",C410}{MOA}iÿž'{GETLABEL "ENTER NUMBER OF PERIODS BETWEEN CLOSES:",C411}{IF C411="\"}{LET C411,@VALUE(C412)}{MOA}_ÿž'{IF B412=0}{GETLABEL "YOU MUST USE MOMENTUM BEFORE ZOOM (HIT ENTER TO CONT):",C410}{MOA}ÿž'{BRANCH A364} ‚ž ÿž'14 ÿž'17 ÿž'30�ÿ"žœš ð�{GOTO}AP€ü¿~+@IF(U€ü¿>U€ü¿,(AP€ü¿*$AK$409+U€ü¿-U€ü¿)/$AJ$409,AP€ü¿*$AK$409/$AJ$409)~3Sÿ"ž{GOTO}AP19~+@IF(U18>U19,(AP18*$AK$409+U18-U19)/$AJ$409,AP18*$AK$409/$AJ$409)~OÿŸ'{LET H340,"MOMENTUM"}{LET AD325,"AP"}{LET AE325,AM338}{TECH}{OFF}{MO1}QQjÿŸ—š ð[{LET D410,AP€Ê¿+U€ü¿}{CONTENTS D410,D410}{LET D410,@TRIM(D410)}{RECALC B417}3RÿŸ{LET D410,AP193+U183}{CONTENTS D410,D410}{LET D410,@TRIM(D410)}{RECALC B417}mÿŸ'{LET C411,@VALUE(C411)}{CONTENTS C412,C411}{LET C412,@TRIM(C412)}{IF @ISERR(C411)=1}{ERS}{BRANCH C415}¼ÿŸ�šð­{RECALC D416}{PANELOFF}{WINDOWSOFF}/GXR€Ê¿..R€Ê¿~AAP€Ê¿..AP€Ê¿~OTF1{ESC}MOMENTUM (€j¿ DAY)~SS€˜¿~QVQ{ON}{LET H341,1}{TECH}{OFF}{MO1}QQ3ŠÿŸ{RECALC D416}{PANELOFF}{WINDOWSOFF}/GXR219..R267~AAP219..AP267~OTF1{ESC}MOMENTUM (49 DAY)~SS15~QVQ{ON}{LET H341,1}{TECH}{OFF}{MO1}QQ ‚Ÿ ÿŸ ÿŸ ÿŸIÿ"Ÿ�šð:{GOTO}AQ€û¿~+100-100/(1+AO€û¿/AP€û¿)~3(ÿ"Ÿ{GOTO}AQ19~+100-100/(1+AO19/AP19)~$ÿ '{INDICATE ANLYZ}{BRANCH A411}!ÿ ‰šð€ù¿€ù¿€ú¿3Bÿ {GETLABEL "REVERSAL VALUE=105.86 (HIT ENTER TO CONT):",C410}·ÿ '{GETNUMBER "HOW MANY PERIOD EXPONENTIAL SMOOTHING:",D411}{CONTENTS D412,D411}{LET D412,@TRIM(D412)}{RECALC A418}{OFF}{MENU}RVA418~A414~{ON}{IF @ISERR(D411)=1}{ERS}{BRANCH C417}$ÿ '{INDICATE ANLYZ}{BRANCH A411} ÿ  ÿ '267 ‚ kÿ" …šð\{MENU}CAO€ú¿~AO€ú¿..AOç¿É¿~/RVAO4..AOç¿É¿~AO4~{RECALC AI418..AI420}3Eÿ" {MENU}CAO19~AO19..AO267~/RVAO4..AO267~AO4~{RECALC AI418..AI420}Qÿ¡‚šðB€ú¿ PERIOD PRICE DIFFERENCE (€ú¿ PERIOD EXP SMOOTHING)39ÿ¡12 PERIOD PRICE DIFFERENCE (9 PERIOD EXP SMOOTHING)$ÿ¡'{INDICATE ANLYZ}{BRANCH A411} ÿ¡'{LET B412,0}{BRANCH A411}ÿ¡'5 ÿ¡5 ÿ¡'53 ‚¡¿ÿ"¡zšð°{MENU}CAP€ù¿~AP€ù¿..APç¿È¿~/RVAP4..APç¿È¿~AP4~{MENU}CAQ€ù¿~AQ€ù¿..AQç¿È¿~{LET AQ4,@NA}{MENU}CAQ4~AQ4..AQ€ù¿~{HOME}{RECALC AI419}3~ÿ"¡{MENU}CAP19~AP19..AP267~/RVAP4..AP267~AP4~{MENU}CAQ19~AQ19..AQ267~{LET AQ4,@NA}{MENU}CAQ4~AQ4..AQ18~{HOME}{RECALC AI419} ÿ¢ ÿ¢ ÿ¢ÿ¢'0ÿ¢'{GETLABEL "Uÿ¢všðF €ã¾ POINTS MADE WITH €ã¾ TRANSACTIONS (HIT ENTER TO CONT):3Bÿ¢51.125 POINTS MADE WITH 10 TRANSACTIONS (HIT ENTER TO CONT):$ÿ¢'",H419}{PANELON}{RECALC F447}ÿ¢' ‚¢^ÿ"¢ršðO/RVAQ4..AQç¿Ç¿~AQ4~{LET AO4,30}{LET AP4,70}/CAO4..AP4~AO4..AOç¿Ç¿~3Fÿ"¢/RVAQ4..AQ267~AQ4~{LET AO4,30}{LET AP4,70}/CAO4..AP4~AO4..AO267~ ÿ£'MAAÿ£'Kÿ£'Lÿ£'Mÿ£'Nÿ£'O ÿ£'52ÿ£'4 ‚£lÿ"£nšð]/gRGTLXR4..Rç¿Æ¿~AAQ4..AQç¿Æ¿~BAO4..AOç¿Æ¿~CAP4..APç¿Æ¿~{RECALC AI421}3Hÿ"£/gRGTLXR4..R267~AAQ4..AQ267~BAO4..AO267~CAP4..AP267~{RECALC AI421}˜ÿ¤'{INDICATE WAIT}{LET H417,J362}{BLANK K1..Q8192}{BLANK AN1..IV50}{BLANK AN4..AQ8192}{INDICATE MA}{LET G421,0}{LET A419,0}{LET B419,0}{RECALC F421} ÿ¤2 ÿ¤50ÿ¤mš ð!€€ü€ÿ¿ý€ÿ¿þ€ÿ¿ÿ€ÿ¿€ÿ¿03ÿ¤K ÿ¤ÿ¤'5 ‚¤Vÿ"¤jš ðGOTSþ¿±¿~TF€ó¿ PERIOD RSI~TXDATE~TYRSI~GHFGLQCSSà¿“¿~36ÿ"¤OTSIBM~TF14 PERIOD RSI~TXDATE~TYRSI~GHFGLQCSS81~.ÿ¥'{RESTART}{MENUBRANCH A423}{BRANCH A364} ÿ¥'50 ÿ¥'53 ÿ¥ÿ¥'4 ÿ¥ÿ¥'0 ‚¥ ÿ¦'MAÿ¦'EXPONENTIAL MAÿ¦'SETTINGS ÿ¦'HOLD ÿ¦'CLEAR ÿ¦'POINTS ÿ¦'ZOOM ÿ¦'QUIT ‚¦Fÿ§'PLOT SIMPLE 50 PERIOD MOVING AVERAGE (0 PERIOD SHIFT,0 %OFFSET)Dÿ§'PLOT 50 PERIOD EXPONENTIAL AVERAGE (0 PERIOD SHIFT,0% OFFSET)%ÿ§'CHANGE MOVING AVERAGE SETTINGSÿ§'HOLD THIS MA IN GRAPH+ÿ§'CLEAR ALL MOVING AVERAGES FROM GRAPH7ÿ§'CALCULATE NUMBER OF POINTS GAINED WITH LATEST MA(ÿ§'PLOT MOVING AVERAGES IN ZOOM MODEÿ§'RETURN TO PREVIOUS MENU ‚§Kÿ¨'{MAT}{INDICATE WAIT}{OFF}{LET B419,1}{LET A419,1}{RECALC A426..A428}Kÿ¨'{MAT}{INDICATE WAIT}{OFF}{LET A419,1}{LET B419,1}{RECALC B426..B428}^ÿ¨'{GETLABEL "ENTER THE NUMBER OF PERIODS TO AVERAGE:",H430}{IF H430="\"}{MENUBRANCH A423}#ÿ¨'{IF A419=0}{MENUBRANCH A423}Rÿ¨'{INDICATE WAIT}{OFF}/REK1..O8192~{ON}{INDICATE MA}{LET G421,0}{RECALC F421}pÿ¨'{IF B419=0}{GETLABEL "NO DATA AVAILABLE FOR CURRENT SETTINGS (HIT ENTER TO CONTINUE):",A434}{BRANCH A422}yÿ¨'{RECALC G426}{IF B419=0}{GETLABEL "YOU MUST USE A MA FUNCTION BEFORE ZOOM (HIT ENTER TO CONT):",A433}{BRANCH A422}0ÿ¨'{LET B419,0}{INDICATE TREND}{BRANCH A364} ‚¨aÿ©gš ðR/RE€û¿4..€û¿8192~{GOTO}€û¿€ø¿~@AVG(U4..U€ü¿)*$H$422~32ÿ©/REK4..K8192~{GOTO}K53~@AVG(U4..U53)*$H$422~¦ÿ©cš ð—{BLANK €û¿4..€û¿8192}{LET €û¿€ü¿,U€ú¿}{GOTO}€û¿€ø¿~+€û¿€ü¿+(U€û¿-€û¿€ü¿)*(2/($C$421+1))~3Fÿ©{BLANK K4..K8192}{LET K4,U4}{GOTO}K5~+K4+(U5-K4)*(2/($C$421+1))~íÿ©'{LET C421,@ABS(@VALUE(H430))}{CONTENTS C422,C421}{LET C422,@TRIM(C422)}{LET D421,C421+3}{CONTENTS D422,D421}{LET D422,@TRIM(D422)}{IF C421>=J361-3}{GETLABEL "NOT ENOUGH DATA FOR CALCULATION (HIT ENTER TO CONT):",A433}{BRANCH C425}sÿ©'{LET G421,G421+1}{IF G421=5}{GETLABEL "SORRY,NO MORE THAN 5 MA'S (HIT ENTER TO CONTINUE):",A433}{LET G421,4},ÿ©'{LET A419,0}{LET B419,0}{BRANCH A422}uÿ©'{OC}{GETLABEL "ENTER THE %FILTER REQUIRED (ENTER =0 DEFAULT):",AI135}{LET AI135,@IF(AI135="",0,@VALUE(AI135))}ûÿ©[šðì{OFF}/gXR€À¿..R€À¿~AU€À¿..U€À¿~BK€À¿..K€À¿~CL€À¿..L€À¿~DM€À¿..M€À¿~EN€À¿..N€À¿~FO€À¿..O€À¿~OTF1{ESC}€(¿ (€`¿ RECORDS)~SSý¿Ž¿~QVQ{ON}3‡ÿ©{OFF}/gXR219..R267~AU219..U267~BK219..K267~CL219..L267~DM219..M267~EN219..N267~FO219..O267~OTF1{ESC}IBM (49 RECORDS)~SS15~QVQ{ON}ÿ©' ‚©ÿªYšðp/C€ú¿€÷¿~€ú¿€÷¿..€ú¿ €¿¿~/RV€ú¿€÷¿..€ú¿€ö¿~€ú¿€÷¿~{HOME}3-ÿª/CK53~K53..K267~/RVK53..K267~K53~{HOME}ÊÿªRšð»/C€ú¿€÷¿~€ú¿€÷¿..€ú¿€ö¿~{GOTO}AN4~+$H$422*€ú¿4~/CAN4~AN4..AN€ö¿~/RVAN4..AN8192~AN4~/CAN4..AN8192~€ú¿4~/RE€ú¿4..€ú¿€ù¿~{HOME}3oÿª/CK5~K5..K267~{GOTO}AN4~+$H$422*K4~/CAN4~AN4..AN267~/RVAN4..AN8192~AN4~/CAN4..AN8192~K4~/REK4..K52~{HOME},ÿª'{IF @ISERR(C421)=1}{ERS}{BRANCH C425}-ÿª'{RECALC F421}{LET A419,0}{BRANCH A422}ÿª'{INDICATE WAIT}{POINTS}"ÿª'{INDICATE ZMA}{BRANCH A422} ÿª'{GETLABEL "ENTER THE AMOUNT OF VERTICAL OFFSET IN % (ENTER =0 DEFAULT):",I422}{LET I422,@IF(I422="",0,@VALUE(I422))}{IF @ISERR(I422)=1}{ERS}{BRANCH H427} ‚ª¬ÿ«Kšð�/gRGTLXR4..R €¾¿~AU4..U €¾¿~BK4..K €¾¿~CL4..L €¾¿~DM4..M €¾¿~EN4..N €¾¿~FO4..O €¾¿~OLASTOCK PRICE~LBMA 1~LCMA 2~LDMA 3~3vÿ«/gRGTLXR4..R267~AU4..U267~BK4..K267~CL4..L267~DM4..M267~EN4..N267~FO4..O267~OLASTOCK PRICE~LBMA 1~LCMA 2~LDMA 3~¿ÿ«Cšð°{BLANK AN4..AN8192}/gRGTLXR4..R€¾¿~AU4..U€¾¿~BK4..K€¾¿~CL4..L€¾¿~DM4..M€¾¿~EN4..N€¾¿~FO4..O€¾¿~OLASTOCK PRICE~LBMA 1~LCMA 2~LDMA 3~3‰ÿ«{BLANK AN4..AN8192}/gRGTLXR4..R267~AU4..U267~BK4..K267~CL4..L267~DM4..M267~EN4..N267~FO4..O267~OLASTOCK PRICE~LBMA 1~LCMA 2~LDMA 3~Ðÿ«'{GETLABEL "ENTER THE NUMBER OF PERIODS TO SHIFT (ENTER =0 DEFAULT):",C419}{LET C419,@IF(C419="",0,@VALUE(C419))}{IF C421+C419>=J361-3}{GETLABEL "NOT ENOUGH DATA (HIT ENTER TO CONT):",A433}{BRANCH C428}!ÿ«'{RECALC F419}{RECALC F429}:ÿ«'{LET H422,(100+I422)/100}{LET I422,@STRING(I422,0)} ‚«"ÿ¬'LEMA 4~LFMA 5~{RECALC A430}"ÿ¬'LEMA 4~LFMA 5~{RECALC B430}¾ÿ¬'{LET C419,@IF(C419<-C421+1,-C421+1,C419)}{LET G418,D421+C419}{LET G420,G418-1}{LET G420,@STRING(G420,0)}{CONTENTS H418,G418}{LET H418,@TRIM(H418)}{IF @ISERR(C419)=1}{ERS}{BRANCH C428}!ÿ¬<š ðÿ€ö¿€ö¿€ö¿3jÿ¬{GETLABEL "51.125 POINTS MADE WITH 10 TRANSACTIONS (HIT ENTER TO CONT):",H419}{PANELON}{RECALC F447} ‚¬Xÿ­9šðITF€$¿~TSMOVING AVERAGE~TXDATE~TYPRICE~GHFGLQCSS€Š¿~QVQ{ON}3?ÿ­TFIBM~TSMOVING AVERAGE~TXDATE~TYPRICE~GHFGLQCSS81~QVQ{ON}Xÿ­5šðITF€$¿~TSMOVING AVERAGE~TXDATE~TYPRICE~GHFGLQCSS€Š¿~QVQ{ON}3?ÿ­TFIBM~TSMOVING AVERAGE~TXDATE~TYPRICE~GHFGLQCSS81~QVQ{ON}�ÿ­'{VO}{CONTENTS D419,C419}{LET D419,@TRIM(D419)}{LET E422,C419+4}{LET E422,@IF(E422<4,4,E422)}{CONTENTS F422,E422}{LET F422,@TRIM(F422)}fÿ­0šðW{RECALC F430}{OFF}/GOD€€Z4..Z€¼¿~BQQVQ{ON}{INDICATE ANLYZ}{BRANCH A422}3Lÿ­{RECALC F430}{OFF}/GODBZ4..Z267~BQQVQ{ON}{INDICATE ANLYZ}{BRANCH A422} ÿ­'50 ‚­ ‚­ÿ­'UPPER BAND‚­'LOWER BANDÿ­'BOLLINGER BANDS!ÿ®'{INDICATE MA}{BRANCH A422}!ÿ®'{INDICATE MA}{BRANCH A422}_ÿ®'{LET F417,C419+5}{LET F417,@IF(F417<5,5,F417)}{CONTENTS F418,F417}{LET F418,@TRIM(F418)} ‚®ÿ®'Khÿ¯,šðYPLOT SIMPLE €ö¿ PERIOD MOVING AVERAGE (€ó¿ PERIOD SHIFT,€ö¿ %OFFSET)3Eÿ¯PLOT SIMPLE 50 PERIOD MOVING AVERAGE (0 PERIOD SHIFT,0 %OFFSET)fÿ¯)šðWPLOT €ö¿ PERIOD EXPONENTIAL AVERAGE (€ó¿ PERIOD SHIFT,€ö¿% OFFSET)3Cÿ¯PLOT 50 PERIOD EXPONENTIAL AVERAGE (0 PERIOD SHIFT,0% OFFSET)Íÿ¯'{LET H417,J362}{LET H420,"4"}{LET H421,"5"}{IF C419<0}{LET H420,4+@ABS(C419)}{LET H420,@STRING(H420,0)}{LET H421,5+@ABS(C419)}{LET H421,@STRING(H421,0)}{LET H417,J361+C419}{LET H417,@STRING(H417,0)} ‚¯ ÿ¯ ÿ¯'49ÿ¯'Kÿ¯'Lÿ°'*Sÿ°'{RECALC A432..B432}{OFF}/RVA432..B432~A424~{ON}{LET B419,0}{MENUBRANCH A423} ÿ°'MAT ‚° ÿ°'HLCV ‚°š™™™™™¹?"ÿ°(š ðADDRESSOIm3ÿ°A$‚°'29-Mar-90ÿ°'07-Jun-90 ÿ±'RSM ÿ±'218 ÿ±'-50zÿ±'{IF C421+@ABS(C419)>+J361-3}{GETLABEL "NOT ENOUGH DATA FOR CALCULATION (HIT ENTER TO CONT):",D433}{MENUBRANCH A423}oÿ±'{IF C419<0}{GETLABEL "CAN'T CALCULATE POINTS WITH OFFSET <0 (HIT ENTER TO CONT):",D433}{MENUBRANCH A423} ‚±Jÿ±'{PANELON}{INDICATE WAIT}{OFF}{BLANK AN1..IV50}{RECALC AB435..AB438}jÿ²'{RESTART}{INDICATE RS}{LET C435,0}{LET D435,0}{BLANK AN4..AQ8192}{BLANK AN1..IV50}{BLANK Z4..Z8192} ÿ²'IBM ÿ² ÿ²ÿ²'{RETURN} ‚²fÿ²$š ðW/RTSí¿·¿..Sî¿·¿~AN1~{CONTENTS AE433,Rí¿·¿}{CONTENTS AF433,Rî¿·¿}3Bÿ²/RTS219..S267~AN1~{CONTENTS AE433,R219}{CONTENTS AF433,R267}%ÿ³'{MENUBRANCH A437}{BRANCH A364} ‚³`ÿ³ šðQ/RTTí¿¶¿..Tî¿¶¿~AN2~{LET AE433,@TRIM(AE433)}{LET AF433,@TRIM(AF433)}3Hÿ³/RTT219..T267~AN2~{LET AE433,@TRIM(AE433)}{LET AF433,@TRIM(AF433)} ÿ´'DOWÿ´'COMPARE ÿ´'WRSIÿ´'SETTINGS ÿ´'ZOOM ÿ´'QUIT ‚´iÿ´š ðZ/RTUí¿µ¿..U¿~AN4~{GOTO}AN4~{END}{RIGHT}{RECALC AD433}{RECALC AB441..AB442}3Qÿ´/RTU219..U267~AN4~{GOTO}AN4~{END}{RIGHT}{RECALC AD433}{RECALC AB441..AB442}*ÿµ'PLOT STOCK VS DOW RELATIVE STRENGTH4ÿµ'PLOT STOCK VS ANOTHER STOCK RELATIVE STRENGTH8ÿµ'WILDER RELATIVE STRENGTH INDEX (14 RECORD PERIOD),ÿµ'NUMBER OF RECORDS IN WRSI CALCULATIONÿµ'ZOOM IN ON RS INDICATOR"ÿµ'RETURN TO THE ANALYSIS MENU ‚µuÿµšðf/RTUí¿´¿..Uî¿´¿~AN5~{LET AD432,J361-I361+1}{CONTENTS AD432,AD432}{LET AD432,@TRIM(AD432)}3]ÿµ/RTU219..U267~AN5~{LET AD432,J361-I361+1}{CONTENTS AD432,AD432}{LET AD432,@TRIM(AD432)}Cÿ¶'{INDICATE WAIT}{LET C435,1}{LET B435,AG341}{LET AG341,"IND"}�ÿ¶'{LET B435,AG341}{LET C435,1}{GETLABEL "ENTER THE SYMBOL OF THE STOCK WHICH YOU WISH TO COMPARE:",AG341}{IF AG341="\"#OR#AG341=""}{LET AG341,B435}{RSM}:ÿ¶'{INDICATE WAIT}{LET D435,1}{LET C435,1}{RSI}QVQ{ON}dÿ¶'{GETLABEL "ENTER THE NUMBER OF PERIODS TO BE AVERAGED:",AJ408}{IF AJ408="\"}{MENUBRANCH A437}dÿ¶'{IF C435=0}{GETLABEL "YOU MUST USE A RS FUNCTION BEFORE ZOOM (HIT ENTER TO CONT):",C410}{RSM}$ÿ¶'{INDICATE ANLYZ}{BRANCH A364} ‚¶Cÿ¶šð4{RECALC AB439..AB440}/DFAN10..IV10~1~1~€ù¿~30ÿ¶{RECALC AB439..AB440}/DFAN10..IV10~1~1~49~ÿ·'{BRANCH B440}'ÿ·'{INDICATE WAIT}{LET D435,0}{CRS}Kÿ·'{LET H340,"RSI"}{LET AD325,"AQ"}{LET AE325,AM411}{TECH}{OFF}{RSI1}QQ}ÿ·'{LET AJ409,AJ408}{LET AJ409,@VALUE(AJ409)}{LET AK409,AJ409-1}{LET AL410,AJ409+4}{IF @ISERR(AJ409)=1}{ERS}{BRANCH D439}Jÿ·'{LET D434,@IF(@VALUE(I381)>I361,I381,I362)}{IF D435=1}{BRANCH E443}ÿ·' ‚·.ÿ·šð/DFAN11..IV11~1~1~€ø¿~3ÿ·/DFAN11..IV11~1~1~49~Nÿ¸'{LET H340,"COMP RS"}{LET AD325,"AO"}{LET AE325,I381}{TECH}{OFF}{CRS1}QQÿ¸'{BRANCH A436}iÿ¸'{LET A445,AJ409}{CONTENTS A446,A445}{LET A446,@TRIM(A446)}{RECALC A444}{OFF}{MENU}RVA444~C438~{ON}Ñÿ¸šðÂ{LET C434,I362}{LET I362,D434}{RECALC E441}{PANELOFF}{WINDOWSOFF}/GXR€±¿..R€±¿~AAO€±¿..AO€±¿~OTF (€Q¿ RECORDS)~SSÿ¿¿~QVQ{ON}{LET H341,1}{TECH}{OFF}{CRS1}QQ3Ÿÿ¸{LET C434,I362}{LET I362,D434}{RECALC E441}{PANELOFF}{WINDOWSOFF}/GXR219..R267~AAO219..AO267~OTF (49 RECORDS)~SS15~QVQ{ON}{LET H341,1}{TECH}{OFF}{CRS1}QQÿ¸' ‚¸œÿ¸š ð�/RT€÷¿í¿±¿..€÷¿¿~AN34~/CAO34..€ø¿34~AN35~{IF AE432=AE431}/RTMí¿±¿..M¿~AN43~/CAO43..€ø¿43~AN44~3`ÿ¸/RTK219..K267~AN34~/CAO34..A$34~AN35~{IF AE432=AE431}/RTM219..M267~AN43~/CAO43..A$43~AN44~$ÿ¹'{INDICATE ANLYZ}{BRANCH A436}ÿ¹'{BRANCH A436}'ÿ¹'{LET I362,C434}{MENUBRANCH A437} ‚¹›ÿ¹ý™ðŒ/RT€ö¿í¿°¿..€ö¿î¿°¿~AN25~/CAO25..€÷¿25~AN26~{IF AC432=1}/RTZí¿°¿..Zî¿°¿~AN37~/RV$G$311~AN38..€÷¿38~3_ÿ¹/RTL219..L267~AN25~/CAO25..A$25~AN26~{IF AC432=1}/RTZ219..Z267~AN37~/RV$G$311~AN38..A$38~ïÿºó™ðà{RECALC E443}{PANELOFF}{WINDOWSOFF}/GXR€¯¿..R€¯¿~AAQ€¯¿..AQ€¯¿~BAO€¯¿..AO€¯¿~CAP€¯¿..AP€¯¿~OTF{ESC}RSI (€O¿ RECORDS)~SSÿ¿}¿~QVQ{ON}{LET H341,1}{TECH}{OFF}{RSI1}QQ3¥ÿº{RECALC E443}{PANELOFF}{WINDOWSOFF}/GXR219..R267~AAQ219..AQ267~BAO219..AO267~CAP219..AP267~OTF{ESC}RSI (49 RECORDS)~SS15~QVQ{ON}{LET H341,1}{TECH}{OFF}{RSI1}QQÿº' ‚ºÿº'{GOTO}AN13~+AN10-.2~Gÿ»ð™ð8WILDER RELATIVE STRENGTH INDEX (€€ REC PERIOD)34ÿ»WILDER RELATIVE STRENGTH INDEX (14 REC PERIOD)(ÿ»'{INDICATE ANLYZ}{MENUBRANCH A437} ‚»0ÿ»'{GOTO}AN14~+AN10+.2~{RECALC AB445..AB449} ÿ¼ ‚¼1ÿ¼î™ð"/CAN13..AN14~AN13..€ô¿13~3ÿ¼/CAN13..AN14~AN13..A$13~ ÿ½'14ÿ½'Bÿ½'Cÿ½'Dÿ½'Eÿ½'F ‚½‡ÿ½è™ðx/DFAN16..IV16~1~1~ë¿L¿~/CAO16..€ó¿16~AN17~/GRGQ{IF AE432=AE431}/GDAN37..€ó¿45~OLD €F¾ REC MA~QQ3_ÿ½/DFAN16..IV16~1~1~49~/CAO16..A$16~AN17~/GRGQ{IF AE432=AE431}/GDAN37..A$45~OLD20 REC MA~QQ0ÿ¾è™ð!€æ¿ü¿ÿ¿ý¿ÿ¿þ¿ÿ¿ÿ¿ÿ¿€ÿ¿03ÿ¾Bÿ¾ã™ ðp/GTXAAN1..€ò¿9~XAN10..€ò¿18~BAN19..€ò¿27~CAN28..€ò¿36~{IF AC432=1}DAN37..€ò¿45~3Pÿ¾/GTXAAN1..A$9~XAN10..A$18~BAN19..A$27~CAN28..A$36~{IF AC432=1}DAN37..A$45~ ÿ¿'{VIEW}ÿ¿'{TEDIT}©ÿ¿Ú™ðšOCGHFGLQLAPRICE~LB€î¿~LC€î¿~TF€¿ €î¿~TS€ñ¿ TO €ñ¿~TXDATE~{IF AC432=1}GCLDVOL (UNSCALED)~SYLé¿w¿~Ué¿v¿~MQ3’ÿ¿OCGHFGLQLAPRICE~LBUPPER BAND~LCLOWER BAND~TFIBM BOLLINGER BANDS~TS29-Mar-90 TO 07-Jun-90~TXDATE~{IF AC432=1}GCLDVOL (UNSCALED)~SYL80~U123~MQ2ÿÀ'{INDICATE "VIEW"}{RESTART}{MENUBRANCH A451}!ÿÀ'{RESTART}{MENUBRANCH F451}IÿÀ×™ ð:TYPRICE~SX~U€ï¿~MFHQQVQ{HOME}{INDICATE CHART}{ON}36ÿÀTYPRICE~SX~U49~MFHQQVQ{HOME}{INDICATE CHART}{ON}ÿÀ'+ ÿÁ'{\M} ÿÁÿÁ' ÿÁ'{\T}ÿÁ'- ÿÁ'94uÿÁðf50 PERIOD MA=€€H€€€€þ¿ÿ¿þ¿€;, 15O PERIOD MA=€€H€€€€þ¿ÿ¿þ¿€;ÿÂ'CAPITAL GAINSÿÂ'PORTFOLIOÿÂ'STOCK DATA ÿÂ'QUITÿÂ'CAPITAL GAINSÿÂ'PORTFOLIO ÿÂ'QUIT òÂÀ à@ ÿÂ�^@ ÿÂ^@ ÿÂ(^@ ÿÂLÍ@ ÿ Âì[@ ÿ!‚Nè´ýY@#ÿÃ'SEE THE CAPITAL GAINS REPORT'ÿÃ'VIEW SECURITIES IN THE PORTFOLIO&ÿÃ'REVIEW THE DATA ON THE SECURITY#ÿÃ'RETURN TO THE TOP MENU LEVEL%ÿÃ'EDIT SECURITY IN CAPITAL GAINS%ÿÃ'EDIT SECURITY IN THE PORTFOLIO&ÿÃ'RETURN TO TRANACTION MENU LEVEL òÃà à@ ÿÃ`^@ ÿÃð]@ ÿÃ(^@ ÿÃLÍ@ÿ Ãðÿ ÿ!ÃOè´�Z@?ÿÄ'{LET F361,1}{WINDOWSOFF}{PANELOFF}{GOTO}A60~{DOWN 3}/WTH-ÿÄ'{LET F361,1}{OFF}{GOTO}A1~{DOWN 3}/WTHKÿÄ'{LET F361,1}{OFF}{GOTO}R1~{DOWN 3}/WTH{IF @VALUE(R5)=0}{BRANCH C455}ÿÄ'{HOME}{\M}ÿÄ'{CGEDIT}ÿÄ'{SECEDIT} ÿÄ'{\T}(ÄðSTATISTICS FOR ÷€<¾mÿÅ'{WINDOWSON}{PANELON}{MV}ÿÅ'{ON}{MV}ÿÅ'{END}{DOWN}ÿÅ'{TEDIT}ÿÅ'{TEDIT}ÿÅ'------------------ÿÆ'{ON}{MV}(ÿÆ×™ðî¿¢¿ H RECORDS3ÿÆ264 RECORDSòÆô€=¾ ÿÆ^THRUòÆà à@ü€ý¿jÿÈÓ™ð[LAST HIGH=€û¿H, LOW=€û¿H, CLOSE=€û¿H, CHANGE=€û¿€ú¿ H3AÿÈLAST HIGH=121.500, LOW=119.750, CLOSE=120.625, CHANGE=0.000PÿÊЙðAVOLUME =€ù¿H, €÷¿% AVG DAILY VOLUME (ALL DATA)35ÿÊVOLUME =15000, 94% AVG DAILY VOLUME (ALL DATA) ÿÌ'QUIT-ÿÌÏ™ð€÷¿1€÷¿1€õ¿;3ÿÌÿÍ'RETURN TO PREVIOUS MENU4ÿÎ'{INDICATE ANLYZ}{LET E460,0}{MENUBRANCH A366}2ÿÎð#HIGH (ALL DATA)=ÿTH1ÿÎð"LOW (ALL DATA)=ÿSH9ÿÏð*VOLUME HIGH (ALL DATA)=ÿTH8ÿÏð)VOLUME LOW (ALL DATA)=ÿSH ÿÖ'PSAVEÿ×'{IF I266=0}{RETURN}`ÿØ'{LET C484,"F474"}{LET AH347,0}{PANELON}{INDICATE SAVE}{PANELOFF}{WINDOWSOFF}{RECALC F474} ÿÙ>ÿÙÍ™ð/{ONERROR A485}/FXFþ¿€~A1..I224~RQ{ESC}3.ÿÙ{ONERROR A485}/FXFPORT1~A1..I224~RQ{ESC} ÿÚ'\P ÿÚ'149 ÿÚ'PORT1 ÿÚ'148ÿÚ'{ON}{ONERROR G276}bÿÛ'{LET C485,"\P"}{INDICATE PORT}{RESTART}{ONERROR G276}{BLANK K1..Q8192}{MENUBRANCH A477}{\M} ÿÛ'PORT1 ÿÛ'PORT1ÿÛð?ROWOÿÜ'COMBINE ÿÜ'DELETE ÿÜ'NAMEÿÜ'RETRIEVE ÿÜ'SAVE ÿÜ'VIEW ÿÜ'QUIT&ÿÝ'COMBINE ALL PORTFOLIOS INTO ONEÿÝ'DELETE PORTFOLIOÿÝ'NAME CURRENT PORTFOLIO)ÿÝ'BRING NEW PORTFOLIO INTO WORKSHEETÿÝ'SAVE CURRENT PORTFOLIOÿÝ'VIEW PORTFOLIOS ÿÝ'RETURN TO INITIAL MENU�ÿÞ'{LET D482,D483}{RC}{LET F483,"4"}{LET F484,"63"}{IF @VALUE(E475)=148}{GETLABEL "NO PORTFOLIOS TO COMBINE (HIT ENTER TO CONT):",AE348}{\P} ÿÞ'{PD}¥ÿÞ'{PN}{LET D475,D476}{GETLABEL "ENTER A NAME FOR THE CURRENT PORTFOLIO:",D476}{LET D476,@TRIM(D476)}{RECALC C480..C481}{IF D476="\"}{LET D476,D475}{BRANCH A476}ìÿÞ'{LET D482,D483}{RC}{OFF}{LET C484,"D480"}{LET D475,D476}{LET AH347,0}{GOTO}A1~{GETLABEL "ENTER THE PORTFOLIO NAME YOU WISH TO RETRIEVE:",D476}{LET D476,@TRIM(D476)}{RECALC D480}{IF D476="\"#OR#D476=""}{LET D476,D475}{BRANCH A476}[ÿÞ'{LET D482,D484}{RC}{LET C484,"E480"}{LET AH347,0}{PANELOFF}{WINDOWSOFF}{RECALC E480}ÿÞ'{OFF}{GOTO}H146~{ON} ÿÞ'{\M}rÿß'{LET C475,"148"}{LET C484,"A481"}{LET AH147,0}{PORTC}{CGC}{OFF}{BLANK A64..G65}{LET C476,J148}{RECALC A481}_ÿß'{IF @VALUE(E475)=148}{GETLABEL "NO PORTFOLIOS TO DELETE (HIT ENTER TO CONT):",AE348}{PD}‚ÿ߯™ðs{PN1}{RECALC A54}{LET J€û¿,@TRIM(D476)}{LET E475,@VALUE(E475)+1}{CONTENTS E475,E475}{LET E475,@TRIM(E475)}3pÿß{PN1}{RECALC A54}{LET J148,@TRIM(D476)}{LET E475,@VALUE(E475)+1}{CONTENTS E475,E475}{LET E475,@TRIM(E475)}^ÿßÁ™ðO{PORTC}{CGC}{BLANK A64..G65}{OFF}{ONERROR A485}/FCCE€ü¿~{ONERROR G276}3Nÿß{PORTC}{CGC}{BLANK A64..G65}{OFF}{ONERROR A485}/FCCEPORT1~{ONERROR G276}>ÿß¿™ð/{ONERROR A485}/FXFÿ¿ü¿~A1..I224~RQ{ESC}3.ÿß{ONERROR A485}/FXFPORT1~A1..I224~RQ{ESC}0ÿß'{GETLABEL "HIT ENTER TO CONTINUE:",AE348}vÿ๙ðg{GOTO}K4~{BLANK K1...Q300}{BLANK S1..V1}{BLANK R4..X8192}{ONERROR A485}/FCCE€û¿~{ONERROR G276}3fÿà{GOTO}K4~{BLANK K1...Q300}{BLANK S1..V1}{BLANK R4..X8192}{ONERROR A485}/FCCEPORT1~{ONERROR G276}Xÿà'{GETLABEL "ENTER THE PORTFOLIO NAME TO DELETE:",C476}{IF C476="\"#OR#C476=""}{PD}.ÿà'{LET E474,1}{PANELON}{ONERROR G276}{\P}ÿà'{PCN}{HOME}{ON}{\P}ÿà'{ON}{ONERROR G276}{\P}ÿà'{HOME}{\P} ÿà'PCNÿá'{PC}{LET C475,@VALUE(C475)+1}{CONTENTS C475,C475}{LET C475,@TRIM(C475)}ÿá'{BRANCH B487}Uÿá'"CURRENT PORTFOLIO WILL BE REMOVED, HAVE YOU SAVED ALL CHANGES (Y/N)?:",AE348}bÿá'{GOTO}K52~{END}{UP}{RECALC E476}{LET F485,+@STRING(E476,0)}{IF E476-6>44-@VALUE(F483)}{TMS}Tÿâ'{IF C475=E475}{BLANK K4..S200}{LET D476,"COMBINED"}{RECALC A54}{HOME}{ON}{\P}Sÿâ'{GETLABEL "ARE YOU SURE YOU WISH TO DELETE CURRENT PORTFOLIO (Y/N)?:",AE348}Uÿâ'"CURRENT PORTFOLIO WILL BE REMOVED, HAVE YOU SAVED ALL CHANGES (Y/N)?:",AE348}/ÿâ²™ ð {RECALC E483}{GETLABEL ÿ¿ÿ¿3kÿâ{RECALC E483}{GETLABEL "CURRENT PORTFOLIO WILL BE REMOVED, HAVE YOU SAVED ALL CHANGES (Y/N)?:",AE348}ÿâ'8�ÿâ'{GOTO}K299~{END}{UP}{RECALC E476}{LET F487,@STRING(E476,0)}{LET F486,E476-2}{LET F486,+@STRING(F486,0)}{IF E476-68>214-@VALUE(F484)}{TMC}Nÿ㯙ð?{RECALC A484}{LET C476,J€÷¿}{RECALC A481}{BRANCH A481}3<ÿã{RECALC A484}{LET C476,J149}{RECALC A481}{BRANCH A481}&ÿã'{IF AE348="N"#OR#AE348="n"}{\P} ÿã'D279$ÿã'"ARE YOU SURE (Y/N)?:",AE348}&ÿã'{IF AE348="N"#OR#AE348="n"}{\P} ÿã'139Oÿ㬙ð@{RECALC G484}{IF @VALUE(F485)<>6}/CK7..Sÿ¿€~Aÿ¿ÿ¿~34ÿã{RECALC G484}{IF @VALUE(F485)<>6}/CK7..S10~A8~ÿä'{HOME}{IF AH347<2}{DISK}lÿä'{IF AE348="y"#OR#AE348="Y"}{CGC}{PORTC}{OFF}{GOTO}A60~{ON}{WAIT @NOW+@TIME(0,0,2)}{HOME}{BRANCH B487} ÿä'\MUÿä'{GOTO}A49~{END}{UP}{RECALC E476}{LET AD1,E476+1}{CONTENTS AD2,AD1}{RECALC AD3}*ÿä'{IF AE348="y"#OR#AE348="Y"}{RETURN} ÿä'10]ÿ䨙 ðN{RECALC G485}{LET D476,Jü¿ö¿}{RECALC A54}/CK66..Qÿ¿€~Aÿ¿ÿ¿~3>ÿä{RECALC G485}{LET D476,J149}{RECALC A54}/CK66..Q95~A139~Aÿ妙ð2{RECALC A486..A487}{IF AH347=2}{FIL}{€ÿ¿}3.ÿå{RECALC A486..A487}{IF AH347=2}{FIL}{\M}ÿå'{ERS}{BRANCH B483}Aÿå'{GOTO}A224~{END}{UP}{RECALC E476}{LET AG45,E476-2}{RETURN}ÿå'{ERS}{BRANCH E483} ÿå'93>ÿå'{LET CASH,CASH+N55}{LET B55,B55+L58}{HOME}{\Q}{ON}{OFF}7ÿ棙ð({LET AH347,AH347+1}{BRANCH €ý¿}3&ÿæ{LET AH347,AH347+1}{BRANCH D279}ÿæ'{LET C475,"148"} ÿæ'148ÿæ' ÿæ'95nÿæ'{GOTO}A49~{END}{UP}{RECALC E476}{LET AD1,E476+1}{LET F483,@STRING(AD1,0)}{CONTENTS AD2,AD1}{RECALC AD3}øÿç—™ðé{RECALC B488}{IF J€ó¿=C476}{BLANK J€ó¿}{LET D487,C475}{LET C475,@VALUE(C475)+1}{LET C475,@STRING(C475,0)}{RECALC B488}{OFF}/MJ€ó¿..J€ó¿~J€ÿ¿~{HOME}{ON}{LET E475,@STRING(@VALUE(E475)-1,0)}{BRANCH B498}3Îÿç{RECALC B488}{IF J149=C476}{BLANK J149}{LET D487,C475}{LET C475,@VALUE(C475)+1}{LET C475,@STRING(C475,0)}{RECALC B488}{OFF}/MJ149..J148~J148~{HOME}{ON}{LET E475,@STRING(@VALUE(E475)-1,0)}{BRANCH B498}\ÿç'{IF E475="244"}{GETLABEL "ONLY 100 PORTFOLIOS ALLOWED (HIT ENTER TO CONT):",E487}{\P} ÿç'139Sÿç'{GOTO}A224~{END}{UP}{RECALC E476}{LET AG45,E476-2}{LET F484,@STRING(AG45,0)}Jÿè'{LET C475,@VALUE(C475)+1}{CONTENTS C475,C475}{LET C475,@TRIM(C475)}Lÿè'{LET F487,AG45+2}{LET F487,@STRING(F487,0)}{LET F488,@STRING(AG45,0)}Tÿé'{IF C475=E475}{GETLABEL "PORTFOLIO NOT FOUND (HIT ENTER TO CONT):",AE348}{PD}%ÿé'{IF D476=""}{ERS}{BRANCH C479}‰ÿé‘™ðz{RECALC G490}{GOTO}Dÿ¿ý¿~+@SUM(D63..Dÿ¿þ¿)~/CDÿ¿ý¿~Dÿ¿ý¿..Gÿ¿ý¿~/RFD~B63..C144~/RFC~D63..G144~3[ÿé{RECALC G490}{GOTO}D95~+@SUM(D63..D139)~/CD95~D95..G95~/RFD~B63..C144~/RFC~D63..G144~ÿê'{BRANCH B488}‚ÿê'{LET A228,D476}{SYMS}{SYMP}{SYMSL}{IF A228<>D476}{GETLABEL "INVALID PORTFOLIO NAME (HIT ENTER TO CONT)",AE348}{BRANCH C479}›ÿë'{IF 47-@VALUE(F483)=0}{GETLABEL "TOO MANY POSITIONS (>40) (HIT ENTER TO CONT):",H492}{LET C484,D480}{LET AH147,0}{GOTO}A1~{RECALC D480}{BRANCH D480}ÿë'/ÿì'{INDICATE DEL}{RESTART}{MENUBRANCH A495}mÿì'/RVK57~K7~{LET L7,@SUM(L7..L50)}{LET M7,@NOW}{LET N7,@NA}/CO54..P54~O7~{LET Q7,"COMBINED"}{LET R7,N54} ÿí'{\M}0ÿí'{LET S7,L58}{BLANK K8..S50}{LET F485,"7"} ÿî'ALL ÿî'NAME ÿî'RESET ÿî'QUIT5ÿï'REMOVE ALL PORTFOLIOS AND INITIALIZE WORKSHEET.ÿï'NAME PORTFOLIO TO DELETE FROM WORKSHEET2ÿï'CLEAR CURRENT PORTFOLIO/CAPITAL GAINS AREASÿï'RETURN TO PORTFOLIO MENU¡ÿï'{IF 220-@VALUE(F484)=0}{GETLABEL "TOO MANY CAPITAL GAINS (>150) (HIT ENTER TO CONT):",H492}{LET C484,D480}{LET AH147,0}{GOTO}A1~{RECALC D480}{BRANCH D480}_ÿð'{IF @VALUE(E475)=148}{GETLABEL "NO PORTFOLIOS TO DELETE (HIT ENTER TO CONT):",AE348}{PD}ÿð'{BRANCH B480}ÿð'{LET E332,1}{CLEAR} ÿð'{\P}‘ÿð‹™ð‚{RECALC G497}{LET Q66,@SUM(Q66..Qÿ¿õ¿)}/RVK57~K66~/CKÿ¿õ¿..Qÿ¿ö¿~K67~/CN69..P69~N66~{LET L66,@NOW}{LET M66,@NOW}3pÿð{RECALC G497}{LET Q66,@SUM(Q66..Q93)}/RVK57~K66~/CK93..Q95~K67~/CN69..P69~N66~{LET L66,@NOW}{LET M66,@NOW}.ÿñ'{GETLABEL "ARE YOU SURE (Y/N)?:",AE348}=ÿñ'{OFF}{GOTO}H146~{ON}{WAIT @NOW+@TIME(0,0,2)}{HOME}{PD}%ÿñ'{LET F487,"69"}{LET F486,"67"}&ÿò'{IF AE348="N"#OR#AE348="n"}{PD};ÿó'{IF AE348="y"#OR#AE348="Y"}{CGC}{PORTC}{BRANCH A502}ÿô'{ERS}{BRANCH A498}…ÿõ'{PORTC}{CGC}{GOTO}A60~{ON}{WAIT @NOW+@TIME(0,0,2)}{HOME}{BLANK J148..J248}{LET J148,"NO PORTFOLIOS NAMED"}{OFF}{GOTO}H146~{ON}eÿö'{WAIT @NOW+@TIME(0,0,2)}{HOME}{LET E475,"148"}{LET D476,"PORT1"}{LET D475,"PORT1"}{RECALC A54} ÿ÷'{PD}ÿý'------------------ÿý'----------ÿý'-----------ÿý'--------------ÿý'--------------ÿý'--------------- ¢ýÿþ^DESCRIPTION ÿþ^DATE  ÿþ^DATEÿþ^GROSS SALE ÿþ^COSTÿþ^GAIN OR ¢þÿÿ^ACQUIRED ÿÿ^SOLD ÿÿ^PRICE ÿÿ^LOSS ¢ÿÿ'------------------ò'----------ò'-----------¢'--------------¢'--------------¢'--------------- ¢