fr
?how_many? <1>
; sel/how_many
fr
?select? <2>
; sel/sel***
fr
?ali/sar? <3>
; ali/sar****
fr
?avg/avg? <4>
; avg/avg***
fr
?avg/var? <5>
; avg/var***

UD N,X20
<1>

x91=0

do lb1 x55=1,x20

ud ic,x55,x71
<1>

if(x71.eq.0) goto lb10
if(x71.gt.1) goto lb3

ud ic,1,x66
<2>x55

cp
<3>x66
<4>x55

ud ice
<2>x55

x91=x91+1

goto lb10

lb3

as r
<3>
<2>x55
A
<4>x55
<5>x55

x91=x91+1

lb10
lb1

ud ice
<1>

re