home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff594.lzh / AnalyRimSrc / AnaRimSrcDoc.Zoo / akfb.cmd < prev    next >
OS/2 REXX Batch file  |  1991-10-02  |  618b  |  41 lines
  1. /#
  2. //
  3. RM
  4. %4H      %*%%
  5. *C COPY COL OF DATA
  6. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  7. TE P=%\*U HERE \*C
  8. TE T-1.\R=% \*C
  9. TE U-2.\S=% \*C
  10. %qGive 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. TE C+1.\J=% \*C
  26. *CLOOP
  27. *C LOOP
  28. *COOP
  29. CR P#%BC P#%IC:P#%DE
  30. TE C+1.\C=% \*C
  31. TE E+1.\E=% \*C
  32. TE H-1.\H=% \*C
  33. TE *F LOOP \*C
  34. *C SHOULD BE DONE HERE. EXIT.
  35. L A1
  36. L P#%RS
  37. TE %=P \*C
  38. RF
  39. /#
  40.  
  41.