.SD;.FL CAPITALIZE
.TITLE POS - POS
.PAGE
.INDENT 50
POS
.SKIP 1
.CENTER
POS - POS
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: POS\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO FIND A SUBSTRING WITHIN A STRING OF BYTES.  ^THE <STRING PARAMETER IS SEARCHED U 
SEARCHED UP TO <MAXLEN BYTES.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN (SEE <SETMAX)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SK;.I -9
^^STRING\\---^THE STRING TO BE SEARCHED FOR <SUBSTR.  <STRING MUST BE TERM
INATED BY A NULL.
.SK;
.I -9
^^SUBSTR\\---^THE SUBSTRING TO HUNT FOR IN <STRING.  <SUBSTR MUST BE 
TERMINATED BY A NULL.
.SK;.I -9
^^POINTR\\---^THE <FORTRAN INDEX TO THE FIRST BYTE OF OCCURANCE OF <SUBSTR
IN <STRING.  ^IF <SUBSTR IS NOT FOUND AFTER <MAXLEN BYTES A ZERO IS 
RETURNED FOR <POINTR.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ ^ITS OBVIOUS.
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JUNE 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <POS
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10