home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s038 / 1.ddi / SUPP.LIF / STRNG.EXT < prev    next >
Encoding:
Text File  |  1992-07-06  |  871 b   |  38 lines
  1. $save nolist
  2.  
  3. min$word: PROCEDURE(val1,val2)    WORD  EXTERNAL;
  4.     DECLARE
  5.         val1  WORD,
  6.         val2  WORD;
  7. END min$word;
  8.  
  9. concatenate$to$string: PROCEDURE(destination$p,destination$max,source$p,
  10.                                  source$length,status$p)    EXTERNAL;
  11.     DECLARE
  12.         destination$p        POINTER,
  13.         destination$max        WORD,
  14.         source$p            POINTER,
  15.         source$length        WORD,
  16.         status$p            POINTER;
  17. END concatenate$to$string;
  18.  
  19. concatenate$string: PROCEDURE(destination$p,destination$max,source$p,
  20.                               status$p)    EXTERNAL;
  21.     DECLARE
  22.         destination$p        POINTER,
  23.         destination$max        WORD,
  24.         source$p            POINTER,
  25.         status$p            POINTER;
  26. END concatenate$string;
  27.  
  28. move$string: PROCEDURE(destination$p,destination$max,source$p,
  29.                        status$p)    EXTERNAL;
  30.     DECLARE
  31.         destination$p        POINTER,
  32.         destination$max        WORD,
  33.         source$p            POINTER,
  34.         status$p            POINTER;
  35. END move$string;
  36.  
  37. $restore
  38.