% `scr+.m4'
.PS
cct_init

[S:scr(right_ dimen_,,,E)
"T1" at last [].T1 rjust
"T2" at last [].T2 ljust]
{`"\tt scr(right\_ dimen\_,,,E)"' at last [].s+(0,-0.2) }

move right_ 1
[S:scr(,R,,)
"T1" at last [].T1 rjust
"T2" at last [].T2 ljust]
{`"\tt scr(,R,,)"' with .c at (last [].s,last "".c) }

move right_
[S:scr(,,G,E)
"T1" at last [].T1 rjust
"T2" at last [].T2 ljust
"G" at last [].G ljust ]
{`"\tt scr(,,G,E)"' at last [].s+(0,-0.2) }

move right_
[S:scr(,R,G,E)
"T1" at last [].T1 rjust
"T2" at last [].T2 ljust
"G" at last [].G ljust ]
{`"\tt scr(,R,G,E)"' at last [].s+(0,-0.2) }

.PE