/#
//
RM
%[1;74H      %*%%
*C COPY ROW OF DATA
*C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
TE *U HERE
TE T-1.\R=%
TE U-2.\S=%
%[0qGive Start Cell of Row>%L %\
TE *U HERE
TE T-1.\B=%
TE U-2.\C=%
%Give End Cell of Row>%L %\
TE *U HERE
TE T-1.\D=%
TE U-2.\E=%
%Give Bottom Left of Left Column>%L %\
TE *U HERE
TE T-1.\F=%
TE U-2.\G=%
L A1
TE G-C+1.\H=%
TE B+1.\I=%
*C MOVE INNER LOOP TO INSIDE A CELL FOR SPEED
CA A1 A0
EV J=C+1.\*U XQTCM CR P#%BC:P#%DE P#%BJ:P#%DJ\C=J\E=E+1.\H=H-1.\<
R
CA A0 A1
*C SHOULD BE DONE HERE. EXIT.
L A1
L P#%RS
RF
/#

