Well,

you can check for the length of the string and if there are spaces included :

code:
break on


:again
AT (5,10) " Enter the three Digit Machine ID "
AT (6,10) " (eg 601) : " Gets $IMAGE 

if len($image) > 3 or instr($image," ")
	cls beep goto again
endif


get $
_________________________