1  STOP ST*P
  3  EXPT EX*
  4  ECHO EC*
  5  NOECHO NOEC*
  6 LECHO LEC*
  7 LOAD L*D
  9  VARS VA*
 10  COMMANDS C*M*
 11  SHORT SH*
 12  VSHORT V*SH*
 13  LONG L*G
 15  REPEAT R*P*
 16  NORPT N*R*P*
 17 SAVEBIN S*V*B*
 18 SAVECARD S*V*C*
 21  XPRINT X*PR*
 22  NOXPRINT N*X*
     @END
 
     CONDITIONED SOCAL DOMINANCE SIMULATION
     RICHARD JOHNSON
     ADAPTED TO MESS SEPTEMBER, 1974
     BY ROY F TOUZEAU AND JAMES R ULLRICH
     UNIVERSITY OF MONTANA


     @END OF MODEL ID LINES
 MAXCONDS=1   NOVER=500  NGRP=100  NDEF=20  ECHO COSTPT
     @END OF GSC STRING
/REINF(RE*) 1 EXT KWD (RANDOM(RAN*)=1,CONTNGNT(CON*,DEP*)=2)
	 RANDOM/
/FAMILIAR (FAM*) 2 EXT KWD (RANDOM(RAN*)=0, NOTFAM(N*F*)=1,
	FAMILIAR(FAM*)=2) RANDOM/
/SOCACTIV(SOC*) 3 EXT KWD (NOMATCH(NOM*)=0, MATCHED(MAT*)=1)	NOMATCH/
/SEXS(S*X*) 4 EXT KWD (RANDOM(RAN*)=0,MALE(M*)=1,FEMALE(F*)=2)
	RANDOM/
/CLASLEV(CL*) 5 EXT KWD (RANDOM(RAN*)=0, FRESHMAN(FR*)=1,
	SOPHOMOR(SOP*)=2, JUNIOR(J*)=3, SENIOR(SEN*)=4) RANDOM/
/FRIENDS(FR*N*) 6 EXT KWD (RANDOM(RAN*)=0, ASSIGNED(AS*)=1,
	SELFSEL(SEL*)=2) RANDOM/
/AWARE(AW*) 7 EXT KWD (RANDOM(RAN*)=0, AWARE(AW*)=1, NOTAWARE(N*AW*)=2)
	RANDOM/
/MATHIQLO(M*IQL*) 1 EXT NUMF 100 (100,180)/
/MATHIQHI(M*IQH*) 3 EXT NUMF 180 (100,180)/
/VERBIQLO(V*IQL*) 2 EXT NUMF 100 (100,180)/
/VERBIQHI(V*IQH*) 4 EXT NUMF 180 (100,180)/
/LENGTH(L*) 5 EXT NUMF 10 (0,120)/
/RATEOFRF(RAT*) 6 EXT NUMF 1.0 (0.0,4.0)/
 @END
 @END
 @END OF VCWS STRING
MEAN,VARIANCE @END OF DEFAULT STATISTICS STRING
DOMINANC
     ...