" <-APL2-------------------- sam259.txt ---------------------------->
" <- Grade Up (z#Ar) pp 153-159 ------------------------------------>
" ------------------------------------------------------------------
dcs#' ','ABCDEFGHIJKLMNOPQRSTUVWXYZ',[.5]'abcdefghijklmnopqrstuvwxyz'
dcs#(dcs,[1]((8,-1YRdcs))R' '),,F10 1R-1+I10
dcs
" ------------------------------------------------------------------
Lio#0
A z # 23 11 13 31 12
Lio # 1
z[L # A z]
A 23 14 23 12 14
" ------------------------------------------------------------------
L#b#5 3 R 4 16 37 2 9 26 5 11 63 3 18 45 5 11 54
b[L # A b;]
c#4 23 54 28 2 11 51 26
c#c,4 29 17 43 3 19 32 41
c#3 2 4Rc,4 23 54 28 1 25 31 16
c
Ac
c[Ac;;]
" ------------------------------------------------------------------
Lio#0
'abcde'A'bead'
Lio#1
'abcde'A'bead'
L#a#5 4R'deadbadecedebeaddeed'
'abcde'Aa
c#'face$'
b#'@$&abcdef'
bAc
c[bAc]
" ------------------------------------------------------------------
dcs A 'AVENUE'
dcs A h#'LWLOIBY'
h[dcs A h]
L # m # dcs A L # k # 5 4 R 'sent zapdownalsoboa '
k[m;]
" ------------------------------------------------------------------
L#k#5 4R'dealDealdeadDeadDEED'
L#h#2 12R'abcdefghijklABCDEFGHIJKL'
L#z#hAk
k[z;]
" ------------------------------------------------------------------
L#s # `X 'X1' 'X10' 'X2' 'X21' 'X3' 'X9' 'X11' 'x3'
s[L#dcsAs;]
" ------------------------------------------------------------------
'abcde'A'dabbed'
L#w#'abcde'A'exact'
'exact'[w]
)off