home *** CD-ROM | disk | FTP | other *** search
- 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
-