E5100A
200 MASS STORAGE IS ":,4" !내부 FDD 사용
220 ! MASS STORAGE IS ":,0" !내부 메모리 사용
240 ! COPY "1.txt:,0" to "1.txt:,4" !내부 메모리에 저장되는 1.txt 파일을 FDD로 복사
260 PURGE "1.txt"
280 CREATE "1.txt",1
300 ASSIGN @File TO "1.txt";FORMAT ON
320 ASSIGN @E5100 TO 800 !자체 콘트롤러이므로 반드시 800번 부여
340 ASSIGN @Oven TO 701 !연결된 외부 계측기 주소는 700번대 부여
360 OUTPUT @E5100;"ANAMODE ZTRAN"
380 OUTPUT @E5100;"MEAS AR"
400 OUTPUT @E5100;"FMT MAGZP"
420 OUTPUT @E5100;"SCAY 10"
440 EXECUTE "ANAOCH1"
460 EXECUTE "ANAODATA"
480 EXECUTE "ANARFULL"
500 Count=0
520 Temp_p=0
540 T0=TIMEDATE
560 OUTPUT @File;"No., Time[s], Temp['C], Rr[ohm], Fr[Hz], Ra[ohm], Fa[Hz]"
580 LOOP
600 OUTPUT @Oven;"TEMP?"
620 ENTER @Oven;Temp,Tmp,Tmp,Tmp
640 IF Temp<>Temp_p THEN
660 T=TIMEDATE-T0
680 Count=Count+1
700 EXECUTE "SING"
720 EXECUTE "OUTPCERR?"
740 Rr=READIO(8,0)
760 Fr=READIO(8,1)
780 Ra=READIO(8,2)
800 Fa=READIO(8,3)
820 PRINT Temp,Rr,Fr
840 OUTPUT @File;Count,T,Temp,Rr,Fr,Ra,Fa
860 Temp_p=Temp
880 END IF
900 END LOOP
920 END