apl>" <-APL2-------------------- sam259.txt ---------------------------->


apl>" <- Grade Up (z#Ar) pp 153-159 ------------------------------------>


apl>" ------------------------------------------------------------------


apl>dcs#' ','ABCDEFGHIJKLMNOPQRSTUVWXYZ',[.5]'abcdefghijklmnopqrstuvwxyz'


apl>dcs#(dcs,[1]((8,-1YRdcs))R' '),,F10 1R-1+I10


apl>dcs

 ABCDEFGHIJKLMNOPQRSTUVWXYZ0
 abcdefghijklmnopqrstuvwxyz1
                           2
                           3
                           4
                           5
                           6
                           7
                           8
                           9

apl>" ------------------------------------------------------------------


apl>Lio#0


apl>A z # 23 11 13 31 12

1 4 2 0 3

apl>Lio # 1


apl>z[L # A z]

2 5 3 1 4

11 12 13 23 31

apl>A 23 14 23 12 14

4 2 5 1 3

apl>" ------------------------------------------------------------------


apl>L#b#5 3 R 4 16 37 2 9 26 5 11 63 3 18 45 5 11 54

4 16 37
2  9 26
5 11 63
3 18 45
5 11 54


apl>b[L # A b;]

2 4 1 5 3

2  9 26
3 18 45
4 16 37
5 11 54
5 11 63

apl>c#4 23 54 28 2 11 51 26


apl>c#c,4 29 17 43 3 19 32 41


apl>c#3 2 4Rc,4 23 54 28 1 25 31 16


apl>c

4 23 54 28
2 11 51 26

4 29 17 43
3 19 32 41

4 23 54 28
1 25 31 16

apl>Ac

3 1 2

apl>c[Ac;;]

4 23 54 28
1 25 31 16

4 23 54 28
2 11 51 26

4 29 17 43
3 19 32 41

apl>" ------------------------------------------------------------------


apl>Lio#0


apl>'abcde'A'bead'

2 0 3 1

apl>Lio#1


apl>'abcde'A'bead'

3 1 4 2

apl>L#a#5 4R'deadbadecedebeaddeed'

dead
bade
cede
bead
deed


apl>'abcde'Aa

2 4 3 1 5

apl>c#'face$'


apl>b#'@$&abcdef'


apl>bAc

5 2 3 4 1

apl>c[bAc]

$acef

apl>" ------------------------------------------------------------------


apl>dcs A 'AVENUE'

1 3 6 4 5 2

apl>dcs A h#'LWLOIBY'

6 5 1 3 4 2 7

apl>h[dcs A h]

BILLOWY

apl>L # m # dcs A L # k # 5 4 R 'sent zapdownalsoboa '

sent
 zap
down
also
boa 

2 4 5 3 1


apl>k[m;]

 zap
also
boa 
down
sent

apl>" ------------------------------------------------------------------


apl>L#k#5 4R'dealDealdeadDeadDEED'

deal
Deal
dead
Dead
DEED


apl>L#h#2 12R'abcdefghijklABCDEFGHIJKL'

abcdefghijkl
ABCDEFGHIJKL


apl>L#z#hAk

3 4 1 2 5


apl>k[z;]

dead
Dead
deal
Deal
DEED

apl>" ------------------------------------------------------------------


apl>L#s # `X 'X1' 'X10' 'X2' 'X21' 'X3' 'X9' 'X11' 'x3'

X1 
X10
X2 
X21
X3 
X9 
X11
x3 


apl>s[L#dcsAs;]

1 3 5 8 6 2 7 4

X1 
X2 
X3 
x3 
X9 
X10
X11
X21

apl>" ------------------------------------------------------------------


apl>'abcde'A'dabbed'

2 3 4 1 6 5

apl>L#w#'abcde'A'exact'

3 4 1 2 5


apl>'exact'[w]

acext

apl>)off