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