home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / A_R-INV.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.0 KB  |  11 lines
  1. %NOLIST
  2.  
  3. 3400    READ #FILE.NO,REC.NO%;W1$,L1,L1$,L2,L2$,L4(1),L4(2),B,C2,L6,D(1),\
  4.     D(2),D(3),D(4),D(5),D(6),D(7),D(8),D(9),D(10),D(11),D(12),D(13)
  5.     RETURN
  6. 3450    PRINT #FILE.NO,REC.NO%;W1$,L1,L1$,L2,L2$,L4(1),L4(2),B,C2,L6,D(1),\
  7.     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.     RETURN
  9.  
  10. %LIST
  11.