2114H-01.txt

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