home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug172.arc
/
APL-Z.LBR
/
TRANSPOS.ACO
< prev
next >
Wrap
Text File
|
1979-12-31
|
256b
|
16 lines
Gr^transpose x<rx<i<o
;10[ rx^Rr^x
;20[ o^Lo
;30[ ~+1&RRx{/i^0
;40[ Lo^0
;50[ r^Irx;0[
;60[ lp>~++Rrx{(RRr^+Irx;i^i:1[{J.:rx;i:1[-r{/lp
;70[ rx^Rr
;80[ x^,x
;90[ r^,r
;100[ r^rxRx^x;r[
;110[ Lo^o
G
0[ l2>tcb^-/iURb
;100[ v^tcb-"1:Ixlb
;110[ e^