/      RETURNS A-D CHAN N VALUE
/      FUNCTION INPUT(N)
ENTRY INPUT
INPUT, BLOCK 2
DUMMY \N
TAD I INPUT
DCA \N
INC INPUT#
TAD I INPUT
DCA \N#
INC INPUT#
TAD I \N
TAD (100
DCA NSAM
     6141
     NSAM,0
     2
RETRN INPUT
\N, BLOCK 2
END