.SD;.FLAGS CAPITALIZE
.TITLE SETDEF - SETTING DEFAULT KEY SEQUENCES
.PAGE
.INDENT 50
SETDEF
.SKIP 1
.CENTER
SETDEF - SETTING DEFAULT KEY SEQUENCES
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: SETDEF\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^FOR ANY KEY THE DEFUALT FOR A FIELD IS '_\_\_\_\_\_\_\'.  ^THIS
CAN BE CHANGED BY SPECIFYING THE FIELD NUMBER (MUST BE
LESS THAN OR EQUAL TO 10) AND THE NEW SEQUENCE.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN--CALL SETDEF(MAX,NO,STR)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP;.INDENT -9
^^MAX------T\\HE MAXIMUM NUMBER OF SEQUENCES TO LOOK AT- MUST BE 
LESS THAN OR EQUAL TO 10.
.SKIP;.INDENT -9
^^NO-------T\\HE NUMBER OF THE FIELD YOU WISH TO CHANGE.
.SKIP;.INDENT -9
^^STR------P\\OINTER TO THE STRING TO BE THE DEFAULT
SEQUENCE.  ^THIS STRING MUST BE TERMINATED BY A NULL,
AND CANNOT BE MODIFIED UNLESS YOU CHANGE THE DEFAULT 
OR STOP USING ^^SETSEQ.\\
.SKIP
^IF THERE IS NO ^^STR\\ PARAMETER THE ^^NO\\'TH SEQUENCE
IS RESET TO '_\_\_\_\_\_\_\'.  ^IF THERE IS NOT A ^^NO\\ PARAMETER
ALL OF THE ^^MAX\\'TH SEQUENCES ARE RESET TO '_\_\_\_\_\_\_\'
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^SETSEQ
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.SKIP
.LEFT MARGIN 2
.NO FILL
^^C
C	CHANGE THE 8TH FIELD'S DEFAULT TO 1>99999
C
	^^CALL SETDEF(8,8,'1>99999')
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^SETDEF
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^SEE ^MIKE ^HIGGINS OR ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10