'--------------------------------------'
' RapidDBG color editor - Demo code    '
'--------------------------------------'
$APPTYPE GUI
$TYPECHECK ON
$INCLUDE <Rapidq2.inc>

DECLARE SUB Done

TYPE MyStruc
    var1 AS byte
    var2 AS integer
END TYPE

DIM MyVars(1 TO 3) AS MyStruc   ' A variable array
DEFINT MyInteger

' The main form
CREATE MyForm AS QFORM
    Caption = "My Form"
    Center
END CREATE

MyForm.ShowModal

SUB Done
DEFINT i

    FOR i=1 TO 3: MyVars(i).var1=1: NEXT i
    Application.Terminate
END SUB
