main.4gl main define key char(10) define md5 char(32) prompt "your password:" for key let md5=getpw(k