[@űQM]
{
#IF
CHECK [0] 0
#ACT
MOV S$S0 <$STR($(ռ))>
#IF
EQUAL S$S0 
#ACT
BREAK
#ELSEACT
MOV S$S1 <$STR(S$S0)>
DEC S$S1 2 1000
MOV N$ <$STR(S$S1)>

DEC S$S0 1 1
MOV S$S1 <$STR(S$S0)>
DEC S$S1 15 1000
MOV S$ <$STR(S$S1)>

DEC S$S0 1 14
MOV S$S1 <$STR(S$S0)>
DEC S$S1 15 1000
MOV S$QQ <$STR(S$S1)>

DEC S$S0 1 14
MOV S$S1 <$STR(S$S0)>
DEC S$S1 29 1000
MOV S$˺ <$STR(S$S1)>

MOV S$S0
MOV S$S1

#IF
EQUAL S$ "              "
#ACT
MOV S$
#IF
EQUAL S$QQ "              "
#ACT
MOV S$QQ
#IF
EQUAL S$˺ "                            "
#ACT
MOV S$˺

[@ݱ]
#IF
CHECK [0] 0
#ACT
MOV S$S0

#IF
SMALL N$ 1
#ACT
INC S$S0 0
#ELSEACT
INC S$S0 1

#IF
CHECK [0] 0
#ACT
MOV S$S1 <$STR(S$)>
DEC S$S1 15 5000
SetStringBlank <$STR(S$S1)> 14 1
INC S$S0 <$STR(S$S1)>

MOV S$S1 <$STR(S$QQ)>
DEC S$S1 15 5000
SetStringBlank <$STR(S$S1)> 14 1
INC S$S0 <$STR(S$S1)>

MOV S$S1 <$STR(S$˺)>
DEC S$S1 29 5000
SetStringBlank <$STR(S$S1)> 28 1
INC S$S0 <$STR(S$S1)>

MOV $(ռ) <$STR(S$S0)>
MOV S$S0
MOV S$S1

[@볣]
#CALL [\\볣.ini] @볣
}
