|
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: 1024 (0x400)
Types: TextFile
Names: »EX07.TXT«
└─⟦56cb05a1f⟧ Bits:30005457 SuperCalc/MBasic/Plan80
└─ ⟦this⟧ »EX07.TXT«
└─⟦ed6270ad1⟧ Bits:30005316 PLAN80 Version 2.6
└─ ⟦this⟧ »EX07.TXT«
:TITLES
1 "PLAN80 EXAMPLE #7"
2 "BUDGET CONSOLIDATION"
:COLUMNS
Q1 (1) "1ST" "QTR"
Q2 (1) "2ND" "QTR"
Q3 (1) "3RD" "QTR"
Q4 (1) "4TH" "QTR"
YEAR (1) "FULL" "YEAR"
:ROWS
H01 "HEADCOUNT"
" EXEMPT"
H02 " NONEXEMPT"
H99 (-) " TOTAL"
S01 (S) "EXPENSE"
" SALARIES"
S02 " FRINGES"
S03 " OVERTIME"
S04 " SUPPLIES"
S05 " RENTALS"
S06 " OCCUPANCY"
S07 " TELEPHONE"
S08 " TRANSFERS"
S99 (-=) " TOTAL"
:INITIALIZE
:INCLUDE "CC1001.TXT"
:INCLUDE "PROC07.TXT"
:PUT "T1001"
:INITIALIZE
:INCLUDE "CC1002.TXT"
:INCLUDE "PROC07.TXT"
:PUT "T1002"
:INITIALIZE
:INCLUDE "CC1003.TXT"
:INCLUDE "PROC07.TXT"
:PUT "T1003"
:
: * * NOW CONSOLIDATE * *
:
:INITIALIZE
:GET "T1001" ADD
:GET "T1002" ADD
:GET "T1003" ADD
:TITLES
3 "SUMMARY OF COST CENTERS 1001-1003"
:DISPLAY
«eof»