home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol062 / stdfunc.top < prev    next >
Encoding:
Text File  |  1984-04-29  |  558 b   |  28 lines
  1. {++++++++++++++++++++++++++++++++++++++++}
  2. {+  STANDARD FUNCTIONS ROUTINES     +}
  3. {+  for KFORMAT Text Output Processor.    +}
  4. {++++++++++++++++++++++++++++++++++++++++}
  5.  
  6.  
  7. {
  8.     fatal error termination.
  9. }
  10. Procedure HALT(M:MSTRING); external;
  11.  
  12. Function length(x: S$255): integer; external;
  13.  
  14. Function INDEX(PATTERN,SOURCE:S$255): integer; EXTERNAL;
  15.  
  16. FUNCTION POS(SOURCE,PATTERN:S$255):integer;
  17. BEGIN  POS := INDEX(PATTERN,SOURCE);
  18. END;
  19.  
  20. Procedure setlength(var x: S$0; y: integer); external;
  21.  
  22. {$iCOPY.LIB }
  23.  
  24. {$iDELETE.LIB }
  25.  
  26. {$iINSERT.LIB }
  27.  
  28.