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