.NONUMBER
.TITLE SUCC - ^SUCCESSOR FUNCTION
.PAGE
.INDENT 50
SUCC
.SKIP 1
.CENTER
SUCC - ^SUCCESSOR FUNCTION
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: SUCC\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^MODIFIES THE <STRING IN PLACE TO PRODUCE THE NEXT STRING IN A SEQUENCE.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ UNKNOWN
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ OPEN
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <SUCC
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]MIKES
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ LONG AGO
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10