home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / LANGUAGS / PASCAL / STRINGS.LBR / STRINGS.DEC < prev    next >
Text File  |  2000-06-30  |  512b  |  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