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