home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 2 / CDPD_II_2352.bin / applications / analyticalc / akca.cmd < prev    next >
OS/2 REXX Batch file  |  1992-01-01  |  1KB  |  38 lines
  1. /#
  2. //
  3. RM 
  4. TE I=C=D=E=0.00 \*C
  5. %      %*%%                           
  6. *C CELL TO REGION OF WHICH IT'S UPPER LEFT CORNER
  7. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  8. TE *U HERE     \*C                              
  9. TE T-1.\R=%    \*C
  10. TE U-2.\S=%    \*C
  11. %Give Start Cell of Row>%L %\
  12. TE *U HERE  \*C
  13. TE T-1.\B=%  \*C
  14. TE U-2.\C=% \*C
  15. %Give End Cell of Row>%L %\
  16. TE *U HERE  \*C
  17. TE T-1.\D=% \*C
  18. TE U-2.\E=% \*C
  19. %Give Bottom Left of Left Column>%L %\
  20. TE *U HERE \*C
  21. TE T-1.\F=% \*C
  22. TE U-2.\G=% \*C
  23. L A1
  24. TE G-C+1.\H=% \*C
  25. TE B+1.\I=% \*C
  26. TE C+1.\J=%   \*C                        
  27. CR P#%BC P#%BJ:P#%FG                                         
  28. CA A1 A0                                                
  29. EV P##                                                      
  30. DF A1 [*]                                                                      
  31. EV *U XQTCM CR P#%BC P#%IC:P#%DE \C=C+1.\E=E+1.\H=H-1.\< 
  32. R                                                       
  33. CA A0 A1                                                
  34. *C SHOULD BE DONE HERE. EXIT.
  35. L A1
  36. L P#%RS                                                   
  37. /#
  38.