(*******************************************************************************************)
(********************************   MODUL I/O - DISK-IO  ***********************************)
(*******************************************************************************************)

procedure Disk_IO;
(*******************************************************************************************)

procedure RS232;
(*******************************************************************************************)
var RS232_Def: file of RS232_Data;
begin
    assign(RS232_Def, 'RS232.Def'); reset(RS232_Def);
    Read(RS232_Def, TA.TRS232); close(RS232_Def);
end;

procedure J_Write;
(**********************************************************)
var  J_Def: file of J_data;
begin
     assign(J_Def,'Just.Def');
     rewrite(J_Def);write(J_Def,Just_data);close(J_Def);
end;

begin  (*********************************  start of procedure DISK-IO   *******************)

     case TA.Service_Spec.DISK of
          ReadRS232:        RS232;
          WriteJust:        J_Write;
     end;
end;