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 >
Wrap
Text File
|
2000-06-30
|
512b
|
16 lines
(* includable module for string functions, declarations *)
(*$x+,h+ allow multiple declaration sections *)
CONST
eos = (:0:); (* end of string marker *)
(*$s+*)
maxstring = 80;
xmaxstring = 81; (* maxstring + 1 *)
TYPE
xstrindex = 0..maxstring;
strindex = 1..maxstring;
xxstrindex = 1..xmaxstring;
string = PACKED ARRAY[xxstrindex] OF char; (* eos terminated *)
(*$x- restore options *)
é8