set vari Str_arg char global =  "#$%^"
inquire char vari Str_arg text "PDB FILE NAME::"
if ( Str_arg .eq. "#$%^" ) return
set vari INQ_COLOR int global = 220
inquire int vari INQ_COLOR \
      text "COLOR TO USE ( [220]; 1 to 255; -1 = USE SET ::"
<?MAIN_UTILS:background_file_image Str_arg INQ_COLOR "delete"
dele vari INQ_COLOR
dele vari Str_arg
return