program d2clnktst;

%include clunk.typ;

type
  dec_date	= packed array [1..9] of char;
  dec_time	= packed array [1..8] of char;

var
  value1	: clunk_type;
  ascii_date	: dec_date;
  ascii_time	: dec_time;
  ids : integer;

%include d2clnk.ext;

begin
  write('Enter date in format 31-OCT-87 >');
  readln(ascii_date);
  write('Enter time in format 23:59:59  >');
  readln(ascii_time);
  
  d2clnk(value1,ascii_date,ascii_time,ids);

  writeln('ids:',ids);
  writeln('Value :',value1[1],value1[2],value1[3],value1[4]);
  writeln('Date  :',ascii_date);
  writeln('Time  :',ascii_time);

end.