!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Define NAME and TYPE variables either from the parsing of the FILENAME
! variable or from user input.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! First, try to define name and type from the parsing of filename
!!$if (do%filename.ne." ") then
!!$   define character dir*512
!!$   sic parse 'do%filename' true%name type dir
!!$   let name 'dir''true%name'
!!$   let do%filename " " ! To ensure that next time NAME and TYPE will be used
!!$   say "I-NAME, name set to "'name'
!!$   say "I-NAME, type set to "'type'
!!$   delete /var dir
!!$endif
!
! Then check whether name and/or type are empty
if (("&1none".eq."none").or.("&1none".eq."namenone")) then
   if (name.eq." ") then
      let name /prompt "Enter file name (without extension)"
   endif
   sic parse 'name' true%name
endif
if (("&1none".eq."none").or.("&1none".eq."typenone")) then
   if (type.eq." ") then
      let type /prompt "Enter file extension"
   endif
   let true%type 'type'
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
