home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / A_P-INFO.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.0 KB  |  16 lines
  1. %NOLIST
  2.  
  3.     REMARK    ***********************************************
  4.     REMARK    *     READ A/P INFORMATION FILE & EXTENTS     *
  5.     REMARK    ***********************************************
  6.  
  7. 3310    READ #X0;P(1),P(2),P(3),P(4),P(5),\
  8.     TRANSACTION.RCD.COUNT%,AP.INVOICE.EXTENT,AP.VENDFILE.EXTENT,SORT%
  9.     RETURN
  10.  
  11. 3350    PRINT #X0;P(1),P(2),P(3),P(4),P(5),\
  12.     TRANSACTION.RCD.COUNT%,AP.INVOICE.EXTENT,AP.VENDFILE.EXTENT,SORT%
  13.     RETURN
  14.  
  15. %LIST
  16.