' Example of MIMIC Model in Amos 5.0 Sub Main () Dim sem As New AmosEngine sem.TextOutput sem.Standardized sem.Smc sem.Mods 10 sem.BeginGroup "mimic.txt" sem.Structure "S1 = (1) SOCIAL + (1) E1" sem.Structure "S2 = SOCIAL + (1) E2" sem.Structure "S3 = SOCIAL + (1) E3" sem.Structure "A1 = (1) AGORAPH + (1) E4" sem.Structure "A2 = AGORAPH + (1) E5" sem.Structure "A3 = AGORAPH + SEX + (1) E6" sem.Structure "SOCIAL = SEX + (1) D1" sem.Structure "AGORAPH = SEX + (1) D2" sem.Structure "D1 <--> D2" End Sub