home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / space.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  884b  |  37 lines
  1. PROGRAM SPACEX; {$P,C-,M-,F-}
  2. {$I+}
  3. TYPE
  4. $STRING80 = STRING 80;
  5. $STRING0 = STRING 0;
  6. $STRING255 = STRING 255;
  7. BYTE = 0..255;
  8. VAR
  9. DATA:$STRING255;
  10. NUMBER:INTEGER;
  11.  
  12. FUNCTION LENGTH(X:$STRING255):INTEGER;EXTERNAL;
  13. PROCEDURE SETLENGTH(VAR X:$STRING0; Y:INTEGER);EXTERNAL;
  14.  
  15. {function to return "x" number of spaces to a write command or statement..
  16. corresponds to BASIC commands such as SPACE$(X) or TAB(x)...
  17. although in structured programming, it is stylistically better to format
  18. output using format commands such as x:9:2 for a real number or 
  19. name:30 for a string, this function is often useful in designing a layout,
  20. and certainly is more "readable" in a program...}
  21.  
  22.  
  23. FUNCTION SPACE(X:BYTE):$STRING255; 
  24. VAR
  25. I:INTEGER;
  26. S:$STRING255;
  27.  
  28. BEGIN
  29. SETLENGTH(S,0);
  30. IF (X > 0) AND (X < 256) THEN FOR I:=1 TO X DO APPEND(S,' ');
  31.  
  32. SPACE:=S;
  33. END;
  34.  
  35. BEGIN
  36. END.
  37.