pause ** The demonstration is regularly interrupted by a "pause"  or "more". You can continue by pushing the key <enter>. Push now <enter>
pause ** Sometimes you do not see anything happen after pushing <enter>. That's when the computer is calculating or entering data. Please one moment patience, and not continuous pushing on <enter>.
pause ** We will read the starting values for year 1 and 2 and the exogenous variables for the years 3 up to 9
r h1-9.dmi
pause ** After pushing <enter> you will get some explanation:
smpl 1 1; table txt1.tbl
pause ** Now we are going to run the model after making some variables exogenous:
pause ** please wait for a moment, when the computer is making the calculations for the simulation.
smpl 3 7
load en(ibmvn) en(bmvn) en(kebwn) en(zebwn) en(liqwp) en(zbewn) en(cmown) en(zobwn); 8*0;
calc vhmvnt= -60
calc tbauwnt=tbauwn +90
sim p;y
calc lbwn=lbwn(-1)*(1+lbabpp/100)*(aban/aban(-1))
calc gdogwn=gdbown+mown+down-gdobwn-cmown-iown
pause ** We do not want to see too many figures behind the comma and adjust the format:
set format F7.0
pause ** We want to look at some results of the simulation, and use a ready-made table:
table kern.tbl
pause ** We want to compare the results of the historical simulation with the realisation figures, which are in file h1-9.dmi
base h1-9.dmi
pause ** We will look at the differences between simulation results and realisations:
table kerndif.tbl
table kernpdif.tbl
pause ** We store the results of the historical simulations on s1-7
smpl 1 7
w s1-7.dmi 'simulation data Microland years 1 - 7'
pause ** We store the results also on three files, which together form the primairy input file bas1-7, and with that file you can easily make further analysis in the book-keeping model MACROABC.
out wks bas1-7a.wks; ybwn ibwn lbwn dbwn bwn mbwn mown mgwn legwn zebwn lbewn zewn oegwn ogewn devwd gdobwn gdogwn iown zbown tkwn tdbwn tdgwn ogown oeown kngown kneown gdbown down lown zobwn zoewn subwn oogwn
out wks bas1-7b.wks; ooewn sdlrwn sdkrwn gouwn midown midwn kown moown liqwd cgpp bpp mpp ipp loawp
out wks bas1-7c.wks; aban aoan wwqn ta bevan b1664n b1664p migan mitan usar surr devwn liqwn sobwn soewn bvwn ekap bmwn ibmwn tbauwn tblwn tmwn kbown
pause ** The end of demo 1. To leave the model MACMICS type:  qq<return>. if you want to start the next demonstration type: ai demo2
