10    ! Test program to check VTH measurement compatibility
20    ! with an existing 4145B program. VTH=Vg @ Id=1uA
30    !
40    ! DEVICE CONNECTIONS: Source    is SMU1 <COMMON)
50    !                     Gate      is SMU2
60    !                     Drain     is SMU3
70    !                     Substrate is SMU4
80    !
90     ASSIGN @Dev TO 800
100    DIM Vg(400)
110    DIM Vd(400)
120    DIM Id(400)
130    Vgstart=0
140    Vgstop=1
150    Vginc=.01
160    Idc=.0001
170    OUTPUT @Dev;"IT1 CA1 DRO BC"
180    OUTPUT @Dev;"DE CH1,'VS','IS',3,3"  !source COMMON
190    OUTPUT @Dev;"CH2,'VG','IG',1,1"     !gate   VAR1
200    OUTPUT @Dev;"CH3,'VD','ID',1,3"     !drain  CONST
210    OUTPUT @Dev;"CH4,'VSUB','ISUB',1,3" !subst  CONST
220    OUTPUT @Dev;"VS1;VS2;VM1;VM2"       !other chans OFF
230    OUTPUT @Dev;"SS VR1,";Vgstart,Vgstop,Vginc,.001
240    OUTPUT @Dev;"VC3,";.1,Idc           !VD=.1V
250    OUTPUT @Dev;"VS4,";0,.01            !Vsub=0
260    OUTPUT @Dev;"SM DM1 XN 'VG',1,";Vgstart,Vgstop!Xaxis
270    OUTPUT @Dev;"YA 'ID',1,0,";Idc      !Yaxis
280    OUTPUT @Dev;"MD ME1"                !trigger sweep
290    GOSUB Not_done
300 Not_done:   !-------Routine to poll 4145 data ready
310      A=SPOLL(@Dev)
320      IF BIT(A,0)=0 THEN Not_done
330    OUTPUT @Dev;"DO 'ID'"               !ID to buffer
340    END
