{$R+,C-}
PROGRAM Make_Real_Data;
VAR
  R : real;
  F : file of Real;
BEGIN
  (* The following line is for plain TURBO*)
  R := 1.2345678912E-37;       assign(F,'6DATA');
  (* The following line is for TURBO-87 *)
  (*R := 1.234567891234567E-50;  assign(F,'8DATA');*)
  ReWrite(F);
  REPEAT
    Write(F,R);
    R := -10.0*R;
  UNTIL Abs(R) > 1E37; (* plain TURBO *)
  (*UNTIL Abs(R) > 1E50;*) (* TURBO-87 *)
  Close(F);
END.