home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug043.ark / REAINV.BAS < prev    next >
BASIC Source File  |  1985-02-10  |  1KB  |  15 lines
  1. %NOLIST
  2.  
  3.     REMARK    ********************************************
  4.     REMARK    *   READ INVOICE OR TRANSACTION RECORD (AP)*
  5.     REMARK    ********************************************
  6. 3000    READ #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.