* PS11.3, using DATA11-1, for Example 11.3 on exponential smoothing
SAMPLE 1 48
READ(data11-1) YEAR EMPLOY 
GENR T=TIME(0)
GENR EM2=EMPLOY
GENR EM7=EMPLOY
SAMPLE 2 48
GENR EM2=0.2*EMPLOY + 0.8*LAG(EM2)
GENR EM7=0.7*EMPLOY + 0.3*LAG(EM7)
PRINT YEAR EMPLOY EM2 EM7
DELETE / ALL
STOP