DataMuseum.dk

top - download

    Length: 3328 (0xd00)
    Types: TextFile
    Names: »EXMP4.FNR«

└─⟦dc6c79650⟧ Bits:30004299 FINAR Tutor
    └─ ⟦this⟧ »EXMP4.FNR« 

TextFile

50   ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
60   ; $ Balance Sheet Analysis by Ratio Forecast $
70   ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
99   ;
1000 Columns Y1(1981) Y2(1982) Y3(1983) Y4(1984) Y5(1985)
1999 ;
2000 Rows Inv(Inventory) Debtors Prepayments Cash Curass(Current assets)
2010 Rows Creditors Provisions Curliab(Current liabilities)
2020 Rows Wocap(Working capital) Fixass(Fixed assets) TNA(Total net assets)
2050 Rows Sales Dirmat(Direct materials) Dirlab(Direct labor)
2060 Rows Overhead Cogs(Cost of goods sold) Depn(Depreciation)
2070 Rows GP(Gross profit) Saladm(Administrative &)(selling expenses)
2080 Rows Interest PBT(Profit before tax)
2090 Rows Capex(Capital expenditure) Spare
2999 ;
3000 ; Get historical data from file and calculate ratios
3010 Consider Y1 to Y3
3020 Ask for all rows in "EXMP4"
3030 Dirlab and Saladm = Dirlab and Saladm / Sales
3040 Interest = Interest / TNA
3050 Debtors = Debtors / Sales
3060 Spare = Cogs
3100 Consider Y1
3110 Depn = Depn / Fixass
3120 Consider Y2 to Y3
3130 Spare = Inv - last Inv + Cogs
3140 Depn = Depn / last Fixass
3150 Consider Y1 to Y3
3160 Creditors = Creditors / Spare
3170 Spare = Dirmat + Overhead
3180 Provisions = Provisions / Spare
3190 Inv = Inv / Dirmat
3200 Dirmat = Dirmat / Sales
3300 ;
3302 ; Straight line forecast of ratios and 'constants'
3304 ;
3310 Consider Y4 to Y5
3320 Inv to Interest = forecast of Inv to Interest over Y1 to Y3
3325 Capex = 0 0
3330 ;
3332 ; Now calculate cash values from forecast ratios
3334 ;
3340 Consider Y1 to Y3
3350 Ask for all rows in "EXMP4" ; reset historical cash values
3360 Display "You may now change Sales, Capex and/or Ratio values for 84-85"
3365 Stop "Type CONTINUE when ready to proceed"
3400 Consider Y4 to Y5
3410 Dirmat to Dirlab = Dirmat to Dirlab * Sales
3420 Saladm = Saladm * Sales
3430 Inv = Inv * Dirmat
3440 Debtors = Debtors * Sales
3450 Curass = sum of Inv to Cash
3460 Cogs = sum of Dirmat to Depn
3470 Creditors = Inv - last Inv + Cogs * Creditors
3480 Provisions = Dirmat + Overhead * Provisions
3490 Curliab = Creditors + Provisions
3500 Wocap = Curass - Curliab
3510 Consider Y4 to Y5 separately ; do Depreciation and Fixed assets
3512                              ; Column by Column
3520 Depn = Depn * last Fixass
3530 Fixass = last Fixass + Capex - Depn
3540 Consider Y4 to Y5            ; switch off SEPARATELY
3550 Inv to Saladm = Inv to Saladm round 0
3560 TNA = Wocap + Fixass
3570 Interest = Interest * TNA
3575 Interest = Interest round 0
3580 Cogs = sum of Dirmat to Overhead
3590 GP = Sales - Cogs - Depn
3600 PBT = GP - Saladm - Interest
6999 ;
7000 Report 1 "Loan Analysis Model"
7010 Center "BALANCE SHEET" and underline with "="
7020 Show all Columns
7030 Show Inv to TNA
7032 2 lines
7034 Show Capex
7036 Align "Net Assets" before Inv
7038 Und Cash
7039 Und Provisions and Fixass
7040 Und Curass to TNA every 3 "="
7042 2 lines
7044 Center "Profit & Loss" und "="
7046 Line
7050 Show Sales to PBT
7052 Und Sales and PBT "="
7054 Und Overhead and Depn
7056 Und Interest
7060 Decimal places 0
7062 Column width 8
7064 Commas
7100 ROW TITLES AFTER Y3
«eof»