{MATIO.BSP:}
{$I DECL.TLD}
{$I SYSTEM1.TLD}
{$I SYSTEM2.TLD}
{$I DECL.CPL}
{$I IO3.CPL}

var a:ComplexMatrixType_TLC;
  n:Integer;
  file_name:WrkStringType_TL;
begin
  InitIO;
  clrscr;
  writeln('Demonstration des Disk-I/O bei Matrizen');
  file_name:='mat.fil';
  SetInputFieldLength(1);
  n:=ReadIntNumber(1,3,2,9,'Ordnung der Matrix');
  SetInputFieldLength(4);
  SetRealRange(-999,999);
  input_mat_c(1,5,a,n,console,'Eingabe der Elemente');
  clrscr;
  print_mat_c(1,1,a,n,console,'Die Matrix wird nun abgespeichert');

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

  clrscr;

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

  print_mat_c(1,10,a,n,console,'Die abgespeicherte Matrix nach dem Einlesen')
end.