FREQ trstprl to trstun.
 

do repeat I=trstprl to trstun.
compute I=I+1.
end repeat.

MULTIPLE CORRES VARIABLES=trstprl trstlgl trstplc trstplt trstep trstun cntry
  /ANALYSIS=trstprl(WEIGHT=1) trstlgl(WEIGHT=1) trstplc(WEIGHT=1) trstplt(WEIGHT=1) 
    trstep(WEIGHT=1) trstun(WEIGHT=1) cntry
  /MISSING=trstprl(LISTWISE) trstlgl(LISTWISE) trstplc(LISTWISE) trstplt(LISTWISE) trstep(LISTWISE) 
    trstun(LISTWISE) cntry(PASSIVE,MODEIMPU) 
  /SUPPLEMENTARY=VARIABLE(cntry)
  /DIMENSION=2
  /NORMALIZATION=VPRINCIPAL
  /MAXITER=100
  /CRITITER=.00001
  /PRINT=DISCRIM QUANT(cntry trstprl trstlgl trstplc trstplt trstep trstun) 
  /PLOT=TRANS(cntry trstprl trstlgl trstplc trstplt trstep trstun(2)) (20).


do repeat I=trstprl to trstun.
compute I=I-1.
end repeat.

Count validn=trstprl to trstun (0 thru 10).

Count zeroest=trstprl to trstun (0).
Count onest=trstprl to trstun   (1).
Count twost=trstprl to trstun   (2).
Count thirds=trstprl to trstun   (3).
Count fourths=trstprl to trstun (4).
Count fifths=trstprl to trstun (5).
Count sixths=trstprl to trstun (6).
Count sevenths=trstprl to trstun (7).
Count eights=trstprl to trstun (8).
Count ninest=trstprl to trstun (9).
Count tenst=trstprl to trstun  (10).

TEMPORARY .
SELECT IF (validn=6).

means zeroest to tenst by cntry
	  /stat=anova.
cross zeroest by tenst ninest.
cross  tenst by onest.

DESCRIPTIVES VARIABLES=zeroest to tenst
  /STATISTICS=MEAN SUM STDDEV VARIANCE MIN MAX SEMEAN.

TEMPORARY .
SELECT IF (validn=6).
CROSSTABS tables=onest by zeroest, twost to tenst
    /CELLS COUNT.