home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / ACPACGL1.ZIP / SAMDATA / GL#UNIV2.SAM < prev    next >
Encoding:
Text File  |  1987-11-08  |  2.1 KB  |  61 lines
  1. .. Specification name:  UNIV2
  2. ..
  3. .. This specification will produce a balance sheet with columns for
  4. .. the current and previous months. Both months have to be in the
  5. .. current fiscal year. Also note:
  6. ..    - rounding set to nearest dollar and calculated in accumulators
  7. ..      A1 and A2.
  8. ..    - column spec change to calculate net earnings.
  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 2:BAL-M
  19. .CH |Curr. Mo. |Prev. Mo. |
  20. .CH |----------|----------|
  21. . Current assets:
  22. 100~106       :T1 @>3          Cash
  23. 200~210       :T1 @>3          Accounts receivable
  24. 250           :T1 @>3          \DESC
  25. 300           :T1 @>3          \DESC
  26. 350           :T1 @>3          Investments
  27. *T1               @>3^         Total current assets
  28. .
  29. . Fixed assets, at cost less depreciation:
  30. 400           :T2 @>3          Land
  31. 402           :T2 @>3          \DESC
  32. 404           :T2 @>3          \DESC
  33. 406           :T2 @>3          \DESC
  34. 408           :T2 @>3          \DESC
  35. *T2               @^
  36. 422~428       :T2 @>3-         Less accumulated depreciation
  37. *T2           :T1 @>3^
  38. *T1           :(1)A1-,(2)A2- @^v2
  39. .
  40. . @C LIABILITIES AND SHAREHOLDERS' EQUITY
  41. . @C ------------------------------------
  42. . Current liabilities:
  43. 500           :T3 @>3-               Bank loan
  44. 502           :T3 @>3-               Trade accounts payable
  45. 503~516+530   :T3 @>3-               Accrued liabilities
  46. 518+519       :T3 @>3-               Corporate income taxes payable
  47. *T3           :(1)A6,(2)A7,(1)A1-,(2)A2- @>3^-   Total current liabilities
  48. .
  49. 600~605       :(1)A6,(2)A7,(1)A1-,(2)A2- @-   Long-term debt
  50. 620           :(1)A6,(2)A7,(1)A1-,(2)A2- @-   Due to shareholders
  51. 650           :(1)A6,(2)A7,(1)A1-,(2)A2- @-   \DESC
  52. . Shareholders' equity:
  53. 680+682       :(1)A8,(2)A9,(1)A1-,(2)A2-  @>3-    Capital stock
  54. 690           :(1)A8,(2)A9,(1)A1-,(2)A2-  @>3- Opening retained earnings
  55. 692           :(1)A8,(2)A9,(1)A1-,(2)A2-  @>3  Less dividends paid
  56. .CS 1:Y 2:BAL-M
  57. 700~1110      :(1)A8,(2)A9,(1)A1-,(2)A2-  @>3- Profit (loss) for period
  58. *A1,A2        :(1)A8,(2)A9  @>3v-  Rounding
  59. *A8,A9        :(1)A6,(2)A7  @>3-    Total shareholders' equity
  60. *A6,A7                 @^v2-
  61.