READ lang19;
TIME 2019 2069;
SERIES tsysp1 = @tsysp1*(1-((.001*Y[2019])/(Ssysp1[2019]+Ssysp2[2019]))) ;
SERIES tsysp2 = @tsysp2*(1-((.001*Y[2019])/(Ssysp1[2019]+Ssysp2[2019]))) ;
SIM;