Advantest TR2114H 디지털 멀티 온도계
1 ! [[2114H-01.txt]]
10 CLEAR SCREEN
20 INTEGER No,Sec,Sec_pre
30 GOSUB Filecreate
40 OUTPUT @File;"No.,Time[s],Temp['C]"
50 T0=TIMEDATE
60 Sec_pre=-1
70 No=0
80 LOOP
90 LOOP
100 T=TIMEDATE-T0
110 Sec=INT(T)
120 IF Sec<>Sec_pre THEN
130 No=No+1
140 OUTPUT 702;"E"
150 ENTER 702;Temp
160 PRINT No;", ";Sec;"s, Temp=";Temp;"'C"
170 OUTPUT @File;No,T,Temp
180 Sec_pre=Sec
190 END IF
200 END LOOP
210 BEEP
220 EXIT IF No=1000
230 END LOOP
240 STOP
250 Filecreate: !
260 DIM Dhms$[8]
270 DIM Filename$[20]
280 T=TIMEDATE
290 Time$=TIME$(T) !하루 추가 +24*3600
300 Date$=DATE$(T)
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 END