home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / HISPEED1.ZIP / DOSDEMO / STRDEMO.PAS < prev   
Pascal/Delphi Source File  |  1991-07-02  |  472b  |  21 lines
  1. Program StrDemo;
  2.  
  3. { This small program demonstrates how to use one of the new }
  4. { features in the UTILUNIT.PAS file                         }
  5.  
  6. Uses UtilUnit;
  7.  
  8. Var
  9.         R : Real;
  10.  
  11. Begin
  12.   Write('Enter a number: '); ReadLn(R);
  13.  
  14.   { All output to the StrOut file is stored in the string StrData. }
  15.   Write(StrOut,R :20:10);
  16.  
  17.   { StrData now contains the entered number. }
  18.   { Including the formatting spaces. }
  19.   Writeln('You entered: ',StrData);
  20. End.
  21.