R ANALYSIS OF OPTIMUM USE OF RESOURCES. 10 "LABEL1" SHIPPING LABEL PRINTING ROUTINE. 10 "RRCONST" RATE OF RETURN ON INVESTMENT WITH CONSTANT INFLOW. 18 "RRVARIN" RATE OF RETURN ON INVESTMENT WITH VARIABLE INFLOW. 8 "SALVAGE" SALVAGE VALUE OF AN ITEM. 10 "STOCKVAL1" COMPUTES VALUE OF A SHARE OF STOCK. 13 "TERMSPAY" COMPARISON OF METHODS FOR PAYMENT OF PURCHASES. 14 "TIMEMOV" SIMPLE MOVING AVERAGE SMOOTHING PROGRAM. 14 "TIMETR" COMPUTES A LINEAR TREND FOR A TIME SERIES. 12 "TAXDEP" COMPUTES NET EFFECT ON INCOME FROM DEPRECIATION. 8 "EFFECT" CALCULATES AN EFFECTIVE INTEREST RATE ON LOAN. 14 "NCFANAL" NET CASH FLOW ANALYSIS UTILISING DEPRECIATION. 15 "QUEUE1" WAITING LINE COST ANALYSIS #2. 16 "MULTMON" COMPUTES COMPOUNDING OF INTEREST. 16 "SEASIND" SEASONAL INDEX FOR A SERIES OF SALES PERIODS. 9 "SELLPR" FIGURES SELLING PRICE GIVEN TOTAL SALE & TAX RATE. 10 "REGWITH" AMOUNT AVAILABLE FOR WITHDRAWAL OVER A FIXED PERIOD. 17 "FQEOQPB" INVENTORY THEORY FIXED EOQ WITH QUANTITY PRICE BREAKS. 14 "SIMPDISK" COMPUTES DISCOUNT, LIST PRICE OR SALE PRICE. 189 BLOCKS FREE. NET CASH FLOW ANALYSIS UTILISING DEPRECIATION. 15 "QUEUE1" WAITING LINE COST ANALYSIS #2. 16ORDINARY PRICE/UNIT"7 "IF THAT PARTICULAR LOT SIZE IS NOT"H "OFFERED."N^ 220: 240o ********** ROUTINE TO HOLD SCREEN **********CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000 "";) CN$ "." TC$(I) TC$(I) "0": 550@ (TY1$,1) "." TC$(I) TC$(I) ".00"V& I 0 F 101 F 10 " # SIZE PRICE/UNIT TOTAL COST"2 F 10 "---- ----- ---------- -----------":3 3(I$));I$;:F0,(F$)1): 50015,Ë (C$) 45 (C$)47 (C$) 57 500659F$F$C$EÉ 50015xÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010~ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t 1 15 "BONDVAL2" RATIO OF CHANGE OF BOND VALUE. 20 "DEPRDB" DECLINING BALANCE DEPRECIATION SCHEDULE. 14 "DISCBAL" TRUE INTEREST ON DISCOUNTED LOAN. 17 "DILANAL" ANALYSIS OF MERGING ELPS DETERMINE GOOD STOCK SELECTION. 18 "CONDPROF" CONDITIONAL PROFIT TABLE. 30 "MAILPAC" MAILING PROGRAM. 19 "DEPRDDB" DEPRECIATION USING DOUBLE DECLINING BALANCE. 44 "AUTOEXP" EXPENSE RECORDS FOR AUTO. 46 "ARBCOMP" ARBITRAGE COM "ANNUAL DEMAND (IN UNITS) ?": 50000:D(F$)e CN$"ENTER REORDER COST (PER ORDER) ?": 50000:S(F$) CN$"ENTER HOLDING COST (PER UNIT/YR ?": 50000:C(F$) CN$"ENTER NORMAL PURCHASE PRICE/ITEM?": 50000:P(F$) "CN$"HOW MANY DIFF 4 13(Q$(I)));Q$(I);5 26(P$(I)));P$(I);96 39(TC$(I)));TC$(I)n7 I 0 I 10 (I10) : 220:F10: "";v9 I:: "":M 1E20: I 0 NL: TC(I) M M TC(I):IM I: I F" PRESENT VALUE OF A DEFERRED ANNUITY. 18 "ASSIGN" FIGURES COST OF ASSIGNMENT. 12 "CAP1" CAPITAL ASSET PRICING MODEL OF ANALYSIS. 15 "BETAALPH" COMPUTES ALPHA AND BETA VALUES OF STOCK WITH RETURN.  COMPANIES STOCK VALUES. 14 "MARKUP" GROSS MARGINS ON COSTS. 13 "LOANAFFD" FINDS LOAN AMOUNT AVAILABLE BASED ON INTEREST AND INCOME. 18 "VALPRINF" PROBABILITY BASED ON NATURE USING USER INPUT. 12 "FQEOQ" MAXIMUM QUANTITY ORDERS BASEDPUTATIONS. 16 "LEASEINT" LEASE INTEREST RATE. 27 "SALELEAS" SALE LEASEBACK ANALYSIS.  7 "INVOICE" SET UP INVOICES. 32 "FINRAT" FINANCIAL RATIOS FOR BUSINESS. 40 "INSFILE" FILE FOR INSURANCE INFORMATION. 46 "INVENT2" INVENTORYERENT LOT SIZES "Q 'CN$CN$"ARE OFFERED ?": 50000:NL(F$)b , I 1 NL} 6 "FOR LOT SIZE # ";I ; @CN$" LOT SIZE QUANTITY ?": 50000 EQ(I) (F$) JCN$" PRICE/UNIT  "MINIMUM COST IS ";(TC(IM .005)100)100G "ATTAINED BY CHOOSING LOT SIZE ";Q(IM)|: "": 220: 240OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED10 "EOQ" ECONOMIC ORDER QUANTITY ANALYSIS. 10 "BREAKEVN" COMPUTES BREAKEVEN ON SALES. 12 "DATEVAL" MATURITY OF AN OBLIGATION THAT IS A DATED VALUE. 11 "EPSEST" ESTI ON ONE PRICE. 13 "RENTPRCH" VALUE OF INVESTMENT IN REAL ESTATE. 17 "EXPVAL" EXPECTED FUTURE VALUE OF AN INVESTMENT. 21 "DEPRSF" DEPRECIATION USING SINKING FUND SCHEDULE. 18 "COMPBAL" COMPENSATING LOAN INTEREST AND BALANCE. 15 "RU PROGRAM. 18 "DEPRSY" DEPRECIATION SCHEDULE FOR SUM OF DIGITS. 16 "OPTWRITE" DEVELOPMENT SYSTEM FOR OPTION WRITING. 32 "LETWRT" SIMPLE WORD PROCESSOR. 18 "DEPRSL" STRAIGHT LINE DEPRECIATION SCHEDULE. 19 "MORTGAGE/A"PRINTS MORTGAG ?": 50000:P(I)(F$) ^ I4 hQ(0) (2 D S C):P(0) Pt r I 0 NL:TC(I) D P(I) DQ(I) S Q(I)2 C: I | "";  "# REFERS TO THAT LOT SIZE #."  "LOT SIZE #0 REFERS TO THE LOT SIZE"  "WITHOUT CONSIDERING THE Q DATA TO DATE"(ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDC_á C$: C$"" 50015hdË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$MATE OF EXPECTED EARNINGS PER SHARE. 11 "FQEOWSH" INVENTORY THEORY FIXED QUANTITY EOQ WITH SHORTAGES. 9 "LOANPAY" CALCULATES AMOUNT OF LOAN PAYMENT. 13 "FUPRINF" GIVES FUTURE PRICE WITH CURRENT INFLATION. 9 "PAYNET" GROSS PAY NEEDELE78" INTEREST CHANGE ON LOAN USING RULE OF 78. 21 "SINKFUND" SINKING FUND AND TABLES. 10 "MERGANAL" VALUE OF ACQUIRED COMPANY. 11 "PRINDPA" PAASCHE PRICE INDEX. 13 "NPV" NET PRESENT VALUE OF PROJECT. 20 "OPTLOSS" OPPORTUNITE REPAYMENT TABLE. 21 "TIMUSAN" SUMMARY OF TIME USE FOR A PERIOD. 54 "ACCTPAY" ACCOUNTS PAYABLE NO INSTRUCTIONS. 45 "BUSBUD" BOOKEEPING AND BUDGET ANALYSIS. 26 "TELDIR" TELEPHONE DIRECTORY. 44 "PORTVAL9" STOCK PORTFOLIO PROGRAM.UANTITY PRICE"  "BREAKS." +  220: "";: 425<  I 0 NLa I$(I): (I$) 1 I$"0" I$ Q(I) ((Q(I).05)10)10 Q$(I)(Q(I)) TP1$(Q$(I),2)  (TP1$,1) "." Q$(I) Q$(I) "." "0" P(I) ((P(I).(F$,(F$)1): 50015,Ë (C$) 45 (C$)47 (C$) 57 500659F$F$C$EÉ 50015xÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010~ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015tD FOR A GIVEN NET. 11 "PRINDLAS" PRICE COMPARISON BASE YEAR TO CURRENT. 12 "PROFIND" PROFITABILITY INDEX OF A PRODUCT. 16 "QUEUECB" WAITING LINE COST ANALYSIS. 12 "RRCONVBD" CONVERTIBLE BOND RATE OF RETURN. 32 "RTVAL" VALUE OF A Y LOSS TABLE. 54 "ACCTREC" ACCOUNTS RECEIVABLE WITH NO INSTRUCTIONS. 21 "UTILITY" COMPUTES DECISION ON UNCERTAIN ACTIONS. 16 "ENVELOPE" PRINTS ENVELOPES. 26 "ANNU1" ANNUITY COMPUTATION. 20 "BONDVAL" EVALUATION FORMULA FOR BONDS. 60 "PAYROLL2" PAYROLL PROGRAM. 10 "FVAL" FUTURE VALUE OF AN INVESTMENT. 10 "PVAL" PRESENT VALUE OF AN INVESTMENT. 10 "DATE" NUMBER OF DAYS BETWEEN 2 DATES. 11 "BLACKSH" BLACK SHOLES STOCK VALUATION FORMULA. 13 "ANNUDE005)100)100 P$(I) (P(I))# TD1$(P$(I),3)V  (TD1$,2,1) "." P$(I) P$(I) "0": 490  (TD1$,1) "." P$(I) P$(I) ".00" TC(I) ((TC(I) .005) 100) 100 TC$(I) (TC(I)) TY1$(TC$(I),3) (TY1$,2,1) F 1 F 0:y (C$) 13 F$"" 600150~ (C$) 13 60065U (C$) 20 (F$)1 60060_ C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015STOCK RIGHT. 15 "BAYES" PROBABILITY OF OCCURENCE IN STATE OF NATURE. 11 "WARVAL" COMPUTES VALUE OF A WARRANT. 13 "WACC" WEIGHTED AVERAGE COST OF CAPITAL. 13 "VALADINF" COMPUTES BOUNDS ON SAMPLING VARIANCE. 19 "SIMPLEX" LINEA 22 "TIMECLCK" CALCULATES EMPLOYEE HRS AND OVERTIME. 23 "CHECK2" NEBS CHECK PRINT. 44 "CHECKBK1" CHECKBOOK MAINTENANCE. 15 "UPSZONE" OUTPUTS UPS ZONE. 29 "TRANS" DETERMINES METHOD OF LEAST EXPENSIVE SHIPPING. 17 "SHARPE1" H *************+ ** SELLPR **@ *************O 59468,12Z ""; "" " SELLING PRICE " "" "THIS PROG(C$)20 (F$)1 50065: }Ë (C$)20 F$(F$,(F$)1): 50015m Ë (C$) 45 (C$)47 (C$) 57 50065z F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"": ******************3 ** REGWITH **L ******************[ 59468,12f ""; "" " REGULAR WITHDRAWAL OF INVESTMENT "( ""'F "":G  "AVERAGE LENGTH OF QUEUE =";LQs " "AVERAGE LENGTH OF THE SYSTEM =";LS , "AVERAGE WAITING TIME ON QUEUE =";WQ 6 "AVERAGE TIME WAITING IN SYSTEM =";WS @ "PROBABILITY SYSTEM IS BUS 00 6 OÀ" PÏ SUBROUTINE FOR DATA INPUTd UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$""  RAM COMPUTES THE PROPER"E "SELLING PRICE FOR AN ITEM IF THE TOTAL"u "PRICE THE CUSTOMER SHOULD PAY INCLUDING" "SALES TAX IS SOME GIVEN AMOUNT. THE"# "NECESSARY INPUT IS THE SALES TAX RATE"( "AND THE DESIRED FINAL SELLING PRICE P C$"" j CN$; o C$: C$"" 600153 t F 1 F 0:T y (C$) 13 F$"" 60015q ~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$; F$F$C$ 60015 "INPUT "THIS PROGRAM COMPUTES THE AMOUNT THAT"QH "CAN BE WITHDRAWN FROM AN INITIAL "|J "INVESTMENT, M TIMES PER YEAR FOR N"L "YEARS, WITH NOTHING LEFT AT THE END OF"P "N YEARS, IF THE NOMINAL INTEREST RATE IS";R "GIVEN.THIS TYPE OF COMP Y =";PU,J: "":VT "SYSTEM TIME IS WAITING TIME PLUS "lY "SERVICE TIME."^:: 360: "";: 200hCN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000rOÀPÏ SUBROUTINE FOR DA 50015 nÙ C$; sË (C$)13 50070? xË (C$)20 (F$)1 50065i }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 ÙLUS"2Z:CN$"PRESS RETURN TO BEGIN ?":F1: 60000=d "";znCN$"ENTER SALES TAX RATE (%) ?": 50000:S(F$)sSS100xCN$"ENTER FINAL SALE + TAX PRICE ?": 50000:FP(F$)SELLFP(1S) I 1 40: "";: I:X4 ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015m Ë (C$) 45 (C$)47 (C$) 57 50065z F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":UTATION SHOULD BE";>T "INTERESTING TO THOSE WHO WOULD LIKE TO"nV "KNOW HOW WELL THEY CAN LIVE FOR A FIXED"X "NUMBER OF YEARS ON ACCUMULATED SAVINGS."d ::: 300n "";xCN$"AMOUNT OF INITIAL INVESTMENT ?": 50000:IP(F$)5TA INPUT4UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"hZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 5 Î ` SUBROUTINE FOR STRING INPUT& eF$"":C$""1 j CN$;L o C$: C$"" 60015b t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)SELL: 1000: "SELLING PRICE = ";X$S: "":::CN$"1 FOR NEW TAX RATE, 2 FOR "CN$CN$"NEW CALC.,SAME TAX ?": 50000 F$"1" "";: 110 F$"2" "";:  **************+ ** FQEOQPB **@ **************O# 59468,12\(: "";2 Q(100),P(100),Q$(100),P$(100),TC(100),TC$(100)7 ""< " INVENTORY THEORY-FIXED QUANTITY EOQ "$A " CN$"NUMBER OF WITHDRAWALS PER YEAR ?": 50000:M(F$)rCN$"NUMBER OF YEARS OF WITHDRAWALS ?": 50000:N(F$)CN$"NOMINAL INTEREST RATE (%) ?": 50000:IR(F$)IR IR 100W IP(IRM((1IRM)(NM)1)IRM)W((W0070xË (C$)20 (F$)1 500659}Ë (C$)20 F$(F$,(F$)1): 50015lË (C$) 45 (C$)47 (C$) 57 50065yF$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTe1): 60015 F$F$C$ 60015C "INPUT ERROR, PLEASE TRY AGAIN ":: 60015I O F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù"SALES TAX RATE = ";S100;" %":- F$"2" 1203MX$(((X.005)100))e X0 X$"00"X$ X0 X$(X$,(X$)1) (X$)7 X$" " X$: 1020X$"$" (X$,5)"." (X$,2)OÀPÏ SUBROUTINE FOR DATA INPUT5  WITH QUANTITY PRICE BREAKS "UF ""P "THIS PROGRAM INVOLVES AN INVENTORY "R "PROBLEM FOR WHICH IT IS ASSUMED THAT"T "THE FOLLOWING CONDITIONS HOLD:"UZ " 1) CONSTANT ORDERING COS.005)100)100A W 1 W 10 (W10).001 W$"0"(W)"0": 210zW$(W):TEMP$(W$,3): (TEMP$,2,1)"." W$W$"0" (TEMP$,2,1)"." 210 (TEMP$,1) "." W$W$".00" ""eF$"":C$""j CN$;o C$: C$"" 600152t F 1 F 0:Sy (C$) 13 F$"" 60015p~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015EAKS." 220: "";D "THE QUANTITY PRICE BREAKS ARE OF THE"c "FIXED-LOT INCOME TYPE."i "I.E. DISCOUNTS (IN PRICE/UNIT) ARE" "OFFERED FOR THE PURCHASE OF CERTAIN" "FIXED LOT SIZES."  "THERE IS ALSO AN UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"i ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË T PER ORDER5d " 2) INVENTORY HOLDING COST IS CONSTANT\n " 3) NO BACKORDERS ARE PERMITTEDs " (STOCKOUTS NOT ALLOWED)"x " 4) DEMAND FOR THE ITEMS ARE CONSTANT"} " AND UNIFORM THROUGH TIME" " 5) THERE ARE QUANTITY PRICE BR "REGULAR WITHDRAWAL PERMITTED = $";W$& Y CN$"PRESS 0 TO END, 1 TO START OVER OR " CN$CN$"2 FOR NEW INTEREST RATE ?": 50000:Z9(F$)  (Z91) 280,110,150  "";: ,CN$"PRESS RETURN TO CONTINUE ?":F1: 600A: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015!,(F$)1): 50015lË (C$) 45 (C$)47 (C$) 57 50065yF$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT 4 "WHERE T IS THE TREND VALUE AND Y IS"C 6 "NO. OF YEARS FROM ORIGIN."::s D 4);"NO.";12);"VAL.";19);"SMOOTH VAL."; F 31);"DETRENDED" X 4);"----";12);"-----";19);"----------"; ] 32);"--------" b lCN$"PRESS RETURN  *****************1 ** NCFANAL **I *****************X 59468,12c ""; "" " NET CASH FLOW ANALYSIS "# ""(+ "CASH OUTFLOW: ";CP) 2 "DEPRECIATION: 0"F 4 "NET INCOME: 0"c 6 "TAXES: 0" 8 "NET CASH FLOW: ";CP 9: 430 : @ I 1 UL ANI CI(I) CO(I)AD:NCF NI AD NI TX B I UL NCF NCF OUTINE FOR STRING INPUTeF$"":C$""j CN$;5o C$: C$"" 60015Kt F 1 F 0:ly (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015  *******************5 ** QUEUE1 **O *******************^# 59468,12d(o2 "";< ""A " WAITING LINE ANALYSIS "F " TO CONTINUE, STOP TO END":F1: 60000 v8  ROUTINE TO FORMAT OUTPUTV XX ((XX.005)100)100s XX$(XX):TEMP$(XX$,3)  (TEMP$,2,1)"." XX$ XX$ "0": 680  (TEMP$,1) "." XX$ XX$ ".00" TT 0: II 1 (XX$) 2 "WHEN INVESTING IN A NEW PROJECT A FIRM"Y7 "MUST TAKE INTO ACCOUNT THE CASH FLOWS": "GENERATED BY THE PROJECT, BOTH POSITIVE"< "AND NEGATIVE. IN THIS PROGRAM WE ASSUME"? "THAT AN ITEM IS PURCHASED FOR A FIXED "A "AMOUNT, TO B SV C ""; D "YR: ";I= F "CASH INFLOW: ";CI(I)^ H "CASH OUTFLOW: ";CO(I)| J "DEPRECIATION: ";AD L "NET INCOME: ";NI N "TAXES: ";NITX P "NET CASH FLOW: ";NCF R :CN$"PRESS REXF$F$C$ 60015.: "INPUT ERROR, PLEASE TRY AGAIN ":: 600154:,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBR"/Z "WAITING LINES OCCUR IN ALMOST ANY "\\ "SYSTEM FROM THE SUPERMARKET CHECKOUT"^ "COUNTER TO THE RUNWAY AT AN AIRPORT."` "IN ANALYZING A WAITING LINE SITUATION,"b "ON THE ONE HAND, LONG WAITING LINES"d "CAUSE LOSS OF BU (XX$,II,1) "." TTTT1: II:TT(X$) &OÀFPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) FE DEPRECIATED OVER ITS "?D "USEFUL LIFE VIA THE STRAIGHT-LINE "mF "METHOD. WE ESTIMATE CASH INFLOWS AND "I "OUTFLOWS OVER THE LIFE OF THE PROJECT."K "THE PROGRAM WILL THEN PRINT A CASH FLOW"N "TABLE."P: 430Z CI(100),CO(1TURN FOR MORE ":F1: 60000 T I" ^:: 430[  "";:: "YEAR ";UL;" CASH FLOW INCLUDES SALVAGE "v  "VALUE SALE OF $";SV :: 430  100 CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000  ' ** ROUTINE TO FORMATE MEAN"- "ARRIVAL RATE. OTHERWISE THE QUEUE WOULD"J "GET INFINITELY LONG."P "WHAT AVERAGE MEANS IS SOMETIMES LONGER," "SOMETIMES SHORTER, BUT IF SOMEONE " "LOOKED AT THE WAITING LINE EVERY DAY FOR"; "A MONTH THEN THSINESS EVEN IF ONLY "?f "DUE TO CUSTOMER DISSATISFACTION WHILE"kh "INCREASING SERVICE INCREASES COSTS."j "IN THIS WE ASSUME THERE A SINGLE "l "SERVER (E.G. CHECKOUT PERSON), WHO CAN"n "SERVE, ON THE AVERAGE A GIVEN NUMBER"p "O$"" F1 F0:iË (C$)13 F$"" 50015'nÙ C$;@sË (C$)13 50070cxË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 Ù: "INPUT00)d "";EnCN$"CASH COST OF THE PROJECT ?": 50000:CP(F$)xCN$"DEPRECIABLE COST OF THE PROJECT ?": 50000:CD(F$)CN$"USEFUL LIFE OF PROJECT IN YEARS ?": 50000:UL(F$)CN$"SALVAGE VALUE AT END OF LIFE ?": 50000:SV OUTPUT ** 'XX ((XX .005)100)1004 $'XX$(XX):TEMP$(XX$,3)b )' (TEMP$,2,1) "." XX$ "0" : 10040 .' (TEMP$,1) "." XX$XX$ ".00" 8'TT 0: II 1 (XX$) =' (XX$,II,1) "." TT TT 1: II:TT(XX$) B' OÀE AVERAGE (MEAN) QUEUE "; "LENGTH FOR THE MONTH WOULD BE CLOSE TO"[ "WHAT WAS COMPUTED HERE."g : 360r ""; "THE FOLLOWING ARE IN NUMBER PER UNIT" " TIME. ": CN$"ENTER MEAN ARRIVAL RATF CUSTOMERS PER TIME. THE CUSTOMERS"Lr "ARRIVE RANDOMLY AT SOME OTHER AVERAGE"zt "RATE. THE WAITING LINE IS FIRST COME-"v "FIRST SERVED. WE EXAMINE THE "x "PROBABILISTIC CHARACTERISTICS OF THE"z "WAITING LIE OR QUEUE AS IT IS GENER ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ:` SUBROUTINE FOR STRING INPUTJeF$"":C$""Uj CN$;po C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60(F$)'AD (CD SV)UL: ANNUAL DEPRECIATIONdCN$"CORPORATE INCOME TAX RATE (%) ?": 50000:TX(F$)vTX TX 100 ""; I 1 UL "CASH FLOWS FOR YEAR ";I;" NOT INCLUDING": "INCOME TAXES" CN$" CASH INFLOWS =  PÏ SUBROUTINE FOR DATA INPUTMUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ CE OF UNITS ?": 50000:A(F$)L CN$"ENTER MEAN SERVICE RATE OF UNITS ?": 50000:S(F$) A 0 S 0 "NO NEGATIVES ALLOWED": 210 XX A: S XX "SERVICE RATE MUST AT LEAST EQUAL" S XX "ARRIVAL RATE":: 210, LS  ALLY | "CALLED."~ 360: "";J "THE AVERAGE SERVICE RATE IS THE MEAN"y "SERVICE RATE WHILE THE AVERAGE ARRIVAL" "RATE IS THE MEAN ARRIVAL RATE." "ONE REQUIREMENT IS THAT THE MEAN" "SERVICE RATE BE GREATER THAN TH060 C$; (C$)20 F$(F$,(F$)1): 60015*F$F$C$6 60015i: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015ou,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 Ù: "INPUT?": 50000:CI(I)(F$)? CN$" CASH OUTFLOWS = ?": 50000:CO(I)(F$)r "":z I PRINTOUT AND COMPUTATION  290: 320 " ""; , "YR: 0" . "CASH INFLOW: 0" 0$;sË (C$)13 50070(xË (C$)20 (F$)1 50065R}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBRA (SA):LQ A2 (S (SA)):WS 1 (SA):WQ A WS S; PU A S LS ((LS .0005) 1000)1000:LQ ((LQ .0005)1000)1000 WS ((WS .0005)1000)1000:WQ ((WQ .0005)1000)1000 PU ((PU .0005)1000)1000 : *****************1 ** TIMEMOV **I *****************X# 59468,12c( "";- ""2 "SIMPLE MOVING AVERAGE SMOOTHING PROGRAM "7 ""!< "RAM COMPUTES THE SALVAGE (BOOK)";LH "VALUE OF AN ITEM DEPRECIATED OVER N "{J "YEARS BY THE DECLINING BALANCE METHOD."P "INPUT NECESARY IS THE INITIAL COST, THE"R "DECLINING BALANCE DEPRECIATION RATE (AS"T "A % HERE), AND THE NUMBER? "INPUT ERROR, PLEASE TRY AGAIN ":: 60015' - F$,(F$)1): 50015z Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT 640: "";: 560 | L5  L (M1)2 1 I (M1)21Q XXL: 680:L$XX$:H1TTq XX A(L): 680:A$XX$:H2TT XXS(L): 680:S$XX$:H3TT  8H1);L$;22H2);A$;38H3);S$  L 10 (L10) 640: "";: 560  L   57 50065F$F$C$É 50015BÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010HÙNÎp` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ ( THIS PROGRAM COMPUTES AN M-PERIOD "L> "MOVING AVERAGE FOR A SET OF VALUES"{@ "M SHOULD BE AN ODD INTEGER, E.G. 3,5,"B "7, ETC. THERE SHOULD BE MORE THAN M"D "OBSERVATIONS TO GET MEANINGFUL RESULTS."P 640Z "";d "THIS IS  OF YEAS OF"V "DEPRECIATION.",Z:: 2107d "";snCN$"INPUT INITIAL COST IN DOLLARS ?": 50000:C(F$)xCN$"INPUT DEPRECIATION RATE (AS %) ?": 50000:F(F$)DB F 100CN$"INPUT # OF YEARS OF DEPRECIATION?": 50000:N(F  *****************1 ** TIMETR **I *****************O^ 59468,12i# "";$ ""( " TIME SERIES-LINEAR TREND "- "") L I(M1)2 I XX L: 680:L$XX$:H1TT? XXA(L): 680:A$XX$:H2TTZ  8H1);L$;22H2);A$  L 10 (L10) 640: "";: 560  L   INPUT ERROR SUBROUTINE : "INPUT ERROR. TRY AGAIN" & I 1 300: I: 0C$) 13 60065 (C$) 20 (F$)1 60060) C$;S (C$)20 F$(F$,(F$)1): 60015`F$F$C$l 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) AN M-PERIOD MOVING AVERAGE"SiCN$"WHAT DOES M EQUAL ?": 50000:M(F$)n M (M) M0 M2 (M2) 140x 530: INPUT ERROR SUBROUTINE 90 "GIVE AN UPPER BOUND ON THE NUMBER OF " "OBSERVATIONS YOU I$)BV C (1DB)NG: "":{ "SALVAGE VALUE EQUALS $";((BV.005)100)100: 210 100CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000OÀPÏ SUBROUTINE FOR DA2 "THIS PROGRAM COMPUTES A LINEAR TREND"T4 "FOR A TIME SERIES. THE DETRENDED "6 "VALUES FROM THE SERIES ARE ALSO PRINTED."<:: 620F "";:P A(XX) ((XX .0005)1000)1000Z "GIVE AN UPPER BOUND ON THE NUMBER OF"%\ --------------------------$ : HEADING SUBROUTINEE D --------------------------P N ""; X 4);"NO.";17);"VAL.";27);"SMOOTHED VAL." l 3);"-----";17);"-----";27);"-------------" v :CN$"PRESS RETURN TO CONTINUE, STOP TO END 1 I "S(L) A B L , L# 6 "";- @ 520= J L 1 IT TT(L) A(L) S(L)r ^XX L: 640:L$XX$:H1TT hXXA(L): 640:A$XX$:H2TT rXXS(L): 640:S$XX$:H3TT |XXT(L): 640:T$XX$:H4TT  5H1);L$;14H2);A$;25H3);SNTEND TO USE. THIS""6 "WILL BE THE GREATEST NUMBER OF "U "OBSERVATIONS POSSIBLE."[CN$"NUMBER ?": 50000:N(F$) A(N),S(N) ""; "INPUT OBSERVATIONS 1 BY 1, PRESSING" "ENTER AFTER EACH. TA INPUTBUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"vZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 5 "OBSERVATIONS YOU INTEND TO USE. THIS"M^ "WILL BE THE GREATEST NUMBER OF "m` "OBSERVATIONS POSSIBLE ."sdnCN$"NUMBER = ?": 50000:N(F$)x A(N),S(N),T(N) ""; "INPUT OBSERVATIONS 1 BY 1, PRESSING" "ENTER AFTER EA ":F1: 60000 1  ****************************************V  ** ROUTINE TO FORMAT OUTPUT **l  *************** XX ((XX.005)100)100 XX$(XX):TEMP$(XX$,3)  (TEMP$,2,1)"." XX$XX$ "0": 740 (TEMP$,1) "."$;36H4);T$  L I 430D  L 10 (L10) :: 620: "";: 520L  LX : 620j : "";: 80p   ----------------------------------------  INPUT ERROR SUBROUTINE  --------------------------------------- :INPUT 99999 AND ENTER"! "WHEN DONE."'8I 0: S 0qCN$"OBSERVATION "(I1)" (99999 TO END) ": 50000A(I1)(F$) A(I1) 99999 240I I 1: 210T (M1)2 1 K 1 MS S A(K) KS(T0070 xË (C$)20 (F$)1 50065G }Ë (C$)20 F$(F$,(F$)1): 50015z Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUTCH. INPUT 99999 AND ENTER"& "WHEN DONE.,=I 0: S 0E:CN$"OBSERVATION "(I1)" (99999 TO END) ?": 50000A(I1)(F$) A(I1)99999 210I I 1 180 "";: P 1 12:: P "************** CO XX$ XX$ ".00"TT 0: II 1 (XX$)P (XX$,II,II) "." TTTT1: II:TT(XX$)V\OÀ|PÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING  "INPUT ERROR, TRY AGAIN."  I 1 700L  ---------------------------------------e  HEADING SUBROUTINE  ---------------------------------------  ""; &A A(A):B A(B) 0 "TREND EQUATION IS :" 2 "T = ";A;" + ";B;"Y":) S M " L 1 I MS ,S(TL) S(TL1)(A(TL(M1)2)A(TL (M1)2 1)) M[ 6 Le @ 560} J L 1 (M1) 2 TXX L: 680:L$ XX$:H1 TT ^XX A(L): 680:A$XX$:H2TT h 8H1);L$;22H2);A$ r L 10 (L10)  eF$"":C$"" j CN$;* o C$: C$"" 60015@ t F 1 F 0:a y (C$) 13 F$"" 60015~ ~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015 F$F$C$ 60015!MPUTING ***************"-S10:S20:S30:S40:S50= K 1 IS1 S1 K:S2S2 K2:S3S3 A(K):S4S4 A(K)2:S5S5 K A(K) KDI S2 S12:A(S3 S2 S1 S5)D:B (IS5 S1 S3)D REGRESSION COEFFICIENTS ABOVE L INPUTTED _á C$: C$"" 500152dË C$(13) F$"" F1 F0:SiË (C$)13 F$"" 50015]nÙ C$;vsË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) X(J)1: J:R1: "";: P 1 12:: PI  "***************COMPUTING***************"}  I 2 N 1: J 1 M:A(I,J)B(I,J): J: I  Z$"N" J 1 M:A(1,J)A(1,J): J ) I 2 N 1 . A(I,MI1)1 1085 1 A(I,MI1ED DATA TO DATE"&ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDA_á C$: C$"" 50015fdË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F ******************3 ** RRVARIN **L ******************[# 59468,12f( "";- ""2 " RATE OF RETURN - VARIABLE INFLOW "7 ""&F$"" 50015' dË C$(13) F$"" F1 F0:H iË (C$)13 F$"" 50015R nÙ C$;k sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$ OF STOCK ?": 50000:P(F$)DCN$"THE PRESENT ANNUAL CASH DIVIDEND ?": 50000:DO(F$)CN$"EXPECTED RATE OF DIVIDEND GROWTH ?": 50000:G(F$):"":G G 100R DO (1 G ) P G )1 X(MI1)1.3 J 1 N M:A(N2,J)A(N2,J)A(I,J): J;8R N 2C= ISBS 1:T 1~G I 2 NM: A(R,I)A(R,S) S IL A(R,I) A(R,T) 1110QT IV I` A(R,T)0 1140e A(R,T)0 R 1 1300j $(F$,(F$)1): 50015*Ë (C$) 45 (C$)47 (C$) 57 500657F$F$C$CÉ 50015vÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010|ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t "THIS PROGRAM WILL CALCULATE THE RATE"TH "OF RETURN OF AN INVESTMENT COSTING A$"J "NOW AND RETURNING A(I)$ IN YEAR I WITH"L "THE A(I)'S NOT NECESSARILY EQUAL AND NOT";N "NECESSARILY POSITIVE. INPUT IS THE "P "INITIAL INVESTMENT  F$C$ É 500157 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010= ÙC Îe ` SUBROUTINE FOR STRING INPUTu eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065R 100 R:R ((R .005)100)100D "EXPECTED LONG RUN RATE OF RETURN =";R;"%"J\: 250: 130CN$"RETURN TO CONTINUE, STOP TO END ":F1: 60000OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER A(R,S).0001 1280"o A(R,S) .0001 R 1: 1090,tS 1R~ I 2 N 1: A(I,T)0 1190yYA(I,NM1)A(I,T): S 1 1180 Y A(S,NM1)A(S,T) 1190S I I S 1 1290 I 1 N M A(S,I)1 1 F 1 F 0:y (C$) 13 F$"" 60015.~ (C$) 13 60065S (C$) 20 (F$)1 60060] C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015AND THE YEARLY DOLLAR";$R "RETURNS.".d::8n 460>xI "";SI 0` A(100)fCN$"INITIAL INVESTMENT ?": 50000:A(0) (F$)A(0) A(0)CN$"RETURN YEAR "(I1) " (99999 TO END) : ?":  (C$) 2  ******************2  ** STOCKVAL1 ***K  ******************V ( ""; - "" 2 " VALUE OF A SHARE OF STOCK " 7 "" F:REM F$="INPUTTED DATA TO DATE"7ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDR_á C$: C$"" 50015wdË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}230 IX(I)1:X(T)0:YA(S,T)9 I 1 N M 1:A(S,I)A(S,I)Y: IM I 1 N 2` I S 1270mYA(I,T) J 1 N M1:A(I,J)A(I,J)YA(S,J): J I 1090 "NO SOLUTION ": 1400  "UNBOUNDED SOLUTIO,(F$)1): 50015*Ë (C$) 45 (C$)47 (C$) 57 500657F$F$C$CÉ 50015vÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010|ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t50000A(I1)(F$), A (I1) 99999 240:I I 1D 200|:""::R0JUMP .1JN 0: JN = NUMBER OF PASSES SO FAR"P 0, K 0 I:P P A(K)(1R) K: K6 (P) ."WHEN AN INVESTOR BUYS A STOCK, HE HOPES"G H "FOR SOME FUTURE RETURN, EITHER THROUGH"t J "DIVIDENDS OR CAPITAL GAINS. HOWEVER," L "STOCKHOLDERS IN GENERAL, OVER THE LONG" N "HAUL, ONLY GET CASH DIVIDENDS OUT OF THE"; P "STOCK. MANY WHOË (C$)20 F$(F$,(F$)1): 50015;Ë (C$) 46 (C$)47 (C$) 57 50065HF$F$C$TÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"N ": 1400 J 1 M X(J)0 X(J)0: 1340C( I 2 N 1: A(I,J)1 IW2X(J)A(I,NM1)_< JFYA(1,NM1): Z$"Y" Y YNP PRINT OUT SOLUTIONU "";: "VALUE OF OBJECTIVE FUNCTION =";YXY I 1  60015,(F$)1): 50015;Ë (C$) 46 (C$)47 (C$) 57 50065HF$F$C$TÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"5 390@ P 0 360"JR R JUMP7TJUMP JUMP 10A^ 360RhR R JUMPr " PASS ";JN;" R = ";((100R.005)100)100:JN JN 1| 290 PRINTING SUBROUTINE ""; "RATE OF RETURN IS ";100R;" %" SUBSCRIBE TO THE"'R"PRECEDING BELIEVE THAT ANY STOCK "UT "EVALUATION MODEL SHOULD CONSIDER ONLY"V "DIVIDENDS. SUCH IS THE MODEL OF THIS"X "PROGRAM. WE SHALL ASSUME THAT WE KNOW"Z "THE PRICE OF A SHARE OF A CERTAIN STOCK,";\ "" 60015t F 1 F 0:"y (C$) 13 F$"" 60015?~ (C$) 13 60065d (C$) 20 (F$)1 60060n C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: MZ "AMOUNT OF ";D$(I);" I.E. X(";I;") =";X(I)"a*d IHx "";: P 1 24:: PCN$"PRESS RETURN FOR NEW OBJ. COEFF. ?":F1: 60000: 1045OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTT **************+ ** SALVAGE **@ **************O# 59468,12Z( "";- ""2 " SALVAGE VALUE "7 ""F "THIS PROG:  460  120E CN$"RETURN TO CONTINUE, STOP TO END ":F1: 60000K Q OÀq PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: CTHE PRESENT ANNUAL CASH DIVIDEND, AND AN";E^"EXPECTED GROWTH RATE FOR DIVIDENDS WHICH";t` "WE ASSUME WILL LAST INDEFINITELY. FROM"b "THIS DATA WE GET OUR EXPECTED RATE OF"d "RETURN."x: 250 "";CN$"THE PRICE OF 1 SHARE  ***************- ** VALADINF **C ***************R 59468,12] ""; "" " SAMPLE INFORMATION " "" "IN SIT 26 Z1$"V" CN$"VARIANCE UPPER BOUND ?": 50000U Z1$"V" V(F$):S(V) CN$"INITIAL SAMPLE SIZE ?": 50000:NI(F$) CN$"ADDITIONAL SAMPLE SIZE ?": 50000:NA(F$) H(1)(S(NI))2.94:H(2)(H 60015  "INPUT ERROR, PLEASE TRY AGAIN ":: 60015&,F$,(F$)1): 50015yË (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STR N$"NUMBER OF YEARS TO EXPIRATION ?": 50000:NY(F$)b;CN$"EXPECTED ANNUAL GROWTH RATE OF STOCK "<CN$CN$"PRICE IN % ?": 50000:AG(F$)@CN$"VOLATILITY OR ANNUAL STANDARD DEVIATION " ACN$CN$"OF STOCK PR. IN % $)1 60060$ (C$)20 F$(F$,(F$)1): 60015. C$;;F$F$C$G 60015x "INPUT ERROR, PLEASE TRY AGAIN ":: 60015~F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 UATIONS WHERE SAMPLING IS DONE,"J "IT IS GENERALLY ASSUMED THAT LARGER"y "SAMPLES PROVIDE MORE INFORMATION ABOUT"! "THE TRUE SITUATION THAN DO SMALLER"# "SAMPLES PROVIDE MORE INFORMATION ABOUT"% "WHICH THE LARGER SAMPLE SIZE BRIN S(NANI))2.946 :"":a : "INITIAL UNCERTAINTY WAS ";H(1)g "FINAL UNCERTAINTY WAS ";H(2) "THIS REPRESENT A CHANGE OF ";((H(1)H(2).005)100)100 "UNCERTAINTY UNITS"  ****************/ ** SIMPLEX **F ****************U 59468,12` ""; "" " LINEAR PROGRAMMING " ""  "LIN ?": 50000:SD(F$)@ ER(1AG100)NY:ASD SD (NY)100_ JC1.65 (PSEX)R(1ASD) T C PSEX V EX(PSEX1):HR1: 360 ^VEX(C1)(PS(EXC))(C(C1)):HR(PS(EXC))(1(C1)) h 415  LONG TERM WARRANT VALUATI   "CONSTRAINT ";I1:K  J 1 M:CN$"COEFFICIENT FOR VARIABLE ":CN$CN$(J) CN$CN$" "D$(J)" IS ? ": 50000:A(I,J)(F$): J CN$"ENTER 1 IF <= CONSTRAINT,-1 IF >=?": 50000:A(I,M1)(F$)  A(I,M1)1 A(I,M1)1 "INPUT GS"-( "COULD BE COMPUTED IF WE COULD SOMEHOW"[+ "MEASURE THE UNCERTAINTY IN THE INFOR-"- "MATION BOTH BEFORE AND AFTER TAKING THE"/ "SAMPLE. SUCH A MEASURE OF UNCERTAINTY"2 "EXIST AND IS SOMETIMES CALLED SHANNON"5 "INFORMATION  1 "AND IS A CHANGE OF ABOUT";(H(1)H(2))H(1)100;" %"c :CN$"PRESS RETURN FOR MORE ?":F1: 60000m 100 ' "INPUT ERROR, TRY AGAIN!": JJ1 600 : JJ: t'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000: OÀ PÏ SUBROUTI EAR PROGRAMMING IS A MATHEMATICAL"N "TOOL DESIGNED TO HELP MANAGEMENT MAKE"z "OPTIMUM USE OF COMPETING RESOURCES."# "IT IS A VERY POPULAR TECHNIQUE AND IN-"( "VOLVES LINEAR INEQUALITIES CALLED "- "CONSTRAINTS AND A LINEAR OBJECTI ON HR0 V((EX2PS2)EX)N5  X 1 40: "";: X; a  "THE VALUE OF THE WARRANT = ";V  HR 0 "THE HEDGE RATIO = ";HR   "THE THEORETICAL VALUE OF THE WARRANT"  "EQUALS ";N(PSEX) :::CN$"  ERROR,TRY AGAIN"0  A(I,M1)1 A(I,M1)1 1025g :CN$"ENTER AMOUNT FOR CONSTRAINT ?": 50000z A(I,M2)(F$) A(I,NM1)A(I,M2):A(I,M2)0  I2 A(I,MI1)A(I,M1):A(I,M1)0   I  I 1 N 2: J 1 . THIS PROGRAM GIVES BOUNDS"C7 "ON THE UNCERTAINTY WHEN THE SAMPLING"p9 "IS COMING FROM A NORMAL DISTRIBUTION"< "WITH BOUNDED VARIANCE.":CCN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";F "NECESSARY INPUT INCLUDES AN UPPER BOUN NE FOR DATA INPUTA UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"u ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$) VE",2 "FUNCTION WHICH WE TRY TO MAXIMIZE OR"V7 "MINIMIZE. THE INTERESTED USER MAY"< "CONSULT ANY INTRODUCTORY TEXT IN FINITE"A "MATHEMATICS FOR ADDITIONAL INFORMATION.":F "THE NUMBERS OF VARIABLES AND CONSTRAINTS";K "ARE ONLY PRESS RETURN FOR MORE COMPUTATION ?":F1'  600001  1007 OÀW PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C  N M 2:B(I,J)A(I,J): J: I "";O CN$"PRESS Y IF A MINIMIZATION PROBLEM " CN$CN$"OTHERWISE N ?": 60000:Z$(F$,1)  Z$"Y" Z$"N" "INPUT ERROR,TRY AGAIN": 1043  "";: I 1 N2: J D"&I "ON THE VARIANCE OF THE DISTRIBUTION"PK "THE NUMBER OF OBSERVATIONS IN THE"|M "INITIAL SAMPLE, AND THE ADDITIIONAL"P "NUMBER OF OBSERVATION IN THE FINAL": "SAMPLE."Z:CN$"PRESS RETURN TO CONTINUE ? ":F1: 60000d "";' 13 50070xË (C$)20 (F$)1 50065F}Ë (C$)20 F$(F$,(F$)1): 50015yË (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STR  LIMITED BY AVAILABLE MEMORY,"EP "BUT MULTI-VARIABLE PROBLEMS MAY TAKE"aU "A LONG TIME TO RUN."Z:CN$"PRESS RETURN TO BEGIN ?":F1: 50000d "";CN$"NUMBER OF VARIABLES ?": 50000:M(F$)CN$"NUMBER OF CONSTRAINT $(13) F$"" F1 F0:. iË (C$)13 F$"" 500158 nÙ C$;Q sË (C$)13 50070t xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015  1 N M 2:A(I,J)B(I,J): JE  I: " COEFFICIENTS FOR OBJECTIVE FUNCTION":n  "PRESS 99999 TO END": J 1 M CN$"COEFFICIENT FOR VARIABLE "(J)" "D$(J)" IS ?": 50000 A(1,J)(F$): A(1,J)99999 :X(J)1: J:R1: ""   nCN$"DO YOU HAVE A BOUND FOR VARIANCE "i sCN$CN$"(V) OR STANDARD DEVIATION (S) ?": 60000:Z1$F$: x Z1$ "S" Z1$ "V" 10000:: 5 Z1$"S" CN$"STANDARD DEVIATION UPPER BOUND ?": 50000 Z1$"S" S(F$):VS ING INPUTeF$"":C$""j CN$;)o C$: C$"" 60015?t F 1 F 0:`y (C$) 13 F$"" 60015}~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$;F$F$C$ S ?": 50000:N(F$)< A(N2,NM2),X(MN2),D$(M1):M JJ 1 MCN$"NAME OF VARIABLE ":CN$CN$(JJ):CN$CN$" IS ?" 60000:D$(JJ)F$:: JJ SETTING UP MATRIX TABLEAU B(N2,NM2) I 2 N 1 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010# Ù) ÎK ` SUBROUTINE FOR STRING INPUT[ eF$"":C$""f j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 (F  ***************- ** BAYES **C ***************R 59468,12] ""; "" " BAYES PROBABILITY " "" "THIS P  TO 1." A CN$"ENTER 1 TO STANDARDIZE, 0 TO END ?": 50000:Z9(F$)i  Z9 1 Z9 0 10000: 530x & Z90 0 I 1 N:A(I)A(I)P: I:P1 : ""; D I 1 N I NCN$"ENTER COND. PROB. OF EVENT B GIVEN STATE"(  RATE (PER UNIT TIME) ?": 50000:S(F$)\ CN$"MEAN ARRIVAL RATE (PER UNIT TIME) ?": 50000:A(F$) CN$"WAITING LINE COST " CN$CN$"($ PER ITEM ON LINE PER UNIT TIME) ?": 50000 CW(F$) "CN$"COST OF SERVER ($ 0" X$: (X$) 10 X$"0" X$.. (X$) 6 X$" " X$: 12030K/X$(X$,4)"." (X$,2)Q/WOÀwPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING I CN$=DESCRIPTION OF DATA BEING INPUTTED)_á C$: C$"" 50015NdË C$(13) F$"" F1 F0:oiË (C$)13 F$"" 50015ynÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë ROGRAM USES BAYES THEOREM TO "J "REVISE ESTIMATES OF THE PROBABILITIES"y "OF OCCURRENCE OF THE VARIOUS STATES OF" "NATURE. INPUTS TO THIS PROGRAM ARE THE" "PROBABILITIES OF A FINITE AND USER" "SELECTABLE NUMBER OF STATES OF NA SCN$CN$"OF NATURE "(I)" ? ": 50000:BA(I)(F$)0 X I9 bPB0v l I 1 N:PBPBA(I)BA(I): I: PB = PROBABILITY OF B q PB 1 "PROBABILITY OF B IS GREATER THAN 1, " r PB 1 "PROGRAM WILL ABORT": v I 1 N:AB(I) B PER UNIT TIME) ?": 50000:CS(F$)5 ' "";: I 1 12:: If ( "***************** COMPUTING ************"y , F(30),LQ(30) 6F(0)1:F1: I 1 30:F(I)FF(I1):FF1: I @K 1 J A K S 400 TK K 1: 330  FIRST K NPUTTED_á C$: C$"" 50015-dË C$(13) F$"" F1 F0:NiË (C$)13 F$"" 50015XnÙ C$;qsË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) (C$) 45 (C$)47 (C$) 57 50065F$F$C$+É 50015^Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010dÙjÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:y (C$) TURE."0 "THESE PROBABILITIES MUST SUM UP TO 1."^ "IN ADDITIION, THERE MUST BE INPUT FOR"! "EACH STATE OF NATURE. THE PROBABILITY"# "OF A CERTAIN EVENT, SAY B, OCCURRING"% "GIVEN THAT STATE OF NATURE IS THE TRUE"( "STATE OF N A(I)A(I)PB: I5 F$(1) "S OF N ORIG PROB B POSTERIOR PROB"j F$(2) " PROB.GIVEN S OF NS OF N GIVEN B"  Z2$"Y" 1,4:1 : Z2$"Y" #1,(13)  "";: F$(1): F$(2) * I 1 N 4X1I:X2A(I):X3BA(I):X4AB(I): VALID:ALL OTHER NUMBERS OF SERVERS TOO SMALLT  J K K 5:LQ(J)AS(AS)J(F(J1)(JSA)2) P00: L 0 J 1:P0P0(AS)LF(L): L P0P01F(J)(AS)J(KS(KSA)):P01P0 LQ(J)LQ(J)P0  J F$(1)"SERV. AV. QUE SERV  57 50065F$F$C$ É 50015=Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010CÙIÎk` SUBROUTINE FOR STRING INPUT{eF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C 13 F$"" 60015~ (C$) 13 60065; (C$) 20 (F$)1 60060e (C$)20 F$(F$,(F$)1): 60015o C$;|F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50015Ë ATURE. THEN THE PROGRAM WILL"E+ "COMPUTE THE CONDITIONAL PROBABILITIES"s- "OF EACH OF THE STATES OF NATURE BEING"0 "TRUE, GIVEN THAT EVENT B OCCURS. THESE"2 "ARE CALLED POSTERIOR PROBABILITIES AND"5 "MAY BE USED IN DECISION-MAKING.  12000 H I R:E zCN$"PRESS RETURN FOR ANOTHER COMPUTATION ? ":F1: 60000Q : 110 ' "INPUT ERROR!!!, TRY AGAIN ! ": Q 1 600: Q: t'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000: . .QX1: 14000:X1$Q$:X1$X1$"" .$ QUEUE$ TOT $"3 F$(2)" LENGTH /U.T. /U.T. /U.T."N  "";: F$(1): F$(2)  "":  J K K 5 X1J:X2LQ(J):X3JCS:X4LQ(J)CW:X5JCSLQ(J)CW: 11000  J:::CN$"$) 13 60065 (C$) 20 (F$)1 60060D (C$)20 F$(F$,(F$)1): 60015N C$;[F$F$C$g 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$)  ***************- ** WARVAL **C ***************R 59468,12] ""; "" " VALUE OF A WARRANT " "" "THIS P "+Z:CN$"PRESS RETURN TO BEGIN ?":F1: 60000Hd AB(100),BA(100),A(100)Sn "";[xN0 "ENTER PROBABILITIES OF POSSIBLE STATES" "OF NATURE 1 BY 1. THESE PROBABILITIES" "SHOULD ADD TO 1.": CN$"ENTER PROB. ST. OF .QX2: 14000:X2$Q$:X2$""X2$""7.QX3: 14000:X3$Q$:X3$X3$""O/QX4: 14000:X4$Q$u&/ 2)(X1);5)X2$;19)X3$;30)X4${0/66Q$(((Q.0005)1000))6 Q0 Q$(Q$,(Q$)1)6 (Q$) 1000 Q$"0" Q$: (Q$) 100 PRESS RETURN FOR MORE COMPUTATION ?"" F1: 60000( 2 200Ot'"";: I 1 21:: I~'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000:* FORMATTING SUBROUTINE*+X1$((X1))+XX2: 12000:X2$X$ +XX3: 12000:X3$X$ ASED "IsCN$CN$"WITH ONE WARRANT ?": 50000:N(F$)|xCN$"WHAT IS THE EXERCISE PRICE PER SHARE "}CN$CN$"OF STOCK ?": 50000:EX(F$)CN$"WHAT IS THE MARKET PRICE OF ONE SHARE "1CN$C ROGRAM WILL ALLOW THE USER TO"G# "COMPUTE THE THEORETICAL VALUE OF A"t( "WARRANT AND THE VALUES OF BOTH SHORT"- "TERM AND LONG TERM WARRANTS."F:CN$"PRESS RETURN TO BEGIN ?":F1: 60000d ""; nCN$"HOW MANY SHARES MAY BE PURCH NATURE ":CN$CN$(N1)L CN$CN$" (-1 TO END) ?": 50000:A(N1)(F$)b A(N1)1 500u NN1:PPA(N) 138   P 1 Z91: 550  "";: "PROBABILITIES SUM TO ";P; "THIS SHOULD BE STANDARDIZED";  "TO SUM  Q$"0" Q$+6 (Q$)10 Q$"0" Q$: (Q$)1 Q$"0"Q$P6 (Q$) 4 Q$" " Q$: 14040l6Q$(Q$,1)"." (Q$,3)r6xOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: *+XX4: 12000:X4$X$4+XX5: 12000:X5$X$%6+ 2)X1$;67+ 5);" ";A8+ X2$;S9+ 14);" ";^:+ X3$;p;+ 23);" ";{<+ X4$;@+ 32);" ";X5$H+.X((X100).5).X$(X): X 0 X$(X$,(X$)1). (X$)100 X$" N$"OF STOCK ?": 50000:PS(F$)kCN$"IS WARRANT LIFE AT LEAST 5 YEARS (Y/N)?": 60000{Z9$(F$,1) Z9$"N" 300 Z9$"Y" 400 "INPUT ERROR!!!,TRY AGAIN!":: 210, SHORT TERM WARRANT VALUATION/6C  *****************1 ** PROFIND **I *****************X 59468,12c ""; SP$" " A(110) "" " PROFITABILITY INDEX OF A PROJE PV0 @ J 1 I! JPVPV A(J)(1K)J) T J8 ^PIPVA(0)C w "";v  "": : "INITIAL COST OF PROJECT = ";A(0) : "PRESENT VALUE OF FUTURE"  "CASH FLOWS = ";PV : "  ***************- ** QUEUECB **C ***************R 59468,12] ""; "" " WAITING LINE ANALYSIS " "" "WAITIN E COST OF THE ":( "ITEM WILL EQUAL THE % RISE IN THE COST"M- "OF LIVING."S27 "THE PRESENT PROGRAM TAKES THE PRESENT"< "PRICE OF THE ITEM, THE EXPECTED %"A "INCREASE IN ITS PRICE, AND THE # OF" F "YEARS IN QUESTION AND PRINT  8 (X$) 7 X$ " " X$: 1080: BX$(X$,(X$)2) "." (X$,2)U G Z2$"Y" 1,16);X$d L 25)X$: t'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000: OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INP CT "5 ""e "THE PROFITABILITY INDEX OF A PROJECT IS"# "SIMPLY THE PRESENT VALUE OF THE FUTURE"% "(EXPECTED) NET CASH FLOWS DIVIDED BY THE";( "INITIAL CASH OUTLAY. AS LONG AS THE"!* "PR PROFITABILITY INDEX = ";PVA(0)P  :: "":X : CN$"PRESS RETURN FOR MORE COMPUTATION ?":F1: 60000  200 OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$=" G LINES OCCUR IN ALMOST ANY"G "SYSTEM FROM THE SUPERMARKET CHECKOUT"t "COUNTER TO THE RUNWAY AT AN AIRPORT." "IN ANALYZING A WAITING LINE SITUATION"# "ON THE ONE H HAND LONG WAITING LINES "( "CAUSE LOSS OF BUSINESS EVEN IF ONLY S OUT A TABLE";0K "OF THE EXPECTED PRICE BY YEAR."`Z: "PRESS RETURN TO BEGIN ?":F1: 60000kd "";xCN$"ENTER PRESENT COST OF THE ITEM ?": 50000:C(F$)CN$ "HOW MANY YEARS INTO THE FUTURE ARE DESIRED ?": 50000N(F UTTED DATA TO DATE"5 ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDP _á C$: C$"" 50015u dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065}Ë (C$)20 OFITABILITY INDEX IS GREATER THAN 1,"I, "THE INVESTMENT IS ACCEPTABLE.":y2 "IN THIS PROGRAM THE USER INPUT THE CASH"4 "FLOWS OVER THE LIFE OF A PROJECT (UP TO"6 "100). EXCEPT FOR THE INITIAL COST, A"8 "NEGATIVE CASH FLOW MEANS CAS INPUTTED DATA TO DATE": ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDU _á C$: C$"" 50015z dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$) DUE",- "TO CUSTOMER DISSATISFACTION WHILE "[2 "INCREASING SERVICE INCREASES COSTS. IN"7 "THIS PROGRAM WE EXAMINE THE CHANGE IN"< "COSTS DUE TO INCREASING THE SERVICE "A "RATE BY ADDING SERVERS TO THE SYSTEM."C::(DCN$"P $)@CN$"WHAT IS THE ESTIMATED YEARLY COST % INCREASE ?": 50000TP(F$):PP100CN$"IS LINE PRINTER OUTPUT DESIRED (Y/N)?": 60000Z2$(F$,1) Z2$ "Y" Z2$ "N" "INPUT ERROR!!!": 135 F$(1)"YEAR COST  F$(F$,(F$)1): 500159Ë (C$) 46 (C$)47 (C$) 57 50065FF$F$C$RÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015 H OUTFLOW."4< "THE USER ALSO ENTERS THE INTEREST RATE"c> "UNDER WHICH THE PROJECT IS CAPITALIZED"@ "(I.E. RETURN DESIRED). THE PROGRAM "B "OUTPUTS THE PROFITABILITY INDEX."_:CN$"PRESS RETURN TO BEGIN ?":F1: 60000 "";= 20 F$(F$,(F$)1): 50015> Ë (C$) 45 (C$)47 (C$) 57 50065K F$F$C$W É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 600 RESS RETURN TO CONTINUE ?":F1: 60000: "";PF "THE APPROPRIATE PARAMETERS ARE:"VIP " -MEAN SERVICE RATE CAPABILITY BY 1 SERVERQU " -COST PER UNIT TIME PER SERVER"V Z " -OPPORTUNITY COST PER UNIT TIME PER  % RISE ON ORIG. COST" PRINT$ "";: Z2$"Y" 1,4r "";: "PRICE ESTIMATION ON @ ";P100;" % PRICE " "INFLATION":: F$(1): Z2$"Y" 210 1,"PRICE ESTIMATION ON @ ";P100;" % PRICE INFLATION" 1," ":1,F$(1) t F 1 F 0: y (C$) 13 F$"" 60015=~ (C$) 13 60065b (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$;F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 CN$"ENTER RETURN DESIRED FOR THIS  PROJECT (%) ?": 50000QK(F$):KK100CN$"ENTER INITIAL CASH OUTLAY FOR THE PROJECT (%) ?": 50000A(0)(F$)I 0 "";CN$"INPUT CASH FLOW FOR YEAR " CN$CN$(I1):C 15t F 1 F 0:%y (C$) 13 F$"" 60015B~ (C$) 13 60065g (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$;F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015  ITEM ON QUEUE":9d "THE OUTPUT OF THE SYSTEM IS A TABLE"gi "GIVING TOTAL COST OF THE SYSTEM USING"n "VARIOUS NUMBERS OF SERVERS."s:::CN$"PRESS RETURN TO CONTINUE ?":F1: 60000 ""; "THE MEAN SERVICE RATE IS THE SP  I 0 N) X1I:X2C(1P)I:X3100((1P)I1)4 1000` I 0 I15(I15) ::: 10100 I 0 I15(I15) ""; I0 I15(I15) : F$(1): I : 1: X$((X1.5))  (X$) 3 X$" "X$: F$,(F$)1): 500159Ë (C$) 46 (C$)47 (C$) 57 50065FF$F$C$RÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015 N$CN$(SP$,15((I1)))H CN$CN$" (-9999 ENDS) ?": 50000Y A(I1)(F$)z A(I1) 9999 I I 1 A(I1) 9999 300 ((I1)6)(I1)6 "";  240 , ALL INPUTS INTERED. NOW COMPUTE 1 6 F$,(F$)1): 50015> Ë (C$) 45 (C$)47 (C$) 57 50065K F$F$C$W É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 600 EED$ "AT WHICH 1 SERVER CAN HANDLE ITEMS"R "NEEDING SERVICE IF HE IS ALWAYS BUSY." : "THE MEAN ARRIVAL RATE IS THE AVERAGE" "RATE (PER UNIT TIME) AT WHICH ITEMS" "ARRIVE FOR SERVICE IN THE SYSTEM" : CN$"MEAN SERVICE 1010  X$;  Z2$"Y" 1,X$;I X$(((X2.005)100)): X2 0 X$"00"X$k  (X$)8 X$" " X$: 1040 X$"$"(X$,(X$)2)"." (X$,2) $ 8);X$; ) Z2$ "Y" 1,3);X$; .X$(((X3.005)100)): X3 0 X$"00" X$ UST SELL"2< "TO MAKE ANY GIVEN PROFIT. THIS PROGRAM"_A "WILL DO BOTH TYPES OF COMPUTATIONS ."Z::CN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";nCN$"TOTAL FIXED COST IN DOLLARS ?": 50000:FC(F$)xCN$"UNIT SELLING PRICE I$) 13 60065& (C$) 20 (F$)1 60060P (C$)20 F$(F$,(F$)1): 60015Z C$;g F$F$C$s 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015 Ë (C$) 46 (C$)47 (C$)  *************) ** FQEOWSH **= *************L 59468,12W ""; "" " INVENTORY THEORY-FIXED QUANTITY " " EOQ WITH SHORTAGES " " CT(CT)) , I 1 40: "";: I! 1X 6 "OPTIMAL ORDER QUANTITY IS ";((Q.005)100)100f ; "UNITS"l = @ "THE OPTIMAL TIME INTERVAL BETWEEN" E "ORDERS = ";TB;" YEARS" F J "THE EXPECTED MAXIMUM INVENTORY LEVEL" T "FOR  *************) ** LOANPAY *= *************L 59468,12W ""; "" " LOAN DEBT PAYMENT " "" "THIS PROGRAM N DOLLARS ?": 50000:SP(F$)UCN$"VARIABLE COST PER UNIT IN DOLLARS ?": 50000:VC(F$)gBEFC(SPVC) "BREAK EVEN POINT = ";BE;" UNITS." "TO LOOK FOR GIVEN PROFIT INPUT 1, TO DO" "ANOTHER ANALYSIS INPUT 2":! CN$"Y NT = ";X$2 : ""8 > OÀ^ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 d ":E "THIS PROGRAM INVOLVES AN INVENTORY"r "PROBLEM FOR WHICH IT IS ASSUMED THAT" "THE FOLLOWING CONDITIONS HOLD:": " -THERE IS A CONSTANT ORDERING COST": "PER ORDER" " -INVENTORY HOLDING COST IS CON EACH ORDER PERIOD = ";M:"UNITS"H ^:: ""z |:CN$"PRESS RETURN FOR MORE ?":F1: 60000  100 OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" Z  COMPUTES THE AMOUNT"@ "REQUIRED AS A MONTHLY PAYMENT TO PAY"r "OFF A LOAN IN A GIVEN NUMBER OF PAYMENTS"; "IF THE NOMINAL INTEREST RATE IS KNOWN."::CN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";nCN$"AMOUNT OF LOAN OUR CHOICE ?": 50000:Z8(F$): Z82 1002 Z81 225] "INPUT ERROR!!!, PLEASE TRY AGAIN "y I 1 400: I: 160 CN$"WHAT PROFIT DO YOU DESIRE ?": 50000:P(F$) BE(FCP)(SPVC)  "SALES NEEDED FOR PROF  C$(13) F$"" F1 F0:5 iË (C$)13 F$"" 50015? nÙ C$;X sË (C$)13 50070{ xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 STANT": "PER UNIT HELD"P! " -BACKORDERS ARE PERMITTED (STOCKOUTS ": "ALLOWED)"~# " -DEMAND FOR THE ITEM IS CONSTANT AND"$ "UNIFORM THROUGHOUT TIME"% " -THERE ARE NO QUANTITY PRICE BREAKS"( " -PRODUCTION RUNS (OR REORDERS) MUST"= Ù CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED; _á C$: C$"" 50015` dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50  ?": 50000:P(F$)TxCN$"NUMBER OF PAYMENTS NEEDED ?": 50000:N(F$)CN$"NOMINAL INTEREST RATE (%) ?": 50000:I(F$)II1200: MONTHLY IINTERST RATE1 I 0 DPPN: 160DPPI(1I)N((1I)N1)XDP: IT ";P  "EQUALS ";BE;" UNITS."I :CN$"INPUT 1 FOR ANOTHER ANALYSIS ": 50000] " (F$)1 100c OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING I $ Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010* Ù0 ÎR ` SUBROUTINE FOR STRING INPUTb eF$"":C$""m j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 ) "BE PLANNED IN ADVANCE ":CN$"PRESS RETURN TO CONTINUE ":F1K*: 60000+ "";: "WE SHALL INPUT ANNUAL DEMAND, ORDERING"- "COST, HOLDING COST PER YEAR, AND ANNUAL"/ "COST PER UNIT SHORT.":2 "OUTPUT INCLUDES OPTIMAL ORDER QU 015$ Ë (C$) 45 (C$)47 (C$) 57 500651 F$F$C$= É 50015p Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010v Ù| Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: 1000B:CN$"0 TO END, 1 FOR NEW LOAN, 2 FOR NEW INTEREST RATE ?"W 50000:Z9(F$)p Z91 240,100,250: "INPUT ERROR!!!, TRY AGAIN ": 200 "";: "AMOUNT OF LOAN = ";P: "NUMBER OF PAYMENTS NEEDED = ",N: NPUTTED _á C$: C$"" 500159 dË C$(13) F$"" F1 F0:Z iË (C$)13 F$"" 50015d nÙ C$;} sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 46 (C$)47 (C$) (F$)1 60060+ (C$)20 F$(F$,(F$)1): 600155 C$;B F$F$C$N 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 ANTITY,",5 "REORDER POINT, AND EXPECTED MAXIMUM"L7 "INVENTORY QUANTITY."::|ZCN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";nCN$"ANNUAL DEMAND (IN UNITS) ?": 50000:D(F$)xCN$"REORDER COST (PER ORDER) ?": 5000y (C$) 13 F$"" 60015(~ (C$) 13 60065M (C$) 20 (F$)1 60060w (C$)20 F$(F$,(F$)1): 60015 C$;F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50 130X$(((X.005)100))J (X$)100 X$"0" X$: (X$)10 X$"0" X$d (X$)1 X$X$"0" (X$) 7 X$" " X$: 1020X$"$" (X$,5) "." (X$,2) :"": "MONTHLY PAYME  57 50065 F$F$C$ É 50015I Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010O ÙU Îw ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C  **********************; ** FUPRINF **X **********************c ""; "" " FUTURE PRICES WITH INFLATION " """ " 0:S(F$); CN$"HOLDING COST (PER UNIT/YEAR) ?": 50000:C(F$)w CN$"SHORTAGE COST (PER UNIT/YEAR) ?": 50000:T(F$) Q(2DSC(CT)T): OPTIMAL ORDER QUANTITY TB (2S(CT)(DCT)): ITME INTERVAL BETWEEN ORDERS M(2DS IN THESE DAYS OF INFLATION WE WOULD"P "LIKE TO KNOW HOW THE PRICE OF AN ITEM"~ "IN THE FUTURE IS RELATED TO THE PRICE" "OF THAT ITEM TODAY. THERE ARE COMPLEX" "RELATIONSHIPS, BUT A VERY GOOD ESTIMATE" # "IS THAT THE % RISE IN TH  *****************1 ** EOQ **I *****************X 59468,12c ""; "" " EOQ INVENTORY MODEL " ""( :  :CN$"PRESS RETURN FOR MORE COMPUTATION, STOP TO END ?":F1E  60000: 200K OÀk PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$""  "DIFFERENT EFFICIENCIES FOR THE DIFFERENT";V" "JOBS. IN FACT FOR EACH JOB-ASSIGNEE"$ "COMBINATION WE CAN ASSIGN SOME COST."& "EACH ASSIGNEE IS ASSIGNED TO 1 AND ONLY"( "ONE JOB. THE PROGRAM WILL FIND THE"* "ASSIGNMENT WHICH MI (I)J  1000 SZ(I)ZU: ZUZL 6003 II1: IN 380S  I 1 N:SA(I)MA(I): Im IN:ZLZU: NEW BOUND  SZ(I1) ZL 660 &MA(I)0:II1: I 1 660 D 540 XJMA(I) bJJ1 l J N 680 vMA(I) 0:I I  SUBROUTINE FOR DATA INPUTF$"":C$"" CN$;$ C$9 C$"" 2011Y (C$) 13 F$"" 2011c C$;} (C$) 13 2070 (C$) 20 (F$) 1 2060 (C$) 20 F$(F$,(F$)1): 2011 (C$) 46 "IN INVENTORY THEORY, A REORDER COST IS"Z "A FIXED COST ASSESSED EACH TIME AN ORDER"; "FOR AN ITEM IS PLACED NO MATTER WHAT THE"; "ORDER QUANTITY IS.":# "A HOLDING COST IS A COST DUE TO HOLDING"( "INVENTORY, E.G. INTEREST. A 50015! dË C$(13) F$"" F1 F0:B iË (C$)13 F$"" 50015L nÙ C$;e sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$ NIMIZES TOTAL COST.">, "THIS PROGRAM IS SET UP FOR A MAXIMUM OF"}. "9 DIFFERENT JOBS AND 9 POSSIBLE ASSIGNMENTS.":Z:CN$"PRESS RETURN TO CONTINUE ?":F1: 2100dMAX 9x "";CN$"HOW MANY JOBS MUST BE ASSIGNED (<=9) ?": 1  I 0 740  600 IMIM1+  IM0 IM1L  L 1 IM: FMA(L) 610T  L^  420h ""; CN$"IS LINEPRINTER OUTPUT DESIRED (Y/N) ?": 2100:Z2$(F$,1)  Z2$"Y" Z2$"N" 10000: 750 "";: " (C$) 47 (C$) 57 2060 F$F$C$ 2011N : "INPUT ERROR, PLEASE TRY AGAIN ":: 2005c C$ "" 2080io 4 SUBROUTINE FOR STRING INPUT9F$"":C$""> CN$;E C$: C$"" 2117H F 1 F 0 :  STOCKOUT "6- "COST IS DUE TO RUNNING OUT OF AN ITEM."c2 "IN THIS PROGRAM WE ASSUME THAT THERE"7 "WILL BE NO STOCKOUTS. IN ADDITION, THE"< "ITEMS ARE USED UNIFORMLY THROUGHOUT THE";A "YEAR. WE CAN TAKE DELIVERY OF A REORDER"%F C$ É 500151 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 500107 Ù= Î_ ` SUBROUTINE FOR STRING INPUTo eF$"":C$""z j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065  2000:N(F$)2 N1 NMAX N(N) 10000: 130= "";M I 1 Nb "FOR JOB ";Ihx J 1 NCN$"": "COST FOR ASSIGNEE ";J;" ?";: 2000:C(I,J)(F$) J I: 10100"";1 CN$"IS LINEP  OPTIMAL ASSIGNMENT ":-  I 1 NS "JOB ";SA(I);"GETS ASSIGNEE ";IeBC(SA(I),I) " COST = ";B  I"ZLZL%: " TOTAL COST = ";ZL&: : " J C$;M (C$) 13 F$"" F 1 2117'R (C$) 13 2170^\ (C$) 20 (F$) 1 "INPUT ERROR ": 2110a (C$) 20 F$(F$,(F$)1)fF$F$C$p 2117zF0' "INPUT ERROR! TRY AGAIN !": JJ 1 100 "WHENEVER WE WANT. DEMAND IS IN NUMBER OF";UK "ITEMS USED PER YEAR. REORDER COST IS IN"P "DOLLARS PER REORDER. HOLDING COST IS IN"U "DOLLARS PER ITEM PER YEAR."Z_CN$"PRESS RETURN TO BEGIN ?":F1: 60000 "";CN$"DEMAN (C$) 20 (F$)1 600608 (C$)20 F$(F$,(F$)1): 60015B C$;O F$F$C$[ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$ RINTER OUTPUT OF INITIAL COST ASSIGNMENT DESIRED (Y/N) ?"< 2100L Z2$(F$,1)x Z2$"Y" Z2$"N" 10000:: 240  Z2$"N" 300 :CN$"PRESS RETURN WHEN PRINTER READY ?":F1: 2100  1,4  I 1 N 1,"FOR JOB ";I ""* Z2$"N" 900,, 1,4W/1," OPTIMAL ASSIGNMENT":1," "g4 I 1 N>1,"JOB ";SA(I);" GETS ASSIGNEE ";I?1," COST = ";B@ IC1," TOTAL COST = ";ZLC: JJ:t'CN$"PRESS RETURN TO CONTINUE ?":F1: 2100:PUT ERROR, PLEASE TRY AGAIN ":: 2005c C$ "" 2080io 4 SUBROUTINE FOR STRING INPUT9F$"":C$""> CN$;E C$: C$"" 2117H F 1 F 0 : D ?": 50000:D(F$)BCN$"REORDER COST ?": 50000:CR(F$)oCN$"HOLDING COST ?": 50000:CH(F$)Q (2CR D CH)Q1 (Q .5) "",@ "TO MINIMIZE TOTAL COSTS OF I  **************+ ** BREAKEVN **@ **************K "";| "" " BREAK-EVEN ANALYSIS " "" "FOR THIS PROGRAM,   J 1 N AC(I,J)9 1," COST FOR ASSIGNEE ";J;" = ";AE  J: Ic , "";: I 1 10:: I . " COMPUTING " 1 I 1 N: J 1 N:C(I,J)C(I,J): J: I @ZL0: I 1 N:AU(I)0: I F I H1:1(:CN$"PRESS RETURN TO START AGAIN ?":F1: 21002 120V CI 1 N:AU(CI)MA(CI): CIg CI 1 N AU(CI) 0 1070 CI$CI N 1:CMCI1: 1210.CM CI 18 MN CI NBCW1000000000L JB 1 ATION WE CAN COMPUTE THE NUMBER"L( "OF UNITS OF THE ITEM WHICH THE COMPANY"z+ "MUST SELL TO JUST BREAK EVEN, I.E. SO"- "THAT THE NET SALE REVENUE JUST COVERS"2 "FIXED COSTS. WE CAN ALSO COMPUTE THE"7 "NUMBER OF ITEMS THE COMPANY M NVENTORY", J " REORDER ";Q1;" ITEMS AT A TIME."2 T[ ^ "THIS MEANS ORDER APPROXIMATELY "; c (DQ1.5) : "TIMES PER YEAR, OR ABOUT EVERY "; h (365(DQ1 .5).5);" DAYS." m r ""3 WE ASSUME THAT A< "COMPANY HAS CERTAIN FIXED COSTS. THIS"i "COMPANY IS SELLING AN ITEM SUCH THAT" "VARIABLE COST/UNIT SOLD OF THAT ITEM"! "IS KNOWN. WE ALSO KNOW THE PRICE AT "# "WHICH THE ITEM IS SOLD. GIVEN THIS"% "INFORM  1 N:MA(I)0:W1000000000 L J 1 N2 N AU(J)1 342H P C(I,J)W 342Z RWC(I,J):J1Jb V Jo XAU(J1)1{ ZZLZLW \SA(I)J1 ^ I r START SEARCH wI1 |J1  M 1 I  J MA(M) JJ1: 390  M MA  NV CI 1 1150` L 1 CM%j JBAU(L) 1170-t LH~ C(MN,JB) CW 1170XCWC(MN,JB)a JBoAU(MN)CWx MN CI1 1240 CJ1 CM:AU(CJ)C(CJ,MA(CJ)): CJZU0: CJ 1 N:ZUZUAU(CJ): CJ(C$)13 F$"" 50015t F1 F$ "" (C$) 13 F0:::G>y (C$) 13 F$"" 60015d>~ (C$) 13 60065> (C$) 20 (F$)1 60060 S PROGRAM WILL GIVE THE VALUE OF A"L "CALL OPTION VIA THE BLACK SCHOLES "x "VALUATION FORMULA. NECESSARY INPUT" "CONSISTS OF PRESENT STOCK PRICE, " "EXERCISE PRICE OF THE OPTION, INTEREST" "RATE, # OF DAYS TO EXPIRATION OF TH ";N1 "#  SUBROUTINE FOR DATA INPUT3 F$"":C$"">  CN$;G  C$Z  C$"" 2011x  (C$)13 F$"" 2011  C$;  (C$) 13 2070  (C$) 20 (F$)1 "INPUT ERROR, TRY AGAIN": 2005  (C$) 20 F$ A SEQUENCE OF EQUAL "@ "PAYMENTS MADE AT EQUAL INTERVALS OF"p "TIME. A DEFERRED ANNUITY IS AN ANNUITY" "FOR WHICH THE FIRST PAYMENT IS NOT MADE" "UNTIL SOME FIXED TIME IN THE FUTURE. " "THIS PROGRAM WILL COMPUTE THE PRESENT"MT(F$)2 CN$"BALLOON PAYMENT ?": 7000:BAL(F$)8  G  PRINTOUTR  "";j PV(100PV.5)100  "PRESENT VALUE = ";PV   "NUMBER OF PAYMENTS = ";N   ZI$"A" " CONSISTING OF ";ZN;" PMTS/YEAR"> C$;> (C$)20 F$(F$,(F$)1): 60015>F$F$C$> 60015? "INPUT ERROR, PLEASE TRY AGAIN ":: 60010?:? (C$) 45 (C$)47 (C$) 57 50065W=F$F$C$c=É 50015=Ù: "INPUT ERROR, PLEASE TRY AGAIN "E". "OPTION AND STOCK VOLATILITY; OUTPUT IS"\ "THE VALUE OF THE OPTION AND THE HEDGE"k "RATIO."uF::K 40000P "";CN$"STOCK PRICE ?": 2000:SK(F$)CN$"EXERCISE PRICE ?": 2000:(F$,(F$)1): 20115  (C$)45 (C$) 47 (C$) 57 2060B F$F$C$M  2011 :: "INPUT ERROR, PLEASE TRY AGAIN ": 2005  C$"" 2080   (#PI3.1415926535 -#X(X1) 7#Z1(2PI)((X2)2) <#B1.319381530:B* "VALUE OF A DEFERRED ANNUITY GIVEN THE"Y" "AMOUNT OF THE INDIVIDUAL PAYMENTS, THE"$ "NUMBER OF PAYMENTS, THE INTEREST RATE,"& "AND THE TIME THE ANNUITY BEGINS. IF( "DESIRED, A LAST EXTRA BALLOON PAYMENT"* "COINCIDING WITH   ZI$"A" @  ZI$"A" "ANNUAL INT RATE = ";100IZN:: 5050f  "INT. RATE PER PERIOD = ";100Il   "PAYMENTS BEGIN ";NF1;" PERIODS INTO THE FUTURE":  ZI$ "A" 5047:YR(NF1)NV:YR(100YR.5)100  ZI$(C$)47 (C$)57 7060F$F$C$ 7011N: "INPUT ERROR, PLEASE TRY AGAIN ":: 7005a C$"" 7080gm SUBROUTINE FOR STRING INPUTF$"":C$"" CN$; C$: C$"" 7117 C$; F1 F0: EX(F$)=CN$"INTEREST RATE ?": 2000:IN(F$)xCN$"DAYS TO EXPIRATION ?": 2000:TM(F$)CN$"VOLATILITY (%) ?": 2000:VL(F$): "": TFTM365:I2.356563782:B31.7814779378 A#B41.821255978:B51.330274429:P.2316419H F#T1(1PX)s P#QZ(B1TB2T2B3T3B4T4B5T5) Z# X10 N1Q: 9060 [#NQ d# @ "PRESS RETURN TO CONTINUE, STOP TO END" A F$ E F$"" 40001 JBUT IN ADDITION TO THE"9, "LAST PAYMENT MAY BE CONSIDERED."pZCN$"PRINT PRESS RETURN TO BEGIN ?":::F1: 7100{d "";CN$"IS INTEREST RATE QUOTED PER PERIOD (P) OR ANNUALLY (A) ?" 7100:ZI$(F$,1)  ZI$"P" ZI$"A" "IN"A" "THIS IS ";YR;" YEARS IN THE FUTURE"-  ZI$"A" Q  "PAYMENT = ";PMTW   BAL 0 "BALLOON PAYMENT = ";BAL : "":  CN$"PRESS RETURN FOR MORE ?":F1: 7[(C$)13 F$"" F1 7117 (C$)13 7170(F$F$C$3 71179?  7011je C$(13) F$"" 7011tj C$;l (C$)13 7070q (C$)20 (F$)1 7060v (C$)20 F$(F$,(F$)1): 7011 (C$)45 NIN100:VLVL100?CN$"ARE OPTIONS PUTS (P) OR CALLS (C) ?": CN$;X F$: F$"" 1025o F$;: Z9$(F$,1) Z9$ "P" Z9$ "C" : "INPUT ERROR ": 1020LD1((SKEX)(IN12 VL 2) TF) (VL (TF)) VD2((SKEX)(INOÏ * ROUTINE TO FORMAT *$PVV((VV.005)100)100AZVV$(VV):TEMP$(VV$,3)hdË (TEMP$,2,1) "." VV$VV$"0"nË (TEMP$,1) "." VV$VV$ ".00"sVV$"$" VV$uË (VV$) 9 VV$" " VV$: 50037xÎ <#B1.319381530:BPUT ERROR!": 1155H ZI$"A" CN$"NUMBER OF PAYMENTS PER YEAR ?": 7000c ZI$"A" ZN(F$): ZI$ "A" CN$"NUMBER OF YEARS INTO FUTURE UNTIL FIRST PAYMENT ?" ZI$"A" 7000:NF(F$)x 3000: 3080}II100 PVPMT100 p 100X DATA INPUT SUBROUTINE%]F$"":C$""0b CN$;9c C$Ld C$"" 7011je C$(13) F$"" 7011tj C$;l (C$)13 7070q (C$)20 (F$)1 7060v (C$)20 F$(F$,(F$)1): 7011 (C$)45  *****************1 ** ASSIGN **I *****************T ""; "" " ASSIGNMENT COST": ""  "THE ASSIGNMENT PROBLEM EX12 VL 2) TF) (VL (TF))- ` Z9$"P" 1200C ~X1D1: 9000:N1NY X1D2: 9000:N2N| WSKN1 EX ( IN TF)N2  1500  VALUE OF PUT X1D1: 9000:N1N X1D2: 9000:N2N WSK N1 EX (IN TF)N2  AMINED IN THIS"= "PROGRAM IS OF THE FOLLOWING TYPE: THERE"l "ARE A FIXED NUMBER OF JOBS TO BE DONE" "(SAY N JOBS), AND THE SAME NUMBER (N) OF"; "POSSIBLE ASSIGNEES, I.E. THOSE WHO CAN " "DO THE JOB. THE ASSIGNEES HAVE ") (1I)(1(1I)(N))BAL(1I)(N)0 PVPV (1I)(NF);  5000R INPUT SUBROUTINE~ "";: "ENTER EACH OF THE FOLLOWING" ZI$"A" CN$"ANNUAL INTEREST RATE (%) ?": 7000:I(F$) ZI$"A" IIZN:NFNFZN1: 3070) 6Z(6( MORE ENTRY? SBR6(Z9$ " "7(CN$"DO YOU DESIRE MORE ENTRIES (Y/N) ?": 60000:Z9$ (F$,1)67( Z9$ "Y" Z9$ "N" 10000: 10405<7(O7) ONLY Y/N SBRw7) Z9$ "Y" Z9$ "N" 10000}7)7* ELIMINATES TRAILING 50000:A(I,4)(F$) CN$"FED WITH ?":F1: 50000:A(I,5)(F$)D CN$"FICA ?":F1: 50000:A(I,6)(F$){ CN$"SPECIAL ?":F1: 50000:A(I,7)(F$):  "";::: F$(4): F$(5): "M";  5H1);I$;9H2);A1$;17H3);AX$:H5TT%XXA(I,4)A(I,5)A(I,6)A(I,7): 20000:A5$XX$:H6TT4&"Y": 3H1);I$;7H2);A1$;7H3);A2$;6H4);A3$;r&6H5);A4$;6H6);A5$:I$(I):H1(I$):XXA(I,8): 20000&A1$XX$:H2TT:XXA(I,9): 20000:A2$XX$:H3TT:XXA(I,10): 20000& Z9$ "Y" I 1 NC:A(I,8) 0:A(I,9)0:A(I,10)0 , Z9$ "Y" A(I,11)0: I,X,CN$"DO YOU WANT TO ZERO ALL YTD AMTS (Y/N) ?": 60000:Z9$(F$,1), Z9$ "Y" Z9$ "N" 10000: 7350, Z9$ "Y" I 1 NC:A(I,4)  "1 "WILL FOLLOW."11 SUBROUTINE FOR COMPUTING GROSS PAY 2 G H1 R1 1.5 H2 R12 72 SUBROUTINE COMPUTES FEDERAL WAGESL2 W G 14.4 NR2! y2l SUBROUTINE COMPUTING WITHHOLDING2q T1 IS WITHHODING. X IS BRACKET WE  BLANKS OF VARIABLES Z8$7+ (Z8$,1) " " Z8$(Z8$,(Z8$)1): 110107 +8\+X (100X.5)100::86 P(1, ) GIVES WAGE BRACKET BDYS. FOR SINGLE EARNERSn86 P(2, ) GIVES WAGE BRACKET FOR MARRIED EARNERS86 B(1, ) GIVES WAGE HOLDING % FOR S 2$;24H4);A3$;  33H5);A4$:!CN$"MTD GROSS ?":F1: 50000:A(I,8)(F$)Q!CN$"FED WITH ?":F1: 50000:A(I,9)(F$)!CN$"FICA ?":F1: 50000:A(I,10)(F$)!CN$"SPECIAL ?":F1: 50000:A(I,11)(F$)!XXA A3$XX$:H4TT:XXA(I,11): 20000:A4$XX$:H5TT('A(I,8) A(I,9) A(I,10) A(I,11): 20000:A5$XX$:H6TT`' "M": 3H1);I$;7H2);A1$;7H3);A2$;6H4);A3$;|' 6H5);A4$;6H6);A5$'I$(I):H1(I$):XXA(I,12): 20000:A1$XX$:H2TT:XXA( 0:A(I,5)0:A(I,6)0:A(I,7)0, Z9$ "Y" I, -x SUBROUTINE FOR INPUTTING DATA & COMPUTING PAYROLLA-y "";: 8000: 10100: "";w-z:CN$"ENTER PAY DATE (MM/DD/YY) ?": 60000:D$F$-{ (D$) 8 "INPUT ERROR":: 7802-}CNARE IN.2v T10:X22{ W 0 83452 W P(M,X) 83403 T1 T1 ((P(M,X)P(M,X1))B(M,X1)100.5)100*3 X X 153 8320g3 T1 T1 ((WP(M,X1))B(M,X1)100.5)100m3 3 SETS UP PAY ARRAY3 A(I,12) G:A(I,13)T1INGLE EARNERS86 B(2, ) GIVES WAGE HOLDING % FOR MARRIED EARNERS.96FP .07: FICA WITHHOLDING DECIMAL96 NEXT LNE GIVES P(1, )H96 0,27,63,131,196,273,331,433,100000e96 NEXT LINE GIVES P(2, )96 0,46,127,210,288,369,454,556,10000097(I,12): 20000:A1$XX$:H2TT"XXA(I,13): 20000:A2$XX$:H3TT*"XXA(I,14): 20000:A3$XX$:H4TTO"XXA(I,15): 20000:A4$XX$:H5TT"I$(I):H1(I$): "";::: F$(4): F$(5)" "C";5H1);I$;9H2);A1$;17H3);A2$;24H4);A3$;" 33I,13)' 20000:A2$XX$:H3TT:XXA(I,14): 20000:A3$XX$:H4TT@(XXA(I,15): 20000:A4$XX$:H5TT:XXA(I,12)A(I,13)A(I,14)A(I,15)Z( 20000:A5$XX$:H6TT( "C": 3H1);I$;7H2);A1$;7H3);A2$;6H4);A3$;(  6H5);A4$;6H6);A5$($"ENTER ID# (0 TO END) ?": 50000:I(F$): I 0 .~CN$"ENTER REG HRS. ?": 50000:H1(F$)F.CN$"ENTER PREM HRS. ?": 50000:H2(F$). I 0 I NC I (I) A$(I,1) "9999" 7840.MA(I,3):NA(I,2):R1A(I,1). :A(I,15)T7:A(I,14)FP G3 K 12 15:X A(I,K): 11100:A(I,K) X: K3 A$(I,5) D$4 :4(#F$(4)" ID GROSS FD WITH FICA SPECIAL NET"o4)#F$(5)" -- ------ ------- ----- ------- ----"4-#F$(7)" GROSS FD WTH FICA SPECIAL  NEXT LINES GIVES B(1, )9 7 0,.15,.18,.21,.26,.30,.34,.3997 NEXT LINES GIVES B(2, ):7 0,.15,.18,.21,.24,.28,.32,.375:(7 NOW LOAD P() AND B() ARRAYSb:27 I 1 2: J 1 9: P(I,J): J: I:<7 I 1 2: J 1 8: B(I,J): J: I:H5);A4$"#CN$"CURR GROSS ?":F1: 50000:A(I,12)(F$)9#CN$"FED WITH ?":F1: 50000:A(I,13)(F$)n#CN$"FICA ?":F1: 50000:A(I,14)(F$)#CN$"SPECIAL ?":F1: 50000:A(I,15)(F$)## PRINT EMPLOYEE R((X POST TO ACCTS(b "";(l')qCN$"POSTING ACCTS,PRESS Y TO PROCEED, N TO RETURN ?": 600007)rZ9$(F$,1)K)v Z9$ "N" o) Z9$ "Y" 10000:: 7020):CN$"DATE OF PAYROLL ?": 60000:D$F$): 10100) "";8200: 8215: 8300/T70:CN$"ENTER SPECIAL WITHHLDING (ENTER IF NONE) ?:F=1:GOSUB 50000!/ F$ "" T7 (F$)Y/ 8400: COMPUTE FICA:STORE DATA IN EMPLOYEE RECORDp/: 6100:: 10100/ "";: 7805/ "INPUT ERROR. TRY AGAIN."::  NET"4.#F$(8)" ----- ------ ---- ------- ---"40#4' INPUT ERROR SBR)5' "INPUT ERROR! TRY AGAIN": Z9 1 1000: Z935$'RETUNg5t':CN$"PRESS RETURN TO CONTINUE ":F1: 60000m5u'}5' Y,N,A SBR5'Z9$ " "5'CN$"ENTER YF7: N ** ROUTINE TO FORMAT OUTPUT **:*NXX ((XX .005)100)100:4NXX$(XX):TEMP$(XX$,3)*;9N (TEMP$,2,1) "." XX$ XX$ "0": 20040U;>N (TEMP$,1) "." XX$ XX$ ".00"p;HNTT0: II 1 (XX$);MN (XX$,II,1) "." TT ECORD ON SCREEN## "EMPLOYEE # :";I $ "NAME : ";A$(I,1)($ "SS NO. : ";A$(I,2)V$ "RATE :";((A(I,1).005)100)100$ "ADDRESS : ";(A$(I,3)" " A$(I,4),29)$ "LAST PAY : ";A$(I,5)$ "EXEMPT :";A(: Z 1 12:: Z: 14);"** COMPUTING **") I 1 NC * D$ A$(I,5) 7150:*XA(I,12):A(I,4)A(I,4)X:A(I,8)A(I,8)Xh*XA(I,13):A(I,5)A(I,5)X:A(I,9)A(I,9)X*XA(I,14):A(I,6)A(I,6)X:A(I,10)A(I,10)X*XA(I,15):A(I,7)A(I,7805/@ SUBROUTINE GIVING INSTRUCTIONS/E0J "THE FOLLOWING COMPUTES FEDERAL AND"0K "WITHHOLDING AMOUNTS"N0T "INPUT FOR EACH EMPLOYEE IS AN ID#(1-25)"}0^ "THEN THE # OF REGULAR HOURS (NOR RATE)"0h "THEN NUMBER OF PREMIUM H HOURS (O IF OK, N IF ERRO, A TO ABORT ?": 60000:Z9$(F$,1) 6' Z9$ "Y" Z9$ "N" Z9$ "A" 10000: 102056'!6<( Y,N SBR/6A(Z9$ " "i6F(CN$"ENTER Y IF OK, N IF ERROR ?": 60000:Z9$(F$,1)6P( Z9$ "Y" Z9$ "N" 10000: 10305 TT 1;RN II;WN;OÀ;PÏ SUBROUTINE FOR DATA INPUT O 1 O 0: "OFF": 2130B HO 1: "ON"] R ZZ 1 2000: ZZ:z  READ IN FILE FROM DISK  "";: "PUT DATA DISK IN DRIVE": 10100 CN$"ENTER NAME OF FILE TO BE READ ?": 60000:ZN$F$  ""; 6100N 6000 X : 10100: 3110' REPORT GENERATORT "";:: " REPORT MENU":p "1. PAYROLL REGISTER" "2. COMPLETE EMPLOYEE LIST WITH TOTALS" "3. END REPORT GENERATOR"::CN$"ENTER YOUR CHOICE ": 0 "";d A$(I,1) "9999" 5255 n 61005x J 4 11:V(J) V(J) A(I,J): JU O 0 : 10100: "";:o " ": O 1 " "w I O 1 " ": " " O 0 :CN$"PRESS RETURN FOR COMPANY TOTALS ?":F1 &, "THIS MAY BE INCREASED IF MUCH MAIN"C. "MEMORY IS AVAILABLE."l2 "REMEMBER THAT THE MASTER MUST BE"4 "RECALLED FROM STORAGE BEFORE"6 "OPERATIONS ARE PERFORMED AND RESTORED"8 "AFTER THE OPERATIONS.":9CN$"PRESS RETURN T:F1: 60000: F$ "" A$(I,4)F$0CN$" LAST PAY DAY?":F1: 60000: F$ "" A$(I,5)F$6dXXA(I,1): 20000:A$XX$:HTT: 6H);A$;CN$" PAY RATE ?":F1: 50000: F$ "" A(I,1)(F$)XXA(I,2): 20000:A$XX$:HTT: : Z 1 12:: Z: 12);"** READING DATA **"*  1,8,15P  2,8,2, DD$ ":" ZN$ ",SEQ"q 1,A,B$,C,D: A 0 2240  A,B$:2:1 CN$"PRESS RETURN WHEN PROBLEM IS FIXED ":F1: 60000  2210 2,NC  I 1 NC: 2550: 50000:Z9(F$) Z9 3  Z9 5100,5200,5300( 5007? PAYROLL REGISTERJ "";:CN$"DATE FOR PAYROLL REGISTER ?": 60000:D$(F$,8) (D$) 8 5103 I 0 7:V(I) 0: I ""; O 1 1,4:1O 0 60000 O 0 "";+ " ": " COMPANY TOTALS": " ":E O 1 " ": " "Y F$(7): F$(8)V(1)V(4)V(5)V(6)V(7):V(2)V(8)V(9)V(10)V(11)XXV(4): 20000:V4$XX$:H1TT:XXV(5): 20000:V5$XX$:H2TTO BEGIN ":F1: 60000: "";:9;NC25: A(NC,15),A$(NC,5)I<DD$"0":O0z> "DRIVE # : "O;" PRINTER : OFF"A F$(20): FORMATTINGC P(2,9),B(2,9),V(11)F 9000K 14000P I 1 NC:A$(I,1)"9999": IU I 1 6H);A$;CN$ " # EXEMPTIONS ?":F1: 50000: F$ "" A(I,2)(F$)FXXA(I,3): 20000:A$XX$:HTT: 6H);A$;CN$" MAR=2 SING=1 ?":F1: 50000: F$ "" A(I,3)(F$) "";: A(I,3) 1 A(I,3) 2 10000: 6030XXA I 2: 1 WRITE FILE OUT TO DISK( "";R : "PUT DATA DISK IN DRIVE": 10100} :: "PRESENT FILE NAME IS '";ZN$;"'" CN$"NEW NAME ?":F1: 60000: F$ "" ZN$ F$ "";: Z 1 12:: Z: 12);"** WRITING DATA F$"PAYROLL REGISTER :" D$:" ": 10);F$: " ", " ": F$(4): F$(5)= I 1 NCk A$(I,1) "9999" A$(I,5) D$ 5133I$ (I):H1(I$)XXA(I,12): 20000:A1$XX$:H2TTXXA(I,13): 20000:A2$XX$:H3TTXXA(I,14): XXV(6): 20000:V6$XX$:H3TT:XXV(7): 20000:V7$XX$:H4TT3XXV(1): 20000:V1$XX$:H5TTl "Y": 6H1);V4$;7H2);V5$;8H3);V6$;7H4);V7$;} 7H5);V1$XXV(8): 20000:V8$XX$:H1TT:XXV(9): 20000:V9$XX$:H2TTXXV(10): 20000 NC Z Z 2 5" \A$(I,Z)" ": Z: IL  "";: " MAIN MENU":p  " 1. MASTER FILE MAINTENANCE"  " 2. SWITCH DRIVES"  " 3. TURN PRINTER ON/OFF"  " 4. READ FILE FROM DISKETTE" & " 5. WRITE FILE TO DISKETTE" (I,4): 20000:A1$XX$:H1TT:XXA(I,5): 20000:A2$XX$:H2TTIXXA(I,6): 20000:A3$XX$:H3TT:XXA(I,7): 20000:A4$XX$:H4TT F$(4): F$(5): "Y";5H1);I$;9H2);A1$;17H3); A2$;24H4);A3$;33H5);A4$:CN$"YTD GROSS ?":F1: **" 1,8,15& 2,8,2, DD$ ":" ZN$ ",SEQ,WRITE"G 1,A,B$,C,D: A 0 2330^ A 63 2325 1,"S" DD$ ":" ZN$:2: 1: 2320 A,B$:2:1 CN$"PRESS RETURN WHEN PROBLEM IS FIXED ":F1: 60000: 2305 2,NC20000:A3$XX$:H4TTXXA(I,15): 20000:A4$XX$:H5TTSXXA(I,12)A(I,13)A(I,14)A(I,15): 20000:A5$XX$:H6TT 3H1);I$;7H2);A1$;6H3);A2$;7H4);A3$;6H5); A4$;6H6);A5$ J 1 4:V(J) V(J) A(I,J11): J  I12  ****************/ ** TELDIR **F ****************U 59468,12` ""; ""; " TELEPHONE DIRECTORY " "" "THIS P XX$ ".00",HNTT0: II 1 (XX$): (XX$,II,1) "." TTTT1,MN II-RN -OÀ)-PÏ SUBROUTINE FOR DATA INPUTk-UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"-ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED-_á C$: C 1300 9 CN$"PRESS 1 FOR MORE, 0 FOR MENU ?": 50000:Z9(F$)]  Z91 N N 1: "";: 420l  Z90 }  1600: 425  "";: ADD TO FILE IN MEMORY N N1: 420 X    READ IN FILE FROM DISKETTE # "";20) 1040&:CN$"PRESS RETURN TO SEE MOE":F1: 600001 "";<  1700D J~:CN$"PRESS RETURN TO RETURN TO MENU ":F1: 60000L CORRECTION ROUTINEQZ2$"N"V "";`CN$"NAME OF PERSON YOU WISH TO CHANGE ?  ":T L 1 2000: L^ HEADING SUBROUTINEKF$(1) " NAME PHONE NUMBER COMMENT"F$(2) " NAME PHONE NUMBER COMMENT" Z2$"Y" 1,4: F$(1):: Z2$ "Y" 1,F$(2):1," " Z2$"Y"  ROGRAM SETS UP AN INDEX OF TELE-"L "PHONE NUMBERS AND THEIR OWNERS. EACH"x "ENTRY CONSISTS OF A PHONE NUMBER, A" "ERSON, AND A COMMENT. THE PROGRAM"# "MAKES PROVISI(NS FOR RECALLING PHONE"( "NUMBER BY NAME. WITH A 64K MACHINE," $"" 50015-dË C$(13) F$"" F1 F0:::.iË (C$)13 F$"" 50015.nÙ C$;'.sË (C$)13 50070J.xË (C$)20 (F$)1 50065t.}Ë (C$)20 F$(F$,(F$)1): 50015.Ë (C$) 45 (C$)47 (C$) 57 50065. % 6);"READ FROM DISKETTE OPTION":O *CN$"NAME OF DESIRED DISK FILE ?": 60000:ZD$F$ /CN$"INPUT DISK DRIVE NUMBER ?": 60000:DR$F$ 1 1,8,15 2 2,8,2,DR$ ":" ZD$ ",SEQ" 31,A,B$,C,D: A 0 825 4 A,B$:2:1:CN$"PR ": 60000:B$F$jJ 1t B$ A$(J,1) 11808~J J 1: J N 1140_: "NO SUCH FILE NAME IN LIST":CN$"PRESS RETURN TO RETURN TO MENU ":F1: 60000 200 "";: 1800 Z1 9 :CN$"INPUT 2 FOR WRONG NAME, 0 F1:1 PRINT 1 FILE DATA Z2$ "Y" 1,4S (A$(J,1),15);17);(A$(J,2),12);32);(A$(J,3),7)m Z2$ "Y" 18301,(A$(J,1),18);1,20((A$(J,1),18)));(A$(J,2),14);1,16((A$(J,2),14)));A$(J,3)$)- "THIS PROGRAM WILL HANDLE 400 NUMBERS."T2 "WITH MORE MEMORY MORE NAMES SHOULD"7 "FIT, THOUGH THE DIM STATEMENT IN THE"< "PROGRAM WOULD HAVE TO BE CHANGED"A "ACCORDINGLY.":F "TO FACILITATE RECALL, WE SUGGEST"I "ENTERINGF$F$C$.É 50015.Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010.Ù.Î!/` SUBROUTINE FOR STRING INPUT1/eF$"":C$"" 1450E C2:1a H:: N;"RECORDS READ."m R 10100s z  WRITE OUT FILE ONTO DISKETTE  "";: 7);"WRITE ONTO DISKETTE OPTION":  "PRESENT DISK FILE IS ";ZD$: "OR MENU ?": 50000 Z1 9 Z9(F$): 1215G: "MAKE APPROPRIATE CHANGES. PRESS RETURN"w "FOR NO CHANGE IN FIELD ": 1900CN$"2 FOR WRONG NAME, 1 FOR MORE CHANGE, "CN$ CN$ "0 TO RETURN TO MENU ": 50 Z2$"Y" 1:1&'l SUBROUTINE FOR INPUTTING DATA FILE FROM KEYBOARDnvCN$"LAST NAME*FIRST NAME ?":F1: 60000: F$ "" A$(J,1) F$CN$"A/C PHONE#,E.G.,914-425-1535 ?":F1: 60000 F$ "" A$(J,2) F$CN$"COMMENT  NAMES AS LAST NAME*FIRST NAME,"FK "E.G., SMITH*TOM. THE COMPUTER NEEDS"sP "A PERFECT MATH TO FIND THE NAME. THE"U "NAME COULD ALSO BE FOUND BY PRINTING"Z "A COMPLETE LIST."_ 10100d A$(400,3)i 1700 ""; 18);"(C$) 13 60065/ (C$) 20 (F$)1 60060/ C$;0 (C$)20 F$(F$,(F$)1): 60015$0F$F$C$00 60015c0: "INPUT ERROR, PLEASE TRY AGAIN ":: 60010k0:q0Ë (C$) 45 (C$)47 (C$) 57 50065.DRIVE NUMBER ";DR$5 : "":t CN$"NEW DISK FILE ? (RETURN FOR NO CHANGE) ":F1: 60000  F$ "" ZD$ F$ CN$"NEW DRIVE NUMBER? (RETURN FOR NO CHANGE)":F1: 60000  F$ "" DR$F$  000:Z9(F$) Z9 2 1150 Z9 1 1110' Z9 0 9 1600: 1210l SUBROUTINE INPUTTING FILE DATA FROM KEYBOARDCN$"LAST NAME*FIRST NAME ?":F1: 60000: F$"" A$(N,1)F$CN$"A/C-PHONE # E.G. 914-425-1535 ?":F1:  ?":F1: 60000: F$ "" A$(J,3)F$  1100:Z10:\' "INPUT ERROR!!! TRY AGAIN !!!": JZ 1 2000: JZ:t':CN$"PRESS RETURN TO CONTINUE ":F1: 60000:OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHMENU":' "1. SET UP NEW PHONE DIRECTORY"l "2. ADD TO EXISTING DIRECTORY ALREADY IN MEMORY" "3. NOT IMPLEMENTED" "4. NOT IMPLEMENTED" "5. READ IN A DIRECTORY ON DISKETTE"  "6. SAVE A DIRECTORY ON DISKETTE"065}Ë (C$)20 F$(F$,(F$)1): 500152Ë (C$) 45 (C$)47 (C$) 57 50065?F$F$C$KÉ 50015~Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$1,8,15 2,8,2, DR$ ":" ZD$ ",SEQ,WRITE"?1,A,B$,C,D: A 0 940U A 63 935~1,"S" DR$ ":" ZD$:2:1: 930 A,B$:CN$"PRESS RETURN WHEN READY TO RESUME ":F1: 600002:1: 920 "THERE ARE";N;"RECOR60000 F$ "" A$(N,2)F$;#CN$"COMMENT ?":F1: 60000: F$ "" A$(N,3) F$A(x INPUT OF FILE FROM CASSETTE - ***** NOT IMPLEMENTED ****** INPUT OF FILE FROM DISKETTE L 1 N2,A$(L,1):2,A$(L,2):2,A$(L,3ARACTER:REM F$="INPUTTED DATA TO DATE".ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDI_á C$: C$"" 50015ndË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50  "7. REVIEW A DIRECTORY"/  "8. MAKE CORRECTIONS"S  "9. FIND NAME & PHONE NUMBER" ":CN$"TYPE APPROPRIATE NUMBER ": 50000:Z1(F$) , Z1 400,500,600,700,800,900,1000,1100,2500 @ 200  "";: SET UP NET FILE N 1 : C$"" 60015t F 1 F$ "" (C$) 13 F0:::2y (C$) 13 F$"" 60015O~ (C$) 13 60065t (C$) 20 (F$)1 60060~ C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPDS":: 101002,N  15502:1: REVIEW A FILE SUBROUTINEzCN$"IS PRINTED OUTPUT DESIRED (Y/N) ?": 60000:Z2$(F$,1) Z2$ "Y" Z2$ "N" 10000: 1003 "";: 1700 J 1 N 1800 J20 (J) L/ OUTPUT OF FILE ONTO CASSETTE-***** NOT IMPLEMENTED ********5X OUTPUT OF FILE ONTO DISKETTEh L 1 N"2,A$(L,1):2,A$(L,2):2,A$(L,3), L6@ INPUT ERROR SUBROUTINEJ "INPUT ERROR! TRY AGAIN !!!EM IS CORRECTED ":F1 2 A0 60000: 13025!22,M: MONTH NUMBER!!2 N 0 42]!22,C(N,1),C(N,2),C(N,3): BUDGET AMTS & TOTALS FOR CAT.e!3 N!32,N1: NUMBER OF ITEMS PRESENTLY IN FILE!3 N10 2:1:!"3 N 1 N1!,32,A(N"," "," "'6 NTS PAYABLE,FED. INC. TAX,LOANS PAYABLE,LOANS RECEIV.1'6 PERSONAL,FIXED ASSETS," "," "," "," "Q'6 J3 0 42: C$(J3): J3W'7r'x7 REVIEW OF CATEGORIES'7 "";: I 0 42 2'7I$(I):H1(I$):I1$(I1):H2(I1$) "N" 10000: 2520 Z9$ "Y" 2500 0( EDIT & REVIEWj) DT 0 "";: "SORRY,NO DATA YET": I 1 750* DT 0 I: "";:2 "";: F$(3): F$(4)< N 1 N1: 10700F N10 (N10) 2640: "";: F$(3-----": F$(6): F$(7): O1 1,F$(6):1,F$(7)!; I 0 42W> I9 (I9) I 0 O 1 10100: "";? I9 (I9) I 0 O 0 F$(6): F$(7)@ I$(I):H1(I$):H2(C$(I))A XXC(I,1): 20000:C1$XX$:H3TT:XXC(I, ALONE  "";: F1 12:: F: 13);"** INITIALIZING **" 11000:1' INPUT ERROR SBRf' "INPUT ERROR! TRY AGAIN!": J31 1000: J3l$'t':CN$"PRESS RETURN TO CONTINUE":F1: 60000~'' "MONTHS DON'T COINCIDE,INPUT MONTH ,1),A(N,2),A(N,3)!63 N!@32:1: "3 PRINT MONTHLY DATA ONTO DISK"3FF$(M1)G"3F$"MONTH" FF$: M1 IS MONTH IN PROGRAM"3 "";: F1 12:: F: 12);"** WRITING DATA **""3 1,8,15"3 2,8,2,DD$":"F$ ",SEQ,WRITE""31,A,B$,C,D: '7 3H1);I$;" ";C$(I);24H2);I1$;" ";C$(I1)(7 O 1 14235=(71,3H1);I$;" ";C$(I);19(C$(I)));I1$;" ";C$(I1)n(7 I30 (I30) I 0 : 10100: "";v(7 I(7: "CATEGORIES 1-35 DEDUCTIBLE EXPENSES"(7 "CATEGORIES ): F$(4)K NM X$ " " N LP CN$"INPUT E TO EDIT,ENTER FOR MORE ?":F1: 60000:X$(F$,1)eU X$ "E" 10800zZ N N 1 d  CATEGORY REVIEW OR CHANGE "";: " MENU" : "1. REVIEW IF ALL CA 2): 20000:C2$XX$:H4TT6B XXC(I,1)C(I,2): 20000:C3$XX$:H5TT: 3H1);I$;" ";C$(I);pC 23H3);C1$;31H4);C2$;39H5);C3$: O1 2885D 1,3H1);I$;" ";C$(I);19H3H2);C1$;: 12000E I:CN$"PRESS RETURN FOR TOTALS ":F1: 60000 ?": 50000:M(F$)' I 1 700: I:8)N$(N):H1(N$):A1$(A(N,1)):H2(A1$):H3(C$(A(N,1)))t)XXA(N,2): 20000:A2$XX$:H4TT:A3$(A(N,3)):H5(A3$)) 3H1);N$;9H2);A1$;" ";C$(A(N,1));30H4);A2$;) 39H5);A3$: O 1  A63 1,"S"DD$":"F$:2: 13221#3 A 0 A,B$:2:1I#3 A0 CN$"PRESS RETURN WHEN PROBLEM IS CORRECTED":F1: 60000^#3 A0 13220g#32,Mx#3 N 0 42#32,C(N,1):2,C(N,2):2,C(N,3)#3 N#32,N1: NUMBER OF ITEMS O 36-42 NONDEDUCTIBLE EXPENSES":(7 O 1 14250)71,"CATEGORIES 1-35 DEDUCTIBLE EXPENSES"R)71,"CATEGORIES 36-42 NONDEDUCTIBLE EXPENSES":1," "^)7 10100d)7): GET MONTHLY TOTALS FROM MONTH'S DATA): N 1 N1):K A(N,1):C(K,TEGORIES" "2. CHANGE BUDGET AMOUNTS FOR MONTH"7 "3. RETURN TO MAIN MENU"c :CN$"MAKE CHOICE ?": 50000:Z9(F$)} Z9 2750,2770,2799 10100: 2710 14200: 2710 I 0 42 I$(I):H1(I$) H2(C$(I)) XX F O 0 "";: F$(6): F$(7)7G 1);0;5);"TOT. INC";:XXAI(1): 20000:A1$XX$:H1TTyH XXAI(2): 20000:A2$XX$:H2TT:XXAI(3): 20000:A3$XX$:H3TTI 23H1);A1$;31H2);A2$;39H3);A3$: O1 2891J 1,1);0;2);"TOT. INC";5);A1 10730)1,3H1);N$;5H2);A1$;" ";C$(A(N,1));15H4);A2$;")1,11H5);A3$();0* EDIT ROUTINEq5*CN$"WHICH ITEM NUMBER TO EDIT ?": 50000:E(F$):* E0 EN1 E (E) 10000: 10805?*C(A(E,1),1)C(A(E,1),1)A(E,2)D*N2N FILE#3 N10 2:1:#3 N1 N1 $32,A(N,1):2,A(N,2):2,A(N,3)$3 N $42:1:N$ 5 JUST GET FINAL MONTHLY TOTALS FROM DISKm$*5 11000: ZERO OLD AMOUNTS$45F$"MONTH" (M1)$>5 1,8,15$?5 2,8,2,"DD$=":"+F$ +",SEQ":INPUT#1,A,B1)C(K,1) A(N,2)): N):)< INPUT ROUTINE) +A(J3,J4)0L+ J4: J3^ + J3 0 42v*+C(J3,1)0:C(J3,3)04+ J3>+N10R+.1,7H4);C2$;8H5);C3$:22 11000: ZERO A$,C,D:IF A<> 0 THEN PRINT A,B$%@5 A 0 F1: 60000:2:1: 13630 %H52,M%R5 N 0 42:%\52,C(N,1),C(N,2),C(N,3)B%f5 NL%p52:1R%z5s%6 ROUTINE LOADING C$() ARRAY%6 INCOME,MDSE,ACC'TING,ADS,AUTO EXP%6 CARTONS,CONTRIB'S,DELIV. E" A(N2,3)(F$)*N (TEMP$,1) "." XX$ C(I,2): I' AE(3)AE(1)AE(2)1 AF(1)0:AF(2)0:AF(3)0W4 I 36 42:AF(1)AF(1)C(I,1):AF(2)AF(2)C(I,2): Im6 AF(3)AF(1)AF(2)x7 "";8 F$(6)"CL CL TOTAL BUDGET OV,UN"9 F$(7)"-- -- ----- ------ $;39H3);A3$: O1 2903)U 1,1);0;2);"NET FLOW";9H1);A1$;7H2);A2$;8H3);4V 1,A3$BW : 10100HX Y "";:CN$"ARE YOU SURE (Y/N) ?": 60000:Z9$(F$,1)^ Z9$ "Y" h "";: ZERO FOR NEW MONTH,LEAVES BUDGET AMTST AMORTIZED, AMOUNT OF INTEREST"BT "AND BALANCE LEFT ON MORTGAGE."d:CN$"IS DELAY AFTER EACH YEAR DESIRED (Y/N)?": 60000iZ3$(F$,1)n Z3$ "Y" Z3$ "N" 100xCN$"IS LINE PRINTER OUTPUT DESIRED (Y/N)?": 60000:Z2$(F$,1)= $";P D "PAYMENT = $";MI I Z2$ "Y" 1,"PAYMENT = $";Mn N "TERM = ";Y S Z2$ "Y" 1,"TERM = ";Y X "YRS RATE = ";I;"%" ] Z2$ "Y" 1,"YRS RATE = "E TO FORMAT OUTPUT **fXX ((XX.005)100)1004pXX$(XX):TEMP$(XX$,3)cu (TEMP$,2,1)"." XX$ XX$ "0": 900z (TEMP$,1) "." XX$ XX$ ".00"TT0: II 1 (XX$): (XX$,II,1)"." TTTT1 II:OÀPÏ SUB ******************3 ** BUSBUD **L ******************[ 59468,12h "";: ""; " BUSINESS BOOKEEPING SYSTEM " ""&  "3. LINE PRINTER ON/OFF"5  "4. WRITE MONTH'S DATA TO DISK"T  "5. ADD TO MONTH'S FILE"q $ "6. EDIT MONTH'S FILE" . "7. CATEGORY REVIEW AND CHANGE" 8 "8. BUDGET ANALYSIS" B "9. NEW MONTH INITIALIZE,BUDGET SAME G "10. END PROGR  Z2$ "Y" Z2$ "N" 1204 Z2$ "Y" 1,4B:: 840M "";CN$"MORTGAGE PRINCIPAL ?": 50000:P(F$)B PCN$"MONTHLY PAYMENT ?": 50000:M(F$)CN$"TERM OF MORTGAGE ?": 50000:Y(F$)' ;I;"%"% b "----------------------------------------"e g Z2$ "Y" 1,"----------------------------------------" l " NO. INTEREST AMORTIZED BALANCE"; m Z2$ "Y" 630 o1," NO.";7);"INTEREST";11);"AMORTIZED";14);"BALAN ROUTINE FOR DATA INPUT:UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"nZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:::iË (C$)13 F$"" 50015nÙ C$; "THIS BUSINESS BOOKEEPING AND BUDGET"L "ANALYSIS PROGRAM HAS THE SAME"v "CATEGORIES AS THE DOME SIMPLIFIED" "WEEKLY BOOKEEPING RECORD #600. THE" "PROGRAM CAN HANDLE 1 MONTH'S WORTH OF" "DATA AT A TIME, BUT NOT TO EXCEED 200AM& L:CN$"MAKE YOUR CHOICE ?": 50000:Z5(F$)N V Z5 1 Z5 10 10000: 1000 ` Z5 2100,2200,2300,2400,2500,2600,2700,2800,2950,2905 j 1000 4 "";: "DRIVE # : "; 9 DD$"1" 15);"0";:DD$"0": 2150 > DD$"0" CN$"ANNUAL INT. RATE ?": 50000:I(F$)QMI I 1200: MONTHLY INTEREST RATEh "";:NF 12 Y{YR0:AA0:IT0 NF 12 360: MORE THAN 1 YEAR LEFT?AY 0:IY 0AY AY A 720 K 1 NF 1" 720CE".p1," ---";7);"--------";11);"---------";14);"-------"_v " --- -------- --------- -------" PRINTOUT SUBROUTINE FOR MONTHLY PAYMENTHA5:HB17:HC27:HD38XXNY: 860:H1TT:N$XX$XXIP: 860:H2TT:I$XX$XXsË (C$)13 50070xË (C$)20 (F$)1 50065C}Ë (C$)20 F$(F$,(F$)1): 50015vË (C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUT" "ENTRIES ON A 32K MACHINE."K" "ON MACHINES WITH GREATER MEMORY, IT"{$ "IS ONLY NECESSARY TO CHANGE THE MAX=200"& "ON LINE 100 TO MAX=300 FOR 300 ENTRIES,"( "ETC. TO LEARN THE SYSTEM, USE IT.* "REMEMBER TO READY A MONTH'S DA15);"1";:DD$"1" f F 1 2000: F z& DT1A  DATA INPUT FROM DISKL  "";~ :CN$"ENTER MONTH (1-12) ?": 50000:M1(F$)  M1 (M1) M1 1 M1 12 10000: 2210  "PREPARE DISKETTE IN DISK DRIVE": 10100  13, K 6NF 0 @ 720B T "FINAL PAYMENT = $";((AIP.005)100)100[ Y Z2$ "Y" 350 Z1,"FINAL PAYMENT = $";((AIP.005)100)100 ^ "";: h FIND RESULTS FOR ONE YEAR r 480 |AY 0:IY 0  K 1 12  720 A: 860:H3TT:A$XX$XXB: 860:H4TT:B$XX$O HAH1);"";N$;HBH2);I$;HCH3);A$;HDH4);B$d Z2$ "Y" HA5:HB14:HC19:HD201,HAH1);N$;HBH2);I$;HCH3);A$;HDH4);B$ COMPUTATION SUBROUTINENYKIPBINE FOR STRING INPUTeF$"":C$"" j CN$;(o C$: C$"" 60015Tt F1 F$ "" (C$) 13 F0:::uy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,TA INTO"/, "MEMORY BEFORE USE (UNLESS IT'S A NEW"_. "MONTH), AND TO SAVE THE DATA AFTER USE."0 "OTHERWISE DRASTIC RESULTS MAY OCCUR."2 "THE BUDGET ANALYSIS WILL COMPARE ACTUAL"4 "EXPENDITURES TO USER INPUT BUDGET" 6 "AMOUNTS FO000  M 1 10200  10100:D  "";: " PRINTER :";p  O 1 1:1: 34);"OFF":O0: 2350  37);"ON":O1: 1,4 . F 1 2000: F B ` DATA OUTPUT TO DISK a DT 0 "";:"SORRY, NO DATA YET K NF NF 12 YR YR 1$  790<  Z3$ "N" 240}  Z3$ "Y" CN$"PRESS ENTER FOR NEXT YEAR ":F1: 60000  240  PAGE HEADING SUBROUTINE  FF 1 490  Z2$ "N" 560 FF1: "";: Z 1 12:: MI:AMIP:BBA:AAAAA:ITITIP:IYIYIP!AY AY A? NF 0 A P AA RT NF 0 B 0^ 640d  END OF YEAR SUBROUTINE%XX AY: 870:A$XX$:H2TT&XXIY: 870:I$XX$:H3TT( Z2$ "Y" HC HC 8:HBHB3 k(F$)1): 60015F$F$C$ 600155 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010=:C(C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUTR EACH CATEGORY."<>PCN$"PRESS RETURN TO BEGIN ":F1: 60000DUh` "";:DD$"0": "DRIVE # : 0";aO0:" PRINTER : OFF"b I 1 10:: I: 15);"INITIALIZING":dMAX200: A(MAX,3),C(43,3),C$(43),Y(43) eF$(3)"NO.": I1 750: Ib DT 0 "";:7j "";: "DTA OUTPUT TO DISK"no CN$"INPUT MONTH NUMBER (1-12) ?": 50000:M1(F$)t MM1: "PREPARE DISKETTE IN DRIVE": 10100~ 13200  DT1: "";: "ADD TO FILE ROUTINE": "LAST ITEMZ!  " ** PRINTING ** "' U  " NO. INTEREST AMORTIZED BALANCE" 0 "";: "----------------------------------------" 5 YR 0 620 : "PRIN. = $";P ? Z2$ "Y" 1,"PRIN. * " YR=";YR;HBH3);I$;HCH2);A$:1/ Z2$ "Y" HC HC 8:HBHB3i4 Z2$ "Y" 1,"YR. =";YR;HBH32);I$;HCH2);A$9 Z2$ "Y" 1," ":1," ">HCN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000R\ ** ROUTIN SO FAR":) F$(3)"NO. CL. CL. AMT. DAY"^ F$(4)"--- --- --- ---- ---"r F$(3): F$(4) NN1: 10700 15500 :CN$"ANY MORE ADDITIONS TODAY (Y/N) ?": 60000:Z9$(F$,1) Z9$ "Y" Z9$  CL. CL. AMT. DAY"M fF$(4)"--- --- --- --- ---"k n AE(3),AF(3),AS(3),AO(3) x 14000: 11000  "";:: " MAIN MENU":  "1. SWITCH DRIVES"  "2. READ IN MONTH'S DATA FROM DISK" LINE  "9. INSERT A LINE8  "10. ADD TO OR START TEXT FILE"e  "11. PRINT FILE OUT ONTO LINE PRINTER"  "12. MERGE WITH MAILPAC"  "13. EXIT PROGRAM  "14. SWITCH DRIVES" :CN$"ENTER YOUR CHOICE ?": 50000:Z(F$)1  Z 5$F$M 1,8,15R 2,8,2,DD$":"ZD$",SEQ"#p2,K; II 1 200: IIT I 1 K:2,A$(I)d1,A,B$,C,D A 0 A 63 A,B$: 2200: 810 I 2:1CN$"PRESS RETURN TO CONTINUE ":F1: 60000 CHANGE CN$"WHAT LINE NUMBER DO YOU "KCN$CN$"WISH TO INSERT (0 TO RETURN) ?": 50000:LN(F$)\ LN 0  LN (LN) LN 1 1680: 1240 LN K 1280 "ONLY";K;"LINES EXIST IN TEXT." "INSERT LNE MUSTINPUT ERROR. TRY AGAIN" Z9 1 400: Z9 DELAY SUBROUTINE1 Z8 1 7007[ PRINT LINE BEFORE, LINE AFTER: I LN 1 LN 1: I;".";A$(I): I MERGE WITH MAILPAC ""; "";: "FILE TO BE RE (F$)1 50065!}Ë (C$)20 F$(F$,(F$)1): 500154!Ë (C$) 45 (C$)47 (C$) 57 50065A!F$F$C$M!É 50015!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010!Ù!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!j 00,580,650,670,790,810,950,1110,1230,1380,1500,1780,2090,2100B  "";: 320u  ROUTINE FOR DISPLAYING TEXTFILE WITH NUMBERS  "";  K 0 570  I 1 K:ZZ$ ("0"(I)".",3)  ZZ$;" ";A$(I) & I 18 (I18) 1620: A LINE SUBROUTINE "";7CN$"WHAT LINE DO YOU WANT "pCN$CN$"TO CHANGE (0 TO RETURN) ?": 50000:LN(F$) LN 0  LN 0 LN (LN) LN K "NO SUCH LINE": 1720 LN 0 LN (LN) LN K  BE < =";K: 1720: 1240 17508 CN$"ARE YOU SURE YOU WANT TO INSERT "uCN$CN$"LINE " (LN) " (Y/N) ?": 60000:Z9$(F$,1) Z9$ "N" 1240 Z9$ "Y" 1680: 1290( I K 1 LN 1 1:A$(I) A$(I1 AD IN FROM DISKETTE": CN$"ENTER NAME OF FILE TO BE READ ?": 60000:ND$F$H 1,8,15: 2,8,2,DD$":"ND$",SEQ"w A,B$,C,D: A 0 A,B$: 2200: 1800!2,P1& P1;"NAMES TO BE READ"0 "PREPARE PRINTER FOR LETTER": 2060: CN$;!o C$: C$"" 60015 "t F1 C$(13) F$"" F0:::."y (C$) 13 F$"" 60015K"~ (C$) 13 60065p" (C$) 20 (F$)1 60060z" C$;" (C$)20 F$(F$,(F$)1): 60015"F$F$C$" 60015" 0 I :: 1650:; D ROUTINE FOR DISPLAYING TEXTFILE WITH NUMBERSF N "";V X I 1 Kb b A$(I) l I18 (I18) 1620: v I : 1650:    SAVE TEXTFILE ON DISKETTE  "";:"TEXTFILE TO BE SAVED ON DISK 560 1750/CN$"ARE YOU SURE YOU WANT TO "pCN$CN$"CHANGE LINE "(LN) " (Y/N) ?": 60000:Z9$(F$,1) Z9$ "N" 960 Z9$ "Y" 1680: 1010: "ENTER NEW LINE ";LN:CN$ (LN) ". : ?":: ): I2K K 1<: "INSERT BELOW :"FA$(LN) " "PNUCN$ (LN) "." " ?": 60000:A$(LN) F$uZ:"INSERT COMPLETE": 1720: 1240d ADD OR SRT FILE SUBROUTINEn "";x "INPUT LINES END WITH ENTER." "INPUT @ TO  J 1 P1D2,NL$,N1$,N2$,CO$,A1$,A2$,A$ N "";: NL$X N1$;" ";N2$)b CO$3l A1$=v A2$X: "NAME ";J;"OF ";P1`:CN$"PRESS 1 TO PRINTER LETTER FOR NAME, "CN$CN$"0 TO SKIP ?": 60000:Z1$F$ Z1$ "1@: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015":"Ë (C$) 45 (C$)47 (C$) 57 50065A!F$F$C$M!É 50015!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010!Ù!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!jETTE" !  "PRESENT TEXTFILE NAME IS ";ZD$T CN$"ENTER NEW TEXTFILE NAME " CN$"( FOR NO CHANGE) ?":F1: 60000:ZZ$F$  ZZ$ "" ZD$ZZ$ CN$"PRESS RETURN WHEN DISKETTE IS READY ?":F1: 60000  K;"60000:A$(LN) F$$ "";: 1750 )?.CN$"PRESS 1 IF OK,ELSE 0 ?": 50000:Z9(F$)P8 Z9 1 mB Z9 0 "";: 1000L 1680: 1060V DELETE A LINE SUBROUTINE[ "";`CN$"WHAT LINE NUMBER DO YOU "eCRETURN TO MENU" 1720 K 1 K 0: 1460; I 1 K: I;".";" ";A$(I): IIK K 1rCN$ (K) ". ?": 60000:A$(K) F$ A$(K) "@" A$(K) "":K K 1: 1460 LINE PRINTER SUBROUTINE "";" Z1$ "0" 1680: 1940 Z1$ "0" 2040  3,43,CO$!3,A1$,3,A2$73," "B 1560L 3,4l IL 1 60K:3," ": ILt J~3:3  1620:CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: ********************7 ** MORTGAGE/A **R ********************h( 59468,12: "";- ""2 " MORTGAGE AMORTIZATION "7 ""#LINES TO BE SAVED"  1,8,159  2,8,2,DD$ ":" ZD$ ",SEQ,WRITE"I 1,A,B$,C,D_  A 63 750 1,"S"DD$":"ZD$: 2: 740 2,K  I 1 K:2,(34);A$(I);(34) 1,A,B$,C,D  A 0 A 1 A 63 A,B$,C,D:N$CN$"WANT DELETED (0 TO RETURN) ?": 50000:LN(F$))j LN 0 St LN (LN) LN 1 1680: 1120~ LN K "LINE";LN;"NOT IN TEXT": 1720: 1120 1750CN$"ARE YOU SURE YOU WANT TO "CN$CN$"DELECN$"IF PRINTING WITH LINE #'S PRESS 1, "1CN$CN$"ELSE PRESS 0 ?": 50000:Z(F$)U Z 1 Z 0 1680: 1510:CN$"PRESS RETURN WHEN LINE PRINTER READY ?":F1: 60000 3,4 I 1 K" Z 1 3,I;".";,3," "; 60000 * "";:4 DD$"1" DD$ "0": 320!> DD$"0" DD$ "1": 320H SUBROUTINE FOR DISK ACCESS ERRORR1:2:CN$"PRESS RETURN WHEN ERROR IS FIXED ":F1: 60000OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$F "THIS PROGRAM WILL PRINT A TABLE"JH "DESCRIBING MORTGAGE REPAYMENT."|J "INPUT IS THE MORTGAGE PRINCIPAL, MONTHLY";L "PAYMENT, TERM IN YEARS, AND ANNUAL"N "INTEREST RATE."OP "OUTPUT INCLUDES, FOR EACH PAYMENT,"R "AMOUN 2200: 670 I  2: 1CCN$"PRESS RETURN TO CONTINUE ":F1: 60000I OU w* READ TEXTFILE FROM DISKETTE> "";:"TEXTFILE TO BE READ FROM DISKETTE":HCN$"INPUT NAME OF DISK FILE TO BE READ ?": 60000:ZDTE LINE " (LN) " (Y/N) ?": 60000:Z9$(F$,1)) Z9$ "N" 1240J Z9$ "Y" 1680: 1170s I LN 1 K:A$(I1) A$(I): IK K 1: "DELETE COMPLETED":"";: 1720: 1120 INSERT A LINE SUBROUTINE ""; A$(I)6 I@3:3T SCREEN HOLD ROUTINEF^:CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000Lhlr RETURN TO MENU SUBROUTINE|CN$"PRESS RETURN TO RETURN TO MENU ":F1: 60000 INPUT ERROR SUBROUTINE: """: C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"0 ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDK _á C$: C$"" 50015p dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 OUTPUT ON SCREEN}9CN$"FOR MORE OF TABLE PRESS RETURN ":F1: 60000D 1000JhYR$((YR)):YR$(YR$,2)}C$ ((C100)) (C$) 9 2040 2050C$ " " C$: 2020C$ (C$,7) "." (C$,2)  YR$;29);C ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT*eF$"":C$""5j CN$;Po C$: C$"" 60015jt F 1 F 0:::y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$;  ******************3 ** OPTWRITE **L ******************[ 59468,12f ""; "" " OPTION WRITING " ""# 370 p "OPTION IS CALL" r:U wCN$"PRICE PER SHARE OF STOCK ?": 50000:P(F$) |CN$"AVG. COMM. ON ST. SHARE " CN$CN$"AS % OF SHARE PRICE ?": 50000:CA(F$) CN$"DIVIDENDS PER SHARE PAID BY STO $=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"JZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDe_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$) $ Z2$ "Y" 1,YRS;29(YR$));C$ P YR$((YR)):D$((D100)):AD$((AD100))g BV$ ((BV100))x YR$(YR$,2) (D$) 100 D$ "0" D$: (D$) 10 D$ "0" D$ (D$) 9 3050 3060 D$ " " (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015M: "INPUT ERROR, PLEASE TRY AGAIN ":: 60010U:[1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN "THIS PROGRAM COMPUTES SOME USEFUL"P "TOTALS FOR POTENTIAL OPTION WRITERS."( "THE USER OF THIS PROGRAM WILL GENERALLY"2 "BE A RATIO WRITER AND WILL SELL A FIXED"< "NUMBER OF OPTIONS, AS WELL AS BUY OR" F "SHORT A GIVEN NUMBER OF CK ?": 50000:D(F$)D CN$"MAINTENANCE REQUIREMENT ?": 50000:MN(F$)Z  TP$ "P" 500x  CALL OPTION CALCULATION MAX N100POCONS(EX(1CA100)P(1CA100)D) IN NS P (1CA100)(N100POCO)MN RMAX MAX 1 50065}Ë (C$)20 F$(F$,(F$)1): 50015NË (C$) 45 (C$)47 (C$) 57 50065[F$F$C$gÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$; D$: 3030 D$ (D$,7) "." (D$,2)W (AD$) 100 AD$ "0" AD$: (AD$) 10 AD$ "0" AD$r (AD$) 11 3090} 3100 AD$ " " AD$: 3070 AD$(AD$,9) "." (AD$,2)! (BV$) 100 BV$ "0" BV$: (BV$ 59468,12' ****************> ** LETWRT **U ****************`( ""; "" " TEXTEDIT AND LETTER WRITING SYSTEM " "" "THI SHARES OF THE"9P "UNDERLYING STOCK. USING THIS PROGRAM,"hZ "WE WILL BE ABLE TO COMPUTE THE MAXIMUM"d "DOLLAR PROFIT HE MAY REALIZE, THE"n "DOLLAR INVESTMENT REQUIRED FOR THE"x "DEAL, THE MAXIMUM RETURN ON INVEST-" "MENT, ANDIN 1007 U (MAX(N100NS)EX(1CA100))((100NNS)(1CA100))l L (MAX NS EX (1CA100))(NS(1CA100))v  600  PUT OPTION CALCULATIONS MAX N 100POCONS(P(1CA100)EX(1CA100)D) IN NS P2 NS P CAo C$: C$"" 60015t F 1 F 0:::9y (C$) 13 F$"" 60015V~ (C$) 13 60065{ (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLE) 10 BV$ "0" BV$& (BV$) 11 3130$0 3140=: BV$" " BV$: 3110aD BV$ (BV$,9) "." (BV$,2)N YR$;5);D$;15);AD$;25);BV$U Z2$"Y" 1,YR$;5(YR$));D$;10(D$));AD$;V Z2$"Y" 1,13(AD$));BV$X S MINI TEXT EDITOR MAKES IT"I "POSSIBLE TO WRITE SOME TEXT, TO ADD TO"q "IT, TO CHANGE IT, TO SAVE IT ON" "CASSETTE OR DISKETTE AND TO READ IT" "BACK FROM THE SAME. "THE TEXT MAY PRINTED ON THE LINE" "PRINTER. THIS THE UPPER AND LOWER BREAK"@ "EVEN POINTS OF STOCK PRICE FOR THE"N "DEAL."TCN$"PRESS RETURN TO BEGIN ":F1: 60000 "";, INPUT SECTION6CN$"INPUT C IF OPTION IS CALL, "8CN$CN$ "P IF PUT ?": 60000 100 (N 100 PO CO) MN' RMAX MAX IN 100\ U (MAX NS EX (1CA100))(NS(1CA100)) L (MAX (N100NS)EX(1CA100))((N100NS)(1CA100)) & 600 X PRINTOUT b "";: g "+ASE TRY AGAIN ":: 60010: 1): 50015NË (C$) 45 (C$)47 (C$) 57 50065[F$F$C$gÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;" Z2$ "Y" 1:1'OÀ&PÏ SUBROUTINE FOR DATA INPUThUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË IS A LINE ORIENTED EDITOR.";D "ONLY ENTIRE LINES MAY BE INSERTED,"v "DELETED, OR CHANGED. THE FILES GENERATED"; "BY THE EDITOR MAY BE LINKED TO THE" "MAILPAC. THE NAME AND ADDRESS OF THE " "MAILPAC NAME IS PUT AT THE HEAD OF :TP$F$C; TP$ "C" TP$ "P" "INPUT ERROR!!, TRY AGAIN!": 320x= "";: TP$ "C" "OPTION IS CALL":: 320> "OPTION IS PUT"@:ECN$"NUMBER OF OPTION CONTRACTS SOLD ?": 50000:N(F$) JCN$"PRICE PER OPTION ":4l "MAXIMUM PROFIT = $";((MAX.005)100)100:pv "INITIAL INVESTMENT = $";((IN.005)100)100: "MAXIMUM RETURN =";((RMAX.005)100)100;"%": "UPPER BREAK EVEN POINT =";((U.005)100)100;"/DISPLAY TEXT FILE WITH LINE NUMBERSF^ "2. PRINT TEXT FILE WITHOUT NUMBERS"ah "3. NOT IMPLEMENTED"r "4. SAVE A TEXTFILE ON DISKETTE"| "5. NOT IMPLEMENTED" "6. READ TEXTFILE FROM DISKETTE" "7. CHANGE A LINE "8. DELETE A  (C$)13 F$"" 50015nÙ C$; sË (C$)13 50070CxË (C$)20 (F$)1 50065m}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAINTHE". "FILE (LETTER) GENERATED BY THIS EDITOR.";: 2070J "";::PZ"D$"",CN$"WILL THE TEXT FILE BE ON "1CN$CN$"DRIVE 0 OR DRIVE 1 ?": 60000:DD$F$6 A$(100)@ "";: 18);"MENU"JT "1.  ?": 50000:PO(F$)N YCN$"TOTAL COMMISSION PAID ON OPTIONS?": 50000:CO(F$) ^CN$"EXERCISE PRICE ?": 50000:EX(F$) hCN$"# OF SHARES BOUGHT OR SHORTED ?": 50000:NS(F$) m "";: TP$"P" "OPTION IS PUT":SHARE":4 "LOWER BREAK EVEN POINT =";((L.005)100)100;"/SHARE":g "":::CN$"PRESS RETURN TO CONTINUE ":F1: 60000 "";: 310OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C ***************- ** DEPRSY **C ***************R 59468,12] "";SP$" " "" " DEPRECIATION SCHEDULE-SUM OF DIGITS "! "F PORTFOLIO ON PRINTER Z2$ "Y"  1,4: 1: 16000:1:1#)7 A$(J,1)yCN$"TYPE INSUR. ?":F1: 60000: F$ "" A$(J,1)F$ A$(J,2)CN$"POL. DESCR. ?":F1: 60000: F$ "" A$(J,2)F$ A$(J<( Y,N SBRA(Z9$ " "F(CN$"ENTER Y IF OK, N IF ERROR ": 60000:Z9$(F$,1)LP( Z9$ "Y" Z9$ "N" 10000: 10305RZ(h( MORE ENTRY? SBRv(Z9$ " "(CN$"DO YOU DESIRE MORE ENTRIES ?": 60000:Z9$(F$,1)( Z9$ "Y" Z9$: Z2$"Y" A8$: "DESCRIPTION ";A);A$(J,2): %:A20: Z2$"Y" A 41%: "EXPIRATION DATE ";A);A$(J,3)L%:A20: Z2$"Y" A 4s%:: "COMPANY WRITING ";A);A$(J,4)%:A20: Z2$"Y" A 8%:: "UNDERWRITER ";A);A$(J,5)%:A20:0015*~ (C$) 13 60065* (C$) 20 (F$)1 60060+ C$;,+ (C$)20 F$(F$,(F$)1): 600159+F$F$C$E+ 60015x+: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015+:++ 141005 (C$)47 (C$) 57  "P "THIS PROGRAM PRINTS A SCHEDULE FOR DE-"z "PRECIATING AN ASSET BY THE SUM OF" "DIGITS METHOD."# "INPUTS ARE ITEM COST, ESTIMATED SALVAGE"( "VALUE & LIFE IN YEARS. OUTPUT IS A"- "YEAR BY  ,3)CN$"EXP. DATE ?":F1: 60000: F$ "" A$(J,3)F$' A$(J,4)iCN$"COMPANY WRITING ?":F1: 60000: F$ "" A$(J,4)F$w A$(J,5)CN$"UNDERWRITER ?":F1: 60000: F$ "" A$(J,5)F$ A$(J,6) CN$"P "N" 10000) * ELIMINATES TRAILING BLANKS OF VARIABLE Z8$E + (Z8$,1) " " Z8$ (Z8$,(Z8$)1): 11010K + .XV(1):DOL1:L7:R2: 17000: "TOTAL FACE VAL. AMT. : ";X$ .XV(2):L7: 17000: "TOTAL PREMIUM AMOUNT : ";X Z2$"Y" A 6%:: "POLICY NUMBER ";A);A$(J,6) &:A20: Z2$"Y" A 8.&:: "FACE AMOUNT ";A);B(J,1)I&:A20: Z2$"Y" A 5n&:: "ANNUAL PREMIUM ";2A;B(J,2)x&:::~&:&> A$(J,1);7);A$(J,2);22);A$(J,3);31);A$(J,4);&>X"  " DEPRECIATION SCHEDULE":]  "INITIAL COST = "C:"SALVAGE VALUE = ";S  "LIFE OF ASSET (YEAR) = ";L  "RATE OF DEPRECIATION = ";100RD;"%":  H1$: H2$:  Z2$ "Y"  1," DOUBLE DECLINYEAR SCHEDULE OF CURRENT DE-"C2 "RECIATION,ACCULATED DEPRECIATION,"[7 "AND BOOK VALUE."<:CN$"PRESS RETURN TO BEGIN ":F1: 60000d "";iCN$"IS LINE PRINTER OUTPUT WANTED (Y/N) ?": 60000:Z2$(F$,1)j Z2$ "Y" Z2$ "N" OLICY NUMBER ?":F1: 60000: F$ "" A$(J,6)F$ B(J,1)ZCN$" FACE AMOUNT ?":F1: 50000: F$ "" B(J,1)(F$)g B(J,2)CN$" ANNUAL PREMIUM ?":F1: 50000: F$ "" B(J,2)(F$)+X DELETE SBR COMPUTATION$ /!2XV(1):DOL1:L7:R2: 17000: "TOTAL FACE VALUE AMOUNT : ";X$E!2XV(2): 17000: "TOTAL PREMIUM AMOUNT : ";X$U!2: 10100:!6:CN$"EXP. DESCRIPTION ? ":F1: 60000:A$(J,2)F$!6CN$"DATE OF EXPENSE ? ":F1: 60000:A$(J,3)FB(J,1):DOL0:L4:R1: 17000: 40);X$'>XB(J,2):DOL1:L3:R2: 17000: 52);X$:DOL0:XB(J,3)>'>L6:R1: 17000: 62);B(J,3)D'>~'hBX$((((X510(R1))10R))): X 0 X$"00"X$'rB (X$) (LR) X$" " X$: 17010'|BX$(X$,L) ING BALANCE DEPRECIATION SCHEDULE" 1," "` 1,"INITIAL COST = "C:1,"SALVAGE VALUE = ";S 1,"LIFE OF ASSET (YEAR) = ";L 1,"RATE OF DEPRECIATION = ";100RD;"%":1," " 1,H1$:1,H2$:1," "  L INITIALIZE SUBROUTIN 105k Z2$ "Y" 1,4$l "";ZnCN$"ENTER COST ?": 50000:C(F$)xCN$"ENTER SALVAGE VALUE ?": 50000:S(F$)CN$"ENTER LIFE IN YEARS ?": 50000:L(F$)RD2L: RATE OF DEPRECIATION C S ]K1: K = NO. OF RECORDS NOT DELETEDb J 1 NI(l A$(J,1) "ZZZZ" 7090Cv DO NOT DELETE RECORDn J6 1 4:A9$(K,J6) A$(J,J6): J6 J6 1 3:BT(K,J6) B(J,J6): J6K K 1: 7090 JK K 1: NI K$!6CN$"PLACE OF SERVICE ? ":F1: 60000:A$(J,4)F$5"6CN$"QUANTITY PURCHASED ? ":F1: 50000:B(J,1)(F$)n"6CN$"BILL AMOUNT ? ":F1: 50000:B(J,2)(F$)"6CN$"ODOMETER READING ? ":F1: 50000:B(J,3)(F$)"6"6 14980"7A$(J "." (X$,R)'B DOL 1 X$"$" X$'B(PF "FILE DOES NOT EXIST!!!!!":: 10100: 500"(OÀB(PÏ SUBROUTINE FOR DATA INPUT(UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"(ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTE VAD0: ACCUMULATED DEPRECIATION? [DP C S: AMOUNT TO BE DEPRECIATEDX `BV C: BOOK VALUEs eYR 0: PRESENT YEARy ~  COMPUTATION AND PRINT SUBROUTINE  2000 SY L (L1)2: SUM OF YEARS DIGITS  I 1 L 1  2001 "SALVAGE VALUE > COST --- ERROR-ERROR"J "ENTER DATA AGAIN"a I 1 2000: Ik 110v ""; 1000: HEADING 1100: INITIALIZE 1200: COMPUTE & PRINT Z2$ "Y" 1:1 HEADING SUBROUTIN J 1 NI J6 1 4:A$(J,J6) A$(J,J6): J6, J6 1 3:B(J,J6) B(J,J6): J64 J:U(# FORMATTING VARIABLES<#F$(2) "TYPE DESCR DATE PLACE QUANT AMT ODOM"#' INPUT ERROR SBR' "INUPUT ERROR!!!,TRY AGAIN!": ,1)(A$(J,1),10):A$(J,2)(A$(J,2),10)#7A$(J,3)(A$(J,3),10):A$(J,4)(A$(J,4),10)R#7A$(J,1) " "A$(J,1):A$(J,2)" "A$(J,2)#7A$(J,3) " "A$(J,3):A$(4,3)" "A$(J,4)#7A$(J,1)(A$(J,1),10):A$(J,2)(A$(J,2),10)#7ED(_á C$: C$"" 50015(dË C$(13) F$"" F1 F0:)iË (C$)13 F$"" 50015#)nÙ C$;<)sË (C$)13 50070_)xË (C$)20 (F$)1 50065)}Ë (C$)20 F$(F$,(F$)1): 50015)Ë (C$) 45 (C$)47 (C$) 57 D (CS) (LI1)SY" BV BV D:AD AD D2 YR YR 1=  3000w  Z2$ "Y" I5 (I15) 1400: STOP SCROLL  I D (CS) AD BV BV D:AD AD D: YR YR 1  3000  F x SUBROUTINE TO HOLD  E5  Z2$ "Y" CN$"PRESS ENTER WHEN PRINTER READY ":F1X  Z2$ "Y" 60000: 1020: H1$ "YEAR CURR.DEP. ACCUM.DEP. BOOK VAL." H2$ "---- --------- ---------- ---------"  "";  " DOUBLE DECLINING BALANCEZ9 1 600: Z9$'t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000:'' Y,N,A SBR5'Z9$ " "t':CN$"ENTER Y IF OK, N IF IN ERROR, A TO ABORT ?": 60000'Z9$(F$,1)' Z9$ "Y" Z9$ "N" Z9$ "A" 10000: 10205'A$(J,3)(A$(J,3),10):A$(J,4)(A$(J,4),10)$7DOL0:L4:R1:XB(J,1): 17000:B$(J,1)X$M$(7DOL1:L4:R2:XB(J,2): 17000:B$(J,2)X$:DOL0u$27L6:R1:XB(J,3): 17000:B$(J,3)X$}$::$:A20: Z2$"Y" A 15$: "TYPE ";A);A$(J,1):$:A20 50065)F$F$C$)É 50015*Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010*Ù*Î6*` SUBROUTINE FOR STRING INPUTF*eF$"":C$""Q*j CN$;l*o C$: C$"" 60015*t F1 F$"" C$(13) F0:::*y (C$) 13 F$"" 6-" F#F$(6)"CST# DATE INV# TYPE AMT OTHER"0!G#F$(7)"---- ---- ---- ---- --- -----"e!d#F$(3)"ITM# DESCRIPTION QT# UNIT PR EXT PR"!e#F$(4)"---- ----------- --- ---- -- ------"!#!' INPUT ERROR SBR!' "INPUT47 (C$) 57 50065&F$F$C$&É 50015 'Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010&'Ù,'ÎN'` SUBROUTINE FOR STRING INPUT^'eF$"":C$""i'j CN$;'o C$: C$"" 60015't F 1 F 0:'y (C$) 13 F$"" 60 *****************1 ** INSFILE **I *****************_ 59468,12: ""; "" " INSURANCE POLICY FILE " "" "THIS2)(F$)*  ADD TO OR START FILE ALREADY IN MEMORY"_  "";: NI 0 "NEW FILE ":: 10100: "";n J NI 1  6000: INPUT 1 RECORD  "";: 6100: PRINT OUT 1 RECORD  10200: (Z9$,1)"N" 1020  (Z9$,1) "A"  $ L  EDIT FILE  ""; J 1 NI, " ";J;" "7 6100R :: JJ 1 600: JJZ Je 4000k  EDIT SUBROUTINE "";K JJ 0 "CHANGE TYPE CODE TO ZZZZ FOR DELETING"CN$"ENTER # ERROR! TRY AGAIN !": Z91 700: Z9!$'("t'::CN$"PRESS RETURN TO CONTINUE ":F1: 60000:8"' Y,N,A SBRF"'Z9$ " ""'CN$"ENTER Y IF OK,N IF ERROR,A TO ABORT ": 60000:Z9$(F$,1)"' Z9$ "Y" Z9$ "N" Z9$ "A" 10000: 1015'~ (C$) 13 60065' (C$) 20 (F$)1 60060( C$;1( (C$)20 F$(F$,(F$)1): 60015>(F$F$C$J( 60015}(: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015(:((F$)1): 50015&Ë (C$) 45 (C$) SIMPLE PROGRAM WILL PERMIT THE"L "INDIVIDUAL OR SMALL BUSINESS TO STORE"{ "DATA ABOUT THE PORTFOLIO OF ALL INSUR-" "ANCE POLICIES HELD. FOR EACH POLICY," "THE FOLLOWING DATA MAY BE STORED:" "TYPE INSURANCE,DESCRIPTION, DATE E NI NI 1: NEW RECORD ON FILE' . 10400: MORE?C 8 (Z9$,1) "Y" 1000] B (Z9$,1) "Y" c i 4o f  READ IN FILE FROM DISK  "";: "PUT DATA DISK IN DISK DRIVE": 10100  "";:CN$"ENTER NAME OF FILE TO READ IN ? OF ITEM YOU WISH TO EDIT, "2CN$CN$"0 IF NONE ?": 50000:J(F$)H J 0 J K:S "";`: 6600k "";v 4020r (Z2$,1) "Y" 1,4 LIST FILE WITH ANALYSISCN$"IS A LINE PRINTER TO BE USED (Y/N) ?": 60205"'"<( Y,N SBR"A(Z9$ " "##F(:CN$"ENTER Y IF OK,N IF ERROR ?": 60000:Z9$(F$,1)S#P( Z9$ "Y" Z9$ "N" 10000: 10305Y#Z(o#( MORE ENTRY? SBR}#(Z9$ " "#(CN$"DO YOU DESIRE MORE ENTRIES (Y/N) ?": 60000:Z9$(F$,1)TAL MILEAGE FOR GASOLINEx J12 (J12) 10100: "";5} Z2$"Y" 1,4: 1= J] Z2$"Y" 1:1:: 10100} Z2$"Y" 1,4: 1::: 12000: Z2$"Y" 1:1: 10100: LIST TYPE "";:CN$"ENTER TYPE DESIRX-". "PIRES, INSURANCE COMPANY, UNDERWRITER,"] "POLICY NUMBER, FACE AMOUNT, AND ANNUAL" "PREMIUM. THE FILE MAY BE STORED ON" "DISKETTE AND RECALLED. THE POLICIES" "MAY BE LISTED EITHER IN FULL OR BY TYPE" "WITH SUMMARIES": 60000:FI$F$. CN$"ENTER DRIVE NUMBER ?": 60000:DR$F$;  1,8,15_  2,8,2,DR$ ":" FI$ ",SEQ"o 1,A,B$,C,D  A 0 A,B$  A 0 CN$"PRESS RETURN WHEN PROBLEM IS FIXED ":F1: 60000  A 0 2: 2235  J 0000:Z2$(F$,1)# Z2$ "Y" Z2$ "N" 10000: 5005@ "";: 18);"MENU":c "1. COMPLETE LIST AS ON FILEz "2. LIST BY TYPE "3. END LIST PRROGRAM":CN$"ENTER APPROPRIATE CHOICE ?": 50000:Z9(F$) Z9 3 #( Z9$ "Y" Z9$ "N" 10000: 10405#($) ONLY Y/N SBR/$) Z9$ "Y" Z9$ "N" 100005$)Z$ N ** ROUTINE TO FORMAT OUTPUT **x$*NXX ((XX.005)100)100$4NXX$(XX):TEMP$(XX$,3)$9N (TEMP$,2,1) "." XX$X$"0": ED ": 60000:RM$F$V(1) 0:V(2) 0:V(3) 0:V(4) 05 "";: F 1 12:: Fa "************ COMPUTING ************"r J 0 NI (RM$,3) (A$(J,1),3) 5390V(1) V(1) B(J,1): TOTAL FACE AMOUNTV(2) V(2)  OF TOTAL POLICY FACE"- "VALUES AND PREMIUMS."Y: "A PROVISION FOR A MAXIMUM OF 120 "s "POLICIES IS MADE."(::CN$"PRESS RETURN TO BEGIN ":F1: 60000< A$(120,6),B(120,3)? NB$(70,3)A A9$(120,6),BT(120,3)CD$""F 1 NI: 2,A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2)w 2,B(J,3): JJ 1 6:Z8$A$(J,JJ): 11000:A$(J,JJ)Z8$  JJ: J 1:2   WRITE FILE OUT TO DISK  "";  : "PUT DATA DISK IN DISK DRIVE ": 1010 Z9 5200,5300 5010P COMPLETE LISTWU "";: Z2$"Y" "PUT PAPER INTO PRINTER": 10100qZ Z2$"Y" 1,4: 1] 14);"COMPLETE LIST"^_V(1)0:V(2)0:V(3)0:V(4)0d J 1 NIn 6100: 1 RECORD PRINTE20040$>N (TEMP$,1) "." XX$XX$".00"%%HNTT0: II 1 (XX$): (XX$,II,1) "." TTTT1.%MN II4%RN:%OÀZ%PÏ SUBROUTINE FOR DATA INPUT%UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"%ZÙ CN$;: CN$=DESCRIPTION OFB(J,2): TOTAL PREMIUM AMOUNT J  "";: Z2$"Y" 1,4: 1? 20);"LIST OF TYPE ";RM$JJJ 0[" J 0 NI' (RM$,3) (A$(J,1),3) 5450)JJ JJ 1, 61006 Z2$"Y" 1:1@::CN$"PRESS RETURN TO CONTI 9000! "";: 15);"MAIN MENU":J "1. ADD TO FILE OR BEGIN NEW FILE"e "2. NOT IMPLEMENTED" "3. NOT IMPLEMENTED" "4. READ FILE IN FROM DISK"& "5. WRITE FILE OUT ON TO DISK"0 "6. EDIT FILE" : "7. LIST CONTENTS,C0 : "PRESENT DISK FILE IS ";F1$;" ";L CN$"NEW FILE ?":F1: 60000: F$ "" FI$F$t CN$"DRIVE NUMBER ?": 60000:DR$F$ 1,8,15 2,8,2,DR$ ":" FI$",SEQ,WRITE" 1,A,B$,C,D: A 63 2325 1,"S"DR$":"FI$:2: 2 Do I 1 40: "-";: I: Z2$"Y" 1:1GpCN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";pqV(1)V(1)B(J,1): TOTAL FACE AMOUNTtV(2)V(2)B(J,2): TOTAL PREMIUM AMOUNTuV(3)OD B(0,3): TOTAL MILEAGEvV(4)B(GM,3)B(0,3): TO DATA BEING INPUTTED%_á C$: C$"" 50015&dË C$(13) F$"" F1 F0:1&iË (C$)13 F$"" 50015;&nÙ C$;T&sË (C$)13 50070w&xË (C$)20 (F$)1 50065&}Ë (C$)20 F$(F$,(F$)1): 50015&Ë (C$) 45 (C$)NUE ":F1: 60000: "";J JT^'` 10100: Z2$"Y" 1,4: 1Eb I 1 40: "-";: I:c| 13000: Z2$"Y" 1:1k:vp 6600 14000 "";: PRINT 1 LINE OF PORTFOLIO 14070 PRINT 1 LINE OOMPLETE OR BY TYPE"5 D "8. ACTUALLY DELETE RECORD FROM FILE"> NZ 0q X:CN$"INPUT YOUR CHOICE ?": 50000:Z9(F$) b Z9 1000,2000,2100,2200,2300,3000,5000,7000 l 500  B(J,2) CN$"NEW AMOUNT ?":F1: 60000  F$ "" B(J,322 A 0 2340  A,B$K CN$"PRESS ENTER WHEN PROBLEM IS CORRECTED ?":F1: 60000Y! 2: 2322j$ J 1 NI. 2,A$(J,1):2,A$(J,2):2,A$(J,3):2,A$(J,4)0 2,A$(J,5):2,A$(J,6)3 2,B(J,1):2,B(J,2):2,B(J,3)8 JB 2:1 *******************5 ** INVOICE **O *******************g 59468,12: "";: "" " PROGRAM INVOICE " ""6 # OF LINES PRINTED SO FAR$  "";:J CR 1Q J11: NUMBER OF LINES IN INVOICE SO FAR CN$"INVOICE NUMBER ?": 60000:N1$(J)F$ CN$"DATE OF INVOICE (MM/DD/YY) ?": 60000:D$(J)F$ # (D$(J)) 8 10000: 1310 )PO$  ""; Z2$ "Y" 1,4G "INVOICE NUMBER ";N1$(J);25(N1$(J)));"DATE :";D$(J):i Z2$ "Y" F 4 14601,"INVOICE NUMBER ";N1$(J);25(N1$(J)));"DATE :";D$(J):" ": F$(3): F$(4) Z2$"Y" F 4 1," ":1 20000:AF$XX$:HTT:1,38);" ";-=1,"CARFARE :";10H);"$" AF$Y>XXAQ: 20000:AQ$XX$:HTT:1,38);" ";?1,"PAY THIS MT :";10H);"$" AQ$@ J7 1 18:1," ": J7A Z2$"Y" 1:1|C7C71:H(C7)C:H1$(C7)  JNT0:T30:T40:T50P J 1 C7.RTTH5(J):T3T3H7(J):T4T4H8(J):T5T5H9(J)6S JgU ""V Z2$"Y" 1,"----------------------------------------"Y:XXT5: 20000:T5$XX$:HTTZ " F$(20)7 R$(15)9 9000QA NN$(20),D2$(20),QU(20),P1(20),PE(20),QO(20)B D3$(20),D4$(20),D5$(20),D6$(20),D7$(20)F H(50),H1$(50),H2$(50),H3$(50),H4$(50),H5(50),H6(50)K H7(50),H8(50),H9(50) INVOICING : " INVOICI ""* *CN$"CUSTOMER ORDER NUMBER ?": 60000:PO$F$` -CN$"SHIPPED VIA ?": 60000:SV$F$v .TM$"NET 10 DAYS" /CN$"TERMS ?": 60000:TM$F$ 0 2::"************": "LINE ";J1 7CN$"ITEM NO.  ,F$(3):1,F$(4)TE0:QU0:QO0L J2 1 J1: 4000:TETEPE(J2):QUQUQU(2):QOQOQO(J2): J2p J5 1 40: "-";: J5: " " J51 40: Z2$"Y" F 4 1,"-"; J5: Z2$"Y" F 4 1," ":1," "QU$(QU):H1(QU$):XX D$(1):H2$(C7)N1$(1):H3$(C7)T$(1)*H4$(C7)N2$(1):H5(C7)SA(1):H6(C7)SD(1)LH7(C7)AF:H8(C7)AA:H9(C7)TEm ZERO ALL INVOICE VARIABLES J 1 19:NN$(J)"":D2$(J)"":QU(J)0:PE(J)0:QO(J)0D3$(J)"":D4$(J)"":D5$(J)"":D6$(J)"":EXTENDED PRICE TOTALS : ";37H);"$"T5$[XXT3: 20000:T3$XX$:H1TTU\ "TOTAL SHIPPING : ";38H1);"$"T3$u]XXT4: 20000:T4$XX$:H2TT^ "TOTAL SALES TAX : ";38H2);"$"T4$_XXT: 20000:T$XX$:H3TTNG PROCEDURE":; "EACH INVOICE CAN HAVE AT MOST 10 LINES."g "INVOICE IS PRINTED ON SCREEN AND/OR" "PRINTER WHEN COMPLETE. AT MOST 50" "INVOICES MAY BE PROCESSED IN ONE RUN." 10100:CN$"IS THE PRINTER BEING USED (Y/ ?": 60000:NN$(J1)F$S <CN$"ITEM DESCRIPTION ?": 60000:D2$(J1)F$:CGCG1 = NN$(J1)"EK" N$(J1)"0":J1J11: 1330 > 1350 BCG CG 1 F H JCN$"QUANTITY ORDERED ?": 50000:QU(J1)(F$)! LCN$TE: 20000:TE$XX$:H2TT# "TOTAL :";39H2);TE$GAA0: XY$ "Y" AA TE TXfXXAA: 20000:AA$XX$:HTT "SALES TAX :";39H);AA$XXAF: 20000:AF$XX$:HTT "CARFARE :";39H);AF$AQTEAAAF:SA J "";%CN$"DO YOU WANT MORE INVOICES (Y/N) ?": 60000:Z9$(F$,1)T Z9$ "Y" Z9$ "N" 10000: 1730 C750 "TRANSACTION MATRIX FULL": 10100: 1800 Z9$ "Y" 1100 "";  "";CN$"PRESS 1 FOR TRANS` "TOTAL OF INVOICE AMOUNTS : ";37H3);"$"T$a Z2$ "Y" 1898Sb1,"EXTENDED PRICE TOTALS : ";37H);"$"T5$c1,"TOTAL SHIPPING : ";37H1);"$"T3$d1,"TOTAL SALES TAX : ";37H2);"$"T4$e1N) ?": 60000:Z2$(F$,1)D Z2$ "Y" Z2$ "N" 10000:: 1040O "";L ZN$"Y" CN$"PREPARE INVOICE IN PRINTER ":F1: 10100V "";`CN$"ENTER NUMBER OF CUSTOMERS TO BE "bCN$CN$"INVOICED (-1 TO END) ?": 500"UNIT PRICE ?": 50000:P1(J1)(F$), N "";Y P "NUMBER OF LINES PRINTED SO FAR = ";CG_ Ux ZPE(J1)QU(J1)P1(J1) aJ2 J1 bF 4 d F$(3): F$(4): 4000 n 10300 sF 0: Z2$"Y" Z9$"N" 1:1x Z9$ "N" (1)AQ(XXAQ: 20000:AQ$XX$:HTT: "PAY THIS AMOUNT :";39H);AQ$P " ": F 0 Z2$ "Y" 10300 Z9$ "N" "OLD INVOICE ELIMINATED": 1700 COMPLETED INVOICE GOOD F4 F0: "";:QU0:QO0:TE0: 1457 Z2$ "Y" ACTION REPORT, "CN$CN$"ELSE 2 ?": 60000:Z9$(F$,1)H Z9$ "1" Z9$ "2" 10000: 1806Z Z9$"2"  Z2$"Y" "PREPARE PRINTER FOR TRANSACTION FILE." 10100& Z2$ "Y" "";: 1835':+ " ,"TOTAL OF INVOICE AMOUNTS : ";37H3);"$"T$g1:1 j PRINT 1 LINEaH1 (NN$(J2)):H2(D2$(J2)):QU$(QU(J2)):H3(QU$):XXP1(J2) 20000:P1$XX$:H4TT:XXPE(J2): 20000:PE$XX$:H5TT 4H1);NN$(J2);16H2);D2$(J2);20H3)00:C(F$)e C 1 1800iRjCN$"CUSTOMER NAME ?": 60000:N$(1)F$oCN$"2ND LINE NAME ?": 60000:N$(2)F$tCN$"STREET ADDRESS ?": 60000:N$(3)F$yCN$"CITY ?": 60000:N$(4)F$* "DO AGAIN": 10100:CGCG1: 1330MCN$"MORE ITEMS ON INVOICE (Y/N) ?": 60000:Z9$(F$,1)| Z9$ "Y" Z9$ "N" 10000: 1410 Z9$ "N" 1450 CG 10 "INVOICE FULL. MACHINE TO TOTAL" CG 10 10100: 145 16601,5);N$(1) N$(2) "" 1,5);N$(2))1,5);N$(3)P"1,5);N$(4);", ";N$(5);", ";N$(6)p'1," ": N$(2) "" 1," ",1," ":1," ".1,PO$;" ";N1$(J);" ";SV$;" ";(CF);" ";TM$;" ";D$(J);" "0 J2 CG 1 18: TRANSACTION REPORT":9, Z2$ "Y" 1,4:1," TRANSACTION REPORT"k0 F$(6): F$(7): Z2$"Y" 1,F$(6):1,F$(7): J 1 C7:H$(H(J)):H1(H$):H2(H1$(J)):H3(H2$(J));H4(H3$(J)):XXH5(J): 20000:H5$X;QU$; 30H4);P1$;39H5);PE$  Z2$ "Y" F 4 : 1,4H1);NN$(J2);12H2);D2$(J2);4H3);QU$;X 1,10H4);P1$;8H5);PE$^  (#F$(1)"RF ITM# DATE APPL TO AMT DISCOUNTS" )#F$(2)"-- ---- ---- ---- -- --- -------- ~CN$"STATE ?": 60000:N$(5)F$` CN$"ZIP ?": 60000:N$(6)F$h : CN$"PRESS 1 TO INVOICE, 2 TO ABORT ": 50000:Z9(F$)  Z9 1 Z9 2 10000: 1280  Z9 2 1110 CG 0: CG =9J1J11: 1330 INVOICE COMPLETED "";:CN$"TAXABLE ?": 60000:XY$(F$,1)i XY$ "Y" XY$ "N" 1451 XY$ "Y" CN$"TAX RATE (%) ?": 50000:TX(F$):TXTX100::CN$"SHIPPING ?": 50000:AF(F$): Z2$"Y" F41," ": J231,60);" ";: J51 12:1,"-";: J5:1," "F6XXTE: 20000:TE$XX$:HTT:1,38);" ";w81,"TOTAL :";10H);"$" TE$:XXAA: 20000:AA$XX$:HTT:1,39);"SALES TAX :";;1,10H);"$" AA$<XXAF:X$:H5TT:XXH6(J): 20000<H6$2XX$:H62TT;= #3+H1);H$;#13+H2);H1$(J);#19+H3);H2$(J);#25+H4);H3$(J);Y> #28+H5);H5$;#38+H6);H6$s? Z2$ "Y" ' 1860A1,3H1)H$;#10+H2);H1$(J);5H3);H2$(J);6H4);H3$(J);B1,9H5);H5$;5H6);H6$D 10000: 10205"'"<( Y,N SBR"A(Z9$" "(#F(CN$"ENTER Y IF OK, N IF ERRO ": 60000:Z8$(F$,1)X#P( Z9$ "Y" Z9$ "N" 10000: 10305^#Z(t#( MORE ENTRY? SBR#(Z9$""#(CN$"DO YOU DESIRE MORE ENTRIES ?": 60000:Z9$(F$,1)#"Y" A 4(: "DATE ";A);A$(J,3)(:A20: Z2$"Y" A4():: "PLACE ";A);A$(J,4):A):A20: Z2$"Y" A8b): "QUANTITY ";A);B$(J,1){):A20: Z2$"Y" A6):: : "$ AMOUNT ";A);B$(J,2)):A19: Z2$"Y F$"" 60015.~ (C$) 13 60065. (C$) 20 (F$)1 60060/ C$;./ (C$)20 F$(F$,(F$)1): 60015;/F$F$C$G/ 60015z/: "INPUT ERROR, PLEASE TRY AGAIN ":: 60010/:/C$) 45 (C$)47 (C$)  ******************2 ** LEASEINT **J *****************Y 59468,12d# "";( ""2 " LEASE INTEREST RATE "7 " THE"( "FIRST PAYMENT MAY BE AT THE END OF THE"K "1ST MONTH, 2ND MONTH, ETC." : "": : A(400) CN$"INPUT CASH COST OF ITEM ?": 50000:CASH(F$) CN$"INPUT DOWN PAYMENT  ( Z9$ "Y" Z9$ "N" 10000#)$* ELIMINATES TRAILING BLANKS OF VARIBLE Z8$O$+ (Z8$,1) " " Z8$ (Z8$,(Z8$)1): 11010U$ +$.XV(1):DOL0:L8:R2: 17000: "TOTAL GASOLINE USED : ";X$$.XV(3):L8:DOL0: 17000: "TOTAL  " A8):: "ODOMETER ";A);B$(J,3))::): *> A$(J,1);7);A$(J,2);22);A$(J,3);31);A$(J,4);N*>XB(J,1):DOL0:L4:R1: 17000: 40);X$$*>XB(J,2):DOL1:L3:R2: 17000: 52);X$:DOL0:XB(J,3)*>L6:R1: 17000: 62);B(J,3)*> COMPUTED BY"#  "MULTIPLYING MONTHLY INTEREST RATE BY"M  "12 WHILE INTEREST RATE (EFF) IS A"n "COMPOUNDED MONTHLY RATE."tCN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000&OÀPÏ SUBROUTINE FOR DATA INPUT!UF$" "-< "THERE ARE MANY TYPES OF EQUIPMENT "W> "LEASES. ONE TYPE OF AUTO LEASE IS"y@ "CALLED AN OPEN END LEASE."F "THE WAY IT WORKS IS THAT THE LEASEE"H "PAYS THE LEASING COMPANY A DOWN PAYMENT"J "AND A FIXED AMOUNT EACH MONTH F ?": 50000:A(0)(F$)O CN$"INPUT MONTHLY PAYMENT ?": 50000:PAYMENT(F$) CN$"INPUT NUMBER OF MONTHLY PAYMENTS?": 50000:N(F$) CN$"INPUT MONTH OF FIRST PAYMENT ?": 50000:FIRST(F$) CN$"INPUT BUY-BACK AMOUNT MILEAGE GONE : ";X$%.XV(2):DOL1:L7: 17000: "TOTAL COST OF USE : ";X$(%. V(1)0 12035k%.XV(4)V(1):DOL0:L8: 17000: "MILES/GALLON : ";X$%/ V(3) 0 12050%/XV(2)V(3):DOL1:L7: 17000: "TOTAL COST/MILE *hBX$((((X510(R1))10R))): X 0 XX$ "00" X$+kB X 0 X$"000": 17010=+mB (X$,1) "." X$ X$ ".00": 17030q+nB (X$,(X$)1,1) "." X$ X$ "0": 17030+rB (X$) (LR) X$ " " X$: 17010+|BX$(X$,L) "":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"UZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDp_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)OR A",P "GIVEN NUMBER OF MONTHS. AT THE END"YR "OF THE LEASE PERIOD, THE LEASEE MUST"T "PAY THE LEASING COMPANY A PRE-AGREED"d "AMOUNT (BUY-BACK AMOUNT). THE LEASEE"f "THEN OWNS THE CAR. THERE ARE SEVERAL"h "ADVANTAGES TO LEAS ?": 50000:BUYBACK(F$)  "";A " " COMPUTING INTEREST RATE"S ,R0:JUMP .1Y 6c @P 0k E: J "PASS ";LZ;" "; T "CURRENT MONTHLY RATE = ";100R;"%":LZ LZ 1 ^P CASH hP P A(0) r K FIRST FIR : ";X$%/&2XV(1):DOL1:L7:R2: 17000: "TOTAL COST FOR EXP. TYPE: ";X$(&2: Z2$ "Y" 1:16&2 10100:p&6:CN$"EXP. DESCRIPTION ? ":F1: 60000:A$(J,2)F$&6CN$"DATE OF EXPENSE ? ":F1: 60000:A$(J,3)F$&6CN$"PLACE OF." (X$,R)+B DOL 1 X$ "$" X$+B,PF "FILE DOES NOT EXIST!!!!!":: : 10100: 500,OÀ;,PÏ SUBROUTINE FOR DATA INPUT},UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE",ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUT20 (F$)1 50065&}Ë (C$)20 F$(F$,(F$)1): 50015YË (C$) 45 (C$)47 (C$) 57 50065fF$F$C$rÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""ING. IF THE INITIAL";j "DOWN PAYMENT IS LOW AND PAYMENTS ARE"jl "LESS PER MONTH THAN ON A STRAIGHT LOAN"n "THEN THE LEASEE PAYS LESS MONEY EARLY"p "THAN ON THE LOAN. THE BALLOON PAYMENT"r "MAKES UP FOR THIS LATER.":: 540 "ST N 1:P P PAYMENT(1R) K: K? |P P BUYBACK (1R) (FIRST N)a  (P) .5 :: 540: 420  P 0 R R JUMP: 320 R R JUMP: JUMP JUMP 10:R R JUMP: 320  ****************  * PRINTOUT ROUTINE SERVICE ? ":F1: 60000:A$(J,4)F$'6CN$"QUANTITY PURCHASED ? ":F1: 50000:B(J,1)(F$)T'6CN$"BILL AMOUNT ? ":F1: 50000:B(J,2)(F$)'6CN$"ODOMETER READING ? ":F1: 50000:B(J,3)(F$)'6'6'7DOL0:L5:R2:XB(J,1): TED,_á C$: C$"" 50015,dË C$(13) F$"" F1 F0:::-iË (C$)13 F$"" 50015 -nÙ C$;9-sË (C$)13 50070\-xË (C$)20 (F$)1 50065-}Ë (C$)20 F$(F$,(F$)1): 50015-Ë (C$) 45 (C$)47 (C$) j CN$; o C$: C$"" 60015#t F 1 F 0:::Dy (C$) 13 F$"" 60015a~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT";" "THE PRESENT PROGRAM COMPUTES AN"O "EFFECTIVE INTEREST RATE ON THE LEASE"| "GIVEN THE PURCHASE PRICE OF THE CAR," "THE DOWN PAYMENT, AND THE BUY-BACK" "AMOUNT."::: 540: ""; "IT IS ASSUMED THAT THE BUY BACK OCCURS ****************  "";9 "MONTHLY INTEREST RATE = ";100 R;"%"QRA (1R) 12 1 "ANNUAL INTEREST RATE (SIMP) = ";((100R12.005)100)100;"%": "": "INTEREST RATE (SIMP) 17000:B$(J,1)X$'(7DOL1:L4:R2:XB(J,2): 17000:B$(J,2)X$:DOL0$(27L6:R2:XB(J,3): 17000:B$(J,3)X$4(: " ": " "N(:A20: Z2$"Y" A15j(: "TYPE ";A);A$(J,1):(:A20: Z2$"Y" A8(: "DESCRIPTION ";A);A$(J,2):(:A20: Z2$ 57 50065-F$F$C$-É 50015.Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005 .Ù:.Î5.` SUBROUTINE FOR STRING INPUTE.eF$"":C$""P.j CN$;k.o C$: C$"" 60015.t F1 F$ "" (C$) 13 F0:::.y (C$) 13 6 ERROR, PLEASE TRY AGAIN ":: 60015:1): 50015YË (C$) 45 (C$)47 (C$) 57 50065fF$F$C$rÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$"""! "ONE MONTH AFTER THE LAST PAYMENT."N "IF THE LAST PAYMENT AND THE BUY-BACK"| "OCCUR AT THE SAME TIME THEN DECREASE " "THE NUMBER OF PAYMENTS BY 1 " "AND INCREASE THE BUY BACK BY THE " "AMOUNT OF 1 PAYMENT. IN ADDITION, "MAIN,TOL INS,PAYM, OR MISC."K "MAIN MEANS MAINTENANCE, INS IS INSUR-"} "ANCE,PAYMENT IS CAR PAYMENT. IN ADDITION"; "TO TYPE EXPENSE THERE IS DESCRIPTION," "DATE, PLACE OF SERVICE, QUANTITY PUR-"  "CHASED, BILL AMOUNT, AND  1: NEW RECORD ON FILE . 10400: MORE?7 8 (Z9$,1) "Y" 1000Q B (Z9$,1) "Y" W ] 4c f  READ IN FILE FROM DISK  "";: "PUT DATA DISK IN DISK DRIVE ":: 10100  "";:CN$"ENTER NAME OF FILE TO BE READ IN ?":TER # OF ITEM YOU WISH TO EDIT, "5CN$CN$"0 IF NONE ?": 50000:J(F$)K J 0 J K:YJ J 1d "";q: 6600| ""; 4010r (Z2$,1) "Y" 1,4 LIST FILE WITH ANALYSISCN$"IS A LINE PRINTER TO B B(J,2): TOTAL COST FOR THIS EXPENSE# Z2$ "N" I 1 2000: I+ JM "";: Z2$ "Y" 1,4:1XJJ 0i" J 0 NI' (RM$,3) (A$(J,1),3) 5450( Z2$ "N" "";)JJ JJ 1: Z2$ "Y" " ": " " A$"" 6616 10000: 6608 A$(J,2)>CN$"NEW DESCRIPTION ?":F1: 60000: F$ "" A$(J,2)F$L A$(J,3)CN$"NEW DATE ?":F1: 60000: F$ "" A$(J,3)F$ A$(J,4)CN$"PLACE OF SERVICE ?":F1: 60000: F ODOMETER READ-"7 "ING. THIS DATA IS STORED IN A FILE IN"f "MEMORY. THIS FILE MAY BE SAVED ON DISK" "AND RECALLED, IT MAY BE EDITED, LISTED" "ON CRT OR PRINTER, ETC. A MILES PER"" "GALLON CALCULATION MAY ALSO BE PERFORMED";$( 60000:FI$F$) CN$"ENTER DRIVE NUMBER ?": 60000:DR$F$6  1,8,15\  2,8,2, DR$ ":" FI$ ",SEQ"l 1,A,B$,C,D  A 0 A,B$  A 0 CN$"PRESS RETURN WHEN PROBLEM IS FIXED ":F1: 60000  A 0 2:1: 2200 2, E USED (Y/N) ?": 60000:Z2$(F$,1)4 Z2$ "Y" Z2$ "N" 10000: 5005Q "";: 18);"MENU":u "1. COMPLETE LIST AS ON FILE" "2. LIST BY TYPE" "3. END LIST PROGRAM":CN$"ENTER APPROPRIATE CHOICE ?": 50000:Z9(F$ * 14);"LIST OF TYPE ";RM$, 61006 I 1 2000: IJ J5T Z2$ "Y" 1:1X` 10100: Z2$ "Y" 1,4:1vb I 1 40: "-";: I: 13000:p PRINT 1 LINE OF PORTFOLIOu "";x 14);"EXPENSE TYPES":$ "" A$(J,4)F$ B(J,1)/CN$"NEW QUANTITY ?":F1: 50000: F$ "" B(J,1)(F$)< B(J,2)CN$"NEW AMOUNT ?":F1: 50000: F$ "" B(J,2)(F$) B(J,3)CN$"NEW ODOMETER READING?":F1: 50000: F$"" B(J:CN$"PRESS RETURN TO BEGIN ":F1: 60000D< A$(70,4),B(70,3),B$(70,3)T? NB$(70,3)mA A9$(70,4),BT(70,3)wCD$""F 9000 "";: 15);"MAIN MENU": "1. ADD TO FILE OR BEGIN NEW FILE" "2. NOT IMPLEMENTED"  "3. NOT INI  J 0 NI42,A$(J,1),A$(J,2),A$(J,3),A$(J,4),B(J,1),B(J,2)q2,B(J,3): JJ 1 4:Z8$A$(J,JJ): 11000:A$(J,JJ)Z8$~ JJ: J1:2 WRITE FILE OUT TO DISK ""; : "PUT DATA DISK IN DISK DRIE ": 10100 ) Z9 3  Z9 5200,5300 5010,P COMPLETE LISTjU "";: Z2$ "Y" "PUT PAPER INTO PRINTER": 10100Z Z2$ "Y" 1,4:1] 14);"COMPLETE LIST"^_V(1)0:V(2)0:V(3)0:V(4)0d J 0 NIn y " GAS OIL MAIN TOLL INS PAYMENT MISC":EzCN$"TYPE EXPENSE ?": 60000:A$(J,1)F$:A$A$(J,1)| A$ "GAS" A$"OIL" A$"MAIN" A$ "TOLL" 6080 A$ "INS" A$"PAYM" A$"MISC" A$"ZZZZ" 6080 10000::,3)(F$)::+X DELETE SBR COMPUTATION' ]K1: K = NO. OF RECORDS NOT DELETED8 b J 1 NIX l A$(J,1) "ZZZZ" 7090s v DO NOT DELETE RECORD  J6 1 4:A9$(K,J6)A$(J,J6): J6  J61 3:BT(K,J6)B(J,J6): J6 MPLEMENTED"#  "4. READ FILE IN FROM DISK"H & "5. WRITE FILE OUT ON TO DISK"] 0 "6. EDIT FILE" : "7. LIST CONTENTS, COMPLETE OR BY TYPE" D "8. ACTUALLY DELETE RECORD FROM FILE" NZ0 SZ2$"N" X:CN$"INPUT YOUR CHOICE ?": 50000 : "PRESENT DISK FILE IS ";FI$;" ";G CN$"NEW FILE ?":F1: 60000: F$ "" FI$ F$o CN$"DRIVE NUMBER ?": 60000:DR$F$| 1,8,15 2,8,2, DR$ ":" FI$ ",SEQ,WRITE" 1,A,B$,C,D: A 63 2325 1,"S" DR$ ":" FI$6100: 1 RECORD PRINTED&o I 1 40: "-";: I: Z2$ "Y" 5233`pCN$"PRESS RETURN TO COTNTINUE ":F1: 60000: "";q (A$(J,1),3)"GAS" V(1)V(1)B(J,1):GMJ:ODB(J,3): TOT GAtV(2)V(2)B(J,2): TOTAL PREMIUM AMOUNTuV(3)OD 6008 14000 "";: PRINT 1 LINE OF PORTFOLIO 14070"M PRINT 1 LINE OF PORTFOLIO ON PRINTERb Z2$ "Y" } 1,4:1: 16000:1:1d INITIAL INPUTn "";x "INITIAL INPUT ENTRY":z "MAKE K K 1: 7090  J K K 1:NI K! J 1 NI,! J61 4:A$(J,J6)A9$(J,J6): J6Q! J61 3:B(J,J6)BT(J,J6): J6Y! J_!e!(#!<#F$(2)"TYPE DESCR DATE PLACE QUANT AMT ODOM"!#!' INPUT ERROR SBR!' "INPUT ERR:Z9(F$)0 b Z9 1000,2000,2100,2200,2300,3000,5000,7000: l 500G  B(J,2)j CN$"NEW AMOUNT ?":F1: 60000  F$ "" B(J,2) (F$)  ADD TO OR START FILE ALREADY IN MEMORY  "";: NI 0 "NEW FILE ":: 10100: "";& :2:1: 2320  A 0 2338 A,B$Q CN$"PRESS RETURN WHEN PROBLEM IS FIXED ?":F1: 60000b! 2:1: 2305l" 2,NI}$ J 0 NI. 2,A$(J,1):2,A$(J,2):2,A$(J,3):2,A$(J,4)3 2,B(J,1):2,B(J,2):2,B(J,3)8 JB 2:1L  B(0,3): TOTAL MILEAGE)vV(4)B(GM,3)B(0,3): TOTAL MILEAE FOR GASOLINE>w J 0 5250dx J12 (J12) 10100: "";kJ Z2$ "Y" 1:1:: 10100 Z2$"Y" 1,4:1::: 12000: Z2$ "Y" 1:1: 1010THIS ENTRY WITH A FULL GAS TANK":A$(0,1)"GAS":A$(0,2)"INITIAL"LCN$"ENTER DATE (MM/DD/YY) ?": 60000:A$(0,3)F$CN$"ENTER ODOMETER READING ?": 50000:B(0,3)(F$) "";: 13);"EXPENSE TYPES": "GAS OIL MAIN TOLLOR!!!,TRY AGAIN!:FOR Z9 = 1 TO 600:NEXT Z9!$'("t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000:8"' Y,N,A SBRD"'Z9$" ""':CN$"ENTER Y IF OK, N IF IN ERROR, A TO ABORT ?": 60000"'Z9$(F$,1)"' Z9$ "Y" Z9$ "N" Z9$ "A"  NI 0 6500: "INITIAL ENTRY DONE ":: 10100<  NI 0 "";K J NI 1`  NI 0 "";|  6000: INPUT 1 RECORD  "";: 6100: PRINT OUT 1 RECORD  10200: (Z9$,1) "N" 1020  (Z9$,1) "A"  $NI NI  EDIT FILE ""; J 0 NI' " ";J1;" "2 6100O :: JJ 1 2000: JJW Jb 4000h ~ EDIT SUBROUTINE "";K JJ 0 "CHANGE TYPE CODE TO ZZZZ FOR DELETING" CN$"EN0: LIST TYPE$ "";:CN$"ENTER TYPE DESIRED ? ": 60000:RM$F$DV(1)0:V(2)0:V(3)0:V(4)0b "";: F 1 12:: F " ********** COMPUTING *********" J 0 NI (RM$,3) (A$(J,1),3) 5390V(1) V(1)  INS PAYM MISC": " ";J1;" "::: A$(J,1)ICN$"NEW EXPENSE TYPE ?":F1: 60000: F$ "" A$(J,1)F$\ F$"" 6616 A$"GAS" A$"OIL" A$"TOLL" A$"MAIN" 6615 A$"INS" A$"PAYM" A$"MISC" A$"ZZZZ"  ******************3 ** DEPRDDB **L ******************[ 59468,12f "";SP$" " "" " DOUBLE DECLINING BALANCE  DOUBLE DECLINING BALANCE ">  " DEPRECIATION SCHEDULE ":  "INITIAL COST = ";C: "SALVAGE VALUE = ";S  "LIFE OF ASSET (YEAR ) = ";L  "RATE OF DEPRECIATION = ";100 RD;"%":  H1$: H2$:  Z2$ D$((AD100))  BV$((BV100)). (D$) 100 D$ "0" D$R (AD$) 100 AD$ "0" AD$w (BV$) 100 BV$ "0" BV$ YR$ (YR$,2) (D$) 100 D$"0" D$: (D$) 10 D$ "0" D$ (D$) 9 3050 30 6);: I 1 M1: " ";I;" ";: I: " ";I$4 I 1 Ni&X1I:X2P(I): 1000: 6);: Z2$ "Y" 1,6);0 J 1 M:X1A(I,J): 2000: J:1 Z2$ "Y" 1," "3 I5 "EXPECT.": Z2$"Y" 1,"EXPECT": "VALUE ";: 0015t F1 F$ "" (C$) 13 F0:::1y (C$) 13 F$"" 60015N~ (C$) 13 60065s (C$) 20 (F$)1 60060} C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015 "INPUT ERROR, PLEASE TR "5 ""d "THIS PROGRAM PRINTS A SCHEDULE FOR DE-" "PRECIATING AN ASSET BY THE DOUBLE" "DECLINING BALANCE METHOD."# "INPUTS ARE ITEM COST, ESTIMATED SALVAGE" ( "VALUE & LIFE IN YEAR "Y" 9 1," DOUBLE DECLINING BALANCE DEPRECIATION SCHEDULE"D 1," " 1,"INITIAL COST = ";C:1,"SALVAGE VALUE = ";S 1,"LIFE OF ASSET (YEAR) = ";L 1,"RATE OF DEPRECIATION = ";100 RD;"%":1," " 1,H1$:1 60 D$ " " D$: 3030" D$ (D$,7) "." (D$,2)` (AD$) 100 AD$"0" AD$: (AD$) 10 AD$"0" AD${ (AD$) 11 3090 3100 AD$ " " AD$: 3070 AD$ (AD$,9) "." (AD$,2)! (BV$) 100 BV$"0" B Z2$ "Y" 1,"VALUE ";+? I 1 M:X1E(I): 2000: I:GX: Z2$ "Y" 1:1:M^X1$((X1))oX1$(X1$,1)X2$(((X2.05)10)) (X2$) 100 X2$ "0" X2$ (X2$) 10 X2$ "0" X2$X2$ (X2$,1) %Y AGAIN ":: 60010:(C$) 45 (C$)47 (C$) 57 50065?F$F$C$KÉ 50015~Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 6S. OUPUT IS A"7- "YEAR BY YEAR SCHEDULE OF CURRENT DE-"e2 "PRECIATION, ACCUMULATED DEPRECIATION,"}7 "AND BOOK VALUE."<:CN$"PRESS RETURN TO BEGIN ":F1: 60000d "";iCN$"DO YOU WANT LINEPRINTER OUTPUT (Y/N) ? ": 60000:Z2$(,H2$  L INITIALIZE SUBROUTINE< VAD 0: ACCUMULATED DEPRECIATIONf [DP C S: AMOUNT TO BE DEPRECIATED~ `BV C: BOOK VALUE eYR 0: PRESENT YEAR ~  COMPUTATION AND PRINTING SUBROUTINE  2000 SY L (L1)2: SUV$: (BV$)10 BV$"0" BV$& (BV$) 11 3130%0 3140@: BV$ " " BV$: 3110bD BV$(BV$,9) "." (BV$,2)N YR$;5);D$;15);AD$;25);BV$S Z2$ "Y" 3160U 1,YR$;(SP$,5(YR$));D$;(SP$,10(D$));AD$;V 1,(SP$,13"." (X2$,1)  X1$;" ";X2$;2 Z2$ "Y" 1,X1$;" ";X2$;" ";8TX1$(((X1.005)100))y (X1$) 100 X1$ "0" X1$ (X1$) 10 X1$ "0" X1$ (X1$) 5 X1$ " " X1$: 2020X1$ (X1$,3) "." (X C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$' 60015Z: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015b:h(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROF$,1)%j Z2$ "Y" Z2$ "N" 105=k Z2$ "Y" 1,4Hl "";nCN$"ENTER COST ?": 50000:C(F$)xCN$"ENTER SALVAGE VALUE ?": 50000:S(F$)CN$"ENTER LIFE IN YEARS ?": 50000:L(F$)RD 2M OF YEARS DIGITS  I 1 L 11 D (2L)(12L)(I1)CN BV BV D: AD AD D^ YR YR 1t  BV S 1260 AD AD D D BV D S:AD AD D:BV S  3000  Z2$"Y" I5 (I5) 1400: STOP SCROLL(AD$));BV$X " Z2$ "Y" 1:1'OÀ7PÏ SUBROUTINE FOR DATA INPUTyUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" 1$,2) X1$;: Z2$ "Y" 1," ";X1$;?' "INPUT ERROR!!!, TRY AGAIN:PRINTY' JJ 1 600: JJ:t'::CN$"PRESS RETURN TO CONTINUE ":F1: 60000OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPU *****************1 ** AUTOEXP **I *****************_ 59468,12: ""; "" " AUTO EXPENSE ANALYSIS " "" "THISL: RATE OF DEPRECIATION' C S 200-^ "SALVAGE VALUE > COST --- ERROR - ERROR"w "ENTER DATA AGAIN" I 1 400: I 110 ""; 1000: HEADING 1100: INITIALIZE 1200: COMPUTE & PRINT Z2$  ID (CS) AD/ BV BV D:AD AD D:YR YR 1: 3000@FFpx SUBROUTINE TO HOLD OUTPUT ON SCREENv}CN$"FOR MORE OF TABLE PRESS RETURN ":F1: 60000 1000YR$(IN(YR)):YR$(YR$,2)C$(( F1 F0:iË (C$)13 F$"" 50015nÙ C$;1sË (C$)13 50070TxË (C$)20 (F$)1 50065~}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROTTED DATA TO DATE"*ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDE_á C$: C$"" 50015ndË C$(13) F$"" F1 F0:::iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$) SIMPLE PROGRAM WILL PERMIT THE"M "INDIVIDUAL TO KEEP A RECORD OF ALL EX-" "PENSES PERRTAINNG TO THE USE OF AN AUTO-"; "MOBILE. FOR EACH EXPENSE THIS PROGRAM" "STORES THE FOLLOWING:" "AN EXPENSE TYPE CHOSEN FROM GAS, OIL," "Y" 1:1 #  HEADING SUBROUTINE.  "";k  Z2$"Y" CN$"PRESS RETURN WHEN PRINTER READY ":F1x  1020: H1$"YEAR CURR.DEP. ACCUM.DEP. BOOK VAL." H2$"---- --------- ---------- ---------"  "";  " C100)) (C$) 100 C$ "0" C$* (C$) 9 20405 2050NC$ " " C$: 2020oC$ (C$,7) "." (C$,2)  YR$;29);C$  Z2$ "Y" 20701,YRS;(SP$,29(YR$));C$  YR$((YR)):D$((D100)):AR, PLEASE TRY AGAIN ":: 50010Ù Î+` SUBROUTINE FOR STRING INPUT;eF$"":C$""Fj CN$;ao C$: C$"" 60015wt F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 6006020 F$(F$,(F$)1): 500152Ë (C$) 45 (C$)47 (C$) 57 50065?F$F$C$KÉ 50015~Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 6 ***************- ** SHARPE1 **C ***************N ""; "" " SHARPE'S METHOD OF PORTFOLIO SELECTION " "" "THIS PROGRAM STARTS W-Ù:-Î-` SUBROUTINE FOR STRING INPUT-eF$"":C$""-j CN$;.o C$: C$"" 60015=.t F1 F$ "" (C$) 13 F0:::^.y (C$) 13 F$"" 60015{.~ (C$) 13 60065. (C$) 20 (F$)1 60060. C$;OCK ";I;" ENTER THE FOLLOWING:":U CN$" -ALPHA ?": 50000:AL(I)(F$) CN$" -BETA ?": 50000:BE(I)(F$) CN$" -STD. DEV. ?": 50000:V(I) (F$)  1300: NEXT I  " J "";  " SOLUTION FOLLOWS"S "":Y i I 1 N "PROPORTION FOR STOCK ";I;" =";T(I,1) : I  CN$"PRESS RETURN FOR ANOTHER COMPUTATION ":F1: 60000  ******************3 ** CONDPROF **L ******************[ 59468,12g "";: "" " CONDITIONAL PROFIT TABLE " ""& ITH DATA PERTAINING";B "TO A MARKET INDEX AND SEVERAL POSSIBLE"r "STOCKS TO HOLD. FOR EACH STOCK THE USER"  "INPUTS THE ALPHA AND BETA PARAMETERS" "ALONG WITH THE VARIANCE OF RETURN (OR" "STANDARD DEVIATION OF RETURN = "% . (C$)20 F$(F$,(F$)1): 60015.F$F$C$. 60015/ "INPUT ERROR, PLEASE TRY AGAIN ":: 60010&/:,/(C$) 45 (C$)47 (C$) 57 50065l-F$F$C$x-É 50015-Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005 ";: "FOR STOCK ";I;" ENTER THE FOLLOWING:":_ CN$" -ALPHA ?": 50000:AL(I)(F$) CN$" -BETA ?": 50000:BE(I)(F$) CN$" -VARIANCE ?": 50000:V(I)(F$) V(I)2V(I) 1200OÀPÏ SUBROUTINE FOR DATA INPUTVUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$""  "THIS PROGRAM ASSUMES THERE ARE FROM"S "1 TO 6 POSSIBLE ACTIONS WE CAN TAKE."{ "IF THE STATE OF NATURE (S OF N)" "IS KNOWN THEN EACH ACTIONS LEADS TO" "A KNOWN MONETARY RESULT. THIS RESULT" "IS A CONDITIONAL PROFIT OF ACTIO"VOLATILITY). FOR THE INDEX THE EXPECTED"O "VALUE AND VARIANCE OF RETURN ARE "|$ "ENTERED. THE PROGRAM THEN CALCULATES") "THE PROPORTION. A RISK FACTOR MAY ALSO". "BE INCLUDED. THIS FACTOR TAKES ON VALUES"; 3 "BETWEEN 0 AND 4 OR 5. P P P(I) I# P 1 : 200P : "PROBABILITIES DO NOT SUM TO 1.": CN$"ENTER 1 TO STANDARDIZE " CN$CN$"0 TO START OVER ?": 50000:Z9(F$) Z9 0 Z9 1 10000: 170 Z9  1300  I  "";J CN$"INDEX RETURN ?": 50000:RI(F$) CN$"INDEX VARIANCE OF RETURN ?": 50000:RV(F$) (CN$"ENTER RISK FACTOR ?": 50000:RF(F$) -"";: P 1 12:: P ."***** 50015nÙ C$;sË (C$)13 500701xË (C$)20 (F$)1 50065[}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙN 3"/ "IF ACTION 3 LEADS TO A $35 PAYOFF WHEN"\# "STATE OF NATURE 4 IS TRUE THEN 35 IS"% "THE CONDITIONAL PROFIT OF ACTION 3"( "GIVEN STATE OF NATURE 4.":+ "THE FOLLOWING PROGRAM CONSTRUCTS A "- "MATRIX WITH ELEMENTS BEGIN T THE HIGHER THE "=8 "RISK FACTOR THE MORE DARING THE INVESTOR";k= "SHOULD BE. 0 MEANS VERY CONSERVATIVE."B:CN$"PRESS RETURN TO BEGIN ?":F1: 60000 DATA INPUT "";CN$"NUMBER OF STOCKS BEING "5C 0 105$ I 1 N:P(I) P(I)P: I:P1W CN$"NUMBER OF POSSIBLE " CN$CN$"ACTIONS (<=5) ?": 50000:M(F$) ""; M 2 M 5 M (M) 10000: 200 "NO PAYOFF MORE THAN 9999.9**********COMPUTING****************"3 2 I 1 N:A(I,I)V(I): I] < I 1 N:A(N2,I)1:A(I,N2)1: I FA(N1,N1)2RV:A(N1,N3)1:A(N3,N1)1 P I 1 N:A(N3,I)BE(I):A(I,N3)BE(I): IZ I 1 N:T(I,1)RFAL(I): I:T(N1,Î` SUBROUTINE FOR STRING INPUTeF$"":C$""#j CN$;>o C$: C$"" 60015Tt F 1 F 0:uy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 6001HE CON-"-/ "DITIONAL PROFITS. IN ADDITION, THE"[2 "PROBABILITY OF EACH S OF N IS ENTERED"5 "AND THE EXPECTED VALUE OF EACH ACTION"7 "IS COMPUTED.":_CN$"PRESS RETURN TO BEGIN ":F1: 60000: "";dD6: MAXIMUM DIMENSION fN$CN$"CONSIDERED FOR PORTFOLIO ?": 50000:N(F$)hCN$"ENTER 1 IF STOCK VARIANCE OF RETURN "CN$CN$"IS BEING ENTERED. ENTER 0 IF STOCK "CN$CN$"STANDARD DEVIATION OF RETURN IS " CN$CN$"BEING ENTERED 9": J 1 M "ACTION ";J / I 1 Nu CN$" -PAYOFF WHEN S OF N IS "(I) " ?": 50000:A(I,J)(F$)  I:: J , COMPUTATION 6 "";: P 1 12: @ "************ COMPUTING ********"  J 1 M"  I 1)RFRI:T(N2,1)1 NOW CONVERTING MATRIX A/ J 1 CA@ I J RAII1I` A(I,J)0 2300h I "NO UNIQUE SOLUTION, MATRIX A IS SINGULAR" K 1 RA ASA(J,K):A(J,K)A(I1,K):A(I1,K)AS K AST(e5 C$;F$F$C$ 600155 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015;AF$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010Ù A(D2,D2),P(D),E(D)iP 0]sCN$"INPUT # OF POSSIBLE STATES OF NATURE ?": 50000ixN(F$)} N 2 N D N (N) 10000: 120 I 1 NCN$"PROBABILITY OF S OF N " (I) " ?": 50000:P(I)(F$) ?": 50000:Q(F$)X  Q 0 Q 1 "INPUT ERROR!!!,TRY AGAIN ": 1215 RAN3:CAN3: # ROWS & COLUMNS ON MATRIX  A(N3,N3),T(N3,1),AL(N),BE(N),V(N)  "";  I 1 N  Q 1 1280  "";: "FOR ST 1 N:E(J) E(J) A(I,J) P(I): I: EXP VAL.*  J6  PRINTA  "";X F$(1) " ACTION " F$(3) " COND. PAYOFFS OF ACTION GIVEN S OF N" F$(4) "S PR ACTION " CN$"IS LINE PRINTER OUTPUT DESIRED (Y/N)?"::J,1):T(J,1)T(I1,1):T(I1,1)AS$ AP1A(J,J)). K 1 RA>8 A(J,K)APA(J,K)FB K[L T(J,1)APT(J,1)lV L 1 RA` L J 2460j AP A(L,J)t K 1 RA~ A(L,K)A(L,K)APA(J,K) K T(L,1)T(L,1)APT(J,1) L 60000 Z2$ (F$,1): "";;  Z2$ "Y" Z2$ "N" 10000: 525\  Z2$ "Y" 1,4::1," "u  "";F$(3):: F$(4)  Z2$"Y" 1,F$(3):1,F$(4)  Z2$ "Y" 535 1,7): I 1 M1:1," ";I;" ";: I:1," ";I 3270! I3 (I3) I 0 3300! I5" :CN$"THE END. PRESS RETURN TO RETURN TO MENU":F1: 60000;" i" SUBROUTINE FOR TEN ENTRY SCREEN DISPLAY}" I CN(0) " " CN$"PRESS RETURN FOR MORE ENTRIES ":F1: 60000" "200:FLAG 0'ZA$ "" (::CN$"PRESS Y TO EDIT, RETURN IF NOT ?":F1: 60000)( F$ "" ZA$(F$,1)A( ZA$ "Y" 4005S(I CN(0) 1g( IT 0 4200(P$(I) P$(IT):T(I) T(IT):A(I) A(IT):CN(I)CN(IT)(ZJ 99: 1500 T(I) 0 3000: "";: 158081CN$"AMOUNT OF DEPOSIT ?": 50000:A(I)(F$)r6B(I) B(I1) A(I): ZJ 99 B(I) B(IT1) A(I)}; 1610@CN(I) 2BCN$"WHY CHARGED TO ACCOUNT ?": 60000:P$(I) F$DCN$"CHARGE AMOUNT ?": 50000 20103 SUBROUTINE FOR SETTING UP NEW CHECKBOOK%I 1:DT 1\CN$"INITIAL BALANCE ?": 50000:B(0)(F$)CN$"INITIAL CHECK NUMBER ?": 50000:CN(I)(F$)CN$"INITIAL DATE IN FORM MM/DD/YY ?": 60000:D$(0)F$ ( DD$ ":" CF$:2:1: 2915*g A,B$:2:1:CN$"PRESS RETURN WHEN PROBLEM IS FIXED ":F1=h 60000: 2905am 2,CI:2,CN(0):2,B(0):2,D$(0)r I 1 CN(0): 1350: I 2:1  SUBROUTINE TO REVIEW EXPENSE CATEGORIES "CATEGO ";: 1100" " SUBROUTINE FOR LISTING BY CATEGORIES'# DT0 "";: "SORRY, NO DATA YET"H# DT0 I 1 500: I:# "";:CN$"IS LINE PRINTER OUTPUT DESIRED (Y/N) ?": 60000# Z2$(F$,1): Z2$ "Y" Z2$ "N" 3503#  (ZJ 0( Z8$ "E" 4000(BB(IT): OLD BALANCE/)CN(IT)CN(I):P$(IT)P$(I):T(IT)T(I):A(IT)A(I):B(IT)B(I)C) B B(IT) x) I IT 1 CN(0):B(I) B(I) (B(IT)B): I~))hCN$"INITIAL BALANCE ?": 50000:B(I)(F$))rCN :A(I)(F$)6ECN$"CHARGE CATEGORY (0 TO SEE CATEGORIES) ?": 50000:T(I)(F$)\F T(I) 0 3000: "";: 1605GB(I) B(I1) A(I): ZJ 99 B(I) B(IT1) A(I)H 1610J "";M 1100N 1260O 1200P K 1 2:: D$(0)) 8 2218' "";: NOW WRITE CHECK, MAKE DEPOSIT OR OTHER CHARGE2 15008b` "";: DD$ "1" DD$ "0": 2420nj DD$"1"t "DRIVE ";DD$;" NOW ACTIVE": II 1 1000: II: SUBROUTINE FOR INPUTTING OLD CHECKBOOK FRRY DESCRIPTION" "-------- -----------": " 1. LOAN PAYMENT"C " 2. BANK CARD PAYMENT"f " 3. MEDICAL EXPENSE" THIS SPACE IS FOR YOUR OWN CATEGORIES " 4. HOUSEKEEPING MONEY" " 5. E1 IS TOTAL OF ITEM# E10$ CN$"INPUT CATEGORY NUMBER OF INTEREST ?": 50000:Z5(F$)-$ "";: 1100A$ I 1 CN(0)X$ T(I) Z5 3560c$ 3580w$ 1200:FLAG 0$ CN(I) 1 E1 E1 A(I): 3580$ E1 E1 A(I)$ I:I $"INITIAL DATE ?": 60000D$(I)F$)uZA$""*wCN$"IF OK PRESS Y, ELSE RETURN ":F1: 600003*| F$ "" ZA$(F$,1)H* ZA$ "Y" i*D$(0)D$(I):BB(0):B(0)B(I)z* BB(0) * I 1 CN(0):B(I) B(I) (B(0)B): I** K!QCN$"TYPE E FOR ERROR, ELSE RETURN ?":F1: 60000:Z8$F$3T ZJ 99 JU Z8$ "E" 1623UV 1625~WZ8$"ZZZZ": Z9$ "C" CI CI 1X "";: 1510YCN$"ANY MORE ENTRIES (Y/N) ?": 60000:Z9$(F$,1)^ Z9$ "N" I I OM DISK DT 1+ CN$"WHAT IS THE NAME OF THE DISK CHECK FILE ?": 60000:CF$F$b :::CN$"PRESS RETURN WHEN READY ":F1: 60000 "";: II 1 12:: II 12);"** LOADING DATA **" 1,8,15 2,8,2, DD$ ":" CF$ ",SEQ MORTGAGE" " 6. HOME EXPENSE, UTILITIES,ETC"0 " 7. STORE CHARGE CARD PAYMENT"T " 9. BUSINESS EXPENSE"u "10. OTHER EXPENSE" "50 PAYCHECK DEPOSIT" "51. CONSULTING FEE" "52.  I 1$ Z2$ "Y" 1,4:1 % " ": "TOTAL FOR THIS ITEM = $";E1!% Z2$ "Y" 1:1[% ::CN$"PRESS RETURN TO RETURN TO MENU ":F1: 60000a%y%< SUBROUTINE TO END%A "";%FCN$"ARE YOU SURE YOU WANT TO END (Y/N) ?": 60000:' ** ROUTINE TO FORMAT OUTPUT ***'XX ((XX.005)100)100+$'XX$(XX):TEMP$(XX$,3)B+)' (TEMP$,2,1) "." XX$ XX$ "0": 10040n+.' (TEMP$,1) "." XX$ XX$ ".00"+8'TT0: II 1 (XX$)+=' (XX$,II,1) "." TT TT 1 1: 1690c Z9$ "Y" 1650 h 1625(rI I 1: "";: 15106CN(0) I<R MENU SUBROUTINE] ""; " CHECKBOOK MAINTENANCE PROGRAM"Z2$"N" YY$:: "CHOOSE NUMBER OF DESIRED OPTION": "1. SET UP " 1,A,B$,C,D: A 0 25251 A,B$:2:1:CN$"PRESS RETURN WHEN PROBLEM IS FIXED"H F1: 60000: 2500l 2,CI:2,CN(0):2,B(0):2,D$(0) I 1 CN(0): 1300: I:I I 1 2:1 ""; ( SUBROUTINE TO ADD TO CHECKB MEDICAL REIMBURSEMENT" "53. OTHER BUSINESS INCOME"/ "54. MISC. DEPOSITS"5  e  CN$"PRESS RETURN TO RETURN ":F1: 60000k  SUBROUTINE TO REVIEW CHECKBOOK DT 0 "";: "SORRY, NO DATA YET" DTZ3$(F$,1)%P Z3$ "N" %Z Z3$ "Y" &d "INPUT ERROR. TRY AGAIN.": 3910+& EDIT ROUTINEX& DT 0 "";: "SORRY, NO DATA YET"{& DT 0 I 1 500: I:&Z2$ ""& "";:CN$"ENTER ITEM NUMBER TO EDIT (-1 TO E+B' II:+OÀ+PÏ SUBROUTINE FOR DATA INPUT#,UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"W,ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDr,_á C$: C$"" 50015,dË C$(13) F$"" F1 F0:::,iË (C$)13 FNEW CHECKBOOK" "2. SWITCH DISK DRIVES (DEFAULT = 0)"8 "3. ADD TO OLD CHECKBOOK"S "4. NOT IMPLEMENTED" "5. REVIEW OF CHECK EXPENSE CATEGORIES"  "6. PRINT OR LINEPRINT CHECKBOOK" "7. LIST BY CATEGORY" "8. LOAD OLD CHEOOK- DT 0 "";: "SORRY, NO DATA"$. DT 0 II 1 1000: II:/2 150067 2<< B H, T SUBROUTINE FOR OUTPUTTING OLD CHECKBOOK TO DISKETTEU DT 0 "";: "SORRY, NO DATA YET"V DT 0 I 1 1000:  0 I 1 500: I:! CN$"IS OUTPUT ON LINE PRINTER DESIRED (Y/N) ?": 60000,! Z2$(F$,1)f! Z2$ "Y" Z2$ "N" "INPUT ERROR!": 3204q! "";{! I 1! 1100! 1260! I 1 CN(0)1! 1200! Z2$ "Y" ND) ?": 50000&IT (F$)& IT 1 %' IT 0 IT CN(0) IT (IT) "INPUT ERROR!c' IT 0 IT CN(0) IT (IT) JJ 1 500: JJ' IT 0 IT CN(0) IT (IT) 4010' "";:I IT: 1100:FLAG1: 1$"" 50015,nÙ C$;,sË (C$)13 50070-xË (C$)20 (F$)1 50065,-}Ë (C$)20 F$(F$,(F$)1): 50015_-Ë (C$) 45 (C$)47 (C$) 57 50065l-F$F$C$x-É 50015-Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005CKBOOK FROM DISKETTE"  "9. OUTPUT CHECKBOOK TO DISKETTE"9% "10. EDIT CHECKBOOK ITEM"V& "11. END THIS PROGRAM"\(*CN$"INPUT OPTION # ?": 50000:Z(F$)- "";. Z 2200,2400,2600,2800,3000,3200,3500,2500,2900,4000,39001I:Y "";!^ CN$"ENTER THE DISK FILE NAME FOR OUTPUT ?": 60000:CF$F$\` "";: II 1 12:: II: 12);"** SAVING DATA **"ic 1,8,15d 2,8,2, DD$ ":" CF$ ",SEQ,WRITE"e 1,A,B$,C,D: A 0 2925f A 63 1,"S" TIME FOR DAY OF WEEK GIVEN"< j "FORM SHOULD BE: A OR P,HR IN MIN IN,"[ l "A OR P, HR OUT MIN OUT"| n "TO END DAY ENTER D,0,0,0 p "TO END WEEK ENTER W,0,0,0 r w: X$(XD) zCN$"INPUT A OR P ?": 60000:AI$(X)F$ {CN$"TIME IN X1) "D" AI$(X1) "W" 40325(y: Z2$ "Y" 1," "^z X$(XD);12);"TOTAL = ";21);TQ(XD);35);" HRS."w{ Z2$ "Y" 40320}1,X$(XD);12(X$(XD)));"TOTAL =";2);TQ(XD);~1,12((TQ(XD))));"HRS."XD XD 1: 40359 X1 1 10:1," ": X1*Q5Q51: Q5 1 Z2$ "Y" 1:14/ Q5 1 40005@4 40300FOÀfPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTT *******************5 ** CHECKBK1 **O *******************e 59468,12: ""; "" " CHECKBOOK MAINTENANCE PROGRAM " ""( TT:B$XX$4  4H1);I;7H2);CA$;11H3);D$(I);17H4);P$(I);[  10H5);T$;10H6);A$;10H7);B$e 1:1o HT20  "CHK NO. :";HT);CN(I)  "DATE : ";HT1);D$(I)  "ISSUED TO : ";HT1);P$(I)  "TYPE  ?": 50000:AI(X)(F$)5 |CN$"INPUT A OR P ?": 60000:AO$(X)F$b }CN$"TIME OUT ?": 50000:AO(X)(F$)  AI$(X) "A" AI$(X) "P" AI$(X) "D" AI$(X) "W" 40070 10000: 40058 AI$(X) "D" AI$(X) "W" X X 1: 4 AI$(X1) "D" AI$(X1) "W" 35);" HRS. ":XDXD1CAI(X1)((AI(X1).005)100)100|AO(X1)((AO(X1).005)100)100:: Z2$"Y" 1," " (AI(X1));":";((AI(X1)100),2);" ";AI$(X1); ".M. TO ";(AO(X1));":";((AO(X1)100),2);"  ED_á C$: C$"" 50015 dË C$(13) F$"" F1 F0:::AiË (C$)13 F$"" 50015KnÙ C$;dsË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 46 (C$)47 (C$)  "THIS SELF-DOCUMENTING PROGRAM WILL KEEP"W "TRACK OF ALL CHECKBOOK ITEMS. DEPOSITS" "AND EXPENSES MAY BE CATEGORIZED. UP TO" "100 CATEGORIES ARE ALLOWED. CATEGORIES" "ENTERED FROM PROGRAM. LINES 3020-3089." "CHECKBOOK ITEMS  :";HT);T(I)"  "AMOUNT :";HT);A(I)F  "BAL. :";HT);B(I):  ZN$"N" CN$"PRESS RETURN TO CONTINUE":F1: 60000   SUBROUTINE FOR PRINTING PREVIOUS BALANCE  Z2$ "N" Z2$ "" 1267 1,4:1:I$(I):H10058' AI$(X) "D" XD XD 1:X X 1: 40055B AI$(X) "W" 40100g WEEK FINISHED. START COMPUTING J8 1 7:TQ(J8)0: J8 TQ(T) = TOTAL DAY I X1 1 X:TP(X1) 0: X1 T(I) = TOTAL FOR ENTRY I œD8 1: ";AO$(X1); ".M. ";%: "TOTAL HOURS = ";TP(X1); "HOURS"> Z2$ "Y" 40359s1,(AI(X1));":";((AI(X1)100),2);" ";AI$(X1);1,".M. TO ";(AO(X1));":";((AO(X1)100),2);" ";AO$(X1);1,".M. ";:1," "1,"TOTAL HOURS = ";T57 50065F$F$C$É 500150Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 500058Ù:>Î`` SUBROUTINE FOR STRING INPUTpeF$"":C$""{j CN$;o C$: C$"" 60015t F1 F$ "" (C$) 13 F0:::y (C$) 13 MAY BE STORED ON ": "DISKETTE AND READ IN FROM DISKETTE."i "AT PRESENT, DIMENSIONING IS SET UP FOR" "A MAXIMUM OF 300 ITEMS IN YOUR CHECKBOOK"; "AT ANY ONE TIME. THIS MAY BE CHANGED" "BY CHANGING DIMENSION VARIABLE V IN"  (I$) H2(D$(I1))* XXB(I1): 10000:H3TT:B$XX$W  2);0;18H2);D$(I1);48H3);B$:1:1a HT20  "DATE :";HT1);D$(I1)  "BALANCE :";HT);B(I1)    ROUTINE FOR INPUTTING CHECKBOOK INFO FROM DISKD8 = DAY ̜ X1 1 X1 ќ AI$(X1) "D" D8 D8 1: 40200` ֜SI 60 (AI(X1))100(AI(X1)(AI(X1))) SO 60 (AO(X1))100(AO(X1)(AO(X1))) ꜋ AI$(X1) "A" AO$(X1) "P" AO(X1) 12 SO SO 720  AI(X1) 12 AO(P(X1);" HOURS" X1: Z2$ "Y" 1," "; 20);"GRAND TOTAL = ";(100TT.5)100w Z2$ "Y" 1,20);"GRAND TOTAL = ";(100TT.5)100 Z2$"Y" 1," ": "REGULAR HOURS =";(100TR .5)100; "OVERTIME HOURS =";(100T0.5F$"" 60015~ (C$) 13 60065% (C$) 20 (F$)1 60060/ C$;Y (C$)20 F$(F$,(F$)1): 60015fF$F$C$r 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010:(C$) 46 (C$)47 (C$)  "LINE 101. TO RUN PROGRAM DELETE REM"E! "STATEMENTS FOR MEMORY SPACE."M#:|(CN$"PRESS RETURN TO BEGIN ":F1: 600002 "";:<DD$"0"FYY$"----------------------------------------"eV 300f CN(V),D$(V),P$(V),T(V),A(V),B #2,CN(I),D$(I),P$(I),T(I),A(I),B(I) (V F SUBROUTINE FOR OUTPUTTING CHECKBOOK INFO. ONTO DISK U2,CN(I):2,D$(I):2,P$(I):2,T(I):2,A(I) V2,B(I) X  SUBROUTINE TO ENTER NEW ENTRY  "";CN$"INPUT DATE ?": 60000:D$(I)X1) 12 SO SO 720: 40185@ AI$(X1) "P" AO$(X1) "A" SO SO 720XTP(X1) (SOSI)60TQ(D8) TQ(D8) (SOSI)60: COMPUTE TIME TP & SUM TIME FOR DAY X1 TT = TOTAL TIME FOR WEEKTT0:TR0: J8 1 D8:TT TT)100 Z2$ "Y" 1,"REGULAR HOURS = ";(100TR.5)100;W Z2$"Y" 1," OVERTIME HOURS = ";(100T0.5)100u Z2$"Y" 1," ":1," "}:Z4TR:Z5T0Ɲ Z2$"Y" 1:1ǝCN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";CK ENTRY OPTION"CN(I)CI:CICI1+  ZJ 99 CI CI 1Z:CN$"CHECK ISSUED TO ?": 60000:P$(I)F$CN$"CHECK CATEGORY (0 TO SEE CATEGORIES) ?": 50000:T(I)(F$) T(I) 0 3000: "";: 1555CN$"CHECK AMOUNT ?": 50000:A((V) n CHECK MENUx 20009L SUBROUTINE PRINTING FORMATSNV Z2$ "Y" \X 1,4: 1Z"ITEM CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL"\"---- ------ ---- -------------- ---- ------ --F$: (D$(I)) 8 15109: "C = CHECK, D = DEP, CM = MISC CHARGE ":_CN$"TYPE ENTRY ?": 60000:Z9$F$v Z9$ "C" 1535 Z9$ "D" 1570 Z9$ "CM" 1600 "INPUT ERROR. TRY AGAIN": 1515 "";: " CHE TQ(J8): J8 OVERTIME0TRTT?:TT (100TT.5)100:T0(100T0.5)100[l PRINTOUT FOR EMPLOYEEfn "";{p Q5 1 40025qXD1: "EMPLOYEE NUMBER ";CN:r Z2$"Y" 1,20);"EMPLOYEE NUMBER ";CNv X1 1 X x AI$(ȝ Q5 0 40395ɝCN$"REGULAR HOURS ?": 60000:TR$F$DʝCN$"OVERTIME HOURS ?": 60000:T0$F$|˝ TR$ "" TR (TR$): T0$ "" T0 (T0$)̝TT TR T0Н Z2$ "N" 40025 1,4 X1 1 10:: X1% Z2$ "Y" I)(F$)#B(I)B(I1)A(I): ZJ99 B(I) B(IT1)A(I)PCN$"CHECK NUMBER ?": 50000:CN(I)(F$)[! 1610j"CN(I) 1'CN$"WHAT WAS DEPOSITED ?": 60000:P$(I)F$,CN$"DEPOSIT CATEGORY (0 TO SEE CATEGORIES) ?": 50000:T(I)(F$)-]1:1 ^J  Z2$ "N" Z2$ "" 1224: SUBROUTINE FOR PRINTING CHCKBK INFOW  1,4:1l I$(I):H1(I$) CA$(CN(I)):H2(CA$) H3(D$(I)):H4(P$(I)) T$(T(I)):H5(T$) XXA(I): 10000:H6TT:A$XX$ XXB(I): 10000:H7$)13 F$"" 500156nÙ C$;6sË (C$)13 500706xË (C$)20 (F$)1 50065!7}Ë (C$)20 F$(F$,(F$)1): 50015T7Ë (C$) 45 (C$)47 (C$) 57 50065a7F$F$C$m7É 500157Ù: "INPUT ERROR, PLEASE TRY AGAIN ": *****************1 ** BONDVAL **I *****************X 59468,12c ""; "" " BOND EVALUATION " ""'N) <MTT4(T1T2T3) FB1BUY CBUY# P> x COUPON INTEREST RATEm T1((1I)J(1I)(N))I:T2T1MT(1TAX) T3(MT(MT(BUYCBUY))GT)(1I)N:T4JMT(1TAX) C(BUYCBUYT3)(T2T4) B1BUY CBUY   YIELD TO MATURITY000:N$F$:N(F$):CN$"ANNUAL COUPON INTEREST RATE ?": 50000:C$F$:C(F$){CN$"ANNUAL YIELD TO MATURITY ?": 50000:I$F$:I(F$)CN$"CAPITAL GAINS TAX RATE ?": 50000:CGT$F$:CGT(F$)CN$"INCOME TAX RATE  (C$) 57 50065F$F$C$ É 50015?Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005GÙ:MÎo` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F1 F$ "" (C$) 13 F0:::y ( : 500107Ù7Î7` SUBROUTINE FOR STRING INPUT7eF$"":C$""7j CN$;8o C$: C$"" 6001508t F1 F$ "" (C$) 13 F0:::Q8y (C$) 13 F$"" 60015n8~ (C$) 13 600658 (C$) 20 (F$)1 600608  "WHEN CONSIDERINT THE VALUE OF BONDS"T "ITEMS WHICH SHOULD BE CONSIDERED IN-"~# "CLUDE YIELD TO MATURITY, TIME TO "( "MATURITY, MATURITY VALUE, CURRENT VALUE,";- "AND COUPON INTEREST RATE. GIVEN ANY FOUR";2 "OF THE ABOVE, THIS I .1 B1 BUY CBUY/ T1 BUY CBUY J C MT] T2CMT(1TAX):T3((1I)J(1I)(N))I T4MT(MT(BUYCBUY))CGT:T5(1I)(N) FT1T2T3T4T5  (F) .2 T6I((J(1I)(J1)N(1I)(N1)))(1I)J(1I)(N) ?": 50000:TAX$F$:TAX(F$)BJ1(N(N)):CC100:II100:CGTCGT100:TAX TAX 100QC C N1Wfd PRINTOUTiC 100 C:I 100 I:CGT 100 CGT:TAX 100 TAXjC C N1n "";:::x "1. CURRENT PRICE PLUS"}C$) 13 F$"" 60015~ (C$) 13 600654 (C$) 20 (F$)1 60060> C$;h (C$)20 F$(F$,(F$)1): 60015uF$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010:(C$) 46 (C$)47 C$;8 (C$)20 F$(F$,(F$)1): 600158F$F$C$8 600159 "INPUT ERROR, PLEASE TRY AGAIN ":: 600109:9 (C$) 45 (C$)47 (C$) 57 50065a7F$F$C$m7É 500157Ù: "INPUT ERROR, PLEASE TRY AGAIN ": PROGRAM WILL COMPUTE"=7 "THE FIFTH. IN ADDITION, IF DESIRED"l< "INCOME TAXES, CAPITAL GAINS TAXES, AND"A "COMMISSIONS MAY BE CONSIDERED."Z:CN$"PRESS RETURN TO BEGIN ":F1: 60000d "";: 1000 DATA INUT "";: 6000 T7T6I2:T8N(1I)(N1)+ D T2 T7 T4 T8D I I F D: 1510c @ LENGTH OF TIME TO MATUREw EB1 BUY CBUY JT1BUYCBUYJCMT(1TAX):T2CMT(1TAX)(1I)JI TT3 T1 T2: T3 = NUMERATOR ^T4 (MT (MT(BUYCBUY) " COMMISSION :";B1$ "2. MATURITY VALUE OF "J " THE BOND :";MTc "3. ANNUAL COUPON" " INTEREST RATE :";C "4. ANNUAL YIELD TO" " MATURITY OF BOND :";IN1 "5. LENGTH OF TI ******************3 ** TIMECLCK **L ******************` 59468,12:Q50k ""; "" " TIME CLOCK " ""THERE IS THE OPTION TO MAN-"EZ "UALLY OVERRIDE THE DIVISION OF REGULAR"d_ "VERSUS OVERTIME HOURS."jdxCN$"PRESS RETURN TO CONTINUE ":F1: 60000 40000' INPUT ERROR SUBROUTINE'PRITN "INPUT ERROR!!!, TRY AGAIN!".'@ "";I "ENTER NUMBER OF THE VARIABLE TO BE COMPUTED"O x "1. CURRENT PRICE PLUS COMMISSION" "2. MATURITY VALUE OF THE BOND$ "3. COUPON INTEREST RATE". "4. YIELD TO MATURITY OF THE BOND" 8 "5. LENGTH )CGT) cT8 T2 (1I)J3 hT5T3(T4T8):T6(T5)(1I):T7T6> rN T7D |` p DATA INPUT SUBROUTINE r "";: "INPUT THE FOLLOWING AMOUNTS." s t "PRESS ENTER WHEN AN ITEM SHOULD BE COMPUTED. POSSIBLE FIELDS""u "FOR COME TO"  " MATURITY (PERIODS) :";N: "6. INCOME TAX RATE :";TAXW "7. CAPITAL GAINS TAX"~ " RATE :";CGT "8. NUMBER OF INTEREST " " PAYMENTS PER YEAR :";N1:CN$"PRESS RETURN FOR* "THIS PROGRAM USES AS INUT THE USUAL"X# "INFORMATION ON THE COMINGS AND GOINGS"( "OF EMPLOYEES STAMPED BY A TIME CLOCK"- "ON THE EMPLOYEE'S TIME CARD. AS THE"2 "OUTPUT THE COMPUTER GIVES A SUMMARY" 7 "OF THE NUMBER OF HOURS  TIME CLOCK)B AI$(30),AI(30),AO$(30),TP(30)6C AO(30)AE "";FCN$"ENTER Y IF PRINTER DESIRED, N IF NOT ?": 60000:Z2$(F$,1)G Z2$ "Y" Z2$ "N" 10000: 40006H Z2$ "Y" 1,4 J MONDAY,TUESDAY,WEDNESDAY,THURSDAYOF TIME TO MATURITY">L:CN$"MAKE YOUR CHOICE ?": 50000:CC(F$)bV CC 1200,1300,1400,1500,1600` CC 1 CC 5 CC (CC) 10000: 1000j "";: 6500: PRINTOUT 1000 CURRENT PRICE PLUS COMMISSION T1((1I)J(1NSIDERATION ARE COMMISSION,CAPITAL GAINS, AND INCOME";8v " TAX RATES.":}zCN$"PURCHASE PRICE PER BOND ?": 50000:BUY(F$):BUY$F$CN$"COMMISSION PER BOND ?": 50000:CBUY(F$):CBUY$F$CN$"MATURITY VALUE  MORE COMPUTATIONS ":F1: 60000@' "INPUT ERROR!!!,TRY AGAIN": JJ 1 500: JJ:tt'CN$"PRESS RETURN TO CONTINUE ":F1: 60000:zOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"THE EMPLOYEE"5< "HAS WORKED EACH DAY, ALONG WITH THE"eA "TOTAL OF HOURS FOR THE WEEK. THE WEEKLY"F "HOURS ARE DIVIDED INTO REGULAR AND"K "OVERTIME HOURS, WITH OVERTIME HOURS"P "CONSIDERED TO BE THOSE HOURS GREATER"U "THAN 40. ,FRIDAY,SATURDAY,SUNDAY O "";7 T J8 1 7: X$(J8): J8Z Y "";: BEGIN FOR AN EMPLOYEEc ZQ50 [CN$"EMPLOYEE NUMBER ?": 50000:CN(F$): LINK TO COMPUTE ^J11: DAY OF WEEK ARE ON cX1:XD1: X = ENTRY:XD=DAY e h "ENTER I)(N))I:T2CMT(1TAX)T1= T3MT(1CGT)(1I)NJC(1TAX)MT\ B1(T2T3)(1CGT(1I)N)b   CURRENT PRICE PLUS COMMISSION T1C(1TAX)((1I)J(1I)(N))I (T2(1CGT)(1I)N:T3JC(1TAX) 2T4(BUYCBUY)(1CGT(1I) ?": 50000:MT(F$):MT$F$:CN$"NUMBER OF INTEREST PAYMENTS "CN$CN$"PER YEAR ?": 50000:N1$F$:N1(F$)CN$"NUMBER OF PAYMENT PERIODS "CN$CN$"TO MATURITY ?": 50ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED+_á C$: C$"" 50015PdË C$(13) F$"" F0::::ZnÙ C$;ssË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 46 (C$)47  CURRENT 30-60 60-90 90+"0Z#F$(5)"-- ----- ------- ----- ----- ---".1n#F$(7)"PMTS LAST MTH CHGES LAST MTH CUM CHGES"d1o#F$(10)"------------- -------------- ---------"j1#1' INPUT ERROR SBR1' "INPUT ERROR! TRY AGAIN!": 2TTXX V(3): 20000:V3$XX$:H3TT XX V(4): 20000:V4$XX$:H4TTY "TOTALS";10H1);V1$;6H2);V2$;7H3);V3$;7H4);c V4$ ZZ 1 40: "-";: ZZ O 1 1:1F " ": 10100KP COMPLETE CUSTOMER LISTR O  0: V(2) 06 F$(1): F$(2); O 1 1:1 @ J 1 NI J 63003 OV(0) V(0) B(J,1)[ T B(J,1) 0 V(1) V(1) B(J,1) Y B(J,1) 0 V(2) V(2) B(J,1) ^ O 0 J8 (J8) :: 10100: ""; c J: O 1 $:HTT: 10H);A$;&CN$" CUMUL. CHGES ?":F1: 50000: F$ "" A(I,7) (F$)&D& SBR FOR INPUTTING DATA FOR 1 INOICEO& "";&: "ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT":&H(B$(I,0)): 8H);B$(I,0);&CN$" ITEM NUMB (J):H0(JJ$)+H (B$(J,0))+B0$(B(J,0)):H1(B0$),XXB(J,1): 20000:B1$XX$:H2TT",H3(B$(J,1))Y, 3H0);JJ$;7H);B$(J,0);7H1);B0$;10H2);B1$;o, 12H3);B$(J,1), O 1 1:1,,X POST TO ACCTS,b "";,lC Z9 1 700: Z91$'1t':CN$"PRESS RETURN TO CONTINUE ":F1: 60000:2' Y,N,A SBR2' O 1 1:1$2'Z9$ " "_2'::CN$"ENTER Y IF OK, N IF ERROR, A TO ABORT ?":F12' 60000:Z9$(F$,1): O 1 1,42' Z9$ "Y" Z9$ 0 "";U " ":F$"CUSTOMER LIST": " ";F$!_ I 1 NC?d A$(I,1) "9999" 5260Je "";bi O 1 1,4: 1j O 1 I 1 " ";F$k O 0 "";n " ": F$(4): F$(5)o O 1 1:1 1,4: 1!dXXV(1): 20000:V1$XX$:H1TT: O 0 10100%!eXXV(2): 20000:V2$XX$:H2TTG!fXXV(0): 20000:V0$XX$:H3TT!g " ": "----------------------------------------": " "!h "TOTAL CHARGES :";22H1);V1$!j "TOTAL PAYMENTS :" ER ?":F1: 60000: F$ "" B$(I,0)F$'XXB(I,0): 20000:B$XX$: 7TT);B$;X'CN$" CUSTOMER NUMBER ?":F1: 50000: F$"" B(I,0)(F$)' B(I,0) NC B(I,0) (B(I,0)) "ILLEGAL VENDOR NUMBER"' B(I,0) NC B(I,0) N$"POSTING ACCTS-PRESS Y TO PROCEED N RETURN ?": 60000,qZ9$ (F$,1)-v Z9$ "N" 4- Z9$ "Y" 10000:: 7020_- I 1 NC:A(I,5) 0:A(I,6) 0: Ip- I 1 NI- B(I,1) 0 A(B(I,0),6) A(B(I,0),6) B(I,1): 708 "N" Z9$ "A" 10000: 102052'2<( Y,N SBR2A(Z9$ " " 3F(CN$"ENTER Y IF OK, N IF ERROR ?": 60000:Z9$(F$,1)P3P( Z9$ "Y" Z9$ "N" 10000: 10305V3Z(l3( MORE ENTRY? SBRz3(Z9$ " "3(CN$"DO YOU DESIRE MORE ENTRIES s 6100: " "w O 1 1,4: 1: " "x F$(7): F$(10)#y O 1 1:1.} 6150J O 0 :: 10100:R IX COMPLETE CUSTOMER LIST PLUS INVOICES ""; O 1 1,4: 1 " ":F$"CUSTOMER LIST": " ;22H2);V2$!l "CHG-PAYMENTS :";22H3);V0$3"m " ": "----------------------------------------": " "H"w O 0 10100\"x O 1 1:1b"{"p SBR FOR INPUTTING DATA ON 1 VENDOR"zA(I,0) I"H(A$(I,1)): 11H);A$(I,1);"  (B(I,0)) 6065( A$(B(I,0),1)"9999" "ILLEGAL CUSTOMER NUMBER": 60659(XXB(I,1): 20000:B$XX$: 7TT);B$;~(CN$" ITEM AMOUNT ?":F1: 50000: F$"" B(I,1)(F$)(H(B$(I,1)): 10H);B$(I,1);(CN$" COMMENT 0-A(B(I,0),5) A(B(I,0),5) B(I,1)- I-'.CN$"ARE OWED BY DATE AND CUMULATIVE BILL TO BE UPDATED (Y/N) ?"?. 60000:Z3$(F$,1)n. Z3$ "Y" Z3$ "N" 10000: 7100. Z3$ "N" . UPDATE FILES.NI0:B$(1,0) "" (Y/N) ?": 60000:Z9$(F$,1)3( Z9$ "Y" Z9$ "N" 10000: 104053(4) ONLY Y/N SBR-4) Z9$ "Y" Z9$ "N" 1000034)d4* ELIMINATES TRAILING BLANKS OF VARIABLE Z8$4+ (Z8$,1) "" Z8$ (Z8$,(Z8$)1): 110104 +  ";F$: " " O 1 1:1 I 1 NC$ A$(I,1) "9999" 5360F O 1 I NC 1,4:1a J 1 7:V(J)0: Jv O 0 ""; " ": F$(4): F$(5) O 1 1:1 6100: O 1 1,4: 1: " " CN$" CUST. NAME ?":F1: 60000:A$(I,1) (F$,5)$#XXA(I,1): 20000:A$XX$:HTT: 10H);A$;f#CN$" CURRENT OWED ?":F1: 50000: F$ "" A(I,1) (F$)#XXA(I,2): 20000:A$XX$:HTT: 10H);A$;#CN$" 30-60 OWED ?":F1: 50000: F$  ?":F1: 60000: F$"" B$(I,1)F$( ) PRINT 1ST LIENE ON CRT/PRINTER$) O 1 1,4:1@)A0$(A(I,0)):H1(A0$)d)XXA(I,1): 20000:A1$XX$:H2TT)XXA(I,2): 20000:A2$XX$:H3TT)XXA(I,3): 20000:A3$XX$:H4TT)XX :B(1,0)0:B(1,1) 0:B$(1,1)"". I 1 NC.A(I,7) A(I,7) A(I,6)?/A(I,4) A(I,4) A(I,3):A(I,3) A(I,2):A(I,2)A(I,1):A(I,1)A(I,6)X/  NOW APPLY PAYMENTSh/AA A(I,5)}/ J 4 1 1/ AA 0 7290/  A(I,J) 0 729 4 N ** ROUTINE TO FORMAT OUTPUT **4*NXX ((XX .005)100)10054NXX$(XX):TEMP$(XX$,3)359N (TEMP$,2,1) "." XX$ XX$ "0": 20040_5>N (TEMP$,1) "." XX$ XX$ ".00"z5HNTT0: II 1 (XX$)5MN (XX$,II,1) "." TT T  F$(7): F$(10): O 1 1:1 6150:: O 1 1,4:12 F$(1): F$(2): O 1 1:1C J 1 NIr B(J,0) I 6300:V(1) V(1) B(J,1)z J " " O 1 1,4: 1: " " O 1 "CHANGE IN OWED THIS MO  "" A(I,2) (F$)$XXA(I,3): 20000:A$XX$:HTT: 10H);A$;H$CN$" 60-90 OWED ?":F1: 50000: F$ "" A(I,3) (F$)w$XXA(I,4): 20000:A$XX$:HTT: 10H);A$;$CN$" 90+ OWED ?":F1: 50000: F$ "" A(I,4) (F$)$ A(I,4): 20000:A4$XX$:H5TT)H6(A$(I,1))* 3H1);A0$;6H6);A$(I,1);7H2);A1$;6H3);A2$;5* 7H4);A3$;7H5);A4$I* O 1 1:1O*w* PRINT CUSTOMER SECOND LINE ON CRT* O 1 1,4:1* O 0 *XXA(I,5): 200 0/*A(I,J) A(I,J) AA: A(I,J) 0 AA0: 7290/4AA A(I,J):A(I,J) 00z J0A(I,1) AA A(I,1)!0 I'0\0(#F$(1)"NO. ITEM# CUST# ITEM AMT COMMENT"0)#F$(2)"-- ----- ----- --------- -------"0P#F$(4)"CS NAME T 15RN II5\N5OÀ5PÏ SUBROUTINE FOR DATA INPUT6UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"L6ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDg6_á C$: C$"" 500156dË C$(13) F$"" F1 F0:::6iË (C NTH = ";V(1): " " O 1 "---------------------------------------":1:11 O0 : 101009 I?[ COMPLETE INVOICE LISTf" "";~# O 1 1,4: 1$:'F$"INVOICE LIST": " ";F$: " ",V(0) 0:V(1) XXA(I,5): 20000:A$XX$:HTT: 10H);A$;,%CN$" PAY LAST MONTH ?":F1: 50000: F$ "" A(I,5) (F$)[%XXA(I,6): 20000:A$XX$:HTT: 10H);A$;%CN$" CHG LAST MONTH ?":F1: 50000: F$ "" A(I,6) (F$)%XXA(I,7): 20000:A$XX 00:A5$XX$:H7TT*XXA(I,6): 20000:A6$XX$:H8TT +XXA(I,7): 20000:A7$XX$:H9TT4+ 12H7);A5$;15H8);A6$;10H9);A7$L+ O 1 " ":" "`+ O 1 1:1f++ PRINT 1 INVOICE LINE ON CRT/PRINTER+ O 1 1,4:1+JJ$!STED";1s "A NEGATIVE QUANTITY MEANS THAT THE USER";ix " HAS FINISHED INPUTTING THE DATA. "::CN$"PRESS RETURN TO BEGIN ":F1: 60000I 0 I 2 (I2) ""; "FOR ITEM # ";I1;" ENTER THE FOLLOWING:":' C$;  (C$)20 F$(F$,(F$)1): 60015-F$F$C$9 60015l: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015rx,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ER! ****************/ ** ACCTREC **F ****************U 59468,12` ""; "" " ACCOUNTS RECEIVABLE PROGRAM " ""  "THI!' XCN$"ENTER YOUR CHOICE ":: 50000:Z9(F$)` _ Z99 CN$"ARE YOU SURE YOU WANT TO QUIT (Y/N) ?" ` Z99 60000: (F$,1) "Y" "";: b Z9 1000,2000,2100,2200,2300,3000,5000,7000 l 500  ADD TO OR START FILE ALREADY I! RITE" 1,A,B$,C,D: A 0 2330% A 63 2325O 1,"S" DD$ ":" ZN$:2:1: 2321` A,B$:2:1 CN$"PRESS RETURN WHEN PROBLEM CORRECTED ":F1: 60000: 2310 2,NI$ I 1 NI: 2850: I) I 1 NC: 2650: I! CN$"CURRENT YEAR QUANTITY "i CN$CN$"(NEGATIVE ENDS) ?": 50000:QC(I1)(F$) QC(I1) 0 300 CN$"BASE YEAR PRICE ?": 50000:PB(I1)(F$) CN$"CURRENT YEAR PRICE ?": 50000:PC(I! ? I 0 %D A(I,0)I: F$(4): F$(5): 6100: F$(7): F$(10)2I 6150:=N 6000RX : 10100: 3110h EDIT SUBROUTINEnxI 0CN$"ENTER # OF ITEM YOU WISH TO EDIT, 0 IF NONE ?": 50000I(F$) I 0 ! S PROGRAM IS A BALANCE FORWARDING"N "ACCOUNTS RECEIVABLE SYSTEM. WHAT THIS"z "MEANS IS THAT PAYMENTS DON'T ACCRUE" "TOWARDS ANY INDIVIDUAL INVOICE BUT" "TOWARDS LUMP SUM BALANCES RECEIVABLE." "THIS TYPE OF A/R SYSTEM IS TYPICA! N MEMORY'  "";:: NI 0 "NEW FILE": 101006 I NI 1> JIZ  6050: INPUT 1 RECORD  "";:: F$(1): F$(2): 6300: PRINT 1 RECORD  10200: Z9$ "N" 1020  Z9$ "A" $NI NI 1: NEW RECORD ON FILE . 10!A "";B 2:1L $ INPUT 1 CUSTOMER FROM DISKETTE[ 2,A(I,0):2,A$(I,1):2,A(I,1):2,A(I,2):2,A(I,3) 2,A(I,4):2,A(I,5):2,A(I,6):2,A(I,7) Z8$ A$(I,1): 11000:A$(I,1) Z8$ Z OUTPUT 1 CUSTOMER TO DISKETTEd 2,A(I!1)(F$) : I I 1: 145) ,N 0:D 0i 6 J 1 I:N N PC(J) QC(J):D D PB(J) QC(J): Jt @ ""; J P 1 12:: P T " THE PAASCHE PRICE INDEX " Y " EQUALS ";ND 100 ^:CN$" PRES!KJ:JI: "";: F$(1): 6300: 6050 "";:JK: 4025&: 6000J "";: " ";F$(2): " ";F$(3)u J (K12)121 K:J$(J):H(J$) 3H);J$;: 6100: J 4020 REPORT GENERATOR "";::" REPORT MENU!LLY"" "USED BY PROFESSIONALS."N( "EXAMPLE, MONEY OWED ON CHARGE CARDS IS"z* "INVOICES ARE KEPT ON FILE UNTIL THE", "MONTH'S END. LINE PRINTER OUTPUT IS". "SUPPORTED. DATA FILE MAY BE STORED ON"0 "EITHER CASSETTE OR DISKETTE. S!400: MORE? 8 Z9$ "Y" 1010 98  "";: "ACTIVE DRIVE :";`  DD$"1" DD$"0": 15);0: 2030u DD$"1": 15);1  ZZ 1 2000: ZZ: 4 "";: 25);"PRINTER :"; > O1 O0: "OFF": 2130 HO1: "ON" R ZZ 1 2!,0):2,A$(I,1):2,A(I,1):2,A(I,2):2,A(I,3)e 2,A(I,4)@f 2,A(I,5):2,A(I,6):2,A(I,7)Fn i INUT 1 INVOICE FROM DISKETTE 2,B$(I,0):2,B(I,0):2,B(I,1):2,B$(I,1) " OUTPUT 1 INVOOICE TO DISKETTE, 2,B$(I,0):2,B(I,0):2,B(I,!S RETURN FOR MORE ":F1: 60000# h "";: 140) OÀI PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"!" "1. AGED RECEIVABLES REPORT"& "2. COMPLETE CUSTOMER LIST"V "3. COMPLETE CUSTOMER LIST WITH INVOICES"v "4. LIST OF ALL INVOICES" "5. END LIST PROGRAM":CN$"ENTER APPROPRIATE CHOICE ?": 50000:Z9(F$) Z95 !EE THE")2 "ACCOMPANYING DOCUMENTATION FOR "C4 "INSTRUCTIONS."::r8CN$"PRESS RETURN TO BEGIN ":F1: 60000:: "";;NC25: A(NC1,7),A$(NC1,1): MAX CUSTOMERS IN SYSTEM<MI200: B(MI,1): B$(MI,1): MAX INVOICES IN SYSTEM =!000: ZZ:  READ IN FILE FROM DISKG  "";:: "PUT DATA DISK IN DRIVE": 10100  "";::CN$"ENTER NAME OF FILE TO BE READ ?": 60000 ZN$F$: "";: ZZ 1 12:: ZZ: 12);  "** READING DATA **":  1,8,15 2,8,2, DD$!1):2,B$(I,1)6  EDIT FILE "";:O CN$"EDIT INVOICE FILE(I) OR CUSTOMER FILE(C) ?": 60000_ Z9$(F$,1) Z9$ "I" Z9$ "C" 10000: 3002 Z9$ "C" 3100 "";: F$(1) J 1 NI 6300 J12 !" F1 F0: iË (C$)13 F$"" 50015* nÙ C$;C sË (C$)13 50070f xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ER!  Z9 5100,5200,5300,5400 5007 AGED RECEIVABLES' "";? O 1 1,4: 1\ I 0 7:V(I) 0: Iq O 0 "";: " ":F$"AGED RECEIVABLES REPORT" " ";F$: " " F$(4): F$(5) O 1!O0:DD$"0": "";:> "DRIVE # : 0 PRINTER : OFF"S? ZZ 1 1500: ZZmA F$(20): FORMATTINGxF 9000P I 1 NC:A$(I,1) "9999": I "";:: " MENU": "1. ADD TO/BEGIN INVOICE/PAYMENT FILE"! ":" ZN$ ",SEQ)"1,A,B$,C,D: A 0 22405 A,B$: 2: 1|CN$ "PRESS RETURN WHEN PROBLEM IS CORRECTED":F1: 60000: 22102,NI I 1 NI: 2750: I I 1 NC: 2550: I2:1 WRITE FILE OUT TO DIS! (J12) 4000: F$(1) J J J 1, J12 (J12) 30807 4000= Q EDIT CUSTOMER\& "";b+ 0 "CUSTOMER # TO EDIT MUST BE LESS THAN ";NC19 : CN$"CUSTOMER NUMBER TO EDIT (0 TO END) ?": 50000:I(F$)=!ROR, PLEASE TRY AGAIN ":: 50010 Ù Î= ` SUBROUTINE FOR STRING INPUTM eF$"":C$""X j CN$;s o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 (F$)1 60060  1:1 I 1 NC  A$(I,1) "9999" 5133 6100A J 1 4:V(J) V(J) A(I,J): Jj  I12 (I12) O 0 : 10100  I: O 1 1,4: 1 " "XX V(1): 20000:V1$XX$:H1TTXX V(2): 20000:V2$XX$:H!  "2. SWITCH DRIVES"-  "3. TURN PRINTER ON/OFF"S  "4. READ FILE IN FROM DISKETTE"y & "5. WRITE FILE OUT TO DISKETTE" 0 "6. EDIT FILE" : "7. REPORT GENERATOR" D "8. POST AND ELIMINATE INVOICES- UPDATE" I "9. END PROGRAM" W!K "";# : "PUT DISK IN DRIVE": 10100: "";G "PRESENT FILE NAME IS ' ";ZN$| CN$"NEW NAME ?":F1: 60000: F$ "" ZN$F$ "";: ZZ 1 12:: ZZ: 12);"* WRITING DATA *" 1,8,15: 2,8,2, DD$ ":" ZN$ ",SEQ,W"SES TO RAISE THE EFFECTIVE ": "INTEREST RATE."1X:`ZCN$"PRESS RETURN TO BEGIN ":F1: 60000kd "";nCN$"INPUT PROCEEDS OF LOAN IN $ ?": 50000:AMOUNT(F$)xCN$"INPUT COMPENSATING BALANCE % ?": 50000:CP(F$)}CP CP "" ) "";: P 1 12:: P: 15);"** SORTING **"7 ) AN 1 10710s ) K 1 I:A$(K) AD$ A$(K):A$(K) (A$(K),20): K} )S I )S (S 2) ) S 1 10730 ) 10790 ) K 1 S ) L K I S S )J L )T$A"20 F$(F$,(F$)1): 500153Ë (C$) 46 (C$)47 (C$) 57 50065@F$F$C$LÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60" *******************5 ** MERGANAL **O *******************^ 59468,12i ""; "" " MERGER ANALYSIS " "")" (V1$,(V1$)1)  (V1$) 9 1030*  1040E V1$ " " V1$: 1010Y V1$ "$" V1$_ e OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING" 100:CN$"NOMINAL INT. RATE ON LOAN (%) ?": 50000:NI (F$)LNI NI 100CN$"NORMAL ACCOUNT BALANCE WITH "CN$CN$"NO LOAN ?": 50000:NA(F$) ""# " $(LS) * T$ A$(J) 10775!*A$(JS) A$(J)/ *J J SF* J 1 10755W*A$(JS) T$_* Lg!* Ks$* 10715&* AN 1 10799(* K 1 I**A (A$(K))+*A$(K) (A)-* K/*0* PRINT SORTED LIST 14 AT A T" 015t F 1 F 0::: y (C$) 13 F$"" 60015=~ (C$) 13 60065b (C$) 20 (F$)1 60060l C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 6"  "ONE OF THE MAJOR TOPICS DISCUSSED IN"Y "MERGER ACQUISITION ANALYSIS IS WHAT THE"! "WORTH OF THE POTENTIAL ACQUISITION IS."# "THIS PROGRAM DOES A VALUATION CALCULA-"( "TION FOR A LEVERED FIRM. THERE ARE"+ "SEVERAL INPUTS. OU" INPUTTED _á C$: C$"" 50015; dË C$(13) F$"" F1 F0:\ iË (C$)13 F$"" 50015f nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$)"AF AMOUNT (1 CP) NA: AVAILABLE FUNDSI TM AMOUNT NI: TOTAL INTERESTZ EF TM AF} EF = EFFECTIVE INTEREST RATE X AM CP  400  "NOMINAL COMPENSATING BALANCE AMT.": X$: "X AM CP NA ' "TRUE COMPENSATI"IME/5* "";:CN$"PRESS RETURN TO PRINT SORTED LIST ":F1: 60000t7* Z2$"Y" CN$"PRESS RETURN WHEN PRINTER READY ":F1: 600008* Z2$ "Y" 1," ":* 10610** PRINT HEADING SUBROUTINE* "";*Z9$ " ITEM NUMBER 0015:): 500153Ë (C$) 46 (C$)47 (C$) 57 50065@F$F$C$LÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60"TPUT IS THE VALUE OF"#- "THE FIRM."T2:CN$"PRESS RETURN TO BEGIN ":F1: 60000_d "";nCN$"PRESENT TOTAL VALUE "sCN$CN$"OF FIRM'S STOCK ?": 50000:V (F$)xCN$"EARNINGS BEFORE INTEREST " 57 50065 F$F$C$ É 50015K Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010Q ÙW Îy ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ "NG BALANCE AMOUNT "( ( "$";(((X) .005)100)1005 )X AF:W 1 "AVAILABLE FUNDS FROM LOAN"w 6 "$";((X .005)100)100 EX 100 EF J O "EFFFECTIVE INTEREST RATE" T ((X .005)100)100;"%" ^ "" ITEM VAL."* Z9$* Z2$"Y" 1,Z9$7*: Z2$"Y" 1," "=*U*X1$ ((X1 .5))+ (X1$) 4 X1$ " " X1$: 11010 +X1$ (X1$,4)+ (X2$) 19 X2$ " " X2$: 11025+X2$ (X2$,19) + 5);X1$;20)" **************+ ** PRINDPA **@ **************O 59468,12Z ""; "" " PAASCHE PRICE INDEX " "" "COMPARING" "F}CN$CN$"AND TAXES ?": 50000:EB(F$)CN$"INCOME TAX RATE (%) ?": 50000:H(F$)H H 100CN$"MARKET VALUE OF FIRM'S DEBT ?": 50000:Z (F$)V V Z$KH EB (1 H)(V (C$) 13 60065( (C$) 20 (F$)1 600602 C$;\ (C$)20 F$(F$,(F$)1): 60015i F$F$C$u 60015 : "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 ,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$)""  800% X (X100):X$ (X);  (X$) 8 440E  450] X$ "0" X$: 410 X$ "$" (X$,6) "." (X$,2)  XX (X100):X$ (X) b (X$) 5 630 l 640 vX$ "0" X$: 610 X$ (X$,3)";X2$*+ Z2$"Y" 1," ";X1$;(SP$,15(X1$));X2$\/+ Z2$"Y" 1,"----------------------------------------"0+ ""4+OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$=" PRICES AT A FIXED TIME IN THE"L! "PAST, CALLED THE BASE YEAR, TO CURRENT"w# "PRICES IS NOT THAT SIMPLE. THIS IS"% "BECAUSE NEW ITEMS HIT THE MARKET AND"( "THE USE OF OTHER ITEMS CHANGES THROUGH"+ "THE YEARS. THE PAASCHE PRICE INDE"HZ): AFTER TAX DISCOUNT FOR UNLEVERED FIRM_CN$"HOW MUCH DEBT CAN FIRM HANDLE ?": 50000:Z(F$)CN$"WHAT WILL FUTURE TAX RATE BE ?": 50000:H(F$)H H 100CN$"FUTURE EARNINGS BEFORE " CN$CN$"INTEREST AN!0, GIVEN THE PAASCHE"=< "PRICE INDEX. IF THE INDEX IS GREATER "j? "THAN 100 THEN PRICES HAVE INCREASED."pFZCN$"PRESS RETURN TO CONTINUE ":F1: 60000_ PB(100),PC(100),QC(100)d "";n "INPUT ITEMS IN INDEX 1 BY 1 AS REQUE" "." (X$,2) G CN$"PRESS RETURN FOR MORE COMPUTATION ":F1: 60000: 100M 'S OÀm ) Z2$ "Y" 10900u ) L{ ) )CN$"PRESS RETURN TO CONTINUE ":F1: 60000 ): ) SORTING SUBROUTINE )AD$"00000000000000000000"""INPUTTED DATA TO DATE"/ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDJ_á C$: C$"" 50015odË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)"X USES"0- "A METHOD BY WHICH QUANTITIES FOR THE"_/ "CURRENT YEAR ARE USED AND ARE WEIGHTED"2 "ONCE WITH BASE YEAR PRICES AND ONCE"5 "WITH CURRENT PRICES. THESE TWO WEIGHT-"7 "ARE DIVIDED AND THE QUOTIENT IS"9 "MULTIPLIED BY 10"D TAXES ?": 50000:EB(F$)> V1 EB (1H) KH H ZD i 1000:"VALUE OF THE FIRM FOR " "ACQUISITION = ";V1$ :CN$"PRESS RETURN FOR MORE COMPUTATION ":F1: 60000 100 V1$ ((V1))  V1 0 V1$ # (PMT$,2)  PV$ ((PV))9  PV 0 PV$(PV$,(PV$)1)S  (PV$) 6 2030^  2040y PV$ " " PV$: 2010 PV$ "$" PV$  OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED # ******************3 ** DEPRSF **L ******************[ 59468,12f "";SP$" " "" " DEPRECIATION SCH#00:PI(F$) PI PI 100' C S 200/ :X "SALVAGE VALUE > COST --- ERROR"q "ENTER DATA AGAIN" I 1 400: I TY 110 ""; 1010: HEADING 1110 1200: COMPUTE & PRINT  "";0 # OF TABLE PRESS RETURN ":F1: 60000 1000;YR$((YR)):YR$(YR$,2)NC$((C100))e (C$) 9 2040p 2050C$ " " C$: 2020C$ (C$,7) "." (C$,2) C$" .00" C$" 0.00" Q 1 C$ (C# 0xË (C$)20 (F$)1 50065*}Ë (C$)20 F$(F$,(F$)1): 50015]Ë (C$) 45 (C$)47 (C$) 57 50065jF$F$C$vÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT# DATA TO DATE"/ ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDJ _á C$: C$"" 50015o dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065}Ë (C$)20 F$# EDULE "? ""j "THIS PROGRAM PRINTS A SCHEDULE FOR" "DEPRECIATING AN ASSET BY THE SINKING" "FUND METHOD. THIS METHOD IS USED BY" "REGULATED INDUSTRIES QUITE A BIT. IN" "THI# Z2$"Y" CN$"PRESS ENTER WHEN PRINTER READY":F1: 60000=  "";:p H1$"YR BOOK VAL FUND INT FUND INCR FUND VAL" H2$"YEAR BOOK VAL. FUND INT. INCR. IN FUND FUND VAL."  3);"SINKING FUND DEPRECIATION SCHEDULE":  "INI# $,7)  YR$;5(YR$));C$ Z2$ "Y" 2065@1,YR$;(SP$,8(YR$));C$:1," "FLR c YR$((YR)) BV$((BV100)):FI$((FI100)):FC$((FC100)) FV$((FV100)) YR$(YR$,2) X$BV$: 4000:BV$X$:X$FI$: 4#eF$"":C$""j CN$; o C$: C$"" 60015#t F 1 F 0:Dy (C$) 13 F$"" 60015a~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015#(F$,(F$)1): 500153Ë (C$) 45 (C$)47 (C$) 57 50065@F$F$C$LÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t #S METHOD THERE ARE EQUAL YEARLY"J "DEPRECIATION CHARGES BUT THE DEPRECI-"w "ATION IS ASSUMED TO BE INVESTED IN A" "(SINKING FUND) ACCOUNT EARNING STATED" "INTEREST."# "INPUTS ARE ITEM COST, ESTIMATED SALVAGE"( "VALUE, LIFE#TIAL COST = ";C: "SALVAGE VALUE = ";S9  "LIFE OF ASSET (YEARS) = ";L|  "INTEREST RATE ON SINKING FUND = ";PI 100: Z2$"Y" 1040 1," SINKING FUND DEPRECIATION SCHEDULE" 1,"INITIAL COST = ";C:1,"SALVAGE VALUE = ";#000:FI$X$ X$FC$: 4000:FC$X$:X$FV$: 4000:FV$X$T BV$(BV$,9):FI$(FI$,9):FC$(FC$,9):FV$(FV$,9) YR$;3);BV$;12);FI$;22);FC$;31);FV$; Z2$"Y" 3220 1,YR$;(SP$,8(YR$));BV$;(SP$,13(BV$));FI$; 1,(SP$,12(>: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 ,(F$)1): 50015]Ë (C$) 45 (C$)47 (C$) 57 50065jF$F$C$vÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT#F 1 F 0:y (C$) 13 F$"" 600157~ (C$) 13 60065\ (C$) 20 (F$)1 60060f C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015# IN YEARS, AND SINKING FUND"-* "INTEREST RATE."Y, "OUTPUT INCLUDES ANNUAL DEPRECIATION". "CHARGES PLUS A YEAR BY YEAR SCHEDULE"0 "OF BOOK VALUE, INTEEREST ON SINKING FUND,";1 "INCREASE IN SIZE OF SINKING FUND, AND" 2 "TOTAL VAL#S 1,"LIFE OF ASSET (YEARS) = ";LF 1,"INTEREST RATE ON SINKING FUND = ";PI 100f D (CS)(PI((1PI)L1))  "ANNUAL DEPRECIATION = ";(100D.5)100:  Z2$"Y" 1,"ANNUAL DEPRECIATION = ";(100D.5)100  H1$ Z2$"Y" #FI$));FC$;(SP$,13(FC$));FV$  1," "  E 2);YR$;4);BV$;4);FI$;4);FC$;4);FV$Z Z2$ "Y"  1,YR$;" ";BV$;" ";FI$;" "FC$;" ";FV$ RTURN (X$) 9 4020 4030X$ " " X$: 4000X$ (# ******************3 ** COMPBAL **L ******************W ""; "" " LOAN RATE WITH COMPENSATING BALANCE " "" "WHEN A BUSIN,(F$)1): 500153Ë (C$) 45 (C$)47 (C$) 57 50065@F$F$C$LÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t #UE OF SINKING FUND."=<:CN$"PRESS RETURN TO BEGIN ":F1: 60000Hd "";iCN$"DO YOU WANT LINE PRINTER OUTPUT (Y/N) ?": 60000:Z2$(F$,1)j Z2$ "Y" Z2$ "N" 105k Z2$ "Y" 1,4l ""; nCN$"ENTER COST # 1," ":1,H2$:1," ")VAD 0: ACCUMULATED DEPRECIATION8[DP C SC`BV C]eYR 0: PRESENT YEARc~ COMPUTATION AND PRINTING SUBROUTINE 2000BV C I 1 LFI FV PI: FUND INTEREST FOR YEARFC FI #X$,7) "." (X$,2) (X$) 0 X$ " 0.0"$'>' "";: P 1 12:' INSERT PROGRAM DISK IN DRIVE 0 ":PRINT:PRINT:PRINT$'CN$"PRESS RETURN WHEN READY ":F1: 60000.' "";:OÀPÏ SUBROUTINE FOR DATA #ESSMAN BORROWS MONEY FROM"H# "A BANK HE IS SOMETIMES REQUIRED TO KEEP"w( "A COMPENSATING BALANCE IN THE ACCOUNT."- "A COMPENSATING BALANCE IS AN AMOUNT THAT";2 "THE BUSINESSMAN PAYS INTEREST ON (AS HE"7 "HAS BORROWED IT) BUT WHICH "HE CANNOT"2< "WITHDRAW FROM HIS ACCOUNT. IF A 15%"aA "COMPENSATING BALANCE IS REQUIRED, E.G."F "THIS MEANS THAT FOR EVERY $1,000 BOR-"K "ROWED THE BUSINESSMAN CAN ONLY WRITE"P "CHECKS FOR $850. THIS IS ONE METHOD A")U "A BANK U# ?": 50000:C(F$)O xCN$"ENTER SALVAGE VALUE ?": 50000:S(F$) CN$"ENTER LIFE IN YEARS ?": 50000:L(F$) CN$"ENTER INTEREST RATE ON " CN$CN$"SINKING FUND (%) ?": 500# D: FUND VALUE INCREASE%FV FV FC: NEW FUND VALUE6BV BV FCFYR YR 1Q 3000 Q 1 I8 (I8) 1400: STOP SCROLLING OFF SCRN IFx SUBROUTINE RTO HOLD OUTPUT ON SCREEN} CN$"FOR MORE#INPUT%UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"YZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDt_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 5007$ *****************1 ** FQEOQ **I *****************X 59468,12c ""; ""; " INVENTORY THEORY-FIXED QUANTITY EOQ " ""! "$ANTITY :";Q1 @ "THIS MEANS ORDER ABOUT";(DQ);"TIMES/YEAR^ J "OR ABOUT EVERY";(365 Q D);"DAYS."d O T "THE REORDER LEVEL IS";(R);"UNITS, I.E." ^ "WHEN THIS QUANTITY IS RECALLED, REORDER" c Q;"UNITS." f# h "TOTAL INVENTORY$ **************+ ** RENTPRCH **@ **************O 59468,12Z ""; "" " PURCHASE PRICE FOR RENTAL PROPERTY " "" "AN INVEST$M) + I 1 40: "";: I:? 0XSP: 1000: "SELLING PRICE IS ";X$M :: 10100S D X GROSS MARKUP BASED UPON SELLING PRICE b ""; l "GROSS MARKUP BASED UPON SELLING PRICE":: vCN$"COST IN DOLLARS ?": 50000:C(F$)$ CN$ 0070xË (C$)20 (F$)1 50065;}Ë (C$)20 F$(F$,(F$)1): 50015nË (C$) 45 (C$)47 (C$) 57 50065{F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT$ THIS PROGRAM INVOLVES AN INVENTORY"N "PROBLEM FOR WHICH IT IS ASSUMED THAT"v "THE FOLLOWING CONDITIONS HOLD :" " THERE IS A CONSTANT ORDERING COST PER" "ORDER"" " INVENTORY HOLDING COST IS CONSTANT PER"# "UNIT HELD"$ $ COST (HOLDING+": "REORDERING + COST OF ITEMS)";R m " PER YEAR":"EQUALS";(DPDSQQC2) |:CN$"PRESS RETURN TO CONTINUE , STOP TO END ":F1: 60000  100 OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="IN$ OR IN RENTAL PROPERTY SHOULD"H "ONLY PURCHASE IF PROFIT CAN BE REAL-"u "IZED. ONE APPROACH WHICH MAY BE USED"# "IS TO PURCHASE THE PROPERTY IF THE"% "TOTAL RENT RECEIPTS EXCEED TOTAL EXPEN-"( "SES. THESE EXPENSES CONSIST OF PROP-$ $"MARKUP AS A % ?": 50000:M(F$):MM1005 SP C(1M)S  I 1 40: "";: I:~ X SP: 1000: "SELLING PRICE IS ";X$ : 10100   GROSS MARKUP GIVEN COST & SELLING PRICE  "";:  "GROSS MARKUP GIVEN COST & SE$eF$"":C$""j CN$;o C$: C$"" 600154t F 1 F 0:Uy (C$) 13 F$"" 60015r~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015$" NO BACKORDERS ARE PERMITTED":% "(STOCKOUTS NOT ALLOWED)"i& " ORDER LEAD TIME IS CONSTANT AND KNOWN"( " DEMAND FOR THE ITEMS ARE CONSTANT AND"- "UNIFORM THROUGH TIME"2 " THERE ARE NO QUANTITY PRICE BREAKS" <: "WE SHALL INPUT $PUTTED DATA TO DATE"8 ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDS _á C$: C$"" 50015x dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20$"$+"ERTY TAXES, INSURANCE, MORTGAGE"S- "PAYMENTS, MAINTENANCE COSTS, AND OTHER"/ "MISCELLANEOUS COSTS. IN THE MODEL TO"2 "BE USED IN THIS PROGRAM RENTAL INCOME"5 "IS KNOWN. ALL EXPENSES ARE KNOWN EX-" 7 "CEPT THE MONTHLY MORTGA$LLING PRICE"::3 CN$"INPUT COST ?": 50000:C(F$)d CN$"INPUT SELLING PRICE ?": 50000:SP(F$) MC 100 (SPC1):MSP100 (1CSP)  I 1 40: "";: I:  "GROSS MARKUP BASED UPON": "COST IS ";:XMC: 2000  X$A: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015#,(F$)1): 50015nË (C$) 45 (C$)47 (C$) 57 50065{F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUT$LEAD TIME, ANNUAL"8> "DEMAND, ORDERING COST, HOLDING COST"]@ "PER UNIT AND PURCHASE PRICE."B "OUTPUT INCLUDES OPTIMAL ORDERING"D "QUANTITY, REORDER POINT, AND TOTAL"F "ANNUAL COST OF THE INVENTORY SYSTEM." ZCN$"PRESS RETURN TO$ F$(F$,(F$)1): 50015< Ë (C$) 45 (C$)47 (C$) 57 50065I F$F$C$U É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015$GE PAYMENT. THE"69 "BANK MRTGAGE RATE IS KNOWN. WHAT WE"f< "ATTEMPT TO DETERMINE HERE IS THE AMOUNT"? "WHICH SHOULD BE BORROWED TO MAKE TOTAL"A "EXPENSES EQUAL TO TOTAL INCOME."K:CN$"PRESS RETURN TO BEGIN ":F1: 60000d ""$;" %"   "GROSS MARKUP BASED UPON"M  "SELLING PRICE IS ";:XMSP: 2000: X$;" %"[ : 10100a v X$((X 100))  X 0 X$(X$,(X$)1)  (X$) 9 1030  1040 X$ " " X$: 1010 X$ "$" (X$,7) $ PMT RI RS RM RC RTR PV PMT (1I) (1(1I)(N)) BAL (1 I) (N)p X 1 40: "";: X: "MONTHLY INTEREST RATE =";100 I;"%" 1000:"MONTHLY MORTGAGE PAYMENT = ";PMT$ 2000: "AMOUNT OF PROPE$ BEGIN ":F1: 60000d "";TnCN$"ANNUAL DEMAND (IN UNITS) ?": 50000:D(F$)xCN$"REORDER COST (PER ORDER) ?": 50000:S(F$)CN$"LEAD TIME (DAYS) ?": 50000:L(F$) CN$"HOLDING COST (PER UNIT/YEAR) $t F 1 F 0:#y (C$) 13 F$"" 60015@~ (C$) 13 60065e (C$) 20 (F$)1 60060o C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015$;6nCN$"TOTAL MONTHLY RENTAL INCOME ?": 50000:RI(F$)sxCN$"MONTHLY INSURANCE ?": 50000:RS(F$)CN$"MONTHLY MAINTENANCE ?": 50000:RM(F$)CN$"MONTHLY TAXES ?": 50000:RT(F$)* CN$$"." (X$,2)  X$((X1000))6  X 0 X$(X$,(X$)1)O  (X$) 6 2030Z  2040s X$ " " X$: 2010 X$ (X$,3) "." (X$,3)  t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000: OÀ PÏ SUBROUTINE FOR DA#RTY IS WORTH = ";PV$B :CN$"PRESS RETURN FOR MORE COMPUTATION ":F1: 60000L 100c PMT$((PMT100))  PMT 0 PMT$(PMT$,(PMT$)1)  (PMT$) 7 1030  1040 PMT$ " " PMT$: 1010 PMT$ "$" (PMT$,5) "." $?": 50000:C(F$)D CN$"PURCHASE PRICE PER ITEM ?": 50000:P(F$)s Q ((2DSC)): OPTIMAL ORDER QUANTITY R L D365: REORDER LEVEL BASED ON 365 DAY YEAR , "" 6 "OPTIMAL ORDER QU ,(F$)1): 50015< Ë (C$) 45 (C$)47 (C$) 57 50065I F$F$C$U É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015$"MONTHLY MISCELLANEOUS COSTS ?": 50000:RC(F$)n CN$"ANNUAL MORTGAGE INT RATE (%) ?": 50000:I(F$):II100 CN$"LENGTH OF MORTGAGE (YEARS) ?": 50000:N(F$):N12 N I I 12: I IS NOW MONTHLY INTEREST RATE IN DECIMAL$TA INPUT6UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"jZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 5% **************+ ** DILANAL **@ **************O 59468,12Z ""; "" " DILUTION ANALYSIS " "" "WHEN TWO %"EARNINGS AFTER TAXES ?": 50000:ET(1) (F$)m }CN$"SHARES OUTSTANDING ?": 50000:SO(1) (F$) CN$"PRICE AT TIME OF EXCHANGE ?": 50000:P(1) (F$) ""; " ANSWER THE FOLLOWING FOR THE" " %- -------------":C c Z2$"Y" 1," ":1," ------------- -------------"Z d Z2$"Y" 1," "k h K 1 10 mXX 100 I(K): 400:I$XX$:H1TT nXX A(K): 400:A$XX$:H2TT o 17H1);I$;33H2);A$ p Z2$ "Y" 371 q1,G0015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015!',(F$)1): 50015rË (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING% $;30);C$ Q$ ((Q100))- Q 0 Q$(Q$,(Q$)1)F (Q$) 9 2030Q 2040jQ$ " " Q$: 2010Q$ (Q$,7) "." (Q$,2) (Q$) 0 Q$ ""OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$% PUBLICLY TRADED COMPANIES DE-"I "CIDE TO MERGE VIA USE OF AN EXCHANGE"y "OF STOCKS, THE ANALYSIS IS DOMINATED BY" "THE EXCHANGE RATIO (I.E. # OF SHARES " "THE SURVIVING COMPANY OFFERS FOR EACH" "SHARE OF THTE ACQUIRED COMPANY)% ACQUIRED FIRM":I CN$"EARNINGS AFTER TAXES ?": 50000:ET(2)(F$) CN$"SHARES OUTSTANDING ?": 50000:SO(2)(F$) CN$"PRICE AT TIME OF EXCHANGE ?": 50000:P(2)(F$) ""; CN$"INPUT EXCHANGE RATIO % (SP$,17H1);I$;(SP$,15H2);A$ s K. t: Z2$"Y" 1: 1> u 380: 110} |CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000   ** ROUTINE TO FORMAT OUTPUT ** XX ((XX .005)100)100  XX 1 XX 10 (XX10).%  ***************- ** MARKUP **C ***************R 59468,12] ""; "" " MARKUP ANALYSIS " """ "MARKUP%=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"GZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDb_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1%, THE"1 "PRICE-EARNINGS RATIOS OF THE SURVIVING"] "FIRM, AND GENERAL CONDITIONS IN THE" "STOCK MARKET. IN GENERAL WE DO NOT" "WANT EARNINGS PER SHARE FOR THE " "ACQUIRING TO DECREASE. IF A DECREASE "" "OCCURS THEN DILUTI% ?": 50000:ER(F$) COMPUTATIONSa EPS(1) ET(1)SO(1):EPS(2)ET(2)SO(2): EARNINGS PER SHARE PE(1) P(1)EPS(1):PE(2)P(2) EPS(2): P-E RATIOS SUBSCRIPT 3 REFETS TO MERGED COMPANY ET(3) ET(1) ET(2) SO(3) SO%001 XX$ "0" (XX) "0"&XX$(XX):TEMP$(XX$,3)X (TEMP$,2,1) "." XX$ XX$ "0" : 440 (TEMP$,1) "." XX$ XX$ ".00"TT 0: II 1 (XX$): (XX$,II,1) "." TT TT 1 IIOÀPÏ SUBROUTINE % IS THE GROSS PROFIT A BUSINESSMAN";R "MAKES ON AN ITEM EXPRESSED AS A PERCENT" "OF EITHER THE COST OR THE SELLING PRICE"! "THE PRESENT PROGRAM DETERMINES THE"# "SELLING PRICE GIVEN THE PRICE AND MARK-" % "UP. ALSO, GIVEN THE COS% 50065}Ë (C$)20 F$(F$,(F$)1): 50015KË (C$) 45 (C$)47 (C$) 57 50065XF$F$C$dÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;%ON OCCURS."5$ "IF THE P-E RATIO FOR THE ACQUIRING FIRM"_& "REMAINS AS BEFORE THE MERGER THEN"( "DILUTION MEANS A LOWER PER SHARE STOCK"* "PRICE."+:CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";, "IN THIS PROGRAM WE INPUT%(1) SO(2) ER EPS(3) ET(3) SO(3)# , "";X 6F$(1) " ACQUIRING ACQUIRED ACQUIRING" @F$(2) " (BEFORE) (AFTER)" J F$(1): F$(2): ^X$"EAT":AET(1):BET(2):CET(3): 1000 hX$"SH.OUT":ASO(1):BSO%FOR DATA INPUT:UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"nZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13%T AND SELLING"7( "PRICE THE PROGRAM CAN COMPUTE MARKUP"e+ "BASED ON SELLLING PRICE AND COST."::ZCN$"PRESS RETURN TO BEGIN ":F1: 60000d "";: " MENU"::n " 1. COMPUTE GROSS MARKUP "p " %o C$: C$"" 60015t F 1 F 0:2y (C$) 13 F$"" 60015O~ (C$) 13 60065t (C$) 20 (F$)1 60060~ C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE T% FOR EACH OF".. "THE TWO COMPANIES THE FOLLOWING:"_0: "EARNINGS AFTER TAXES, SHARES OUTSTAND-"2 "ING, EPS, SHARE PRICE AT TIME OF EX-"4 "CHANGE. WE ALSO INPUT THE EXCHANGE"6 "RATIO. OUTPUT CONSISTS OF THE NUMBER" 8 "OF NEW SHA%(2):CSO(3): 1000-mX$"EPS":AEPS(1):BEPS(2):CEPS(3): 1000XrX$"PE RAT":APE(1):BPE(2):C0: 1000: "EXCHANGE RATIO IS ";ER;" ACQUIRING FOR EACH "; "1 ACQUIRED.": "ASSUMING NEW P-E RATIO WILL BE BETWEEN" PE(1);" AND ";% 50070xË (C$)20 (F$)1 50065?}Ë (C$)20 F$(F$,(F$)1): 50015rË (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING% BASED ON COST":Ax " 2. COMPUTE GROSS MARKUP "iz " BASED ON SELLING PRICE": " 3. COMPUTE GROSS MARKUP GIVEN " " COST AND SELLING PRICE::CN$" ENTER YOUR CHOICE ?": 50000$RY AGAIN ":: 60015,(F$)1): 50015KË (C$) 45 (C$)47 (C$) 57 50065XF$F$C$dÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;%RES ISSUED, EARNINGS AFTER"> : "TAXES AND EARNINGS PER SHARE FOR THE"V < "SURVIVING FIRM."^ F: ZCN$"PRESS RETURN TO BEGIN ":F1: 60000 d ""; n "ANSWER THE FOLLOWING FOR THE ACQUIRING" s " FIRM":, xCN$%PE(2):: "NEW PRICE ";$ "PER SHARE WILL BE BETWEEN "P EPS(3) PE(1);" AND ";EPS(3) PE(2):CN$"PRESS RETURN FOR MORE COMPUTATIONS ":F1: 60000 100Q A: 2000:A$Q$:QB: 2000:B$Q$:QC: 2000:C$Q$ X$;6);A$;18);B% INPUTeF$"":C$""j CN$;"o C$: C$"" 600158t F 1 F 0:Yy (C$) 13 F$"" 60015v~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 6$:Z9(F$) Z9 500,600,700" 100E GROSS MARKUP BASED UPON COSTP ""; " GROSS MARKUP BASED UPON COST"::CN$"COST IN DOLLARS ?": 50000:C(F$)CN$"MARKUP AS A % ?": 50000:M(F$):MM100&SP C (1&C3{Hڶ & (147): (19)q" ":"  Š !":" ""  Ғ  &TEST DISK 1 01 2C ACCTPAY ACCTREC ANNU1 ANNUDEF ARBCOMP ASSIGN AUTOEXP BAYES BETAALPH BLACKSH BONDVAL BONDVAL2 BREAKEVN BUSBUD CAP1 CHECK2 CHECKBK1 COMPBAL CONDPROF DATE DATEVAL DEPRDB DEPRDDB DEPRSF DEPRSL DEPRSY DILANAL DISCBAL EFFECT ENVELOPE E'C3N9\& FL0:SM532486 TB$(150):""(14):DI8:C1s8,DI,8,": DIRECTORY ":15,DI,15:15,EN$,ED$,ET$,ES$8,DN$:EN$"00"8:15:310(8,TB$(C):ST6670-TB$(C)""702((TB$(C),1))10TB$(C)(TB$(C),(TB$(C))1):50<CC& @#8,A$:DN$DN$A$::#8,A$:#8,A$:DN$DN$" ":#8,A$oJDN$DN$A$:#8,A$:DN$DN$A$:#8,A$:#8,A$:DN$DN$" "A$T#8,A$:DN$DN$A$:#8,A$:C1^A14:#8,A$::PN$"":TY$""h#8,A$:ST0450rA$""450|(A$)34360#8,A$:& !"g(" ":"  Š Ϡ , Ԓ":" "2"  C/O "<" ORMAN ELTZKE "F" & OQ EPSEST EXPVAL FINAL FINRAT FQEOQ FQEOQPB FQEOWSH FUPRINF FVAL INSFILE INVENT2 INVOICE LABEL1 LEASEINT LETWRT LOANAFFD LOANPAY MAILPAC MARKUP MERGANAL MORTGAGE/A MULTMON NCFANAL NPV OPTLOSS OPTWRITE PAYNET PAYROLL2 PORTVAL9 PRINDLAS PRINDPA PROFIND PVA& ? (Y/N)"  G$: G$"" 1240&  G$"Y" 1400:  G$"N" 1290Y  G$"Y" G$"N" 1230c  " " "  ? (Y/N) "  E$: E$"" 1310 ( E$"Y" 1340 2 E$"N" 1&1:40>F8:15:MC1:TB$(C)"":L1$"":C180:L1$L1$" ":RPL1$L1$"":A1mZ PRINT"";:PRINTL1$;d" IRECTORY SSISTANCE ERSION 1.5 -128 1985 "xCAA19:""(" "(C),3)" "TB$(C)16(TB$(&(A$)34PN$PN$A$:390)#8,A$:(A$)32400KTY$TY$A$:#8,A$:A$""410d(TY$,3)"PRG"350z(PN$,1)" "350TB$(C)PN$:CC1:ST03508:15,DI,15,"S: DIRECTORY ":15Z$"":8,DI,8,": DIRECTORY } 4102 . DELL "SK" ORRIDGE, L. 60634"eP I1 15000kZwd" ENU  Ғ  &L QUEUE1 QUEUECB REGWITH RENTPRCH RRCONST RRCONVBD RRVARIN RTVAL RULE78 SALELEAS SALVAGE SEASIND SELLPR SHARPE1 SIMPDISK SIMPLEX SINKFUND STOCKVAL1 TAXDEP TELDIR TERMSPAY TIMECLCK TIMEMOV TIMETR TIMUSAN TRANS UPSZONE UTILITY VALADINF VALPRINF WACC WARVAL370 < 15: 2 F 1000 Z 15 d 2% i (147). n 907 x4,4Q 8,8,8,"0:"D$",S,R"\ #8,E$v  ST0 4,E$;:1430} 4 4,(19)  8:4:15:2 12901035 "  Ϡ &C)));"":L1$;"L1$;:L1$;{1)" = ONTINUE ISTING = = XIT":B$""A$:A$""160(A$)13260A$"C"240:" F1 ****** A$"I" 1000A$"D"300:" F3 ******A$"E"& ,S,W":8,DN$-A1C1:C$Z$:B1C1:C$TB$(B)490?C$TB$(B):DB`:8,C$:TB$(D)Z$::8::10m15,8,15z (147)"  "" "" "D$"DAN3"" "2"  & *********************9 ** BONDVAL2 **U *********************d# 59468,12j(u* "";- ""2 " VALUE OF A BOND "7 " Q EPSEST EXPVAL FINAL FINRAT FQEOQ FQEOQPB FQEOWSH FUPRINF FVAL INSFILE INVENT2 INVOICE LABEL1 LEASEINT LETWRT LOANAFFD LOANPAY MAILPAC MARKUP MERGANAL MORTGAGE/A MULTMON NCFANAL NPV OPTLOSS OPTWRITE PAYNET PAYROLL2 PORTVAL9 PRINDLAS PRINDPA PROFIND PVA&6xCN$"NUMBER OF YEARS TO MATURITY ?": 50000:N(F$)tCN$"COUPON INTEREST PAYMENT PER YEAR?": 50000:C (F$)CN$"MATURITY VALUE OF THE BOND ?": 50000:M(F$)CN$"LOWEST INT. RATE TO CONSIDER (%%) ?": 50000:L(F$)L L& (147)(19):LA$"M":" IT ANY KEY TO CONTINUE":209,0:209,1:100y(A$)20B$"":" ":B$"":160A$"0"A$"9"(B$)3160B$B$A$:""B$:160CMA1:90AC:90(B$)MB$"""???":C11500:& Ϡ ! "@" ":" "" ":"  Ϡ! " 209,1 (147)2,8,2,(0)":"D$",S":15,E,EF$,EG$,EH$:E E;EF$,EG$,EG$ #2,B$:B$; &"4< "THIS PROGRAM SHOWS HOW THE VALUE OF"`> "A BOND MAY CHANGE WHEN THE INTEREST"@ "RATE CHANGES. WE ASSUME WE HAVE A BOND"F "WITH A FIXED NUMBER OF YEARS TO"H "MATURITY. FOR VARIOUS INTEREST RATES" J "THE PRESENT VAL&ER YEAR FOR INTEREST."5 1,"MATURITY VALUE FOR THE BOND IS ";Me 6 "";:"PRESENT VALUE OF BOND AT VARYING "~ 8 "INTEREST RATES :" ; N;" YEARS TO MATURITY." @ "COUPON PAYS $";C;" PER YEAR FOR INTEREST" J "MATURITY VALUE FOR THE BOND I& 100?CN$"HIGHEST INT. RATE TO CONSIDER (%) ?": 50000:H (F$)OH H 100: "": COMPUTING PVK 0 I L H (HL)10K K 1 I(K) I:A(K) C (1(1I)(N))I M&:A$(20):210(TB$((B$))) S""":198,4:631,13:632,82:633,213:634,13:," LEASE AIT NE OMENT! PDATING ISK IRECTORY . URETON"68,DI,0,"$0":C18:#8,A$::C1:DN$"":C1160& ST64 1120 $ A$: A$(32) 1200= . A$: A$"" 1060: 1035\ 8 A$: A$"" 1060: 1035g L 1290r V 1290 ` "ND OF ILE":1230  209,0  209,1  1035 "  Ϡ &UE OF THE FUTURE">L "CASH FLOWS FROM THE BOND ARE DETERMINED."mN "IT IS VERY INTERESTING TO SEE HOW MUCH"P "THIS VARIES FOR LONG TERM BONDS."USP$" "Z:: 380d A(15),I(15)n "";%S ";M( ^ ""S _ " INTEREST RATE VALUE OF BOND" ` Z2$"Y" 1," ":1,"--------------------------------------" a Z2$"Y" 1," ":1," INTEREST RATE VALUE OF BOND" b : " ------------& (1 I) (N) IT CN$"DO YOU WANT LINE PRINTER OUTPUT (Y/N)?": 60000:Z2$(F$,1)h Z2$"N" 310r 1,4 "";:1,"PRESENT VALUE OF BOND AT VARYING INTEREST RATES" 1,N;" YEARS TO MATURITY."; 1,"COUPON PAYS $;C 1,"P&C #1902C'&DISCLAIMER& DIRECTORY & ENU &BONDVAL2(DEPRDB(DISCBAL%DILANAL%MARKUP'ELABEL1 ERRCONST RRVARINSALVAGEFSTOCKVAL1 FTERMSPAY TIMEMOVTIMETR')LOANAFFD )VALPRINF$FQEOQ $RENTPRCH *EXPVAL#DEPRSF#COMPBAL+RULE78'GTAXDEP GEFFECTNCFANALQUEUE1HMULTMONHSEASINDSELLPR REGWITH ' +SINKFUND"MERGANAL "PRINDPA ,NPV ,OPTLOSS!ACCTREC6-UTILITY.ENVELOPEFQEOQPBISIMPDISKDAN3J!!----!!!' .ANNU1BONDVALTIMECLCK/CHECK2CHECKBK1,0UPSZONE1TRANSSHARPE1'CONDPROF2MAILPACDEPRDDBAUTOEXP,3ARBCOMP.LEASEINT5SALELEASINVOICE%'6FINRAT INSFILE(7INVENT2.DEPRSYOPTWRITE LETWRT 9DEPRSLMORTGAGE/A':TIMUSAN:ACCTPAY6BUSBUD-TELDIR=PORTVAL9,PAYROLL2<> FVAL ?PVAL '?DATE BLACKSH ANNUDEF ASSIGN@CAP1 @BETAALPH EOQ BREAKEVN 'ADATEVAL AEPSEST FQEOWSH LOANPAY FUPRINF BPAYNET BPRINDLAS PROFIND ' QUEUECBCRRCONVBD CRTVAL BAYES WARVAL DWACC VALADINF SIMPLEX( ********************7 ** DEPRDB **R ********************a# 59468,12l( "";2SP$" "<SP$SP$" "K "(DBV BV D:AD AD DNYR YR 1+X BV S 630;bAD AD DalD BV D S:AD AD D:BV SvXX YR: 880:YR$ XX$:H1 TTXX D: 880:D$XX$:H2TTXX AD: 880:AD$ XX$:H3 TTXX BV: 880:BV$XX$:H4TT(RESS ENTER WHEN PRINTER READY ":F1: 600005 h Z2$"Y" 1,4f r "DECLINING BALANCE DEPRECIATION SCHEDULE" t: "INITIAL COST =";C v "SALVAGE VALUE =";S x "LIFE OF ASSET (YEARS) =";L { "RATE OF DEPRECIATION =";100( C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015(nÙ C$;AsË (C$)13 50070dxË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 (  ****************/ ** DISCBAL **F ****************U 59468,12` ""; "" " TRUE INTEREST RATE" " ON DISCOUNTED LOAN " "( "PP "DEPRECIATION SCHEDULE-DECLINING BALANCE "U ""d "THIS PROGRAM PRINTS A SCHEDULE FOR"f "DEPRECIATING AN ASSET BY THE DECLINING"h "BALANCE METHOD."#n "I( HA 2:HB9:HC 9:HD75HAH1);YR$;HBH2);D$;HCH3);AD$;HDH4);BV$K Z2$ "Y" 710jHA 2:HB 20:HC20:HD161,(SP$,HAH1);YR$;(SP$,HBH2);D$;(SP$,HCH3);AD$;1,(SP$,HDH4);BV$ 720 I 10 (I10) 830:( RD;"%":D | Z2$"Y" 1," DECLINING BALANCE DEPRECIATION SCHEDULE"[ } Z2$"Y" 410 ~1," ":1,"INITIAL COST = ";C 1,"SALVAGE VALUE = ";S 1,"LIFE OF ASSET (YEARS) = ";L 1,"RATE OF DEPRECIATION = "( Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ;` SUBROUTINE FOR STRING INPUTKeF$"":C$""Vj CN$;qo C$: C$"" 60015t F 1 F 0:::y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20("H "MOST CONSUMER BANK LOANS ARE WHAT ARE"v "CALLED 'DISCOUNT LOANS'. IN A LOAN OF" "THIS TYPE THE FINANCE CHARGE IS PREPAID."; "FOR EXAMPLE, THE BANK WILL GIVE YOU A" "LOAN WITH FACE VALUE EQUAL TO (NPUTS ARE ITEM COST, ESTIMATED SALVAGE"Np "VALUE & LIFE IN YEARS. OUTPUT IS A"wr "YEAR BY YEAR SCHEDULE OF CURRENT"t "DEPRECIATION, ACCUMULATED DEPRECIATION"v "AND BOOK VALUE."x:: 860 "";CN$"DO YOU WANT LINEPRINTER O( STOP SCROLL ID (CS) AD5BV BV D:AD AD D:YR YR 1TXX YR: 880:YR$XX$:H1TTrXX D: 880:D$XX$:H2TTXX AD: 880:AD$XX$:H3TT XX BV: 880:BV$XX$:H4TT HA 2:HB 9: HC 9:HD 7* HAH1);YR$;(;100RD;"%":1," "  Z2$ "Y" 410e 1,"YEAR CURR.DEP. ACCUM.DEP. ";v 1,"BOOKVAL" 1,"---- --------- ---------- "; 1,"-------" " YR CURR.DEP. ACC (F$)1 60060 C$;" (C$)20 F$(F$,(F$)1): 60015/F$F$C$; 60015n: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015v:|1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 (A STATED"3 "AMOUNT (TOTAL OF REPAYMENTS) AND WILL"a" "THEN DEDUCT THE INTEREST CHARGES FROM"$ "THE PROCEEDS OF THE LOAN. THUS THE"& "CONSUMER DOES NOT GET THE FACE VALUE,"( "BUT SOME LOWER AMOUNT. TO MAKE MATTERS"* "WORSE CHA(UTPUT (Y/N) ?": 60000:Z2$(F$,1)@ Z2$ "Y" Z2$ "N" 140H:CN$"ENTER COST ?": 50000:C(F$)CN$"ENTER SALVAGE VALUE ?": 50000:S(F$)CN$"ENTER LIFE IN YEARS ?": 50000:L(HBH2);D$;HCH3);AD$;HDH4);BV$+ Z2$"Y" 8208,HA2:HB20:HD16:HC20r/1,(SP$,HAH1);YR$;(SP$,HBH2);D$;(SP$,HCH3);AD$;01,(SP$,HDH4);BV$4>CN$"PRESS RETURN TO CONTINUE ":F1: 60000H 330R\CN$"PRESS(UM.DEP. BOOK VAL."1 " -- --------- ---------- ---------"7 S  INITIALIZE SUBROUTINEy AD 0: ACCUMULATED DEPRECIATION DP C S: ACCOUNT TO BE DEPRECIATED BV C: BOOK VALUE YR0: PRESENT YEAR  COMPUTATION(& H INSURANCE CHARGES ?": 50000:IH(F$)T |CN$"TOTAL CREDIT LIFE INSURANCE " }CN$CN$"CHARGES ?": 50000:IC(F$) ~CN$"TOTAL OFFICIAL FEES CHARGES ?": 50000:IO(F$) PV FV IP IH IC IO:(RGES FOR ACCIDENT & HEALTH"C, "INSURANCE, CREDIT LIFE INSURANCE, AND"o. "OFFICIAL FEES MAY BE REQUIRED. THIS"0 "PROGRAM COMPUTS THE PROCEEDS AND THE"2 "EFFECTIVE INTEREST RATE IN SUCH A CASE."4 "THE CHARGES SUCH AS A & H ARE CONSID((F$)9CN$"RATE OF DEPRECIATION (%) ?": 50000:RD(F$)KRD RD 100_ C S 280e "SALVAGE VALUE > COST --- ERROR-ERROR" "ENTER DATA AGAIN." I 1 400: I 130 "";" 330: HEADING , 440:( RETURN TO CONTINUE, STOP TO END ":F1: 60000f<p ** ROUTINE TO FORMAT OUTPUT **\zXX ((XX .005)100)100lXX$ (XX)TEMP$(XX$,3) (TEMP$,2,1) "." XX$ XX$ "0": 920 (TEMP$,1) "." XX$ XX$ ".00"T( AND PRINTOUT ROUTINE!XX YR: 880:YR$XX$:H1TT?XX C: 880:C$XX$:H2TTPHA 2:HB31m& HAH1);YR$;HBH2);C$' Z2$ "Y" 560)HA 2:HB64+1,(SP$,HAH1);YRS;(SP$,HBH2);C$,10 I 1 L 1:D BV RD) PROCEEDS OF LOANE CN$"MONTHLY LOAN PAYMENT ?": 50000:PMT (F$) CN$"TOTAL NUMBER OF MONTHLY PMTS. ?": 50000:N(F$) 4200: COMPUTE EFFECTIVE INTEREST RATE X 1 40: "";: X: 5000: "PROCEEDS OF LOAN ";PV$(ERED";,6 "AND TEND TO RAISE THE EFFECTIVE RATE."[ZCN$"PRESS RETURN TO BEGIN ":F1: 60000fd "";nCN$"TOTAL REPAYMENTS OF LOAN ?": 50000:FV (F$)xCN$"TOTAL INTEREST PREPAID ?": 50000:IP (F$)! zCN$"TOTAL A ( INITIALIZE 6 500: COMPUTE & PRINT4 : Z2$"Y" 1:1s ; Z2$"Y" 1,"----------------------------------------"; < Z2$"Y" 1,"----------------------------------------"; @ J HEADING SUBROUTINE T ""; ^ Z2$"Y" CN$"P(T 0: II 1 (XX$): (XX$,II,1) "." TTTT1: II!'OÀGPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË) I 1200 I9 6000: "ANNUAL EFFECTIVE INTEREST RATE ";I$;" %"w :CN$"PRESS RETURN FOR MORE COMPUTATIONS ":F1: 60000 100 . PV$" " PV$: 5010 h I FOR DISCOUNT LOAN rI .01 |P PMTI (1(1I)(N))PV D N ) ****************/ ** LOANAFFD **F ****************U 59468,12` ""; "" " AMOUNT OF LOAN HOME BUYER CAN AFFORD " "" "ONE0015,(F$)1): 50015AË (C$) 45 (C$)47 (C$) 57 50065NF$F$C$ZÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" )"2 "MAXIMUM MONTHLY PAYMENT AMOUNT "T "IS ";:XAMT: 1000: X$ : "CONTAINING INSURANCE AND TAXES OF":XAMT PMT: 2000: X$ "MAXIMUM MONTHLY PAYMENT FOR" "MORTGAGE IS ";:XPMT: 2000: X$  ) 1 F 0:y (C$) 13 F$"" 600156~ (C$) 13 60065[ (C$) 20 (F$)1 60060e C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015) PMT(I(1I)(N1))PMT(I2)(1(1I)(N))'  4600=  (P) .1 H  4220Z  COMPUTATIONl I I P Dr  PV$((PV100))  PV 0 PV$(PV$,(PV$)1)  (PV$) 8 5030  5040 PV$" " PV$: 5010 PV$) SIMPLE METHOD FOR DETERMINING"O "WHETHER TO GIVE A MORTGAGE TO AN APPLIC-";|"ANT IS TO SEE IF THE MONTHLY MORTGAGE" "PAYMENT WOULD BE MORE THAN A CERTAIN" "FIXED PERCENT OF THAT APPLICANT'S GROSS"! "MNTHLY INCOME. IN THIS PROG)  ******************3 ** VALPRINF **L ******************[ 59468,12f ""; ""; " VALUE OF PERFECT INFORMATION " ""& ) "MAXIMUM MORTGAGE LOAN AVAILABLE "5 "IS ";:XPV: 1000: X$o :CN$"PRESS RETURN TO CONTINUE ":F1: 60000: 100~ X$((X))  X 0 X$(X$,(X$)1)  (X$) 6 1030  1040 X$ " " X$: 1010 X$ "$" (X$,6),(F$)1): 500152Ë (C$) 45 (C$)47 (C$) 57 50065?F$F$C$KÉ 50015~Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F)"$" (PV$,6) "." (PV$,2) ' pI$((I100))H u I 0 I$(I$,(I$)1)a z (I$) 5 6030l  6040| I$" " I$ I$(I$,3) "." (I$,2)  OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:R)RAM THE"/# "MORTGAGE INTEREST RATE AND TERM IS"_( "KNOWN, ALONG WITH THE APPLICANT'S GROSS"+ "MONTHLY INCOME AND THE FIXED PERCENT"- "MENTIONED ABOVE. IN ADDITION WE KNOW"/ "WHAT PERCENT OF THE MONTHLY PAYMENT"2 "GOES FOR TAXE)"IN THE SCENARIO TO THIS PROGRAM, THERE"U "ARE SEVERAL POSSIBLE STATES OF NATURE," "ON OF WHICH IS THE TRUE STATE. WE DO" "NOT KNOW WHAT THE TRUE STATE OF NATURE" "(S OF N) IS, BUT WE DO KNOW THE PROB-" "ABILITY OF OCCURENCE O)  X$((X100))*  X 0 X$(X$,(X$)1)A  (X$) 6 2030L  2040e X$ " " X$: 2010 X$ "$" (X$,4) "." (X$,2)  OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED D)HE MAX-"/7 "IMUM EXPECTED VALUE OF ACTIONS WITHOUT"I9 "THIS KNOWLEDGE."::CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";< "IN THIS PROGRAM THERE ARE UP TO 25 S OF"? "N'S AND 8 POSSIBLE ACTIONS. THE MAX-" A "IMUM EXPECTED V)EM F$="INPUTTED DATA TO DATE"=ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDX_á C$: C$"" 50015}dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë)S AND INSURANCE (MORTGAGE"D5 "PAYMENT IS NOT ALL FOR BANK). WITH THIS"q6 "INFORMATION, THE PROGRAM OUTPUTS THE"9 "MAXIMUM MORTGAGE AMOUNT THAT THE AP-"< "PLICANT CAN SUPPORT."F:PCN$"PRESS RETURN TO CONTINUE ":F1: 60000)F EACH S OF N."9 "IN ADDITION, THERE ARE SEVERAL ALTER-"e "NATIVE ACTIONS WE MAY TAKE, EACH OF"! "WHICH HAS A CERTAIN EXPECTED VALUE (OR"# "AVERAGE RETURN.) EXPECTATION THEORY"% "SAYS TO CHOOSE THE ACTION WITH THE"( "HIGHEST)ATA TO DATE". ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDI _á C$: C$"" 50015n dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$()ALUE OF THESE ACTIONS"9 C "IS COMPUTED. THEN THE EXPECTED VALUE"i F "WITH PERFECT INFORMATION ABOUT THE S OF" I "N IS COMPUTED. THEIR DIFFERENCE IS THE" K "EVPI.": _CN$"PRESS RETURN TO CONTINUE ":F1: 60000: ""; d A(25,8),P(25) (C$)20 F$(F$,(F$)1): 50015AË (C$) 45 (C$)47 (C$) 57 50065NF$F$C$ZÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" )d "";>nCN$"APPLICANT'S GROSS MONTHLY INCOME ?": 50000:MG(F$)xCN$"FIXED PERCENT ?": 50000:P(F$):PP100}AMT MG PCN$"TAX-INSURANCE % OF TOTAL PAYMENT ?": 50000:P1(F$):P1P1100PMT AMT (1P1)9 ) EXPECTED VALUE. IF WE KNEW"D+ "WHAT THE TRUE STATE OF NATUE WAS, THENs- "WE WOULD KNOW WHAT ACTION TO TAKE. THE"/ "EXPECTED VALUE OF PERFECT INFORMATION"2 "IS THE EXPECTED VALUE OF DECISIONS WITH"5 "KNOWLEDGE OF THE S OF N MINUS T)F$,(F$)1): 500152Ë (C$) 45 (C$)47 (C$) 57 50065?F$F$C$KÉ 50015~Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F*),M(25),E(8) iP 0 n "";T xCN$"HOW MANY POSSIBLE STATES OF NATURE ?": 50000:N(F$) } N 2 N 25 N (N) 10000: 120 I 1 N CN$"PROBABILITY OF S OF N "(I) " ? ": 50000:P(I)(F$) P P P(I) I ) 60015t F 1 F 0:(y (C$) 13 F$"" 60015E~ (C$) 13 60065j (C$) 20 (F$)1 60060t C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 6)CN$"ANNUAL MORTGAGE INTEREST RATE (%)?": 50000:I(F$):II1200b I IS NOW MONTHLY RATE AS A DECIMAL CN$"LENGTH OF MORTGAGE (YEARS) ?": 50000:N(F$):N12N PV PMT (1I)(1(1I)(N))BAL(1I)(N) "* ****************/ ** EXPVAL **F ****************U 59468,12` ""; "EXPECTED VALUE ANALYSIS" "THERE ARE MANY SITUATIONS FOR WHICH THE" "FINAL RESULT IS A MONETARY PAYOFF BUT"/ I 1 * (P1) 1E6 : 2007 :"PROBABILITIES DO NOT SUM TO 1":v CN$"1 TO STANDARDIZE, 0 TO START OVER ?": 50000:Z9(F$) Z9 0 Z9 1 10000: 170 Z9 0 105 I 1 N:P(I) P(I) P: I:P 1 :CN$"NUMBER OF* ?": 50000:P(N1)(F$)D A(N1) 0 P(N1) 0 200: ALL DONEx N N 1:P P P(N): TOTAL OF PROBABILITIES 160 END UP COMPUTATION I 1 N:PC(I) P(I) P: I: STANDARDIZED PROBABILITIES EX 0( I * (X2$,9) "." (X2$,2) 7);X1$;24);X2$$X': "INPUT ERROR!!!,TRY AGAIN": J 1 600: J:^'t':CN$"PRESS RETURN TO CONTINUE ":F1: 60000:OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$* " Z2$"Y" 1: 1ACN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000L "";V 105\' "INPUT ERROR! TRY AGAIN!": Q 1 300: Q:t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000* "";: F$(1): F$(2): F$(3)* N:EX EX A(I) PC(I): I: EX= EXPECTED VALUEZ "FOR WHICH THE AMOUNT OF THE PAYOFF" "IS UNCERTAIN. IF WE CAN SOMEHOW MAKE" "A LIST OF THE POSSIBLE PAYOFFS AND" "THEIR RELATIVE LIKELIHOODS OF OCCURENCE"  "THEN THE CONCEPT O* POSSIBLE DECISIONS (<=8) ?": 50000:M(F$)@ M 2 M 8 10000: 200K "";[ J 1 My J 3 (J3) ""; "DECISION ";J I 1 N CN$" -PAYOFF WHEN S OF N IS " (I) " ?": 50000:A(I,J)(F* 1 N:EX EX A(I) PC(I): I: EX = EXPECTED VALUE] F$(1) "NO. VALUE PROB PROB ENTRY" F$(2) " ENTR'D STD. EX VAL " F$(3) "--- ----- ---- ---- ------" CN$"IS LINE PRINTER OUTPUT DESIRED* ="INPUTTED DATA TO DATE"0ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDK_á C$: C$"" 50015pdË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$** Z2$"Y" 1,F$(1):1,F$(2):1,F$(3):7 N ** ROUTINE TO FORMAT OUTPUT **[*NXX ((XX .005) 100) 100i4NXX$(XX)|9NTEMP$(XX$,3):N (TEMP$,2,1) "." XX$ XX$ "0" : 20040>N (TEMP$,1) "." XX$ XX$ ".00"HNTT 0*F EXPECTED VALUE"9" "MAY BE USED TO COMPUTE AN 'AVERAGE'"e$"PAYOFF. THE PRESENT PROGRAM COMPUTES"&"THE EXPECTED VALUE OR AVERAGE PAYOFF"( "A SITUATION AS THE ABOVE. INPUT"*"INCLUDES A PAYOFF AN A PROBABILITY FOR", "EACH POSSIB*$)  I: J , COMPUTATION, 6 "";: P 1 12:: P] ; "************** COMPUTING ***************"m @ I 1 N JM(I) A(I,1) T J 2 M ^ A(I,J) M(I) M(I) A(I,J) h J: I  J 1 M EM 10E6 I 1 * (Y/N) ?": 60000:Z2$(F$,1);  Z2$ "Y" Z2$ "N" 10000: 260J , PRINTOUTb 1 Z2$ "Y" 1,4n 6 11000~ J I 1 N TI$(I):H1 (I$):XX A(I): 20000:A$XX$:H2TT UXXP(I): 20000:P$XX$:H3TT VXX PC(I): 20000:P*)20 F$(F$,(F$)1): 500154Ë (C$) 45 (C$)47 (C$) 57 50065AF$F$C$MÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 6*: II 1 (XX$): (XX$,II,1) "." TTTT1 RN II&\N,OÀLPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË *LE RESULT. THE PROBABILITY"9. "IS A NUMBER BETWEEN 0 AND 1"g0 "REPRESENTING LIKELIHOOD OF OCCURENCE."2 "THE PROBABILITIES SHOULD REALLY SUM TO"4 "1 BUT THE PROGRAM WILL NORMALIZE THEM."6 "THUS E.G. THE USER MUST ONLY NOTE THAT" 8* N:E(J) E(J) A(I,J) P(I): I: EXP. VAL5 E(J) EM EM E(J)= Jk I 1 N:EE M(I) P(I): I: EVWPIw PRINT "";  " DECISION EXPECTED VALUE": J 1 M:X1J:X2E(J): 1000: J : I *C$XX$:H4TT& WXX A(I) PC(I): 20000:AP$XX$:H5TTa X 3H1);I$;13H2);A$;20H3);P$;28H4);PC$;39H5);k Y AP$ Z Z2$ "Y" 355 [1,(SP$,3H1);I$;(SP$,10H2);A$;(SP$,06H3);P$; \1,(SP$,7H4);PC$;(SP$,9H5);AP$c Z2$*0015t F 1 F 0:y (C$) 13 F$"" 600158~ (C$) 13 60065] (C$) 20 (F$)1 60060g C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015*C$(13) F$"" F1 F0:#iË (C$)13 F$"" 50015-nÙ C$;FsË (C$)13 50070ixË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015* "A PROBABILITY OF .4 MEANS TWICE AS "P: "LIKELY TO OCCUR AS A PROBABILITY OF .2."Z:CN$"PRESS RETURN TO BEGIN ":F1: 60000d "";ijSP$" "n A(100),P(100),PC(100) x "FOR E* 1 40: "";: I:9: "MAXIMUM EXPECTED VALUE =";((EM 100).005)100:pD "EVWPI =";((E100).005)100:N "EXPECTED VALUE OF PERFECT "S "INFORMATION EQUALS ";(((EEM)100).005)100X:X1$((X1))* "N" I 15 (I15) : 10100: 11000!h I'> Z2$"Y" 1," "{"EXPECTED VALUE EQUALS ";((EX .005)100)100 Z2$ "Y" 4201,"EXPECTED VALUE EQUALS ";((EX.005)100)100: Z2$"Y" 1," ,(F$)1): 500154Ë (C$) 45 (C$)47 (C$) 57 50065AF$F$C$MÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 6+Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ@` SUBROUTINE FOR STRING INPUTPeF$"":C$""[j CN$;vo C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (*ACH POSSIBLE PAYOFF INPUT PAYOFF"7 } "AMOUNT AND PROBABILITY."r "INPUT 0,0 TO COMPLETE ENTRY AND TO DO COMPUTATIONx N 0 "ENTRY ";N1: CN$"ENTER PAYOFF ?": 50000:A(N1)(F$) CN$"ENTER PROBABILITY *  X1 0 X1$(X1$,(X1$)1)/ (X1$) 2 X1$ " " X1$MX2$(((X2 .005)100))r X2 0 X2$(X2$,(X2$)1) (X2$) 100 X2$ "0" X2$: (X2$) 10 X2$"0" X2$ (X2$) 11 X2$ " " X2$: 1030X2$+ *******************7 ** RULE78 **Q *******************` 59468,12k ""; "" " INTEREST VIA RULE OF 78'S " ""-F$)1 60060 C$;# (C$)20 F$(F$,(F$)1): 600150F$F$C$< 60015o: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015u{,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015+ BE PAID = $";I;F$(1) "PAYMENT # INTEREST INTEREST LEFT"e F$(1):: Z2$"Y" 1,F$(1):1," "pLL 0 J FM LMIP I (MJ1)(M(M1)2):IL I (1J2 (2M J 1)(M(M1)2))X1 J:X2 IP:X3IL: 1000  +' OÀ PÏ SUBROUTINE FOR DATA INPUTV UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 5001+  *********************9 ** SINKFUND **U *********************d 59468,12o ""; "" " SINKING FUNDS " "+  "THIS PROGRAM WILL COMPUTE THE INTEREST"Z "CHARGE ON LOANS WHEN THE INTEREST IS""COMPUTED VIA THE RULE OF 78'S." "NECESSARY INFORMATION FOR USER INPUT" "INCLUDES LENGTH OF LOAN, TOTAL INTEREST" ! "CONSUMER IS CHARGED ON LO+ 00:ZN (F$)4 " ORDINARY ANNUITY-FUTURE VALUE TYPE PROBLEM? , "";I 6 350Y @I I 100| JPMT FV I (( 1 I)N 1) T 420: PRINTOUT ^ INPUT SBR h "";:"ENTER EACH OF THE FOLLOWING.": rCN$"FUTURE VALUE + 3);X1$;13);X2$;30);X3$? Z2$"Y" 1," ";X1$;(SP$,11(X1$));X2$;g Z2$"Y" 1,(SP$,18(X2$));X3$ Z2$"Y" 1,"----------------------------------------"LL LL 1: LL 12 (LL12) : 10100: ""; LL 12 (LL+ 5 nÙ C$; sË (C$)13 500701 xË (C$)20 (F$)1 50065[ }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î+"2 "A SINKING FUND IS AN ANNUITY WHICH MUST"_ "ACCUMULATE TO SOME FIXED AMOUNT BY A""GIVEN TIME IN THE FUTURE. THIS MEANS " "THAT A FIXED AMOUNT WILL BE PAID INTO A "FUND EVERY PERIOD AND EARN INTEREST." "AT THE END O+AN OVER ITS":# "TERM, AND THE PAYMENT OF NUMBERS OF THE"h% "PERIODS IN QUESTION. OUTPUT SHOULD BE"( "A SIMPLE TABLE SUMMMARIZING INTEREST.":Z 10100_SP$" "d "";0iCN$"IS LINE+ ?": 50000:FV(F$)H |CN$"NUMBER OF PAYMENTS ?": 50000:N(F$)_  ZI$"A" 400 CN$"ANNUAL INTEREST RATE (%) ?": 50000:I(F$) I I ZN: 410 CN$"INTEREST RATE PER PERIOD (%) ?": 50000:I(F$) +12) F$(1):  J( Z2$"Y" 1," ":1," "e:CN$"PRESS RETURN FOR MORE COMPUTATION ":F1: 60000{ Z2$"Y" 1:1 100 "";X1$ (" "((X1)),3)LX2$ ((X2 100))OX2$" " X2$Q X2$ "0" X2$ + ` SUBROUTINE FOR STRING INPUT eF$"":C$""# j CN$;> o C$: C$"" 60015T t F 1 F 0:u y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): +F THE LAST PERIOD, THE SUM"E "OF THE PAYMENTS AND THE INTEREST WILL"s" "JUST EQUAL THE PREDE-FIXED AMOUNT. IN"$ "THIS PROGRAM WE MUST INPUT THE FUTURE"& "DESIRED AMOUNT (FUTURE VALUE) , THE"( "INTEREST RATE, AND THE NUMBER OF "#+ PRINTER OUTPUT DESIRED (Y/N) ?": 60000:Z2$(F$,1);j "";ik Z2$ "Y" Z2$ "N" 10000: 105l Z2$ "Y" 1,4nCN$"HOW MANY MONTHS (PAYMENTS) IS THE "sCN$ CN$ "LOAN FOR ?": 50000:M(F$)'xC+  PRINTOUT  "";A CN$"PRINTER OUTPUT (Y/N) ?": 60000:Z2$(F$,1)W  Z2$"Y" 1,4b  "";  "SINKING FUND FOR ";N;" PAYMENTS AT"  "INTEREST RATE OF ";100 I;"% PER PERIOD"  Z2$ "Y" 450 1,"SINKING FUND FOR+ "00" S (X2$,(X2$)1,1) " " 1110F TX2$(X2$,(X2$)2) "0" (X2$,1)b VX2$ (" "X2$,8) `X2$ (X2$,6)"." (X2$,2) X3$ ((X3 100)) X3$ " " X3$  X3$ "0" X3$ "00"  (X3$,(X3$)1,1) " " a60015 F$F$C$ 600157: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015=C,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î+* "PAYMENTS NEEDED. THE PROGRAM WILL "S, "COMPUTE THE PAYMENT AND WILL PRINT UP A"}. "TABLE SHOWING HOW THE FUND GROWS."Z:CN$"PRESS RETURN TO BEGIN ":F1: 60000 "";SP$" "+N$"WHAT IS THE TOTAL INTEREST FOR THE "g}CN$ CN$ "TERM OF THE LOAN ?": 50000:I(F$)CN$"WHICH IS THE 1ST MONTH FOR WHICH "CN$ CN$ "OUR INTEREST COMPUTATION IS "CN$ CN$ "DESIRED + ";N;" PAYMENTS AT"5 1,"INTEREST RATE OF ";100 I;"% PER PERIOD"V 1,"NUMBER OF PAYMENTS = ";Nu  "NUMBER OF PAYMENTS =";N  ZI$ "A" " CONSISTING OF ";ZN;" PAYMENTS ANNUALY."  ZI$ "A" 480  Z2$ "Y" 475 + 1210 X3$ (X3$,(X3$)2) "0" (X2$,1): X3$(" " X3$,8)^ X3$ (X3$,6) "." (X3$,2)d  ' "INPUT ERROR!!!,TRY AGAIN!:FOR JJ = 1 TO 500:NEXT JJ ' t' Z2$ "Y" CN$"PRESS RETURN TO CONTINUE ":F1: 60000 ~,= ";PMT Z2$"Y" 1,"PAYMENT = ";PMT. Z2$"Y" 1," "e:CN$"PRESS RETURN TO PRINT TABLE ":F1: 60000p "";PMT(1) 0:PI(1) 0:D1F(1)0: SUM OF PAYMENTS, INT, & INCR. IN FUNDF$(1) "PER DEP INT/FUND INC/FUND +-CN$"IS THE INTEREST RATE QUOTED BY THE "rCN$ CN$"PERIOD(P) OR ANNUALLY (A) ?": 60000:ZI$(F$,1) ZI$ "P" ZI$"A" "INPUT ERROR": 260 ZI$ "A" 290 CN$"NUMBER OF PAYMENTS PER YEAR ?": 500+ ?": 50000:FM(F$)UCN$"WHICH IS THE LAST MONTH DESIRED ?": 50000:LM (F$) Z2$ "Y" CN$"PRESS RETURN WHEN PRINTER READY ":F1: 60000 ""; "TOTAL INTERESTS TO BE PAID = $";I Z2$"Y" 1,"TOTAL INTERESTS TO+1," CONSISTING OF ";ZN;" PAYMENTS ANNUALLY."M 1,"ANNUAL INTEREST RATE = ";100 I ZN "ANNUAL INTEREST RATE = ";100 I ZN: 490 "INT. RATE PER PERIOD = ";100 I  Z2$ "Y" 1,"INT. RATE PER PERIOD = ";100 I  "PAYMENT ,AMT""F$(2) "--- --- -------- -------- ---"60 F$(1): F$(2)X1 Z2$"Y" 1,F$(1):1,F$(2)b5A 0r: J 1 NDPI A I:A A PI PMT:D1F PI PMTN A = AMT IN FUNDD:P1 = INTEREST ON FUND: D1F = INC ON FUNDXJ$, ********************7 ** NPV **R ********************a 59468,12l ""; "" " NET PRESENT VALUE OF PROJECT " ",UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"QZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDl_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË , 0 I NPV NPV A(J) (1R)J# J. 10009 "";O  I 1 6:: I  : "":  "NET PRESENT VALUE AT";100R;" % INTEREST"  "EQUALS ";NPV$ : ", 0ÙÎ` SUBROUTINE FOR STRING INPUT)eF$"":C$""4j CN$;Oo C$: C$"" 60015et F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$, (J)YXX PMT: 20000:PMT$ XX$:H2 TT7ZXX PI: 20000:PI$XX$:H3TT_[XX D1F: 20000:D1F$ XX$:H4 TT\XX A: 20000:A$ XX$:H5 TT] J$;10H2);PMT$;19H3);PI$;29H4);D1F$;^ 39H5);A$: Z2$ "Y" 610_1,J$;(S, "- "MOST INVESTMENT PROJECTS INVOLVE SOME"\ "INITIAL COST AND THEN INFLOWS AND OUT-"! "FLOWS IN THE FUTURE UNTIL SOME TIME"# "WHEN THE INVESTMENT IS TERMINATED."% "BASED UPON THE RISK IN THE ORIGINAL" ( "INVESTMENT, THE INVES, (C$)20 (F$)1 50065"}Ë (C$)20 F$(F$,(F$)1): 50015UË (C$) 45 (C$)47 (C$) 57 50065bF$F$C$nÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":, ":3 CN$"DO YOU WANT ANOTHER NPV FOR SAME CASH "q CN$CN$"FLOWS BUT CHANGING INTEREST RATE (Y/N)?": 60000 Z9$(F$,1)  Z9$ "Y" Z9$ "N" 10000: 270 " , Z9$"N" "";: 115 1 "";! 6CN$"NEW REQUIp(F$,(F$)1): 60015 F$F$C$ 60015H: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015NT,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 5001,P$,8H2);PMT$;(SP$,8H3);PI$;,`1,(SP$,9H4);D1F$;(SP$,10H5);A$eb J 12 (J12) Z2$"Y" 670: "";: F$(1)lPMT(1) PMT(1) PMT:PI(1) PI(1) PI:D1F(1) D1F(1) D1Fv JXX PMT(1): 20000:PT$XX$:H1TTXX PI(1),TOR SHOULD HAVE"8+ "SOME REQUIRED RATE OF RETURN HE/SHE"e- "DESIRES TO EARN FROM THE INVESTMENT."/ "IF THE PRESENT VALUE OF THE CASH FLOWS"2 "FROM THE PROJECT ARE POSITIVE WHEN USING";5 "THE REQUIRED RATE AS THE DISCOUNT RATE""7,C$""j CN$;o C$: C$"" 60015t F 1 F 0:<y (C$) 13 F$"" 60015Y~ (C$) 13 60065~ (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INP,RED RATE ?": 50000:R(F$):RR100+ @ 205> NPV$((NPV))g  NPV 0 NPV$(NPV$,(NPV$)1)  (NPV$) 8 1030  1040 NPV$ " " NPV$: 1010 NPV$"$" (NPV$,8)  ' "INPUT ERROR!!!,TRY AGAIN ": , ****************/ ** OPTLOSS **F ****************~SP$" " 59468,12: ""; "" " OPPORTUNITY LOSS TABLE "' ",: 20000:PI$XX$:H2TT"XX D1F(1): 20000:D1$ XX$:H3TTR "TOT";10H1);PT$;19H2);PI$;29H3);D1$h Z2$ "Y" 6551,"TOT";(SP$,7H1);PT$;(SP$,8H2);PI$;(SP$,9H3);D1$ Z2$"Y" 1:1,"-------------------------------------, "THEN THE PROJECT IS A REASONABLE ONE"N9 "TO INVEST IN. THIS PROGRAM COMPUTES"{< "THE PRESENT VALUE OF SUCH A PROJECT."A "IF THE USER SETS THE INITIAL INVESTMENT"F "EQUAL TO 0 THEN THE PRESENT VALUE"I "EQUALS THE MAXIMUM AMOUNT T6UT ERROR, PLEASE TRY AGAIN ":: 60015 ,(F$)1): 50015UË (C$) 45 (C$)47 (C$) 57 50065bF$F$C$nÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":,K 1 500: K: OÀ% PÏ SUBROUTINE FOR DATA INPUTg UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 ,"S "THIS PROGRAM ASSUMES THERE ARE FROM" "1 TO 5 POSSIBLE ACTIONS WE CAN TAKE." "IF THE STATE OFF NATURE (S OF N) "IS KNOWN THEN EACH ACTION LEADS TO" "A KNOWN MONETARY RESULT. THIS RES,---";% Z2$"Y" 1,"----------------------------------------"< Z2$"Y" 1: 1r::CN$"PRESS RETURN TO CONTINUE ":F1: 60000| 250 N ** ROUTINE TO FORMAT OUTPUT ***NXX ((XX .005)100)1004NXX$ (XX): XX 0 XX$,O BE PAID"%K "INITIALLY FOR THE PROJECT."TZCN$"PRESS RETURN TO BEGIN ":F1: 60000_d "";ln A(200)s " INPUT FOR NEW PROJECT " :xCN$"REQUIRED RATE OF RETURN (%) ?": 50000:R(F$):RR100# CN$"INITIAL -L PROFIT OF EACH ACTION";?- "WITH RESPECT TO A PARTICULAR S OF N"m/ "THEN THERE IS THE LARGEST PROFIT. THE"2 "AMOUNT BY WHICH EACH OF THE OTHER"5 "PROFITS DIFFER FROM THE MAXIMUM IS"9 "CORRESPONDING ACTION FOR THE PARTICULAR" <, F$"" 50015nÙ C$;sË (C$)13 50070BxË (C$)20 (F$)1 50065l}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 5001,ULT". "IS A CONDITIONAL PROFIT. FOR EXAMPLE,"]! "IF ACTION 3 LEADS TO A $35 PAYOFF WHEN"# "STATE OF NATURE 4 IS TRUE THEN 35 IS"% "THE CONDITIONAL PROFIT OF ACTION 3"( "GIVEN STATE OF NATURE 4. IF WE LOOK"+ "AT THE CONDITIONA, (XX$,(XX$)1)6NTEMP$(XX$,3)99N (TEMP$,2,1) "." XX$ XX$ "0" : 20040e>N (TEMP$,1) "." XX$ XX$ ".00"HNTT 0: II 1 (XX$): (XX$,II,1) "." TT TT 1MN IIRNOÀPÏ SUBROUTINE FOR DATA INPUT,CASH COST OF PROJECT ?": 50000:A(0)(F$)2 A(0)A(0)< I 1 CN$"CASH FLOW FOR PERIOD "(I) " (-.01 TO END ) ?": 50000 A(I) (F$) A(I) .01 I I 1: 200 I I 1: 145 COMPUTATION NPV 0 J- "STATE OF NATURE.":F=CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";u> "IN THIS PROGRAM ALL OF THE CONDITIONAL"A "PROFITS ARE ENTERED AND AN OPPORTUNITY"C "LOSS TABLE IS CONSTRUCTED. EXPECTED"F "OPPORTUNITY LOSSES ARE ALSO CO- (X1$) 100 X1$ "0" X1$& (X1$) 10 X1$ "0" X1$P (X1$) 6 X1$ " " X1$: 2020tX1$ (X1$,4) "." (X1$,2) X1$; Z2$"Y" 1,X1$;" ";': "INPUT ERROR!!!,TRY AGAIN ":' JJ 1 600:- 1 N: J 1 M:A(I,J) M(I) A(I,J): J: I. J 1 Mi I 1 N:E(J) E(J) A(I,J) P(I): I: EXP. VALq J} PRINT "";F$(1) "ACTION"F$(3) "OPPORTUNITY LOSS OF ACTION GIVEN S OF N" F$(4) "S PR - *****************1 ** UTILITY **I *****************X 59468,12c ""; "" " PERSONAL UTILITY FUNCTION " """ "- D SOME LOWER ARB-"4 i "ITRARY UTILITY, SAY 0. WE DETERMINE"_ k "THE UTILITIES OF THE OTHER PAYOFFS" n "BY SETTING UP A GAMBLE. WE ARE GIVEN" q "THE CHOICE OF HAVING THIS PAYOFF FOR" s "SURE OF GETTING THE HIGHEST PAYOFF" u "WITH PRO- MPUTED." K3 PCN$"PRESS RETURN TO BEGIN ":F1: 60000> _ "";] dD 6: MAXIMUM DIMENSION| f A(D 2,D 2),P(D),E(D) iP 0 xCN$"NUMBER OF POSSIBLE STATES OF NATURE ?": 50000:N (F$) } N 2 N D N (N) 10000:- JJ:t'::CN$"PRESS RETURN TO CONTINUE ":F1: 60000:$OÀDPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$- ACTION "6 :CN$"IS LINE PRINTER OUTPUT DESIRED (Y/N) ?": 60000MZ2$(F$,1): "";{ Z2$ "Y" Z2$ "N" 10000: 525 Z2$ "Y" 1,4:1," " F$(3): F$(4): Z2$"Y" 1,F$(3):1,F$(4) 7): I 1 M 1: "- UTILITY THEORY HAS TO DO WITH ONE'S"N "PREFERENCE FOR VARIOUS DECISION AL-"} "TERNATIVES. SUPPOSE EVERY DECISION ONE" "CAN MAKE LEADS TO A KNOWN MONETARY" "PAYOFF. THEN THAT PERSON WILL CHOOSE"! "THE DECISION WITH THE HIGHEST P-BABILITY 1-P. WITH P BEING"> x "DETERMINED, THE UTILITY OF THIS MIDDLE"i { "PAYOFF IS COMPUTED. AS THE PAYOFFS" } "GO UP, SO MUST P. WE LOOK FOR THE P"  "SO THAT WE ARE INDIFFERENT BETWEEN" "THE SURE THING AND THE GAMBLE." "UTI- 120 I 1 NO CN$ "PROBABILITY OF S OF N " (I) " ? ": 50000:P(I) (F$)` P P P(I)h I~ P 1 : 200 : "PROBABILITIES DO NOT SUM TO 1." CN$"ENTER 1 TO STANDARDIZE, "! CN$ CN$ "0 TO-(13) F$"" F1 F0:iË (C$)13 F$"" 50015%nÙ C$;>sË (C$)13 50070axË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 - ";I;" ";: I: " ";I/ Z2$"Y" 1," ";: I 1 M 1h Z2$ "Y" 1," ";I;" ";: I:1," ";In~ I 1 N&X1 I:X2 P(I): 1000: 6);: Z2$"Y" 1," ";0 J 1 M:X1A(I,J): 2000: J:" ": -AYOFF"0# "HOWEVER, IF THERE IS SOME UNCERTAINTY"^% "IN THE RESULT OF A DECISION, THEN THE"( "CORRECT DECISION IS NOT SO OBVIOUS"+ "UTILITY THEORY PERMITS US TO ASSIGN"- "A NUMBER TO EACH PAYOFF, ITS 'UTILITY'."/ "HIGHER PAYOFF-LITY THEORY SAYS THERE IS SUCH A P."+ : 10100: "";U "FOR EXAMPLE, IF THE LOWEST PAYOFF" "WAS $0 AND $100000 THEN FOR AN INTER-" "MEDIATE PAYOFF OF $50000 WE WOULD ASK" "WOULD WE PREFER $50000 FOR SURE OR" "$100000 WITH- START OVER ?": 50000:Z9 (F$)I Z9 0 Z9 1 10000: 170\ Z9 0 105 I 1 N:P(I) P(I) P: I :P 1 CN$"NUMBER OF POSSIBLE ACTIONS (<=5) ?": 50000:M (F$) ""; M 2 M 5 -: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ8` SUBROUTINE FOR STRING INPUTHeF$"":C$""Sj CN$;no C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$-Z2$"Y" 13 I4: Z2$ "Y" 1," "15 "EXPECT.": "VALUE ";a: Z2$"Y" 1,"EXPECT.":1,"VALUE ";? I 1 M:X1 E(I): 2000: I:D Z2$"Y" 1," "X: Z2$"Y" 1," ":1: 1bX1$ ((X1))X2$(-S LEAD TO HIGHER UTILITIES,";E2 "BUT A UTILITY OF 2 FOR $5000 DOES NOT"q5 "NECESSARILY MEAN A UTILITY OF 4 FOR"7 "$10000. ONCE UTILITIES ARE DETERMINED,"9 "DECISIONS ARE MADE BASED UPON HIGHEST"< "EXPECTED UTILITY."K: 10100- PROBABILITY P AND $0 WITH"5 "PROBABILITY P-1. KEEP ADJUSTING P"b "UNTIL WE ARE INDIFFERENT TO THE SURE" "THING AND THE BET. THIS IS P.": "DIFFERENT PEOPLE HAVE DIFFERENT" "UTILITY FUNCTIONS. THUS UNDER IDEN-" "TICAL CI-M (M) 10000: 2002 "NO PAYOFFF MORE THAN 9999.99":B J 1 M{ J 4 "";: "NO PAYOFF MORE THAN 9999.99": "ACTION ";J I 1 N CN$" -PAYOFF WHEN S OF N IS "(I) " ?": 50000:A(I,J) (F$))1 60060 C$; (C$)20 F$(F$,(F$)1): 60015(F$F$C$4 60015g: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015ms,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015 -((X2 .05)10)) (X2$) 100 X2$ "0" X2$: (X2$) 10 X2$ "0" X2$\X2$ (X2$,1) "." (X2$,1)p X1$;" ";X2$; Z2$ "Y" 1,X1$;" ";X2$;X1$ (((X1 .005)100)) X1 0 X1$(X1$,(X1$)1)-P "";.Z "UTILITIES ARE DETERMINED IN THE FOL-"[] "LOWING WAY: THE POSSIBLE PAYOFFS ARE"_ "RANKED FROM HIGHEST TO LOWEST. THE"a "HIGHEST PAYOFF IS ASSIGNED SOME ARB-"d "ITRARY UTILITY, SAY 1. THE LOWEST" g "PAYOFF IS ASSIGNE-RCUMSTANCES, DIFFERENT PEOPLE"9 "MAY TAKE DIFFERENT DECISINS AND BOTH"f "STILL MAXIMIZE EXPECTED UTILITY. THE" "PROGRAM WILL ASSIGN UTILITIES TO DOLLAR" "AMOUNTS BETWEEN $0 AND $100000" "WITH THE UTILITY OF $0 BEING SET TO"-  I:: J , COMPUTATION* 6 "";: P 1 12:: P[ ; "*************** COMPUTING **************"k @ I 1 N} EM(I) A(I,1) J J 2 M O A(I,J) M(I) M(I) A(I,J) T J: I ^ OPPRTUNITY LOSSES COMPUTED NEXTc I . "0 AND THAT OF $100000 BEGIN SET TO 10."I:CN$"PRESS RETURN TO BEGIN ":F1: 60000a, A(20),P(20),U(20)6 0,100,1000,3000,5000,10000,20000,30000,40000,50000,60000; 70000,80000,90000,100000@ I 1 15: A(I): I: AMOUNTS FOR ."0" X2$ (X2$) 0 X2$ " 0.00":8 (X2$) 5 X2$ " " X2$: 1050Z$X2$(X2$,3) "." (X2$,2)`.':"INPUT ERROR!!!,TRY AGAIN !": J 1 600: J:'t'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000:OÀ. ******************3 ** ENVELOPE **L ******************[ 59468,12f "";| L$(100): T(30) JJ 1 30:T(JJ)30: JJ JJ 1 100:L$(JJ) " ": JJ ""# " .3!L:CN$"MAKE YOUR CHOICE ?": 50000:ZC(F$)HV ZC 220,300,400,500,600,700,800S` 1000^ "";' "INPUT ERROR!!!, TRY AGAIN !": J 1 500: J:t'CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000y'OÀPÏ.COMPUTATIONS JP(1)0:P(15)1OU(1)0:U(15)10(T "";9^ I 2 14Dc "";ph "WITH WHAT PROBABILITY (P) WOULD YOU"m "BE DIFFERENT TO $ ";"";A(I);"";n "FOR SURE OR"r "$";A(15);" WITH PROBABILITY P AND"w "$"A(1);" WI. 6: 15);L$(I): I : 10100 <  PRINT ENVELOPE ON PRINTERG  ""; CN$"HOW MANY ENVELOPES DO YOU DESIRE ?": 50000:K(F$)  1,4  JE 1 K  I 1 N:1,T(I));L$(I): I  JE 1:1  P 1 12:: P . PÏ SUBROUTINE FOR DATA INPUT=UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"qZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:::iË (C$)13 F$"" 50015nÙ. ENVELOPE WRITING PROGRAM "T "" "THIS PROGRAM WILL GENERATE A PRINTED" "ENVELOPE ON A LINE PRINTER. UNLESS"# "TRACTOR FED ENVELOPES ARE AVAILABLE," ( "A FRICTION FEED PRINTER MU. SUBROUTINE FOR DATA INPUTDUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"xZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:::iË (C$)13 F$"" 50015nÙ C$. TH PROBABILITY 1-P?"&| "THIS PROBABILITY MUST BE AT LEAST"B "EQUAL TO ";"";P(I1)HCN$"ENTER THE PROBABILITY ?": 50000:P(I)(F$) P(I) P(I1) P(I) 1 410 ""; "PROBABILITY MUST BE BETWEEN". 10100 N X NEW DATA% v I 1 5:T(I)2- { IH  I 6 12:T(I) 30P  I N22: LENGTH OF ENVELOPE IN PRINTED LINES  I 1 100:L$(I) " ": I   CHANGE PRINT TABS  "";  "PRESENT RETURN ADDRESS TAB = . C$;sË (C$)13 50070xË (C$)20 (F$)1 50065F}Ë (C$)20 F$(F$,(F$)1): 50015yË (C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` .ST BE HOOKED"5* "UP TO THE SYSTEM. THE USER INPUTS A"d, "RETURN ADDRESS, AN ADDRESS, THE LENGTH"2 "OF THE ENVELOPE IN LINES (6 TO THE"7 "INCH), AND NUMBER OF COPIES. MANY OF THE";9 "INPUT VALUES MAY BE REPEATED ON SEVERAL"< "E.;sË (C$)13 50070#xË (C$)20 (F$)1 50065M}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010Ù:Î` SUB. "";A(I1);" AND ";A(15):: 360 I' COMPUTE UTILITIESZ I 2 15:U(I)P(I)U(15)(1P(I))U(1): Ie "";CN$"IS PRINTED OUTPUT DESIRED ?": 60000:Z2$(F$,1) Z2$ "Y" Z2$ "N" 10000: 500F$(1) " PAYOF.";T(3)0 CN$"NEW RETURN ADDRESS TAB ?": 50000:T(3)(F$)N  I 1 5:T(I)T(3): IT   "PRESENT MAIL-TO ADDRESS TAB = ";T(10) CN$"NEW MAIL TO ADDRESS TAB ?": 50000:T(10) (F$)  I 7 N:T(I) T(10): I   ".SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;+o C$: C$"" 60015Wt F1 F$ "" (C$) 13 F0:::xy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$.NVELOPES WITHOUT ADDITIONAL INPUT."NZ:CN$"PRESS RETURN TO BEGIN ":F1: 60000Y_ "";c 600n 1000y "";CN$"ENTER # OF TYPED LINES WHICH "CN$CN$"CAN FIT ON ENVELOPE ?": 50000:N(F$) N (N) N0 .ROUTINE FOR STRING INPUT eF$"":C$""j CN$;2o C$: C$"" 60015^t F1 F$ "" (C$) 13 F0:::y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(.F UTILITY" "";: Z2$ "Y" 1,4;! F$(1):: Z2$ "Y" 1,F$(1)y" Z2$"Y" 1,"----------------------------------------"& I 1 15+X1A(I):X2U(I): 10000 3);X1$;21);X2$: Z2$ "Y" 1,3);X1$;11);X2$.";: "PRESENT NUMBER OF ENVELOPE LINES =";NJ *:CN$"NEW NUMBER OF LINES?": 50000:N(F$)t / N (N) N 0 10000: 810z 4  "";: 18);"MENU":   "1. INPUT RETURN ADDRESS"   "2. INPUT MAIL TO ADDRESS" r(F$,(F$)1): 60015F$F$C$ 600158 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010@:F(C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` . 10000: 210 "";! I 1 4nCN$"ENTER LINE # " (I) " OF RETURN ADDRESS (-1 FOR EMPTY) ?" 60000:L$(I1)F$ L$(I1) "-1" L$(I1)" " I", ENTER MAIL TO ADDRESS13 "";6 I 1 4> oF$,(F$)1): 60015F$F$C$ 60015? "INPUT ERROR, PLEASE TRY AGAIN ":: 60010G:M(C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010Ù:Î` SUB.@ Z2$ "Y" P 1 40:1,"-";: P:1," "D I3I Z2$ "Y" 1:19NMX1$((X1.5))w (X1$) 7 X1$ " " X1$: 1010X1$ (X1$,7)X2$ ((X2.005)1000) (X2$) 1 X2$ "0" X2$: (X2$) .1 X2$. "3. PRINT ENVELOPE ON SCREEN" 9 "4. PRINT ENVELOPE ON PRINTER"?k "5. CLEAR DATA:READY FOR NEW ENVELOPEq$ "6. CHANGE PRINT TABS FOR RETURN) " ADDRESS OR MAIL TO ADDRESS"+. "7. CHANGE # LINES ON ENVELOPE"/ ****************/ ** ANNU1 **F ****************U 59468,12` ""; "" " ANNUITY COMPUTATION " "" "AN .@CN$"ENTER LINE # "(I) " MAIL TO ADDRESS (-1 FOR EMPTY) ?"J E 60000[ JL$(IN2)F$ T L$(IN2) "-1" L$(IN2) " " ^ I   PRINT ENVELOPE ON SCREEN  "";  I 1 5: T(I));L$(I): I  I N2 N2 / AS IN THIS CASE, A BALLOON"> j "PAYMENT OF A CERTAIN AMOUNT WOULD ADD"l l "THAT AMOUNT TO THE FUTURE VALUE. NOTE" n "THAT INTEREST RATES ARE WRITTEN AS PER" p "CENTS, NO AS DECIMALS (E.G. 6% NOT .06)" r "IN ADDITION, NOTE THAT INTEREST/ING FUNDI .01P FV PMTI((I1)N1)A D PMT (N(1I)(N1)I((1I)N1)I2)LD DW  1050l* (P) .1 v4 770> I FOR FV ANNUITY DUEHI .01RP FV PMT (1I)I((1I)N1)\D PMT((N1)(1I/ANNUITY IS ANY SET OF EQUAL"F "PAYMENTS MADE AT EQUAL INTERVALS OF"m "TIME. WITH AN ORDINARY ANNUITY" "PAYMENTS ARE MADE AT THE ENDS OF THE" "PERIODS IN QUESTION. THE PRESENT VALUE"" "OF AN ANNUITY IS THE AMOUNT OF CASH"!$ /99 PV PMT (1I)(1(1I)(N))BAL(1I)(N)Y PMT 9999 PMT (PVBAL(1I)(N))I(1(1I)(N)) N 9999 T (BALIPMT)(PVIPMT):N(T)(1I) BAL 9999 BAL PV PMT (1I) (1(1I)(N)):BALBAL(1I)N (/ ON OF DATA BEING INPUTTED_á C$: C$"" 50015/dË C$(13) F$"" F1 F0:::PiË (C$)13 F$"" 50015ZnÙ C$;ssË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 4/ RATE"( t "IS PER PERIOD, I.E. PER MONTH, PER YEAR"7 v "ETC.":B x 1210M "";v "SELECT TYPE OF PROBLEM DESIRED"| "1. ORDINARY ANNUITY-FUTURE VALUE SINKING FUND" "2. ANNUITY DUE-FUTURE VALUE" "3. ORDIN/ )N1)IPMT((1I)(N1)1I)I2 fD Dp 1050*z (P) .1 4 850T I FOR PV/ORDINARY ANNUITY`I .01P PMTI(1(1I)(N))BAL(1I)(N)PVDNPMT(I(1I)(N1))PMT(I2)(1(1I)(N))NBAL(1I)(N1)/ "ONE WOULD ACCEPT NOW INSTEAD OF THE"N& "SEQUENCE OF FUTURE PAYMENTS. BECAUSE"x( "MONEY HAS TIME VALUE (INTEREST IS"* "CHARGED) THE PRESENT VALUE DOES NOT", "EQUAL THE SUM OF THE PAYMENTS. THE". "FUTURE VALUE OF AN ANNUITY IS THE A/ I99.99) .01 910 1080 620: 730'&I I 100m0 PV 9999 PV PMT (1I)(1I)(1(1I)(N))BAL(1I)(N): PMT 9999 PMT (PVBAL(1I)(N))I(1I)(1(1I)(N))D N 9999 T (BALIPMT(1I))(PVIPMT(1/6 (C$)47 (C$) 57 50065F$F$C$ É 50015?Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005GÙ:MÎo` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F1 F$ "" (C$) 13 F0::/ARY ANNUITY-PRESENT VALUE"/ "4. ANNUITY DUE-PRESENT VALUE"@ "5. EXIT "F s CN$"MAKE YOUR CHOICE ?": 50000:C(F$) C 5 "";: ""; CN$"IS INTEREST RATE QUOTED PER " CN$ CN$ "PERIOD (P) OR / 1050 (P) .1  930 I FOR PV/ANNUITY DUE(I .01^P PMT (1I)I(1(I1)(N))BAL(1I)(N)PVxX 1 I:ZBAL:YPMTD X(NY(IX(N1))Y(I2)(1X(N)))YI(1X(N))NZX(N1) 1050 (P)/MOUNT";30 "OF CASH THAT WOULD ACCUMULATE BY THE END";\2 "OF THE ANNUITY IF THE INDIVIDUAL"4 "PAYMENTS ARE INVESTED AT THE PREVAILING"6 "INTEREST RATE."F: 1210P "";: "MANY ANNUITIES ALSO INVOLVE A LAST"R "BALLOON PAYMEN/I)) I N 9999 N (T)(1I)TN BAL 9999 BAL PVPMT(1I)(1I)(1(1I)(N)):BALBAL(1N)NqX (I99.99).01 980|b 1080l INPUT SBRv "";{ "ENTER EACH OF THE FOLLOWING FOR THE"| "UNKOWN VALUE ENTER 99:y (C$) 13 F$"" 60015~ (C$) 13 600654 (C$) 20 (F$)1 60060> C$;h (C$)20 F$(F$,(F$)1): 60015uF$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010:(C$) 4/ANNUALLY (A) ?": 60000:ZI$(F$,1)J  ZI$ "P" ZI$ "A" "INPUT ERROR ": 260c  ZI$ "A" 290i  CN$"NUMBER OF PAYMENTS PER YEAR ?": 50000:ZN(F$) " C 300,390,460,540,1200 , ORDINARY ANNUITY-FUTURE VALUE TYPE P/ .1  1000 COMPUTATION$I I PD.$8 PRINT OUT/B "";bL C 1 C 2 "FUTURE VALUE =";FVV C 3 C 4 "PRESENT VALUE =";PV` "NUMBER OF PAYMENTS = ";Nj ZI$ "A" "CONSISTING /T. IN THE ANNUITY PROBLEMS";BT "WE EXAMINE, THE VARIABLES OF INTEREST"qV "ARE: NUMBER OF PAYMENTS, INTEREST RATE"X "PER PERIOD, PAYMENT PER PERIOD, PRESENT"Z "OR FUTURE VALUE, AND BALLOON PAYMENT"\ "(AT END OF TERM) IF DESIRED. GIV/99. ":, C 3 CN$"FUTURE VALUE ?": 50000:FV(F$)h C 3 CN$"PRESENT VALUE ?": 50000:PV(F$)CN$"PAYMENT ?": 50000:PMT(F$)CN$"NUMBER OF PAYMENTS ?": 50000:N(F$) ZI$ "A" CN$"/ *******************5 ** CHECK2 **O *******************^ 59468,12i ""; "" " CHECK2 " ""+/ROBLEM 6 "";@ 620JI I 100BT FV 9999 FV PMT ((1I)N1)In^ PMT 9999 PMT FV I((1I)N1)h N 9999 N ((FVIPMT1))(1I)r (I99.99) .01 750| 1080: PRINTOUT 620I I 100/OF ";ZN;" PAYMENTS ANNUALLY."0t ZI$"A" "ANNUAL INTEREST RATE = ";100IZN: 1160V~ "INT. RATE PER PERIOD = ";100Iz "PAYMENT = ";PMT C 3 C 4 "BALLOON PAYMENT = ";BALCN$"PRESS RETURN TO CONT/EN ANY". ^ "FOUR VALUES OF THE ABOVE VARIABES, THIS";[ ` "PROGRAM WILL FIND THE FIFTH VARIABLE" b "WHEN CONSIDERING THE PRESENT VALUE OF" d "THE SITUATION. IN THE FUTURE VALUE OF " f "THE CASE, NO BALLOON PAYMENTS ARE" h "CONSIDERED/ANNUAL INTEREST RATE ?": 50000:I(F$)0 ZI$ "A" I 9999 I I ZNH ZI$ "A" 720CN$"INTEREST RATE PER PERIOD (%) ?": 50000:I(F$)CN$"BALLOON PAYMENT ?": 50000:BAL(F$) I FOR FV REG. ANNU. -SINK0 "THIS PROGRAM PERMITS THE USER TO INPUT"X "THE NECESSARY DATA IN ORDER TO PRINT" "CHECK AND STUB ON NEBS CHECKS, PRODUCT" "9020, AVAILABLE FROM NEW ENGLAND BUSIN-" "ESS SERVICE (1-800-225-6380). IN MASS."# "THE NUMBER IS / FV 9999 FV PMT (1I)((1I)N1)IR PMT 9999 PMT FV I (1(1I))((1I)N1) N 9999 N ((FVI(PMT(1I))1))(1I) (I99.99) .01 830 1080: PRINTOUT 620: 730I I 100 PV 99/INUE, STOP TO END ":F1: 60000 130  "";:ICN$"PRESS RETURN TO CONTINUE, STOP TO END":F1: 60000OUOÀuPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTI0P$;32(P$));D$;14(D$));CA$;&%1,15(CA$));:X1X: 50001*1," "A4X1X: 6000S>CP10: 10600HD$"":CA$"":X0:P$"":C$(1)"" :C$(2)""M1:1R X1$X1$" ":X2$X2$" ":X3$X3$" " X1$(X1$,601-800-252-9226.":=( "AS MANY AS 50 CHECKS MAY BE PRINTED IN"k- "A RUN. A REGISTER MAY BE GENERATED OF"2 "ALL CHECKS IN THE RUN."Z:CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";a D$(55),CA$(55),P$(55),X(55)d "";: 18);0:1," ": JK|)OÀPÏ SUBROUTINE FOR DATA INPUTTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:::iË (C$)0) g Z2$ "P" Z2$ "S" 10000: 610; l: Z2$"P" :: 1,4 m Z2$ "Y" CN$"PRESS ETURN WHEN PRINTER READY ":F1: 60000 o 9000 q "";: "";F$(2): r Z2$ "P" 1,F$(2):1," " sXX 0: TOTAL CHECK AMOUNT v J 0  *********************9 ** UPSZONE **U *********************[#j& 59468,12u( "";2 ""7" UNITED PARCEL SERVICE ZONE CHART "< "0 ):X2$(X2$,8):X3$(X3$,14) X4$(((X4.005)100))` (X4$) 100 X4$ "0" X4$: (X4$) 10 X4$ "0" X4$ (X4$) 8 X4$ " " X4$: 3030 X4$(X4$,6) "." (X4$,2) Y 1 X1$;" ";X2$;" ";X3$;" ";X4$ Y 0 "MENU":fD$D9$6n "1. INPUT DATA AND PRINT CHECKS"Vx "2. PRINT CHECK REGISTER" "3. INPUT TODAY'S DATE INTO SYSTEM":CN$"ENTER CHOICE ?": 50000:Z9(F$) Z9 400,600,300 100, INPUT SYSTEM DATE.6 "";:C0 13 F$"" 50015nÙ C$;sË (C$)13 500703xË (C$)20 (F$)1 50065]}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN "::0 1 N {XX XX X(J): X1$CA$(J):X2$D$(J):X3$P$(J):X4X(J): 3000v  J10 (J10) Z2$ "S" 10100: "";:"";F$(2)~  J F 1 : "TOTAL CHECKS = ";N;:X1XX: "TOTAL AMT. = ";: 4000 F 0  F 0 Z2$ "P" 0" F:P "THIS PROGRAM WILL PRINT OUT THE UPS "`R "ZONE GIVEN THE ZIPCODE OF THE"T "DESTINATION. ACTUALLY THIS IS THE ZONE"V "CHART FOR SHIPPERS WITHIN THE "X "10901-10999 ZIP CODE AREA. USERS WHO"Z "DESIRE ANOTHER AR0 1 Z2$ "P" 3060 1,X1$;" ";X2$;" ";X3$;" ";X4$! =X1$(((X1.005)100)) (X1$) 100 X1$ "0" X1$: (X1$) 10 X1$ "0" X1$ (X1$) 7 X1$ " " X1$: 4020X1$ (X1$,5) "." (X1$,2)X1$ "$" 0N$"ENTER TODAY'S DATE IN THE FORM MM/DD/YY ?": 600009;D9$F$[@ (D9$) 8 10000: 310kJ: 10100: N CHECK DATA INPUT & PRINTING "";CN$"CHECK DATE (0 TO END) ?":F1: 60000:D$F$: D$ "" D$D9$ D$ "0"0 50005Ù:Î ` SUBROUTINE FOR STRING INPUTeF$"":C$""'j CN$;Bo C$: C$"" 60015nt F1 F$ "" (C$) 13 F0:::y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 600600 4000  Z2$ "P" 6901," ":1," "Y1,"TOTAL CHECKS = ";N;:X1XX:1,"TOTAL AMT. = ";: 4000s: Z2$ "P" 1:1Y 0:F 0 10100 DISPLAY CHECK DATA "CHECK DATE : ";D$ "CHECK # : ";CA$ 0EA NEED ONLY CHANGE THE";)\ "STATEMENTS."/][^ "THE PROGRAM COULD ALSO BE USED AS A"` "SUBROUTINE IN AN INVOICING SYSTEM WHERE"b "ZONES ARE NEEDED TO COMPUTE RATES."d "THE DATA ENTRIES ARE IN HE FORM " f "LOW ZIP, HIGH ZIP, 0X1$ Y 1 Z2$ "P" 4038 F 0 1,X1$6 Y 1 F 0 X1$<WX1$(((X.005)100)) (X1$) 100 X1$ "0" X1$: (X1$) 10 X1$"0"X1$X1$ "$" X1$ (X1$) 7 X1$ " " X1$: 5020X1$ 0 ' CN$"INPUT CHECK # ?":F0: 60000:CA$F$Q CN$"AMT OF CHECK ?": 50000:X(F$)r  X 100000 10000: 420 CN$"PAYABLE TO ?": 60000:P$F$  (P$) 22 "LENTH TOO LONG . 22 CHARACTERS IS MAX."  (P$) 22 : 430 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015O "INPUT ERROR, PLEASE TRY AGAIN ":: 60010W:](C$) 46 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN "::0"CHECK AMOUNT:";X "COMMENT 1 :";C$(1)3 "COMMENT 2 :";C$(2);:Z ACTUALLY PRINT OUT CHECKe "";CN$"ENTER Y TO PRINT CHECK,N TO SKIP PRINT?": 60000:Z4$(F$,1) Z4$ "Y" Z4$ "N" 10000: 2010 Z4$ "0AND UPS ZONE FOR"8h "EACH REGION. ONLY THE FIRST 3 DIGITS"Uj "OF THE ZIP ARE USED."c:: 600 XL(200),XH(200),XZ(200) * XL LOW ZIP, XH HIGH ZIP, XZ ZONE "";: P 1 12:: P " LOADING DATA" 2100 (X1$,5) "." (X1$,2)1,X1$:"pX1$(((X1.005)100))az (X1$) 100 X1$"0" X1$: (X1$)10 X1$"0" X1$wX1$ "***" X1$ (X1$) 11 X1$ " " X1$: 6040X1$(X1$,9) "." (X1$,2) "*****"1,10);X10. CN$"ENTER COMMENTS (LINE 1) ?":F1: 60000:C$(1)F$h CN$"ENTER COMMENTS (LINE 2) ?":F1: 60000:C$(2)F$z  "";: 1000 ::CN$"ENTER Y IF OK, N IF ERROR ?": 60000:Z8$(F$,1)  Z8$ "Y" Z8$ "N" 10000: 460  Z8$ 1P100)( " XL(I) ZZIP ZZIP XH(I) 320` , I N "NO ZONE FOR ZIP ";ZIP;" AVAILABLE":: 1 I N 600:: "";: 240 6I I 1: 290 @ "THE UPS ZONE FOR ZIP CODE ";ZIP E "IS ZONE ";XZ(I) J:: 600:: 240 TPRIN0N"  1,4 1," ":1," "%1,D9$;10(D9$));P$;K1,68(D9$)(P$));:X1X: 5000]1," ":1," "}1,10);C$(1):1,10);C$(2)CP 9: 10600 1,D$;12(D$));CA$;66(CA$)(D$));:X1X: 5000CP13: 10600 1,7);0 240 N 16 N 121 240:LIMIT THIS MATRIXN XL(N),XH(N),XZ(N)bN N 1: 215m "";CN$"INPUT DESIRED ZIP CODE ?": 50000:ZIP (F$) (ZIP100) XL((N2)) I 1: 280I (N2)ZZIP (ZI0$(# FORMAT VARIABLE.<#F$(2)"CHECK# DATE PAYABLE TO AMOUNT"4#m' "INPUT ERROR!!!,TRY AGAIN!!": JJ 1 600: JJt'::CN$"PRESS RETURN TO CONTINUE ":F1: 60000~'h) SKIP CP LINES ON PRINTERr) JK 1 CP0 "N" 405C N N 1:D$(N) D$:CA$(N) CA$:X(N) X :P$(N) P$: REGISTERi  2000: ACTUALLY PRINT OUT CHECKs  400 X PRINT TODAY'S CHECK REGISTER ]Y 1 b "";:CN$"INPUT P FOR PRINTER, S FOR SCREEN ONLY?": 60000 cZ2$(F$,11 "";1 ^ 010,016,2,017,026,3,027,029,2,030,033,3,034,034,2i h 035,043,3,044,044,4,045,045,3,046,049,4,050,051,3 r 052,053,2,054,059,3,069,089,2,100,128,2,129,132,3 | 133,135,2,136,136,3,137,139,2,140,147,3,148,149,2  150,152,3,153,153,1 59468,12 "";3 *****************K ** TRANS **c *****************( ""2 " TRANSPORTATION PROBLEM "< ""P "1ATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED;_á C$: C$"" 50015`dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1) (F$) JA8 A8 A(I) O "";# T I+ ^:; h I 1 N rCN$"REQUIREMENTS OF DESTINATION " (I) " ?": 50000:B(I)(F$) |B8 B8 B(I)  I   A8 B8 "TOTAL SUPPLY MUST EQUAL TOTAL DEMAND IN"  A8 B8 1 1: N1 N(I) L(N1) J* J$4C H A(I) C,> I<H J 1 NQR V(J) 0 980_\H 99999of I 1 Mp C(I,J) H 900zH C(I,J) I I 1 MC(I,J) C(I,J) H: C1 C(I,J) C1 0 9601 4,154,163,3,164,165,4,166,168,3I  169,171,2,172,172,3,173,199,2,200,218,3,219,219,2  220,232,3,233,237,4,238,238,3,239,253,4,254,254,3  255,264,4,265,265,3,266,266,4,267,268,3,270,288,4  289,289,5,290,293,4,294,294,5,295,297,4,298,299,1 THERE ARE N SURCES OF SUPPLY AND"NR "M DESTINATIONS FOR A GOOD. EACH OF THE"xT "SUPPLY SOURCES CAN SUPPLY A GIVEN"V "AMOUNT OF THE GOOD AND EACH DESTINATION"X "HAS A CERTAIN REQUIREMENT. WE REQUIRE"Z "THAT THE TOTAL OF POSSIBLE SU1 1): 50015$Ë (C$) 45 (C$)47 (C$) 57 500651F$F$C$=É 50015pÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010vÙ|Î` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F1 "THIS PROGRAM": 2410: 130I CN$"IS PRINTER OUTPUT DESIRED ?": 60000:Z2$(F$,1)_  Z2$ "N" 660z  PRINTER INUT ROUTINE CN$"PRESS ENTER WHEN PRINTER READY ":F1: 60000  "";: P 1 12:: P: 14);  "** PRINTING **"1N(I) N(I) 1: N1 N(I)L(N1) J I2C H B(J) C: JJ I 1 McA1 A(I): N1 N(I) U (I1) N 1 N1 A1 0 1110J L(U): B1 B(J) B1 0 1100H A1$ A1 B1 1080.H15)  300,324,5,325,325,6,326,329,5,330,337,6,338,338,5a  339,339,6,350,364,5,365,366,6,367,374,5,376,376,4  377,386,5,387,387,6,388,389,5,390,392,6,393,393,5  394,396,6,397,397,5,400,402,5,403,408,4,420,427,5  430,458,4,460,466,5,461PPLY"/\ "EQUALS THE TOTAL REQUIRED. TO DELIVER"^^ "A UNIT OF THE ITEM FROM A GIVEN SOURCE"` "TO A GIVEN DESTINATION HAS A KNOWN"b "COST, DEPENDING UPON THE SOURCE-"d "DESTINATION COMBINATION. THE PROBLEM" f "ATTEMPTS TO DETERMI 0:::y (C$) 13 F$"" 60015,~ (C$) 13 60065Q (C$) 20 (F$)1 60060[ C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015:1  1,4 1," ":1,GG$:1," ": 1,"NUMBER OF SOURCES = ";Mb 1,"NUMBER OF DESTINATIONS = ";N 1," ":1,GG$:1," ":1," "  I 1 M 1,"SOURCE";I:1," "  J 1 N &1,"UNIT COST TO DESTINATION ";J;" EQUALS ";C(1 B18X(I,J) H: A1 A1 H: B(J) B1 H!B 2080)L UCVA(I) A1: G G A1K` I_j G 0 2260et~ I 1 MAX: R(I) 0: IK 0 I 1 M A(I) 0 1210K K 1: U(K) I: G(I) 99999 1217,468,4,469,469,5,470,470,4A  471,472,5,473,473,4,474,479,5,480,495,4,496,496,5y  497,497,4,498,499,5,500,504,5,505,505,6,506,507,5  508,516,6,520,560,5,561,576,6,577,577,7,580,585,6  586,586,7,587,587,6,588,593,7,594,594,8,595,595,7!1NE WHICH SHIPPING"8h "ASSIGNMENT MINIMIZES SHIPPING COST."Ex: 2410K~CG$"----------------------------------------"I 10: J 10: I = MAX SOURCES, J = MAXIMUM DESTINATIONSMAX I: J MAX J MAX A(MAX),B(MAX),C(MA11540H A(I) 1540 X(I,J) H 1460%H X(I,J)0 1460gJ P: B(J) B(J) H: A(I) A(I) H: G G HmI R(J): X1 X(I,J): X(I,J) X1 H" X1 0 1590, 20806J G(I)@ J 99999 11301I,J) 0 J :5 I1,"CAPACITY OF SOURCE ";I;" EQUALS ";A(I)G N1," ":1," "O X IZ b1," "j l I 1 N {1,"REQUIREMENTS OF DESTINATION ";I;" EQUALS ";B(I)  I 1:1  "";: P 1 12:: P: 13);  "** COMPUTI120G(I) 0 IL 0 U 1 K-I U(U): N1 N(I)J S (I1) N 1 N1WJ L(S)n R(J) 0 1310 R(J) I: L L 1: V(L) J B(J) 0 1450 S( U2 L 0 1650<K 0F V 1 1 596,599,8,600,639,5,640,648,6,650,655,5,656,676,6Y 677,677,7,678,678,6,679,679,7,680,692,6,693,693,7& 700,722,6,723,725,5,726,738,6,739,739,7,740,763,60 764,769,7,770,778,6,779,797,7,798,799,8,800,831,7: 832,865,8,870,871,7,873,871X,MAX),X(MAX,MAX),N(MAX),U(MAX)) HS(MAX,MAX)X G(MAX),V(MAX),T(MAX),R(MAX),S(50),L(200)x I 1 MAX:V(I) 1: I "";CN$"ENTER NUMBER OF SOURCES ?": 50000:M(F$)CN$"ENTER NUMBER OF DESTINATIONS ?": 50000:N(2JX(I,J) X(I,J) H: X1 X(I,J)T X1 0 1550!^ 2140,h 1550ArK 0: L N 1Q| J 1 Nh R(J) 0 1700K K 1: V(K) J 1710L L 1: V(L) J JH 99999 I 1 M G(I) 0 11NG **" I 1 M:N(I) (I1)N: I&C 0: G 06 I 1 MDH 99999T J 1 Nm C(I,J) H 740|H C(I,J) J J 1 NC(I,J) C(I,J) H: C1 C(I,J) C1 0 810 V(J) 0N(I) N(I)1LPJ V(V): L1 T(J)Z S T(J1) 1 L1"dI S(S)9n G(I) 0 1410[xG(I) J: K K 1: U(K) Ic Sk V~ K 0 1650 1230H B(J): P JI R(J): J G(I) J 99999 1510 A(I) H 14,8,875,877,7,878,880,89D 881,884,7,890,898,8,900,961,8,970,986,8,988,994,8?N~XCN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000bOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO D1F$) I 1 M :*  "SOURCE ";I0 @  J 1 N "CN$"UNIT COST TO DESTINATION " (J) " ?": 50000:C(I,J)(F$) ,HS(I,J) C(I,J): HOLD UNTIL END 6 J @CN$"CAPACITY OF SOURCE " (I) " ?": 50000:A(I2800 S 1 KJ V(S) C(I,J) H 1790%H C(I,J)- S5 IE I 1 MOF 0e& G(I) 0 1850o0F 1:N1 (I1) ND S L NNJ V(S)X F 0 1910bC1 C(I,J)l 1920vC(I,J) 2 ******************3 ** MAILPAC **L ******************d: 59468,12: ""; NL$(200),N1$(200),N2$(200),CO$(200),A1$(200),A2$(200),A$(200)DD$"1" "";:P11 I 1 40: "";: I:: 16);"MAILPAC":& I 22$ "Y" 1:1:L :CN$"RETURN FOR MORE, STOP TO END ":F1: 60000$V 130]` "INPUT ERROR!, TRY AGAIN ": JJ 1 300: JJ:j CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000t OÀPÏ SUBROUTINE FOR DATA INPUT UF2 I :9 CN$"FILE CLOSED--TO SEE MENU HIT ENTER ":F1: 60000? l DT0 "";: "SORRY, NO DATA YET" DT 0 I 1 800: I: "";: "";: I 1 P11 4000 JJ 1 100: JJ  I :: :CN$"T2 AST NAME ?":F1: 60000: F$ "" N2$(I)F$]CN$"COMPANY OR APT. ?":F1: 60000: F$ "" CO$(I)F$CN$"STREET ADDRESS ?":F1: 60000: F$ "" A1$(I)F$CN$"CITY,STATE,ZIP ?":F1: 60000: F$ "" A2$(I)F$ " 2 - 2 C(I,J) H:C1 C(I,J) C1 0 1940!N1 N1 1: L(N1) J) S9 S 1 KFJ V(S)Y F 0 2000~C(I,J) C(I,J) H: C1 C(I,J) 2010C1 C(I,J) C1 0 2030N1 N1 1: L(N1) J SN(2 1 40: "";: I: I 1 1000: I:I "";: 15);"** MENU **"::l " 1) BUILD OR ADD TO A FILE"( " 2) VIEW THE ENTIRE FILE"2 " 3) VIEW AN INDIVIDUAL NAME"< " 4) MAKE CORRECTIONS"F " 5) SWITCH DRIVES (DEFAULT = 1)P 2 $"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE">ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDY_á C$: C$"" 50015~dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C2 O SEE MENU , HIT ENTER ":F1: 60000:G , DT 0 "";: "SORRY, NO DATA YET"R - "";| . DT 0 I 1 800: I: "";: 1CN$"ENTER LAST NAME ?": 60000:N2$F$ 6I 0 8I I 1: N2$N2$(I) 330 ; I P1 312 @: "2DUPLICATE NAME" " 1 - ANOTHER CORRECTION", " 0 - NEITHER"]:CN$"ENTER YOUR CHOICEE": 50000:X(F$)o X 2 410 X 1 400 SWITCH DRIVES ROUTINE DD$ "1" 515 DD$ "1" DD$"0": "";: "DRIVE2I) N1 I C H G C 1140  *L1 T(J)E4 T T(N) L1 1: S(T1) S(T): Tk> T J N: T(T) T(T) 1: T}HS(L1 1) IR\fL1 T(J)p T T(J1) 1 L1z S(T) I 2200S T2" 6) SAVE CURRENT FILE ON DISKETTE";Q " 7) NOT IMPLEMENTED"bR " 8) READ IN FILE FROM DISKETTE"S " 9) SEND FILE TO LINE PRINTER"T "10) SEND ALPHABETIZED FILE TO PRINTER"U "11) SEND AN INDIVIDUAL NAME TO PRINTER"W "12) END PROGR2$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015BË (C$) 45 (C$)47 (C$) 57 50065OF$F$C$[É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$2NAME NOT IN FILE":: 370 J: 4000:5 r " 2 - DUPLICATE NAME"S s " 1 - FOR ANOTHER NAME"h t " 0 - NEITHER" u:CN$"ENTER YOUR CHOICE ?": 50000:X(F$) w X 2 "";: 312 | X 1 "";: 300 }  DT 0 "";:2 0 NOW ACTIVE"  I 1 750: I:D DD$ "0" DD$"1": "";: "DRIVE 1 NOW ACTIVE"\ I 1 750: I:v& DATA OUTPUT ROUTINE( DT 0 I 1 800: I: "";:+ "";: " SAVE FILE ON DISKETTE"0: "PRESENT MAI2 2210 T  T J N: T(T) T(T) 1: TL1 T(N)< T S L1:S(T) S(T1): TBM ""; Z2$"Y" "";: P 1 12:: P: 12); Z2$"Y" "** PRINTING **":: 1,4 "";:: "SHIPPING ASSIGNMENT2AMY:3ZCN$"ENTER YOUR CHOICE ?": 50000:Q(F$)i^ Q 100,200,300,400,500,550,600,650,700,800,900_ Q 12 "";:c 10dDT1: "";: "ADDITION OF NAMES TO FILE":e P11;"NAMES ALREADY ON FILE"g:CN$"PRESS 0 TO ADD2""j CN$;o C$: C$"" 60015 t F 1 F 0::+y (C$) 13 F$"" 60015H~ (C$) 13 60065m (C$) 20 (F$)1 60060w C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPU2 "SORRY, NO DATA YET"/  DT 0 I 1 800: I: "";::  "";m CN$"ENTER THE LAST NAME OF THE FILE YOU " CN$CN$"WISH TO CHANGE ?": 60000:N2$F$ I0 I I 1: N2$ N2$(I) 425  I P1 410  "NAME NOT I2L FILE IS : ";ND$: 5CN$"NEW NAME ? ":F1: 60000:ND$F$Z7: P1;"ITEMS IN MAILING LIST INCLUDING": "TRAILER."`8:CN$"PRESS RETURN WHEN DISKETTE IS READY ":F1: 60000< 1,8,15? 2,8,2,DD$ ":" ND$ ",SEQ,WRITE"@1,A,B$,C2S" Z2$"Y" 1," ":1," ":1,"SHIPPING ASSIGNMENTS": GG$:A Z2$"Y" 1," ":1,GG$:1," "] I 1 M: J 1 Nu X(I,J) 0 2340 "SOURCE";I;"TO DEST.";J;" : ";X(I,J);" COST =";X(I,J)HS(I,J) Z2$ "Y" 232 NAMES, 1 TO END ?": 50000:X(F$)Ai X 0 X 1 10000: 100Qk X 1 kn I P1 500: "";pCN$"NUMBER (9999 TO END) ?": 60000:NL$(I)F$s NL$(I) "9999" P1I:I500: 140 uCN$"ENTER FIRST NAME ?": 6007T ERROR, PLEASE TRY AGAIN ":: 60015:$)1): 50015BË (C$) 45 (C$)47 (C$) 57 50065OF$F$C$[É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$2N FILE": 460  "";: 40005 "ENTER THE CORRECTED INFORMATION"a "SIMPLY HIT RETURN FOR NO CHANGE":CN$"MEMBERSHIP # ?":F1: 60000: F$ "" NL$(I)F$CN$"FIRST NAME ?":F1: 60000: F$ "" N1$(I)F$CN$"L3,D: A 63 578A1,"S" DD$ ":" ND$:2: 575EB A 0 2:1: A,B$:: 2200: 555OC2,P1`D I 1 P1E2,(34);NL$(I);(34): 590: Z 1 555F2,(34);N1$(I);(34): 590: Z 1 555G2,(34);N2$(I);(34): 590240 1,"SOURCE ";I;" TO DEST. ";J;" : ";X(I,J);" COST = ";X(I,J)HS(I,J))$ J: I7. : GG$:^3 Z2$ "Y" 1," ":1,GG$:1," "8 " TOTAL COST = ";C= Z2$ "Y" 1," TOTAL COST = ";CB Z200:N1$(I)F$9 vCN$"ENTER LAST NAME ?": 60000:N2$(I)F$ wCN$"COMPANY OR APARTMENT ?":F1: 60000: F$"" CO$(I)F$ xCN$"ENTER YOUR ADDRESS ?": 60000:A1$(I)F$ yCN$"CITY,STATE,ZIP CODE ?": 60000:A2$(I)F$ 3CRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015-dË C$(13) F$"" F1 F0:::NiË (C$)13 F$"" 50015XnÙ C$;qsË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C3: Z 1 555 H2,(34);CO$(I);(34): 590: Z 1 555PI2,(34);A1$(I);(34): 590: Z 1 555J2,(34);A2$(I);(34): 590: Z 1 555K2,(34);A$(I);(34): 590: Z 1 555L IN DISKETTE ERROR CHECKP1,A,B$3 **********************; ** ARBCOMP **X **********************g 59468,12r "";SP$" " "" " ARBITRAGE COMPUTATIONS3DI JH JK 1,4M1,N2$(I);" ";N1$(I);" - ";NL$(I)N1:1-OA$(I)"ZZ";RK K 1MW K N 890WX 825a\1:1z:CN$"PRESS RETURN TO SEE MENU ":F1: 60000: DT 0 "";: "SORRY, NO DATA YET" DT 3 ITS IN PACKAGE."  I 1I CN$"ENTER VALUE OF 1 UNIT OF " CN$CN$"SECURITY "(I) " (-1 TO END) ?": 50000 A(I) (F$) A(I) 1 300 CN$"ENTER # OF UNITS OF SECURITY "* CN$CN$(I)3 $) 45 (C$)47 (C$) 57 50065F$F$C$ É 50015= Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005E Ù:K Îm ` SUBROUTINE FOR STRING INPUT} eF$"":C$"" j CN$; o C$: C$"" 60015 t F1 F$ "" (C$) 13 3 ,C,DR A 0 A 1 A 63 A,B$: 2200<S A 0 A 1 A 63 Z 1:HTZ 0:TW1:2:ZX`f "";: " FILE TO BE READ IN FROM DISKETTE":CN$"ENTER NAME OF FILE TO BE READ ?": 60000:ND$F$3 "9 ""h "THIS PROGRAM PRINTS A SCHEDULE FOR DE-"S0: TOTAL VALUE OF PACKAGE "ONE MARKET AND SELLING IT IN ANOTHER"( "MARKET, HOPEFULLY AT A HIGHER PRICE. IN"- "THE STOC3 0 I 1 800: I: "";:" "";:CN$"ENTER LAST NAME ?": 60000:N2$F$,I 0OI I 1: N2$ N2$(I) 930b I P1 912: "NAME NOT IN FILE ":: 970 NL$(I);" ";N1$(I);" ";N2$(I):CN$" PRESS 1 IF CORRECT NAM3 " IN PACKAGE ?": 50000:B(I)(F$)N C(I) A(I) B(I):S S C(I)d I I 1:: 240| , FINISH UP & PRINT 6I I 1 @F$(1) "VALUE OF UNIT # OF UNITS TOTAL" TF$(3) " GRAND TOTAL VALUE" YF$(4) "F0::: y (C$) 13 F$"" 60015 !~ (C$) 13 600652! (C$) 20 (F$)1 60060 (S$,1) "." S$ "0" (S$,10)sCS$ "$" S$ES$ (S$,8) "." (S$,3)H N 1 11R (S$,N,1)"." (S$,N1,1)"00:C(F$)e C 1 1803 HIT RETURN ":F1: 60000:!  DT 0 "";: "SORRY, NO DATA YET"K" DT 0 I 1 800: I: "";:Z#N P1 1j% I 1 N*A$(I) N2$(I) N1$(I)/ I4 "";:K09I 1> J 2 NC A$(I) A$(J) 8404": 50000:P1(J1)(F$)N "";*P "NUMBER OF LINES PRINTED SO FAR = ";CG0UIZPE(J1)QU(J1)P1(J1)UaJ2 J1_bF 4zd F$(3): F$(4): 4000n 10300sF 0: Z2$"Y" Z9$"N" 1:1x Z9$ "N" "DO AGAIN": 10100:CGCG4 WANT MORE INVOICES (Y/N) ?": 60000:Z9$(F$,1)%! Z9$ "Y" Z9$ "N" 10000: 1730^! C750 "TRANSACTION MATRIX FULL": 10100: 1800u! Z9$ "Y" 1100! "";!  "";!CN$"PRESS 1 FOR TRANSACTION REPORT, "!40i#jCN$"CUSTOMER NAME ?": 60000:N$(1)F$YoCN$"2ND LINE NAME ?": 60000:N$(2)F$tCN$"STREET ADDRESS ?": 60000:N$(3)F$yCN$"CITY ?": 60000:N$(4)F$~CN$"STATE 4XX$:HTT: "PAY THIS AMOUNT :";39H);AQ$! " ": F 0 Z2$ "Y" 10300U Z9$ "N" "OLD INVOICE ELIMINATED": 1700r COMPLETED INVOICE GOOD F4 F0: "";:QU0:QO0:TE0: 1457 Z2$ "Y" 16601,5);N$(1)4 TS : ";37H3);"$"T$&a Z2$ "Y" 1898$'b1,"EXTENDED PRICE TOTALS : ";37H);"$"T5$\'c1,"TOTAL SHIPPING : ";37H1);"$"T3$'d1,"TOTAL SALES TAX : ";37H2);"$"T4$'e1,"TOTAL OF INVOICE AMOUNTS 4 1: 1330CN$"MORE ITEMS ON INVOICE (Y/N) ?": 60000:Z9$(F$,1)M Z9$ "Y" Z9$ "N" 10000: 1410d Z9$ "N" 1450 CG 10 "INVOICE FULL. MACHINE TO TOTAL" CG 10 10100: 1459J1J11: 1330 IN4 CN$CN$"ELSE 2 ?": 60000:Z9$(F$,1)" Z9$ "1" Z9$ "2" 10000: 1806+" Z9$"2" f" Z2$"Y" "PREPARE PRINTER FOR TRANSACTION FILE."r" 10100"& Z2$ "Y" "";: 1835"':"+ " TRANSACTION REPO4 ?": 60000:N$(5)F$1CN$"ZIP ?": 60000:N$(6)F$9:uCN$"PRESS 1 TO INVOICE, 2 TO ABORT ": 50000:Z9(F$) Z9 1 Z9 2 10000: 1280  Z9 2 1110CG 0: CG = # OF LINES PRINTED SO FAR4 N$(2) "" 1,5);N$(2)1,5);N$(3)!"1,5);N$(4);", ";N$(5);", ";N$(6)A'1," ": N$(2) "" 1," "S,1," ":1," ".1,PO$;" ";N1$(J);" ";SV$;" ";(CF);" ";TM$;" ";D$(J);" "0 J2 CG 1 18:1," ": J231,60);" ";:4 : ";37H3);"$"T$'g1:1'j' PRINT 1 LINE2(H1 (NN$(J2)):H2(D2$(J2)):QU$(QU(J2)):H3(QU$):XXP1(J2)l( 20000:P1$XX$:H4TT:XXPE(J2): 20000:PE$XX$:H5TT( 4H1);NN$(J2);16H2);D2$(J2);20H3);QU$;( 30H4);P1$;39H4VOICE COMPLETE "";:CN$"TAXABLE ?": 60000:XY$(F$,1): XY$ "Y" XY$ "N" 1451| XY$ "Y" CN$"TAX RATE (%) ?": 50000:TX(F$):TXTX100::CN$"SHIPPING ?": 50000:AF(F$): Z2$"Y" F4 ""; Z2$ "Y" 4RT": #, Z2$ "Y" 1,4:1," TRANSACTION REPORT"<#0 F$(6): F$(7): Z2$"Y" 1,F$(6):1,F$(7){#: J 1 C7:H$(H(J)):H1(H$):H2(H1$(J)):H3(H2$(J))#;H4(H3$(J)):XXH5(J): 20000:H5$XX$:H5TT:XXH6(J): 20000#<4 "";:J CR 1"J11: NUMBER OF LINES IN INVOICE SO FAR[CN$"INVOICE NUMBER ?": 60000:N1$(J)F$CN$"DATE OF INVOICE (MM/DD/YY) ?": 60000:D$(J)F$# (D$(J)) 8 10000: 1310)PO$ ""*CN$"CUSTOMER ORDER NU4 J51 12:1,"-";: J5:1," "6XXTE: 20000:TE$XX$:HTT:1,38);" ";H81,"TOTAL :";10H);"$" TE$:XXAA: 20000:AA$XX$:HTT:1,39);"SALES TAX :";;1,10H);"$" AA$<XXAF: 20000:AF$XX$:HTT:1,38);"45);PE$( Z2$ "Y" F 4 )1,4H1);NN$(J2);12H2);D2$(J2);4H3);QU$;))1,10H4);P1$;8H5);PE$/)d)(#F$(1)"RF ITM# DATE APPL TO AMT DISCOUNTS"))#F$(2)"-- ---- ---- ---- -- --- ---------")F#F$(6)"CST# DATE I41,4 "INVOICE NUMBER ";N1$(J);25(N1$(J)));"DATE :";D$(J):: Z2$ "Y" F 4 1460z1,"INVOICE NUMBER ";N1$(J);25(N1$(J)));"DATE :";D$(J):" ": F$(3): F$(4) Z2$"Y" F 4 1," ":1,F$(3):1,F$(4)TE0:QU04H6$2XX$:H62TT $= #3+H1);H$;#13+H2);H1$(J);#19+H3);H2$(J);#25+H4);H3$(J);*$> #28+H5);H5$;#38+H6);H6$D$? Z2$ "Y" ' 1860$A1,3H1)H$;#10+H2);H1$(J);5H3);H2$(J);6H4);H3$(J);$B1,9H5);H5$;5H6);H6$$D J$NT0:T30:T40:T504MBER ?": 60000:PO$F$1-CN$"SHIPPED VIA ?": 60000:SV$F$G.TM$"NET 10 DAYS"}/CN$"TERMS ?": 60000:TM$F$02::"************": "LINE ";J17CN$"ITEM NO. ?": 60000:NN$(J14 ";=1,"CARFARE :";10H);"$" AF$*>XXAQ: 20000:AQ$XX$:HTT:1,38);" ";[?1,"PAY THIS MT :";10H);"$" AQ$y@ J7 1 18:1," ": J7A Z2$"Y" 1:1|C7C71:H(C7)C:H1$(C7)D$(1):H2$(C7)N1$(1):H3$(C7)4NV# TYPE AMT OTHER"*G#F$(7)"---- ---- ---- ---- --- -----"6*d#F$(3)"ITM# DESCRIPTION QT# UNIT PR EXT PR"k*e#F$(4)"---- ----------- --- ---- -- ------"q*#*' INPUT ERROR SBR*' "INPUT ERROR! TRY AGAIN !": Z91 4:QO0 J2 1 J1: 4000:TETEPE(J2):QUQUQU(2):QOQOQO(J2): J2A J5 1 40: "-";: J5: " "n J51 40: Z2$"Y" F 4 1,"-"; J5: Z2$"Y" F 4 1," ":1," "QU$(QU):H1(QU$):XXTE: 20000:TE$XX$:H2TT4$P J 1 C7$RTTH5(J):T3T3H7(J):T4T4H8(J):T5T5H9(J)%S J8%U ""v%V Z2$"Y" 1,"----------------------------------------"%Y:XXT5: 20000:T5$XX$:HTT%Z "EXTENDED PRICE TOTALS 4)F$$<CN$"ITEM DESCRIPTION ?": 60000:D2$(J1)F$:CGCG1S= NN$(J1)"EK" N$(J1)"0":J1J11: 1330^> 1350nBCG CG 1tFzHJCN$"QUANTITY ORDERED ?": 50000:QU(J1)(F$)LCN$"UNIT PRICE ?4T$(1)H4$(C7)N2$(1):H5(C7)SA(1):H6(C7)SD(1) H7(C7)AF:H8(C7)AA:H9(C7)TE>  ZERO ALL INVOICE VARIABLES{  J 1 19:NN$(J)"":D2$(J)"":QU(J)0:PE(J)0:QO(J)0 D3$(J)"":D4$(J)"":D5$(J)"":D6$(J)"": J  ""; CN$"DO YOU5 700: Z9*$'*t'::CN$"PRESS RETURN TO CONTINUE ":F1: 60000: +' Y,N,A SBR+'Z9$ " "Z+'CN$"ENTER Y IF OK,N IF ERROR,A TO ABORT ": 60000:Z9$(F$,1)+' Z9$ "Y" Z9$ "N" Z9$ "A" 10000: 10205+'+<( Y,N SBR+A(4 "TOTAL :";39H2);TE$AA0: XY$ "Y" AA TE TX7XXAA: 20000:AA$XX$:HTT\ "SALES TAX :";39H);AA${XXAF: 20000:AF$XX$:HTT "CARFARE :";39H);AF$AQTEAAAF:SA(1)AQXXAQ: 20000:AQ$4: ";37H);"$"T5$%[XXT3: 20000:T3$XX$:H1TT&&\ "TOTAL SHIPPING : ";38H1);"$"T3$F&]XXT4: 20000:T4$XX$:H2TT~&^ "TOTAL SALES TAX : ";38H2);"$"T4$&_XXT: 20000:T$XX$:H3TT&` "TOTAL OF INVOICE AMOUN5 ******************3 ** SALELEASE **L ******************b 59468,12: "";h  GG$"----------------------------------------" A(X)((X.005)100)100 "" " SA5Z9$ " "+F(:CN$"ENTER Y IF OK,N IF ERROR ?": 60000:Z9$(F$,1)$,P( Z9$ "Y" Z9$ "N" 10000: 10305*,Z(@,( MORE ENTRY? SBRN,(Z9$ " ",(CN$"DO YOU DESIRE MORE ENTRIES (Y/N) ?": 60000:Z9$(F$,1),( Z9$ "Y" Z9$ "N" 5TOTAL COST OF SALE-LEASEBACKU BAL0:IIL12:N12N: 1525:PLPMT12: ANNUAL RENT PAYMENT = PL BAL0:IIM12: 1420:PMPMT12:NN12: PM=ANNUAL MORT PAYMENT TLPLN: TOTAL LEASE PAYMENTS OVER LEASE TERM "TMPMN: TOTAL MORTGAGE PAYMENTS 5) :";:XX100CTAX: 2000:CT$XX$7 39TT);CT$: PP$ "Y" 535l1,"CORPORATE TAX RATE (%) :";10TT);CT$ "TOT. DEPRECIATION OVER TERM :";:XXDEPR: 2000:DE$XX$ 38TT);DE$: PP$ "Y" 5401,"DEPRECIATION 5 ;37TT);TM$: PP$ "Y" 6307n1,"TOT. MORT. PAYMENTS TO TERM :";10TT);TM$tv "TOTAL MORTGAGE INTEREST PAID: ";:XXRM: 2000:RM$XX$w (20);37TT);RM$: PP$ "Y" 640x1,"TOTAL MORTGAGE INTEREST PAID :";10TT);RM$ "5 LE-LEASEBACK ANALYSIS "N ""| "THE SITUATION FOR THIS PROGRAM IS THE" "FOLLOWING: AN OWNER OF A PIECE OF"" "PROPERTY NEEDS TO RAISE SOME MONEY"$ "AND NEEDS THE USE OF THE PROPERTY. 5 10000: 10405,(,) ONLY Y/N SBR-) Z9$ "Y" Z9$ "N" 10000-)+- N ** ROUTINE TO FORMAT OUTPUT **I-*NXX ((XX.005)100)100f-4NXX$(XX):TEMP$(XX$,3)-9N (TEMP$,2,1) "." XX$X$"0": 20040->N (TEMP$,1) "."5 OVER MORTGAGE TERM3 ,DLTLCTAX: TOTAL TAX DEDUCTION FOR LEASEd 6LLTLDL: TOTAL ACTUAL RENTAL COST OF LEASE @RM TM PV: TOTAL INTEREST PAYMENTS OVER TERM OF MORTGAGE JEM RM DEPR: TOTAL MORTGAGE TAXABLE EXPENSE TDM EM CTAX: T5 OVER TERM :";10TT);DE$$ GG$: PP$"Y" 1,GG$1& 1600:<- "";U. PP$ "Y" 1," "0 "ANNUAL LEASE RENTAL : ";:XXPL: 2000:PL$XX$1 38TT);PL$: PP$ "Y" 57021,"ANNUAL LEASE RENTAL :";105TOT. MORTGAGE TAXABLE EXP. : ";:XXEM: 2000:EM$XX$@ (20);37TT);EM$: PP$ "Y" 650u1,"TOT. MORTGAGE TAXABLE EXP. :";10TT);EM$ "TOTAL MORTGAGE TAX DEDUCTION: ";:XXDM: 2000:DM$XX$ (20);37TT);DM$: PP$ "Y" 5HE"-( "CAN SELL THE PROPERTY TO THE INVESTOR"]* "AND THEN LEASE IT BACK (SALE-LEASEBACK)", "OR HE CAN JUST BORROW THE MONEY AS A". "MORTGAGE ON THE PROPERTY."02 "THERE ARE VARIOUS TAX AND OTHER"4 "RAMIFICATIONS OF THE TWO5 XX$XX$".00"-HNTT0: II 1 (XX$): (XX$,II,1) "." TTTT1-MN II.RN .OÀ+.PÏ SUBROUTINE FOR DATA INPUTm.UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE".ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED._á C$5OTAL TAX DEDUCTION FOR MORTGAGEB ^MM TM DM: TOTAL MORTGAGE COST AFTER TAXESZ  ANALYSIS PRINTOUTe  "";  "PRESENT VALUE OF PROPERTY :";:XXPV: 2000:PV$XX$  38TT);PV$: PP$ "Y" 515 1,"PRESENT VALUE OF PROPERTY 5TT);PL$+: "TOTAL LEASE PAYMENT TO TERM : ";:XXTL: 2000:TL$XX$X; (20);37TT);TL$: PP$ "Y" 580<1,"TOTAL LEASE PAYMENT TO TERM :";10TT);TL$D "TOTAL LEASE TAX DEDUCTIONS : ";:XXDL: 2000:DL$XX$E (20);37TT);DL$:56601,"TOTAL MORTGAGE TAX DEDUCTION :";10TT);DM$Q "TOT. MORT COSTS AFTER TAXES : ";:XXMM: 2000:MM$XX$~ (20);37TT);MM$: PP$ "Y" 6701,"TOT. MORT COST AFTER TAXES :";10TT);MM$ GG$: PP$ "Y" 1,GG$ M5 SITUATIONS"06 "WHICH THIS PROGRAM HELPS ANALYZE."dc::CN$"PRESS RETURN WHEN READY ":F1: 60000ox "";CN$"PRESENT VALUE OF PROPERTY ?": 50000:PV(F$)CN$"TERM OF LEASE/MORTGAGE (YRS) ?": 50000:N(F$)/CN$"ANNUAL5: C$"" 50015.dË C$(13) F$"" F1 F0:/iË (C$)13 F$"" 50015 /nÙ C$;%/sË (C$)13 50070H/xË (C$)20 (F$)1 50065r/}Ë (C$)20 F$(F$,(F$)1): 50015/Ë (C$) 45 (C$)47 (C$) 57 50065/5 :";10TT);PV$9  "TERM OF LEASE/MORTGAGE (YRS) :";:XXN: 2000:N$XX$_  39TT);N$: PP$ "Y" 520 1,"TERM OF LEASE/MORTGAGE :";10TT);N$  "ANNUAL INT. FOR LEASE (%) :";:XX100IL: 2000:IL$XX$  39TT);IL$: PP$5 PP$ "Y" 590,F1,"TOTAL LEASE TAX DEDUCTIONS :";10TT);DL$iN "TOT. COST OF LEASE TO TERM : ";:XXLL: 2000:LL$XX$O (20);37TT);LL$: PP$ "Y" 600P1,"TOT. COST OF LEASE TO TERM :";10TT);LL$X GG$: PP$ "Y" 5MLL "MORT. COSTS MORE THAN LEASE BY ";:XXMMLL: 2000L MMLL ML$XX$: 37TT);ML$: PP$"Y" 690 MMLL 1,"MORT. COSTS MORE THAN LEASE BY ";10TT);ML$ LLMM "LEASE COSTS MORE THEN MORT. BY ";:XXLLMM: 2000 LL5 INT. FOR LEASE (%) ?": 50000:IL(F$):ILIL100vCN$"ANNUAL INT. FOR MORTGAGE (%) ?": 50000:IM(F$):IMIM100CN$"CORPORATE TAX RATE IN (%) ?": 50000:CTAX(F$)CTAXCTAX100 CN$"TOT. DEPRECIATION OVER TERM ?": 5F$F$C$/É 50015/Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010/Ù/Î0` SUBROUTINE FOR STRING INPUT/0eF$"":C$"":0j CN$;U0o C$: C$"" 60015k0t F 1 F 0:0y (C$) 13 F$"" 600150~ (C$) 13 605 "Y" 5250 1,"ANNUAL INT. FOR LEASE :";10TT);IL$q  "ANNUAL INT. FOR MORTGAGE (%) :";:XX100IM: 2000:IM$XX$ 39TT);IM$: PP$ "Y" 5301,"ANNUAL INT. FOR MORTGAGE :";10TT);IM$ "CORPORATE TAX RATE (%5 1,GG$] 1600:: "";;b "ANNUAL MORTGAGE PAYMENT : ";:XXPM: 2000:PM$XX$bc 37TT);PM$: PP$ "Y" 620d1,"ANNUAL MORTGAGE PAYMENT :";10TT);PM$l "TOT. MORT. PAYMENTS TO TERM : ";:XXTM: 2000:TM$XX$m (20)6MM ML$XX$: 38TT);ML$: PP$"Y" 750C LLMM 1,"LEASE COSTS MORE THAN MOR. BY ";10TT);ML$Q:: 1600Y:q PP$ "Y" 1:1CN$"PRESS RETURN TO CONTINUE,STOP TO END ":F1: 60000 120PMT (PVBAL(1I)(N)550000:DEPR(F$) GG$::I CN$"PRINTED OUTPUT (Y/N) ?": 60000:PP$(F$,1)a PP$ "Y" 1,4{ PP$ "Y" ""; PP$ "Y" 250 PP$ "Y" "";: I 1 12:: I PP$ "Y" 14);"** COMPUTING **": 0650 (C$) 20 (F$)1 600600 C$;1 (C$)20 F$(F$,(F$)1): 600151F$F$C$1 60015N1: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015V1:\1(F$)1): 50015/Ë (C$) 45 (C$)47 (C$) 57 50065/6 *******************5 ** FINRAT **O *******************e 59468,12: ""; "" " FINANCIAL RATIOS " ""(6. READ COMPANY INPUT DATA FROM DISKETTE"4 O  "7. NOT IMPLEMENTED"i  "8. NOT IMPLEMENTEDo  " "9. CHANGE DATE" ,:CN$"INPUT YOUR CHOICE ?": 50000:Z1(F$) 6 Z1 6000,6100,6200,6300,4000,4100,4200,4300,900 @N ":: 60015:(F$)1): 500150Ë (C$) 45 (C$)47 (C$) 57 50065=F$F$C$IÉ 50015|Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$6)I(1(1I)(N)):!PMT (PVBAL(1I)(N))I(1I)(1(1I)(N)):9@ PP$ "Y" 1:1oJ::CN$"PRESS RETURN TO CONTINUE ":F1: 60000T PP$ "Y" 1,4: ** ROUTINE TO FORMAT OUTPUT **XX((XX.005)100)100XX$6 2:CN$"PRESS RETURN WHEN PROBLEM IS REPAIRED"2F1: 60000: 4010U I 1 27:2,A(I): I:2,E$_1:2e INPUT DATA FOR COMPANY FROM DISKETTE "";:CN$"PRESS RETURN WHEN DISKETTE READY ":F1: 60000 "";"CN$"NAME6 "THIS PROGRAM WILL COMPUTE SOME COMMONLY"X! "USED FINANCIAL RATIOS USING INFORMATION"# "FROM A FIRM'S BALANCE SHEET AND INCOME"% "STATEMENT. THE PROGRAM IS MENU DRIVEN."( "DATA FOR A COMPANY MAY BE INPUT, COM-"+ "PUTATIONS MAY TA6  200  "";: 14);"DATA CHANGE":C  "PRESENT DATA FOR DATA IS ";E$y CN$"NEW DATE ?":F1: 60000: F$ "" E$ F$  F1$((F1))  (F1$) 2 1030  1040 F1$ " " F1$: 1010 F1$ (F1$,3) F2$ ((F26 "Y" 1:1$ 10100.8 EDIT INPUT ITEM B "";PL I 1 27:F1I:F2A(I): 1000: F1$;" ";Q (A$(I),22);27);F2$: JJ 1 500: JJ: IVCN$"INPUT ITEM # TO CHANGE (0 TO END ) ?": 50000:II(F$)` II 0 j:F1II6 (XX):TEMP$(XX$,3) (TEMP$,2,1) "." XX$XX$ "0": 2040C (TEMP$,1) "." XX$ XX$ ".00"TT0: II 1 (XX$): (XX$,II,1) "." TT TT 1 IIOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CH6 OF DISK FILE ?": 60000:C$F$5'CN$"DRIVE NUMBER ?": 60000:DR$F$B, 1,8,15f1 2,8,2,DR$ ":" C$ ",SEQ"21,A,B$,C,D: A 0 41503 A,B$::2:14CN$"PRESS RETURN WHEN PROBLEM IS REMEDIED ?":F1: 60000: 41206 6KE PLACE, INPUT DATA"A- "MAY BE EDITED, AND THE DATA MAY EVEN BE"p/ "STORED ON DISKETTE. THE PROGRAM MAY BE"2 "EASILY MODIFIED BY THOSE DESIRING TO "5 "COMPUTE OTHER RATIOS OR DESIRING TO SHOW";7 "MORE DETAIL IN THE BALANCE SHEET."6100))  F2 0 F2$ "00"7 ! (F2$) 100 F2$ "0" F2$P $ (F2$) 12 1080[ . 1090w 8F2$ " " F2$: 1060 BF2$ (F2$,10) "." (F2$,2) L F1$ ((F1100)) F1 0 F1$"000" (F1$) 7 3030 6:F2A(II): 1000: F1$;" ";o (A$,22);" ";F2$;>tCN$ " ?": 50000:A(II)(F$)K~: 6230 COMPUTATION AND PRINTOUT OF RATIOS AND OTHER DERIVED DATA "";CN$"IS LINE PRINTER OUTPUT DESIRED (Y/N) ?": 60000:Z2$(F$,1) 6ARACTER:REM F$="INPUTTED DATA TO DATE",ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDG_á C$: C$"" 50015ldË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 506I 1 27:2,A(I): I:2,E$@2:1Jh &]p INPUT OF BALANCE SHEET AND INCOME STATEMENT DATAu "";: "ENTER THE FOLLOWING DATA:":z I 1 27 A$(I);" ";:CN$"?": 50000:A(I) (F$) I Z2$ "6-Z::CN$"PRESS RETURN TO BEGIN ":F1: 60000Zd A$(40),A(40),R$(30),R(30),B$(30),B(30)wn I 1 27: A$(I): Iq I 1 13: R$(I): I "";: 18);"MENU": "1. INPUT BALANCE SHEET AND INCOME DATA"4 "2. P6 3040 F1$ " " F1$: 30104 F1$ (F1$,5) "." (F1$,2)o (F1$,(F1$)1,1)" " F1$(F1$,5)".0" (F1$,1)u  PRINT OUT DATA FOR COMPANY ON DISKETTE"  "";:CN$"PRESS RETURN WHEN DISKETTE READY ?":F1: 60000  "6 Z2$ "Y" Z2$ "N" 10000: 6305BB(1)A(11)A(12)A(13)A(14)A(15): CURRENT ASSETSB(2)A(16)A(17)A(18)A(19): FIXED & INTANGIBLE ASSETSB(3)B(1)B(2): TOTAL ASSETSB(4)B(3)A(19): TOTAL OPERATING ASSETSB(5)A(206065}Ë (C$)20 F$(F$,(F$)1): 500150Ë (C$) 45 (C$)47 (C$) 57 50065=F$F$C$IÉ 50015|Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$6N" I14 (I14) 10100 DISPLAY INPUTS# "";hCN$"IS LINE PRINTER OUTPUT DESIRED (Y/N) ?": 60000:Z2$(F$,1) Z2$ "Y" Z2$ "N" 10000: 6110 Z2$ "Y" CN$"PRESS RETURN WHEN PRINTER READY ?":F1: 600006RINT OUT BALANCE SHEET AND INCOME DATA AS INPUT":U "3. EDIT INPUT DATA"[ "4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS "5. STORE COMPANY INPUT DATA ONTO DISKETTE".  "66";:: CN$"DISK FILE NAME ?": 60000:C$F$G CN$"DRIVE NUMBER ?": 60000:DR$F$T  1,8,15}  2,8,2,DR$":" C$ ",SEQ,WRITE" 1,A,B$,C,D  A 0 4055  A 63 1,"S"DR$":" C$ ",SEQ": 2: 1: 4040 A,B$:1:7)A(21)A(22)A(23): CURRENT LIABILITIES7B(6)A(24)A(25): LONG TERM DEBT & PREFERREDZB(7)A(26): RETAINED EARNINGSzB(8) A(27): COMMON STOCKB(9) B(7) B(8): TOTAL STOCKHOLDERS EQUITYB(10) B(5) B(6) B(9): TOTAL LIABI6: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 600154~ (C$) 13 60065Y (C$) 20 (F$)1 60060c C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAI6 Z2$"Y" 1,4 ""; "DATE IS ";E$:6 Z2$"Y" 1,"DATE IS ";E$G I 1 27nF1I:F2A(I): 1000:B(I)(A$(I))A 27: Z2$ "Y" A 30B(I)  (A$(I),25);27);F2$  Z2$"Y" 1,A$(I);A);F2$ I Z2$7TAJ SALES,COST OF GOODS SOLD,ADMINISTRATIVE & SELLING EXP.SL GENERAL EXPENSES,DEPRECIATION,OTHER EXPENSES,INTEREST ESPENSEN INCOME TAXES,DIVIDENDS ON PREFERRED STOCKS,SHARES OUTSTANDINGT CASH,MARKETABLE SECURITIES,NET ACCTS RECEIVABLE,7LITIES AND EQUITY B(11) A(1) A(2): GROSS MARGINXB(12) B(11) A(3) A(4) A(5) A(6): INCOME FROM OPERATIONSqB(13) B(12): EBIT(B(14) B(13) A(7): EBT2B(15) B(14) A(8): EARNINGS AFTER TAXES<B(16) A(9): DIVI7(C$)20 F$(F$,(F$)1): 50015!Ë (C$) 45 (C$)47 (C$) 57 50065)!F$F$C$5!É 50015h!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010n!Ùt!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!j CN$;!o C$: C$"" 7 ******************3 ** INVENT2 **L ******************[ 59468,12f ""; "" " INVENTORY CONTROL FOR COMMODORE " ""'(7 "1. ADD TO OR BEGIN INVENTORY FILEI  "2. INVENTORY LIST (ENTIRE,CLASS,VEND.)"y  "3. PROCESSING CHANGES OF INVENT. AMOUNT"  "4. SWITCH DRIVES"  "5. READ INVENTORY FILE FROM DISKETTE  "6. TURN PRINTER ON/OFF  "7. WRITE INVENTO7 INVENTORYV PREPAID EXPENSE,NET PLAN & EQUIP.,NET BUILDINGS,LAND (COST)[X INTANGIBLES,ACCOUNTS PAYABLE,NOTES PAYABLE,ACCRUED EXPENSESZ LONG TERM DEBT (CURR. PORTION),LONG TERM DEBT (NON CURR)\ PREFERRED STOCK,RETAINED EARNINGS,COMMON ST7 DENDS ON PREFERRED STOCK6FB(17) B(15) B(16): EARNINGS AVAILABLE TO COMMON SHAREHOLDERS`PB(18) B(1) B(5): WORKING CAPITALrd RATIOS NEXTnR(1) B(17)A(10): EPSxR(2) A(1)B(4): TURNOVER OF OPERATING ASSETSR(3) B(1) 7 60015!t F 1 F$ "" (C$)13 ::F0:"y (C$) 13 F$"" 600157"~ (C$) 13 60065\" (C$) 20 (F$)1 60060f" C$;" (C$)20 F$(F$,(F$)1): 60015"F$F$C$" 60015": "INPUT ERROR, PL7 "THIS PROGRAM IS A RELATIVELY COMPLETE"S* "INVENTORY CONTROL PROGRAM, THE ONLY", "REAL LIMITATION OF WHICH IS THAT IT IS". "IN MEMORY AND THUS ONLY HANDLES 150"0 "DIFFERENT INVENTORY ITEMS.2 "THIS LIMITATION MAY BE RELAXED BY",7RY FILE TO DISKETTE"8  "8. UPDATE TO BEGIN NEW INVENTORY PERIOD"R  "9. ACTIVITY REPORTq  "10. EDIT INVENTORY FILE  "11. END THIS PROGRAM  CN$"INPUT OPTION # AND PRESS RETURN ": 50000:OP(F$)  OP 1000,1300,1600,1900,207OCK,EPS^ TURNOVER OF OPERATING ASSETS,CURRENT RATIO,ACID TEST RATIOV` RECEIVABLES TURNOVER,INVENTORY TURNOVER,GROSS PROFIT MARGINb WORKING CAPITAL TURNOVER,NET PROFITS TO WORKING CAPITALd CURRENT DEBT TO NET WORTH,WORKING CAITAL TO TOT7B(5): CURRENT RATIOR(4) (A(11)A(12))B(5): ACID TEST RATIOFR(5)A(1)A(13): RECEIVABLES TURNOVERsR(6) A(2) A(14): INVENTORY TURNOVERR(7) B(11) A(1): GROSS PROFIT MARGINR(8) A(1) B(18): NET PROFITS TO WORKING CA,EASE TRY AGAIN ":: 60015":"(C$) 45 (C$)47 (C$) 57 50065)!F$F$C$5!É 50015h!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010n!Ùt!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!j CN$;!o C$: C$"" 74 "CHANGING THE DIMENSION OF THE VARIABLES.";X6 " THE PROGRAM SUPPORTS LINE PRINTER"8 "OUTPUT AND ALLOWS THE INVENTORY FILE TO"< "BE STORED ON EITHER CASSETTE OR DISK."> "REPORTS INCLUDE A LIST OF ALL DATA AND"@ "AN ACTIVITY R700,2200,2300,2500,3000,3500,2800  400U  SUBROUTINE FOR ADDING ITEM TYPES TO INVENTORY FILE`  "";  "ADDITIONAL INVENTORY ITEM SUBROUTINE": 3I NI 1 8 ""; = "INPUT DATA FOR NEXT ITEM.": B 6700  EXHIBIT DISPLA7AL ASSETSf SALES TO TOTAL ASSETS,BOOK VALUE PER SHAREA' "INPUT ERROR!!!, TRY AGAIN !": JJ 1 1000: JJ:|t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";:OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:RE7PITALR(9) B(15) B(18): NET PROFITS TO WORKING CAPITALMR(10)B(5)(B(9)A(25)A(19)): CURRENT DEBT TO WORTHR(11)B(18)B(3): WORKING CAPITAL TO TOTAL ASSETSR(12)A(1)B(3): SALES TO TOTAL ASSETSR(13)B(9)A(10): BOOK VALUE7 I 1 NIn 6000@x O 0 :CN$"PRESS RETURN TO CONTINUE,STOP TO END"Zy O 0 F1: 60000b{ Ih}CN$"DESIRED VENDOR NUMBER ?": 60000:VN$F$ I 1 NI V$(I) VN$ 1435 6000 I 1 NI7EPORT WHICH OUTLINE PAST">B "ACTIVITY FOR EACH ITEM. AN AVERAGE"jD "COST IS KEPT UPDATED FOR EACH ITEM."px| 10100 "";DD$"2":O1 1900: 2200 I 1 1000: I N$(150),D$(150),V$(150),Q(150),U(150),P(1507Y FOR THIS ITEM  6000  6200)  Z8 0 10804  6500X NI NI 1: Z9$ "Y" 1075c DT 1i   SUBROUTINE GIVEN INVENTORY LIST  DT 0 "";: "SORRY,NO DATA YET"  DT 0 I 1 500: I: "";:  "7M F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED3 _á C$: C$"" 50015X dË C$(13) F$"" F1 F0:y iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë 7 PR SHARE PRINT RATIOS "";' E$:: Z2$"Y" 1,4:1,"DATE IS ";E$8 I 1 13\F1R(I): 3000: R$(I);32);F1$v Z2$ "Y" 68401,R$(I);32(R$(I)));F1$ I Z2$ "Y" 1:1 10100@ DA8 Q(I) RL(I) 1470  6000$ Z2$"Y" 6100; J 1 1000: JC IW O 1 1:1]@ SUBROUTINE FOR CHANGING INVENTORY AMOUNTSA DT 0 "";: "SORRY, NO DATA YET"B DT 0 I 1 500: I: "";:J7),AC(150)  RL(150),RA(150),S(3,150)+NI 0W "7. WRITE INVENTORY FILE TO DISKETTE" "8. UPDATE TO BEGIN NEW INVENTORY PERIOD" "";" INVENTORY CONTROL"" ENTER NUMBER OF DESIRED OPTION" 7";:: "CHOOSE DESIRED OPTION AND PRESS ENTER"# #F ( "1. COMPLETE INVENTORY LIST"j 2 "2. INVENTORY LIST BY VENDOR" < "3. LIST OF ITEMS BELOW REORDER POINT" A FCN$"OPTION NUMBER ?": 50000:NB(F$) P NB 1385,1410,1440 Z i89$"N" 1800+Q(I) Q(I) Q1:S(0,I)S(0,I) Q1, 1870Q0CN$"INPUT # OF UNITS TO ADD ?": 50000:Q1(F$)5CN$"UNIT COST ?": 50000:UI(F$)7Z50:CN$"PRESS 1 IF ERROR, 0 IF OK ": 50000:Z5(F$)? Z5 1 18008 AVERAGE COST AUTOMATICALLY CHANGES WITH ADDITIONS/O TO INVENTORY:T "";g^ " CHANGING INVENTORY AMOUNTS":r "FOR EACH ITEM OF INTEREST IT WILL BE"t "NECESSARY TO ENTER THE ITEM NUMBER AND"v "PRESS ENTER. INFORMATION AB8 1,8,15 2,8,2,"0:INVDATA,SEQ,WRITE" 1,A,B$,C,D: A 63 2334@ 1,"S""0:INVDATA":2: 2331J 2,NI[ I 1 NIf. 5150n8 IzB 1:2: UPDATE TO BEGIN NEW INVENTORY PERIOD DT 0 "";:"SORRY, NO DATA YET8S$(S(0,I)):H4(S$) S1$(S(1,I)):H5(S1$)3 3H1);N$(I);15H2);D$(I);19H3);Q$;28H4);S$;E 39H5);S1$[ O 1 3270 1,3H1);N$(I);12H2);D$(I);4H3);Q$;9H4);S$; 1,11H5);S1$  SUBROUTINE FOR PRINTIN8 5070#2,P(I): 5070#2,AC(I): 5070$2,RL(I): 5070$2,RA(I): 5070)$2,S(O,I): 5070>$2,S(1,I): 5070S$2,S(2,I): 5070Y$i$1,A,B$,C,D$ A 0 2600:$ SUBROUTINE FOR COPYING RECORD ONTO DISKETTE$ 2,N8 BAC(AC(I)Q(I)Q1UI)(Q(I)Q1)CAC(I)(100AC)100*DQ(I) Q(I) Q18FU(I) UICI 1870NN 6500cS Z9$"Y" 1780iXl "ACTIVE DRIVE :";: DD$"1" DD$"2": 2:mDD$"1": 1: SUBROUTINE FOR READING INV FILE 8 OUT THAT"x "ITEM WILL THEN BE DISPLAYED. THEN THE"K|: "USER MUST INDICATE WHETHER THE ITEM"{~ "SUPPLY IS BEING DIMINISHED OR INCREASED" "AND BY HOW MUCH."::CN$"PRESS 0 TO CONTINUE, 1 FOR MENU": 60000 (F$) 1 8 " DT 0 I 1 500: I: "";: I 1 NI9 S(2,I) S(1,I):S(1,I)S(0,I):S(0,I)0A Ir "";: "UPDATE COMPLETE": I 1 200: Ix ( DISK ERROR ROUTINE2 CN$"PLEASE PRESS ENTER WHEN PROBLEM IS GONE":F1: 600008 G HEADING H$"NO DESCRIPTION QT THIS PR LAST PR"4 H1$"--- ----------- -- ------- -------": S EDITING SUBROUTINE DT0 "";: "SORRY, NO DATA YET" DT0 I 1 500: I: "";: ""; " EDITING8$(I): 5170$"2,D$(I): 5170$$2,V$(I): 5170%&2,Q(I): 5170%(2,U(I): 5170*%)2,P(I): 5170>%*2,AC(I): 5170R%+2,RL(I): 5170f%,2,RA(I): 5170{%-2,S(0,I): 5170%.2,S(1,I): 5170%02,S(2,I): 5170%1%21,A,B$,C,D8E IN FROM DISKETTEDT1- "";::"PLACE INVENTORY DATA DISKETTE IN DRIVE"3bCN$"PRESS ENTER WHEN READY ":F1: 60000 "";: F 1 12:: F 13);"** READING DATA **" 1,8,15 2,8,2,"0:INVDATA,SEQ"1,A,B$,C,8 "";I 0 "";4:::CN$" ITEM NUMBER ?": 60000:IT$F$BI I 1Y IT$N$(I) 1800m I NI 1770x 1720:"ITEM NOT ON INVENTORY LIST." J 1 200: J 1870 6000: LIST ITEM INFORMATION8<  END PROGRAM SUBROUTINE "";: CN$"ARE YOU SURE YOU WANT TO END THE PROGRAM ?": 60000J Z7$(F$,1)\ Z7$"N" n Z7$"Y" y 5200" 2805 SUBROUTINE FOR ACTIVITY REPORT DT 0 "";: "SORRY, NO 8 ITEM ENTRIES" ! "FOR EACH ITEM MAKE THE APPROPRIATE".! "CHANGES AND PRESS ENTER AFTER EACH"\! "CHANGE. JUST PRESS ENTER IF ITEM ISN'T"m! "CHANGED."! ::CN$"PRESS ENTER TO CONTINUE ":F1: 60000! "";!I 0!  F 1 8%4 A 0 A 1 2600:%6&P SUBROUTINE FOR INPUT ERROR(&Z:"INPUT ERROR. ENTER AGAIN "?&d K 1 1000: KG&n:s&p SUBROUTINE DISPLAYING DATA FOR 1 ITE,~&q "";&u O 1 1,4:1& "ITEM NUMBER : ";N$8D A 0 A,B$: 2600:1: 20262,NI: 2080! I 1 NI, 50504  I@2:1:m "PRINTER :";: O 1 O 0: "OFF":~O1: "ON": SUBROUTINE FOR WRITING INV FILE ONTO DISKETTE DT 0 "";:PRJ "SO8 % " FOR ADDITIONS, FOR DELETIONS, TO END":RCN$"ENTER YOUR CHOICE ": 60000:R$F$c R$"R"  F$"A" R$ "D" 1820 5200 1800 R$"A" 1840 "";CN$"HOW MANY ITEM TO BE DELETED ?":8DATA YET" DT 0 I 1 750: I: O 0 "";: 3010  1,4+ 33001 G "";: H$: H1$b O 1 1,H$:1,H1$s I 1 NI~ 3250 I17 (I17) 3070 I :CN$"END OF REPORT. PRESS RETURN 8 12:: F"CN$"ITEM NUMBER (99999 TO RETURN) ?": 60000:IT$F$" IT$"99999" +"$I I 1D". IT$ N$(I) 3700X"8 I NI 3670c"B 3620"V:"ITEM NO ON INVENTORY LIST""[ J 1 200: J"` 3755"t 6000: LIST INFORMA8(I)& "DESCRITION : ";D$(I) ' "VENDOR NUMBER : ";V$(I)3' "QUANTITY ON HAND :";Q(I)Y' "SELLING PRICE :";P(I)' "AVERAGE COST :";AC(I)' "REORDER POINT :";RL(I)' "MAXIMUM I8RRY, NO DATA YET" DT 0 I 1 500: I: "";:D "";::"PREPARE INVENTORY MASTER DISKETTE"J x CN$"PRESS ENTER WHEN READY ":F1: 60000 "";: I1 12:: I: 13);"** WRITING DATA **" : "THERE ARE";NI;"ITEMS" 8 50000:Q1(F$)   Q1 Q(I) 1828<!:"ONLY";Q(I);"ITEMS IN INVENTORY, TRY AGAIN"R" I 1 300: I]# 1822$CN$"ARE YOU SURE YOU WANT TO DELETE ?": 60000:Z9$(F$,1)' Z9$ "Y" Z9$ "N" 1834( 5200) 1828* Z8TO RETURN ":F1: 60000  O 1 1: 12 :CN$"PRESS RETURN TO CONTINUE ":F1: 60000B F1: 60000M "";X 3300c 3050 SUBROUTNE FOR PRINTING ACTIVITY INFORMATION H1(N$(I)):H2(D$(I)):Q$(Q(I)):H3(Q$) 8TION"~" 6700"PRJ "";": # 6500: QUERY SUBROUTINE"# Z9$ "Y" 3590(#3# 6000c# SUBROUTINE FOR READING DATA FROM DISKETTEw#2,N$(I): 5070#2,D$(I): 5070#2,V$(I): 5070#2,Q(I): 5070#2,U(I):9NVENTORY :";RA(I)' "ORDERS THIS INV PERIOD :";S(0,I)( "ORDERS LAST INV PERIOD :";S(1,I)F( "PREVIOUS PERIOD :";S(2,I)Z( O 1 1:1`(t(8 OK SUBROUTINEz(B(LCN$"IF OK PRESS 1, OTHERWISE 0 ?": 50000:Z8(F$)(V9 *******************5 ** DEPRSL **O *******************^# 59468,12i( "";2 ""< " DEPRECIATION SCHEDULE-STRAIGHT LINE "F ""'9RECIATION SCHEDULE":. ` "INITIAL COST = ";CQ a "SALVAGE VALUE = ";Sv b "LIFE OF ASSET (YEARS) = ";L: c Z2$ "Y" 390 d1,"STRAIGHT LINE DEPRECIATION SCHEDULE":1," " e1,"INITIAL COST = ";C f1,"SALV9(XX$)-RN (XX$,II,1) "." TTTT1: II-\N-OÀ.PÏ SUBROUTINE FOR DATA INPUTG.UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"{.ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED._á C$: C$"" 50015.dË C$(13) F$9 Z8 0 Z8 1 6270(` 5200(j 6000(t 6210(~()d QUERY SUBROUTINEP)nCN$"DO YOU DESIRE MORE ENTRIES ?": 60000:Z9$(F$,1)u)x Z9$ "Y" Z9$ "N" 6530{)}) 5200) "";: 6510), DATA ITEM INPUT SUBRO9 4);BV$;$ Z2$ "Y" HA 3:HB 17:HC 17:HD 16= Z2$ "Y" 650s1,HAH1);YR$;HBH2);D$;HCH3);AD$;HDH4);BV$ I 10 (I10) Z2$ "Y" 780: STOP SCROLL ID (CS) ADBV BV D: AD AD D: YR 9 d "THIS PROGRAM PRINTS A SCHEDULE FOR"Uf "DEPRECIATING AN ASSET BY THE STRAIGHT"jh "LINE METHOD."n "INPUTS ARE ITEM COST, ESTIMATED SALVAGE"p "VALUE & LIFE IN YEARS. OUTPUT IS A "r "YEAR BY YEAR SCHEDULE OF CURRENT"t "DEPRE9 AGE VALUE = ";S/ g1,"LIFE OF ASSET (YEARS) = ";L: h1," " r1,"YEAR CURR.DEP. ACCUM.DEP. BOOK VAL." |1,"---- --------- ---------- ---------" "YR CURR.DEP. ACCUM.DEP. BO9 "" F1 F0:.iË (C$)13 F$"" 50015.nÙ C$;.sË (C$)13 50070"/xË (C$)20 (F$)1 50065L/}Ë (C$)20 F$(F$,(F$)1): 50015/Ë (C$) 45 (C$)47 (C$) 57 50065/F$F$C$/É 50015/Ù: "INPUT 9 UTINE)6CN$"ITEM NUMBER ?": 60000:N$(I)F$*@CN$"DESCRIP. (<20 CHAR) ?": 60000:D$(I)F$O*JCN$"VENDOR NUMBER ?": 60000:V$(I)F$*TCN$"QUANTITY ON HAND ?": 50000:Q(I)(F$)*^CN$"LAST ORDER UNIT COST ?": 50000:U(I)9 YR 1YR$ (YR): H1 (YR$)4XX D: 830: D$ XX$: H2 TT[XX AD: 830: AD$ XX$: H3 TTXX BV: 830: BV$ XX$: H4 TTHA 3: HB 9: HC 10: HD 9 HAH1);YR$;HBH2);D$;HCH3);AD$;HDH4);BV$ Z2$ "Y9CIATIN, ACCUMULATED DEPRECIATION"5v "AND BOOK VALUE."Cx:: 810N "";CN$"DO YOU WANT LINEPRINTER OUTPUT (Y/N) ?": 60000:Z2$(F$,1) Z2$ "Y" Z2$ "N" 140 Z2$ "Y" 1,4:CN$"ENTER COST 9OK VAL."* "ŠŠŠ"0 L  INITIALIZE SUBROUTINEr AD 0: ACCUMULATED DEPRECIATION DP C S: ACCOUNT TO BE DEPRECIATED BV C: BOOK VALUE YR 0: PRESENT YEAR   COMPUTATION AND PRI9ERROR, PLEASE TRY AGAIN ":: 50010/Ù/Î/` SUBROUTINE FOR STRING INPUT 0eF$"":C$""0j CN$;/0o C$: C$"" 60015E0t F 1 F 0:f0y (C$) 13 F$"" 600150~ (C$) 13 600650 (C$) 20 (F$)1 6009(F$)*hCN$"SELLING PRICE ?": 50000:P(I)(F$) +rCN$"AVERAGE UNIT COST ?": 50000:AC(I)(F$)U+|CN$"REORDER POINT ?": 50000:RL(I)(F$)+CN$"MAXIMUM INVENTORY ?": 50000:RA(I)(F$)+CN$"# SOLD THIS INV. PR. ?": 509" HA 3: HB 17:HC 17: HD 16: 760, Z2$ "Y" 770b1,HAH1);YR$;HBH2);D$;HCH3);AD$;HDH4);BV$l1:1r :CN$"PRESS RETURN TO CONTINUE ":F1: 60000 310 *CN$"PRESS RETURN TO CONTINUE, STOP TO END9 ?": 50000:C(F$)QCN$"ENTER SALVAGE VALUE ?": 50000:S(F$)CN$"ENTER LIFE IN YEARS ?": 50000:L(F$) C S 260 "SALVAGE VALUE > COST --- ERROR-ERROR" "ENTER DATA AGAIN." I 9NTOUT ROUTINE YR$(YR):H1 (YR$)5 XX C: 830:C$XX$:H2TTI HA 3: HB 34g  HAH1);YR$;HBH2);C$;  Z2$ "Y" 540  Z2$ "Y" HA 3:HB56 1,HAH1);YR$;HBH2);C$  I 1 L 1 &D (C S)L 0BV B600 C$;0 (C$)20 F$(F$,(F$)1): 600150F$F$C$0 60015(1: "INPUT ERROR, PLEASE TRY AGAIN ":: 6001501:61(F$)1): 50015/Ë (C$) 45 (C$)47 (C$) 57 50065/F$F$C$/É 50015/Ù: "INPUT 9000:S(0,I)(F$)+CN$"# SOLD LAST INV. PR. ?": 50000:S(1,I)(F$),,CN$"# SOLD 2 INV PR. AGO ?": 50000:S(2,I)(F$)2,v,' "INPUT ERROR! TRY AGAIN!!!:FOR JZ = 1 TO 900:NEXT JZ:RETURN,t'CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1:9 ":F1: 600004> ** ROUTINE TO FORMAT OUTPUT **?HXX ((XX .005)100)100M XX 1 XX 10 (XX10) .001 XX$"0" (XX) "0"N XX 1 XX 10 (XX10) .001 870RXX$ (XX):TEMP$(XX$,3)W (TEMP$,2,1) 9 1 400: I 130 "";. 310: HEADINGE 420: INITIALIZEa" 480: COMPUTE & PRINTg,6 HEADING SUBROUTINE@ "";J Z2$ "Y" CN$"PRESS RETURN WHEN PRINTER READY":F1: 60000T ""; ^ "STRAIGHT LINE DEP9V D:AD AD D :YR YR 1, DYR$ (YR): H1 (YR$)P NXX D: 830: D$ XX$:H2 TTr XXX AD: 830:AD$XX$:H3 TT bXX BV: 830: BV$ XX$: H4 TT lHA 3: HB 9 : HC 10: HD 9 v HAH1);YR$;HBH2);D$;HCH3);AD$;HDH:ATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED5_á C$: C$"" 50015ZdË C$(13) F$"" F1 F0:{iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)9 60000:,* Z2$ "Y" Z2$ "N" 10000:- N ** ROUTINE TO FORMAT OUTPUT **$-*NXX ((XX.005)100)100A-4NXX$(XX):TEMP$(XX$,3)n-9N (TEMP$,2,1)"." XX$XX$"0": 20040->N (TEMP$,1) "." XX$XX$".00"-HNTT0: II 1 9 "." XX$ XX$ "0" : 870.\ (TEMP$,1) "." XX$ XX$ ".00"KfTT 0: II 1 (XX$)xk (XX$,II,1) "." TT TT 1: II~pOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO D: *******************5 ** TIMUSAN **O *******************^ 59468,12i ""; "" " TIME USE ANALYSIS " "":1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065+F$F$C$7É 50015jÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010pÙvÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F:INE "B CN$ CN$ "PRINTER DESIRED (Y/N) ?": 60000:Z2$(F$,1)Z Z2$ "Y" 1,4 Z2$ "Y" Z2$ "N" 10000: 170 Z2$ "Y" I 1 N:1,I;"---";A$(I): I:1," " Z3$ "Y" 1," ":1," " Z2$ "Y" :OCCUR TIME TOTAL"  "";KCN$"IS LINE PRINTER OUTPUT AVAILABLE ?": 60000:Z2$(F$,1)y Z2$ "Y" Z2$ "N" 10000: 440 Z2$ "Y" 1,4 Z2$ "Y" 1,12);"TIME USE ANALYSIS": Z2$ "Y" 1," " "";: 01 X5$ "0" X5$ :/ (X5$) 5 X5$ " " X5$: 12090D?/X5$ (X5$,4) "." (X5$,1)aD/X6$ (((X6.05)100))I/ (X6$) .1 X6$ "0" X6$J/ (X6$) .01 X6$ "0" X6$N/ (X6$) 5 X6$ " " X6$: 12110X/X6$ : + "TO USE THIS PROGRAM THE SUBJECT MUST"[ "KEEP A CAREFUL LOG OF HOW HE SPENDS HIS" "TIME FOR A WEEK, OR POSSIBLY SOME OTHER" "PERIOD. EACH CATEGORY OF ACTIVITY IS"# "GIVEN A CODE, E.G. LUNCH MIGHT BE A"% "1. THE CODES ARE 0::: y (C$) 13 F$"" 60015&~ (C$) 13 60065K (C$) 20 (F$)1 60060U C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015:: 1:1 "";0  "TIME USE INPUT NEXT. FOR EACH ITEM"Y  "ENTER CODE AND NUMBER OF MINUTES"  "PERFORMING THE ACTIVITY AT THIS TIME."  "ENTER 0,0 TO END AND -1,0 TO DISPLAY"  "CATEGORIES. 300 ENTRIES MAY BE MADE."  "THERE AR: 12);"TIME USE ANALYSIS": F$(1): F$(3)> Z2$ "Y" 1,F$(1):1,F$(3)Y: Z2$ "Y" 1," "i I 1 N NT(I) 0 X1I:X5CT(I)NT(I) NT(I) 0 X50X2$A$(I):X3CT(I):X4NT(I):X6CT(I)T100 NT(I) 0 :(X6$,3) "." (X6$,2)b/X1$ ((X1.5)):l/ (X1$) 3 X1$ X1$ " ": 12140i2 X1$;" ";X2$;X3$;" ";X4$;X5$;" ";X6$2 Z2$"Y" 1,X1$;" ";X2$;X3$;" ";X4$;X5$;" ";X6$2OÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$: SUCCESSIVE INTEGERS"-( "BEGINNING WITH 1.":Y- "WHEN THE DESIRED AMOUNT OF DATA IS "2 "AVAILABLE, THEN FOR EACH ACTIVITY AND"5 "TIME PERIOD THE USER ENTERS THE CODE"7 "AND NUMBER OF MINUTES SPENT PERFORMING"< "THE ACTIVITY.":H60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60010:(C$) 45 (C$)47 (C$) 57 50065\F$F$C$hÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUTINE FOR STRING INPUTeF$"":C$":E ";N;" CATEGORIES."+ J 0: NUMBER OF TIME USE ITEMS1 _  "REMEMBER 0,0 TO END, -1,0 TO DISPLAY"e { " "ENTRY ";J1: $CN$"ENTER CATEGORY # ?": 50000:C(J1)(F$) &CN$"ENTER TIME ?": 50000: 12000' Z2$"Y" (I12) I12 10100: "";: F$(1)R Z2$ "Y" (I12) I12 F$(3)Z0 Ib:: LIST CATEGORIES ON SCREEN "";: I 1 N: I;"' ";A$(I): I:' "INPUT ERROR!!!, TRY AGAIN!!!": JE 1 600::"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"GZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDb_á C$: C$"" 50015dË C$(13) F$"" F1 F0:::iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$):*? "THE FINAL PRINTOUT IS A SUMMARY OF THE"SA "PROPORTION OF TIME SPENT ON EACH"eF "ACTIVITY."Z:CN$"PRESS RETURN TO BEGIN ":F1: 60000d "";nCN$"ENTER THE NUMBER OF DIFFERENT "pCN$CN$"ACTIVITY CATEGORIES : ****************/ ** ACCTPAY **F ****************U 59468,12` ""; "" " ACCOUNTS PAYABLE PROGRAM " ""%::T(J1)(F$)2 ' C(J1) 0 T(J1) 0 400: FINISH ENTRY` ) C(J1) 1 T(J1) 0 1000: 280 , C(J1) (C(J1)) C(J1) 1 C(J1) N 10000 1 C(J1) (C(J1)) C(J1) 1 C(J1) N 280 6J J 1 @T: JE: t'CN$"PRESS RETURN TO CONTINUE ":F1: 60000:L. (X2$) 10 X2$ X2$ " ": 12000].X2$(X2$,7)q.X3$((X3.5)). (X1$) 3 X1$ " " X1$: 12020.X3$ (((X3.05)10))/ (X3$) .1 X3$"0" X3$/ :20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015OË (C$) 45 (C$)47 (C$) 57 50065\F$F$C$hÉ 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50005Ù:Î` SUBROUTINE FOR STRING INPUTeF$"":C$": ?": 50000:N(F$)?sR300: A$(N1),C(R),T(R),CT(N1),NT(N1)ExU I 1 N[o "CATEGORY ";IuCN$" DESCRIPTION (<= 7 CHARACTERS ) ?": 60000:A$(I) F$ I 1000 CN$"IS CATEGORY PRINTOUT ON L; "THIS PROGRAM IS A BALANCE FORWARDING"P "ACCOUNTS PAYABLE SYSTEM. WHAT THIS"| "MEANS IS THAT PAYMENTS DON'T ACCRUE" "TOWARDS ANY INDIVIDUAL INVOICE BUT" "TOWARDS LUMP SUM BALANCES PAYABLE." "THIS TYPE OF A/P SYSTEM IS TYPICAL: T T(J): TOTAL TIME> JCT(C(J)) CT(C(J)) T(J): TOTAL TIME IN CATEGORYs ONT(C(J)) NT(C(J)) 1: NO. TIMES IN CATEGORY T "";: 280  ANALYSIS F$(1) " TIME # AVG %" F$(3) "CAT # DESCR. MIN :(X3$) .01 X3$"0" X3$,/ (X3$) 6 X3$ " " X3$: 12040N/X3$(X3$,5) "." (X3$,1)b/X4$((X4.5))&/ (X4$) 3 X4$ " " X4$: 120700/X5$ (((X5.05)10))5/ (X5$) .1 X5$ "0" X5$6/ (X5$) .: "j CN$;o C$: C$"" 60015-t F1 F$ "" (C$) 13 F0:::Ny (C$) 13 F$"" 60015k~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ ;LY"(" "USED WHEN TOTAL OWED RATHER THAN"S$ "INDIVIDUAL INVOICES ARE IMPORTANT."& "FOR EXAMPLE, MONEY OWED ON CHARGE CARDS"( "IS THIS TYPE. INVOICES ARE KEPT ON FILE"* "UNTIL THE MONTH'S END. LINE PRINTER", "OUTPUT IS SUPPORTED; 500#  ADD TO OR START FILE ALREADY IN MEMORYP  "";:: NI 0 "NEW FILE": 10100_ I NI 1g JI  6050: INPUT 1 RECORD  "";:: F$(1): F$(2): 6300: PRINT 1 RECORD  10200: Z9$ "N" 1020  Z9$ "A"  $;8,15: 2,8,2, DD$ ":" ZN$ ",SEQ,WRITE"7 1,A,B$,C,D: A 0 2330N A 63 2325x 1,"S" DD$ ":" ZN$:2:1: 2321 A,B$:2:1 CN$"PRESS RETURN WHEN PROBLEM CORRECTED ":F1: 60000: 2310 2,NI$ I 1 NI;O END) ?": 50000:I(F$)= ? I 0 BD A(I,0)I: F$(4): F$(5): 6100: F$(7): F$(10)OI 6150:ZN 6000oX : 10100: 3110 EDIT SUBROUTINEI 0CN$"ENTER # OF ITEM YOU WISH TO EDIT, 0 IF NONE ?": 50000; 20000:V2$XX$:H2TT XX V(3): 20000:V3$XX$:H3TT0XX V(4): 20000:V4$XX$:H4TTi "TOTALS";10H1);V1$;6H2);V2$;7H3);V3$;7H4);s V4$ ZZ 1 40: "-";: ZZ O 1 1:1F " ": 10100KP COMPLETE VENDO; . DATA FILES MAY BE"@. "STORED ON DISKETTE. SEE THE ACCOMPANYING";l0 "DOCUMENTATION FOR INSTRUCTIONS."::8CN$"PRESS RETURN TO BEGIN ":F1: 60000:: "";;NC25: A(NC1,7),A$(NC1,1): MAX CUSTOMERS IN SYSTEM<MI200: B(MI,1); NI NI 1: NEW RECORD ON FILE% . 10400: MORE?< 8 Z9$ "Y" 1010B 9a  "";: "ACTIVE DRIVE :";  DD$"1" DD$"0": 15);0: 2030 DD$"1": 15);1  ZZ 1 2000: ZZ: 4 "";: 25);"PRINTER :"; > O1 O0: "OF; : 2850: I ) I 1 NC: 2650: IA "";"B 2:1(L K INPUT 1 VENDOR FROM DISKETTE 2,A(I,0):2,A$(I,1):2,A(I,1):2,A(I,2):2,A(I,3) 2,A(I,4):2,A(I,5):2,A(I,6):2,A(I,7) Z8$ A$(I,1): 11000:A$(I,1) Z8$ Z O; I(F$) I 0 KJ:JI: "";: F$(1): 6300: 60506 "";:JK: 4025C: 6000g "";: " ";F$(2): " ";F$(3) J (K12)121 K:J$(J):H(J$) 3H);J$;: 6100: J 4020 REPORT GENERATOR "";;R LISTR O 0 "";U " ":F$"VENDOR LIST": " ";F$-_ I 1 NCKd A$(I,1) "9999" 5260Ve "";ni O 1 1,4: 1j O 1 I 1 " ";F$k O 0 "";n " ": F$(4): F$(5)o O ;: B$(MI,1): MAX INVOICES IN SYSTEM3=O0:DD$"0": "";c> "DRIVE # : 0 PRINTER : OFF"|? ZZ 1 1500: ZZA F$(20): FORMATTINGF 9000P I 1 NC:A$(I,1) "9999": I "";:: " MENU": ;F": 2130 HO1: "ON"! R ZZ 1 2000: ZZ:>  READ IN FILE FROM DISKp  "";:: "PUT DATA DISK IN DRIVE": 10100  "";::CN$"ENTER NAME OF FILE TO BE READ ?": 60000 ZN$F$: "";: ZZ 1 12:: ZZ: 12);  "** READING;UTPUT 1 VENDOR TO DISKETTE5d 2,A(I,0):2,A$(I,1):2,A(I,1):2,A(I,2):2,A(I,3)Ce 2,A(I,4)ef 2,A(I,5):2,A(I,6):2,A(I,7)kn  INUT 1 INVOICE FROM DISKETTE 2,B$(I,0):2,B(I,0):2,B(I,1):2,B$(I,1) " OUTPUT 1 INVOOICE TO DISK;::" REPORT MENU" "1. AGED PAYABLES REPORT"> "2. COMPLETE VENDOR LIST"l "3. COMPLETE VENDOR LIST WITH INVOICES" "4. LIST OF ALL INVOICES" "5. END LIST PROGRAM":CN$"ENTER APPROPRIATE CHOICE ?": 5000;1 1:1s 6100: " "w O 1 1,4: 1: " "x F$(7): F$(10)/y O 1 1:1:} 6150V O 0 :: 10100:^ Id COMPLETE VENDOR LIST PLUS INVOICES ""; O 1 1,4: 1 " ":F$"VENDOR LIST": ; "1. ADD TO/BEGIN INVOICE/PAYMENT FILE"7  "2. SWITCH DRIVES"V  "3. TURN PRINTER ON/OFF"|  "4. READ FILE IN FROM DISKETTE" & "5. WRITE FILE OUT TO DISKETTE" 0 "6. EDIT FILE" : "7. REPORT GENERATOR" D "8. POST AND ELIMINATE INV; DATA **": 1,8,15* 2,8,2, DD$ ":" ZN$ ",SEQ)K1,A,B$,C,D: A 0 2240^ A,B$: 2: 1CN$ "PRESS RETURN WHEN PROBLEM IS CORRECTED":F1: 60000: 22102,NI I 1 NI: 2750: I I 1 NC: 2550: I;ETTE, 2,B$(I,0):2,B(I,0):2,B(I,1):2,B$(I,1)6 * EDIT FILE7 "";:r CN$"EDIT INVOICE FILE(I) OR VENDOR FILE(V) ?": 60000 Z9$(F$,1) Z9$ "I" Z9$ "V" 10000: 3002 Z9$ "V" 3100 "";: F$(1) ;0:Z9(F$) Z95  Z9 5100,5200,5300,5400 5007/ AGED PAYABLES: "";R O 1 1,4: 1o I 0 7:V(I) 0: I O 0 "";: " ":F$"AGED PAYABLES REPORT" " ";F$: " " F$(4): F;" ";F$: " " O 1 1:1 I 1 NC, A$(I,1) "9999" 5360N O 1 I NC 1,4:1i J 1 7:V(J)0: J~ O 0 ""; " ": F$(4): F$(5) O 1 1:1 6100: O 1 1,4: 1:;OICES- UPDATE" I "9. END PROGRAM" WP XCN$"ENTER YOUR CHOICE ":: 50000:Z9(F$) _ Z99 CN$"ARE YOU SURE YOU WANT TO QUIT (Y/N) ?" ` Z99 60000: (F$,1) "Y" "";: b Z9 1000,2000,2100,2200,2300,3000,5000,7000 l;2:1 WRITE FILE OUT TO DISK "";L : "PUT DISK IN DRIVE": 10100: "";p "PRESENT FILE NAME IS ' ";ZN$ CN$"NEW NAME ?":F1: 60000: F$ "" ZN$F$ "";: ZZ 1 12:: ZZ: 12);"* WRITING DATA *" 1,; J 1 NI 6300 J12 (J12) 4000: F$(1)% J3 J J 1O J12 (J12) 3080Z 4000` r EDIT VENDOR}& "";+ 0 "VENDOR # TO EDIT MUST BE LESS THAN ";NC19 : CN$"VENDOR NUMBER TO EDIT (0 T;$(5) O 1 1:1 I 1 NC A$(I,1) "9999" 5133( 6100Q J 1 4:V(J) V(J) A(I,J): Jz  I12 (I12) O 0 : 10100  I: O 1 1,4: 1 " "XX V(1): 20000:V1$XX$:H1TTXX V(2):< " " F$(7): F$(10): O 1 1:1 6150:: O 1 1,4:1: F$(1): F$(2): O 1 1:1K J 1 NIz B(J,0) I 6300:V(1) V(1) B(J,1) J " " O 1 1,4: 1: " " O 1 "CHANGE IN OWED< 7080-A(B(I,0),5) A(B(I,0),5) B(I,1)- I-+.CN$"ARE OWED BY DATE AND CUMULATIVE BILL TO BE UPDATED (Y/N) ?"C. 60000:Z3$(F$,1)r. Z3$ "Y" Z3$ "N" 10000: 7100. Z3$ "N" . UPDATE FILES.NI0:B$(1,0)<ENT ?":F1: 60000: F$"" B$(I,1)F$() PRINT 1ST LIENE ON CRT/PRINTER*) O 1 1,4:1F)A0$(A(I,0)):H1(A0$)j)XXA(I,1): 20000:A1$XX$:H2TT)XXA(I,2): 20000:A2$XX$:H3TT)XXA(I,3): 20000:A3$XX$:H4TT<000: F$ "" A(I,2) (F$)$XXA(I,3): 20000:A$XX$:HTT: 10H);A$;P$CN$" 60-90 OWED ?":F1: 50000: F$ "" A(I,3) (F$)$XXA(I,4): 20000:A$XX$:HTT: 10H);A$;$CN$" 90+ OWED ?":F1: 50000: F$ "" A(I,4) (< THIS MONTH = ";V(1): " "# O 1 "---------------------------------------":1:19 O0 : 10100A IGc COMPLETE INVOICE LISTn" "";# O 1 1,4: 1$:'F$"INVOICE LIST": " ";F$: " ",V(0) < "N" Z9$ "A" 10000: 102052'2<( Y,N SBR2A(Z9$ " "$3F(CN$"ENTER Y IF OK, N IF ERROR ?": 60000:Z9$(F$,1)T3P( Z9$ "Y" Z9$ "N" 10000: 10305Z3Z(p3( MORE ENTRY? SBR~3(Z9$ " "3(CN$"DO YOU DESIRE MORE ENTR< "":B(1,0)0:B(1,1) 0:B$(1,1)"". I 1 NC.A(I,7) A(I,7) A(I,6)C/A(I,4) A(I,4) A(I,3):A(I,3) A(I,2):A(I,2)A(I,1):A(I,1)A(I,6)\/  NOW APPLY PAYMENTSl/AA A(I,5)/ J 4 1 1/ AA 0 7290/  A(I,J) 0 < )XXA(I,4): 20000:A4$XX$:H5TT)H6(A$(I,1))* 3H1);A0$;6H6);A$(I,1);7H2);A1$;6H3);A2$;;* 7H4);A3$;7H5);A4$O* O 1 1:1U*{* PRINT VENDOR SECOND LINE ON CRT* O 1 1,4:1* O 0 *XXA(I,5):< F$)$XXA(I,5): 20000:A$XX$:HTT: 10H);A$;4%CN$" PAY LAST MONTH ?":F1: 50000: F$ "" A(I,5) (F$)c%XXA(I,6): 20000:A$XX$:HTT: 10H);A$;%CN$" CHG LAST MONTH ?":F1: 50000: F$ "" A(I,6) (F$)%XXA(I,7): 200< 0:V(1) 0: V(2) 06 F$(1): F$(2) ; O 1 1:1 @ J 1 NI" J 6300; OV(0) V(0) B(J,1)c T B(J,1) 0 V(1) V(1) B(J,1) Y B(J,1) 0 V(2) V(2) B(J,1) ^ O 0 J8 (J8) :: 10100: ""; c J: <IES (Y/N) ?": 60000:Z9$(F$,1)3( Z9$ "Y" Z9$ "N" 10000: 104053( 4) ONLY Y/N SBR14) Z9$ "Y" Z9$ "N" 1000074)h4* ELIMINATES TRAILING BLANKS OF VARIABLE Z8$4+ (Z8$,1) "" Z8$ (Z8$,(Z8$)1): 11010< 7290/*A(I,J) A(I,J) AA: A(I,J) 0 AA0: 7290/4AA A(I,J):A(I,J) 00z J0A(I,1) AA A(I,1)%0 I+0`0(#F$(1)"NO. ITEM# VEND# ITEM AMT COMMENT"0)#F$(2)"-- ----- ----- --------- -------"0P#F$(4)"VN N< 20000:A5$XX$:H7TT*XXA(I,6): 20000:A6$XX$:H8TT+XXA(I,7): 20000:A7$XX$:H9TT8+ 12H7);A5$;15H8);A6$;10H9);A7$P+ O 1 " ":" "d+ O 1 1:1j++ PRINT 1 INVOICE LINE ON CRT/PRINTER+ O 1 1,4:1+J<00:A$XX$:HTT: 10H);A$;&CN$" CUMUL. CHGES ?":F1: 50000: F$ "" A(I,7) (F$)"&L& SBR FOR INPUTTING DATA FOR 1 INOICEW& "";&: "ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT":&H(B$(I,0)): 8H);B$(I,0);&CN$" I<O 1 1,4: 1 !dXXV(1): 20000:V1$XX$:H1TT: O 0 10100-!eXXV(2): 20000:V2$XX$:H2TTO!fXXV(0): 20000:V0$XX$:H3TT!g " ": "----------------------------------------": " "!h "TOTAL CHARGES :";22H1);V1$!j "TOTAL PAYM<4 +4 N ** ROUTINE TO FORMAT OUTPUT **4*NXX ((XX .005)100)10054NXX$(XX):TEMP$(XX$,3)759N (TEMP$,2,1) "." XX$ XX$ "0": 20040c5>N (TEMP$,1) "." XX$ XX$ ".00"~5HNTT0: II 1 (XX$)5MN (XX$,II,1) "." TT<AME CURRENT 30-60 60-90 90+"0Z#F$(5)"-- ----- ------- ----- ----- ---"21n#F$(7)"PMTS LAST MTH CHGES LAST MTH CUM CHGES"h1o#F$(10)"------------- -------------- ---------"n1#1' INPUT ERROR SBR1' "INPUT ERROR! TRY AGAIN!<J$(J):H0(JJ$)+H (B$(J,0))+B0$(B(J,0)):H1(B0$),XXB(J,1): 20000:B1$XX$:H2TT&,H3(B$(J,1))], 3H0);JJ$;7H);B$(J,0);7H1);B0$;10H2);B1$;s, 12H3);B$(J,1), O 1 1:1,,X POST TO ACCTS,b "";<TEM NUMBER ?":F1: 60000: F$ "" B$(I,0)F$'XXB(I,0): 20000:B$XX$: 7TT);B$;`'CN$" VENDOR NUMBER ?":F1: 50000: F$"" B(I,0)(F$)' B(I,0) NC B(I,0) (B(I,0)) "ILLEGAL VENDOR NUMBER"' B(I,0) NC <ENTS :";22H2);V2$!l "CHG-PAYMENTS :";22H3);V0$;"m " ": "----------------------------------------": " "P"w O 0 10100d"x O 1 1:1j"{"p SBR FOR INPUTTING DATA ON 1 VENDOR"zA(I,0) I"H(A$(I,1)): 11H);A$(I,< TT 15RN II5\N5OÀ5PÏ SUBROUTINE FOR DATA INPUT6UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"P6ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDk6_á C$: C$"" 500156dË C$(13) F$"" F1 F0:::6iË<": Z9 1 700: Z91$'1t':CN$"PRESS RETURN TO CONTINUE ":F1: 60000:2' Y,N,A SBR2' O 1 1:1(2'Z9$ " "c2'::CN$"ENTER Y IF OK, N IF ERROR, A TO ABORT ?":F12' 60000:Z9$(F$,1): O 1 1,42' Z9$ "Y" Z9$<,lCN$"POSTING ACCTS-PRESS Y TO PROCEED N RETURN ?": 60000-qZ9$ (F$,1)-v Z9$ "N" 8- Z9$ "Y" 10000:: 7020c- I 1 NC:A(I,5) 0:A(I,6) 0: It- I 1 NI- B(I,1) 0 A(B(I,0),6) A(B(I,0),6) B(I,1):< B(I,0) (B(I,0)) 6065( A$(B(I,0),1)"9999" "ILLEGAL VENDOR NUMBER": 6065?(XXB(I,1): 20000:B$XX$: 7TT);B$;(CN$" ITEM AMOUNT ?":F1: 50000: F$"" B(I,1)(F$)(H(B$(I,1)): 10H);B$(I,1);(CN$" COMM<1);"CN$" VEND. NAME ?":F1: 60000:A$(I,1) (F$,5),#XXA(I,1): 20000:A$XX$:HTT: 10H);A$;n#CN$" CURRENT OWED ?":F1: 50000: F$ "" A(I,1) (F$)#XXA(I,2): 20000:A$XX$:HTT: 10H);A$;#CN$" 30-60 OWED ?":F1: 50= (C$)13 F$"" 500156nÙ C$;6sË (C$)13 500706xË (C$)20 (F$)1 50065%7}Ë (C$)20 F$(F$,(F$)1): 50015X7Ë (C$) 45 (C$)47 (C$) 57 50065e7F$F$C$q7É 500157Ù: "INPUT ERROR, PLEASE TRY AGAIN= ********************7 ** PORTVAL9 **R ********************h 59468,12: ""; "" " STOCK PORTFOLIO PROGRAM " ""=::CN$"ENTER YOUR CHOICE ? ": 50000:Z9(F$)^ n Z9 1000,2000,2100,2200,2300,3000,5000,7000,9996h o 500  ADD TO OR START FILE ALREADY IN MEMORY DT 1 HT 20  "";: NI 0 "NEW FILE"::  NI 0 CN$"PRESS RETUR=:  ""; : "PUT DATA DISK IN DRIVE":N CN$"PRESS RETURN WHEN READY ":F1: 60000 "";: ZZ 1 12:: ZZ: 12);"** WRITING DATA **" 1,8,15 2,8,2, DD$ ":" "PORTFOL" ",SEQ,WRITE" 1,A,B$,C,D: A 0 2335= ":: 500107Ù7Î7` SUBROUTINE FOR STRING INPUT7eF$"":C$""7j CN$;8o C$: C$"" 6001548t F1 F$ "" (C$) 13 F0:::U8y (C$) 13 F$"" 60015r8~ (C$) 13 600658 (C$) 20 (F$)1 6006= :'CN$"IS A LINE PRINTER TO BE USED (Y/N) ?": 60000:Z2$(F$,1)V Z2$ "Y" Z2$ "N" 10000: 5005 "";: " LIST MENU": "1. COMPLETE LIST AS ON FILE "2. LIST WITH PAPER PROFIT,YIELD & PORTFOLI= & "THIS PROGRAM IS A SIMPLE STOCK "T "PORTFOLIO PROGRAM. IT WILL PERMIT THE" "USER TO STORE DATA ABOUT HIS PORTFOLIO" "OF SECURITIES AS WELL AS GIVE A PROFIT" "ANALYSIS OF THE PORTFOLIO. FOR EACH"  "COMPANY, WE STORE STOC= N TO CONTINUE ":F1: 60000 J NI 1<  6000: INPUT 1 RECORDG  "";g  6100: PRINT OUT 1 RECORD  10200: Z9$ "N" 1020  Z9$ "A" $NI NI 1: NEW RECORD ON FILE . 10400: MORE ? 8 Z9$ "Y" 1000 ==  A 63 23253 1,"S" DD$ ":" "PORTFOL": 2: 1: 2320E A,B$:2: 1 CN$"PRESS RETURN WHEN PROBLEM IS REMEDIED ":F1: 60000 2315 2,NI$ J 1 NI. 2,A$(J,1):2,A$(J,2):2,A$(J,3):2,B(J,1)3 2,B(J,2):08 C$;8 (C$)20 F$(F$,(F$)1): 600158F$F$C$8 600159 "INPUT ERROR, PLEASE TRY AGAIN ":: 600109:#9 (C$) 45 (C$)47 (C$) 57 50065e7F$F$C$q7É 500157Ù: "INPUT ERROR, PLEASE TRY AGAIN=O VALUE" "3. END LIST PROGRAM"?:CN$"ENTER APPROPRIATE CHOICE ? ": 50000:Z9(F$)P Z9 3 e Z9 5200,5300p 5010vP COMPLETE LISTU "";: Z2$ "Y" "PUT PAPER INTO PRINTER":V Z2$ "Y" CN$"PRE=K TICKER CODE,"8 "COMPANY NAME, DATE OF PURCHASE, # OF"c "UNITS PURCHASED, PURCHASE PR/UNIT," "PRESENT PR/UNIT, YEARLY DIVIDENDS/UNIT.": "THE ANALYSIS COMPUTES SUCH ELEMENTS AS" "PORTFOLIO AT COST, VALUE OF PORTFOLIO," =4  DD$ "1" DD$ "0": "";: "DRIVE 0 NOW ACTIVE": 2030_ DD$ "1": "";: "DRIVE 1 NOW ACTIVE"  I 1 2000: I: "";:  4 f  READ IN FILE FROM DISK DT 1  "";: "PUT DATA DISK IN DRIVE": CN$"PRES=2,B(J,3):2,B(J,4)8 J B 2:1L # EDIT FILEO DT0 "";: "SORRY, NO DATA YET"q DT0 I 1 2000: I:| ""; HT20: J 1 NI "";: HT);J: 6115 CN$"PRESS RETURN TO CONTINUE ":F1: 60000=TOTAL DIVIDENDSB(J,5) B(J,4) B(J,3) 100: PRESENT YIELDIB(J,6) B(J,3)B(J,2)100 100: % PROFITvB(J,7) B(J,1) B(J,3): PRESENT VALUE~ J Z2$ "N" Z2$ "" 5410 1,4:1," ":1," "1," TK DATE PURCH.=SS ENTER WHEN PRINTER READY ":F1: 60000!X Z2$ "Y" 5220PY Z2$ "Y" 1,4:1," ":1," ": 41000xZ Z2$"Y" J 1 NI: 6100: J[ Z2$ "Y" 1:1:dHT20: J 1 NIi "";n 6100: 1 PRINTED RECORDs JN="PRESENT YIELD, ETC."B"::CN$"PRESS RETURN TO BEGIN ":F1: 60000H([2DD$"1":Z2$""t< A$(120,4),B(120,8)A AF$(120,4),BT(120,8) "";: " MAIN MENU":Z2$" " "1. ADD TO FILE OR BEGIN NEW FILE" =S RETURN WHEN READY ":F1: 60000K  "";: ZZ 1 12::: 12);"** READING DATA **"X  1,8,15  2,8,2,DD$ ":" "PORTFOL" ",SEQ" 1,A,B$,C,D: A 0 2240  A,B$: 2:1 CN$"PRESS RETURN WHEN PROBLEM IS REMEDIED ":F1:= J J J 1 4000  " EDIT SUBROUTINE,K J2<J 0m::"CHANGE TICKER CODE TO ZZZZ TO DELETE" I 1 200: I:CN$"ENTER # OF ITEM TO EDIT, 0 IF NONE ": 50000:J(F$) J 0 J K: "";:HT= PRESENT YIELD PRESENT %"@1,"CODE PURCH PR/UNIT PR/UNIT % VALUE PROFIT"q ZZ1 70:1,"-";: ZZ:1," ": J 1 NIH1(A$(J,1)):H2(A$(J,3)):XXB(J,2): 20000:B1$XX$:H3TTXXB(J,3): 20000:B2$XX$:H4T=I ::CN$"PRESS RETURN TO CONTINUE ":F1: 60000't J NI 5250fx HT20 ::CN$"PRESS RETURN TO CONTINUE ":F1: 60000n J Z2$ "Y" 1:1::CN$"PRESS RETURN TO CONTINUE ":F1: 60000 PORTFOLIO ANALYSI="2. SWITCH DRIVES (DEFAULT = 1)2 "3. NOT IMPLEMENTED"T "4. READ FILE IN FROM DISK"x& "5. WRITE FILE OUT ONTO DISK"0 "6. EDIT FILE": "7. LIST FILE AND PROFIT ANALYSIS"D "8. DELETE RECORD FROM FILE"N "9. END PROGRAM"& X= 60000: 2215 2,NI  J 1 NIF 2,A$(J,1):2,A$(J,2):2,A$(J,3):2,B(J,1)h 2,B(J,2):2,B(J,3):2,B(J,4)p  Jz 2:1   WRITE FILE OUT ONTO DISK  DT0 "";: "SORRY, NO DATA YET"  DT0 I 1 2000: I=34: "";4HT 20: 6100:CN$"PRESS RETURN TO CONTINUE ":F1: 60000A: 6010S "";: 6100m"";: HT);J: 6100x 4020 LIST FILE WITH ANALYSIS DT0 "";: "SORRY, NO DATA YET" DT0 I 1 2000: I>T:XXB(J,5): 20000:B3$XX$:H5TT9XXB(J,7): 20000:B4$XX$:H6TT:XXB(J,6): 20000:B5$XX$:H7TTw1,4H1);A$(J,1);10H2);A$(J,3);6H3);B1$;10H4);B2$;1,8H5);B3$;9H6);B4$;7H7);B5$: J:1," "1," ":1:1: 5465"HT20: J = SV(1)0:V(2)0:V(3)0:V(4)04 "";: ZZ 1 12:: ZZ: 12);"** COMPUTING **"E J 1 NI{V(1) V(1) B(J,1) B(J,2): PORTFOLIO AT COSTV(2) V(2) B(J,1) B(J,3): PORTFOLIO VALUE NOWV(3) V(3) B(J,1) B(J,4): >J6 1 4:A$(J,J6)AF$(J,J6): J6% J6 1 7:B(J,J6) BT(J,J6) % J6% J%P% ' "";: "BE SURE TO SAVE DATA IF IT HAS BEEN "% ' 17);"CHANGED."::CN$"OK TO QUIT ?": 60000%' (F$,1) "Y" "";:%'%' INPUT ERRO>0000 F$ "" B(J,2)(F$) CN$"PRESENT PR/UNIT ?":F1: 500006  F$ "" B(J,3)(F$)d CN$"YEARLY DIV/UNIT ?":F1: 50000  F$ "" B(J,4)(F$)   PRINT 1 LINE OF PORTFOLIO  Z2$ "Y" 6115 H> 1 NI, 41032- HT34 JNI 5450@2 HT20 CN$"PRESS RETURN TO CONTINUE ":F1: 60000: "";HJ J~T::CN$"PRESS RETURN TO CONTINUE ":F1: 60000Y "";: ZZ 1 12:: ZZ: 12);"** COMPUTING **"_XX V(1): 20000:V1> PURCH. PRESENT YEARLY NO."#*21,"CODE NAME PURCH. PR/UNIT PR/UNIT DIV/UNIT UNITS"n*<1,"---- ------- ------ ------- ------- -------- -----"t*F*H "";*J "TK CODE :";HT);A$(J,1):*L " (C$)20 F$(F$,(F$)1): 60015.F$F$C$. 60015/: "INPUT ERROR, PLEASE TRY AGAIN ":: 60010"/:(/(C$) 45 (C$)47 (C$) 57 50065h-F$F$C$t-É 50015-Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010-> R SBR%' "INPUT ERROR! TRY AGAIN": Z9 1 2000: Z9%$' &' Y,N,A SBR&'Z9$ " "X&'::CN$"ENTER Y IF OK, N IF ERROR, A TO ABORT ?": 60000h&'Z9$(F$,1)&' Z9$ "Y" Z9$ "N" Z9$ "A" 10000: 10205&'&<( Y,N SBR> 1 (A$(J,1)):H2(A$(J,2)):H3(A$(J,3))!XXB(J,2): 20000:B1$XX$:H4TT8!XXB(J,3): 20000:B2$XX$:H5TT\!XXB(J,4): 20000:B3$XX$:H6TT!XXB(J,1): 20000:B4$XX$:H7TT!1,4H1);A$(J,1);10H2);A$(J,2);12H3);A$(J,3);9H4);!> $XX$:H1TT`XX V(2): 20000:V2$XX$:H2TT,aXX V(2) V(1): 20000:V3$ XX$:H3TTPbXX V(3): 20000:V4$XX$:H4TT|cXX V(3) V(2): 20000:V5$ XX$:H5TTe "";f Z2$ "Y" 1,4:1gA35: Z2$ "Y" A 15h "PORTFO> DATE PURCH :";HT);A$(J,3):*N "PURCH. PR/UNIT :";HT);B(J,2):(+P "PRES. PR/UNIT :";HT);B(J,3):c+Z "YIELD % :";HT);((B(J,5).005)100)100:+d "PRESENT VALUE :";HT);B(J,7):+n "% PROFIT :";HT);B(J> ***************- ** FVAL **C ***************R 59468,12] "";i 548,0 " FUTURE VALUE OF AN INVESTMENT " "THIS PROGRAM GIVES THE FUTURE VALUE OF"# "AN INVESTMENT KEPT FOR N PERIODS WITH".>&A(ZO9$ " "'F(CN$"ENTER Y IF OK, N IF ERROR ?": 60000:Z9$(F$,1)2'P( Z9$ "Y" Z9$ "N" 10000: 103058'Z(N'( MORE ENTRY? SBR\'(Z9$ " "'(CN$"DO YOU DESIRE MORE ENTRIES (Y/N) ?": 60000:Z9$(F$,1)'( Z9$ "Y" Z9$ >1,B1$;9H5);B2$;10H6);B3$;7H7);B4$! "";""TK CODE :";HT);A$(J,1):F""CORP NAME :";HT);A$(J,2):n""DATE PURCH :";HT);A$(J,3):""PURCH. PR/UNIT :";HT);B(J,2):""PRESENT PR/UNIT :";HT);B(J,3):">LIO VALUE AT COST :";AH1);V1$ m "PRESENT PORTFOLIO VALUE :";AH2);V2$Po "DOLLAR PAPER PROFIT :";AH3);V3$r "TOTAL DIVIDENDS PER YEAR :";AH4);V4$w "DIVIDEND YIELD :";AH5);V5$x " ": "-------------->,6)::+OÀ+PÏ SUBROUTINE FOR DATA INPUT,UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"S,ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDn,_á C$: C$"" 50015,dË C$(13) F$"" F1 F0:::,iË (C$)13 F$"">( "INTEREST COMPOUNDED AT A RATE OF I % PER";[- "PERIOD. THE INPUT NEEDED TO RUN THE"2 "PROGRAM IS THE AMOUNT OF THE INVESTMENT,";7 "THE INTEREST RATE ( AS A PERCENT ), AND"< "THE NUMBER OF PERIODS. IF DATA IS "A "ANNUAL WITH>"N" 10000: 10405'(') ONLY Y/N SBR() Z9$ "Y" Z9$ "N" 10000()E(* ELIMINATES TRAILING BLANKS OF VARIABLE Z8$z(+ (Z8$,1) " " Z8$ (Z8$,(Z8$)1): 11010( +( N ** ROUTINE TO FORMAT OUTPUT **(*NXX ((XX.>"YEARLY DIV/UNIT :";HT);B(J,4): #"NO. UNITS :";HT);B(J,1)::)#X DELETE SBR COMPUTATIONT#Y DT0 "";:"SORRY, NO DATA YET"x#Z DT0 ZZ 1 2000: ZZ:#[ "";: ZZ 1 12:: ZZ: 14);"** DELETING **"#]K1: K = N>--------------------------": " "| " ": " ": Z2$ "Y" 1:1G::CN$"PRESS RETURN TO CONTINUE ":F1: 60000:sp SBR FOR FORMATTING DATA ON 1 PURCHASE~u "";zCN$"STOCK TICKER CODE ?":F1: 60000: F$ "" A$(J,1)F$ C> 50015,nÙ C$;,sË (C$)13 50070,xË (C$)20 (F$)1 50065(-}Ë (C$)20 F$(F$,(F$)1): 50015[-Ë (C$) 45 (C$)47 (C$) 57 50065h-F$F$C$t-É 50015-Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010-> FIXED NUMBER OF COMPOUNDINGS";IF "THEN PROGRAM WILL COMPUTE THE INTERESTbK "RATE PER PERIOD."jP:dF1:CN$"ENTER ANY CHARACTER TO BEGIN ?": 1100:Z$F$f"";iCN$"IS INTEREST RATE QUOTED ANNUALLY WITH COMPOUNDING (Y/N)?": 1100>005)100)100(4NXX$(XX):TEMP$(XX$,3))9N (TEMP$,2,1) "." XX$ XX$ "0": 20040>)>N (TEMP$,1) "." XX$ XX$ ".00"Y)HNTT0: II 1 (XX$))MN (XX$,II,1) "." TT TT 1)RN II)\N)(1," TK CORP DATE >O. OF RECORDS NOT DELETED#b J 1 NI$l A$(J,1) "ZZZZ" 7090"$v DO NOT DELETE RECORDM$ J6 1 4:AF$(K,J6) A$(J,J6): J6t$ J6 1 7:BT(K,J6)B(J,J6): J6$K K 1: 7090$ J$K K 1:NI K$ J 1 NI$ >N$"COMPANY NAME ?":F1: 60000: F$ "" A$(J,2)F$PCN$"DATE OF PURCHASE ?":F1: 60000: F$ "" A$(J,3)F$~CN$"# OF UNITS PURCHASED ?":F1: 50000 F$ "" B(J,1) (F$)CN$"PURCHASE PR/UNIT ?":F1: 5>-Î-` SUBROUTINE FOR STRING INPUT-eF$"":C$""-j CN$; .o C$: C$"" 600157.t F1 F$ "" (C$) 13 F0:::X.y (C$) 13 F$"" 60015u.~ (C$) 13 60065. (C$) 20 (F$)1 60060. C$;.? jY$(F$,1)k"";Dl Y$"Y" Y$"N" "INPUT ERROR ": 105Ym Y$"Y" 500_nxCN$"AMOUNT OF INVESTMENT ?": 1000:A(F$)F1:CN$"INTEREST RATE PER PERIOD ?": 1000:F0 F$"" I: F$"" ? *****************1 ** PVAL **I *****************X 59468,12c "";( I 1 40: "";: I:2 " PRESENT VALUE"37 I1 40: "";: I<F "THIS PROGRAM WILL COMPUTE THE PRESENT"!I ? RUN, 0 TO END ?": 1000:Z8(F$)(  Z81 130= " Z80 "";:_ , "1 OR 0 PLEASE, TRY AGAIN!"{ 6 L 1 600: L: 270 @ COMPUTATION FOR ANNUAL DATA JCN$"ANNUAL INTEREST RATE IN % ?":: 1000:I1(F$) TCN$"NUMBER OF COMPO$)1 "INPUT ERROR, TRY AGAIN ": 1110@ y (C$)20 F$(F$,(F$)1): 1117M ~F$F$C$X  1117c  F$:i  (C$) 45 (C$)47 (C$)57 1060 F$F$C$  1011 $: "INPUT ERROR, PLEASE TRY AGAIN ":: 1005 . C$? I(F$) II100GCN$"NUMBER OF PERIODS ?": 1000:N(F$)XFVA(I1)N^ "" "FUTURE VALUE = ";FVCN$"PRESS 1 FOR MORE TRIALS, 0 TO END ?": 1000:Z8(F$) Z?  **************+ ** DATE **@ **************O# 59468,12Z( "";dF 330oP "";Z I 1 2dxCN$"INPUT DATE IN FORM MM,DD,YYYY?": 1100z (F$)10 "INPUT ERROR, PLEASE TRY AGAIN ": 120%}M(I)((F? "VALUE OF A SINGLE AMOUNT, A,TO BE"NL "OBTAINED AFTER N EQUAL TIME PERIODS,"yP "WITH INTEREST COMPOUNDED AT A RATE"U "OF I % PER PERIOD."Z "BE SURE TO INPUT INTEREST RATE AS A"] "PERCENT, CONVERSION TO DECIMAL IS DONE"` "IN TH? UNDINGS ANNUALLY ?": 1000:N1(F$)# ^II1N1O h: "INTEREST RATE PER PERIOD = ";I;"%" m "" r J1 5000: J : "";:  SUBROUTINE TO INPUT DATA F$"":C$""  CN$;  C$  C$"" 1? AYS+ | "INPUT IS JUST THE 2 GIVEN DATES. OUTPUT";[ ~ "GIVES THE NUMBER OF DAYS BETWEEN DATES."e ::  "STOP TO END,ANY OTHER KEY TO CONTINUE ";: A$  A$"" A$: 401  (A$)27 "";:  80  DATA INPUT SUBROUTINE? 81 102 Z80 / "INPUT ERROR. TRY AGAIN"E  L 1 300: LO  220q  COMPUTATION FOR ANNUAL DATA CN$"ANNUAL INTEREST RATE IN % ?": 1000:I1(F$) CN$"NUMBER OF COMPOUNDINGS ANNUALLY ?": 1000:N1(F$) II1N?$,2)):D(I)((F$,4,2)):Y(I)((F$,4))A M(I)1 M(I)2 170uA1365 Y(I)D(I)31 (M(I)1)(.4 M(I)2.3)A2(Y(I)4)(.75 ((Y(I)100)1)) 190A1365Y(I)D(I)31(M(I)1)((Y(I)1)4)A2 (.75 (((Y(I)1)100)1?E PROGRAM."8d: "INTEREST RATES MAY BE QUOTED AS ANNUAL"fg "RATES IF THE NUMBER OF COMPOUNDS PER "j "YEAR ARE KNOWN.":xCN$"PRESS ANY KEY TO BEGIN ?":F1: 1100 "";CN$"INTEREST RATES QUOTED ANNUALLY (Y/N)?": 1100Z9$?011  C$(13) F$ "" F1 10808  (C$)13 F$"" 1011B  C$;Z  (C$)13 1080|  (C$)20 (F$)1 1060  (C$)20 F$(F$,(F$)1): 1011  (C$) 45 (C$) 47 (C$) 57 1060 F$F$C$  1011? F$"":C$""  CN$;%  C$: C$"" 1011C  (C$)13 F$"" 1011M  C$;e  (C$)13 1070  (C$)20 F$(F$,(F$)1): 1011  (C$)46 (C$)47 (C$)57 1060 F$F$C$  1011 $ : "INPUT ERROR, PLEASE T?1' : "INTEREST RATE PER PERIOD = ";I;" %"C ! P 1 40: "";: P\ & J 1 1000: J:b X  SUBROUTINE FOR DATA INPUT F$"":C$""  CN$;  C$ C$"" 1011  C$(13) F$"" F1 1080  (C$)13 ?))F(I)A1 A2 I*F(3)F(2)F(1)s RETURN HERE IF WRITTEN AS SUBROUTINE; F(3) IS CALCULATED # OF DAYS: "": "THE NUMBER OF DAYS BETWEEN";M(1);"/";D(1);"/";Y(1) "AND ";M(2);"/";D?(F$,1)# Z9$ "Y" Z9$ "N" 130@ Z9$"Y" "";: 320K "";_ Z9$"N" F0s Z9$"Y" F1CN$"INTEREST RATE, I, PER PERIOD ?": 1000 F$"" I: F$ "" I(F$) CN$"AMOUNT TO BE OBTAINED ?! $: "INPUT ERROR, PLEASE TRY AGAIN":: 10054 . C$"" 1080< 3:F 8F0:h L SUBROUTINE FOR STRING INPUTx QF$"":C$"" V CN$; ] C$: C$"" 1117 ` F1 F0: e (C$)13 F$"" F 1 1117 f C$; j (C$)13 ?RY AGAIN ":: 1005 . C$"" 1080 3$ 8F L SUBROUTINE FOR STRING INPUTV QF$"":C$""a V CN$;y ] C$: C$"" 1117 e (C$)13 F$"" 1117 h C$; j (C$) 13 1170 m (C$)20 (F$)1 : o (C$)20 (F$)? F$"" 1011  C$;!  (C$)13 1070C  (C$)20 (F$)1 1060m  (C$) 20 F$(F$,(F$)1): 1011  (C$) 45 (C$)47 (C$)57 1060 F$F$C$  1011 $: "INPUT ERROR, PLEASE TRY AGAIN ":: 1005 . C$?(2);"/";Y(2);" EQUALS ";F(2) F(1)M ""U:CN$"PRESS 1 FOR MORE TRIALS, 0 TO END. ": 1000:Z8(F$)" Z81 80, Z80 "";:6"INUT ERROR, TRY AGAIN."@ I 1 300: I: 270J? ?": 1000:A(F$)II100TCN$"NUMBER OF PERIODS ?": 1000:N(F$)hPVA(I1)(N)PV((PV .005)100)100 "": "PRESENT VALUE = ";PV:: CN$"1 FOR ANOTHER 1170 o (C$)20 (F$)1 O t (C$)20 (F$) 1 "INPUT ERROR, TRY AGAIN": 1110x y (C$)20 F$(F$,(F$)1): 1117 ~F$F$C$  1117  11  (C$) 45 (C$) 47 (C$) 57 1060 F$F$C$  1011@1 "INPUT ERROR,TRY AGAIN": 1110= t (C$)20 F$(F$,(F$)1): 1117u y (C$) 44 (C$)48 (C$)57 1200: 1105 ~F$F$C$  1117    INPUT ERROR SUBROUTINE   "INPUT ERROR,TRY AGAIN. ONLY USE NUMBERS AN?"" 1080 3 8( L SUBROUTINE FOR STRING INPUT8 QF$"":C$""C V CN$;[ ] C$: C$"" 1117e ^ C$;w ` F1 F0: e (C$)13 F$"" F1 1117 j (C$)13 1170 o (C$) 20 (F$)1 : t (C$)20 (F? " NUMBER OF DAYS BETWEEN DATES"$^Rh "THIS PROGRAM WILL DETERMINE THE NUMBERj "OF DAYS BETWEEN ANY 2 CALENDAR DATES"l "AFTER 1582. THE PROGRAM IS SET UP SO"r "THAT THERE IS 1 DAY'S DIFFERENCE BETWEEN";t "2 CONSECUTIVE D@ ****************/ ** CAP 1 **F ****************U 59468,12` ""; " " " CAPITAL ASSET PRICING MODEL ANALYSIS " " OF PROJECT "& "D COMMAS HERE "  " 1080 3$ 8F L SUBROUTINE FOR STRING INPUTV QF$"":C$""a V CN$;y ] C$: C$"" 1117 e (C$)13 F$"" 1117 h C$; j (C$) 13 1170 m (C$)20 (F$)1 : o (C$)20 (F$)@ } "MOVE IN OPPOSITE DIRECTIONS."::Q CN$"PRESS RETURN TO CONTINUE ?":F1: 2100\ ""; "FOR PUBLICLY TRADED STOCKS VOLATILITY" "MAY BE ASCERTAINED BY EXAMINING THE" "LITERATURE. JUST LOOK FOR BETA. " "FOR OTHER IN@4 SUBROUTINE FOR STRING INPUT9F$"":C$""+> CN$;EE C$: C$"" 2117[H F 1 F 0:eJ C$;M (C$) 13 F$ "" 2117R (C$) 13 2170W (C$) 20 (F$)1 "INPUT ERROR ":: 2117\ (C$) 20 F@  *****************1 ** BETAALPH **I *****************X 59468,12c ""; " " BETA AND ALPHA " ""@ \ : : "THE CAPITAL ASSET PRICING MODEL STUDIES" "THE RISK-RETURN IMPACT OF AN INVESTMENT" "PROPOSAL UPON AN INVESTOR'S PORTFOLIO"# "OF STOCKS AND OTHER INVESTMENTS. THE"( "MODEL GIVES @ UBROUTINE VX10:X20:Y10:Y20:XY0+ [N2N:NN1; ` I 1 N[ jX1X1 YI(I):X2X2YI(I)2w tY1Y1Y(I):Y2Y2Y(I)2 ~XYXYY(I)YI(I)  I SXX2X12N:SYY2Y12N SPRODXYX1Y1N ASPRODSX: SLOPE OF REGRESSION LINE% @ VESTMENTS ASCERTAINING": "VOLATILITY IS SOMEWHAT MORE DIFFICULT."B :} CN$"PRESS RETURN TO BEGIN COMPUTATION ?":F1: 2100 ""; CN$"ENTER TREASURY INTEREST RATE (%) ?": 1000:RF(F$) RFRF100 CN$"ENTER EXPECTED MARKE7$(F$,(F$)1)fF$F$C$p 1117z (F$) 1 1060e  (C$) 20 F$(F$,(F$) 1): 1011  (C$) 45 (C$) 47 (C$) 57 1060 F$F$C$  1011 $: "INPUT ERROR, PLEASE TRY AGAIN ":: 1005 . 8@,( "GIVEN DATA WITH REGARDS TO PRICES AND"Z- "DIVIDENDS OVER A PERIOD OF TIME FOR A"2 "GIVEN STO:OCK AND AN INVESTOR SELECTED"7 "MARKET INDEX THIS PROGRAM WILL COMPUTE"< "THE ALPHA AND BETA VALUES FOR A STOCK"A "ALONG WITH ITS@THE EXPECTED RETURN FOR THE"H- "MARKET AS A WHOLE, THE RISK-FREE (I.E. "w2 "U.S. TREASURY BOND) INTEREST RATE, AND"7 "THE VOLATILITY OF THE RETURN ON THE"< "INVESTMENT WITH RESPECT TO THE REST OF"A "THE MARKET. "C: :%FCN$@BY1NAX1N: Y INTERCEPT OF REGRESSION LINEN SESYASPROD: ERROR SUM OF SQUARESc RSPROD(SXSY)n  "";  " THE # OF OBSERVATIONS = ";N2 : "THE ESTIMATED EQUATION IS :"  A(1000A.5)1000:B(1000B.5)1000 @T RETURN (%) ?": 1000:RM(F$) RMRM100[ CN$"ENTER VOLATILITY FOR INVESTMENT ?": 1000:B(F$) RIRF(RMRF)B: RI IS EXPECTED RETURN RIRI100 : "THE EXPECTED RETURN ON THIS INVESTMENT IS ";RI;" %"  :  "@1000 x"VARIANCE OF RETURN = ";V: "STAN DEV OF RETURN = ";VR@ V  "FOR INDEX :"\  XNX1N:XN(10000XN.5)10000:SNSX(N1):SN(10000SN.5)10000  " EXPECTED RETURN = ";XN  " VARIANCE OF RETURN = ";@ EXPECTED RETURN, VARIANCE";CF "OF RETURN, AND STANDARD DEVIATION."yZ:::CN$"PRESS RETURN TO BEGIN ?":F1: 60000 "";CN$"HOW MANY PERIODS OF DATA ARE AVAILABLE ?": 50000:N(F$)ZN2: PI(Z),DI(Z),YI(Z),P(Z),D(Z),Y(Z)@"PRESS RETURN TO CONTINUE ?":F1: 2100[K "";: "A VOLATILITY OF 1 MEANS THE RETURN ON "P "THE INVESTMENT WILL CHANGE JUST AS THE"U "MARKET CHANGES, A VOLATILITY GREATER "Z "THAN 1 MEANS THE INVESTMENT'S RETURN "_ "MOVES IN T@ " ";A;"X + ";B: R(10000R.5)10000H # "THE CORRELATION COEF. = ";Rk $RRR2:RR(10000RR.5)10000 % "THE COEF. OF DETERMINATION = ";RR (SEN2 (SE(N2)):SEN2(1000SEN2.5)1000 2 "THE STAN. ERR. OF ESTIMATE = ";SEN2@"% RFRF100:RMRM100` : ::CN$"PRESS RETURN FOR MORE COMPUTATIONS ?":F1r " 2100: "";| , 200  SUBROUTINE FOR DATA INPUT F$"":C$""  CN$;  C$: C$"" 1011  (C$)13 F$"" 101@SNS5(SX(N1)):S5(1000S5.5)1000< " SD OF RETURN = ";S5B "PRESS RETURN TO SUBMIT DATA FOR SAME TIME PERIOD BUT DIFFERENT";CN$" STOCK, I.E. MARKET DATA STAYS THE SAME":F1: 60000 "";NN2: 1050@""; I 1 N1 "FOR PERIOD ";I; " :"7v CN$" INPUT MARKET INDEX PRICE ?": 50000:PI(I)(F$) CN$" INPUT DIVIDEND ?": 50000:DI(I)(F$) I ""; I 1 N$ "FOR PERIOD ";I;" :"%@HE SAME DIRECTION AS THE ":d "MARKET BUT AT A MORE RAPID RATE.li "VOLATILITY OF 0 MEANS THE RETURN ON THE";l "INVESTMENT IS INDEPENDENT OF MARKET"s "MOVEMENT. NEGATIVE VOLATILITY MEANS "x "RETURN ON THE INVESTMENT AND THE MARKET"@  < "ALPHA =";B F "BETA =";AG KBAXBAX1N:BAX(1000BAX.5)1000m P "EXPECTED RETURN = ";BAX UVARISX(N1) ZSDI(VARI) dS2(Y2BY1AXY)(N2) nVA2VARIS2 sV(1000V.5)1000:VR(V):VR(1000VR.5)@1  C$;  (C$) 13 10709  (C$) 20 (F$) 1 1060e  (C$) 20 F$(F$,(F$) 1): 1011  (C$) 45 (C$) 47 (C$) 57 1060 F$F$C$  1011 $: "INPUT ERROR, PLEASE TRY AGAIN ":: 1005 . 8AOÀPÏ SUBROUTINE FOR DATA INPUTPUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015@7'CN$" INPUT STOCK PRICE ?": 50000:P(I)(F$)u*CN$" INPUT DIVIDEND ?": 50000:D(I)(F$)}. I8 I 1 N1BYI(I)(PI(I1)PI(I)DI(I1))PI(I)GY(I)(P(I1)P(I)D(I1))P(I)K IL COMPUTATION SA *****************1 ** DATEVAL **I *****************X 59468,12c ""; "" " DATED VALUE FOR OBLIGATIONS " ""  "THA(F$)% CN$"YEARS INTO FUTURE FOR MATURITY ?"; 50000: NY(F$)B : CN$"# OF YEARS INTO FUTURE FOR MATURITY OF DATED VALUE FOR COMPARISON ?" 50000: N(F$) EDV MV (1P) (NNY) "ASUBROUTINE FOR STRING INPUTeF$"":C$"""j CN$;=o C$: C$"" 60015St F 1 F 0:ty (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$;A ****************/ ** EPSEST **F ****************U 59468,12` ""; "" " EPSEST":"" "THIS PROGRAM WILL ESA nÙ C$;sË (C$)13 50070+xË (C$)20 (F$)1 50065U}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ`A E MATURITY VALUE OF AN OBLIGATION"M "ALONG WITH THE DATE OF MATURITY IS A" "DATED VALUE. AN EXAMPLE OF A DATED VALUE"; "WOULD BE $750 DUE ON SEPTEMBER 13, 1980" "DIFFERENT SETS OF DATED VALUES MAY BE"  "COMPARED, BUT E.G. TO CA ";% MV;" DUE IN ";NY;" YEARS IS EQUIVALENT"M "TO ";EDV;" DUE IN ";N;"YEARS.":~ "" CN$"PRESS 1 TO KEEP SAME ORIGINAL DATED VALUE, 2 TO BEGIN OVER ?" 50000 (F$)1 (F$) 2 ZF$F$C$ 600154 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015:@F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î` A TIMATE EXPECTED "="EARNINGS PER SHARE FOR A COMPANY BASED"g "UPON VARIOUS CURRENT AND EXPECTED"{# "PARAMETERS."(2CN$"PRESS RETURN TO BEGIN ?":F1: 60000< ""; INPUT DATA CN$"HOW MANY YEARS INTO FUTURE SHOULD A SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;8o C$: C$"" 60015Nt F 1 F 0:oy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$AOMPARE $750 DUE "<! "ON 9/13/80 WITH $900 DUE ON 9/13/82 WE"n# "MUST PICK SOME INTEREST RATE AND PERFORM";% "SOME TYPE OF COMPOUND INTEREST ANALYSIS.";( "IN THE PRESENT PROGRAM THIS IS DONE. WE"- "ARE GIVEN A DATED VALUE MATURING SA 10000:: 200" (F$) 2 "";: 100- "";W "INPUT FOR GIVEN DATED VALUE :":v "MATURITY VALUE = ";MV:  "YEARS INTO FUTURE FOR MATURITY = ";NY:   155 ' "INPUT ERROR!!! TRY AGAIN ": I 1 400: I: A ?": 50000:L(F$)0B "EXPECTED LEVERAGE IN ";NlGCN$"YEARS ?": 50000:LN(F$)LCN$"CURRENT PROFIT ON NET WORTH ?": 50000:PC(F$)V "EXPECTED PROFIT ON NET WORTH IN ";N XCN$"YEARS A ESTIMATE BE ?"# 50000:N(F$):^CN$"CURRENT SALES ?": 50000:S(F$)dCN$"EXPECTED SALES IN YEARS ?": 50000:SN(F$)CN$"CURRENT PROFIT MARGIN ?": 50000:PI(F$) "EXPECTED PROFIT MARGIN[;F$F$C$ 60015/ "INPUT ERROR, PLEASE TRY AGAIN ":: 600155;F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ`AOME"./ "FIXED NUMBER OF YEARS IN THE FUTURE. WE"\2 "ARE ALSO GIVEN AN INTEREST RATE TO BE"z5 "USED IN COMPARISON.":7 "WHAT THE PROGRAM THEN DOES IS FIND AN"9 "EQUIVALENT DEBT MATURING AT SOME OTHER"< "FIXED TIME IN THE FUTURE.AOÀ PÏ SUBROUTINE FOR DATA INPUTU UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nA ?": 50000:PE(F$)K iCN$"CURRENT DIVIDEND PAYOUT RATIO ?": 50000:DC(F$)x t "EXPECTED DIVIDEND PAYOUT RATIO IN ";N yCN$"YEARS ?": 50000:DE(F$) ~CN$"BOOK/MARKET RATIO ?": 50000:BM(F$), A IN ";N=CN$"YEARS ?": 50000:PN(F$)x$CN$"CURRENT TURNOVER ?": 50000:T(F$). "EXPECTED TURNOVER IN ";N3CN$"YEARS ?": 50000:TN(F$)8CN$"CURRENT LEVERAGE B  "YEARS = ";(X5100.5)100 :L CN$"PRESS RETURN TO CONTINUE ?":F1: 60000^  "";: 1000d OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEINA"+Z:CN$"PRESS RETURN TO BEGIN ?":F1: 600006d "";nCN$"INTEREST RATE (%) TO BE USED IN COMPUTATIONS ?": 50000pP(F$):PP100s "";x "INPUT FOR GIVEN DATED VALUE :"|}CN$"MATURITY VALUE ?": 50000:MVAÙ C$; sË (C$)13 500700 xË (C$)20 (F$)1 50065Z }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î` ACN$"CURRENT EARNINGS PER SHARE ?": 50000:EP(F$)I  COMPUTING EXPECTED EPSq X1SNPN(SPI):X2SNTL(STNLN) X3(1.5(PCPE)(1.5(DCDE))):X4BM1 X5EPX1((X2X3N)BM1) "";  "EXPECTED EARNINGS PER SHARE IN ";NBG INPUTTED _á C$: C$"" 50015: dË C$(13) F$"" F1 F0:[ iË (C$)13 F$"" 50015e nÙ C$;~ sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$B ****************/ ** PAYNET **F ****************U 59468,12` ""; "" " GROSS PAY NEEDED FOR GIVEN NET " ""  "THIB200 X$(((GS.005)100))8  (X$) 7 X$" " X$: 1010[ X$"$" (X$,5)"." (X$,2)a g OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEINGB ***************- ** PRINDLAS **C ***************R 59468,12] ""; "" " LASPEYRES PRICE INDEX " "" "COMPARB 1 AS REQUESTED";8s "A NEGATIVE QUANTITY MEANS THAT THE USER"ax "HAS FINISHED INPUTTING THE DATA."gqI 0 "FOR ITEM # ";I1;" ENTER THE FOLLOWING:"CN$" -BASE YEAR QUANTITY " CN$CN$" (NEGATB ) 57 50065 F$F$C$ É 50015J Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010P ÙV Îx ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015~ B S PROGRAM WILL COMPUTE THE AMOUNT"M "OF GROSS PAY A WORKER NEEDS IN ORDER"{# "TO EARN A GIVEN NET NECESSARY INPUTS "( "ARE NET DESIRED, FEDERAL INCOME TAX %,"- "STATE TAX %, LOCAL TAX %, AND ANY FIXED"2 "DOLLAR AMOUNT DEDUCTIONS. B INPUTTED _á C$: C$"" 50015= dË C$(13) F$"" F1 F0:^ iË (C$)13 F$"" 50015h nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$)B ING PRICES AT A FIXED TIME IN"G "THE PAST, CALLED THE BASE YEAR, TO"w# "CURRENT PRICES IS NOT THAT SIMPLE. THIS"( "IS BECAUSE NEW ITEMS HIT THE MARKET AND"- "USE OF OTHER ITEMS CHANGES THROUGH THE2 "YEARS. THE U.S. DEPARTMENT OF LBIVE ENDS) ?"& 50000:QB(I1)(F$)> QB(I1)0 300 CN$" -BASE YEAR PRICE ?": 50000:PB(I1)(F$) CN$" -CURRENT YEAR PRICE ?": 50000:PC(I1)(F$) I I 1 "";: 150 ,N0:D0! 6 (C$) 13 60065' (C$) 20 (F$)1 60060Q (C$)20 F$(F$,(F$)1): 60015[ C$;hF$F$C$t 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$BFICA % DE-(7 "DUCTION IS ALSO NEEDED.":Z< "ALL TAXES ARE PERCENTAGES OF GROSS PAY.":ZCN$"PRESS RETURN TO BEGIN ?":F1: 60000 "";CN$"ENTER NET PAY AMOUNT DESIRED ?": 50000:NP(F$)CN$"ENTER FEDERAL WITHHOLDING TAX B 57 50065 F$F$C$ É 50015M Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010S ÙY Î{ ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ BABOR "07 "USES A METHOD BY WHICH QUANTITIES FOR"`< "THE BASE YEAR ARE USED AND ARE WEIGHTED"A "ONCE WITH BASE YEAR PRICES AND ONCE WITH";F "CURRENT PRICES. THESE TWO WEIGHTINGS"K "ARE DIVIDED AND THE QUOTIENT IS "P "MULTIPLIEBJ 1 I:NNPC(J)QB(J):DDPB(J)QB(J): J, @ "";C J I 1 10:: It O "" T " THE LASPEYRES PRICE INDEX" Y " EQUALS ";ND100 \: ""B _á C$: C$"" 50015. dË C$(13) F$"" F1 F0:O iË (C$)13 F$"" 50015Y nÙ C$;r sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 5B% ?": 50000:F(F$):FF100ZCN$"ENTER STATE WITHHOLDING TAX % ?": 50000:S(F$):SS100CN$"ENTER LOCAL WITHHOLDING TAX % ?": 50000:L(F$):LL100CN$"ENTER FICA WITHHOLDING % ?": 50000:FICA(F$)FICAFICA1004CN$(C$) 13 60065* (C$) 20 (F$)1 60060T (C$)20 F$(F$,(F$)1): 60015^ C$;k F$F$C$w 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$)BD BY 100,J GIVING THE LASPEYRES";IU "PRICE INDEX. IF THE INDEX IS GREATER "vZ "THAN 100 THEN PRICES HAVE INCREASED."\::CN$"PRESS RETURN TO CONTINUE ?":F1: 60000_ PB(100),PC(100),QB(100)d "";n "INPUT ITEMS IN INDEX 1 BY B ^ I 1 8:: IA hCN$" PRESS RETURN FOR MORE ?":F1: 60000R r "";: 140X OÀx PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED B0065 F$F$C$ É 50015> Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010D ÙJ Îl ` SUBROUTINE FOR STRING INPUT| eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (C$) 13 B"ENTER DOLLAR AMOUNT FOR ANY FIXED WITHHOLDING ?L  50000:EXTRA(F$)]PFSLFICAuGS(NPEXTRA)(1P)" I 1 40: "";: I:' 1000: "GROSS PAY NEEDED IS ";X$,:CN$"PRESS RETURN TO CONTINUE ?":F1: 600006 60065 (C$) 20 (F$)1 60060E (C$)20 F$(F$,(F$)1): 60015O C$;\F$F$C$h 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 5C *****************1 ** RRCONVB **I *****************X 59468,12c ""; "" " CONVERTIBLE BOND-RATE OF RETURN " "% "TC ?": 50000:R(F$)( RR100. n CN$"COUPON PAYMENT PER YEAR ?": 50000:PMT(F$) "";: F 1 12:: F "***************COMPUTING***************" N(CV(PPR))(1R):N(N.5) 4200 ""CEASE TRY AGAIN ":: 50010 ÙÎ4` SUBROUTINE FOR STRING INPUTDeF$"":C$""Oj CN$;jo C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060  C ****************1 ** RTVAL **I ****************X 59468,12c ""; "" " VALUE OF A RIGHT " ""  "C "EX-RIGHTS."C 10100: "";EF "GIVEN THE MARKET VALUE OF 1 SHARE OF "rI "STOCK SELLING RIGHTS-ON,THE SBSCRIP-"K "TION PRICE PER SHARE, AND THE NUMBER OF"M "RIGHTS REQUIRED TO PURCHASE ONE SHARE"P "OF STOCK, THIS PROGRAM WILL COC HIS PROGRAM WILL COMPUTE AN INVESTOR'S"T "ANNUAL RATE OF RETURN ON A CONVERTIBLE" "BOND PURCHASE GIVEN THE FOLLOWING:"" -PURCHASE PRICE OF BOND" " -BOND COUPON PAYMENT PER YEAR" " -PRESENT VALUE OF SHARE OF STOCK"C ;: F 1 10:: F; "":e "RATE OF RETURN EQUALS ";100I;" %" "YEARLY CONVERSION AFTER ";N;" YEARS" : "": F 1 6:: F CN$"PRESS RETUR(C$)20 F$(F$,(F$)1): 60015 C$;$F$F$C$0 60015a "INPUT ERROR, PLEASE TRY AGAIN ":: 60015gmF$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015Ù: "INPUT ERROR, PLC THE PRIVILEGE OF A STOCKHOLDER TO"K "SUBSCRIBE AT A STATED PRICE TO NEW"y "ISSUES OF COMMON STOCKS IN PROPORTION" "TO HIS PRESENT HOLDINGS IS A RIGHT OR" "STOCK RIGHT. THIS PRIVILEGE IS GEN-"! "ERALLY OFFERED FOR A VERY LIMITEDCMPUTE") S "THE MARKET VALUE OF 1 RIGHT WHEN THE"Q U "STOCK IS SELLING RIGHTS-ON, THE" W "THEORETICAL VALUE OF ONE SHARE OF STOCK" Z "WHEN IT GOES EX-RIGHTS, AND THE" ] "THEORETICAL VALUE OF 1 RIGHT WITH THE" _ "STOCK SELLING EX-RIGHCB# " -EXPECTED ANNUAL INCREASE IN VALUE OF SHARE OF STOCK"( " -CONVERSION RATIO (# SHARES CONVERTIBLE INTO)- " -DESIRED VALUE OF BOND WHEN SOLD":2 "GIVEN THIS INFORMATION THE PROGRAM "5 "COMPUTES A RATE OCN FOR MORE ENTRIES ?":F1: 60000 "";)  100/ +O h I FOR PV/ORDINARY ANNUITYY rI.01 |PPPMTI(1(I1)(N))CV(1I)(N)PB DNPMT(I(I1)(N1))PMT(I2)(1(1I)(N))NCV(1I)(N1)  4600  (PP).1 C ";R0:  "THEORETICAL VALUE OF 1"6  "SHARE EX-RIGHTS = ";PX:U  "THEORETICAL VALUE OF 1"u  "RIGHT EX-RIGHTS = ";RX:{   "": CN$"PRESS RETURN FOR MORE COMPUTATION ?":F1: 60000 C ")# "PERIOD. DURING THIS PERIOD, HE MAY"W% "EXERCISE HIS OFFER OR HE MAY SELL THE"( "RIGHT TO ANOTHER INVESTOR. WHEN THE"+ "RIGHTS OFFERING IS ANNOUNCED, THE BOARD"- "OF DIRECTORS ESTABLISHES A CUTOFF DATE."/ "ANYONE WHO PURCCTS."* x:CN$"PRESS RETURN TO BEGIN ?":F1: 600005 "";u CN$"MARKET VALUE OF 1 SHARE RIGHTS ON ?": 50000:P0(F$) CN$"SUBSCRIPTION PRICE PER SHARE ?": 50000:S(F$) CN$"#RIGHTS NEEDED TO BUY 1 SHARE ?": 50000:N(F$CF RETURN AND THE NUMBER";@7 "OF YEARS UNTIL THE EXPECTED SELLING "Z9 "VALUE IS REACHED."`<PCN$"PRESS RETURN TO BEGIN ?":F1: 60000U "";d INPUT DATAnCN$"PURCHASE PRICE OF THE BOND ?": 50000:PB(F$))xCN$"PREC 4220  COMPUTAION IIPPD  OÀ@ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1C 200+  "INPUT ERROR!!!,TRY AGAIN !": JJ1 300: JJ:1 s'f t'CN$"PRESS RETURN TO CONTINUE ?":F1: 60000:l OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION CHASES THE STOCK BEFORE "@2 "THAT DATE RECEIVES RIGHTS FOR THE NEW"n5 "ISSUE. THE STOCK IS THEN SAID TO SELL"7 "RIGHTS-ON. AFTER THE CUTOFF DATE,"< "NEW PURCHASERS OF THE STOCK DO NOT"? "GET THE RIGHT AND THE STOCK IS TRADED"A C )+ ,R0(P0S)(N1): MARKET VALUE OF 1 RIGHT-RIGHTS ON^ 6PX(P0NS)(N1): VALUE OF 1 RIGHT-EX-RIGHTS @RX(PXS)N: VALUE 1 SHARE EX-RIGHTS  PRINT  I 1 40: "";: I :  "MARKET VALUE OF 1 RIGHT" "RIGHTS-ON =CSENT PRICE OF A SHARE OF STOCK ?": 50000:P(F$)hCN$"CONVERSION RATIO ?": 50000:PR(F$)CN$"CONVERSION VALUE OF BOND WHEN SOLD?": 50000:CV(F$)CN$"PROJECTED % INCREASE IN " CN$CN$"STOCK YEARLY C F0: iË (C$)13 F$"" 50015! nÙ C$;: sË (C$)13 50070] xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) 57 50065 F$F$C$ É 50015Ù: "INPUT ERROR, PLDOF DATA BEING INPUTTED_á C$: C$"" 50015BdË C$(13) F$"" F1 F0:ciË (C$)13 F$"" 50015mnÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (CDX AFOT J 1 CA  I J RAI1I) A(I,J)0 23001 Ib "NO UNIQUE SOLUTION, MATRIX A IS SINGULAR"hy K 1 RA ASA(J,K):A(J,K)A(I1,K):A(I1,K)AS K AST(J,1):T(J,1)T(I1,1):T(I1,1)AS$ AP1A(J,JD N M 2:B(I,J)A(I,J): J: I"";5CN$"PRESS Y IF A MINIMIZATION PROBLEM "{CN$CN$"OTHERWISE N ?": 60000:Z$(F$,1) Z$"Y" Z$"N" "INPUT ERROR,TRY AGAIN": 1043 "";: I 1 N2: J D230 IX(I)1:X(T)0:YA(S,T) I 1 N M 1:A(S,I)A(S,I)Y: I3 I 1 N 2F I S 1270SYA(I,T) J 1 N M1:A(I,J)A(I,J)YA(S,J): J I 1090 "NO SOLUTION ": 1400  "UNBOUNDED SOLUTIOD$)47 (C$) 57 50065F$F$C$É 50015RÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010XÙ^Î` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" D F 1 F 0:!y (C$) 13 F$"" 60015"~ (C$) 13 600659" (C$) 20 (F$)1 60060C" C$;m" (C$)20 F$(F$,(F$)1): 60015z"F$F$C$" 60015": "INPUT ERROR, PLEASE TRY AGAIN ":: 60015""D ). K 1 ILABLE MEMORY,"+P "BUT MULTI-VARIABLE PROBLEMS MAY TAKE"GU "A LONG TIME TO RUN."yZ:CN$"PRESS RETURN TO BEGIN ?":F1: 50000d "";CN$"NUMBER OF VARIABLES ?": 50000:M(F$)CN$"NUMBER OF CONSTRAINTD 1 N M 2:A(I,J)B(I,J): J+ I: " COEFFICIENTS FOR OBJECTIVE FUNCTION":T "PRESS 99999 TO END": J 1 MCN$"COEFFICIENT FOR VARIABLE "(J)" "D$(J)" IS ?": 50000A(1,J)(F$): A(1,J)99999 :X(J)1: J:R1: ""D N ": 1400 J 1 M X(J)0 X(J)0: 1340)( I 2 N 1: A(I,J)1 I=2X(J)A(I,NM1)E< JiFYA(1,NM1): Z$"Y" Y YoNP PRINT OUT SOLUTIONU "";: "VALUE OF OBJECTIVE FUNCTION =";YXY I 1 D 60015(~ (CALPHA ?": 50000:AL(I)(F$)hCN$" -BETA ?": 50000:BE(I)(F$)CN$" -VARIANCE ?": 50000:V(I)(F$)V(I)2V(I)  1300 I "";CN$"INDEX ,(F$)1): 50015!Ë (C$) 45 (C$)47 (C$) 57 50065!F$F$C$)!É 50015\!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010b!Ùh!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!j CN$;!o C$: C$"" 60015!tDS ?": 50000:N(F$)" A(N2,NM2),X(MN2),D$(M1):3 JJ 1 MvCN$"NAME OF VARIABLE ":CN$CN$(JJ):CN$CN$" IS ?" 60000:D$(JJ)F$:: JJ SETTING UP MATRIX TABLEAU B(N2,NM2) I 2 N 1DX(J)1: J:R1: "";: P 1 12:: P/ "***************COMPUTING***************"c I 2 N 1: J 1 M:A(I,J)B(I,J): J: I Z$"N" J 1 M:A(1,J)A(1,J): J) I 2 N 1. A(I,MI1)1 10851 A(I,MI1D MZ "AMOUNT OF ";D$(I);" I.E. X(";I;") =";X(I)ad I.x "";: P 1 24:: PpCN$"PRESS RETURN FOR NEW OBJ. COEFF. ?":F1: 60000: 1045vOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTDRETURN ?": 50000:RI(F$)PCN$"INDEX VARIANCE OF RETURN ?": 50000:RV(F$)(CN$"ENTER RISK FACTOR ?": 50000:RF(F$)-"";: P 1 12:: P."***************COMPUTING****************"2 I D *************) ** WACC **= *************L 59468,12W ""; "" " WACC " "" "A FIRM MAY BD "CONSTRAINT ";I1:1 J 1 M:CN$"COEFFICIENT FOR VARIABLE ":CN$CN$(J)iCN$CN$" "D$(J)" IS ? ": 50000:A(I,J)(F$): JCN$"ENTER 1 IF <= CONSTRAINT,-1 IF >=?": 50000:A(I,M1)(F$) A(I,M1)1 A(I,M1)1 "INPUTD)1 X(MI1)13 J 1 N M:A(N2,J)A(N2,J)A(I,J): J!8R N 2)= I9BS 1:T 1dG I 2 NM: A(R,I)A(R,S) S IL A(R,I) A(R,T) 1110QT IV I` A(R,T)0 1140e A(R,T)0 R 1 1300jDED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED' _á C$: C$"" 50015L dË C$(13) F$"" F1 F0:m iË (C$)13 F$"" 50015w nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 FD 1 N:A(I,I)V(I): I$< I 1 N:A(N2,I)1:A(I,N2)1: IUFA(N1,N1)2RV:A(N1,N3)1:A(N3,N1)1P I 1 N:A(N3,I)BE(I):A(I,N3)BE(I): IZ I 1 N:T(I,1)RFAL(I): I:T(N1,1)RFRI:T(N2,1)1 NOW CONVERTING MATRIEE FINANCED IN SEVERAL"C "DIFFERENT WAYS. AMONG THESE ARE COMMON"p "STOCKS, DEBT, AND RETAINED EARNINGS." "GIVEN THE AMOUNT OF EACH OF THE ABOVE" "AND ITS COST IN PERCENTS, THIS PROGRAM" "WILL FIND OUT WHAT PRICE THE FIRM IS"(D ERROR,TRY AGAIN" A(I,M1)1 A(I,M1)1 1025M:CN$"ENTER AMOUNT FOR CONSTRAINT ?": 50000`A(I,M2)(F$)A(I,NM1)A(I,M2):A(I,M2)0  I2 A(I,MI1)A(I,M1):A(I,M1)0  I I 1 N 2: J 1 D A(R,S).0001 1280o A(R,S) .0001 R 1: 1090tS 18~ I 2 N 1: A(I,T)0 1190_YA(I,NM1)A(I,T): S 1 1180 Y A(S,NM1)A(S,T) 1190S I I S 1 1290 I 1 N M A(S,I)1 1D$(F$,(F$)1): 50015!Ë (C$) 45 (C$)47 (C$) 57 50065!F$F$C$)!É 50015\!Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010b!Ùh!Î!` SUBROUTINE FOR STRING INPUT!eF$"":C$""!j CN$;!o C$: C$"" 60015!tE! "PAYING FOR ITS MONEY ON AVERAGE. THIS"W# "AVERAGE IS CALLED THE WEIGHTED AVERAGE"w% "COST OF CAPITAL (WACC)."Z:CN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";nCN$"CURRENT AMOUNT OF DEBT ?": 50000:DEBT(F$)8E0 X1$"PREFERRED STOCK":X2A(2):X3100PC:X4A(2)PC: 1000k X1$"COMMON STOCK":X2A(3):X3100CC:X4A(3)CC: 1000 X1$"RETAINED EARNINGS":X2A(4):X3100CR:X4A(4)CR: 1000 WACC A(1)DCA(2)PCA(3)CCA(4)CR  XWACC: 2000:" y (C$) 13 F$"" 60015&~ (C$) 13 60065K (C$) 20 (F$)1 60060u (C$)20 F$(F$,(F$)1): 60015 C$;F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): E *************) ** LABEL1 **= *************L 59468,12W ""; "" " SHIPPING LABEL MAKER " "" "THIS SIMPLE E ": 60000:S$F$ GCN$"PRESS RETURN WHEN PRINTER READY ?":F1: 60000R "";CN$"DO YOU WANT A MASK ?": 60000:Z9$(F$,1) 1,4: 1 Z9$"Y" L 1 6: X 1 30: "#";: X: Z9$"Y" L:1: 1: 190E xCN$"CAPITAL DEVOTED TO PREFERRED STOCK ?": 50000:PX(F$)yCN$"COMMON STOCK CAPITAL ?": 50000:C0(F$)CN$"RETAINED EARNINGS ?": 50000:RETAINED(F$) "THE FOLLOWING INPUTS ARE AFTER TAX COST"E WEIGHTED AVERAGE COST OF CAPITAL ";X$T :CN$"PRESS RETURN FOR MORE COMPUTATION ?":F1: 60000^  100 X1$(X1$,19):XX2: 2000:X2$X$:XX3: 2000:X3$X$ XX4: 2000:X4$X$  X1$;18);X2$;26);X3$;34);X4$  X$(((X.005)1E STRING INPUT eF$"":C$"" j CN$;3 o C$: C$"" 60015\ t F 1 F$"" C$(13) F 0 :} y (C$) 13 F$"" 60015 ~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): E PROGRAM WILL PRODUCE"C "SHIPPING LABELS FOR AN ORDER CONSISTING"q "OF MANY CARTONS. THE TOP LINE OF EACH"# "LABEL HAS WRITTEN ON IT, E.G. 2 OF 3"( "P/O #45RT6,ETC. P/O # IS PURCHASE"- "ORDER NUMBER. STANDARD 1 INCH LABELS "2E1:1 1,4 1 L 1 A: L;" OF ";A;" P/O # ";P$C N$\  CMP$ "" CMP$e  A$n  S$ "" ": CMP$"" , L  1:1: ""; CN$"PRESS RETURN FOR MORE LABELS :GOSUB 60000  100 OÀ PÏ SUBRE:;CN$" -COST OF DEBT (%) ?": 50000:DC(F$)IDCDC100CN$" -COST OF PREFERRED STOCK ?": 50000:PC(F$)PCPC100CN$" -COST OF COMMON STOCK (%) ?": 50000:CC(F$)CCCC100( CN$" -CE00))  X0 X$(X$,(X$)1)C  (X$)1 X$"0" X$: (X$).1 X$"0" X$e  (X$)5 X$" " X$: 2020 X$(X$,3)"."(X$,2): OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"a60015 F$F$C$ 60015= "INPUT ERROR, PLEASE TRY AGAIN ":: 60015E :K Ë (C$) 46 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FORE "ARE USED."79< "IF AN ERROR IS MADE IN DATA ENTRY,"VA "USE THE DELETE KEY ."Z:CN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";nCN$"HOW MANY LABELS DO YOU NEED ?": 50000:A(F$)sP$""xCN$"ENTER PURCHASE ORDER NEOUTINE FOR DATA INPUTK UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË EOST OF RETAINED EARNINGS ?": 50000:CR(F$)6 CRCR100I T0DEPXC0REy PERCENTAGES OF TOTAL FOR DIFFERENT STOCKS A(1)100DET0:A(2)100PXT0 A(3)100C0T0:A(4)100RET0 WEIGHTED COSTS B(1)A(1)DC:B(2)A(2)PC:B(3EZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED9_á C$: C$"" 50015^dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙ C$;sË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): E ******************3 ** RRCONST **L ******************[# 59468,12f( "";- ""2 " RATE OF RETURN - CONSTANT INFLOW "< ""AEUMBER ?": 60000:P$F$PCN$"INPUT NAME ?": 60000:N$F$CN$"INPUT COMPANY (RETURN IF NONE ) ?":F1: 60000:CMP$F$CN$"INPUT STREET ADDRESS ?": 60000:A$F$CN$"INPUT CITY,STATE, ZIP ?E(C$)13 50070& xË (C$)20 (F$)1 50065P }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 46 (C$)47 (C$) 57 50065 F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FORE)A(3)CC:B(4)A(4)CR? ,F$(1)"METHOD OF FINANCING PROP. COST WEIGHTED"t 1F$(4)" (%) (%) COST (%)"  "";: F$(1): F$(4) "" X1$"DEBT":X2A(1):X3100DC:X4A(1)DC: 1000E50015"Ë (C$) 45 (C$)47 (C$) 57 50065/F$F$C$;É 50015nÙ: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010tÙzÎ` SUBROUTINE FOR STRING INPUTeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:F/F "THIS PROGRAM WILL CALCULATE THE RATE OF"^H "RETURN OF AN INVESTMENT COSTING $A NOW"J "AND RETURNING $B DURING EACH OF THE"L "NEXT N EQUAL TIME PERIODS (YEARS E.G.)."P "INPUT IS THE INITIAL INVESTMENT PERIODIC";R "DOLLAR RFE OF RETURN IS :";((1200R.0005)1000)1000;, " %"@ :: 450: 110~ CN$"PRESS RETURN TO CONTINUE, STOP TO END":F1: 60000  OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙF ******************3 ** STOCKVAL1 ***L ******************[# 59468,12f( "";- ""2 " VALUE OF A SHARE OF STOCK "7 ""(FF# R 100 R:R ((R .005)100)100T "EXPECTED LONG RUN RATE OF RETURN =";R;"%"Z l : 250: 130 CN$"RETURN TO CONTINUE, STOP TO END ":F1: 60000  OÀ PÏ SUBROUTINE FOR DATA INPUT UF$"":C$"": C$=GET CHARACTERFETURNS AND NUMBER OF PERIODS." Z0d::: 450;n "";AxKI 0S:CN$"INITIAL INVESTMENT ?": 50000:A(F$)A ACN$"PERIODIC RETURN ?": 50000:B(F$)CN$"NUMBER OF PERIODS F  *****************1 ** TERMSPAY **I *****************X# 59468,12d("";:2 ""7 " COMPARISON OF METHODS FOR PAYING"8 " FOR PURCHASES "!< "F CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED; _á C$: C$"" 50015` dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 5001F "WHEN AN INVESTOR BUYS A STOCK, HE HOPES"WH "FOR SOME FUTURE RETURN, EITHER THROUGH"J "DIVIDENDS OR CAPITAL GAINS. HOWEVER,"L "STOCKHOLDERS IN GENERAL, OVER THE LONG"N "HAUL, ONLY GET CASH DIVIDENDS OUT OF THE";P "STOCK. MANY WHOF :REM F$="INPUTTED DATA TO DATE"G ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTEDb _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }F ?": 50000:N(F$)G ""SR .01aJUMP .1JN 0: JN IS # PASSES OF LOOPP 0P A BR (1(1R)(N)) (P) . 5 350 B N A R 0 310 P 0 3F"MZ"WHEN AN ITEM IS PURCHASED, SOMETIMES"y\ "THE USER HAS SEVERAL CHOICES AS TO"^ "HOW PAYMENT SHOULD BE MADE. FIRST OF"d "ALL THERE MAY BE A PREPAYMENT. SUCH"f "PREPAYMENT IS GENERALLY ACCOMPANIEF5$ Ë (C$) 45 (C$)47 (C$) 57 500651 F$F$C$= É 50015p Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010v Ù| Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F$"" (C$F SUBSCRIBE TO THE"7R"PRECEDING BELIEVE THAT ANY STOCK "eT "EVALUATION MODEL SHOULD CONSIDER ONLY"V "DIVIDENDS. SUCH IS THE MODEL OF THIS"X "PROGRAM. WE SHALL ASSUME THAT WE KNOW"Z "THE PRICE OF A SHARE OF A CERTAIN STOCK,";$\ "FË (C$)20 F$(F$,(F$)1): 50015K Ë (C$) 45 (C$)47 (C$) 57 50065X F$F$C$d É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"F10 R R JUMP "JUMP JUMP 10*, 310;6R R JUMP@ " PASS # ";JN;" R = ";((100R.0005)1000)1000:JN JN 1T 230^ ROUTINE TO PRINTh"":  "RATE OF RETURN IS : ";100 FD")h "BY A DISCOUNT. THEIR ITEM MAY ALSO"Vj "COME COD AND THERE MAY BE A DISCOUNT"n"FOR PAYING ON DELIVERY. LASTLY THE "p "ITEM MAY COME WITH TERMS. GENERALLY "r"THIS MEANS THERE IS A DEADLINE SUCH "t "THAT IF PAYMEND IS MADE )13 F0 : y (C$) 13 F$"" 600159 ~ (C$) 13 60065^ (C$) 20 (F$)1 60060h C$; (C$)20 F$(F$,(F$)1): 60015 F$F$C$ 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 1FTHE PRESENT ANNUAL CASH DIVIDEND, AND AN";U^"EXPECTED GROWTH RATE FOR DIVIDENDS WHICH";` "WE ASSUME WILL LAST INDEFINITELY. FROM"b "THIS DATA WE GET OUR EXPECTED RATE OF"d "RETURN."x: 250 "";CN$"THE PRICE OF 1 SHARE F" 60015 t F 1 F 0:2 y (C$) 13 F$"" 60015O ~ (C$) 13 60065t (C$) 20 (F$)1 60060~ C$; (C$)20 F$(F$,(F$)1): 60015 F$F$C$ 60015 : "INPUT ERROR, PLEASE TRY AGAIN "::F R;"% PER PERIOD " ?  "IF THIS DATA IS MONTHLY WE MAY MULTIPLY"d  "BY 12 TO GET AN ANNUAL RATE."j  CN$" FOR THIS COMPUTATION, <1> OTHERWISE ?":F1  60000  F$"" 440 "  :"ANNUAL RATFBEFORE THAT"*v"TIME, THERE IS NO PENALTY.":Wx"THE USER MAY COMPARE THE 3 METHODS OF"z"PAYMENT VIA A PRESENT VALUE ANALYSIS"|"IF HE CAN ESTIMATE HIS INTEREST RATE"~ "FOR MONEY.": 420"";CN$"ENTER YOUR INTEREST RAGTE (%) ?": 50000:P(F$):PP100+P P 12gCN$"ENTER LIST PRICE OF PURCHASE ?": 50000:C(F$)CN$"ENTER NUMBER OF MONTHS IN "CN$CN$"ADVANCE FOR EARLY PAYMENT ?": 50000:M(F$) CN$"ENTER DISCOUNT AMOFOF STOCK ?": 50000:P(F$)TCN$"THE PRESENT ANNUAL CASH DIVIDEND ?": 50000:DO(F$)CN$"EXPECTED RATE OF DIVIDEND GROWTH ?": 50000:G(F$):"":G G 100R DO (1 G ) P G 60015 ,(F$)1): 50015K Ë (C$) 45 (C$)47 (C$) 57 50065X F$F$C$d É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"G 59468,12& ***************< ** TAXDEP **R ***************] ""; "" " DEPRECIATION AND INCOME TAX "# """( "AS A BGUNT FOR MAKING "M CN$CN$"MAKING EARLY PAYMENT ?": 50000:D(F$) CN$"ENTER DISCOUNT AMOUNT FOR COD ?": 50000:DC (F$) CN$"ENTER # OF MONTH (OR PART) " CN$CN$"AFTER DELIVERY FOR NEXT PAYMENT ?": 50G$)13 F$"" 50015 nÙ C$;&sË (C$)13 50070IxË (C$)20 (F$)1 50065s}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":G00): 2803  P 100000 T 16750 .4 (P75000): 280T T 26750 .46 (P100000)j S1 0:S20:S3 0 XX D: 320:DD$XX$:S1TT "XX T: 320:TT$XX$:S2TT ,XX PB T: 320:PP$XX$:S3TT > 350 ? ** ROUTINE TO FORMAT OUTG  xË (C$)20 (F$)1 50065: }Ë (C$)20 F$(F$,(F$)1): 50015m Ë (C$) 45 (C$)47 (C$) 57 50065z F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eG USINESS EXPENSE HIGH DEPRECIATION";O* "LOWERS PROFITS. HOWEVER, LOWER TAXES"z, "ARE A RESULT OF THIS. THUS, HIGHER". "DEPRECIATION MEANS HIGHER NET CASH FLOW"0 "WHICH WE DEFINE AS PROFITS BEFORE"2 "DEPRECIATION INCOME TAXES. IN THG 000:MA(F$) "";< ""H  *****g  * COMPUTE PV AT DELIVERYt  ****** "P2 C DC: ** COD PRESENT VALUE ,P1 (CD) (1P) M: * EARLY PAYMENT PV 6P3 C (1P) MA: * TERMS NET G : 50010ÙÎ ` SUBROUTINE FOR STRING INPUT0eF$"":C$"";j CN$;Vo C$: C$"" 60015lt F 1 F 0:y (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20G PUT ** @XX ((XX.005)100)100Z A XX 1 XX 100 (XX10).001 XX$"0" (XX)"0": 325 BXX$(XX):TEMP$(XX$,3): (TEMP$,2,1)"." XX$XX$"0" C (TEMP$,2,1)"." 325 D (TEMP$,1) "." XX$XX$".00" ETT 0: II 1 GF$"":C$""j CN$;o C$: C$"" 600153t F 1 F 0:Ty (C$) 13 F$"" 60015q~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1): 60015F$F$C$ 60015 GIS"/4 "PROGRAM, THE USER INPUTS PROFITS BEFORE"]6 "DEPRECIATION. THEN HE INPUTS VARIOUS""8 "POSSIBLE DEPRECIATIONS. NET CASH FLOW": "FOR EACH IS THEN COMPUTED. TAX SCHEDULES";< "USED ARE:"FP "17% OF FIRST $25000 Z "20GMA MONTHS PRESENT VALUE @G JP1 ((P1 .005)100)100:P2((P2.005)100)100j OP3 ((P3 .005) 100)100 T "PRESENT VALUES ARE COMPUTED WITH " V "RESPECT TO DAY OF DELIVERY." Y ^ "":w F$(F$,(F$)1): 60015F$F$C$ 60015O: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015U[,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":G (XX$): (XX$,II,1)"." TT TT 10 F II:TT (XX$)6 G^ ^S1 12S1:S2 24 S2:S3 39 S3 h S1);DD$;S2);TT$;S3);PP$ r 185 |CN$"PRESS RETURN TO CONTINUE, STOP TO END":F1: 60000  OÀ PÏ SUBROUTINE FOR DATA IN:"INPUT ERROR, PLEASE TRY AGAIN ":: 60015 F$,(F$)1): 50015m Ë (C$) 45 (C$)47 (C$) 57 50065z F$F$C$ É 50015 Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010 Ù Î ` SUBROUTINE FOR STRING INPUT eG% OF NEXT $25000&d "30% OF NEXT $25000An "40% OF NEXT $25000\x "50% OF NEXT $25000h: 380ny "";CN$"PROFITS BEFORE DEPRECIATION ?": 50000:PB(F$) "";CN$"DEPRECIATION TAXES NET CASH FLOW? "(G h "PRESENT VALUE OF EARLY PAYMENT =";P1I r "PRESENT VALUE OF PAYING COD =";P2u | "PRESENT VALUE OF NET TERMS =";P3 : "":   420: "";: 150 CN$"RETURN TO CONTINUE, STOP TO G ***************- ** EFFECT **C ***************R 59468,12] ""; "" " EFFECTIVE INTEREST RATE ON LOAN " ""  "GIVEN GPUT5 UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"i ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0: iË (C$)13 F$"" 50015 nÙ C$; sË (C$)13 50070HORROWED = ?": 50000:B(F$)_xCN$"NUMBER OF PAYMENTS YEARLY = ?": 50000:NY(F$)CN$"TOTAL NUMBER OF PAYMENTS = ?": 50000:N(F$)CN$"AMOUNT OF EACH PAYMENT = ?": 50000:P(F$) : "G: "DEPRECIATION TAXES NET CASH FLOW?"8F$"":C$""D 50015RD (F$)aP PB D{ P 0 T 0: 280 P 25000 T .17 P: 280 P 50000 T 4250 .2(P25000): 280 P 75000 T 9250 .3 (P500GEND ":F1: 60000  OÀ, PÏ SUBROUTINE FOR DATA INPUTn UF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE" ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED _á C$: C$"" 50015 dË C$(13) F$"" F1 F0:iË (CGTOTAL AMOUNT BORROWED, :NUMBER OF"K "PAYMENTS PER YEAR, TOTAL NUMBER OF"y" "PAYMENTS, AND AMOUNT OF EACH PAYMENT,"$ "THIS PROGRAM CALCULATES AN EFFECTIVE"& "INTREST RATE FOR A LOAN."(:< 300d "";!nCN$"TOTAL AMOUNT BH":8EFF 2 NY (N P B)(B(N1))>QEFF EFF 100yEFF ((EFF .00005)10000)10000 "EFFECTIVE INTEREST RATE = ";EFF "TOTAL INTEREST PAID = ";N P B:: "H *************) ** MULTMON **= *************L 59468,12W ""; "" " MONEY MULTIPLIER " ""  "THIS PH "SOME BANKS USE 360 AND SOME USE 365."$ ` CN$"# OF COMPOUNDING PERIODS ?": 50000:NC(F$) :"ENTER THE NUMBER BY WHICH YOU DESIRE TO"  "INCREASE YOUR FUNDS, E.G. TO DOUBLE"  "INPUT 2, TO TRIPLE 3, ETC. " :CN$"# TO INH " MEASURED PER PERIOD":A "TIME NEEDED TO MULTIPLY ACCOUNT BY"g NF;" = ";N;"INTEREST PERIODS": "PER PERIOD INTEREST RATE = ";100P;" %" "ACTUALLY THIS TAKES BETWEEN ";(N) "AND ";(N)1;" INTEREST PERIH 50065F$F$C$É 50015:Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010@ÙFÎh` SUBROUTINE FOR STRING INPUTxeF$"":C$""j CN$;o C$: C$"" 60015t F 1 F 0:y (C$) 13 F$"" 60015~ (C$) H "::!:: 300: "";: 100b,CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000:hOÀPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING H ROGRAM COMPUTES HOW LONG IT WILL "M "TAKE AN INVESTOR TO DOUBLE, TRIPLE, "| "QUADRUPLE, ETC, HIS/HER MONEY INVESTED" "AT A KNOWN INTERST RATE.":! "COMPUTATIONS MAY BE DONE WHEN RATES ARE"# "QUOTED ANNUALLY OR PER PERIOD (TIME"H CREASE FUNDS ?": 50000:NF(F$)? $NI(NF)(1PNC):NYNINCJ 8 "";~ B " INTEREST RATE & TIME MEASURED ANNUALLY": L "ANNUAL INTEREST RATE = ";100P;" %" Q V "INTEREST COMPOUNDED ";NC;" TIMES PER YEAR": ` "TIME NEH ODS" $ "THE EXACT AMOUNT OF TIME NEEDED DEPENDS"Q "UPON HOW INTEREST IS CREDITED WITHIN"m" "AN INTEREST PERIOD."z6: 2000JCN$"Y FOR MORE COMPUTATIONS, N TO END ?": 60000:Z9$(F$,1) Z9$ "N" Z9$"Y" 1000ò 13 60065 (C$) 20 (F$)1 60060A (C$)20 F$(F$,(F$)1): 60015K C$;XF$F$C$d 60015 "INPUT ERROR, PLEASE TRY AGAIN ":: 60015F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57HINPUTTED _á C$: C$"" 50015> dË C$(13) F$"" F1 F0:_ iË (C$)13 F$"" 50015i nÙ C$; sË (C$)13 50070 xË (C$)20 (F$)1 50065 }Ë (C$)20 F$(F$,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) H'% "BETWEN COMPOUNDINGS). IN THE ANNUAL"Y( "CASE, IT IS NECESSARY TO GIVE THE NUMBER";+ "OF TIMES PER YEAR INTEREST IS COMPOUNDED";- "(NUMBER OF INTEREST PERIOD).":PZCN$"PRESS RETURN TO BEGIN ?":F1: 60000d "";%n"HCESSARY TO MULTIPLY ACCOUNT BY"3 e NF;" EQUALS ";NY;" YEARS":] j"ACTUALLY THIS TAKES BETWEEN ";(NI) o "AND ";(NI)1;" INTEREST PERIODS" t "OR BETWEEEN ";(NI)NC;" AND ";((NI)1)NC: "YEARS" ~: "THE EXACT AMOUNT OF TIME NEEDED DEPH0: 2000 Z9$ "Y" 100 B' "INPUT ERROR !!!,TRY AGAIN": J 1 500: JH'N$'TOÀtPÏ SUBROUTINE FOR DATA INPUTUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUH ****************/ ** SEASIND **F ****************U 59468,12` ""; "" " SEASONAL INDEX FOR A TIME SERIES " ""% "MOSH 57 50065 F$F$C$ É 50015N Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010T ÙZ Î| ` SUBROUTINE FOR STRING INPUT eF$"":C$"" j CN$; o C$: C$"" 60015 t F 1 F 0: y (C$) 13 F$"" 60015 ~ (H DOUBLE MONEY MENU ":+sgx "1. INTEREST RATES & TIME MEASURED ANNUALLY"m} "2. INTEREST RATES & TIME MEASURED BY PERIOD":CN$"ENTER YOUR CHOICE ?": 50000:Z9(F$) Z9 1000,1500 1HENDS""  "UPON HOW INTEREST IS CREDITED WITHIN">  "AN INTEREST PERIOD."D O  2000U y  INTEREST RATE PER PERIOD USED  ""; CN$"ENTER INTEREST RATE PER PERIOD IN %,E.G. 5% ENTERED AS 5 ?"  50000:P(F$):PP100  "EHTTED_á C$: C$"" 50015*dË C$(13) F$"" F1 F0:KiË (C$)13 F$"" 50015UnÙ C$;nsË (C$)13 50070xË (C$)20 (F$)1 50065}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57IT BUSINESSES SHOW SEASONAL VARIATIONS";T "OF SALES. THAT MEANS THAT THE SALES AT" "ONE TIME OF OF THE YEAR ARE HIGHER THAN" "THOSE AT OTHER TIMES YEAR AFTER YEAR" "THE SEASONAL INDEX FOR A SEASON (OR"  "MONTH) IS THE PERCENTAGC$) 13 60065+ (C$) 20 (F$)1 600605 C$;_ (C$)20 F$(F$,(F$)1): 60015l F$F$C$x 60015 : "INPUT ERROR, PLEASE TRY AGAIN ":: 60015 ,(F$)1): 50015 Ë (C$) 45 (C$)47 (C$) H0000: 100" ANNUAL INTEREST RATE USED- "";qCN$"ENTER ANNUAL INTEREST RATE IN %, E.G. 5% ENTERED AS 5 ?" 50000:P(F$):PP100 "WE NOW WANT THE NUMBER OF COMPOUNDING" "PERIODS PER YEAR. IF THIS IS DAILY THEN" HNTER THE FACTOR BY WHICH YOU "3  "DESIRE TO INCREASE YOUR FUNDS,d  "E.G. TO DOUBLE INPUT 2, TO TRIPLE 3,ETC." CN$"ENTER FACTOR ?": 50000:NF(F$) N(NF)(1P)  "";  " INTEREST RATE AND TIME"IE THAT SEASON'S"; "SALES ARE OF THE SALES IN AN 'AVERAGE'"i# "SEASON. FOR EXAMPLE, IF A STORE SELLS"% "$60,000 PER YEAR, OR $5,000 PER MONTH,"( "AND AVERAGES $8,000 DURING JUNE THEN"- "THE INDEX FOR JUNE IS 160."2 "THIS PROGRI 1 N:I(J)B(J)(NYAV): J: RATIOS NEEDEDR ,F$(1)"SEASON AVERAGE SALES INDEX"] J ""; TCN$"IS LINE PRINTER OUTPUT DESIRED ? (Y/N) ": 60000 YZ2$(F$,1) ^ Z2$"Y" Z2$"N" 10000: 340 h Z2$"Y" CN$"PRESS REI PÏ SUBROUTINE FOR DATA INPUTKUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 50015nÙI ******************3 ** SIMPDISK **L ******************[# 59468,12a(l2 "";7 ""< " DISCOUNT ANALYSIS "A "I . "3. DETERMINE % DISCOUNT, GIVEN ORIGINAL"N " AND DISCOUNTED PRICE"Tb "4. ENDj:CN$ "MAKE YOUR CHOICE ?": 50000:Z9 (F$) Z9 220,330,440,590 140 FIND SELLING PRICE GIVEN ORIG PR & % DISCOUNTI AM WILL COMPUTE SEASONAL"C5 "INDICES. WHAT IS NECESSARY IS THE INPUT"s7 "OF SALES AMOUNTS FOR EACH SEASON FOR AT"9 "LEASE SEVERAL YEARS. THE PROGRAM WILL"< "ACCEPT FEWER YEAR, BUT THE RESULTS WOULD";? "BE MEANINGLESS.":ZCN$"I TURN WHEN PRINTER READY ?":F1: 60000- r Z2$"Y" 1,4c |SP$" "  "";: "AVERAGE MONTHLY SALES = $";(100AV.5)100:  Z2$"Y" 1,"AVERAGE MONTHLY SALES = $";(100AV.5)100  F$(1): I C$;sË (C$)13 50070&xË (C$)20 (F$)1 50065P}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUI "*F "DISCOUNTS ARE COMMON IN ALMOST ALL"XH "BUSINESSES AT ALMOST ALL TIMES. THERE"J "ARE THREE MAJOR TYPES OF QUESTIONS WHICH"L "ARE CONSIDERED IN THIS PROGRAM. THEY"N "ARE:":Z "1. GIVEN A LIST PRICE AND A PERCENT""_ " I- "";: "SELLING PRICE GIVEN ORIGINAL PRICE & %"O " DISCOUNT"Y 580 CN$"ORIGINAL PRICE ?": 50000:OP (F$) CN$"% DISCOUNT ?": 50000:PD(F$) PD PD 100  580  "DISCOUNT AMOUNT :"; A(IPRESS RETURN TO BEGIN ?":F1: 60000?d A(100,12),B(12),C(12),I(12)Jn "";xCN$"NUMBER OF SEASONS IN YEAR (<=12) ?": 50000:N(F$)} N 12 N 1 N (N) 10000: 110CN$"NUMBER OF YRS. OF DATA ". CN$CNIZ2$"Y" 1,F$(1)3  "":C  I 1 N| X1I:X2C(I):X3I(I): 1000: 3)X1$;13)X2$;30)X3$  Z2$"Y" 448 1," ":1,(SP$,3);X1$; 1,(SP$,10(X1$));X2$; 1,(SP$,16(X2$));X3$ IBROUTINE FOR STRING INPUT eF$"":C$""j CN$;3o C$: C$"" 60015It F 1 F 0:jy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 (C$)20 F$(F$,(F$)1): 60015 C$;IDISCOUNT DETERMINE THE SELLING PRICE."Ld "2. GIVEN A DISCOUNTED PRICE AND A"wi " PERCENT DISCOUNT, DETERMINE THE"j " ORIGINAL PRICE."ln "3. GIVEN AN ORIGINAL AND A DISCOUNTED"s " PRICE, DETERMINE THE DISCOUNT %"x::IPD OP)' " "SELLING PRICE :"; A(OP (1PD))1 , 580? 6:: 560E @ J FIND ORIGINAL PRICE GIVEN SELL. PR. AND % DISCOUNT" T "";: " ORIGINAL PRICE, GIVEN SELLING PRICE Y " AND % DISCOUNT" ^ 580 hCN$"SELI$"AVAILABLE (<=100) ?": 50000:NY(F$)` NY100 NY0 NY (NY) 10000: 130 S0: J 1 12:B(J)0: J I 1 NY ""; "DATE FOR YEAR ";I J 1 N CN$" ENTER DATA FOR SEASON ":CN$I I : Z2$"Y" 1,(13)'X1$(((X1.5)))I X10 X1$(X1$,(X1$)1)h (X1$)2 X1$" " X1$X2$(((X2.005)100)):: X20 X2$(X2$,(X2$)1) X20 X2$"00" X2$ (X2$)9 X2$" " X2$: 1030XF$F$C$ 60015* "INPUT ERROR, PLEASE TRY AGAIN ":: 6001506F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎ` SUI 560' A(XX) ((XX .005)100)100Q "";: " MENU": "1. DETERMINE SELLING PRICE GIVEN LIST" " PRICE & % DISCOUNT" "2. DETERMINE ORIGINAL RICE, GIVEN " DISCOUNTED PRICE AND % DISCOUNT."ILING PRICE ?": 50000:SP(F$)E rCN$"% DISCOUNT ?": 50000:PD(F$)W wPD PD 100a | 580  "ORIGINAL PRICE IS :"; A(SP (1 PD))  "DISCOUNT AMOUNT :"; A(SP (1PD) SP)  580 :: 560   DISCOUNICN$(J)" ? " 50000:A(I,J)(F$)F J 8 "";: "DATA FOR YEAR ";Io B(J)B(J) A(I,J): SEASONAL TOTALS~ SSA(I,J) J I AVS(NYN): AVERAGE SEASONAL SALES J 1 N:C(J)B(J)NY: J: SEASON AVERAGE J IX2$"$"(X2$,7)"."(X2$,2)=X3$(((X3.005)100)): X3 0 X3$"00" X3$` X3 0 X3$(X3$,(X3$)1)$ (X3$)7 X3$" " X3$: 1060.X3$(X3$,5)"." (X3$,2)8' "INPUT ERROR!!!,TRY AGAIN!": I 1 600: I:OJT GIVEN ORIGINAL & DISCOUNTED SELLING PRICE&  "";S : " DISCOUNT GIVEN ORIGINAL ANDz  " DISCOUNTED PRICES"  580 CN$"ENTER ORIGINAL PRICE ?": 50000:OP (F$) CN$"ENTER DISCOUNTED PRICE ?": 50000:PD b 60015F$F$C$ 600158: "INPUT ERROR, PLEASE TRY AGAIN ":: 60015>D,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎJ*NB"!!----!!!" ************************** ***************************** LEASE CAREFULLY READ BOTH THIS NOTICE AND ALL OTHER COPYRIGHT & FREEWARE NOTICES WHICH MAY BE ON THIS DISK. OME PROGRAMS ARE COPYRIGHTED BY THEIR CREATJIGHT NOTICE IS NOT CONCLUSIVE. S A SMALL GROUP WITH LIMITED MEANS, HOPE EVERYONE USES THEIR VERY BEST JUDGEMENT IN TRYING TO MAKE THESE DETERMINATIONS. ENERALLY PROGRAMMING PRINTED IN MAGAZINES MAY ONLY BE ACQUIRED BY SUBSCRIBERS TO THOSE MAGAZINESJ(F$) D (OP PD) OP:D 100 D  580H  "DISCOUNT PERCENTAGE :"; A(D)R  580` :: 560f & 0CN$"PRESS RETURN TO CONTINUE, STOP TO END ":F1: 60000 : D: "":: N ""J ME PROGRAM IS FOR SALE AT THE LOCAL COMPUTER STORE UNDER ANOTHER NAME (STATE NAME AND PUBLISHER, ADDRESS IF POSSIBLE). NFORTUNATELY, TIME DOES NOT ALLOW US TO CORRESPOND AS WITH MEMBERS AS LIBERALLY AS WE GAB ON THE PHONE. , YOUR LETTERS AND NOTES J TAIN PROGRAMMING IS SOLD UNDER CONTRACTS FAR MORE RESTRICTIVE THAN THE COPYRIGHT LAWS, AND SUCH CONTRACTUAL AGREEMENTS ARE ENFORCABLE UNDER APPLICABLE CIVIL LAWS OF CONTRACT. ERTAIN STATES, NOTABLY OUSIANA AND RECENTLY (BUT NOT FINAL) LLINOIS HAVE ENJ ORS/CONTRIBUTORS AND PERMISSION MUST BE OBTAINED FROM THOSE AUTHORS PRIOR TO CERTAIN TYPES OF USEAGE AS MAY BE SPECIFIED. THER PROGRAMS ARE SUBMITTED ON A BASIS -- I.E. IF YOU USE THEM, YOU ARE MORALLY OBLIGED TO MAKE ATLEAST A TOKEN PAYMENT TJ . OMETIMES AFFIDAVITS OF SUBSCRIPTION ARE USED -- BUT IT IS HAPHAZZARD AT BEST. N THE OTHER HAND, MAGAZINES AND PROGRAMMING PUBLISHED BY OMMODORE ARE INTENDED FOR THEIR CUSTOMERS, SO FOR OUR PURPOSES OMMODORE WRITTEN ARTICLES AND UTILITIES ARE UNREJ ;: OÀPÏ SUBROUTINE FOR DATA INPUTWUF$"":C$"": C$=GET CHARACTER:REM F$="INPUTTED DATA TO DATE"ZÙ CN$;: CN$=DESCRIPTION OF DATA BEING INPUTTED_á C$: C$"" 50015dË C$(13) F$"" F1 F0:iË (C$)13 F$"" 500JARE READ AND USUALLY PASSED ON TO OUR UESTION AND NSWER MAN, ARREN WAN. OU JUST MIGHT HEAR FROM HIM, MORE LIKELY YOUR COMMENT MAY SEED A PARAGRAPH OR TWO IN OUR PUBLICATIONS. HANK YOU FOR YOUR COOPERATION AND ASSISTANCE IN ADVANCE. -------------JACTED LAWS CODIFYING "SHRINK WRAP CONTRACTS". HIS IS A DEVICE WHEREIN THE COPYRIGHT OWNER IS PERMITTED TO BIND THE PURCHASER TO A CONTRACT CONTAINED WITHIN THE SEALED PACKAGE EVEN THOUGH THE PURCHASER HAS NOT HAD AN OPPORTUNITY TO READ WHAT HE IS AGREEJO THE AUTHOR/CONTRIBUTOR. ANY DISKS BEAR THE NOTICE "HIS IS A ROYALTY PAID COPY" -- AS SUCH THE REEWARE CONSIDERATION HAS BEEN WAIVED FOR THAT COPY ONLY BY THE INCLUSION OF A NOMINAL ROYALTY REMITTED TO THE AUTHOR/CONTRIBUTOR. ITHOUT ACTS OF JSTRICTED. BVIOUSLY PROGRAMS PURCHASED BY OMMODORE FROM 3RD PARTY VENDORS (SUCH AS RECISION OFTWARE AND NFO ESIGNS) AND BEARING DUAL COPYRIGHT NOTICES OR THEIR COMMERCIALIZED PROGRAMMING ARE LIKELY TO BE RESTRICTED. IMILARLY CERTAIN OBVIOUSLY COMJ15nÙ C$;sË (C$)13 500702xË (C$)20 (F$)1 50065\}Ë (C$)20 F$(F$,(F$)1): 50015Ë (C$) 45 (C$)47 (C$) 57 50065F$F$C$É 50015Ù: "INPUT ERROR, PLEASE TRY AGAIN ":: 50010ÙÎJ------------ AIR SE OCTRINE. NITED TATES OPYRIGHT AWS PROVIDE FOR WHAT IS COMMONLY KNOWN AS FAIR USE COPYING (FAIR USE DOCTRINE). IMPLY PUT, A PURCHASER OF COPYRIGHTED MATERIALS IS GENERALLY FREE TO MAKE COPIES FOR HIS OWN USE WITHOUT VIOLATINJING TO. BVIUSLY SUCH A "UNIQUE" LEGAL CONCEPT IS BEING HOTLY CONTESTED. OT ONLY IS A CONTRACT BEING IMPOSED, BUT OFTEN THE SOFTWARE IS STATED AS BEING LICENSED, NOT SOLD! -- I.E. THE PURCHASER OWNS NO PRODUCT, ONLY A PERMISSION TO USE. OREOVER SOMEJ GRATITUTED, MAY CONTRIBUTORS MAY NOT CONTINUE TO GO TO THE EXTREME EFFORT EXHIBITED HEREIN. , AND HOPE SPEAK FOR ALL MEMBERS, HAS NO INTEREST IN DUPLICATING MATERIALS NOT IN THE PUBLIC DOMAIN. NYONE CAUGHT SUBMITTING NON-PUBLIC DOMAIN JMERCIALIZED PUBLICATIONS OF OMMODORE ITSELF ARE NOT INTENDED FOR PUBLIC DOMAIN USEAGE. IMILARLY THE ENTIRE OMMODORE EDUCATION LIBRARY IS FOR COPYING (AVAILABLE THRU AND MOST LOCAL CLUBS). UCH OF THE OMMODORE PUBLIC DOMAIN LIBRARY IS IN PURE BJ ` SUBROUTINE FOR STRING INPUTeF$"":C$""$j CN$;?o C$: C$"" 60015Ut F 1 F 0:vy (C$) 13 F$"" 60015~ (C$) 13 60065 (C$) 20 (F$)1 60060 C$; (C$)20 F$(F$,(F$)1):JG EDERAL LAW. OWEVER, TO MAKE COPIES OF COPYRIGHTED MATERIALS CONTARY TO THE COPYRIGHT OWNERS' INTENTION FOR THE BENEFIT OF THIRD PARTIES, OR POSSIBLY EVEN MULTIPLE PLACES OF USE (SUCH AS BRANCH OFFICES/STORES/DEPARTMENTS) MAY NOT BE PERMISSABLE. ERK STATES, LLINOIS NOTABLY, IS ATTEMPTING TO PERMIT THE SOFTWARE PRODUCERS TO DISCLAIM ALL WARRANTEES INCLUDING EVEN LOADING OR OPERATING AT ALL! HE ISSUE OF TATE'S RIGHTS TO IMPOSE LAWS RELATING TO COPYRIGHT (PARTICULARY AS THESE LAWS CONFLICT WITH EJMATERIALS WILL BE SUMARILY ABORTED FROM MEMBERSHIP. 'M NO EXPERT IN COPYRIGHT LAWS, BUT AS UNDERSTAND IT, MANY PERSONS ROUTINELY PUT COPYRIGHT NOTICES ON FREEWARE AND PUBLIC DOMAIN DISKS TO DISCOURAGE PROFITEERING. HUS THE MERE EXISTANCE OF A COPYRJASIC -- AND RUNNABLE ON ANY OMMODORE MACHINE. F YOU DISCOVER SOMETHING ON ANY OF OUR DISKS WHICH YOU BELIEVE TO BE VIOLATIVE OF COPYRIGHT, KINDLY WRITE ME YESTERDAY. DENTIFY THE DISK, PROGRAM AND WHY YOU BELIEVE IT IS ILLEGAL -- I.E. YOU KNOW THE SAKDERAL LAW IN MANY AREAS) IS NEW AND UNCHARTED TERRITORY. AKE CARE TO FOLLOW YOUR LOCAL PRESS ON THIS SUBJECT. ------------------------- HAS INCURRED CONSIDERABLE EXPENSE IN PREPARING ITS LIBRARY. ONE OF OUR DISKS ARE COPYPROTECTED AND OTHER THK DISKS WHEN ANNOUNCED AT 1/2 PRICE (INCLUDING 50% OFF ON ROYALTIES IF ANY). HE DETACHABLE LABEL SERVES AS PROOF OF OWNERSHIP AND MUST BE RETURNED WITH SUCH UPDATED DISK ORDERS. HE UPDATED DISKS WILL CARRY SPECIAL STOCK NUMBERS AND CAN ONLY BE ORDEREDK AN AS STATED SUPRA, NO COPYING RESTRICTIONS ARE IMPOSED REGARDING USE OF THESE MATERIALS BY MEMBERS IN GOOD STANDING. T IS HOWEVER REQUESTED THAT IF ADDITIONAL COPIES ARE DISTRIBUTED BY A MEMBER TO OTHERS (PREFERABLY MEMBERS), THAT A COPY FEE OF $K USING THOSE NUMBERS AS ANNOUNCED. E SUGGEST YOU USE COTCH TAPE TO BETTER AFFIX THE LABEL TO THE PRESENT DISK. ORMAN ELTZKE RGANIZER 4102 . DELL ORRIDGE, L. 60634 312 456 8720 7PM TO 10PM .. N OCCASION OUR DISK DRIVES USED FOK5.00 PER DISK SO DUPLICATED BE REMITTED TO US. HIS ALSO SHOULD BE REGARDED AS A OBLIGATION. LEASE REMIT TO ORMAN ELTZKE AS BELOW AND INDICATE THAT THE SUM IS FOR COPY FEE(S) REGARDING LIBRARY MATERIALS. ATERIALS HAVE BEEN SUBMITTED KR DUPLICATION MAY BE MARGINALLY OFF SPEED. HOULD YOUR EQUIPMENT BE SLIGHTLY OUT OF ADJUSTMENT IN AN OPPOSITE DIRECTION (I.E. ONE FAST, ONE SLOW), YOU MAY HAVE DIFFICULTY IN BACKING UP THE DISK. LEASE TRY TO BACK OF BOTH D1=0 AND D0=1. F THAT FAILS,KTO FOR THE USE OF ITS MEMBERS, AND NO PERMISSION IS GRANTED BY , MYSELF OR ANY OTHER PARTY TO DISTRIBUTE COPIES BEYOND THE MEMBERSHIP OF . ------------------------- LIBRARY DISKS ARE PROVIDED IN SEVERAL FORMS, THIS ONE IS OF THE OFFICM SEND US A NOTE AND WE WILL REPLACE THE DISK PROMPTLY WITHOUT CHARGE. *FP0 AFFIX THE LABEL TO THE PRESENT DISK. ORMAN ELTZKE RGANIZER 4102 . DELL ORRIDGE, L. 60634 312 456 8720 7PM TO 10PM .. N OCCASION OUR DISK DRIVES USED FOKIAL RELEASE OR REVIEWED RELEASE ( # OR #) VARIETY. F THE DISK IS LABELED WITH A PIGGYBACK LABEL (EASILY DETACHABLE AND HAVING " " PRINTED ON THE RIGHT HAND END THEREOF), THE DISK IS SUBJECT TO FUTURE UPDATE. OU MAY ACQUIRE SUCH UPDATED