home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / curves / spacer.inc < prev    next >
Encoding:
Text File  |  1988-09-03  |  632 b   |  39 lines
  1. {
  2.                        F i l e    I n f o r m a t i o n
  3.  
  4. * DESCRIPTION
  5. Include source code file for curve.
  6.  
  7. * ASSOCIATED FILES
  8. CURVE.PAS
  9. ASSAY.TXT
  10. CURVE.COM
  11. CURVE4.EXE
  12. CURVE4.PAS
  13. PRINTOUT.INC
  14. PT.LAS
  15. README
  16. SAMPLE.INC
  17. SAMPLE2.INC
  18. SAMPLE4.INC
  19. SAMPLE4B.INC
  20. SPACER.INC
  21. TOOLS.INC
  22. TOOLS4.INC
  23.  
  24. ==========================================================================
  25. }
  26.  
  27. procedure spc(var field : integer);
  28. var
  29.  spaces : string[80];
  30.  i, spaceonline : integer;
  31.  
  32. begin
  33.    spaces := ' ';
  34.    spaceonline := field;
  35.    for i := 1 to spaceonline do spaces := spaces + ' ';
  36.        write(lst,spaces)
  37. end;
  38. 
  39.