home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / GENINFO.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  2.0 KB  |  19 lines
  1. %NOLIST
  2. 700    REMARK    *******  LOAD GENERAL INFORMATION  *******
  3.     READ #Y9;G1,G2,G3.0,G4,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),G1$,\
  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 #Y9;G1,G2,G3.0,G4,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),G1$,\
  9.      G3(1),G3(2),G3(3),G3(4),G3(5),MSTR.RECORDS,HISTORY.RECORDS,JOB.RECORDS
  10.         RETURN
  11. %LIST
  12.  >í╔O:µ>╩ y/O>í╔:µ8╩# α═█
  13. á╔ ═╔█
  14. >╙>═█
  15. >═█
  16. >█╔AA«@«7 END) $
  17. TRANSFER COMPLETE, REBOOTIN%NOLIST
  18. 700    REMARK    *******  LOAD GENERAL INFORMATION  *******
  19.     READ #Y9;G1,G2,G3.0,G4,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),G1$,\