options crt;  ? 6e1
in kopcke;
freq q;
smpl 52:1,86:4;
 print ie is kelag kslag je js f q u ce cs;  ? (a -- the long way)
show series;       ? shows range of all series, or use  dblist kopcke
smpl 52:1,52:1 86:4,86:4;  ? first and last observations only
 print ie is kelag kslag je js f q u ce cs;  ? (a -- more concise)
?
rati = ie/is;
ratk = kelag/kslag;
ratj = je/js;
ratc = ce/cs;
print rati ratk ratj ratc;  ? (b)
?
keyr = kelag/y;
ksyr = kslag/y;
kbyr = (kelag+kslag)/y;
print keyr ksyr kbyr;  ? (c)
?
supres smpl;
dot q u ce cs;
 smpl 52:1,86:4;
 msd(noprint) .;
 select .=@min .or. .=@max;
 print .;   ? (d) -- print years and min/max values
            ?  or one can just look at the entire data in (a)
enddot;
supres;
?
smpl 53:4,53:4 86:4,86:4;
dot e s;
 i.a = ( i. + i.(-1) + i.(-2) + i.(-3) )/4;  ? average of 4 quarters
 delta. = 1 - (k.lag - i.a)/k.lag(-4);  ? or is it k(+1) and k(-3) ?
 print i.a delta.;  ? (e part 1)
enddot;
smpl 52:1,86:4;
frepe = .15*kelag/ie;
freps = .05*kslag/is;
msd frepe freps;  ? (e part 2)
?
smpl 54:1 86:4;
corr ie is y-y(-8);  ? (f) note shorthand for lags 0 to 8 of y
corr ie is y y(-1) kelag kslag ie(-1) is(-1);  ? (f - one set of vars)