Define varx to vary

* I posted this to SPSSX-L on Aug 30 2000.
* to define variables varx to vary.
* Ray

DATA LIST LIST /a(F8).
BEGIN DATA
1
END DATA.

DEFINE MakeVars (!POS=!TOKENS(1)/!POS=!TOKENS(1)).
NUMERIC !CONCAT(Var,!1) TO !CONCAT(Var,!2).
!ENDDEFINE.

MakeVars 10 14.
EXECUTE.