1    REMARK:  CHRISTOPHER WELLS 
5   REMARK:
10 REMARK:    ONLINE EXPERIMENT COMMAND AND CONTROL SYSTEM
11 REMARK:    SAMPLE AND DISPLAY ANALOG CHANNELS 0-7 /1KHZ
12 REMARK:    SIGNAL PROCESSING DIAGNOSTIC TEST
13 REMARK:
30    UDEF INI(N),PLY(Y),DLY(N),DIS(S,E,N,X)
40    UDEF SAM(C,N,P,T),CLK(R,O,S),CLW(N),ADC(N)
50    UDEF GET(M,L),PUT(M,L),DRI(N),DRO(M,N)
60    DIM A(342)
200   USE A
201   LET P0=1
202   LET P1=1024
203   LET N=1
204   LET X0=0
205   LET C0=0
206   LET C7=1
207   LET P=1024
208   LET M0=0
209   LET K1=3
210   LET T1=1
211   LET S0=0
212   LET Q=0
213   LET X1=1
214   LET S1=1
215   W=INI(Q)
220   W=DIS(P0,P1,N,X0)
240   X=SAM(C0,C7,P,M0)
260   Y=CLK(K1,T1,S0)
280   Z=DIS(P0,P1,N,X1)
10000 END