10 ! *********************************************************************
20 ! Example: LABEL Widget
30 !
40 ! This program generates a LABEL widget.
50 !
60 ! ********************************************************
70 !
80 INTEGER N
90 DIM S$[256]
100 ASSIGN @L TO WIDGET "LABEL";SET ("VISIBLE":0)
110 CONTROL @L;SET ("COLUMNS":28,"ROWS":8,"TITLE":" Example: LABEL Widget")
120 CONTROL @L;SET ("X":100,"Y":50,"JUSTIFICATION":"TOP,LEFT","WORD WRAP":1)
130 CONTROL @L;SET ("SYSTEM MENU":"Quit")
140 !
150 FOR N=1 TO 8
160 S$=S$&" ITEM "&VAL$(N)&": VALUE "&VAL$(N)&" "
170 IF N<8 THEN S$=S$&CHR$(10)
180 NEXT N
190 CONTROL @L;SET ("VALUE":S$,"VISIBLE":1)
200 ON EVENT @L,"SYSTEM MENU" GOTO Finis
210 LOOP
220 WAIT FOR EVENT
230 END LOOP
240 !
250 Finis: !
260 ASSIGN @L TO * ! Deletes LABEL widget
270 END
