! - - - - - - - - - -	!
!			!
! STORE THE USER'S UIC	!
! STRING THE THE FORM	!
! [GGG,MMM] IN Q-REG C	!
!			!
! - - - - - - - - - -	!
!			!
! CLOSE OUT EI FILE	!
! (NOT NEEDED IF RUN	!
!  FROM A Q-REGISTER)	!
!			!
@EI%%
!			!
! SAVE CURRENT CONTEXT	!
!			!
[A ^RUA [A ZUA [A .UA ZJ
!			!
! PUT THE STRING AT THE	!
! END OF THE BUFFER	!
!			!
@I%[% ^O2EJ/400\ @I%,% 2EJ&377\ @I%]%
!			!
! RESTORE CONTEXT AND	!
! PUT INTO Q-REG C	!
!			!
QAJ ]A QA,ZXC QA,ZK ]A QA^R ]A
!			!
! FINALLY, TWO ESCAPES	!
!			!