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

