!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! New setup
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure 30m-setup-new-definitions
  define command 30MSETUP\NEWSETUP "@ 30m-setup-new"
end procedure 30m-setup-new-definitions
!  
begin procedure 30m-setup-new-defaults
  let setup30m%n 0
end procedure 30m-setup-new-defaults
!
begin procedure 30m-setup-new-reset-out
  let setup30m%n 0
  @ 30m-setup-new
end procedure 30m-setup-new-reset-out
!  
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure 30m-setup-new-prefix
  let setup30m%file%front 'setup30m%dir%pro''setup30m%name'"-front.pako"
  let setup30m%file%back 'setup30m%dir%pro''setup30m%name'"-back.pako"
  let setup30m%file%point 'setup30m%dir%pro''setup30m%name'"-point.pako"
  let setup30m%file%psw 'setup30m%dir%pro''setup30m%name'"-psw.pako"
  let setup30m%file%wsw 'setup30m%dir%pro''setup30m%name'"-wsw.pako"
  let setup30m%file%fsw 'setup30m%dir%pro''setup30m%name'"-fsw.pako"
  let setup30m%file%otf 'setup30m%dir%pro''setup30m%name'"-otf-" ! Completed in the otf procedure
end procedure 30m-setup-new-prefix
!
begin procedure 30m-setup-new
  if (pro%narg.eq.0) then
     let setup30m%n setup30m%n+1
  else
     let setup30m%n 'pro%arg[1]'
  endif
  let setup30m%name "setup"'setup30m%n'
  @ 30m-setup-new-prefix
end procedure 30m-setup-new
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure 30m-setup-new-widget
  @ 30m-setup-new
  gui\panel "30m Heterodyne Setup Facility (J.Pety)" gag_scratch:30m-setup-new.hlp
     @ 30m-setup-widget-step new
     gui\button "@ 30m-setup-new-prefix"  "Set another prefix"
     say ""
     say "Setup #"'setup30m%n'
     let setup30m%name 'setup30m%name' /prompt "Prefix"
     say ""
     say "Project files are stored in the "'setup30m%proj%inp%nick'"/ directory"
  gui\go ""
end procedure 30m-setup-new-widget
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
