apl>" <------------------------- sam117.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac char


apl>)copy cap2/handbook/wksp/df H


apl>)copy cap2/handbook/wksp/mo onesin


apl>Lio # 0


apl>onesin L#a#2 3 4RI5

0 1 2 3
4 0 1 2
3 4 0 1

2 3 4 0
1 2 3 4
0 1 2 3

0 0 0 1 1
0 1 2 1 2
1 2 3 0 1

apl>'x' char L # pattern # (`Opattern) V pattern # (I5) J.= I5

1 0 0 0 1
0 1 0 1 0
0 0 1 0 0
0 1 0 1 0
1 0 0 0 1

x   x
 x x 
  x  
 x x 
x   x

apl>)off