@ gag_demo:demo-setup
define character mydemo*12
define integer ndemo
let ndemo 9
if exist(thedemos) delete /var thedemos
define character*12 thedemos[ndemo] /global
let thedemos basic feather line mosaic primary selfcal single spectro uvfit
SAY "Available demos : "
say thedemos /format 6a12
!
let mydemo &1 /prompt "Enter demo name or EXIT to quit"
let mydemo 'mydemo' /lower
for /while mydemo.ne."exit"  
  for i 1 to ndemo
    if (mydemo.eq.thedemos[I]) then
      @ gag_demo:demo-'mydemo'
      break
    endif
  next
  say "Available demos: "
  say thedemos /format 6a
  let mydemo /prompt "Enter demo name or EXIT to quit"
  let mydemo 'mydemo' /lower
next
