10 lines
342 B
Plaintext
10 lines
342 B
Plaintext
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
|