home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / ACPACGL1.ZIP / SAMDATA / GL#UNIV1.SAM < prev    next >
Encoding:
Text File  |  1987-11-08  |  2.0 KB  |  59 lines
  1. .. Specification name:  UNIV1
  2. ..
  3. .. This specification will produce a balance sheet, showing the
  4. .. balance as at the current fiscal period.  Also note:
  5. ..   - use of "-" sign to allow liability & equity sections to print
  6. ..     as positive amounts.
  7. ..   - "<" symbol to indent fixed assets & equity by 1 column to the left
  8. ..   - accumulator A20 to compute rounding difference
  9. ..
  10. .R 1
  11. .D 7()
  12. . @C \NAME
  13. . @C Balance Sheet
  14. . @C \DATE
  15. .
  16. . @C ASSETS
  17. . @C ------
  18. .CS 1:BAL
  19. . Current assets:
  20. 100~106       :T1 @>3          Cash
  21. 200~210       :T1 @>3          Accounts receivable
  22. 250           :T1 @>3          \DESC
  23. 300           :T1 @>3          \DESC
  24. 350           :T1 @>3          Investments
  25. *T1               @>8^         Total current assets
  26. .
  27. . Fixed assets, at cost less depreciation:
  28. 402           :T2 @>3<         \DESC
  29. 404           :T2 @>3<         \DESC
  30. 406           :T2 @>3<         \DESC
  31. 408           :T2 @>3<         \DESC
  32. *T2               @^<
  33. 422~428       :T2 @>3<-        Less accumulated depreciation
  34. *T2               @^>3<
  35. 400           :T2 @>3<v        Land
  36. *T2           :T1 @>8          Total net fixed assets
  37. *T1           :A20- @^v2
  38. .
  39. . @C LIABILITIES AND SHAREHOLDERS' EQUITY
  40. . @C ------------------------------------
  41. . Current liabilities:
  42. 500           :T3 @>3-         Bank loan
  43. 502           :T3 @>3-         Trade accounts payable
  44. 503~516+530   :T3 @>3-         Accrued liabilities
  45. 518+519       :T3 @>3-         Corporate income taxes payable
  46. *T3           :A20- @>8^-      Total current liabilities
  47. .
  48. 600~605       :T3,A20- @-      Long-term debt
  49. 620           :T3,A20- @-      Due to shareholders
  50. 650           :T3,A20- @-      \DESC
  51. . Shareholders' equity:
  52. 680+682       :T4,A20- @>3<-   Capital stock
  53. 690           :T4,A20- @>3<-   Opening retained earnings
  54. 692           :T4,A20- @>3<    Less dividends paid
  55. 700~1110      :T4,A20- @>3<-   Profit (loss) for period
  56. *A20          :T4      @>3<v-  Rounding
  57. *T4           :T3      @>8-    Total shareholders' equity
  58. *T3                    @^v2-
  59.