timerconvert.con

一个温度控制的程序

: 'TimerConvert ." 05/09/2006 14:11:14" ;
: 9_0
  500    DELAY
  *data   0 DATE>$
  *time   TIME>$
0 JUMP ;
: 9_1
^timer1 @@F ^temp1 F@! 
^temp1 @@F 6.000000e+001 F/ 5.000000e-001 F-  Round ^t_m F@! 
^t_m @@ 0 < IF 
0 ^t_m @! 
THEN 
^temp1 @@ 60 ^t_m @@ * - ^t_s @! 
-2 JUMP ;
T: T9
DUMMY
9_0
9_1
T;