10 ! *********************************************************************
20 ! Example: COMBO Dialog
30 !
40 ! This program creates a COMBO dialog. The user can select
50 ! an item from the supplied list (COSMOPOLITAN, etc.) or
60 ! can enter a name from the keyboard. The user selection is
70 ! displayed after a selection is made and Enter is pressed.
80 !
90 ! *********************************************************
100 !
110 DIM M$(1:7)[20],S$[25],P$[50]
120 INTEGER Btn
130 P$="What is your favorite magazine?"
140 DATA "COSMOPOLITAN","ENQUIRER","DISCOVER","TIME"
150 DATA "HEALTH","SPORTS","NEW YORKER"
160 READ M$(*)
170 !
180 DIALOG "COMBO",P$,Btn;SET ("TITLE":" Example: COMBO Dialog","ITEMS":M$(*)),RETURN ("TEXT":S$)
190 DISP "Magazine selected:";S$
200 END