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
     SCHIZOPHRENIA SIMULATION
     D. MALIN, SEPTEMBER, 1970
     MODIFIED JANUARY, 1973
     MODIFIED FOR DEC-SYSTEM-10 BY JAMES R ULLRICH AND ROY F TOUZEAU

     @END OF MODEL ID LINES
 NOVER=500  NGRP=500  NDEF=20  ECHO @END OF GSC STRING
/INDEX (I*X*) 1, EXT KWD
     (SCHIZ(S*Z*)1, NONSCHIZ(N*)2)
     SCHIZ/
/REL(R*L*) 2, EXT KWD
     (UNREL(UN*,U*R*)=1,  AUNTUNCL(A*U*,U*)=2,	COUSIN(CO*)=3,
     SIBLING(SI*,S*B*)=4,  IDTWIN(I*T*,ID*)=6,	FRATTWIN(F*T*)=5,
     PARENT(P*)=7, CHILD(CH*)=8, NIECNEPH(N*E*)=9)
     UNREL/
/ADOPT (A*D*) 3, EXT KWD
     (BIO(B)=1,  BIOSEP(B*S*)=2,  ADOPTED(A*D*)=3)
     BIO/
/DIAG (D*G*) 4, EXT KWD
     (PSYCHO(P*,ST*)=1, SCHIZOID(S*Z*)=2)
     PSYCHO/
/SEXI (S*I*) 7, EXT KWD
     (MALE(M*)=1, FEMALE(F*)=2, RANDOM(R*)=0)
     RANDOM/
/SEXS (S*S*, S*A*) 8, EXT KWD
     (MALE(M*)=1, FEMALE(F*)=2, RANDOM(R*)=0)
     RANDOM/
/METHOD (M*) 6 EXT NUMI;  1;  (1,2)/
 @END
 ADOPT=(AD), REL=(FRAT,IDTWIN)/
REL=(IDT), SEXI=(M), SEXS=(F)/
REL=(IDT), SEXI=(F), SEXS=(M)/
 @END
 @END OF VCWS STRING
 @END OF DEFAULT STATISTICS STRING
     ...