SAMPLE 1 11
READ X / BYVAR
   133  155  165  171  194  231  274  312  313  333  343 
GEN1 A=0.7
GEN1 B=0.6
DIM S 16 T 11
SAMPLE 2 2
GENR S=X
GENR T=X-LAG(X)
* Do the recursive computations
SET NODOECHO
DO #=3,11
SAMPLE # #
GENR S = A*X + (1-A)*(LAG(S)+LAG(T))
GENR T = B*(S-LAG(S)) + (1-B)*LAG(T)
ENDO
* Print the results 
SAMPLE 1 11
PRINT X S T 

* Forecasting
SAMPLE 12 16
GENR OBS=TIME(0)-11
GENR S = S:11 + OBS*T:11
PRINT OBS S
STOP