MODULE convert; (* DEE 2023-07-23 *)
  (* From PASCAL: user manual and report, pg. 17 *)
  FROM STextIO IMPORT WriteChar, WriteString, WriteLn;
  FROM SWholeIO IMPORT WriteCard;

  CONST addin = 32; mulby = 1.8; low = 0; high = 39;
    separator = ' ----------';
  VAR degree: [low..high];
BEGIN
  WriteString(separator); WriteLn;
  FOR degree := low TO high DO
    WriteCard(degree,12); WriteChar('c');
    WriteCard(TRUNC(FLOAT(degree)*mulby + FLOAT(addin) + 0.5),12); WriteChar('f');
    IF ODD(degree) THEN WriteLn END
  END;
  WriteLn;
  WriteString(separator); WriteLn;
END convert.