home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / TRANSPOS.ACO < prev    next >
Encoding:
Text File  |  1987-08-23  |  256 b   |  16 lines
  1.       Gr^transpose x<rx<i<o
  2. ;10[ rx^Rr^x
  3. ;20[ o^Lo
  4. ;30[ ~+1&RRx{/i^0
  5. ;40[ Lo^0
  6. ;50[ r^Irx;0[
  7. ;60[ lp>~++Rrx{(RRr^+Irx;i^i:1[{J.:rx;i:1[-r{/lp
  8. ;70[ rx^Rr
  9. ;80[ x^,x
  10. ;90[ r^,r
  11. ;100[ r^rxRx^x;r[
  12. ;110[ Lo^o
  13.       G
  14. 0[ l2>tcb^-/iURb
  15. ;100[ v^tcb-"1:Ixlb
  16. ;110[ e^