home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG044.ARK
/
GENINFO.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
435b
|
12 lines
%NOLIST
700 REMARK ******* LOAD GENERAL INFORMATION *******
READ #FILE.NO%;G1,G2,G3.0,G4,G5,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),\
G3(1),G3(2),G3(3),G3(4),G3(5),MSTR.RECORDS,HISTORY.RECORDS,JOB.RECORDS
RETURN
720 REMARK ******* SAVE GENERAL INFORMATION *******
PRINT #FILE.NO%;G1,G2,G3.0,G4,G5,G2$(1),G2$(2),G2$(3),G2$(4),G2$(5),\
G3(1),G3(2),G3(3),G3(4),G3(5),MSTR.RECORDS,HISTORY.RECORDS,JOB.RECORDS
RETURN
%LIST