"4284all-bas"의 두 판 사이의 차이

1번째 줄: 1번째 줄:
10    ![[LCR-4284A.bas]] 4284A, 2017/03/10 2020/07/17(TCC추가)
+
[[LCR-4284A]]
 
<pre>
 
<pre>
 +
10    ![[LCR-4284A]] 2017/03/10 2020/07/17(TCC추가)
 
20    OPTION BASE 1
 
20    OPTION BASE 1
 
30    INTEGER I,Count,Btn
 
30    INTEGER I,Count,Btn

2020년 7월 17일 (금) 11:30 판

LCR-4284A

10     ![[LCR-4284A]] 2017/03/10 2020/07/17(TCC추가)
20     OPTION BASE 1
30     INTEGER I,Count,Btn
40     DIM Msg$[50],Id$[50],String$[50]
50     CLEAR SCREEN
60     GOSUB Fileopen
70     GOSUB Setup
80     GOSUB Funcselect
90     GOSUB Typeselect
100    OUTPUT @Lcr;"TRIG:SOUR INT"
110    STOP
120 Setup: !
130    ASSIGN @Lcr TO 717
140    REMOTE @Lcr
150   !OUTPUT @Lcr;"*RST"
160    OUTPUT @Lcr;"*CLS"
170    OUTPUT @Lcr;"*ESE 60"
180    OUTPUT @Lcr;"*SRE 32"
190    ON INTR 7 CALL Errors
200    ENABLE INTR 7;2
210    OUTPUT @Lcr;"*IDN?"
220    ENTER @Lcr;Id$
230    PRINT Id$
240    OUTPUT @Lcr;"TRIG:SOUR BUS"
250    OUTPUT @Lcr;"ABORT;:INIT"
260    RETURN
270 Fileopen:  !
280    DIM Filename$[20],Dhms$[8]
290    Time$=TIME$(TIMEDATE)
300    Date$=DATE$(TIMEDATE)
310    Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
320    Filename$=Dhms$&".txt"
330    CREATE Filename$,1
340    ASSIGN @File TO Filename$;FORMAT ON
350    RETURN
360 Typeselect: !
370    INTEGER Type_size,Type_length,Typeno
380    Type_size=10       !문자열 배열의 크기
390    Type_length=15     !문자열의 길이
400    ALLOCATE Type$(Type_size)[Type_length]
410    Type$(1)="Norm"
420    Type$(2)="Freq Sweep"
430    Type$(3)="Freq-48 Sweep"
440    Type$(4)="DC Bias Sweep"
450    Type$(5)="Osc Level Sweep"
460    Type$(6)="Time Sweep"
470    Type$(7)="Freq St-Sp"
480    Type$(8)="Freq 1k-1M"
490    Type$(9)="TCC"             !SU-222 오븐사용
500    Type$(10)="TC Freq Sweep"  !주파수스윕하면서
510    Msg$="테스트 종류를 선택하십시오."
520    DIALOG "LIST",Msg$,Btn;SET("ITEMS":Type$(*),"COLUMNS":Type_length,"ROWS":Type_size),RETURN("SELECTION":Typeno)
530    Typeno=Typeno+1
540    SELECT Type$(Typeno)
550    CASE "Norm"  !샘플이 있는지 없는지 자동 인식
560      INTEGER Go_count
570      Msg$="A-value lower limit"
580      DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
590      IF Btn=-1 OR Btn=1 THEN A_lcl=2.5E-11
600      A_lcl=VAL(String$)
610      Msg$="A-value upper limit"
620      DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
630      IF Btn=-1 OR Btn=1 THEN A_ucl=3.5E-11
640      A_ucl=VAL(String$)
650      Msg$="유효값 연속 횟수"
660      DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
670      IF Btn=-1 OR Btn=1 THEN Go_limit=5
680      Go_limit=VAL(String$)
690      Msg$="허용오차 [%]"
700      DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
710      IF Btn=-1 OR Btn=1 THEN A_err=.1
720      A_err=VAL(String$)
730      OUTPUT @File;"No, A, B, Vm[V], Im[A]"
740      Count=0
750      LOOP
760        Count=Count+1
770        REPEAT!샘플이 있나?
780          GOSUB Reading
790        UNTIL A>A_lcl AND A<A_ucl !LCL=lower control limit, UCL=upper control limit
800        Go_count=0
810        A_pre=A
820        REPEAT
830          GOSUB Reading
840          A_cur=A
850          IF A_cur=0 THEN STOP
860          A_delta=ABS((A_cur-A_pre)/A_cur)*100
870          IF A_delta<A_err THEN
880            Go_count=Go_count+1
890          ELSE 
900            Go_count=0
910          END IF 
920          A_pre=A_cur
930        UNTIL Go_count=Go_limit
940        PRINT "No.=";Count;",A=";A;",B=";B
950        OUTPUT @File;Count,A,B,Vm,Im
960        BEEP
970        REPEAT!샘플이 없나?
980          GOSUB Reading
990        UNTIL A<A_lcl OR A>A_ucl
1000     END LOOP 
1010   CASE "Freq Sweep"
1020     GOSUB Oscselect
1030     OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1040     OUTPUT @Lcr;"FREQ:CW? MIN"
1050     ENTER @Lcr;Freq_min  !20Hz
1060     OUTPUT @Lcr;"FREQ:CW? MAX"
1070     ENTER @Lcr;Freq_max  !1MHz
1080     Freq_octv=20 !20:std 50:nexvel spk:50
1090   ! Freq_min=1000!nexvel=20 spk=100    !!!!!!!!!!!!!!!!!!!!!!!!!
1100   ! Freq_max=10000 !nexvel=20,000 spk=10,000  !!!!!!!!!!!!!!!!!!!!
1110     Freq=Freq_min
1120     Count=0
1130     LOOP
1140       Count=Count+1
1150       IF Freq>Freq_max THEN Freq=Freq_max
1160       OUTPUT @Lcr;"FREQ:CW ";Freq     !command
1170       Freq=Freq*10^(1/Freq_octv)
1180       OUTPUT @Lcr;"FREQ:CW?"
1190       ENTER @Lcr;Freq_level
1200       GOSUB Reading
1210       PRINT "No.=";Count;",Freq=";Freq_level;"Hz,A=";A;",B=";B
1220       OUTPUT @File;Count,Freq_level,A,B,Vm,Im
1230       BEEP
1240     EXIT IF Freq>=Freq_max*1.01
1250     END LOOP 
1260     OUTPUT @Lcr;"VOLT:LEV 1V"        !init
1270   CASE "Freq St-Sp"
1280     GOSUB Oscselect
1290     OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1300     Freq_min=100  !100
1310     Freq_max=300  !1000
1320     Freq=Freq_min
1330     Count=0
1340     FOR Freq=Freq_min TO Freq_max STEP 1  !5
1350       Count=Count+1
1360       OUTPUT @Lcr;"FREQ:CW ";Freq      !command
1370       OUTPUT @Lcr;"FREQ:CW?"
1380       ENTER @Lcr;Freq_level
1390       GOSUB Reading
1400       PRINT "No.=";Count;",Freq=";Freq_level;"Hz,A=";A;",B=";B
1410       OUTPUT @File;Count,Freq_level,A,B,Vm,Im
1420       BEEP
1430     NEXT Freq
1440     OUTPUT @Lcr;"VOLT:LEV 1V"         !init
1450   CASE "Freq-48 Sweep"
1460     GOSUB Oscselect
1470     GOSUB Freq48
1480     OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1490     FOR I=1 TO 48
1500       OUTPUT @Lcr;"FREQ:CW ";Freq48(I)
1510       GOSUB Reading
1520       PRINT "No.=";I;",Freq=";Freq48(I);"Hz,A=";A;",B=";B
1530       OUTPUT @File;I,Freq48(I),A,B,Vm,Im
1540       BEEP
1550     NEXT I
1560     OUTPUT @Lcr;"VOLT:LEV 1V"         !init
1570   CASE "Freq 1k-1M"
1580     GOSUB Oscselect
1590     GOSUB Freq1k1m_read
1600     OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
1610     FOR I=1 TO 279
1620       OUTPUT @Lcr;"FREQ:CW ";Freq1k1m(I)
1630       GOSUB Reading
1640       PRINT "No.=";I;",Freq=";Freq1k1m(I);"Hz,A=";A;",B=";B
1650       OUTPUT @File;I,Freq1k1m(I),A,B,Vm,Im
1660       BEEP
1670     NEXT I
1680     OUTPUT @Lcr;"VOLT:LEV 1V"         !init
1690   CASE "DC Bias Sweep"
1700     GOSUB Freqselect
1710     GOSUB Oscselect
1720     OUTPUT @File;"No, DC-Bias[V], A, B, Vm[V], Im[A]"
1730     OUTPUT @Lcr;"BIAS:VOLT:LEV? MIN"
1740     ENTER @Lcr;Bias_min
1750     OUTPUT @Lcr;"BIAS:VOLT:LEV? MAX"
1760     ENTER @Lcr;Bias_max
1770     OUTPUT @Lcr;"BIAS:STAT ON"  ! DC BIAS ON
1780     Count=0
1790  !  FOR Bias=Bias_min TO Bias_max STEP .5  !0~40V
1800  !  FOR Bias=-40 TO +40 STEP .2              !0~5V NOP=100
1810     FOR Bias=-.1 TO +.1 STEP .001              !-100mA~+100mA
1820       Count=Count+1
1830   !   OUTPUT @Lcr;"BIAS:VOLT:LEV ";Bias      !command
1840       OUTPUT @Lcr;"BIAS:CURR:LEV ";Bias      !command
1850       GOSUB Reading
1860       PRINT "No.=";Count;",Bias=";Bias;"V,A=";A;",B=";B
1870       OUTPUT @File;Count,Bias,A,B,Vm,Im
1880       BEEP
1890     NEXT Bias
1900     OUTPUT @Lcr;"BIAS:VOLT:LEV 0V"           !command
1910     OUTPUT @Lcr;"BIAS:STAT OFF" ! DC BIAS OFF
1920   CASE "Osc Level Sweep"
1930     GOSUB Freqselect
1940     OUTPUT @File;"No, Osc-Level[V], A, B, Vm[V], Im[A]"
1950     OUTPUT @Lcr;"VOLT:LEV? MIN"
1960     ENTER @Lcr;Osc_min    !5mV
1970     OUTPUT @Lcr;"VOLT:LEV? MAX"
1980     ENTER @Lcr;Osc_max    !20V
1990     Osc_octv=20
2000     Osc=Osc_min
2010     Count=0
2020     LOOP
2030       Count=Count+1
2040       OUTPUT @Lcr;"VOLT:LEV ";Osc        !command
2050       Osc=Osc*10^(1/Osc_octv)
2060       OUTPUT @Lcr;"VOLT:LEV?"
2070       ENTER @Lcr;Osc_level
2080       GOSUB Reading
2090       PRINT "No.=";Count;",Osc=";Osc_level;"V,A=";A;",B=";B
2100       OUTPUT @File;Count,Osc_level,A,B,Vm,Im
2110       BEEP
2120     EXIT IF Osc>Osc_max
2130     END LOOP 
2140     OUTPUT @Lcr;"VOLT:LEV 1V"          !init
2150   CASE "Time Sweep"  !몇 초 간격으로 몇 회
2160     INTEGER Nop,L1,L2
2170     Msg$="시간간격 [ms]"
2180     DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
2190     IF Btn=-1 OR Btn=1 THEN STOP
2200     Period=VAL(String$)
2210     Msg$="측정횟수     "
2220     DIALOG "STRING",Msg$,Btn;RETURN("VALUE":String$)
2230     IF Btn=-1 OR Btn=1 THEN STOP
2240     Nop=VAL(String$)
2250     GOSUB Freqselect
2260     OUTPUT @File;"No, Time[S], A, B, Vm[V], Im[A]"
2270     Count=0
2280     T0=TIMEDATE
2290     T=TIMEDATE-T0       !second.
2300     LOOP
2310       Count=Count+1
2320       GOSUB Reading
2330       T1=Period/1000.*(Count-1)
2340       PRINT "No.=";Count;",Time=";T1;"s,A=";A;",B=";B
2350       OUTPUT @File;Count,T,A,B,Vm,Im
2360       BEEP
2370       LOOP
2380         T=TIMEDATE-T0         !second.
2390         IF T>3276.7 THEN
2400           L1=INT(T)
2410           L2=INT(Period/1000)
2420         ELSE 
2430           L1=INT(T*10)
2440           L2=INT(Period/100)
2450         END IF 
2460       EXIT IF (L1 MOD L2)=0
2470       END LOOP 
2480     EXIT IF Count=Nop
2490     END LOOP 
2500   CASE "TCC"
2510     ASSIGN @Su TO 701
2520     GOSUB Freqselect
2530     GOSUB Oscselect
2540     OUTPUT @File;"No, Time[m], Temp['C], A, B, Vm[V], Im[A]"
2550     Count=0
2560     Temp0=0
2570     T0=TIMEDATE
2580     LOOP
2590       T1=TIMEDATE-T0  !초단위
2600       OUTPUT @Su;"TEMP?"
2610       WAIT .1
2620       ENTER @Su;Temp,Tmp,Tmp,Tmp
2630       IF Temp0<>Temp THEN   !온도차이가 0.1도 이상 발생되면 LCR 값을 측정한다.
2640         Count=Count+1
2650         GOSUB Reading       !A,B,Vm,Im
2660         PRINT "No.=";Count;" Time=";T1;"s, Temp=";Temp;"'C, A=";A;", B=";B
2670         OUTPUT @File;T1/60.,Temp,A,B,Vm,Im
2680       END IF 
2690       Temp0=Temp
2700     END LOOP 
2710     OUTPUT @Su;"POWER,OFF"
2720   CASE "TC Freq Sweep"
2730     GOSUB Oscselect
2740     OUTPUT @File;"No, Freq[Hz], A, B, Vm[V], Im[A]"
2750     ASSIGN @Su TO 701
2760     Freq_min=100  !100
2770     Freq_max=300  !1000
2780     Count=0
2790     FOR Temp_set=-20 TO 60 STEP 10
2800       OUTPUT @Su;"TEMP,S";Temp_set      !해당온도로 세팅
2810       Set=0
2820       LOOP
2830         OUTPUT @Su;"TEMP?"
2840         WAIT .1
2850         ENTER @Su;Temp,Tmp,Tmp,Tmp
2860         IF Temp=Temp_set THEN
2870           Set=1
2880           WAIT 100     !100초동안 기다린다.
2890         END IF 
2900         IF Set=1 THEN
2910           OUTPUT @Su;"TEMP?"
2920           WAIT .1
2930           ENTER @Su;Temp,Tmp,Tmp,Tmp
2940         END IF 
2950       EXIT IF Set=1
2960       END LOOP       !현재 온도가 세팅온도가 되면 루프에서 탈출
2970       OUTPUT @File;Temp,"'C"
2980       FOR Freq=Freq_min TO Freq_max STEP 1  !5
2990         Count=Count+1
3000         OUTPUT @Lcr;"FREQ:CW ";Freq     !command
3010         OUTPUT @Lcr;"FREQ:CW?"
3020         ENTER @Lcr;Freq_level
3030         GOSUB Reading
3040         PRINT "No.=";Count;",Freq=";Freq_level;"Hz,A=";A;",B=";B
3050         OUTPUT @File;Count,Freq_level,A,B,Vm,Im
3060       NEXT Freq
3070     NEXT Temp_set
3080     OUTPUT @Su;"POWER,OFF"
3090   END SELECT 
3100   RETURN
3110 Funcselect:!
3120   INTEGER Func_size,Func_length,Funcno
3130   Func_size=20       !문자열 배열의 크기
3140   Func_length=5      !문자열의 길이
3150   ALLOCATE Funcdis$(Func_size)[Func_length]
3160   DATA "Cp-D","Cp-Q","Cp-G","Cp-Rp","Cs-D","Cs-Q","Cs-Rs"
3170   DATA "Lp-Q","Lp-D","Lp-G","Lp-Rp","Ls-D","Ls-Q","Ls-Rs"
3180   DATA "R-X","Z-deg","Z-rad","G-B","Y-deg","Y-rad"
3190   FOR I=1 TO Func_size
3200     READ Funcdis$(I)
3210   NEXT I
3220   ALLOCATE Func$(Func_size)[Func_length]
3230   DATA "CPD","CPQ","CPG","CPRP","CSD","CSQ","CSRS"
3240   DATA "LPQ","LPD","LPG","LPRP","LSD","LSQ","LSRS"
3250   DATA "RX","ZTD","ZTR","GB","YTD","YTR"
3260   FOR I=1 TO Func_size
3270     READ Func$(I)
3280   NEXT I
3290   Msg$="테스트 종류를 선택하십시오."
3300   DIALOG "LIST",Msg$,Btn;SET("ITEMS":Funcdis$(*),"COLUMNS":Func_length,"ROWS":Func_size),RETURN("SELECTION":Funcno)
3310   IF Btn=-1 OR Btn=1 THEN STOP
3320   Funcno=Funcno+1
3330   OUTPUT @Lcr;"FUNC:IMP:TYPE ";TRIM$(Func$(Funcno))
3340   RETURN
3350 Oscselect:  !
3360   INTEGER Osc_size,Osc_length,Oscno
3370   Osc_size=5         !문자열 배열의 크기
3380   Osc_length=5       !문자열의 길이
3390   ALLOCATE Oscdis$(Osc_size)[Osc_length]
3400   Oscdis$(1)="0.02V"  !diode
3410   Oscdis$(2)="0.05V"
3420   Oscdis$(3)="0.1V"
3430   Oscdis$(4)="0.5V"
3440   Oscdis$(5)="1V"
3450   Msg$="측정 전압을 선택하십시요"
3460   DIALOG "LIST",Msg$,Btn;SET("ITEMS":Oscdis$(*),"COLUMNS":Osc_length,"ROWS":Osc_size),RETURN("SELECTION":Oscno)
3470   IF Btn=-1 OR Btn=1 THEN STOP
3480   Oscno=Oscno+1
3490   OUTPUT @Lcr;"VOLT ";TRIM$(Oscdis$(Oscno))
3500   RETURN
3510 Freqselect:  !
3520   INTEGER Freq_size,Freq_length,Freqno
3530   Freq_size=5        !문자열 배열의 크기
3540   Freq_length=5      !문자열의 길이
3550   ALLOCATE Freqdis$(Freq_size)[Freq_length]
3560   Freqdis$(1)="1KHZ"
3570   Freqdis$(2)="1MHZ"
3580   Freqdis$(3)="214HZ"
3590   Freqdis$(4)="330HZ"
3600   Freqdis$(5)="355HZ"
3610   Msg$="주파수를 선택하십시오."
3620   DIALOG "LIST",Msg$,Btn;SET("ITEMS":Freqdis$(*),"COLUMNS":Freq_length,"ROWS":Freq_size),RETURN("SELECTION":Freqno)
3630   IF Btn=-1 OR Btn=1 THEN STOP
3640   Freqno=Freqno+1
3650   OUTPUT @Lcr;"FREQ ";TRIM$(Freqdis$(Freqno))
3660   RETURN
3670 Freq48:   !
3680   DIM Freq48(48)
3690   DATA 20,25,30,40,50,60,80
3700   DATA 100,120,150,200,250,300,400,500,600,800
3710   DATA 1000,1200,1500,2000,2500,3000,4000,5000,6000,8000
3720   DATA 10000,12000,15000,20000,25000,30000,40000,50000,60000,80000
3730   DATA 100000,120000,150000,200000,250000,300000,400000,500000,600000,800000
3740   DATA 1000000
3750   FOR I=1 TO 48
3760     READ Freq48(I)
3770   NEXT I
3780   RETURN
3790 Freq1k1m_read:   !
3800   DIM Freq1k1m(279)
3810   DATA 1,1.00806,1.01351,1.01695,1.02459,1.0274,1.03448,1.04167,1.05263,1.05634
3820   DATA 1.05932,1.07143,1.07759,1.08696,1.0909,1.09649,1.10294,1.11111,1.11607,1.1194
3830   DATA 1.13208,1.13637,1.15385,1.15741,1.17188,1.17647,1.17925,1.19048,1.2,1.20192
3840   DATA 1.20968,1.22449,1.22549,1.22951,1.25,1.27119,1.27551,1.2766,1.2931,1.30208
3850   DATA 1.30435,1.31579,1.32979,1.33929,1.3587,1.36364,1.38889,1.39535,1.41509,1.42045
3860   DATA 1.42857,1.44231,1.45349,1.46341,1.47059,1.4881,1.5,1.52439,1.53061,1.53846
3870   DATA 1.5625,1.57895,1.59574,1.60256,1.62612,1.63043,1.64474,1.66667,1.68919,1.70455
3880   DATA 1.71429,1.73611,1.74419,1.76471,1.78571,1.81818,1.82927,1.83824,1.875,1.89394
3890   DATA 1.92308,1.93548,1.95313,1.97368,2,2.01613,2.02703,2.06897,2.08333,2.14286
3900   DATA 2.15517,2.20588,2.22222,2.23214,2.27273,2.30769,2.31481,2.34375,2.4,2.40385
3910   DATA 2.41935,2.5,2.58621,2.60417,2.6087,2.67857,2.71739,2.72727,2.77778,2.84091
3920   DATA 2.85714,2.88462,2.97619,3,3.125,3.15789,3.26087,3.28947,3.33333,3.40909
3930   DATA 3.47222,3.52942,3.57143,3.67647,3.75,3.90625,3.94737,4,4.16667,4.28571
3940   DATA 4.41176,4.46429,4.61538,4.6875,4.80769,5,5.17241,5.20833,5.21739,5.35714
3950   DATA 5.43478,5.45455,5.55556,5.68182,5.71429,5.76923,5.95238,6,6.25,6.31579
3960   DATA 6.52174,6.57895,6.66666,6.81818,6.94444,7.05882,7.14286,7.35294,7.5,7.8125
3970   DATA 7.89474,8,8.33333,8.57243,8.82352,8.92857,9.23077,9.375,9.61538,10
3980   DATA 10.3448,10.4167,10.4348,10.7143,10.8696,10.9091,11.1111,11.3636,11.4286,11.5385
3990   DATA 11.9048,12,12.5,12.6316,13.0435,13.1579,13.3333,13.6364,13.8889,14.1176
4000   DATA 14.2857,14.7059,15,15.625,15.7895,16,16.6667,17.1429,17.6471,17.8571
4010   DATA 18.4615,18.75,19.2308,20,20.6897,20.8333,20.8696,21.4286,21.7391,21.8182
4020   DATA 22.2222,22.7272,22.8571,23.0769,23.8095,24,25,25.2632,26.087,26.3158
4030   DATA 26.6667,27.2727,27.7778,28.2353,28.5714,29.4118,30,31.25,31.5789,32
4040   DATA 33.3333,34.2857,35.2941,35.7143,36.9231,37.5,38.4615,40,41.6667,42.8571
4050   DATA 43.6364,45.4545,46.1538,48,50,53.3333,54.5455,55.5556,60,62.5
4060   DATA 66.6666,68.5714,72.4286,75,80,83.3333,85.7143,96,100,120
4070   DATA 125,150,160,166.667,200,240,250,300,320,333.333
4080   DATA 400,480,500,600,640,666.667,800,960,1000
4090   RESTORE 3810
4100   FOR I=1 TO 279
4110     READ Freq1k1m(I)
4120     Freq1k1m(I)=Freq1k1m(I)*1000.
4130     PRINT Freq1k1m(I)
4140   NEXT I
4150   RETURN
4160 Reading:   !A,B,Vm,Im
4170   OUTPUT @Lcr;"TRIGGER:IMMEDIATE"
4180   OUTPUT @Lcr;"FETC:IMP?"
4190   ENTER @Lcr;A,B,Status
4200   OUTPUT @Lcr;"FETC:SMON:VAC?"
4210   ENTER @Lcr;Vm
4220   OUTPUT @Lcr;"FETC:SMON:IAC?"
4230   ENTER @Lcr;Im
4240   RETURN
4250 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4260   END
4270   SUB Errors
4280     DIM Err$[50]
4290     Sp=SPOLL(717)
4300     IF BIT(Sp,5) THEN
4310       OUTPUT 717;"*ESR?"
4320       ENTER 717;Esr
4330       PRINT "Event Status Resister = ";Esr
4340       LOOP
4350         OUTPUT 717;"SYST:ERR?"
4360         ENTER 717;Err$
4370       EXIT IF VAL(Err$)=0
4380         PRINT Err$
4390       END LOOP 
4400     END IF 
4410     ENABLE INTR 7;2
4420   SUBEND