complexitymenu : verysimple 

w 1000 

scriptmode : demo
layoutmenu : 4plot
pan3 _ sealevelplot
scriptmode : direct

w 1000 

show   atco2calc 
show   stabconc 

loop1 if ( stabconc&atlevel < 750 ) ( stabconc&atlevel :+ 10 goto loop1 )
loop2 if ( stabconc&inyear < 2250 ) ( stabconc&inyear :+ 10 goto loop2 )
scriptmode : delay
loop3 if ( stabconc&atlevel > 400 ) ( stabconc&atlevel :- 10 stabconc&inyear :- 5 go goto loop3 )
scriptmode : direct
loop4 if ( stabconc&inyear < 2125 ) ( stabconc&inyear :+ 5 goto loop4 )
loop5 if ( stabconc&atlevel < 500 ) ( stabconc&atlevel :+ 10 goto loop5 )

w 1000 

show tempav 
show climsens 

loop6 if ( climsens < 4.5 ) ( climsens :+ 0.2 goto loop6 )
loop7 if ( climsens > 1.5 ) ( climsens :- 0.2 goto loop7 )
loop8 if ( climsens < 3 ) ( climsens :+ 0.2 goto loop8 )

