|
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 - download
Length: 3456 (0xd80)
Types: TextFile
Names: »EXMP1.FNR«
└─⟦dc6c79650⟧ Bits:30004299 FINAR Tutor
└─ ⟦this⟧ »EXMP1.FNR«
10 ; ****************************************************************** 20 ; This INCOME Model of the Fast Food Company examines the likely * 30 ; effect of price variations on forecast profit through a supposed * 40 ; relationship between Price and Sales Revenues. The sensitivity * 50 ; of the bottom line to this relationship is also examined. * 60 ; ****************************************************************** 999 ; 1000 Row Price(Price per kilo) Kilos(Kilos sold(000's)) Totsal(Total sales) 1010 Row Packaging Meat Vegetables Other(Other Costs) 1020 Row Cos(Cost of goods sold) Gross(GROSS PROFIT) 1030 Row Salaries Transportation Overheads Commission 1040 Row Mktg(Marketing and)(Administration) Costs(Total costs) 1050 Row (and expenses) Oper(Operating profit) 1060 Row Tax Interest Nett(NET INCOME) Netic(NET INCOME(%)) 1070 Row Debt(Long term debt) Payment(Debt repayment) 1999 ; 2000 Col Q1(Jan)(-March) Q2(April)(-June) 2010 Col Q3(July)(-Sept) Q4(Oct)(-Dec) 2020 Col Total(Total)(Year) 2999 ; 3000 ; We will supply the price per kilo of goods sold. 3001 ; 3010 Consider Q1 to Q4 3020 Ask for Price with "Enter a value greater than 20c" 3022 ; We are going to assume total sales of 10000 units per quarter 3024 ; at 20c/kilo falling off in direct proportion to a rise in price. 3030 Totsal = 10000 * 20 / Price 3040 Kilos = Totsal / Price 3042 ; Now calculate Cost of goods sold. 3050 Packaging = 5% of Kilos 3060 Meat = 15% of Totsal 3070 Vegetables = 5% of Totsal + 300 3080 Other = 2.5% of Totsal 3100 ; Other costs 3110 Salaries = 100 grow by 10% 3120 Commission = 1% of Kilos 3130 Mktg = 100 grow by 15 3140 Overheads = 231 grow by 4% 3150 Transportation = 100 + Kilos 3155 Transportation = Mktg * 100 / Transportation 3160 Payment = 150.. 3170 Debt = 1000 3180 Consider Q2 to Q4 3190 Debt = last Debt - Payment 3200 Consider all Columns 3210 Interest = .15 * Debt / 4 ; quarterly interest at 15% annual 3220 Totsal to Interest = Totsal to Interest round 0 3230 Cos = sum of Packaging to Other ; round before totaling 3240 Gross = Totsal - Cos 3250 Costs = Cos + sum of Salaries to Mktg 3260 Oper = Totsal - Costs 3270 Tax = .4 * positive values of Oper 3280 Nett = Oper - Interest - Tax 3300 ; Calculate year totals 3310 Total = sum of Q1 to Q4 3320 Netic = Nett as % of Totsal ; note this is done AFTER cross totals 3350 Consider Price 3360 Total = average of Q1 to Q4 ; special treatment for this item 6999 ; 7000 Report 1 7010 Center "The FAST FOOD Company - Forecast Income Statement" und "*" 7015 Line 7020 Center "1984 Budget - First Round" underline 7025 Line 7050 Show Price to Netic 7052 Align "REVENUES" underline with "=" before Price 7054 Align "COST OF GOODS SOLD" und "=" before Packaging 7056 Align "OTHER COSTS" und "=" before Salaries 7058 Align "RESULTS" und "=" before Nett 7060 Decimal places 0 except Netic 1 7062 Column width 8 7064 Commas 7066 Underline Kilos and Cos 7068 Line after Totsal and Oper 7070 Line after Interest 7072 Underline Other and Mktg 7074 Und Costs and Interest 7076 Line 7078 Align "Notes" underline 7080 Ali "1) Total Year price is averaged" 7082 Ali "2) All figures in $000's" 7099 ; 7100 Report 2 7110 Center "Summary" und "#" 7150 Show Totsal 7152 Show Costs to Netic 7160 DP 0 exc Netic 1 7162 Commas 7164 Und Costs and Interest 7166 Column width 8 «eof»