;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Manage_PassWord]
{
#IF
#ACT
mov A0 %PASSWD(9)

#IF
equal A0 ""
#SAY
You do not have a password, please choose one\
(Don't Enter Any Text, just Press Yes)\\
#IF
#SAY
<[ Enter Password ]/@@*10_enter_stgpasswd>\\


[@@*10_enter_stgpasswd]
#ACT
mov A0 %PASSWD(9)
mov A1 %INPUTSTR

#IF
equal A0 %A1
#SAY
Your password can only contain Engligh\
letters and numbers, no spaces or special\
characters. 10 Chars Max\\
<[ New Password ]/@@*10_Change_stgpasswd>\\\

#ELSESAY
Incorrect Password!\
<[ Manage Password ]/@StgPassword>\\

[@@*10_Change_stgpasswd]
#ACT
mov A0 %INPUTSTR

#SAY
<[ Confirm New Password ]/@@*10_confirm_passwd>\\

[@@*10_confirm_passwd]
#ACT
mov A1 %INPUTSTR
#IF
equal A0 %A1
#ACT
SavePasswd %A0

#SAY
Your Storage Password has been changed\\

#ELSESAY
Incorrect Password!\
<[ Manage Password ]/@manage_stgpasswd> \

}

[@Input_PassWord]
{
#IF
#ACT
mov A0 %PASSWD(9)

#IF
equal A0 ""

#SAY
You don't have a password\\
<[ Storage ]/@getback>\
#ACT
break

#IF
#SAY
<[ Enter Password ]/@@*10_Input_stgpasswd>\\


[@@*10_Input_stgpasswd]
#IF
#ACT
mov A0 %PASSWD(9)
mov A1 %INPUTSTR

#IF
equal A0 %A1

#SAY
<[ Storage ]/@getback>\\


#ELSESAY
Incorrect Password!\\
<[ Re-Enter Password ]/@PreGetback>\
<[ Exit ]/@exit>\\\

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