$
C0I(2)=I2N8
C0Z=/I6K21
U10K20=[C0W=1]
U10K0=/U10K20
;RABI X
U10K8=I0K2
;RABI Y
U10K9=I0K2
;RABI Z
U10K10=I0K2
;COMU
U10K24=I0K8*I0K9*I0K10
;CEFA
U10K25=I0K2
;      X,Y,Z,T
U202K0=/I2N14
;=================================================
; 
;  ''   
U20K0=MUX(1,0),(I0K2,U10K0)
;     0  99
DOF:I4K17
    W18K1=LOW(W2K2)
    W18K1=XCH(W18K1)
    W18K2=HIG(W2K2)
ENDF
