apl>" <------------------------- sam124.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac av collect


apl>)copy cap2/handbook/wksp/df diff dlb dltmb drep erect H


apl>)copy cap2/handbook/wksp/jl kform ljnform


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


apl>)copy cap2/handbook/wksp/su shape


apl>drep 1 2 3 4 5 4 3 2 1

1 2 3 4 5

apl>7 16 47 90 89 58 30 9 24 74 35 collect 10 1 1 6 8 1 5 1 5 8 7

10   7
 1 130
 6  90
 8 163
 5  54
 7  35

apl>L#cars#' 'shape'buick oldsmobile pontiac chevrolet cadillac studebaker'

buick     
oldsmobile
pontiac   
chevrolet 
cadillac  
studebaker


apl>" random pattern of occurrence L#i#?11R6


apl>i#3 1 4 5 2 3 1 4 5 2 3


apl>" tallies, corresponding to car-codes L#vv#11?99


apl>vv#98 99 23 27 68 58 32 93 79 17 29


apl>" re-translated, for reporting purpose


apl>(av kform, 0 -1Ur),F0 1Ur#vv collect av ljnform cars[i;]

pontiac    185
buick      131
chevrolet  116
cadillac   106
oldsmobile  85

apl>)off