keyInField

[Robert Presender]

Appreciate any  suggestions that would replace the following script, 
that I used in SuperCard, to one in Revolution.  Want to enter only 
certain chars into a field.

on openField
   set the numberFormat to "0.000"
   keyInField theKey
   add 0 to me
end openField

on keyInField theKey
   set allowKeyInField to true
   if theKey is in "0123456789." or charToNum(theKey) = 8 then pass 
keyInField
end keyInField

Regards ... Bob