"mdl"
7
"PopFormTest","appl","Test",1008,200,0
"Sub Project_Startup()
    Global Flg as Integer
    
    Flg=False
End Sub"
0
0
""
""
""
"vew"
3,1003,#FALSE#,#TRUE#,#TRUE#,0,0,0,160,160,0,#FALSE#,#TRUE#
"Form1"
"Form1003"
"Sub Form1003_Before()
    If Flg=False Then
        MsgBox ~Form1003_Before~
    Else
        MsgBox ~Form1005'_Before~
    End If
End Sub"
0
"Sub Form1003_After()
    If Flg=False Then
        MsgBox ~Form1003_After~
    Else
        MsgBox ~Form1005'_After~
    End If
End Sub"
"Sub Form1003_Event()
    
    If Flg=False Then
        Select Case geteventtype()
        Case nsbKeyOrButton
            MsgBox ~Form1003_Event~
        End Select
    Else
        Select Case geteventtype()
        Case nsbKeyOrButton
            MsgBox ~Form1005'_Event~
        End Select
    End If
End Sub"
"but"
1
#TRUE#,#TRUE#,#TRUE#
"obj"
2
"but","Button1006",1006,54,24,12,50,#TRUE#,0,"PopForm"
"Sub object1006()
    Dim FormID as Short
    
    Flg=True
    FormID=1005
    SysTrapSub 412,1,FormID
End Sub"
"but"
1
#TRUE#,#TRUE#,#TRUE#
"obj"
2
"but","Button1008",1008,4,18,18,36,#TRUE#,0,"Dummy"
""
"vew"
3,1005,#TRUE#,#TRUE#,#TRUE#,0,50,50,60,60,0,#FALSE#,#TRUE#
"Form2"
"Form1005"
"Sub Form1005_Before()
    MsgBox ~Form1005_Before~
End Sub"
0
"Sub Form1005_After()
    MsgBox ~Form1005_After~
End Sub"
"Sub Form1005_Event()
    Select Case geteventtype()
    Case NsbKeyOrButton
        MsgBox ~Form1005_Event~
    End Select
End Sub"
"but"
1
#TRUE#,#TRUE#,#TRUE#
"obj"
2
"but","Button1007",1007,14,32,12,36,#TRUE#,0,"OK"
"Sub object1007()
    Flg=False
    NextScreen ~Form1003~
End Sub"
"end"