这个程序是我自己写着好玩的，没有参考别的什么程序，如有雷同，那绝对是巧合。
欢迎大家点评，提出更好的思路。

变量声明
in参数
name data type
set_time real

out 参数
name data type
set_time_1 s5time

L #set_time
L 1.000000e-002
< r

JC _303
TAK
L 9.990000e+003
>=R
JC _301
TAK
JU _301
_303: L 0.000000e+000
_301: T LD 16
L 1.000000e+003
*R
RND
T LD 16
L L#10000
T LD 0
L L#100000
T LD 4
L L#1000000
T LD 8
L 0
LAR1
L 3
T LW 14
nex3: T LW 12
L LD 16
L LD [AR1,P#0.0]
JCN _304
L LW 14
DEC 1
T LW 14
_304: +AR1 P#4.0
L LW 12
LOOP nex3
L LD 16
DTB
T LD 16
L LW 14
INC 1
L 4
*I
L LD 16
SRD
T LD 16
L LW 14
L W#16#1000
*I
L LD 16
OW
T #set_time_1


说明：输入参数的单位是秒。
输入一个real 比如0.01 那么输出就是s5t#10ms。
输入一个real 比如3600.0那么输出就是s5t#1h。