.TITLE NXTSEQ - SEQUENCE RETRIEVAL ROUTINE
.PAGE
.INDENT 50
NXTSEQ
.SKIP 1
.CENTER
NXTSEQ - SEQUENCE RETRIEVAL ROUTINE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: NXTSEQ\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^^NXTSEQ\\ WILL RETURN THE ^TOKEN ^STRING THAT IS THE 
LOGICAL SUCCESSOR OF THE LAST ^TOKEN RETRIEVED.  ^THE
FIRST CALL TO ^^NXTSEQ\\ WILL RETURN THE BEGINNING ^TOKEN.
^THE LAST CALL RETURNS THE TERMINATING SEQUENCE. (SEE THE SETSEQ DOCUMENTATION)
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN--- CALL NXTSEQ(TABLE,STRING,ERR)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ .
.SKIP;.INDENT -9
^^TABLE\\----^THE SAME TABLE INITALIZED BY ^^SETSEQ\\.
.SKIP;.INDENT -9
^^STRING\\---^A BYTE ARRAY IN WHICH THE NEXT LOGICAL TOKEN FROM
THE SEQUENCE WILL BE STORED.  ^^STRING\\ MUST BE ^^WIDTH\\ BYTES LONG.  ^SEE ^^SETSEQ\\ PARAMETERS.
.SKIP;.INDENT -9
^^ERR------ERR\\=1 SEQUENCE HAS FINISHED
^^ERR=0\\  ERROR IN SEQUENCE
^^ERR\\=-1 SUCCESSFUL RETURN.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS OF ^^CETUS\\ ^CORP.
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JUNE 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\^^SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^NXTSEQ
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10