DEFINE !WSCI(fpath=!TOKENS(1) /k=!TOKENS(1) /ci=!TOKENS(1) /v=!CMDEND)

GET FILE = !fpath.

COMPUTE persmean = MEAN(!v).

COMPUTE const=1.

AGGREGATE OUTFILE='c:\temp\temp.sav'

       /PRESORTED

       /BREAK=const

       /gm=MEAN(persmean).

MATCH FILES FILE=*

       /TABLE='c:\temp\temp.sav'

            /BY=const.

COMPUTE adjvalue = gm - persmean.

EXECUTE.

VECTOR newv = !v.

LOOP #I=1 TO !k.

COMPUTE newv(#I) = newv(#I) + adjvalue.

END LOOP .

GRAPH

  /ERRORBAR( CI !ci )=!v

  /MISSING=LISTWISE .

SAVE OUTFILE='c:\temp\adjusted.sav'

  /DROP gm persmean adjvalue const.

GET FILE = !fpath.

!ENDDEFINE.