ulong id
:begin
clearsel 1
$PRE = ""
$QUAN = ""
$NEW = ""
SET mask, 11, 12, 13, 14, 20, 21
GETENT "Select Dimension to Edit : ", ENTTYPE, id
if (@error != 0)
GOTO end
GETSTR "Enter quantity...", "2", $QUAN, "10", "12", "3", "4", "5", "6", "7", "8", "9"
if (@error != 0)
GOTO end
if (@key == 1)
$QUAN = "10"
if (@key == 2)
$QUAN = "12"
if (@key == 3)
$QUAN = "3"
if (@key == 4)
$QUAN = "4"
if (@key == 5)
$QUAN = "5"
if (@key == 6)
$QUAN = "6"
if (@key == 7)
$QUAN = "7"
if (@key == 8)
$QUAN = "8"
if (@key == 9)
$QUAN = "9"
SPRINT $NEW, " (%s)", $QUAN
ck_put_affixes id, , $PRE, $NEW
ck_alignord id
drawent id
GOTO begin
:end
CLEAR
CLEARSEL 1
EXIT