home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug044.ark / GENINFO.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  435b  |  12 lines
  1. %NOLIST
  2. 700    REMARK    *******  LOAD GENERAL INFORMATION  *******
  3.     READ #FILE.NO%;G1,G2,G3.0,G4,G5,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),\
  4.     G3(1),G3(2),G3(3),G3(4),G3(5),MSTR.RECORDS,HISTORY.RECORDS,JOB.RECORDS
  5.     RETURN
  6.  
  7. 720    REMARK    *******  SAVE GENERAL INFORMATION  *******
  8.     PRINT #FILE.NO%;G1,G2,G3.0,G4,G5,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),\
  9.     G3(1),G3(2),G3(3),G3(4),G3(5),MSTR.RECORDS,HISTORY.RECORDS,JOB.RECORDS
  10.     RETURN
  11. %LIST
  12.