+++++++++++++++++++++++++++++++++++++++++++ + + + KayPro 10 Money Management Programs + + + +++++++++++++++++++++++++++++++++++++++++++ KP10MONY.LBR ============ Thió  librarù containó severaì moneù managemenô programó  writteî iî  Turbï  Pascaì bù Borlanä International®  Witè thå releaså  oæ versioî 2.0¬  Borlanä haó removeä thå restrictioî foò sellinç  oò distributinç  freå anù programó writteî witè theiò  compiler®  Iæ yoõ havå noô yeô purchaseä Turbï Pascal¬  É urgå yoõ tï dï so® Aô $49.95, it is perhaps the best software buy on the market. Thå  programó arå writteî foò thå KayPrï 1° anä uså thå  graphicó that are available for this system. CONTENTS ======== FINMENU.COÍ Menõ prograí useä tï selecô anä chaiî thå suâ programs®  Tï brinç up the system, run this program. CHRTSTK.CHÎ Wilì  maintaiî  uð tï thirtù stockó oò indiceó witè á  shorô  anä lonç terí average®  Theù caî bå listeä oî youò printeò oò  screeî oò  showî  graphicallù  oî  youò screeî  witè  thå  twï  averageó overlayinç  thå actuaì entries®  Alsï includeä arå fivå fileó  tï demonstratå  thió program®  Theù havå thå weeklù  high¬  lo÷  anä close of several closely followed indices. DJIA.DTÁ - Do÷ Joneó Industriaì Average. DJTA.DTA - Dow Jones Transportation Average. DJUA.DTA - Dow Jones Utility Average. COMEXGLD.DTA - closest contract for gold on the COMEX. COMEXSIL.DTA - closest contract for silver on the COMEX. Thå  filå  CHART.DTÁ ió useä tï holä thå nameó oæ thå issueó  yoõ are maintaining files for charting. Beforå displayinç thå maiî menu¬ yoõ arå prompteä foò thå datå oæ thå datá yoõ wilì bå addinç tï thå file®  Iæ yoõ arå jusô runninç thå  prograí  foò chartinç datá alreadù iî thå file¬  jusô  presó return to continue to the main menu. Š 1 The menu selections are: 0) End session - return to main menu (FINMENU.COM) 1© Creatå ne÷ charô filå - wheî askeä foò filå number¬  uså ± foò thå  firsô file®  Thå filå CHART.DTÁ ió á randoí accesó filå witè 3°  records®  Afteò yoõ deletå á filå thå recorä numbeò  wilì  bå availablå  tï bå useä again®  Thió menõ selectioî wilì prompô yoõ foò  thå  numbeò  oæ  elementó tï bå  useä  foò  maintaininç  thå averages®  É recommenä selectinç 1³ anä 3¹ foò thå shorô anä lonç terí  averageó foò weeklù data®  Theså averageó arå developeä  bù expoentiallù smoothinç eacè datá entrù oæ thå closinç price. 2© Selecô anä updatå charô filå - useä tï enteò thå currenô high¬ low and closing price. 3) List selected chart file - Screen dump of the selected file. 4©  Charô selecteä file - thå screeî ió capablå oæ displayinç  70 datá points®  Iæ therå arå morå thaî 70¬ yoõ wilì bå prompteä foò thå starô point®  Thå prograí wilì displaù thå grapè screen¬ scaî thå DTÁ filå foò thå highesô higè entrù anä anä lowesô low¬ scalå thå  datá tï fiô oî thå screeî anä displaù thå scalå oî thå  lefô sidå oæ thå screen®  Yoõ arå no÷ giveî fouò optionó aô thå bottoí oæ  thå screen®  <1¾ wilì displaù thå higè lo÷ iî baò grapè form¬ <2¾ thå shorô terí averagå iî linå grapè form¬  <3¾ thå lonç terí averagå  iî linå grapè forí anä <4¾ wilì returî yoõ tï  thå  maiî menu®  Thió allowó yoõ tï selecô anä overlay¬  oî thå screen¬ anù oò alì oæ thå threå graphs® 5© Selecô ne÷ charô file - wilì displaù alì filå nameó  availablå for charting. Enter the number of the file you wish to see. 6©  Deletå á Charô filå - wilì displaù alì oæ thå filå  nameó  iî CHART.DTÁ  anä prompô yoõ foò thå numbeò oæ thå filå yoõ wisè  tï delete®  Thå namå wilì bå removeä froí thå CHART.DTÁ filå anä thå selected DTA file erased from the disk. 7©  ReSeô  Averagå - allowó yoõ tï changå thå numbeò oæ  elementó useä iî maintainç thå shorô anä lonç terí averages®  Thå  prograí will recalculate all of the averages in the file. 8©  Prinô selecteä charô filå - filå dumð oæ tï the List device. 9©  Ediô selecteä charô filå - allowó yoõ tï correcô  entrieó  iî thå DTÁ file®  yoõ wilì neeä tï kno÷ thå recorä numbeò (obtaiî iô froí thå screeî dump)®  Thå prograí wilì recalculatå thå averageó after the correction is made. D© Changå systeí datå - allowó yoõ tï changå thå systeí datå wheî enterinç morå thaî onå elemenô tï thå filå withouô restartinç thå program. Š 2 FINANAL.CHN Á  prograí  containinç  commoî financiaì  calculatioî  moduleó  - interest, tax free yields, amortization tables, annuities ,etc. MKTPOS.CHN Thió  prograí  useó  thå  historiã  movemenô  oæ  thå  Do÷  Joneó Industriaì  Averagå  tï  computå á recommendeä balancå  foò  youò portfoliï betweeî casè anä stocks®  Iô ió uð tï yoõ tï  determinå youò  originaì  miø  oæ  dollaró committeä  tï  stockó  anä  casè insturments®  Thå  prograí  wilì recommenä thå amounô iî  percenô changå yoõ shoulä makå tï youò stocë portion®  Foò example¬  youò portfoliï  ió $25,00° witè $15,00° iî á moneù markeô anä  $10,00° iî á mutuaì funä anä thå prograí recommendó thaô yoõ increså youò stocë  positioî bù 5%®  Yoõ woulä removå $50° dollaró (5¥ oæ  thå $10,00°  iî stocks© froí thå moneù markeô anä adä tï youò  mutuaì fund® Thió  prograí  shareó thå filå LTRI.DTÁ witè thå Lonç  Terí  Risë Index which will be described later. INVMGR.CHN Thió ió thå Portfoliï Manageò program® Iô wilì keeð tracë oæ youò investmentó uð tï thirtù differenô issues® Iô wilì sho÷ thå name¬ thå  numbeò  oæ shares¬  currenô price¬  profiô oò losó  anä  thå percenô  thå  issuå ió oæ youò  portfolio®  Thió  informatioî  ió maintaineä  iî thå filå PORTFOL.DTA®  Iô alsï maintainó á filå oæ eacè  transactioî  iî  thå  filå  TRANSACT.DTA®   Iô  wilì   givå recommendeä  buù selì dollaò amountó baseä oî thå formulá AIÍ  aó described below. Menu selections are: 0) End session - returns to FINMENU.COM 1© Adä ne÷ issueó tï porfoliï - promptó yoõ foò thå namå oæ thå  stocë  oò  fund®  Filì alì remaininç blankó witè  spaceó  tï insure proper alignment when printing the portfolio. 2©  Computå ne÷ percentageó - recalculateó percenô eacè issuå  ió of your portfolio. Automatically done after each transaction. 3© Recorä transactionó - useä tï recorä thå buyinç anä sellinç iî youò  portfolio®  Yoõ arå firsô prompteä foò thå issuå  anä  theî thå screeî wilì displaù thå currenô statuó oæ thå selecteä issue® Yoõ wilì bå prompteä foò thå currenô price¬  thå transactioî codå accordinç tï thå AIÍ sectionó below¬  thå numbeò oæ shareó (+/-)¬ datå anä anù comments® Therå ió nï editinç functioî tï thió file® Iæ  aî incorrecô entrù ió made¬  makå aî offsetinç entrù tï cleaò it from the totals. Š 3 4) Update Price - used to enter the current price. 5©  Lisô  Portfoliï - wilì sho÷ youò totaì  portfolio®  Foò  eacè issue¬  iô wilì sho÷ Name¬  shareó owned¬  currenô value¬ gaiî oò loss¬  AIÍ  recommendeä  buù  oò selì (+/-© anä  thå  percenô  oæ porfolio. 6) Delete Issue - used to delete anissue from the file. 7) Print Porfolio - same as 5 except output to the List device. 8© Lisô Transactioî filå - wilì display¬ oî thå screen¬ sorteä bù issuå name¬  á recorä oæ eacè transactioî foò issueó currentlù iî your portfolio. 9© Prinô Transactioî filå - wilì outpuô tï thå lisô  device¬  alì oæ  youò  transactioî  iî chronologicaì  order®  Thió  wilì  lisô transactionó foò issueó nï longeò activå iî youò portfolio. 10©  Issuå Statuó - thió wilì displaù foò á singlå issuå thå samå informatioî  yoõ  seå wheî enterinç á  transaction®  Iô  ió  morå informatioî thaî caî bå showî iî thå Lisô portfoliï section» sucè aó  thå  controì  amounô AIÍ ió usinç anä youò averagå  cosô  peò share. The following is a summary of how AIM is used: AIM Automatiã Investmenô Managemenô ================================================================= AIÍ  ió baseä oî thå book¬  "Ho÷ tï makå $1,000,00° iî thå  Stocë Market¢ bù Roberô Lichello®  Iô ió recommendeä that¬  beforå  yoõ uså thió program¬ yoõ obtaiî á copù oæ thió book® Iô ió availablå iî paperbacë (Signeô £ 451-E9461)®  Thå Portfoliï Manageò prograí (INVMGR.CHN© establisheó á controì amounô tï monitoò thå progresó oæ  eacè  issuå  iî youò portfolio®  Wheî thå valuå  exceedó  thå controì amounô bù á giveî percentage¬  thå prograí wilì recommenä thaô yoõ selì á portioî oæ thå issue®  Conversely¬ wheî thå valuå falló belo÷ thå controì amount¬  thå prograí recommendó aî amounô tï adä tï thå issue®  Iî otheò words¬  thå prograí directó yoõ tï buù lo÷ - selì high®  AIÍ doeó noô picë stocks» iô onlù monitoró thå oneó yoõ havå selected®  Thå aií calculationó shoulä bå  donå oî á monthlù basis® Iæ yoõ wisè tï monitoò thå thå AIÍ principle¬ alwayó enteò youò transactioî codeó accordinç tï thå following: Originaì Investment =================== Thå  originaì investmenô ió defineä aó thå amounô thaô yoõ  starô witè iî thå Automatiã Investmenô Managemenô Program®  Thió amounô ió  tï bå divideä equallù betweeî stockó anä á moneù markeô fund® Alwayó  uså thió transactioî codå foò anù depositó tï youò  moneù markeô account® Š 4 Re-invesô Dividends =================== Wheî dividendó arå paid¬  thå pricå wilì usuallù droð tï  reflecô thå paù out®  Therefore¬  onlù thå pricå anä shareó arå adjusted® Nï changeó arå madå tï thå controì amount. Additionaì Investments ====================== Additionaì   investmentó   arå   treateä  likå   thå   originaì investment®  Dividå  thå  amounô iî halæ anä puô  onå  halæ  intï stockó  anä  thå  otheò halæ intï youò  moneù  markeô  fund®  Thå controì  amounô  ió increaseä bù thå amounô addeä tï  thå  stocë pluó aî additionaì 10%. Aií Sell ======== Wheî  AIÍ recommendó thaô yoõ selì á giveî dollaò amount¬  iô  ió takinç  profiô froí youò investmenô anä placinç iô safelù awaù iî youò moneù markeô accounô tï remaiî untiì thå markeô cycleó loweò anä AIÍ telló yoõ tï buy® Controì ió noô adjusted. Aií Buy ======== Wheî  AIÍ  recommendó thaô yoõ buù á  giveî  dollaò  amount¬  thå markeô  ió  goinç  iîtï á loweò cyclå; anä yoõ shoulä  begiî  thå accumulatioî phaså oæ youò investmenô program®  AIÍ wilì increaså yoõr controì amounô bù 50¥ oæ youò ne÷ investment. Noteº Mutuaì fundó maù bå useä insteaä oæ individuaì stocks. How to start ============ 1® Decidå oî initiaì amounô tï bå investeä iî thå program. 2®  Dividå thå amounô equallù betweeî stockó anä á  moneù markeô fund. 3® Selecô stockó anä fundó tï bå used. 4® Enteò usinç Originaì purchaså menõ selection. 5®  Adä  dividendó receiveä aó stocë usinç maiî menõ  option®  Iæ dividendó arå receiveä aó cash¬ deposiô iî youò moneù fund® 6® Monthlù updatå thå portfoliï witè currenô prices. 7®  Buù  oò  selì  aó  directeä bù thå  prograí  iî  thå  amountó specified. 8®  Thå  prograí automaticallù eliminateó alì transactionó  undeò $100® Š 5 MARKET.CHN Thió prograí ió thå Markeô Laboratorù prograí anä ió iî itó earlù stageó oæ development®  Iô ió no÷ jusô á datá baså oæ informatioî froí Baron'ó Markeô Laboratorù page® Futurå worë wilì includå suâ programó tï charô sucè technicaì indicatoró aó Advancå ¯  Declinå lines¬ Higè ¯ Lo÷ indicators¬ Oî Balancå volume¬ Specialisô shorô salå ratio¬ etc. LTRI.CHN Long Term Risk Index ==================== Thå  prograí LTRI.CHÎ ió baseä oî thå formulá developeä bù  Edwiî Sedgwicë  Chittendeî Coppack¬  foundeò oæ Trendex¬  knowî aó  thå Coppock'ó  Curve®  Thå mosô recenô descriptioî oæ thió  indicatoò caî bå founä iî thå Novembeò 22¬ 1982¬ issuå oæ "Barron's". Thå  mosô  importanô  poinô iî usinç thió techniquå ió  thaô  thå indeø ió tï bå useä onlù foò á lo÷ risë BUÙ signal® Iô won'ô telì wheî tï geô ouô oæ thå market® Thå indeø ió á barometeò oæ excesó optimisí  anä  pessimisí aó reflecteä iî thå  market'ó  long-terí oscillations® Thå indeø ió developeä bù addinç thå peò cenô changå oæ thå  DJIÁ foò  thå pasô fourteeî monthó tï thå peò cenô changå oæ thå  lasô eleveî months®  Thió numbeò ió theî weighteä bù multiplyinç iô bù ten¬  thå  previouó montè bù 9¬  thå montè beforå thaô bù ¸  etc¬ etc. Thå  lonç  terí buù signaì ió giveî wheî thå index¬  afteò  beinç belo÷  zerï turnó lesó negative®  Alì buyinç shoulä bå  completeä prioò tï thå indeø becominç positivå again. As for the effectiveness of the index, judge for yourself ... Date of Date of % signal DJIA Top DJIA Increase ======= ======= ======== ======= ======== 12/62 652.10 2/66 995.15 52.6 3/67 865.98 12/68 985.21 13.9 8/70 764.58 1/73 1051.70 37.6 1/75 703.69 9/76 1014.79 44.2 4/78 837.32 4/81 1024.05 22.3 8/82 901.31 12/83 1258.64 39.6 The dates are entered in integer format i.e. 182 January 1982 1283 December 1983 Š 6 NOTES ===== Thå hardesô parô iî thió endeavoò haó beeî writinç thió doã file® Becauså É aí intimatelù awarå oæ whaô thå programó do¬  É aí surå É  havå lefô ouô manù thingó thaô yoõ wilì wisè tï know®  Iæ  yoõ geô á DTÁ filå garbageä up¬  eraså iô anä thå prograí wilì creatå á ne÷ onå foò yoõ withouô anù datá iî it®  Iæ yoõ geô lost¬  calì 717-322-7730»  anä  É  wilì helð whereveò  É  can®  Fridaù  earlù eveninç ió best» É traveì durinç thå weeë® Pleaså  dï givå thå AIÍ principlå á gooä lookinç  over®  Althougè thå  titlå "Ho÷ tï makå $1,000,00° iî thå Stocë Market¢ smackó  á littlå  oæ  hype¬  thå  systeí  doeó  work®  É  havå  includeä  á PORTFOL.DTÁ  anä  TRANSACT.DTÁ thaô useó thå Ne÷ Yorë  Compositå Indeø foò thå teî yearó 196¶ - 1975® Bù reviewinç thå transactioî filå  yoõ  wilì seå thaô durinç thió perioä thå markeô wenô  froí $50.0°  tï $47.6´ buô aî investmenô oæ $5000.0° woulä havå  growî oveò  72¥ tï iî excesó oæ $8600.0° anä thaô doeó noô includå  anù interesô froí moneù takeî ouô oæ thå markeô oò anù dividendó thaô woulä  havå  beeî receiveä anä reinvested®  Thió  lookó  gooä  iî hindsighô buô remember¬  yoõ woulä havå beeî investinç heavilù iî thå markeô wheî thå headlineó werå toutinç thå "CRASÈ oæ '74¢ anä sellinç  whilå peoplå werå forecastinç 300° oî thå Dow®  Iæ  thaô contrariaî  actioî doeó noô causå youò stomacè tï tighteî intï  á knoô  wheî yoõ reacè foò thå phonå tï calì youò broker¬  yoõ jusô maù makå thaô $1,000,00° iî thå market. É  havå  noô includeä anù sourcå fileó iî thió  release®  Iæ  yoõ desirå tï receivå theí oò tï receivå updateä DTÁ files¬ senä me á blanë  disã  anä á couplå oæ buckó tï coveò mù costó anä  É  wilì gladly send you what you need. É  guesó  É  shoulä  alsï  includå á  statemenô  thaô  É  aí  noô responsiblå  iæ  yoõ  loså thå farí baseä oî anù  informatioî  oò recommendations received from these programs. Dave McCourt P O Box 290-B R D # 2 Williamspsort, Pa 17701 7