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
 14 STAT STA* ST*T*
 15 REPEAT R*P*
 16 NORPT N*R*P*
 17 SAVEBIN S*V*B*
 18 SAVECARD S*V*C*
 19 DATAOUT D*A* D*O*
 20 NODATOUT N*D*T*
 21 XPRINT X*PR*
 22 NOXPRINT N*X*
 @END
     MOTIVATION SIMULATION
     S. MUELLER, FALL, 1970
     MODIFIED BY R. STOUT, AUGUST, 1972
     MODIFIED FOR THE DEC-SYSTEM-10 BY JAMES R ULLRICH AND ROY F TOUZEAU

@END
ECHO  MAXCONDS=1  NOVER=1000 NGRP=100  NDEF=10 COSTPT @E
/NGRP (N*G*,N*P) 1 EXT NUMI; 100; (1,100)/
/INSTRUCT (IN*,I*S*T*) 2 EXT NUMI; 1; (1,4)/
/TASKDIFF (T*D*, T*K*,D*F*) 3 EXT KWD
      (EASY (E*Y*,S*M*)=1; MODERATE(M*D*,A*V*)=2; HARD(D*F*,H*D*)=3)
      MODERATE/
/LENGTH (L*N*) 1 EXT NUMF; 10; (1,60)/
/SEXE (S*XE*) 4 EXT KWD
      (MALE(M*)=1; FEMALE(F*)=2)
      MALE/
/SEXS (S*XS*) 5 EXT KWD
      (MALE(M*)=1; FEMALE(F*)=2; BALANCED(B*L*,EV*)=3; RANDOM(R*)=0)
      RANDOM/
/YEAR (Y*) 6 EXT KI
      (FRESHMAN(FR*)=1; SOPH(S*P*)=2; JUNIOR(J*)=3; SENIOR(S*R,S*N*)=4;
      RANDOM(R*)=9)
      RANDOM
      (1,4)/
/NACH (N*C*,N*H*) 7 EXT KI
      (HIGH(H*)=1; MEDIUM(M*)=2; LOW(L*)=3; RANDOM(R*)=9)
      RANDOM (1,3)/
/NAFF (N*F*) 8 EXT KI
      (HIGH(H*)=1; MEDIUM(M*)=2; LOW(L*)=3; RANDOM(R*)=9)
      RANDOM (1,3)/
/FEARF (F*F*,FE*R*) 9 EXT KI
      (HIGH(H*)=1; MEDIUM(M*)=2; LOW(L*)=3; RANDOM(R*)=9)
      RANDOM (1,3)/
/XNACH (X*N*H*) 1 EXT FLAG; F/
/XNAFF (X*N*F*) 2 EXT FLAG; F/
/XFEARF (XF*) 3 EXT FLAG; F/
      @END OF VARIABLE DEFINITION STRING
      @END OF ILLEGAL VARIABLE COMBINATIONS STRING
      @END OF VARIABLES CONSTANT ACROSS CONDITIONS STRING
MEAN, VAR	  @END OF DEFAULT STATISTICS STRING
NACH, NAFF, FEARF, TEST