|
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: 2048 (0x800)
Types: TextFile
Names: »EXMP7.FNR«
└─⟦dc6c79650⟧ Bits:30004299 FINAR Tutor
└─ ⟦this⟧ »EXMP7.FNR«
1000 Columns Q1 Q2 Q3 Q4 Totyr(Total)(Year) 1999 ; 2000 Rows Rev(Revenues - Ice Cream) Othrev(Other Revenue - Candy etc.) 2010 Rows Totrev(Total revenue) 2020 Rows COG(Cost of goods) Pack(Packaging) 2030 Rows SR(Shop rental) Sals(Salaries) OH(Overheads) Totcost(Total cost) 2040 Rows OP(Operating profit) 2999 ; 3000 Define Wor 1(Los Angeles) 2(San Francisco) 3(Seattle) 3010 Def Wor 4(Vancouver) 5(Victoria) 3050 Def Wor 6(USA) 7(Canada (CN$)) 8(Canada (US$)) 3060 Def Wor 9(Total retail outlets) 3999 ; 5000 ; See if US or Canadian outlet (Instructions 5200-5230 need to know) 5001 ; 5010 Ask "Is this a USA or CANadian outlet ? " 5020 If "U.." continue at 5100 ; if 'U' or 'C', ok 5030 If "C.." continue at 5100 ; otherwise ask again. 5040 Display "Please answer 'USA' or 'CAN'" 5050 Continue 5010 5099 ; 5100 Totrev = Rev + Othrev 5110 COG = 50% of Rev 5120 COG = 60% of Othrev + COG 5130 Pack = 3% of Rev 5199 ; 5200 If "C.." con 5230 5210 Sals = 8% of Totrev 5220 Continue 5250 5230 Sals = 10% of Rev 5250 Totcost = sum of COG to OH 5260 OP = Totrev - Totcost 5299 ; 5300 Totyr = sum of Q1 to Q4 5399 ; 5400 ; Do consolidations 5401 ; 5410 Ask "Do you want to consolidate results ? " 5420 If "Y.." con 5500 5430 If "N.." con 6999 5440 Display "Please answer 'Yes' or 'No'" 5450 Continue 5410 5499 ; 5500 Consider Worksheet 1 5510 Consider all Columns 5520 Consider all Rows 5550 Worksheet 6 = sum Wor 1 to 3 ; USA 5560 Wor 7 = Wor 4 + Wor 5 ; Canada (CN$) 5570 Wor 8 = Wor 7 * .85 ; Canada (US$) 5580 Wor 9 = Wor 6 + Wor 8 ; All outlets 6999 ; 7000 Report 1 7020 Center "HUGGINDOS ICE CREAM CORPORATION" underline 7022 Cen "Projected Operating Statement - 1983" underline 7024 Line 7026 Left Worksheet Title 7028 Right "Figures in 000's" 7050 Show Rev to OP 7055 Underline Othrev and Totrev 7060 Line after Totrev 7065 Und OH and Totcost 7070 Line after Totcost 7075 Decimal places 0 7080 Column width 6 except Totyr 8 «eof»