home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol081 / procs.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  1KB  |  36 lines
  1. { This file includes declarations of useful external
  2.   procedures and functions.  It should be included
  3.   before the first procedure of the program.  }
  4.  
  5. { Return length of string S }
  6.  
  7. function length (S : string255) : integer;
  8.   external;
  9.  
  10. { Return position of S2 in S1 }
  11.  
  12. function index (S1, S2 : string255) : integer;
  13.   external;
  14.  
  15. { Set length of string S to L }
  16.  
  17. procedure setlength (var S : string0; L : integer);
  18.   external;
  19.  
  20. { Append blanks to a string until specified length
  21.   is achieved. }
  22.  
  23. procedure pad (var str : string0; len : byte);
  24.  
  25. begin
  26. while length(str) < len do append(str,blank)
  27. end; { pad }
  28.  
  29. { Return amount of spare memory available.  If this function is called,
  30.   SPACE.REL must be linked with the Pascal program.  The number returned
  31.   is the address of the top of the stack minus the address of the top of
  32.   the heap.  This is a 16-bit unsigned integer, and if it is greater than
  33.   32767 it cannot be printed correctly by Pascal.  Note also that calling
  34.   this function reduces the amount of spare memory slightly. }
  35.  
  36. function space : integer; external;