/#
//
RM 
TE I=C=D=E=0.00 \*C
%[1;74H      %*%%                           
*C CELL TO REGION OF WHICH IT'S UPPER LEFT CORNER
*C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
TE *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                        
CR P#%BC P#%BJ:P#%FG                                         
CA A1 A0                                                
EV P##                                                      
DF A1 [*]                                                                      
EV *U XQTCM CR P#%BC P#%IC:P#%DE \C=C+1.\E=E+1.\H=H-1.\< 
R                                                       
CA A0 A1                                                
*C SHOULD BE DONE HERE. EXIT.
L A1
L P#%RS                                                   
/#
