;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Main]
#IF
#ACT
FormatStr "FLD_nume='%s'" %USERNAME
ReadValueSql "TBL_Keymaker" %A9 "FLD_DCKM" [@ReadDCKRKeys]

[@ReadDCKRKeys()]
#ACT
sysmsg "a"
Enter_Ok
;Mov A1 %ARG(1)
;Mov D1 %ARG(2)
;goto @CheckDCKRKeys

[@CheckDCKRKeys]
#IF
Elarge D1 1
#ACT
DEC D1 1
FormatStr "FLD_nume='%s'" %USERNAME
Mov A8 %A9
FormatStr "FLD_DCKM='%s'" %D1
UPDATEVALUESQL "TBL_Keymaker" %A8 %A9
goto @enter
#ELSEACT
enter_fail
#ELSESAY
You cannot get in here! Get a Key!\
[@enter]
#IF
#ACT
ENTER_OK

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
