attach "scrnctrl.oac"
psw = '' 
put at 5,5 'Enter Password:' 
rval = call('scrnoff')
get at 21,10 psw width 10
put at 21,10, do clear end line 
rval = call('scrnon')
put at 5,10 'The Password is : ', psw
b = false; get b 
detach "scrnctrl.oac" 
