***.
*** To use this syntax file, pull down the "Run" menu and 
*** choose "All".
***.
input program.
set seed=79795.
loop #i=1 to 120.
compute id = $casenum.
end case.
end loop.
end file.
end input program.
execute.
print formats id (f3.0).
compute perf = rv.normal(0,1).
recode id (lowest thru 40=1)(41 thru 80=2)(81 thru 120=3) into condit.
if (condit=3) perf=perf+.5.
compute perf=perf*100.
compute perf=rnd(perf).
compute perf = perf + 400.
print formats perf(f5.0).
fre var=perf/histogram.
list var=condit perf.