Parameter digit

// put field value into variable
Set  V[matnr] "&F[Material]"

// handle "clear"
if U[digit=clear]
 Set V[matnr] ""
 goto return
endif


// handle "back"
if U[digit=back]
 Set V[k] "&V[matnr]"  -stringlength
 if V[k>0]
     Set V[k] &V[k] - 1
     Set V[matnr]  "&V[matnr](1-&V[k])"
 endif
 goto return
endif

// handle digits
Set V[matnr] "&V[matnr]&U[digit]"

// Maximum 8
Set V[matnr] "&V[matnr](1-8)"


label return
Set F[Material] "&V[matnr]"

Return