CHARACTER list = "fee fie,huff and puff,mirror mirror,tick tock,", answer*20

   POP(Menu=list, SelTxt=answer)

SUBROUTINE list ! callback procedure must have same name as menu argument
 ! Subroutine with no arguments: all objects are global
 ! The global variable $$ returns the selected list index
   WRITE(Messagebox, Name) answer, $$
END