.NONUMBER
.TITLE <XFRC - ^^CHARACTER TRANSFER SUBROUTINE\\
.PAGE
.INDENT 50
<XFRC
.SKIP 1
.CENTER
<XFRC - ^^CHARACTER TRANSFER SUBROUTINE\\
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <XFRC\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TRANSFERS <LEN CHARACTERS FROM <INBUF TO <OUTBUF.  <LEN DEFAULTS TO
<MAXLEN FROM THE <SETMAX ROUTINE.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^FROM <FORTRAN -- ^^CALL XFRC(STR1,[LEN],STR2)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP
.INDENT -9
<STR1 --- STRING FROM WHICH CHARACTERS ARE TO BE TRANSFERED FROM.
.INDENT -9
<LEN  ---- OPTIONAL LENGTH PARAMETER.
.INDENT -9
<STR2  --- STRING WHICH WILL RECIEVE THE TRANSFERED CHARACTERS.
.SKIP 1
.LM 10
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ OPEN
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^JACK MARTINELLI\\
.SKIP 1
.INDENT -10
^^WRITTEN:\\ <JUNE 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <XFRC
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]MIKES
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10