home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / WRITEINV.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  2.0 KB  |  19 lines
  1. %NOLIST
  2.  
  3.     REMARK    ********************************************
  4.     REMARK    * WRITE INVOICE/TRANSACTION RECORD (A/P)   *
  5.     REMARK    ********************************************
  6. 3050    PRINT #FILE.NO,X0%;W1$,W0,W2$,W3$,W1%,W2%,\
  7.     D(1),D(2),D(3),D(4),D(5),D(6),D(7),D(8),D(9),D(10),D(11),D(12),D(13),\
  8.     D(14),D(15),D(16),D(17),D(18),D(19),D(20),D(21),D(22),D(23),D(24),\
  9.     D(25),D(26),D(27),C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9),C(10),\
  10.     C(11),C(12),C(13),C(14),C(15),C(16),C(17),C(18),C(19),C(20),C(21),\
  11.     C(22),C(23),C(24),C(25),C(26),C(27)
  12.     RETURN
  13.  
  14. %LIST
  15. %NOLIST
  16.  
  17.     REMARK    ********************************************
  18.     REMARK    * WRITE INVOICE/TRANSACTION RECORD (A/P)   *
  19.     REMARK    *