HTBasic Help
×
Menu
Index

Example: Combo Dialog

 
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