" <-APL2-------------------- sam270.txt ---------------------------->
" <- Pi times (O) -------------------------------------------------->
O1 -2 (2.75*2)
O3j2
" <- Pick (`X) ----------------------------------------------------->
)load cap2/help/help
L#r#'four' 'to' 'go'
`=r
L#z#2 `X r
(Rz),`=z
Lio # 0
1 `X r
Lio # 1
L#a#'s' 'si' ('sir' 'sire')
`=a
L#w#2 `X a
(Rw),`=w
L#x#3 `X a
(Rx),`=x
L#c#2 2R'one' 'two' 'buckle' ('my' 'shoe')
display c
(Rc),`=c
L#y#(`Z 2 2) `X c
(Ry),`=y
L#d#c,[.5]2 2 R 'three' 'four' 'shut' ('the' 'door')
display d
(Rd),`=d
L#q#(`Z 2 1 2) `X d
(Rq),`=q
L#q#'fly' 'paper'
2 4 `X q
L#s#2 3 R 'ab' 'cd' 'ef' 'gh' 'ij' 'kl'
(1 3) 2 `X s
L#m#'b' 'ba' ('bat' 'bath')
`=m
L#n#(I0) `X m
`=n
L#a#(I0) `X 0 2 R 0
`=a
L#h#2 2 R 'bucks' 'twang' 'lymph' 'froze'
display h
`=h
L#s#(2 1) 4 `X h
`=s
L#g#'i' 'am' ('for' 'apl2')
display g
`=g
L#t#3 2 `X g
(Rt),`=t
3 2 1 `X g
L#e#2 3R'cry' 'vox' 'kid' 'jab' (2 3 R I6) ('leg' 'nth')
display e
(Re),`=e
(2 2) (2 3) `X e
L#u#(2 3) 2 `X e
`=u
L#j#(2 3) 2 3 `X e
`=j
k#'elm' 'tax' 'spy' 'job' 'win'
L#k#2 3Rk, `Z (2 2 R 'que' 'zig' 'had' 'for')
display k
(Rk),`=k
L#p#(2 3)(1 2) `X k
(Rp),`=p
L#i#(2 3)(1 2) 3 `X k
(Ri),`=i
)off