home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo2.lbr / GENLED.CZD / GENLED.CMD
Encoding:
Text File  |  1993-10-26  |  3.0 KB  |  77 lines
  1. * GENLED.PRG
  2. *GENERAL LEDGER PROGRAM
  3. *TO ENTER CHEQUES OUT AND CLASSIFY THEM FOR ACCOUNTING PURPOSES
  4. SET TALK OFF
  5. ERASE
  6. RELEASE ALL
  7. RESTORE FROM A:GENLED
  8. STORE CHQNUM TO CHQNUMA
  9. STORE '        ' TO DATECHQA
  10. STORE  '     ' TO TYPEA
  11. STORE 00.00 TO AMTCHQA
  12. STORE '                              ' TO COMMA
  13. STORE DATE() TO DATIN
  14. STORE '                               ' TO PAYEEA
  15. STORE 1 TO DRAW
  16. STORE F TO PRESENTEDA
  17. DO WHILE T
  18. *******************FORMAT SCREEN***************FOR ENTRY********
  19. @ 2,0 SAY 'CHEQUE ENTRY,                  '
  20. @ 2,48 SAY DATIN
  21. @ 3,0 SAY 'DATE OF CHEQUE ' GET DATECHQA PICT '99/99/99'
  22. @ 3,25 SAY 'CHEQUE NUMBER(SET TO 999 FOR BANK CHARGES)'GET;
  23.   CHQNUMA PICT '999999'
  24. @ 4,0 SAY 'CHEQUE PAID TO ' GET;
  25.  PAYEEA PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  26. @ 5,0 SAY 'REASON FOR CHEQUE' GET;
  27.  COMMA PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  28. @ 6,0 SAY 'CATEGORY OF CHEQUE' GET TYPEA PICT '!!!!!!!'
  29. @ 7,0 SAY 'AMOUNT OF CHEQUE (ZERO TO EXIT) ' GET;
  30.  AMTCHQA PICT '999999.99'
  31. @ 8,0 SAY 'IF BANK CHARGES OR PAYMENT DIRECT FROM ACCOUNT INSERT T';
  32. GET PRESENTEDA
  33. STORE DRAW+1 TO DRAW
  34. IF DRAW <3
  35. SET INTENSITY OFF
  36. @ 9,0 SAY '****************************************************************'
  37. @ 10,0 SAY ' CATEGORY..    NUMBER  CATEGORY...  .NUMBER  CATEGORY.  .NUMBER '
  38. @ 11,0 SAY ' ADVERTISING   5010     BANK CHARGES   5070   DONATIONS    5630 '
  39. @ 12,0 SAY ' ENTERTAIN     5830     INSURANCE      6280   LEGAL EXP    6600 '
  40. @ 13,0 SAY ' LIGHT&POWER   6640     PETTYCASH EXP  7290   POSTAGE      7320 '
  41. @ 14,0 SAY ' PRINT&STAT    7360     RATES&TAXES    7500   REGISTRATION 7510 '
  42. @ 15,0 SAY ' RENT          7590     REPAIRS &MAINT 7630   REPAIR CAR   7700 '
  43. @ 16,0 SAY ' REPLACEMENTS  7750     SALARIES&WAGES 8250   SUBSCRIPTION 8560 '
  44. @ 17,0 SAY ' SUPERANUATION 8600     TELECOM        8680   SALESTAX      700 '
  45. @ 18,0 SAY ' FREIGHT       1600     STOCK          2000   MISCELLANEOUS   * '
  46. @ 19,0 SAY ' CAPITAL ITEM 62100     LEASE PAYMENTS LEASE  LOAN REPAYMENT REP'
  47. @ 20,0 SAY ' TOOLS         7770     PACKAGING      9040                     '
  48.  
  49. @ 21,0 SAY '****************************************************************'
  50.  
  51. ENDIF
  52. READ
  53. IF AMTCHQA=0
  54. STORE CHQNUMA TO CHQNUM
  55. RELEASE ALL EXCEPT CHQNUM
  56. SAVE TO A:GENLED
  57. ERASE
  58. RETURN
  59. ENDIF
  60. USE GENLED index gentype
  61. APPEND BLANK
  62. REPLACE CHQNUM WITH CHQNUMA,PAYEE WITH PAYEEA,COMM  WITH ;
  63. COMMA ,TYPE WITH TYPEA,AMTCHQ WITH AMTCHQA,DATECHQ WITH DATECHQA,DATE WITH;
  64.  DATE(),PRESENTED WITH PRESENTEDA
  65. STORE CHQNUMA+1 TO CHQNUMA
  66. STORE '     ' TO TYPEA
  67. STORE 00.00 TO AMTCHQA
  68. STORE '                              ' TO COMMA
  69. STORE '                              ' TO PAYEEA
  70. STORE F TO PRESENTEDA
  71. CLEAR GETS
  72. ENDDO
  73. ,0 SAY ' REPLACEMENTS  7750     SALARIES&WAGES 8250   SUBSCRIPTION 8560 '
  74. @ 17,0 SAY ' SUPERANUATION 8600     TELECOM        8680   SALESTAX      700 '
  75. @ 18,0 SAY ' FREIGHT       1600     STOCK          2000   MISCELLANEOUS   * '
  76. @ 19,0 SAY ' CAPITAL ITEM 62100     LEASE PAYMENTS LEASE  LOAN REPAYMENT REP'
  77. @ 20,0 SAY ' TOOLS