BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.bin / pascal / tstpx / src / hugereal.p

program hugereal(input,output);
   var
       r : real;
       errno : integer;
   begin
       writeln('errno = ', errno);
       write('gimme a real ');
       readln(r);
       writeln('that was a really satisfying',r);
       writeln('errno = ', errno);
   end.