
EFT/ Burst Generator PEFT Junior
59
410 OUTPUT 712;"TRA V"
! Setting voltage transition
420 OUTPUT 712;"TRA?"
! Control transition
430 WAIT 0.5
! Delay for communication
440 ENTER 712;TRA$
!
450 OUTPUT 712;"ERR?"
! Error test
460 WAIT 0.5
!
470 IF ERR=0 THEN ErrTRA$="OK" Else ErrTRA$=ERR;" see table"!
480 PRINT TABXY(35,13);"TRANSITION :";TRA$,ErrTRA$
! Display
490
!
500
!
510 VTRTset=100
! Transition time = 100s
520 OUTPUT 712;"VTRT ";VTRTset
! Setting Transition time
530 OUTPUT 712;"VTRT?"
! Control Trans.time real
540 WAIT 0.5
! Delay for communication
550 ENTER 712;VTRTreal
!
560 IF VTRTreal<VTRTset THEN ErrVTRT$="LIMIT TIME MAX"
! Test overlimit
570 IF VTRTreal>VTRTset THEN ErrVTRT$="LIMIT TIME MIN"
! Test unterlimit
580 ErrVTRT$="ok"
!
590 PRINT TABXY(35,14);"TRANS TIME :";VTRTreal,ErrVTRT$
! Display
600
!
610
!
620
!
1000 OUTPUT 712;"STRT"
! Test start
1010 OUTPUT 712;"STAT?"
! Status ?
1020 WAIT 0.5
! Delay for communication
1030 ENTER 712;STAT$
! Control status
1040 PRINT TABXY(35,16);"TEST STATUS:";STAT$
!
Display
1050 IF STAT$="STBY" THEN GOTO beforeend
! End of test?
1060
!
1070
!
1080 OUTPUT 712;"SP?"
! Test serial poll
1090 ENTER 712;SP$
! Control serial poll
1100 IF BIT(NUM(SP$),1)=1 THEN stop ELSE continu
! Test EUT failed
1110 stop
!
1120 PRINT TABXY(35,18);"TEST ABORTED:";SPtest$
!
Display
1130 OUTPUT 712;"GTL"
! return to local mode
1140 END IF
!
1150
!
1160
!
1170 continu
!
1180 OUTPUT 712;"CACT?
! Actual test voltage ?
1190 WAIT 0.5
! Delay for communication
1200 ENTER 712;CACT
! Control actual test voltage
1210 PRINT TABXY(10,10);"ACTUAL TEST VOLTAGE"
!
Display
1220 PRINT TABXY(10,12);CACT;" kV"
! Display
1230
!
1240
!
1250 beforeend
!
1260 OUTPUT 712;"STOP"
! Savety in case of none stop
1270 OUTPUT 712;"GTL"
! Go to local mode
1500 END
!