home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / pascal / strings.lbr / STRINGS.DEC < prev    next >
Encoding:
Text File  |  1987-02-28  |  512 b   |  16 lines
  1. (* includable module for string functions, declarations *)
  2. (*$x+,h+ allow multiple declaration sections *)
  3.  
  4.   CONST
  5.     eos         = (:0:);   (* end of string marker *)
  6. (*$s+*)
  7.     maxstring   = 80;
  8.     xmaxstring  = 81;      (* maxstring + 1 *)
  9.  
  10.   TYPE
  11.     xstrindex   = 0..maxstring;
  12.     strindex    = 1..maxstring;
  13.     xxstrindex  = 1..xmaxstring;
  14.     string      = PACKED ARRAY[xxstrindex] OF char; (* eos terminated *)
  15. (*$x- restore options *)
  16. é8