misc/ADDAREA.PAS

uses dos,crt,dataarea,gentypes,gensubs;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var dFile : file of dataarearec;
    dMCI  : file of datasubrec;
    dData : dataarearec;
    mData : array[1..10] of datasubrec;
    count : byte;
    done  : boolean;
begin
clrscr;
 ddata.name := 'BBS LIST';
 ddata.datafile := 'BBSLIST';
 ddata.addansi := 'BBSLIST.ADD';
 ddata.prefix := 'BBSLIST';
 mdata[1].option := 'system name';
 mdata[1].length := 35;
 mdata[1].mcicode := 'SN';
 mdata[2].option := 'number';
 mdata[2].length := 25;
 mdata[2].mcicode := 'NU';
 assign(dFile,'DATAAREA.DAT');
 if not exist('DATAAREA.DAT') then rewrite(dfile) else reset(dfile);
 write(dfile,dData);
 close(dFile);
 assign(dMCI,dData.dataFile+'.MCI');
 rewrite(dmci);
 for count := 1 to 2 do write(dmci,mData[count]);
 close(dMci);
end.