' Example of Multi-Grp Equal Form in Amos 5.0
' Indicator M9 not included because of variable limits in student version


Sub Main ()
Dim sem As New AmosEngine

sem.TextOutput
sem.Standardized
sem.Smc

sem.BeginGroup "DepFEM.txt"
sem.Structure "m1 <-- DEPRESS (1)"
sem.Structure "m2 <-- DEPRESS"
sem.Structure "m3 <-- DEPRESS"
sem.Structure "m4 <-- DEPRESS"
sem.Structure "m5 <-- DEPRESS"
sem.Structure "m6 <-- DEPRESS"
sem.Structure "m7 <-- DEPRESS"
sem.Structure "m8 <-- DEPRESS"
' sem.Structure "m9 <-- DEPRESS"
sem.Structure "m1 <-- E1 (1)"
sem.Structure "m2 <-- E2 (1)"
sem.Structure "m3 <-- E3 (1)"
sem.Structure "m4 <-- E4 (1)"
sem.Structure "m5 <-- E5 (1)"
sem.Structure "m6 <-- E6 (1)"
sem.Structure "m7 <-- E7 (1)"
sem.Structure "m8 <-- E8 (1)"
' sem.Structure "m9 <-- E9 (1)"
sem.Structure "E1 <--> E2"

sem.BeginGroup "DepMALE.txt"
sem.Structure "m1 <-- DEPRESS (1)"
sem.Structure "m2 <-- DEPRESS"
sem.Structure "m3 <-- DEPRESS"
sem.Structure "m4 <-- DEPRESS"
sem.Structure "m5 <-- DEPRESS"
sem.Structure "m6 <-- DEPRESS"
sem.Structure "m7 <-- DEPRESS"
sem.Structure "m8 <-- DEPRESS"
' sem.Structure "m9 <-- DEPRESS"
sem.Structure "m1 <-- E1 (1)"
sem.Structure "m2 <-- E2 (1)"
sem.Structure "m3 <-- E3 (1)"
sem.Structure "m4 <-- E4 (1)"
sem.Structure "m5 <-- E5 (1)"
sem.Structure "m6 <-- E6 (1)"
sem.Structure "m7 <-- E7 (1)"
sem.Structure "m8 <-- E8 (1)"
' sem.Structure "m9 <-- E9 (1)"
sem.Structure "E1 <--> E2"

End Sub