Tab 'Inc Stmt'
Landscape
LeftMargin 5
FontName "Times New Roman"
FontSize 24
Bold On
Center 'Classic Corporate Planning Model'
Bold Off
FontSize 16
Text 'Case: <CaseName>'
Skip
PageRight
Text -30, 'Run date: <@SysDate>'
Skip
Columns 2-7
ShadeRowValues 3,Green
Skip
ColNames
Skip
Decimal 0
Bold On
Text 'Income Statement'
Bold Off
'Sales'
Skip
'Gross Profit'
After '%'
Decimal 1
'Gross Margin %'
After ''
Decimal 0
Skip
'Operating Expenses'
'Depreciation'
Udata
'Operating Income'
Skip
Bold On
Italics On
Text 'Interest Income / Expense'
Bold Off
Italics Off
Sname 2
SkipChar 9
'Interest Inc - ST Invest'
'Interest Exp - ST Debt'
'Interest Exp - LT Debt'
SkipChar 0
Sname 0
Udata
StartBoxColumns 1,0,7,1,20,Cyan
{ Here's the trick you have to use to color a box: }
SaveXY
'Profit Before Tax'
'Income Tax'
EndBoxColumns 1 { This actually draws the box, but unfortunately obliterates the
the numbers underneath. }
RestoreXY {This moves the printer cursor back up to where it
was, and then the next two lines repeat what was obliterated
by the box. }
'Profit Before Tax'
'Income Tax'
Udata
'Net Income'
Udata '='
Skip
FormFeed
Tab 'BS'
FontSize 14
Bold On
Center 'Classic Corporate Planning Model'
Bold Off
FontSize 8
Skip
PageRight
Text -30, 'Run date: <@SysDate>'
Skip
Text 'Case: <vCaseName>'
Columns 2-13
ShadeRowValues 3
Skip
ColNames
Skip
FontSize 12
Bold On
Text 'Balance Sheet'
Bold Off
FontSize 8
Decimal 0
'Cash'
'Short Term Investment'
'Accounts Receivable'
'Inventory'
Udata
'Total Current Assets'
Skip
'Fixed Assets - Gross'
'Accum Depreciation'
'Fixed Assets - Net'
'Other Assets'
Udata
'Total Assets'
Udata '='
Skip
'Accounts Payable'
'Accrued Expenses'
'Short Term Debt'
'Current Maturities - LTD'
'Other Current Liabilities'
Udata
'Total Current Liabilities'
Skip
'Long Term Debt'
'Other Liabilities'
Udata
'Total Liabilities'
Skip
'Common Stock'
'Ending Retained Earnings'
Udata
'Total Equity'
Skip
'Total Liabilities & Equity'
Udata '='
Skip
FontSize 12
Bold On
Text 'Key Ratios'
FontSize 8
Bold Off
Decimal 1
After '%'
'Operating Margin'
'Return on Sales'
After ' '
Decimal 2
'Current Ratio'
'Debt / Equity'
FormFeed
Tab 'CashFlow'
Landscape
FontName "Times New Roman"
FontSize 14
Bold On
Center 'Classic Corporate Planning Model'
Bold Off
FontSize 8
Skip
PageRight
Text -30, 'Run date: <@SysDate>'
Skip
Columns 2-13
ShadeRowValues 3
Skip
ColNames
Skip
Decimal 0
FontSize 12
Bold On
Text 'Statement of Cash Flows'
Bold Off
FontSize 8
'Beginning Cash'
Skip
'(Incr)/Decr A/R'
'(Incr)/Decr Inventory'
'(Incr)/Decr Other Assets'
'Incr/(Decr) A/P'
'Incr/(Decr) Accr Exp'
'Incr/(Decr) Oth Curr Liab'
Udata
'Cash Flow from Operations'
Skip
'(Incr)/Decr - Gross Fixed Assets'
Udata
'Cash Flow from Investing'
Skip
'(Incr)/Decr - Short Term Investment'
'Incr/(Decr) - Short Term Debt'
'Incr/(Decr) - Long Term Debt'
'Incr/(Decr) - Common Stock'
'Dividends Paid'
Udata
'Cash Flow from Financing'
Skip
'Net Change in Cash'
Udata
'Ending Cash'
Udata '='
Skip
'Balance Check - BS'
'Balance Check - CF'
FormFeed
Tab 'GR-PL'
Landscape
FontName "Times New Roman"
FontSize 14
Bold On
Center 'Classic Corporate Planning Model'
Bold Off
FontSize 8
Skip
PageRight
Text -30, 'Run date: <@SysDate>'
Skip
SaveXy
BarChart 'Sales' 40,40
Skip 2
BarChart 'Operating Income' 40,40
RestoreXY
MoveX 5
BarChart 'Profit Before Tax' 40,40
Skip 2
MoveX 5
BarCHart 'Net Income' 40,40
FormFeed
Tab 'Surplus/Deficit'
Skip 2
FontSize 24
Center 'Corporate Planning Model'
Text 'Case: <vCaseName>'
Skip
Movex 2
Barchart 'Surplus / (Deficit)' 60,60
FormFeed