{VECIO.BSP:}
{$I DECL.TLD}
{$I SYSTEM1.TLD}
{$I SYSTEM2.TLD}
{$I DECL.CPL}
{$I IO2.CPL}

var a:ComplexVectorType_TLC;
  n:integer;
  file_name:WrkStringType_TL;
begin
  InitIO;
  clrscr;
  writeln('Demonstration des Disk-I/O bei Vektoren');
  file_name:='vec.fil';
  SetInputFieldLength(1);
  n:=ReadIntNumber(1,3,2,9,'Anzahl der Komponenten');
  SetInputFieldLength(4);
  SetRealRange(-99,999);
  input_vec_c(1,5,a,n,console,'Eingabe der Komponenten');
  clrscr;
  print_vec_c(1,1,a,n,console,'Der Vektor wird nun abgespeichert');

  print_vec_c(1,1,a,n,disk,file_name);

  clrscr;

  input_vec_c(1,5,a,n,disk,file_name);

  print_vec_c(1,10,a,n,console,'Der abgespeicherte Vektor nach dem Einlesen')
end.