;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@PayNumber]
{
#ACT
mov  B1 ""
mov  B2 ""
goto @ֵʼ12
break

[@ֵʼ12]
#say
ӭʹóֵϵͳ\
{FCOLOR/14}ĳֵź룺{FCOLOR/12}\\
ĿΪ {FCOLOR/1}<$OUTPUT(B1)>{FCOLOR/12} <뿨/@@CardNumber>\
Ϊ {FCOLOR/10}<$OUTPUT(B2)>{FCOLOR/12} </@@CardPassword>\\
{FCOLOR/14}ʼֵ{FCOLOR/12}\
<ʼֵ/@1>\\
</@main>\

[@@CardNumber]
#ACT
   mov  B1  %INPUTSTR
   goto @ֵʼ12
   break
[@@CardPassword]
#ACT
   mov  B2  %INPUTSTR
   goto @ֵʼ12
   break


[@1]
  #act
          Delaygoto [local] 5 @ż
  #say
_{FCOLOR/10}Ժϵͳڴ...{FCOLOR/12}\

[@ż]
  #IF
     HLSCRIPTCMD CHECKCARD %B1 %B2
  #ACT
  goto @ȷ
  break
  #elsesay
  _{FCOLOR/10}Բĳֵź벻ȷ֤{FCOLOR/12}\\
  <˳/@exit>  \

[@ȷ]
  #ACT
     HLSCRIPTCMD PAYCARD %B1 %B2
#say
_{FCOLOR/10}ֵֵɹ{FCOLOR/12}\\
_㵱ǰֵ: {FCOLOR/10}<$HLPOINT>{FCOLOR/12} !\\
_</@main>
#ELSESAY
    Ļֵ㲻 \ \
		<  /@exit>

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;