home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug044.ark / POSTFILE.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  2.0 KB  |  18 lines
  1. %NOLIST
  2. 3600    READ #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
  3.     RETURN
  4.  
  5.  
  6. 3650    PRINT #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
  7.     RETURN
  8. %LIST
  9. E ADDFILE
  10.     CLOSE 5                                REMARK    CLOSE WORKFILE BEFORE RENAMING IT
  11.     A=RENAME("G/L0F110.DAT","WORKFILE.DAT")                REMARK    WORKFILE%NOLIST
  12. 3600    READ #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
  13.     RETURN
  14.  
  15.  
  16. 3650    PRINT #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
  17.     RETURN
  18. %L