/* This macro provides a dialog where the user can enter */
/* a block fill character  */
'lxn extract blocktype'
   if blocktype = 'UNSET' then 
 MSG 'Must mark a block before setting a fill character'
'set lineread.title Fill a Block'
'set lineread.prompt Enter fill character'
'lineread 255' 
'extract lastkey'
if lastkey = "ENTER" then do 
'extract lastline'
'block fill' lastline
end
