' Example of Second-Order CFA in Amos 5.0
'
Sub Main ()
Dim sem As New AmosEngine

sem.TextOutput
sem.Standardized
sem.Smc
sem.Mods 10

sem.BeginGroup "coping.txt"

sem.Structure "p1 =   (1) PROBSLV + (1) th1"
sem.Structure "p2 =       PROBSLV + (1) th2"
sem.Structure "p3 =       PROBSLV + (1) th3"
sem.Structure "c1 =   (1) COGRES + (1) th4"
sem.Structure "c2 =       COGRES + (1) th5"
sem.Structure "c3 =       COGRES + (1) th6"
sem.Structure "e1 =   (1) EXPREMOT + (1) th7"
sem.Structure "e2 =       EXPREMOT + (1) th8"
sem.Structure "e3 =       EXPREMOT + (1) th9"
sem.Structure "s1 =   (1) SOCSPT + (1) th10"
sem.Structure "s2 =       SOCSPT + (1) th11"
sem.Structure "s3 =       SOCSPT + (1) th12"

sem.Structure "PROBSLV = PROBFOC + (1) D1"
sem.Structure "COGRES = PROBFOC + (1) D2"
sem.Structure "EXPREMOT = EMOTFOC + (1) D3"
sem.Structure "SOCSPT = EMOTFOC + (1) D4"

sem.Structure "PROBFOC (1)"
sem.Structure "EMOTFOC (1)"
sem.Structure "PROBFOC <--> EMOTFOC"

End Sub