|
|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3200 (0xc80)
Types: TextFile
Names: »BACKUP.MOD«, »BANK.MOD«
└─⟦6ae1c04a5⟧ Bits:30004364 SW1656 IFPS/Personal Version 2.10 release 1.1
└─⟦this⟧ »BACKUP.MOD«
└─⟦this⟧ »BANK.MOD«
COLUMNS 1985..1989,AVERAGE,BASIS,ACCEPT
PERIODS 12
ØØ
ØØ This model calculates a generic set of ratios for analysis of
ØØ a new loan. The basis for the ratios is a cash flow analysis
ØØ assuming the loan is granted and a balance sheet of either
ØØ a corporate or individuals net worth. The ratios are then
ØØ tested against pre-defined acceptance levels to determine whether
ØØ or not the loan should be granted.
ØØ
ØØ CASH FLOW STATEMENT
ØØ
SALES PROJECTIONS=SALES IN 1984 * SALES GROWTH RATE,'
PREVIOUS * SALES GROWTH RATE
SALES GROWTH RATE=INDUSTRY GROWTH RATE
SALES IN 1984=DATA
INDUSTRY GROWTH RATE=DATA
COMPANIES PROJECTED GROWTH RATE=DATA
ØØ
SALES EXPENSES=COST OF SALES PCT * SALES PROJECTIONS
LOAN PAYMENT=PAYMENT
OTHER PAYMENTS=DATA
OTHER EXPENSES=DATA,PREVIOUS * INFLATION RATE
TOTAL EXPENSES=SUM(SALES EXPENSES THRU OTHER EXPENSES)
ØØ
COST OF SALES PCT=DATA
INFLATION RATE=DATA
AMORT(LOAN AMOUNT REQUESTED,0,INTEREST RATE,1,1,1; '
PAYMENT,INTEREST,PRINCIPAL,BALANCE)
LOAN AMOUNT REQUESTED=DATA
INTEREST RATE=DATA
ØØ
CASH FLOW=SALES PROJECTIONS - TOTAL EXPENSES
ØØ
ØØ BALANCE SHEET
ØØ
CASH=BEG CASH,PREVIOUS ENDING CASH
BEG CASH=DATA
ENDING CASH=BEG CASH + CASH FLOW
ACCOUNTS RECIEVABLES=RECIEVABLES PCT * SALES PROJECTIONS
RECIEVABLES PCT=DATA
INVENTORY=DATA
FIXED ASSETS=DATA
OTHER ASSETS=DATA
TOTAL ASSETS=CASH + ACCOUNTS RECIEVABLES + INVENTORY + '
FIXED ASSETS + OTHER ASSETS
ØØ
CURRENT LIAB PCT=DATA
CURRENT LIABILITIES=CURRENT LIAB PCT * SALES PROJECTIONS
LONG TERM LIABILITIES=300000,PREVIOUS - OTHER PAYMENTS
OTHER LIABILITIES=DATA
TOTAL LIABILITIES=SUM(CURRENT LIABILITIES THRU OTHER LIABILITIES)
ØØ
CAPITAL STOCK=DATA
RETAINED EARNINGS=TOTAL ASSETS - (CAPITAL STOCK + TOTAL LIABILITIES)
NET WORTH=CAPITAL STOCK + RETAINED EARNINGS
TOTAL LIABILITIES AND NW=TOTAL LIABILITIES + NET WORTH
ØØ
ØØ RATIO ANALYSIS
ØØ
CASH TO CURRENT DEBT=CASH / CURRENT LIABILITIES
QUICK ACID RATIO=(CASH + ACCOUNTS RECIEVABLES) / CURRENT LIABILITIES
DEBT TO WORTH=TOTAL LIABILITIES / NET WORTH
DEBT TO TOTAL ASSETS=TOTAL LIABILITIES / TOTAL ASSETS
RETURN ON EQUITY=CASH FLOW / ((NET WORTH + PREVIOUS NET WORTH) / 2)
ØØ
ØØ DECISION CRITERION
ØØ
CASH TO CURRENT DEBT TEST=.75
QUICK ACID TEST=1.20
DEBT TO WORTH TEST=.40
DEBT TO TOTAL ASSETS TEST=.40
RETURN ON EQUITY TEST=8%
ØØ
ØØ AVERAGE COLUMN DEFINIITIONS
ØØ
REDEFINE AVERAGE FOR SALES PROJECTIONS THRU RETURN ON EQUITY= '
SUM(Æ1985Å THRU Æ1989Å) / 5
REDEFINE BASIS FOR CASH TO CURRENT DEBT=CASH TO CURRENT DEBT TEST
REDEFINE BASIS FOR QUICK ACID RATIO=QUICK ACID TEST
REDEFINE BASIS FOR DEBT TO WORTH=DEBT TO WORTH TEST
REDEFINE BASIS FOR DEBT TO TOTAL ASSETS=DEBT TO TOTAL ASSETS TEST
REDEFINE BASIS FOR RETURN ON EQUITY=RETURN ON EQUITY TEST
REDEFINE ACCEPT FOR CASH TO CURRENT DEBT THRU QUICK ACID RATIO = '
IF ÆBASISÅ - ÆAVERAGEÅ >= .25 THEN 0 ELSE 1
REDEFINE ACCEPT FOR DEBT TO WORTH THRU DEBT TO TOTAL ASSETS = '
IF ÆBASISÅ - ÆAVERAGEÅ <= .10 THEN 0 ELSE 1
REDEFINE ACCEPT FOR RETURN ON EQUITY = '
IF ÆBASISÅ - ÆAVERAGEÅ >= .03 THEN 0 ELSE 1
«eof»