HTBasic Help
×
Menu
Index

Example: Error Dialog

 
10     ! *********************************************************************
20     ! Example: ERROR Dialog
30     !
40     ! This program creates an ERROR dialog. If the user selects
50     ! a button (ABORT or CONTINUE) within 10 seconds, the program
60     ! displays the choice. If the user does not make a choice
70     ! within 10 seconds, "Timeout occurred - no entry" is displayed.
80     !
90     ! ****************************************************
100   !
110   DIM T$[16],P$[40],A1$[20],S1$(1:2)[10],A2$[20]
120   INTEGER Btn
130   DATA "ERROR","Input caused overflow  "
140   READ T$,P$
150   DATA "DIALOG BUTTONS","ABORT","CONTINUE","DEFAULT BUTTON"
160   READ A1$,S1$(*),A2$
170    !
180   DIALOG T$,P$,Btn;SET ("TITLE":" Example: ERROR Dialog",A1$:S1$(*),A2$:0),TIMEOUT 10
190   IF Btn=-1 THEN
200     DISP "Timeout occurred - no entry"
210   ELSE
220     DISP S1$(Btn+1)
230   END IF
240   END