Game Killer/Game_Killer.bin/287.CORPIO.INC

Text File | 1991-07-08 | 776b | 32 lines

{ Corp IO }

procedure OpenCorpRecords( var Citibank : corp );
var
  f    : file of planet;
  p    : planet;
begin
  reset( f, GetOldFileName('Corporate records? ', 'mycorp.crp' ) );
  CitiBank.NumPlanets := 0;
  CitiBank.Territory.rear := nil;
  while not eof( f ) do
    begin
      read( f, p );
      p.next := nil;
      enqueue( Citibank, p );
    end;
  close( f );
end;

procedure SaveCorpRecords( RichardMorris : corp );
var
  f    : file of planet;
begin
  rewrite( f, GetNewFileName('Save records as? ', 'mycorp.crp' ) );
  while RichardMorris.territory.front <> nil do
    begin
      write( f, RichardMorris.territory.front^ );
      RichardMorris.territory.front := richardMorris.territory.front^.next;
    end;
  close( f );
end;