Home » Archimedes archive » Acorn User » AU 1994-11.adf » !CO2_CO2Effect » !CO2effect/!RunImage
!CO2effect/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-11.adf » !CO2_CO2Effect |
Filename: | !CO2effect/!RunImage |
Read OK: | ✔ |
File size: | 1ACDF bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10016PROCA_:PROCB_:PROCC_:PROCD_:PROCE_:PROCF_("<CO2effect$Dir>.HelpText"):SYS263872:PROCG_:PROCH_:PROCI_:PROCJ_:PROCK_:PROCL_:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:SYS263873:WHILENOTU_%:PROCV_:ENDWHILE:PROCW_:END 10076DEFPROCC_:DIMX_% 2560:DIMY_% 144,Z_% 518,a_% 1206,b_% 440,c_% 434,d_% 750,e_% 449,f_% 412,g_% 946,h_% 197,i_% 263:DIMj_% 738,k_% 673,l_% 484,m_% 261,n_% 495,o_% 683,p_% 693,q_% 820,r_% 807,s_% 269,t_% 269,u_% 269 10088DIMv_% 40,w_% 40,x_% 40,y_% 40,z_% 40,__% 40,`_% 40:DIMA`%(7),B`%(7):DIMC`% 24:DIMD`% 255:FORN%=0TO255:?(D`%+N%)=0:NEXT:DIME`% 11:DIMF`% 99,G`% 411,H`% 99,I`% 75,J`% 75,K`% 51,L`% 123:DIMM`% 79:DIMN`% 11:$N`%="ptr_default":DIMO`% 11:$O`%="ptr_menu" 10122DIMP`% 255:$P`%="DrawFile":DIMQ`% 255:$Q`%="Parameters":DIMR`% 255:$R`%="":DIMS`% 255:$S`%="TextFile":T`%=&AFF:DIMU`% 3:DIMV`% 15,W`% 1:DIMX`% 6:$X`%="R2;A~ ":DIMY`% 0:$Y`%="":DIMZ`% 20,a`% 20,b`% 20,c`% 20:DIMd`% 0:$d`%="" 10146DIMe`% 20:$e`%="Sslowoff,slowon":DIMf`% 20:$f`%="Sfastoff,faston":g`%=7:h`%=8:i`%=9:j`%=11:k`%=18:DIMl`% 0:$l`%="":DIMm`% 20:$m`%="Soneoff,oneon":DIMn`% 20:$n`%="Salloff,allon":o`$="":DIMp`% 256:U_%=FALSE:q`%=FALSE:r`%=FALSE:s`%=FALSE:t`%=TRUE:u`%=FALSE:v`%=TRUE 10166w`%=TRUE:x`%=TRUE:y`%=FALSE:z`%=FALSE:_`%=FALSE:``%=FALSE:Aa%=FALSE:Ba%=FALSE:Ca%=1:Da%=0:Ea%=0:DIMFa% 4:SYS6,129,0,&FFTO,Fa%:Ga$="CO2effect":SYS262336,200,&4B534154,Ga$:ONERRORPROCHa(REPORT$+" at line "+STR$ERL):PROCW_ 10196Ia%=FNJa(-1,0,0,68,68,&3002,"!CO2effect",0,0,0):ENDPROC 10202DEFPROCD_:SYS262361,,"<CO2effect$Dir>.Templates":Ka%=FNLa(Y_%,Y_%+144,-1,"Info",1):Ma%=FNLa(Z_%,Z_%+518,D`%,"Main",Na%):Oa%=X_%!72:Pa%=FNLa(a_%,a_%+1206,-1,"Saves",Na%):Qa%=FNLa(b_%,b_%+440,-1,"LHy_d",Na%):Ra%=X_%!72 10224Sa%=FNLa(c_%,c_%+434,-1,"RHy_d",Na%):Ta%=X_%!72:Ua%=FNLa(d_%,d_%+750,-1,"Configure",Na%):La%=FNLa(e_%,e_%+449,-1,"Colours",Na%):Va%=FNLa(f_%,f_%+412,-1,"Time",Na%):Wa%=FNLa(g_%,g_%+946,-1,"Tools",Na%):Xa%=X_%!72 10234Ya%=FNLa(h_%,h_%+197,-1,"Time_emiss",Na%):Za%=FNLa(i_%,i_%+263,-1,"Per_emiss",Na%):A`%(1)=FNLa(v_%,v_%+40,-1,"Emissions",1):B`%(1)=X_%!72:A`%(2)=FNLa(w_%,w_%+40,-1,"Emissions",1):B`%(2)=X_%!72 10242A`%(3)=FNLa(x_%,x_%+40,-1,"Emissions",1):B`%(3)=X_%!72:A`%(4)=FNLa(y_%,y_%+40,-1,"Emissions",1):B`%(4)=X_%!72:A`%(5)=FNLa(z_%,z_%+40,-1,"Emissions",1):B`%(5)=X_%!72:A`%(6)=FNLa(__%,__%+40,-1,"Emissions",1):B`%(6)=X_%!72 10250A`%(7)=FNLa(`_%,`_%+40,-1,"Emissions",1):B`%(7)=X_%!72:aa%=FNLa(j_%,j_%+738,-1,"Elec_gen",Na%):ba%=FNLa(k_%,k_%+673,-1,"Transport",Na%):ca%=FNLa(l_%,l_%+484,-1,"Forest",Na%):da%=FNLa(m_%,m_%+261,-1,"TempModel",Na%) 10260ea%=FNLa(n_%,n_%+495,-1,"Agricul",Na%):fa%=FNLa(o_%,o_%+683,-1,"CFC",Na%):ga%=FNLa(p_%,p_%+693,-1,"Misc",Na%):ha%=FNLa(q_%,q_%+820,-1,"Energy_use",Na%):ia%=FNLa(r_%,r_%+807,-1,"Set_emiss",Na%) 10270ja%=FNLa(s_%,s_%+269,-1,"Draw_save",Na%):ka%=X_%!140:la%=FNLa(t_%,t_%+269,-1,"p_tf_s",Na%):ma%=X_%!140:na%=FNLa(u_%,u_%+269,-1,"p_cf_s",Na%):oa%=X_%!140:SYS262362:ENDPROC 10282DEFPROCE_:RESTORE18350:PROCpa(F`%):RESTORE18352:PROCpa(G`%):RESTORE18354:PROCpa(H`%):RESTORE18356:PROCpa(I`%):RESTORE18358:PROCpa(J`%):RESTORE18360:PROCpa(K`%):RESTORE18362:PROCpa(L`%):PROCqa(L`%,3):ENDPROC 10310DEFPROCV_:SYS66TOra:SYS262369,0,X_%,ra+Da%TOsa%:CASEsa%OF 10322WHEN0:IFr`%THEN:PROCta 10326IFBa%THEN:PROCBa 10328IFz`%THEN 10330z`%=FALSE:CASEua%OF 10334WHENMa%:y`%=TRUE:SYS262353,Ma%,0,-960,1280,-150 10336WHENaa%:SYS262353,aa%,0,-344,706,0 10338ENDCASE 10340ENDIF 10342WHEN1:PROCva(!X_%) 10344WHEN2:CASEX_%!0OF 10348WHENWa%:PROCwa(H`%,2):``%=TRUE 10350ENDCASE:SYS262341,,X_% 10354WHEN3:CASEX_%!0OF 10358WHENWa%:PROCxa(H`%,2):``%=FALSE 10360WHENMa% 10362ENDCASE:SYS262342,,X_% 10366WHEN4:CASEX_%!0OF 10370WHENQa%,Sa%,La%,da%:Ba%=FALSE:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1 10374ENDCASE 10376WHEN5:CASEX_%!0OF 10380WHENja%,la%,na%:PROCya 10382WHENQa%,Sa%,La%,da%:Ba%=TRUE 10384ENDCASE 10386WHEN6:za%=X_%!12:PROC_a(X_%!8,X_%!12,X_%!16) 10390WHEN7:IF_`%THENPROC_`ELSEPROC`a 10394WHEN8:PROCAb(!X_%,X_%!4,X_%!24) 10398WHEN9:PROCBb 10402WHEN17,18:PROCCb(X_%) 10406WHEN19:PROCDb("Transfer failed - receiver died",1) 10410ENDCASE:ENDPROC 10416DEFPROC_a(Eb%,Fb%,Gb%):LOCALHb$:IFFb%<>-2ANDFb%<>ja%ANDAa%THEN:PROCLa(ja%):Aa%=FALSE 10426CASEFb%OF 10432WHEN-2:CASEEb%OF 10436WHEN1,4:PROCIb(Ma%):PROCJb:PROCKb 10444ENDCASE:IFAa%THEN:PROCLa(ja%):Aa%=FALSE 10450WHENMa%:IFEb%<>2ANDGb%=-1THEN 10456SYS262354,Ma%,-1,0,0,-1,-1:Ea%=Ma%:Aa%=TRUE 10460ENDIF:IFAa%THEN:PROCLa(ja%):Aa%=FALSE 10464CASEEb%OF 10468WHEN256,1024:CASEGb%OF 10472 10476WHEN-1:_`%=TRUE:SYS262351,,X_%:Lb%=X_%!0:Mb%=X_%!4:!X_%=Ma%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=6:X_%!8=Lb%:X_%!12=Mb%:X_%!16=Lb%:X_%!20=Mb%:X_%!24=Nb%+140:X_%!28=Ob%-700:X_%!32=Nb%+1140:X_%!36=Ob%-200 10504IFLb%<Nb%+140ORLb%>Nb%+1140ORMb%<Ob%-700ORMb%>Ob%-200THEN 10506SYS262352,,0 10508ELSE:SYS262352,,X_% 10512ENDIF 10514ENDCASE 10516WHEN1,4:CASEGb%OF 10520 10524WHEN1:IFNOTr`%ANDNOTs`%ANDt`%THEN 10528PROCPb(Ma%,1):r`%=TRUE:s`%=TRUE:t`%=FALSE 10532ENDIF 10538WHEN2:IFs`%THEN 10542r`%=NOTr`%:PROCQb(Ma%,2):IFr`%THENPROCxa(F`%,1)ELSEPROCwa(F`%,1) 10546ENDIF 10552WHEN3:IFs`%=TRUETHEN 10556r`%=FALSE:s`%=FALSE:PROCQb(Ma%,3):PROCRb(Ma%,1):PROCRb(Ma%,2):PROCQb(Ma%,3):w`%=TRUE:SYS262353,Ma%,0,-960,1280,-150 10562ENDIF 10568WHEN4:u`%=NOTu`%:PROCQb(Ma%,4):SYS262353,Ma%,0,-960,1280,-150 10580WHEN5:r`%=FALSE:s`%=FALSE:u`%=FALSE:t`%=TRUE:PROCQb(Ma%,5):PROCRb(Ma%,1):PROCRb(Ma%,2):PROCRb(Ma%,4):SYS263872:Sb%=240:Tb%=240:PROCL_:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:SYS263873:SYS262353,Ma%,0,-960,1280,-150:PROCJb 10606WHEN6:PROCQb(Ma%,6):Ub%=Vb%:IFUb%THENPROCPb(Va%,5) 10614Wb%=Xb%:PROCIb(Va%):CASEXb%OF 10620WHEN0:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):Yb%=Zb%:ab%=bb% 10626WHEN1:PROCPb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):Yb%=340:ab%=240 10632WHEN2:PROCPb(Va%,9):PROCRb(Va%,8):PROCRb(Va%,10):Yb%=350:ab%=100 10638WHEN3:PROCPb(Va%,10):PROCRb(Va%,8):PROCRb(Va%,9):Yb%=400:ab%=0 10644ENDCASE:cb%=400:db%=0:eb%=5:PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750) 10656WHEN7,g`%:v`%=NOTv`%:X_%!0=Ma%:X_%!4=g`%:SYS262350,,X_%:IFNOTv`%THEN 10664Da%=900:g`%=FNgb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,e`%) 10668ELSE:Da%=0:g`%=FNgb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,f`%) 10674ENDIF 10680WHEN8:PROCQb(Ma%,h`%):PROCIb(Qa%):CASEhb%OF 10688WHEN1:ib%=jb%:kb%=lb%:mb%=nb%:ob%=pb%:qb%=rb%:sb%=tb%:ub%=250:vb%=0:wb%=1 10696WHEN2:ib%=xb%:kb%=yb%:mb%=zb%:ob%=_b%:qb%=`b%:sb%=Ac%:ub%=500:vb%=0:wb%=1 10704ENDCASE:PROCfb(Qa%,14,mb%):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):PROCCc(Qa%,11,sb%):IFib%THENPROCPb(Qa%,5)ELSEPROCRb(Qa%,5) 10716IFkb%THENPROCPb(Qa%,8)ELSEPROCRb(Qa%,8) 10718 10722WHEN9:PROCQb(Ma%,9):PROCIb(Sa%):CASEDc%OF 10730WHEN1:Ec%=Fc%:Gc%=Hc%:Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%:Rc%=5000:Sc%=0:Tc%=10 10738WHEN2:Ec%=Uc%:Gc%=Vc%:Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%:Rc%=10000:Sc%=0:Tc%=50 10746WHEN3:Ec%=ac%:Gc%=bc%:Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0):Rc%=10000:Sc%=0:Tc%=50 10754WHEN4:Ec%=gc%:Gc%=hc%:Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%:Rc%=1000:Sc%=0:Tc%=10 10762ENDCASE:PROCfb(Sa%,14,Ic%):PROCfb(Sa%,19,Kc%):PROCfb(Sa%,23,Mc%):PROCCc(Sa%,11,Oc%):IFEc%THEN:PROCPb(Sa%,5)ELSEPROCRb(Sa%,5) 10774IFGc%THEN:PROCPb(Sa%,8)ELSEPROCRb(Sa%,8) 10776 10780WHEN10:PROCQb(Ma%,10):PROCIb(Ua%):IFmc%THENPROCPb(Ua%,4)ELSEPROCRb(Ua%,4) 10788IFnc%THENPROCPb(Ua%,28)ELSEPROCRb(Ua%,28) 10790IFoc%THENPROCPb(Ua%,30)ELSEPROCRb(Ua%,30) 10792CASEqc%OF 10794WHEN1:PROCPb(Ua%,7):PROCRb(Ua%,8):PROCRb(Ua%,9) 10796WHEN2:PROCPb(Ua%,8):PROCRb(Ua%,7):PROCRb(Ua%,9) 10798WHEN3:PROCPb(Ua%,9):PROCRb(Ua%,7):PROCRb(Ua%,8) 10800ENDCASE:CASEhb%OF 10804WHEN1:PROCPb(Ua%,11) 10806WHEN2:IFNOToc%THEN:PROCPb(Ua%,12) 10808ENDCASE:CASEDc%OF 10812WHEN1:IFNOToc%THEN:PROCPb(Ua%,16) 10814WHEN2:PROCPb(Ua%,17) 10816WHEN3:PROCPb(Ua%,18) 10818WHEN4:PROCPb(Ua%,19) 10820ENDCASE:CASErc%OF 10824WHEN1:PROCPb(Ua%,23) 10826WHEN2:PROCPb(Ua%,25) 10828WHEN3:PROCPb(Ua%,27) 10830ENDCASE 10836WHEN11,j`%:sc%=NOTsc%:IFsc%THEN 10842oc%=TRUE:mc%=TRUE:qc%=3:X_%!0=Ma%:X_%!4=j`%:SYS262350,,X_%:j`%=FNgb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,m`%):yb%=TRUE:Hc%=FALSE:hb%=2:Dc%=1:lb%=FALSE:Vc%=FALSE:hc%=FALSE:bc%=FALSE:PROCPb(Ua%,12):PROCRb(Ua%,11) 10856PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) 10866$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):PROCzc(Qa%,17,"Scale (Wm-2)"):PROCKb:PROCJb:Dc$=" ":PROCLa(Qa%):PROCPb(Ua%,4):PROCPb(Ua%,7) 10882PROCRb(Ua%,8):PROCRb(Ua%,9):PROCPb(Ua%,30) 10886ELSE:oc%=FALSE:mc%=FALSE:X_%!0=Ma%:X_%!4=j`%:SYS262350,,X_%:j`%=FNgb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,n`%):PROCPb(Ua%,12):PROCPb(Ua%,16):yb%=TRUE:Hc%=TRUE:PROCKb:PROCJb:PROCRb(Ua%,4):PROCRb(Ua%,30) 10906ENDIF:w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 10916WHEN12:PROCQb(Ma%,12):PROCIb(La%):_c%(1)=Qc%:PROCCc(La%,3,_c%(1)):_c%(2)=Zc%:PROCCc(La%,6,_c%(2)):_c%(3)=lc%:PROCCc(La%,9,_c%(3)):_c%(4)=fc%(0):PROCCc(La%,12,_c%(4)):_c%(5)=fc%(1):PROCCc(La%,15,_c%(5)):_c%(6)=fc%(2):PROCCc(La%,18,_c%(6)) 10934_c%(7)=fc%(3):PROCCc(La%,21,_c%(7)) 10940WHEN13:PROCQb(Ma%,13):PROCIb(Wa%):``%=TRUE:IF`c%=100ANDAd%=0THEN:PROCPb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23) 10948IF`c%=250ANDAd%=0THEN:PROCPb(Wa%,22):PROCRb(Wa%,21):PROCRb(Wa%,23) 10950IF`c%=1000ANDAd%=0THEN:PROCPb(Wa%,23):PROCRb(Wa%,21):PROCRb(Wa%,22) 10952IFEb%=4THEN:PROCLa(Ma%) 10954PROCwa(H`%,2) 10960WHEN14:PROCQb(Ma%,14):PROCzc(da%,2,Bd$(Cd%)):PROCIb(da%) 10972WHEN17:PROCQb(Ma%,17):Ea%=Ma%:T`%=&AFF:Dd%=P`%:PROCEd(ja%,1,P`%):PROCFd 10984WHEN18:IFFa%=&A3ORFa%=&A4THEN 10990PROCQb(Ma%,18):OSCLI"If ""<Help$Dir>""="""" Then Filer_Run Resources:$.Apps.!Help" 10994ENDIF 10996ENDCASE 10998ENDCASE 11004WHENVa%:CASEEb%OF 11008WHEN1,4:CASEGb%OF 11012WHEN5,6:PROCQb(Va%,5):Ub%=NOTUb% 11016WHEN8:Wb%=1:Yb%=340:ab%=240:PROCPb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750) 11024WHEN9:Wb%=2:Yb%=350:ab%=100:PROCPb(Va%,9):PROCRb(Va%,8):PROCRb(Va%,10):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750) 11032WHEN10:Wb%=3:Yb%=400:ab%=0:PROCPb(Va%,10):PROCRb(Va%,8):PROCRb(Va%,9):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750) 11040WHEN14:Wb%=0:PROCGd(Va%,13,14,Yb%,Yb%,db%,eb%,1750,1) 11044WHEN15:Wb%=0:PROCHd(Va%,13,15,Yb%,Yb%,cb%,eb%,1750,1) 11048WHEN18:Wb%=0:PROCGd(Va%,17,18,ab%,ab%,db%,eb%,1750,1) 11052WHEN19:Wb%=0:PROCHd(Va%,17,19,ab%,ab%,cb%,eb%,1750,1) 11056WHEN13,17:Wb%=0 11058WHEN20:PROCQb(Va%,20):IFEb%=4THEN:PROCLa(Va%) 11062WHEN21:PROCQb(Va%,21):IFNOTs`%THEN 11068IFWb%=0THEN:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10) 11070PROCId(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):IFt`%THEN:Tb%=240 11080ENDIF:CASEEb%OF 11084WHEN1:SYS262353,Ma%,0,-960,1280,-150 11088WHEN4:PROCLa(Va%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 11096ENDCASE 11098ENDCASE 11100ENDCASE 11106WHENQa%:CASEEb%OF 11110WHEN1,4:CASEGb%OF 11114WHEN5,6:PROCQb(Qa%,5):ib%=NOTib% 11116WHEN8,9:PROCQb(Qa%,8):kb%=NOTkb% 11118WHEN15:PROCGd(Qa%,14,15,mb%,mb%,1,1,0,1) 11120WHEN16:PROCHd(Qa%,14,16,mb%,mb%,25,1,0,1) 11122WHEN20:PROCGd(Qa%,19,20,ob%,ob%,vb%,wb%,0,10) 11124WHEN21:PROCHd(Qa%,19,21,ob%,ob%,ub%,wb%,0,10) 11126WHEN24:PROCGd(Qa%,23,24,qb%,qb%,vb%,wb%,0,10) 11128WHEN25:PROCHd(Qa%,23,25,qb%,qb%,ub%,wb%,0,10) 11130WHEN26:PROCQb(Qa%,26):IFEb%=4THEN:PROCLa(Qa%) 11134WHEN27:PROCQb(Qa%,27):IFNOTs`%THEN 11138PROCPd(mb%,ob%,qb%,ub%,vb%):CASEhb%OF 11142WHEN1:jb%=ib%:lb%=kb%:nb%=mb%:pb%=ob%:rb%=qb%:tb%=sb%:PROCJd:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc) 11150WHEN2:xb%=ib%:yb%=kb%:zb%=mb%:_b%=ob%:`b%=qb%:Ac%=sb%:PROCJd:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc) 11158ENDCASE 11160ENDIF:CASEEb%OF 11164WHEN1:SYS262353,Ma%,0,-960,1280,-150 11168WHEN4:PROCLa(Qa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 11176ENDCASE 11178ENDCASE 11180ENDCASE 11186WHENSa%:CASEEb%OF 11190WHEN1,4:CASEGb%OF 11194WHEN5,6:PROCQb(Sa%,5):Ec%=NOTEc% 11196WHEN8,9:PROCQb(Sa%,8):Gc%=NOTGc% 11198WHEN15:PROCGd(Sa%,14,15,Ic%,Ic%,1,1,0,1) 11200WHEN16:PROCHd(Sa%,14,16,Ic%,Ic%,25,1,0,1) 11202WHEN20:PROCGd(Sa%,19,20,Kc%,Kc%,Sc%,Tc%,0,1) 11204WHEN21:PROCHd(Sa%,19,21,Kc%,Kc%,Rc%,Tc%,0,1) 11206WHEN24:PROCGd(Sa%,23,24,Mc%,Mc%,Sc%,Tc%,0,1) 11208WHEN25:PROCHd(Sa%,23,25,Mc%,Mc%,Rc%,Tc%,0,1) 11210WHEN26:PROCQb(Sa%,26):IFEb%=4THEN:PROCLa(Sa%) 11214WHEN27:PROCQb(Sa%,27):IFNOTs`%THEN 11218PROCRd(Ic%,Kc%,Mc%,Rc%,Sc%):CASEDc%OF 11222WHEN1:Fc%=Ec%:Hc%=Gc%:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:Qc%=Oc%:PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd) 11230WHEN2:Uc%=Ec%:Vc%=Gc%:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:Zc%=Oc%:PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd) 11238WHEN3:ac%=Ec%:bc%=Gc%:cc%=Ic%:dc%=Kc%:ec%=Mc%:fc%(0)=Oc%:PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd) 11246WHEN4:gc%=Ec%:hc%=Gc%:ic%=Ic%:jc%=Kc%:kc%=Mc%:lc%=Oc%:PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd) 11254ENDCASE 11256ENDIF:CASEEb%OF 11260WHEN1:SYS262353,Ma%,0,-960,1280,-150 11264WHEN4:PROCLa(Sa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 11272ENDCASE 11274ENDCASE 11276ENDCASE 11282WHENUa%:CASEEb%OF 11286WHEN2 11288WHEN1,4:CASEGb%OF 11292WHEN4,5:PROCQb(Ua%,4):mc%=NOTmc% 11296WHEN7:qc%=1:PROCPb(Ua%,7):PROCRb(Ua%,8):PROCRb(Ua%,9) 11300WHEN8:qc%=2:PROCPb(Ua%,8):PROCRb(Ua%,7):PROCRb(Ua%,9) 11304WHEN9:qc%=3:PROCPb(Ua%,9):PROCRb(Ua%,7):PROCRb(Ua%,8) 11308WHEN11:IFNOToc%THEN 11312hb%=1:PROCPb(Ua%,11):PROCRb(Ua%,12):lb%=kb%:jb%=ib%:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):$b`%="Stempoff,tempon":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) 11324PROCzc(Qa%,17,"Scale (�C)"):PROCKb:PROCJb 11328ENDIF 11330WHEN12,13:hb%=2:PROCPb(Ua%,12):PROCRb(Ua%,11):yb%=kb%:xb%=ib%:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) 11344PROCzc(Qa%,17,"Scale (Wm-2)"):IFoc%THEN 11348PROCRb(Ua%,16):yb%=TRUE:Hc%=FALSE:hb$="Radiative Forcing (Wm-2)":Dc$=" ":Gc%=FALSE 11354ENDIF:PROCKb:PROCJb 11358WHEN16:Dc%=1:PROCPb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):Hc%=Gc%:Fc%=Ec%:$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) 11370PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):IFoc%THEN 11374PROCRb(Ua%,12):yb%=FALSE:Hc%=TRUE:hb$=" ":Dc$="CO2 conc. (ppmv)":kb%=FALSE 11380ENDIF:PROCKb:PROCJb 11384WHEN17:IFNOToc%THEN 11388Dc%=2:PROCPb(Ua%,17):PROCRb(Ua%,16):PROCRb(Ua%,18):PROCRb(Ua%,19):Vc%=Gc%:Uc%=Ec%:$a`%="Sch4_off,ch4_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) 11398PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb 11402ENDIF 11404WHEN18:IFNOToc%THEN 11408Dc%=3:PROCPb(Ua%,18):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,19):bc%=Gc%:ac%=Ec%:$a`%="Scfc_off,cfc_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) 11418PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb 11422ENDIF 11424WHEN19:IFNOToc%THEN 11428Dc%=4:PROCPb(Ua%,19):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):hc%=Gc%:gc%=Ec%:$a`%="Sn2o_off,n2o_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) 11438PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb 11442ENDIF 11444WHEN23,24:rc%=1:CASECd%OF 11450WHEN0:ad%=157:rb%=0:pb%=Qd% 11452WHEN1:ad%=153:rb%=0:pb%=Qd% 11454WHEN2:ad%=150:rb%=0:pb%=Qd% 11456WHEN3:ad%=0:rb%=0:pb%=Qd% 11458ENDCASE:bd%=24:`b%=0:_b%=uc%:cd%=353:Nc%=0:Lc%=Sd%:dd%=1717:Yc%=0:Xc%=Xd%:ed%(0)=818:ed%(1)=255:ed%(2)=453:ed%(3)=110:ec%=0:dc%=Yd%:fd%=310:kc%=0:jc%=Zd%:gd%=15:hd%=4:id%=1:jd%(0)=3:jd%(1)=1:jd%(2)=1:jd%(3)=1:PROCKb:PROCJb 11476WHEN25,26:rc%=2:CASECd%OF 11482WHEN0:ad%=144:rb%=0:pb%=Qd% 11484WHEN1:ad%=144:rb%=0:pb%=Qd% 11486WHEN2:ad%=144:rb%=0:pb%=Qd% 11488WHEN4:ad%=0:rb%=0:pb%=Qd% 11490ENDCASE:bd%=0:`b%=0:_b%=uc%:cd%=280:Nc%=0:Lc%=Sd%:dd%=790:Yc%=0:Xc%=Xd%:ed%()=0:ec%=0:dc%=Yd%:fd%=285:kc%=0:jc%=Zd%:gd%=0:hd%=0:jd%()=0:id%=0:PROCKb:PROCJb 11506WHEN27,32:rc%=3:ad%=0:rb%=130+ad%:pb%=130+ad%+Qd%:bd%=0:`b%=bd%:_b%=bd%+uc%:cd%=0:Nc%=cd%:Lc%=cd%+Sd%:dd%=0:Yc%=dd%:Xc%=dd%+Xd%:ed%()=0:ec%=ed%(0):dc%=ed%(0)+Yd%:fd%=0:kc%=fd%:jc%=fd%+Zd%:gd%=0:hd%=0:jd%()=0:id%=0:PROCKb:PROCJb 11526WHEN28,29:nc%=NOTnc%:PROCQb(Ua%,28) 11530WHEN30,31:oc%=NOToc%:PROCQb(Ua%,30):IFoc%THEN 11536yb%=TRUE:Hc%=FALSE:hb%=2:kd%=1:lb%=FALSE:Vc%=FALSE:hc%=FALSE:bc%=FALSE:PROCPb(Ua%,12):PROCRb(Ua%,11):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_% 11552h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%):$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):PROCKb:Dc$=" " 11564PROCLa(Qa%) 11566ELSE:yb%=TRUE:Hc%=TRUE:nc%=FALSE:PROCPb(Ua%,12):PROCPb(Ua%,16):PROCRb(Ua%,28):PROCKb 11574ENDIF 11576ENDCASE:IFEb%=4THEN 11580SYS262353,Ma%,0,-960,1280,-150 11584ENDIF 11586ENDCASE 11592WHENLa%:CASEEb%OF 11596WHEN1,4:CASEGb%OF 11600WHEN24:IFEb%=4THEN:PROCLa(La%) 11604WHEN25:Qc%=_c%(1):Zc%=_c%(2):lc%=_c%(3):fc%(0)=_c%(4):fc%(1)=_c%(5):fc%(2)=_c%(6):fc%(3)=_c%(7):IFEb%=4THEN:PROCLa(La%) 11610w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 11614ENDCASE 11616ENDCASE 11622WHENWa%:CASEEb%OF 11626WHEN1:CASEGb%OF 11630WHEN1,2,4,5,6,7:PROCQb(Wa%,Gb%):IFld%>0THEN:PROCRb(Wa%,ld%-1) 11634IFld%=Gb%+1THENld%=0ELSEld%=Gb%+1 11636PROCmd:IFnd%THENHb$=" *"ELSEHb$="" 11640FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):SYS262353,A`%(N%),0,-420,640,0:NEXT 11650ENDCASE 11652WHEN4:CASEGb%OF 11656WHEN0:PROCQb(Wa%,0):xd%=TRUE:PROCIb(aa%):yd%()=zd%():_d%()=`d%():Ae%()=Be%():Ce%()=De%():Ee%()=Fe%():Ge%()=He%():Ie%=Je%:Ke%()=Le%():PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%)) 11666PROCfb(aa%,30,Ie%):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,3+5*N%)ELSEPROCRb(aa%,3+5*N%):NEXT 11670PROCQb(Wa%,0) 11672WHEN1:PROCQb(Wa%,1):PROCIb(ha%):Me%()=Ne%():Oe%()=Pe%():Qe%()=Re%():Se%()=Te%():Ue%()=Ve%():We%=Xe%:Ye%()=Ze%():FORN%=0TO5:PROCae(N%):NEXT:PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%)) 11684PROCfb(ha%,26,We%):PROCfb(ha%,30,Ye%(We%)):PROCQb(Wa%,1) 11688WHEN2:PROCQb(Wa%,2):PROCIb(ba%):be%=ce%:de%()=ee%():fe%()=ge%():he%()=ie%():je%()=ke%():le%()=me%():PROCfb(ba%,23,be%):PROCfb(ba%,27,fe%(be%)):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCQb(Wa%,2) 11702WHEN3:PROCQb(Wa%,3):PROCIb(fa%):ne%()=oe%():pe%()=qe%():re%()=se%():te%()=ue%():ve%()=we%():xe%=ye%:ze%()=_e%():PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%)) 11712PROCfb(fa%,25,xe%):PROCfb(fa%,29,ze%(xe%)):PROCQb(Wa%,3) 11716WHEN4:PROCQb(Wa%,4):PROCIb(ca%):`e%()=Af%():Bf%()=Cf%():Df%=Ef%:Ff%()=Gf%():PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,12,Df%):PROCfb(ca%,16,Ff%(Df%)):PROCQb(Wa%,4) 11730WHEN5:PROCQb(Wa%,5):PROCIb(ea%):Hf%()=If%():Jf%()=Kf%():Lf%=Mf%:Nf%()=Of%():PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,12,Lf%):PROCfb(ea%,16,Nf%(Lf%)):PROCQb(Wa%,5) 11744WHEN6:PROCQb(Wa%,6):PROCIb(ga%):Pf%()=Qf%():Rf%()=Sf%():Tf%()=Uf%():Vf%=Wf%:Xf%()=Yf%():PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,21,Vf%):PROCfb(ga%,25,Nf%(Vf%)):PROCQb(Wa%,6) 11758ENDCASE 11760ENDCASE:CASEEb%OF 11764WHEN1,4:CASEGb%OF 11768WHEN9,10,11,12,13,14,15:IFnd%THENHb$=" *"ELSEHb$="" 11772PROCQb(Wa%,Gb%):PROCIb(A`%(Gb%-8)):PROCwd(A`%(Gb%-8),B`%(Gb%-8),B`$(Gb%-8,ld%)+Hb$) 11776WHEN17:PROCQb(Wa%,17):FORN%=1TO7:PROCLa(A`%(N%)):NEXT 11780WHEN18,k`%:Zf%=NOTZf%:X_%!0=Wa%:X_%!4=k`%:SYS262350,,X_%:IFZf%THEN 11788$c`%="Sabs_off,abs_on":k`%=FNgb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%) 11792ELSE:$c`%="Sper_off,per_on":k`%=FNgb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%) 11800ENDIF 11802WHEN8:PROCQb(Wa%,8):PROCIb(Ya%):af%=bf%:cf%=5:PROCfb(Ya%,4,af%) 11810WHEN19:df%=NOTdf%:IFdf%THENPROCPb(Wa%,19)ELSEPROCRb(Wa%,19) 11816WHEN20:PROCQb(Wa%,20):PROCIb(Za%):ef%=`c%:ff%=Ad%:gf%=10:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%) 11824WHEN16:hf%=NOThf%:IFhf%THENPROCPb(Wa%,16)ELSEPROCRb(Wa%,16) 11830WHEN21:PROCPb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23):`c%=100:Ad%=0:ef%=100:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%) 11838WHEN22:PROCPb(Wa%,22):PROCRb(Wa%,21):PROCRb(Wa%,23):`c%=250:Ad%=0:ef%=250:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%) 11846WHEN23:PROCPb(Wa%,23):PROCRb(Wa%,21):PROCRb(Wa%,22):`c%=1000:Ad%=0:ef%=1000:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%) 11854WHEN26:PROCQb(Wa%,26):PROCIb(Ma%):IFEb%=4THEN:PROCLa(Wa%):PROCxa(H`%,2):``%=FALSE 11860WHEN27:PROCQb(Wa%,27):PROCIb(ia%):if%()=jf%():kf%()=lf%():mf%()=nf%():of%=pf%:PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%)):PROCfb(ia%,21,of%):FORN%=1TO6:IFif%(N%)THENPROCPb(ia%,2*N%)ELSEPROCRb(ia%,2*N%):NEXTN% 11872WHEN28,29,30,31:PROCQb(Wa%,Gb%):PROCqf:PROCrf(Gb%-28):nd%=TRUE:PROCsf:PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd 11898WHEN24:IFNOTAg%ANDNOTr`%ANDNOTs`%THEN 11902SYS263872:PROCPb(Wa%,24):Ag%=TRUE:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:nd%=FALSE:PROCsf:SYS263873:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:PROCRb(Wa%,24):Ag%=FALSE 11916ENDIF 11918WHEN25:IFld%>0THEN:PROCRb(Wa%,ld%-1) 11922PROCQb(Wa%,25):ld%=0:PROCmd:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):SYS262353,A`%(N%),0,-420,640,0:PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):NEXT 11936ENDCASE:CASEGb%OF 11940WHENk`%,21,22,23:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):IFNOTZf%THEN 11948PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT 11954ENDIF 11956ENDCASE:CASEGb%OF 11960WHEN16,19,21,22,23,k`%:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:IFNOT(Zf%AND(Gb%=21ORGb%=22ORGb%=23))THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0 11968ENDCASE 11970ENDCASE 11976WHENYa%:CASEEb%OF 11980WHEN1,4:CASEGb%OF 11984WHEN5:PROCGd(Ya%,4,5,af%,af%,1995,cf%,0,1) 11986WHEN6:PROCHd(Ya%,4,6,af%,af%,2150,cf%,0,1) 11988WHEN7:IFEb%=4THEN:PROCLa(Ya%) 11990WHEN8:PROCQg:IFFNRgTHEN 11996PROCSg:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):IFEb%=4THEN:PROCLa(Ya%) 12002FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0 12008ENDIF 12010ENDCASE 12012ENDCASE 12018WHENZa%:CASEEb%OF 12022WHEN1,4:CASEGb%OF 12026WHEN5:PROCGd(Za%,3,5,ef%,ef%,-1000,gf%,0,1) 12028WHEN6:PROCHd(Za%,3,6,ef%,ef%,5000,gf%,0,1) 12030WHEN10:PROCGd(Za%,8,10,ff%,ff%,-1000,gf%,0,1) 12032WHEN11:PROCHd(Za%,8,11,ff%,ff%,5000,gf%,0,1) 12034WHEN13:IFEb%=4THEN:PROCLa(Za%) 12036WHEN14:PROCZg:IFFNagTHEN 12042PROCRb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23):PROCbg:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):IFNOTZf%THEN:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT 12056IFEb%=4THEN:PROCLa(Za%) 12058FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:IFNOTZf%THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0 12064ENDIF 12066ENDCASE 12068ENDCASE 12074WHENaa%:CASEEb%OF 12078WHEN1,4:IFIe%>0THEN 12082CASEGb%OF 12084WHEN6:PROCGd(aa%,5,6,yd%(Ie%),yd%(Ie%),0,1,0,1) 12086WHEN7:PROCHd(aa%,5,7,yd%(Ie%),yd%(Ie%),100,1,0,1) 12088WHEN11:PROCGd(aa%,10,11,_d%(Ie%),_d%(Ie%),0,1,0,1) 12090WHEN12:PROCHd(aa%,10,12,_d%(Ie%),_d%(Ie%),100,1,0,1) 12092WHEN16:PROCGd(aa%,15,16,Ae%(Ie%),Ae%(Ie%),0,1,0,1) 12094WHEN17:PROCHd(aa%,15,17,Ae%(Ie%),Ae%(Ie%),100,1,0,1) 12096WHEN21:PROCGd(aa%,20,21,Ce%(Ie%),Ce%(Ie%),0,1,0,1) 12098WHEN22:PROCHd(aa%,20,22,Ce%(Ie%),Ce%(Ie%),100,1,0,1) 12100WHEN26:PROCGd(aa%,25,26,Ee%(Ie%),Ee%(Ie%),0,1,0,1) 12102WHEN27:PROCHd(aa%,25,27,Ee%(Ie%),Ee%(Ie%),100,1,0,1) 12104WHEN42:PROCGd(aa%,41,42,Ke%(Ie%),Ke%(Ie%),1,5,0,1) 12106WHEN43:PROCHd(aa%,41,43,Ke%(Ie%),Ke%(Ie%),cg%,5,0,1) 12108WHEN8,13,18,23:PROCQb(aa%,Gb%):Ge%(Ie%,(Gb%-3)/5)=NOTGe%(Ie%,(Gb%-3)/5) 12114ENDIF 12116ENDCASE:CASEGb%OF 12120WHEN31:IFIe%>0THEN:PROCxd 12124IFFNdgORIe%=0THEN 12126PROCGd(aa%,30,31,Ie%,Ie%,0,1,0,1):PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%)):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,5*N%+3)ELSEPROCRb(aa%,5*N%+3) 12134NEXT 12136ENDIF 12138WHEN32:IFIe%>0THEN:PROCxd 12142IFFNdgORIe%=0THEN 12144PROCHd(aa%,30,32,Ie%,Ie%,5,1,0,1):PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%)):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,5*N%+3)ELSEPROCRb(aa%,5*N%+3) 12152NEXT 12154ENDIF 12156WHEN35:IFEb%=4THEN:PROCLa(aa%) 12158WHEN36,37:IFIe%>0THEN:PROCxd 12162IFFNdgTHEN 12164IFGb%=37ANDEb%=4THEN:PROCLa(aa%) 12166nd%=TRUE:PROCsf:PROCeg(Le%()):PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCfg:PROCwf:FORN%=0TO5:PROCae(N%):NEXT:Re%()=Qe%():PROCfb(ha%,8,Pe%(We%)):PROCfb(ha%,12,Re%(We%)):SYS262353,aa%,0,-344,706,0 12184ENDIF 12186ENDCASE 12188ENDCASE 12194WHENba%:CASEEb%OF 12198WHEN1,4:IFbe%>0THEN 12202CASEGb%OF 12204WHEN5:PROCGd(ba%,3,5,de%(be%),de%(be%),-100,1,0,1) 12206WHEN6:PROCHd(ba%,3,6,de%(be%),de%(be%),10,1,0,1) 12208WHEN10:PROCGd(ba%,8,10,he%(be%),he%(be%),0,1,0,1) 12210WHEN11:PROCHd(ba%,8,11,he%(be%),he%(be%),100,1,0,1) 12212WHEN15:PROCGd(ba%,13,15,je%(be%),je%(be%),0,1,0,1) 12214WHEN16:PROCHd(ba%,13,16,je%(be%),je%(be%),100,1,0,1) 12216WHEN20:PROCGd(ba%,18,20,le%(be%),le%(be%),0,1,0,1) 12218WHEN21:PROCHd(ba%,18,21,le%(be%),le%(be%),100,1,0,1) 12220WHEN29:PROCGd(ba%,27,29,fe%(be%),fe%(be%),1,5,0,1) 12222WHEN30:PROCHd(ba%,27,30,fe%(be%),fe%(be%),cg%,5,0,1) 12224ENDCASE 12226ENDIF:CASEGb%OF 12230WHEN24:IFbe%>0THEN:PROCgg 12234IFFNhgORbe%=0THEN 12236PROCGd(ba%,23,24,be%,be%,0,1,0,1):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCfb(ba%,27,fe%(be%)) 12242ENDIF 12244WHEN25:IFbe%>0THEN:PROCgg 12248IFFNhgORbe%=0THEN 12250PROCHd(ba%,23,25,be%,be%,5,1,0,1):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCfb(ba%,27,fe%(be%)) 12256ENDIF 12258WHEN32:IFEb%=4THEN:PROCLa(ba%) 12260WHEN33,34:IFbe%>0THEN:PROCgg 12264IFFNhgTHEN 12266IFGb%=34ANDEb%=4THEN:PROCLa(ba%) 12268nd%=TRUE:PROCsf:PROCeg(ge%()):PROCxf:SYS262353,ba%,0,-300,798,0 12274ENDIF 12276ENDCASE 12278ENDCASE 12284WHENfa%:CASEEb%OF 12288WHEN1,4:IFxe%>0THEN 12292CASEGb%OF 12294WHEN6:PROCGd(fa%,4,6,ne%(xe%),ne%(xe%),0,1,0,1) 12296WHEN7:PROCHd(fa%,4,7,ne%(xe%),ne%(xe%),100,1,0,1) 12298WHEN11:PROCGd(fa%,9,11,pe%(xe%),pe%(xe%),0,1,0,1) 12300WHEN12:PROCHd(fa%,9,12,pe%(xe%),pe%(xe%),100,1,0,1) 12302WHEN16:PROCGd(fa%,14,16,re%(xe%),re%(xe%),0,1,0,1) 12304WHEN17:PROCHd(fa%,14,17,re%(xe%),re%(xe%),100,1,0,1) 12306WHEN22:PROCGd(fa%,20,22,te%(xe%),te%(xe%),0,1,0,1) 12308WHEN23:PROCHd(fa%,20,23,te%(xe%),te%(xe%),100,1,0,1) 12310WHEN31:PROCGd(fa%,29,31,ze%(xe%),ze%(xe%),1,5,0,1) 12312WHEN32:PROCHd(fa%,29,32,ze%(xe%),ze%(xe%),cg%,5,0,1) 12314WHEN41:PROCGd(fa%,37,41,ve%(xe%),ve%(xe%),0,10,0,1) 12316WHEN42:PROCHd(fa%,37,42,ve%(xe%),ve%(xe%),9990,10,0,1) 12318ENDCASE 12320ENDIF:CASEGb%OF 12324WHEN26:IFxe%>0THEN:PROCig 12328IFFNjgORxe%=0THEN 12330PROCGd(fa%,25,26,xe%,xe%,0,1,0,1):PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%)):PROCfb(fa%,29,ze%(xe%)) 12334ENDIF 12336WHEN27:IFxe%>0THEN:PROCig 12340IFFNjgORxe%=0THEN 12342PROCHd(fa%,25,27,xe%,xe%,5,1,0,1):PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%)):PROCfb(fa%,29,ze%(xe%)) 12346ENDIF 12348WHEN34:IFEb%=4THEN:PROCLa(fa%) 12350WHEN35:IFxe%>0THEN:PROCig 12354IFFNjgORxe%=0THEN 12356IFEb%=4THEN:PROCLa(fa%) 12358nd%=TRUE:PROCsf:PROCeg(_e%()):PROCyf 12362ENDIF 12364ENDCASE 12366ENDCASE 12372WHENca%:CASEEb%OF 12376WHEN1,4:IFDf%>0THEN 12380CASEGb%OF 12382WHEN4:PROCGd(ca%,3,4,`e%(Df%),`e%(Df%),0,1,0,1) 12384WHEN5:PROCHd(ca%,3,5,`e%(Df%),`e%(Df%),999,1,0,1) 12386WHEN9:PROCGd(ca%,8,9,Bf%(Df%),Bf%(Df%),0,1,0,1) 12388WHEN10:PROCHd(ca%,8,10,Bf%(Df%),Bf%(Df%),999,1,0,1) 12390WHEN18:PROCGd(ca%,16,18,Ff%(Df%),Ff%(Df%),1,5,0,1) 12392WHEN19:PROCHd(ca%,16,19,Ff%(Df%),Ff%(Df%),cg%,5,0,1) 12394ENDCASE 12396ENDIF:CASEGb%OF 12400WHEN13:IFDf%>0THEN:PROCkg 12404IFFNlgORDf%=0THEN 12406PROCGd(ca%,12,13,Df%,Df%,0,1,0,1):PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,16,Ff%(Df%)) 12410ENDIF 12412WHEN14:IFDf%>0THEN:PROCkg 12416IFFNlgORDf%=0THEN 12418PROCHd(ca%,12,14,Df%,Df%,5,1,0,1):PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,16,Ff%(Df%)) 12422ENDIF 12424WHEN21:IFEb%=4THEN:PROCLa(ca%) 12426WHEN22:IFDf%>0THEN:PROCkg 12430IFFNlgTHEN 12432IFEb%=4THEN:PROCLa(ca%) 12434nd%=TRUE:PROCsf:PROCeg(Gf%()):PROCzf 12438ENDIF 12440ENDCASE 12442ENDCASE 12448WHENea%:CASEEb%OF 12452WHEN1,4:IFLf%>0THEN 12456CASEGb%OF 12458WHEN4:PROCGd(ea%,3,4,Hf%(Lf%),Hf%(Lf%),0,50,0,1) 12460WHEN5:PROCHd(ea%,3,5,Hf%(Lf%),Hf%(Lf%),50000,50,0,1) 12462WHEN9:PROCGd(ea%,8,9,Jf%(Lf%),Jf%(Lf%),0,1,0,1) 12464WHEN10:PROCHd(ea%,8,10,Jf%(Lf%),Jf%(Lf%),999,1,0,1) 12466WHEN18:PROCGd(ea%,16,18,Nf%(Lf%),Nf%(Lf%),1,5,0,1) 12468WHEN19:PROCHd(ea%,16,19,Nf%(Lf%),Nf%(Lf%),cg%,5,0,1) 12470ENDCASE 12472ENDIF:CASEGb%OF 12476WHEN13:IFLf%>0THEN:PROCx` 12480IFFNmgORLf%=0THEN 12482PROCGd(ea%,12,13,Lf%,Lf%,0,1,0,1):PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,16,Nf%(Lf%)) 12486ENDIF 12488WHEN14:IFLf%>0THEN:PROCx` 12492IFFNmgORLf%=0THEN 12494PROCHd(ea%,12,14,Lf%,Lf%,5,1,0,1):PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,16,Nf%(Lf%)) 12498ENDIF 12500WHEN21:IFEb%=4THEN:PROCLa(ea%) 12502WHEN22:IFLf%>0THEN:PROCx` 12506IFFNmgTHEN 12508IFEb%=4THEN:PROCLa(ea%) 12512nd%=TRUE:PROCsf:PROCeg(Of%()):PROC_f 12516ENDIF 12518ENDCASE 12520ENDCASE 12526WHENga%:CASEEb%OF 12530WHEN1,4:IFVf%>0THEN 12534CASEGb%OF 12536WHEN6:PROCGd(ga%,4,6,Pf%(Vf%),Pf%(Vf%),0,1,0,1) 12538WHEN7:PROCHd(ga%,4,7,Pf%(Vf%),Pf%(Vf%),999,1,0,1) 12540WHEN12:PROCGd(ga%,10,12,Rf%(Vf%),Rf%(Vf%),0,1,0,1) 12542WHEN13:PROCHd(ga%,10,13,Rf%(Vf%),Rf%(Vf%),999,1,0,1) 12544WHEN18:PROCGd(ga%,16,18,Tf%(Vf%),Tf%(Vf%),0,1,0,1) 12546WHEN19:PROCHd(ga%,16,19,Tf%(Vf%),Tf%(Vf%),999,1,0,1) 12548WHEN27:PROCGd(ga%,25,27,Xf%(Vf%),Xf%(Vf%),1,5,0,1) 12550WHEN28:PROCHd(ga%,25,28,Xf%(Vf%),Xf%(Vf%),cg%,5,0,1) 12552ENDCASE 12554ENDIF:CASEGb%OF 12558WHEN22:IFVf%>0THEN:PROCng 12562IFFNogORVf%=0THEN 12564PROCGd(ga%,21,22,Vf%,Vf%,0,1,0,1):PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,25,Xf%(Vf%)) 12568ENDIF 12570WHEN23:IFVf%>0THEN:PROCng 12574IFFNogORVf%=0THEN 12576PROCHd(ga%,21,23,Vf%,Vf%,5,1,0,1):PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,25,Xf%(Vf%)) 12580ENDIF 12582WHEN30:IFEb%=4THEN:PROCLa(ga%) 12584WHEN31:IFVf%>0THEN:PROCng 12588IFFNogORVf%=0THEN 12590IFEb%=4THEN:PROCLa(ga%) 12592nd%=TRUE:PROCsf:PROCeg(Yf%()):PROC`f 12596ENDIF 12598ENDCASE 12600ENDCASE 12606WHENha%:CASEEb%OF 12610WHEN1,4:IFWe%>0THEN 12614CASEGb%OF 12616WHEN4:PROCGd(ha%,2,4,Me%(We%),Me%(We%),0,100,0,1) 12618WHEN5:PROCHd(ha%,2,5,Me%(We%),Me%(We%),999900,100,0,1) 12620WHEN17:PROCGd(ha%,15,17,Se%(We%),Se%(We%),0,1,0,1) 12622WHEN18:PROCHd(ha%,15,18,Se%(We%),Se%(We%),100,1,0,1) 12624WHEN23:PROCGd(ha%,21,23,Ue%(We%),Ue%(We%),0,100,0,1) 12626WHEN24:PROCHd(ha%,21,24,Ue%(We%),Ue%(We%),999900,100,0,1) 12628WHEN32:PROCGd(ha%,30,32,Ye%(We%),Ye%(We%),1,5,0,1) 12630WHEN33:PROCHd(ha%,30,33,Ye%(We%),Ye%(We%),cg%,5,0,1) 12632ENDCASE 12634ENDIF:CASEGb%OF 12638WHEN4,5,23,24:PROCae(We%):PROCfb(ha%,12,Qe%(We%)) 12642WHEN27:IFWe%>0THEN:PROCpg 12646IFFNqgORWe%=0THEN 12648PROCGd(ha%,26,27,We%,We%,0,1,0,1):PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%)):PROCfb(ha%,30,Ye%(We%)) 12654ENDIF 12656WHEN28:IFWe%>0THEN:PROCpg 12660IFFNqgORWe%=0THEN 12662PROCHd(ha%,26,28,We%,We%,5,1,0,1):PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%)):PROCfb(ha%,30,Ye%(We%)) 12668ENDIF 12670WHEN35:IFEb%=4THEN:PROCLa(ha%) 12672WHEN36:IFWe%>0THEN:PROCpg 12676IFFNqgTHEN 12678IFEb%=4THEN:PROCLa(ha%) 12680nd%=TRUE:PROCsf:PROCeg(Ze%()):PROCwf 12684ENDIF 12686ENDCASE 12688ENDCASE 12694WHENia%:CASEEb%OF 12698WHEN1,4:CASEGb%OF 12702WHEN2,4,6,8,10,12:if%(Gb%/2)=NOTif%(Gb%/2):PROCQb(ia%,Gb%) 12706WHEN3,5,7,9,11,13:if%((Gb%-1)/2)=NOTif%((Gb%-1)/2):PROCQb(ia%,Gb%-1) 12710ENDCASE:IFof%>-1THEN 12716CASEGb%OF 12718WHEN18:PROCGd(ia%,16,18,kf%(of%),kf%(of%),-100,1,0,1) 12720WHEN19:PROCHd(ia%,16,19,kf%(of%),kf%(of%),10,1,0,1) 12722WHEN27:PROCGd(ia%,25,27,mf%(of%),mf%(of%),1,5,0,1) 12724WHEN28:PROCHd(ia%,25,28,mf%(of%),mf%(of%),cg%,5,0,1) 12726ENDCASE 12728ENDIF:CASEGb%OF 12732WHEN22:IFof%>-1THEN:PROCrg 12736IFFNsgTHEN 12738PROCGd(ia%,21,22,of%,of%,0,1,0,1):PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%)) 12742ENDIF 12744WHEN23:IFof%>-1THEN:PROCrg 12748IFFNsgTHEN 12750PROCHd(ia%,21,23,of%,of%,5,1,0,1):PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%)) 12754ENDIF 12756WHEN30:IFEb%=4THEN:PROCLa(ia%) 12758WHEN31,32:IFof%>-1THEN:PROCrg 12762IFFNsgTHEN 12764IFEb%=4ANDGb%=32THEN:PROCLa(ia%) 12766SYS263872:PROCtg:PROCeg(nf%()):IFNOT(jf%(1)ANDjf%(2)ANDjf%(3)ANDjf%(4)ANDjf%(5)ANDjf%(6))THEN 12772PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_ 12774ENDIF:PROCS_:PROCT_:SYS263873:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT 12782ENDIF 12784ENDCASE 12786ENDCASE 12792WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):CASEEb%OF 12796WHEN1,4:Ea%=Fb% 12798ENDCASE 12804WHENja%:CASEEb%OF 12808WHEN64:CASEGb%OF 12812WHEN2:T`%=&AFF:PROCug(ja%,1,P`%):PROCvg(ja%,2) 12814ENDCASE 12816WHEN1,4:CASEGb%OF 12820WHEN0:PROCEd(ja%,1,P`%):PROCFd 12822ENDCASE 12824ENDCASE 12830WHENna%:CASEEb%OF 12834WHEN64:CASEGb%OF 12838WHEN2:T`%=&077:PROCug(na%,1,Q`%):PROCvg(na%,2) 12840ENDCASE 12842WHEN1,4:CASEGb%OF 12846WHEN0:PROCEd(na%,1,Q`%):PROCFd 12848ENDCASE 12850ENDCASE 12856WHENla%:CASEEb%OF 12860WHEN64:CASEGb%OF 12864WHEN2:T`%=&FFF:PROCug(la%,1,S`%):PROCvg(la%,2) 12866ENDCASE 12868WHEN1,4:CASEGb%OF 12872WHEN0:PROCEd(la%,1,S`%):PROCFd 12874ENDCASE 12876ENDCASE 12878ENDCASE:CASEEb%OF 12886WHEN2:Ea%=Fb%:CASEFb%OF 12892WHEN-2:SYS262356,,F`%,X_%!0-64,228 12896WHENQa%:CASEGb%OF 12900WHEN12:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,sb%):PROCxg(G`%,0,0,0) 12906ENDCASE 12908WHENSa%:CASEGb%OF 12912WHEN12:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,Oc%):PROCxg(G`%,0,0,0) 12918ENDCASE 12920WHENLa%:CASEGb%OF 12924WHEN4,7,10,13,16,19,22:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_c%((Gb%-1)/3)):PROCxg(G`%,0,0,0):yg%=Gb% 12932ENDCASE 12934WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:CASEFb%OF 12938WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):PROCzg(I`%,0):PROCqa(I`%,1) 12944WHENfa%,ca%,ea%,ga%,ha%,ia%:PROCqa(I`%,0):PROCzg(I`%,1) 12948WHENaa%,ba%:PROCqa(I`%,0):PROCzg(I`%,1) 12954WHENMa%:IFNOTs`%THENPROCzg(I`%,0)ELSEPROCqa(I`%,0) 12958PROCzg(I`%,1) 12960ENDCASE:PROCxg(H`%,-64,0,-1):IF``%THENPROCwa(H`%,2)ELSEPROCxa(H`%,2) 12966WHENda%:CASEGb%OF 12970WHEN3:FORwg%=0TO3:PROCxa(L`%,wg%):NEXT:PROCwa(L`%,Cd%):PROCxg(L`%,0,0,0) 12976ENDCASE 12978ENDCASE 12980ENDCASE:ENDPROC 12986DEFPROCBb:_g%=!X_%:`g%=X_%!4:SYS262351,,X_%:Ah%=!X_%:Bh%=X_%!4:Eb%=X_%!8:CASEza%OF 13000WHEN-2:CASE_g%OF 13004WHEN1:IFs`%THEN 13008r`%=NOTr`%:PROCQb(Ma%,2):IFr`%THENPROCxa(F`%,1)ELSEPROCwa(F`%,1) 13012IFEb%=1THEN:SYS262356,,F`%,X_%!0-64,228 13014ENDIF 13016WHEN2:U_%=TRUE:PROCW_ 13020ENDCASE 13022WHENQa%:CASE_g%OF 13026WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(Qa%,11,_g%):sb%=_g%:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh% 13036ENDCASE 13038WHENSa%:CASE_g%OF 13042WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(Sa%,11,_g%):Oc%=_g%:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh% 13052ENDCASE 13054WHENLa%:CASE_g%OF 13058WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(La%,yg%-1,_g%) 13062ENDCASE:CASEyg%OF 13066WHEN4,7,10,13,16,19,22:_c%((yg%-1)/3)=_g% 13070ENDCASE:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh% 13076WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:CASE_g%OF 13080WHEN2:``%=NOT``%:IF``%THEN 13086PROCwa(H`%,2):PROCIb(Wa%) 13088ELSE:PROCxa(H`%,2):PROCLa(Wa%) 13092ENDIF:IFEb%=1THEN:SYS262356,,H`%,Ch%,Dh% 13096ENDCASE 13098WHENda%:CASE_g%OF 13102WHEN0,1,2,3:IFNOTs`%THEN 13106Cd%=_g%:FORwg%=0TO3:PROCxa(L`%,wg%):NEXT:PROCwa(L`%,Cd%):PROCzc(da%,2,Bd$(Cd%)):PROCJ_:SYS262353,da%,192,-380,588,-132:SYS262353,Ma%,0,-960,1280,-150 13118ENDIF:IFEb%=1THEN:SYS262356,,L`%,Ch%,Dh% 13122ENDCASE 13124ENDCASE:ENDPROC 13130DEFPROCAb(Fb%,Gb%,Eh%):LOCALFh%,Gh%,Hh:CASEFb%OF 13144 13148WHENMa%:CASEEh%OF 13152WHEN&183:Ea%=Ma%:PROCIb(ja%):SYS262354,ja%,1,0,0,-1,LEN($P`%) 13162ENDCASE 13168WHENVa%:CASEEh%OF 13172WHEN&18E:Wb%=0:CASEGb%OF 13176WHEN13:PROCIh(Va%,13,Yb%,ab%,cb%,db%,17,Va%,FNJh(Va%,17),1,1750) 13178WHEN17:PROCKh(Va%,17,Yb%,ab%,cb%,db%,17,-1,4,1,1750) 13180ENDCASE 13182WHEN&18F:Wb%=0:CASEGb%OF 13186WHEN13:PROCIh(Va%,13,Yb%,ab%,cb%,db%,13,-1,4,1,1750) 13188WHEN17:PROCKh(Va%,17,Yb%,ab%,cb%,db%,13,Va%,FNJh(Va%,13),1,1750) 13190ENDCASE 13192WHEN13:IFNOTs`%THEN 13196IFWb%=0THEN:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10) 13198PROCId(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):IFt`%THEN:Tb%=240 13208ENDIF:PROCLa(Va%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 13216WHEN&1B:PROCLa(Va%) 13218ENDCASE 13224WHENQa%:CASEEh%OF 13228WHEN&18E:CASEGb%OF 13232WHEN14:PROCIh(Qa%,14,mb%,0,25,0,19,Qa%,FNJh(Qa%,19),1,0) 13234WHEN19:PROCIh(Qa%,19,ob%,qb%,ub%,vb%,23,Qa%,FNJh(Qa%,23),10,0) 13236WHEN23:PROCKh(Qa%,23,ob%,qb%,ub%,vb%,23,-1,-1,10,0) 13238ENDCASE 13240WHEN&18F:CASEGb%OF 13244WHEN14:PROCIh(Qa%,14,mb%,0,25,0,14,-1,2,1,0) 13246WHEN19:PROCIh(Qa%,19,ob%,qb%,ub%,vb%,14,Qa%,FNJh(Qa%,14),10,0) 13248WHEN23:PROCKh(Qa%,23,ob%,qb%,ub%,vb%,19,Qa%,FNJh(Qa%,19),10,0) 13250ENDCASE 13252WHEN13:IFNOTs`%THEN 13256PROCPd(mb%,ob%,qb%,ub%,vb%):CASEhb%OF 13260WHEN1:nb%=mb%:pb%=ob%:rb%=qb%:PROCJd:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc) 13266WHEN2:zb%=mb%:_b%=ob%:`b%=qb%:PROCJd:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc) 13272ENDCASE 13274ENDIF:PROCLa(Qa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 13282WHEN&1B:PROCLh(Qa%) 13286ENDCASE 13292WHENSa%:CASEEh%OF 13296WHEN&18E:CASEGb%OF 13300WHEN14:PROCIh(Sa%,14,Ic%,0,25,0,19,Sa%,FNJh(Sa%,19),1,0) 13302WHEN19:PROCIh(Sa%,19,Kc%,Mc%,Rc%,Sc%,23,Sa%,FNJh(Sa%,23),1,0) 13304WHEN23:PROCKh(Sa%,23,Kc%,Mc%,Rc%,Sc%,23,-1,-1,1,0) 13306ENDCASE 13308WHEN&18F:CASEGb%OF 13312WHEN14:PROCIh(Sa%,14,Ic%,0,25,0,14,-1,2,1,0) 13314WHEN19:PROCIh(Sa%,19,Kc%,Mc%,Rc%,Sc%,14,Sa%,FNJh(Sa%,14),1,0) 13316WHEN23:PROCKh(Sa%,23,Kc%,Mc%,Rc%,Sc%,19,Sa%,FNJh(Sa%,19),1,0) 13318ENDCASE 13320WHEN13:IFNOTs`%THEN 13324PROCRd(Ic%,Kc%,Mc%,Rc%,Sc%):CASEDc%OF 13328WHEN1:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd) 13334WHEN2:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd) 13340WHEN3:cc%=Ic%:dc%=Kc%:ec%=Mc%:PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd) 13346WHEN4:ic%=Ic%:jc%=Kc%:kc%=Mc%:PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd) 13352ENDCASE 13354ENDIF:PROCLa(Sa%):SYS262353,Ma%,0,-960,1280,-150 13360WHEN&1B:PROCLa(Sa%) 13364ENDCASE 13370WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):CASEEh%OF 13374WHEN&183:Ea%=Fb%:PROCIb(ja%):SYS262354,ja%,1,0,0,-1,LEN($P`%) 13384ENDCASE 13390WHENYa%:CASEEh%OF 13394WHEN&18E,&18F:PROCIh(Ya%,4,Ic%,1995,2150,1990,4,-1,4,1,0) 13396WHEN13:PROCQg:IFFNRgTHEN 13402PROCLa(Ya%):PROCSg:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:SYS262353,aa%,0,-344,706,0 13416ENDIF 13418WHEN&1B:PROCLa(Ya%) 13420ENDCASE 13426WHENZa%:CASEEh%OF 13430WHEN&18E:CASEGb%OF 13434WHEN3:PROCIh(Za%,3,ef%,ff%,5000,-1000,8,Za%,FNJh(Za%,8),1,0) 13436WHEN8:PROCKh(Za%,8,ef%,ff%,5000,-1000,8,-1,1,1,0) 13438ENDCASE 13440WHEN&18F:CASEGb%OF 13444WHEN3:PROCIh(Za%,3,ef%,ff%,5000,-1000,3,-1,1,1,0) 13446WHEN8:PROCKh(Za%,8,ef%,ff%,5000,-1000,3,Za%,FNJh(Za%,3),1,0) 13448ENDCASE 13450WHEN13:PROCZg:IFFNagTHEN 13456PROCLa(Za%):PROCbg:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):IFNOTZf%THEN:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT 13470FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:SYS262353,ba%,0,-300,798,0:IFNOTZf%THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0 13478ENDIF 13480WHEN&1B:PROCLa(Za%) 13482ENDCASE 13488WHENaa%:CASEEh%OF 13492WHEN&183 13502WHEN&18E:CASEGb%OF 13506WHEN5:PROCIh(aa%,5,yd%(Ie%),-1,100,0,10,aa%,FNJh(aa%,10),1,0) 13508WHEN10:PROCIh(aa%,10,_d%(Ie%),-1,100,0,15,aa%,FNJh(aa%,15),1,0) 13510WHEN15:PROCIh(aa%,15,Ae%(Ie%),-1,100,0,20,aa%,FNJh(aa%,20),1,0) 13512WHEN20:PROCIh(aa%,20,Ce%(Ie%),-1,100,0,25,aa%,FNJh(aa%,25),1,0) 13514WHEN25:PROCIh(aa%,25,Ee%(Ie%),-1,100,0,30,aa%,FNJh(aa%,30),1,0) 13516WHEN30:PROCIh(aa%,30,Ie%,-1,5,0,41,aa%,FNJh(aa%,41),1,0) 13518WHEN41:PROCIh(aa%,41,Ke%(Ie%),0,cg%,0,41,-1,1,1,0):IFIe%=0THEN:PROCIh(aa%,41,Ke%(Ie%),-1,cg%,0,41,-1,1,1,0) 13522ENDCASE 13524WHEN&18F:CASEGb%OF 13528WHEN5:PROCIh(aa%,5,yd%(Ie%),-1,100,0,5,-1,1,1,0) 13530WHEN10:PROCIh(aa%,10,_d%(Ie%),-1,100,0,5,aa%,FNJh(aa%,5),1,0) 13532WHEN15:PROCIh(aa%,15,Ae%(Ie%),-1,100,0,10,aa%,FNJh(aa%,10),1,0) 13534WHEN20:PROCIh(aa%,20,Ce%(Ie%),-1,100,0,15,aa%,FNJh(aa%,15),1,0) 13536WHEN25:PROCIh(aa%,25,Ee%(Ie%),-1,100,0,20,aa%,FNJh(aa%,20),1,0) 13538WHEN30:PROCIh(aa%,30,Ie%,-1,5,0,25,aa%,FNJh(aa%,25),1,0) 13540WHEN41:PROCIh(aa%,41,Ke%(Ie%),0,cg%,0,30,aa%,FNJh(aa%,30),1,0):IFIe%=0THEN:PROCIh(aa%,41,Ke%(Ie%),-1,cg%,0,30,aa%,FNJh(aa%,30),1,0) 13544ENDCASE 13546WHEN13:IFIe%>0THEN:PROCxd 13550IFFNdgTHEN 13552PROCLa(aa%):nd%=TRUE:PROCsf:PROCeg(Le%()):PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):SYS262353,aa%,0,-344,706,0 13564ENDIF 13566WHEN&1B:PROCLa(aa%) 13568ENDCASE 13574WHENha%:CASEEh%OF 13578WHEN&18E:CASEGb%OF 13582WHEN2:PROCIh(ha%,2,Me%(We%),-1,999900,0,15,ha%,FNJh(ha%,15),1,0) 13584WHEN15:PROCIh(ha%,15,Se%(We%),-1,100,0,21,ha%,FNJh(ha%,21),1,0) 13586WHEN21:PROCIh(ha%,21,Ue%(We%),-1,999900,0,26,ha%,FNJh(ha%,26),1,0) 13588WHEN26:PROCIh(ha%,26,We%,-1,5,0,30,ha%,FNJh(ha%,30),1,0) 13590WHEN30:PROCIh(ha%,30,Ye%(We%),0,cg%,0,30,-1,1,1,0):IFWe%=0THEN:PROCIh(ha%,30,Ye%(We%),-1,cg%,0,30,-1,1,1,0) 13594ENDCASE 13596WHEN&18F:CASEGb%OF 13600WHEN2:PROCIh(ha%,2,Me%(We%),-1,999900,0,2,-1,1,1,0) 13602WHEN15:PROCIh(ha%,15,Se%(We%),-1,100,0,2,ha%,FNJh(ha%,2),1,0) 13604WHEN21:PROCIh(ha%,21,Ue%(We%),-1,999900,0,15,ha%,FNJh(ha%,15),1,0) 13606WHEN26:PROCIh(ha%,26,We%,-1,5,0,21,ha%,FNJh(ha%,21),1,0) 13608WHEN30:PROCIh(ha%,30,Ye%(We%),0,cg%,0,26,ha%,FNJh(ha%,26),1,0):IFWe%=0THEN:PROCIh(ha%,30,Ye%(We%),-1,cg%,0,26,ha%,FNJh(ha%,26),1,0) 13612ENDCASE 13614WHEN13:IFWe%>0THEN:PROCpg 13618IFFNqgTHEN 13620PROCLa(ha%):nd%=TRUE:PROCsf:FORN%=0TO5:PROCae(N%):NEXT:PROCfb(ha%,12,Qe%(We%)):PROCeg(Ze%()):PROCwf 13630ENDIF 13632WHEN&1B:PROCLa(ha%) 13634ENDCASE 13640WHENba%:CASEEh%OF 13644WHEN&183 13654WHEN&18E:CASEGb%OF 13658WHEN3:PROCIh(ba%,3,de%(be%),-101,10,-100,8,ba%,FNJh(ba%,8),1,0) 13660WHEN8:PROCIh(ba%,8,he%(be%),-1,100,0,13,ba%,FNJh(ba%,13),1,0) 13662WHEN13:PROCIh(ba%,13,je%(be%),-1,100,0,18,ba%,FNJh(ba%,18),1,0) 13664WHEN18:PROCIh(ba%,18,le%(be%),-1,100,0,23,ba%,FNJh(ba%,8),1,0) 13666WHEN23:PROCIh(ba%,23,be%,-1,5,0,27,ba%,FNJh(ba%,23),1,0) 13668WHEN27:PROCIh(ba%,27,fe%(be%),0,cg%,0,27,-1,FNJh(ba%,27),1,0):IFbe%=0THEN:PROCIh(ba%,27,fe%(be%),-1,cg%,0,27,-1,1,1,0) 13672ENDCASE 13674WHEN&18F:CASEGb%OF 13678WHEN3:PROCIh(ba%,3,de%(be%),-101,10,-100,3,-1,1,1,0) 13680WHEN8:PROCIh(ba%,8,he%(be%),-1,100,0,3,ba%,FNJh(ba%,3),1,0) 13682WHEN13:PROCIh(ba%,13,je%(be%),-1,100,0,8,ba%,FNJh(ba%,8),1,0) 13684WHEN18:PROCIh(ba%,18,le%(be%),-1,100,0,13,ba%,FNJh(ba%,13),1,0) 13686WHEN23:PROCIh(ba%,23,be%,-1,5,0,18,ba%,FNJh(ba%,18),1,0) 13688WHEN27:PROCIh(ba%,27,fe%(be%),0,cg%,0,23,ba%,FNJh(ba%,23),1,0):IFbe%=0THEN:PROCIh(ba%,27,fe%(be%),-1,cg%,0,23,ba%,FNJh(ba%,23),1,0) 13692ENDCASE 13694WHEN13:IFbe%>0THEN:PROCgg 13698IFFNhgTHEN 13700PROCLa(ba%):nd%=TRUE:PROCsf:PROCeg(ge%()):PROCxf:SYS262353,ba%,0,-300,798,0 13708ENDIF 13710WHEN&1B:PROCLa(ba%) 13712ENDCASE 13718WHENfa%:CASEEh%OF 13722WHEN&18E:CASEGb%OF 13726WHEN4:PROCIh(fa%,4,ne%(xe%),-1,100,0,9,fa%,FNJh(fa%,9),1,0) 13728WHEN9:PROCIh(fa%,9,pe%(xe%),-1,100,0,14,fa%,FNJh(fa%,14),1,0) 13730WHEN14:PROCIh(fa%,14,re%(xe%),-1,100,0,20,fa%,FNJh(fa%,20),1,0) 13732WHEN20:PROCIh(fa%,20,te%(xe%),-1,100,0,37,fa%,FNJh(fa%,37),1,0) 13734WHEN37:PROCIh(fa%,37,ve%(xe%),-1,9990,0,25,fa%,FNJh(fa%,25),1,0) 13736WHEN25:PROCIh(fa%,25,xe%,-1,5,0,29,fa%,FNJh(fa%,29),1,0) 13738WHEN29:PROCIh(fa%,29,ze%(xe%),0,cg%,0,29,-1,1,1,0):IFxe%=0THEN:PROCIh(fa%,29,ze%(xe%),-1,cg%,0,29,-1,1,1,0) 13742ENDCASE 13744WHEN&18F:CASEGb%OF 13748WHEN4:PROCIh(fa%,4,ne%(xe%),-1,100,0,4,-1,1,1,0) 13750WHEN9:PROCIh(fa%,9,pe%(xe%),-1,100,0,4,fa%,FNJh(fa%,4),1,0) 13752WHEN14:PROCIh(fa%,14,re%(xe%),-1,100,0,9,fa%,FNJh(fa%,9),1,0) 13754WHEN20:PROCIh(fa%,20,te%(xe%),-1,100,0,14,fa%,FNJh(fa%,14),1,0) 13756WHEN37:PROCIh(fa%,37,ve%(xe%),-1,9990,0,20,fa%,FNJh(fa%,20),1,0) 13758WHEN25:PROCIh(fa%,25,xe%,-1,5,0,37,fa%,FNJh(fa%,37),1,0) 13760WHEN29:PROCIh(fa%,29,ze%(xe%),0,cg%,0,25,fa%,FNJh(fa%,25),1,0):IFxe%=0THEN:PROCIh(fa%,29,ze%(xe%),-1,cg%,0,25,fa%,FNJh(fa%,25),1,0) 13764ENDCASE 13766WHEN13:IFxe%>0THEN:PROCig 13770IFFNjgORxe%=0THEN 13772PROCLa(fa%):nd%=TRUE:PROCsf:PROCeg(_e%()):PROCyf 13778ENDIF 13780WHEN&1B:PROCLa(fa%) 13782ENDCASE 13788WHENca%:CASEEh%OF 13792WHEN&18E:CASEGb%OF 13796WHEN3:PROCIh(ca%,3,`e%(Df%),-1,100,0,8,ca%,FNJh(ca%,8),1,0) 13798WHEN8:PROCIh(ca%,8,Bf%(Df%),-1,100,0,12,ca%,FNJh(ca%,12),1,0) 13800WHEN12:PROCIh(ca%,12,Df%,-1,5,0,16,ca%,FNJh(ca%,16),1,0) 13802WHEN16:PROCIh(ca%,16,Ff%(Df%),0,cg%,0,16,-1,1,1,0):IFDf%=0THEN:PROCIh(ca%,16,Ff%(Df%),-1,cg%,0,16,-1,1,1,0) 13806ENDCASE 13808WHEN&18F:CASEGb%OF 13812WHEN3:PROCIh(ca%,3,`e%(Df%),-1,100,0,3,-1,1,1,0) 13814WHEN8:PROCIh(ca%,8,Bf%(Df%),-1,100,0,3,ca%,FNJh(ca%,3),1,0) 13816WHEN12:PROCIh(ca%,12,Df%,-1,5,0,8,ca%,FNJh(ca%,8),1,0) 13818WHEN16:PROCIh(ca%,16,Ff%(Df%),0,cg%,0,12,ca%,FNJh(ca%,12),1,0):IFDf%=0THEN:PROCIh(ca%,16,Ff%(Df%),-1,cg%,0,12,ca%,FNJh(ca%,12),1,0) 13822ENDCASE 13824WHEN13:IFDf%>0THEN:PROCkg 13828IFFNlgTHEN 13830PROCLa(ca%):nd%=TRUE:PROCsf:PROCeg(Gf%()):PROCzf 13836ENDIF 13838WHEN&1B:PROCLa(ca%) 13840ENDCASE 13846WHENea%:CASEEh%OF 13850WHEN&18E:CASEGb%OF 13854WHEN3:PROCIh(ea%,3,Hf%(Lf%),-1,50000,0,8,ea%,FNJh(ea%,8),1,0) 13856WHEN8:PROCIh(ea%,8,Jf%(Lf%),-1,50000,0,12,ea%,FNJh(ea%,12),1,0) 13858WHEN12:PROCIh(ea%,12,Lf%,-1,5,0,16,ea%,FNJh(ea%,16),1,0) 13860WHEN16:PROCIh(ea%,16,Nf%(Lf%),0,cg%,0,16,-1,1,1,0):IFLf%=0THEN:PROCIh(ea%,16,Nf%(Lf%),-1,cg%,0,16,-1,1,1,0) 13864ENDCASE 13866WHEN&18F:CASEGb%OF 13870WHEN3:PROCIh(ea%,3,Hf%(Lf%),-1,50000,0,3,-1,1,1,0) 13872WHEN8:PROCIh(ea%,8,Jf%(Lf%),-1,50000,0,3,ea%,FNJh(ea%,3),1,0) 13874WHEN12:PROCIh(ea%,12,Lf%,-1,5,0,8,ea%,FNJh(ea%,8),1,0) 13876WHEN16:PROCIh(ea%,16,Nf%(Lf%),0,cg%,0,12,ea%,FNJh(ea%,12),1,0):IFLf%=0THEN:PROCIh(ea%,16,Nf%(Lf%),-1,cg%,0,12,ea%,FNJh(ea%,12),1,0) 13880ENDCASE 13882WHEN13:IFLf%>0THEN:PROCx` 13886IFFNmgTHEN 13888PROCLa(ea%):nd%=TRUE:PROCsf:PROCeg(Of%()):PROC_f 13894ENDIF 13896WHEN&18B:PROCLa(ea%) 13898ENDCASE 13904WHENga%:CASEEh%OF 13908WHEN&18E:CASEGb%OF 13912WHEN4:PROCIh(ga%,4,Pf%(Vf%),-1,999,0,10,ga%,FNJh(ga%,10),1,0) 13914WHEN10:PROCIh(ga%,10,Rf%(Vf%),-1,999,0,16,ga%,FNJh(ga%,16),1,0) 13916WHEN16:PROCIh(ga%,16,Tf%(Vf%),-1,999,0,21,ga%,FNJh(ga%,21),1,0) 13918WHEN21:PROCIh(ga%,21,Vf%,-1,5,0,25,ga%,FNJh(ga%,25),1,0) 13920WHEN25:PROCIh(ga%,25,Xf%(Vf%),0,cg%,0,25,-1,1,1,0):IFVf%=0THEN:PROCIh(ga%,25,Xf%(Vf%),-1,cg%,0,25,-1,1,1,0) 13924ENDCASE 13926WHEN&18F:CASEGb%OF 13930WHEN4:PROCIh(ga%,4,Pf%(Vf%),-1,999,0,4,-1,1,1,0) 13932WHEN10:PROCIh(ga%,10,Rf%(Vf%),-1,999,0,4,ga%,FNJh(ga%,4),1,0) 13934WHEN16:PROCIh(ga%,16,Tf%(Vf%),-1,999,0,10,ga%,FNJh(ga%,10),1,0) 13936WHEN21:PROCIh(ga%,21,Vf%,-1,5,0,16,ga%,FNJh(ga%,16),1,0) 13938WHEN25:PROCIh(ga%,25,Xf%(Vf%),0,cg%,0,21,ga%,FNJh(ga%,21),1,0):IFVf%=0THEN:PROCIh(ga%,25,Xf%(Vf%),-1,cg%,0,21,ga%,FNJh(ga%,21),1,0) 13942ENDCASE 13944WHEN13:IFVf%>0THEN:PROCng 13948IFFNogORVf%=0THEN 13950PROCLa(ga%):nd%=TRUE:PROCsf:PROCeg(Yf%()):PROC`f 13956ENDIF 13958WHEN&18E:PROCLa(ga%) 13960ENDCASE 13966WHENia%:CASEEh%OF 13970WHEN&18E:CASEGb%OF 13974WHEN16:PROCIh(ia%,16,kf%(of%),-101,10,-100,21,ia%,FNJh(ia%,21),1,0) 13976WHEN21:PROCIh(ia%,21,of%,-1,5,0,25,ia%,FNJh(ia%,25),1,0) 13978WHEN25:PROCIh(ia%,25,mf%(of%),0,cg%,0,25,-1,1,1,0):IFof%=0THEN:PROCIh(ia%,25,mf%(of%),-1,cg%,0,25,-1,1,1,0) 13982ENDCASE 13984WHEN&18F:CASEGb%OF 13988WHEN16:PROCIh(ia%,16,kf%(of%),-101,10,-100,16,-1,1,1,0) 13990WHEN21:PROCIh(ia%,21,of%,-1,5,0,16,ia%,FNJh(ia%,16),1,0) 13992WHEN25:PROCIh(ia%,25,mf%(of%),0,cg%,0,21,ia%,FNJh(ia%,21),1,0):IFof%=0THEN:PROCIh(ia%,25,mf%(of%),-1,cg%,0,21,ia%,FNJh(ia%,21),1,0) 13996ENDCASE 13998WHEN13:IFof%>-1THEN:PROCrg 14002IFFNsgTHEN 14004PROCLa(ia%):PROCtg:PROCeg(nf%()) 14008ENDIF 14010WHEN&18E:PROCLa(ia%) 14012ENDCASE 14018WHENja%:CASEEh%OF 14022WHEN13:CASEGb%OF 14026WHEN1:PROCEd(ja%,1,P`%):PROCFd 14028ENDCASE 14030ENDCASE 14036WHENla%:CASEEh%OF 14040WHEN13:CASEGb%OF 14044WHEN1:PROCEd(la%,1,S`%):PROCFd 14046ENDCASE 14048ENDCASE 14054WHENna%:CASEEh%OF 14058WHEN13:CASEGb%OF 14062WHEN1:PROCEd(na%,1,Q`%):PROCFd 14064ENDCASE 14066ENDCASE 14068ENDCASE:ENDPROC 14074DEFPROCya:CASEX_%!0OF 14082WHENja%:SYS262354,X_%!0,1,0,0,-1,LEN($P`%) 14084WHENla%:SYS262354,X_%!0,1,0,0,-1,LEN($S`%) 14086WHENna%:SYS262354,X_%!0,1,0,0,-1,LEN($Q`%) 14088ENDCASE:ENDPROC 14094DEFPROCW_:SYS262362:SYS263873:SYS262377,36,,N`%,&1,0,0,0,0:PROCMh:SYS262365:END:ENDPROC 14110DEFPROCBa:SYS262351,,X_%:CASEX_%!12OF 14120WHENQa%,Sa%:CASEX_%!16OF 14124WHEN12:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2 14128OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1 14132ENDCASE 14134WHENLa%:CASEX_%!16OF 14138WHEN4,7,10,13,16,19,22:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2 14142OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1 14146ENDCASE 14148WHENda%:CASEX_%!16OF 14152WHEN3:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2 14156OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1 14160ENDCASE 14162ENDCASE:ENDPROC 14168DEFPROCHa(Nh$):!X_%=255:$(X_%+4)=Nh$+CHR$0:SYS262367,X_%,1,Ga$:ENDPROC 14178DEFPROCDb(Nh$,Oh%):E`$=Ga$:IFOh%AND16THENE`$="Message from "+E`$ 14184!X_%=255:$(X_%+4)=Nh$+CHR$0:SYS262367,X_%,Oh%,E`$TO,Ph%:ENDPROC 14192DEFPROCCb(X_%):CASEX_%!16OF 14196WHEN0:U_%=TRUE 14198WHEN2:CASET`%OF 14202WHEN&FFF:$S`%=FNHb(X_%+44):PROCLa(la%):PROCQh:PROCRh(la%,2,S`%,ma%) 14208WHEN&AFF:$P`%=FNHb(X_%+44):PROCLa(ja%):PROCSh:PROCRh(ja%,2,P`%,ka%) 14214WHEN&077:$Q`%=FNHb(X_%+44):PROCLa(na%):PROCTh:PROCRh(na%,2,Q`%,oa%) 14220ENDCASE:IFEa%=Ma%THEN 14224w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150 14230ENDIF 14232WHEN3:T`%=X_%!40:CASET`%OF 14238WHEN&077:$R`%=FNHb(X_%+44):PROCUh:PROCqf:nd%=TRUE:PROCsf:PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd 14248ENDCASE 14250WHEN&502:PROCVh(FNWh,X_%!8,X_%!4) 14254WHEN&400C1:X_%!0=Ma%:SYS262339,,X_%:PROCMh:PROCG_:SYS46,256+9,Na%:PROCB_:PROCD_ 14266ENDCASE:ENDPROC 14272DEFPROCVh(Xh$,Yh%,Zh%):IFLEN(Xh$)>0THEN 14276X_%!0=256:X_%!12=Yh%:X_%!16=&503:$(X_%+20)=Xh$+CHR$0:SYS262375,17,X_%,Zh% 14286ENDIF:ENDPROC 14292DEFPROCF_(E`$):SYS267520,,E`$:SYS30,6,,,17+LEN(E`$)TO,,ah%:$(ah%+16)=E`$:SYS267521,ah%,ah%+16:ENDPROC 14306DEFPROC_`:LOCALbh%,ch%:dh%=!X_%:eh%=X_%!8:fh%=X_%!4:gh%=X_%!12:IFeh%<dh%THEN:ch%=eh%:eh%=dh%:dh%=ch% 14316IFgh%<fh%THEN:ch%=gh%:gh%=fh%:fh%=ch% 14318IF((eh%-dh%)/1000)*(Yb%-ab%)<10OR((gh%-fh%)/500)*(ob%-qb%)<0.1OR((gh%-fh%)/500)*(Kc%-Mc%)<15THEN:_`%=FALSE:ENDPROC 14320Xb%=0:bb%=bb%+Kd%*(dh%-Nb%-140)/1000:Zb%=Zb%+Kd%*(eh%-Nb%-1140)/1000:Yb%=Zb%:ab%=bb%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):SYS262353,Ma%,0,-960,1280,-150:CASEhb%OF 14340WHEN1:PROChh(pb%,rb%,Qd%,ob%,qb%):pb%=ob%:rb%=qb% 14344WHEN2:PROChh(_b%,`b%,uc%,ob%,qb%):_b%=ob%:`b%=qb% 14348ENDCASE:CASEDc%OF 14352WHEN1:PROChh(Lc%,Nc%,Sd%,Kc%,Mc%):Lc%=Kc%:Nc%=Mc% 14356WHEN2:PROChh(Xc%,Yc%,Xd%,Kc%,Mc%):Xc%=Kc%:Yc%=Mc% 14360WHEN3:PROChh(jc%,kc%,Zd%,Kc%,Mc%):jc%=Kc%:kc%=Mc% 14364WHEN4:PROChh(dc%,ec%,Yd%,Kc%,Mc%):dc%=Kc%:ec%=Mc% 14368ENDCASE:PROCJd:PROCtc(ob%,qb%,ob%-qb%,vc%,wc%,xc%,yc):PROCtc(Kc%,Mc%,Kc%-Mc%,Td%,Ud%,Vd%,Wd):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):PROCfb(Sa%,19,Kc%):PROCfb(Sa%,23,Mc%):_`%=FALSE:ENDPROC 14388DEFPROChh(ih%,jh%,r%,RETURNHh%,RETURNGh%):Gh%=jh%+r%*(fh%-Ob%+700)/500:Hh%=ih%+r%*(gh%-Ob%+200)/500:ENDPROC 14398DEFPROCsf:LOCALHb$:IFnd%THENHb$=" *"ELSEHb$="" 14404PROCwd(Ma%,Oa%,"CO2effect Global Warming Simulation"+Hb$):FORN%=1TO7:PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):NEXT:ENDPROC 14418DEFPROCA_:kh%=OPENIN"<CO2effect$Dir>.Sprites22":lh%=EXT#kh%+4:CLOSE#kh%:DIMNa% lh%+256:ENDPROC 14436DEFPROCB_:SYS53,-1,5TO,,mh%:CASEmh%OF 14446WHEN2:kh%=OPENIN"<CO2effect$Dir>.Sprites" 14448WHEN1:kh%=OPENIN"<CO2effect$Dir>.Sprites22" 14450ENDCASE:!Na%=lh%+256:Na%!8=16:SYS46,256+9,Na%:CASEmh%OF 14458WHEN2:SYS46,256+10,Na%,"<CO2effect$Dir>.Sprites" 14460WHEN1:SYS46,256+10,Na%,"<CO2effect$Dir>.Sprites22" 14462ENDCASE:ENDPROC 14468DEFPROCG_:SYS262273,,"Trinity.Medium",10*16,10*16TOnh%:SYS262273,,"Trinity.Medium",12*16,12*16TOoh%:SYS262273,,"Trinity.Medium",14*16,14*16TOph%:SYS262273,,"Trinity.Medium",16*16,16*16TOqh%:!C`%=0:C`%!4=65536:C`%!8=-65536:C`%!12=0 14484C`%!16=0:C`%!20=0:ENDPROC 14490DEFPROCMh:SYS262274,nh%:SYS262274,oh%:SYS262274,ph%:SYS262274,qh%:FORN%=0TO255:rh%=?(D`%+N%):WHILErh%>0:SYS262274,N%:rh%-=1:ENDWHILE:NEXTN%:ENDPROC 14524DEFPROCva(sh%):SYS262344,,X_%TOth%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:CASEsh%OF 14534WHENMa%:WHILEth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:IFy`%THEN:uh%=Nb%+140:vh%=Nb%+1140 14544IFNOTu`%ANDw`%THEN:PROCyh(Nb%,Ob%,uh%,vh%,wh%,xh%) 14548IFx`%THEN:PROCzh(Nb%,Ob%) 14550SYS262346,,X_%TOth%:ENDWHILE:w`%=TRUE:x`%=TRUE 14556WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):WHILEth%:PROC_h(Nb%,Ob%,sh%):SYS262346,,X_%TOth%:ENDWHILE 14566WHENaa%:WHILEth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:IFxh%>Ob%-340ANDxd%THEN:PROC`h(Nb%,Ob%,uh%,wh%) 14574SYS262346,,X_%TOth%:ENDWHILE:xd%=TRUE 14580WHENba%:WHILEth%:PROCAi(Nb%,Ob%):SYS262346,,X_%TOth%:ENDWHILE 14590WHENda%:WHILEth%:PROCBi(Nb%,Ob%):SYS262346,,X_%TOth%:ENDWHILE 14600ENDCASE:y`%=FALSE:ENDPROC 14608DEFPROCBi(Nb%,Ob%):LOCALCi%:SYS262282,ph%:FORCi%=0TO3:SYS262278,,Di$(Ci%,Cd%),%10000,Nb%+220,Ob%-180-50*Ci%:NEXT:ENDPROC 14628DEFPROCzh(Nb%,Ob%):LOCALEi%,Fi%:SYS262374,1:RECTANGLEFILLNb%,Ob%-960,140,800:RECTANGLEFILLNb%+1140,Ob%-960,140,800:RECTANGLEFILLNb%+140,Ob%-960,1000,100:RECTANGLEFILLNb%+140,Ob%-200,1000,200:SYS262374,7:SYS262387,,1,7:RECTANGLEFILLNb%+139,Ob%-701,1002,2:RECTANGLEFILLNb%+139,Ob%-701,2,502 14664RECTANGLEFILLNb%+1140,Ob%-701,2,502:RECTANGLEFILLNb%+139,Ob%-200,1002,2:SYS262282,qh%:SYS262278,,"Year",%10000,Nb%+590,Ob%-780:IFFa%=&A3ORFa%=&A4THEN 14678SYS262282,ph%:SYS262281,,Nb%+40,Ob%-625TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:IFkb%THEN:SYS262278,,hb$,%01001000000,Ah%,Bh%,,C`% 14686SYS262281,,Nb%+1240,Ob%-320TO,Ah%,Bh%:C`%!4=-65536:C`%!8=65536:IFGc%THEN:SYS262278,,Dc$,%01001000000,Ah%,Bh%,,C`% 14692ENDIF:SYS262282,oh%:PROCGi(bb%,Vb%,Hi):IFNOT(oc%ANDNOTyb%)THEN 14710CASEhb%OF 14712WHEN1:IFlb%THEN:PROCIi(Nb%,Ob%,rb%,140,-700,1000,500,nb,wc%,xc%,yc,jb%,10,-100,-7,2,0,0) 14716WHEN2:IFyb%THEN:PROCIi(Nb%,Ob%,`b%,140,-700,1000,500,zb,wc%,xc%,yc,xb%,10,-100,-7,2,0,0) 14720ENDCASE 14722ENDIF:IFNOT(oc%ANDNOTHc%)THEN 14732CASEDc%OF 14734WHEN1:IFHc%THEN:PROCIi(Nb%,Ob%,Nc%,1140,-700,-1000,500,Jc,Ud%,Vd%,Wd,Fc%,1,13,-7,1,0,-1) 14738WHEN2:IFVc%THEN:PROCIi(Nb%,Ob%,Yc%,1140,-700,-1000,500,Wc,Ud%,Vd%,Wd,Uc%,1,13,-7,2,-1,-1) 14742WHEN3,5:IFbc%THEN:PROCIi(Nb%,Ob%,ec%,1140,-700,-1000,500,cc,Ud%,Vd%,Wd,ac%,1,13,-7,2,-1,-1) 14746WHEN4:IFhc%THEN:PROCIi(Nb%,Ob%,kc%,1140,-700,-1000,500,ic,Ud%,Vd%,Wd,gc%,1,13,-7,2,-1,-1) 14750ENDCASE 14752ENDIF:Fi%=0:IFNOToc%THEN 14762CASEhb%OF 14764WHEN1:IFlb%THEN:PROCJi(Nb%,Ob%,Fi%,tb%,"Temperature"):Fi%+=3 14766WHEN2:IFyb%THEN:PROCJi(Nb%,Ob%,Fi%,Ac%,"Radiative forcing"):Fi%+=3 14768ENDCASE:CASEDc%OF 14772WHEN1:IFHc%THEN:PROCJi(Nb%,Ob%,Fi%,Qc%,"CO2 concentration"):Fi%+=1 14774WHEN2:IFVc%THEN:PROCJi(Nb%,Ob%,Fi%,Zc%,"CH4 concentration"):Fi%+=1 14776WHEN4:IFhc%THEN:PROCJi(Nb%,Ob%,Fi%,lc%,"N2O concentration"):Fi%+=1 14778WHEN3:IFbc%THEN 14782IFNOTnc%THEN 14784PROCJi(Nb%,Ob%,Fi%,fc%(0),"CFCs concentration"):Fi%+=1 14786ELSE:PROCJi(Nb%,Ob%,Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1 14794ENDIF 14796ENDIF 14798ENDCASE 14800ELSE:PROCJi(Nb%,Ob%,Fi%,Qc%,"CO2"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,Zc%,"CH4"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,lc%,"N2O"):Fi%+=1:IFNOTnc%THEN 14810PROCJi(Nb%,Ob%,Fi%,fc%(0),"CFCs"):Fi%+=1 14812ELSE:PROCJi(Nb%,Ob%,Fi%,fc%(1),"CFC-11"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(2),"CFC-12"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(3),"HCFC-22"):Fi%+=1 14820ENDIF 14822ENDIF:ENDPROC 14828DEFPROCGi(jh%,Ki%,Li):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORX%=0TONd%:Hb$=LEFT$(STR$(1750+bb%+Md%+Od*X%+0.001),4):SYS262278,,Hb$,%10000,Nb%+140-30+1000*Li*(Md%+Od*X%),Ob%-740:LINENb%+140+1000*Li*(Md%+Od*X%),Ob%-700,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-715 14842IFVb%THEN:PLOT&04,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700:PLOT&15,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-200 14844NEXT:ENDPROC 14850DEFPROCJi(Nb%,Ob%,n%,c%,Hb$):LOCALMi%,Ni%,x%,y%:Mi%=n%MOD3:Ni%=INT(n%/3):x%=140+Ni%*400:y%=-850-Mi%*40:SYS262374,7:RECTANGLEFILLNb%+x%,Ob%+y%,20,20:SYS262374,c%:RECTANGLEFILLNb%+x%+2,Ob%+y%+2,16,16:SYS262282,ph%:SYS262278,,Hb$,%10000,Nb%+x%+40,Ob%+y%:ENDPROC 14880DEFPROCyh(Nb%,Ob%,uh%,vh%,wh%,xh%):LOCALx%,y%,s,e,Oi%,Pi%:IFuh%>Nb%+140+Tb%*(1000*Hi)ORvh%<Nb%+140THEN:ENDPROC 14892IFuh%<=Nb%+140THENuh%=Nb%+140 14894IFvh%>=Nb%+140+(Tb%-bb%)*(1000*Hi)THEN:vh%=Nb%+141+(Tb%-bb%)*(1000*Hi) 14896IFwh%>Ob%-200ORxh%<Ob%-700THEN:ENDPROC 14898IFNOToc%THEN 14902IFhb%=1ANDlb%THEN 14904FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*nb*(t(N%)-273-(rb%+ad%)/10):IFN%=bb%THEN:Oi%=y% 14912PROCQi(tb%,x%,y%,Oi%,nb%,y%):Oi%=y%:NEXTN% 14918ENDIF:IFhb%=2ANDyb%THEN 14922FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*zb*(Ri(N%)-(`b%+bd%)/10):IFN%=bb%THEN:Oi%=y% 14930PROCQi(Ac%,x%,y%,Oi%,zb%,y%):Oi%=y%:NEXTN% 14936ENDIF:IFDc%=1ANDHc%THEN 14940FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Jc*(Si(N%)-(Nc%+cd%)):IFN%=bb%THEN:Pi%=y% 14948PROCQi(Qc%,x%,y%,Pi%,Jc%,y%):Pi%=y%:NEXTN% 14954ENDIF:IFDc%=2ANDVc%THEN 14958FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Wc*(Ti(N%)-(Yc%+dd%)):IFN%=bb%THEN:Pi%=y% 14966PROCQi(Zc%,x%,y%,Pi%,Wc%,y%):Pi%=y%:NEXTN% 14972ENDIF:IFDc%=3ANDbc%THEN 14976IFNOTnc%THEN 14978FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,0)-(ec%+ed%(0))):IFN%=bb%THEN:Pi%=y% 14986PROCQi(fc%(0),x%,y%,Pi%,cc%,y%):Pi%=y%:NEXTN% 14992ELSE:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,1)-(ec%+ed%(1))):IFN%=bb%THEN:Vi%=y% 15002PROCQi(fc%(1),x%,y%,Vi%,cc%,y%):Vi%=y%:NEXTN%:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,2)-(ec%+ed%(2))):IFN%=bb%THEN:Wi%=y% 15016PROCQi(fc%(2),x%,y%,Wi%,cc%,y%):Wi%=y%:NEXTN%:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,3)-(ec%+ed%(3))):IFN%=bb%THEN:Xi%=y% 15030PROCQi(fc%(3),x%,y%,Xi%,cc%,y%):Xi%=y%:NEXTN% 15036ENDIF 15038ENDIF:IFDc%=4ANDhc%THEN 15042FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*ic*(Yi(N%)-(kc%+fd%)):IFN%=bb%THEN:Pi%=y% 15050PROCQi(lc%,x%,y%,Pi%,ic%,y%):Pi%=y%:NEXTN% 15056ENDIF 15058ELSE:IFyb%ANDNOTHc%THEN 15061Zi%=zb%:y%=Ob%-700:s=500*zb:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*10*ai(N%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(N%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(N%):e%(3)=e%(2)+s*id% 15074y%(4)=y%(3)+s*10*di(N%,0):e%(4)=e%(3)+s*jd%(0):y%(5)=y%(3)+s*10*di(N%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(N%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(N%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%() 15086IFN%=bb%THEN:ei%()=y%() 15088PROCfi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():NEXT 15094ENDIF:IFHc%ANDNOTyb%THEN 15097Zi%=Jc%:y%=Ob%-700:s=500*Jc:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*Si(N%):e%(1)=0:y%(2)=y%(1)+s*(277*EXP(bi(N%)/6.3)-277):e%(2)=e%(1)+s*(277*EXP(hd%/63)-277) 15110y%(3)=y%(2)+s*(277*EXP(ci(N%)/6.3)-277):e%(3)=e%(2)+s*(277*EXP(id%/63)-277):y%(4)=y%(3)+s*(277*EXP(di(N%,0)/6.3)-277):e%(4)=e%(3)+s*(277*EXP(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*EXP(di(N%,1)/6.3)-277):e%(5)=e%(3)+s*(277*EXP(jd%(1)/63)-277) 15116y%(6)=y%(5)+s*(277*EXP(di(N%,2)/6.3)-277):e%(6)=e%(5)+s*(277*EXP(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*EXP(di(N%,3)/6.3)-277):e%(7)=e%(6)+s*(277*EXP(jd%(3)/63)-277):e%()+=s*(Nc%+cd%):y%()=y%()-e%():IFN%=bb%THEN:ei%()=y%() 15126PROCfi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():NEXT 15132ENDIF 15134ENDIF:ENDPROC 15140DEFPROCta:IFSb%>240THEN 15174FORN%=Sb%TO400:Si(N%)=Si(N%)+(353.93/750)*gi(Sb%-240,0)*(0.3+0.001*(200-(N%-Sb%))+0.5*EXP(-(N%-Sb%)/(25-15*EXP(-(N%-Sb%)/20)))):Ti(N%)=Ti(N%)+(1717/4900)*(hi(Sb%-240,0)+155)*EXP(-(N%-Sb%)/10.5) 15180Ui(N%,1)=Ui(N%,1)+(255/6254)*ii(Sb%-240,1,0)*EXP(-(N%-Sb%)/55):Ui(N%,2)=Ui(N%,2)+(453/9777)*ii(Sb%-240,2,0)*EXP(-(N%-Sb%)/116):Ui(N%,3)=Ui(N%,3)+(110/1344)*ii(Sb%-240,3,0)*EXP(-(N%-Sb%)/15.8):Ui(N%,0)=Ui(N%,1)+Ui(N%,2)+Ui(N%,3) 15188Yi(N%)=Yi(N%)+(309.68/1500)*ji(Sb%-240,0)*EXP(-(N%-Sb%)/132):NEXTN% 15192ENDIF:ai(Sb%)=6.3*LN(Si(Sb%)/277):bi(Sb%)=0.036*(SQR(Ti(Sb%))-SQR(790)):di(Sb%,1)=0.22*Ui(Sb%,1)/1000:di(Sb%,2)=0.28*Ui(Sb%,2)/1000:di(Sb%,3)=0.189*Ui(Sb%,3)/1000:di(Sb%,0)=di(Sb%,1)+di(Sb%,2)+di(Sb%,3) 15212ci(Sb%)=0.14*(SQR(Yi(Sb%))-SQR(285.00)):Ri(Sb%)=ai(Sb%)+bi(Sb%)+di(Sb%,0)+ci(Sb%):CASECd%OF 15222WHEN0:t(Sb%)=FNki(Ri(Sb%)) 15224WHEN1:t(Sb%)=FNli(Ri(Sb%)) 15226WHEN2:t(Sb%)=FNmi(Ri(Sb%)) 15228WHEN3:t(Sb%)=FNni(Ri(Sb%)) 15230ENDCASE:Tb%=Sb%:IFNOTu`%THENPROCoi 15240PROCJb:IFSb%=Zb%THEN 15248r`%=FALSE:s`%=FALSE:PROCRb(Ma%,1):PROCRb(Ma%,2):Sb%=240:w`%=TRUE:SYS262353,Ma%,0,-960,1280,-150:ENDPROC 15262ENDIF:Sb%+=1:ENDPROC 15270DEFPROCoi:LOCALy%,s,e%,Li,pi%:Li=1000*Hi:pi%=1:IFnb%>LiORzb%>LiORJc%>LiORWc%>LiORic%>LiORcc%>LiTHEN:pi%=2 15284!X_%=Ma%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=140+Li*(Sb%-bb%-pi%):X_%!12=140+Li*(Sb%-bb%+pi%):X_%!8=-700:X_%!16=-200:SYS262345,,X_%TOth%:WHILEth%:IFNOToc%THEN 15302CASEhb%OF 15304WHEN1:y%=Ob%-700+5000*nb*(t(Sb%)-273-(rb%+ad%)/10):IFSb%=240THEN 15310Oi%=y% 15312ELSE:IFlb%THEN:PROCQi(tb%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,nb%,y%) 15316Oi%=y% 15318ENDIF 15320WHEN2:y%=Ob%-700+5000*zb*(Ri(Sb%)-(`b%+bd%)/10):IFSb%=240THEN 15326Oi%=y% 15328ELSE:IFyb%THEN:PROCQi(Ac%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,zb%,y%) 15332Oi%=y% 15334ENDIF 15336ENDCASE:CASEDc%OF 15340WHEN1:y%=Ob%-700+500*Jc*(Si(Sb%)-(Nc%+cd%)):IFSb%=240THEN 15346Pi%=y% 15348ELSE:IFHc%THEN:PROCQi(Qc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Jc%,y%) 15352Pi%=y% 15354ENDIF 15356WHEN2:y%=Ob%-700+500*Wc*(Ti(Sb%)-(Yc%+dd%)):IFSb%=240THEN 15362Pi%=y% 15364ELSE:IFVc%THEN:PROCQi(Zc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Wc%,y%) 15368Pi%=y% 15370ENDIF 15372WHEN3:IFNOTnc%THEN 15376y%=Ob%-700+500*cc*(Ui(Sb%,0)-(ec%+ed%(0))):IFSb%=240THEN 15380Pi%=y% 15382ELSE:IFbc%THEN:PROCQi(fc%(0),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,cc%,y%) 15386Pi%=y% 15388ENDIF 15390ELSE:y%=Ob%-700+500*cc*(Ui(Sb%,1)-(ec%+ed%(1))):IFSb%=240THEN 15396Vi%=y% 15398ELSE:IFbc%THEN:PROCQi(fc%(1),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Vi%,cc%,y%) 15402Vi%=y% 15404ENDIF:y%=Ob%-700+500*cc*(Ui(Sb%,2)-(ec%+ed%(2))):IFSb%=240THEN 15410Wi%=y% 15412ELSE:IFbc%THEN:PROCQi(fc%(2),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Wi%,cc%,y%) 15416Wi%=y% 15418ENDIF:y%=Ob%-700+500*cc*(Ui(Sb%,3)-(ec%+ed%(3))):IFSb%=240THEN 15424Xi%=y% 15426ELSE:IFbc%THEN:PROCQi(fc%(3),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Xi%,cc%,y%) 15430Xi%=y% 15432ENDIF 15434ENDIF 15436WHEN4:y%=Ob%-700+500*ic*(Yi(Sb%)-(kc%+fd%)):IFSb%=240THEN:Pi%=y% 15442IFhc%THEN:PROCQi(lc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,ic%,y%) 15444Pi%=y% 15446ENDCASE 15448ELSE:IFNOTHc%THEN 15451Zi%=zb%:s=500*zb:y%(1)=Ob%-700+s*10*ai(Sb%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(Sb%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(Sb%):e%(3)=e%(2)+s*id%:y%(4)=y%(3)+s*10*di(Sb%,0):e%(4)=e%(3)+s*jd%(0) 15462y%(5)=y%(3)+s*10*di(Sb%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(Sb%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(Sb%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%():IFSb%=240THEN 15474qi%()=y%() 15476ELSE:IFyb%THEN:PROCfi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%()) 15480qi%()=y%() 15482ENDIF 15484ENDIF:IFNOTyb%THEN 15487Zi%=Jc%:s=500*Jc:y%(1)=Ob%-700+s*Si(Sb%):e%(1)=0:y%(2)=y%(1)+s*(277*EXP(bi(Sb%)/6.3)-277):e%(2)=e%(1)+s*(277*EXP(hd%/63)-277):y%(3)=y%(2)+s*(277*EXP(ci(Sb%)/6.3)-277):e%(3)=e%(2)+s*(277*EXP(id%/63)-277) 15496y%(4)=y%(3)+s*(277*EXP(di(Sb%,0)/6.3)-277):e%(4)=e%(3)+s*(277*EXP(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*EXP(di(Sb%,1)/6.3)-277):e%(5)=e%(3)+s*(277*EXP(jd%(1)/63)-277) 15500y%(6)=y%(5)+s*(277*EXP(di(Sb%,2)/6.3)-277):e%(6)=e%(5)+s*(277*EXP(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*EXP(di(Sb%,3)/6.3)-277):e%(7)=e%(6)+s*(277*EXP(jd%(3)/63)-277):e%()=0:e%()+=s*(Nc%+cd%):y%()=y%()-e%():IFSb%=240THEN 15512qi%()=y%() 15514ELSE:IFHc%THEN:PROCfi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%()) 15518qi%()=y%() 15520ENDIF 15522ENDIF 15524ENDIF:SYS262346,,X_%TOth%:ENDWHILE:ENDPROC 15534DEFPROCQi(Ni%,x%,y%,ei%,lh%,RETURNy%):LOCALri:IF(x%-Nb%)>1140OR(x%-Nb%)<140THEN:ENDPROC 15544IFx%-Nb%=140THENri=0ELSEri=(1000*Hi) 15546y%=FNsi(y%,Ob%):ei%=FNsi(ei%,Ob%):IFNOTmc%THEN 15550CASEqc%OF 15552WHEN1:SYS262374,Ni%:CIRCLEFILLx%,y%,FNti(y%,Ob%,lh%) 15554WHEN2:SYS262374,Ni%:LINEx%-FNti(y%,Ob%,lh%),y%,x%+FNti(y%,Ob%,lh%),y%:LINEx%,y%-FNti(y%,Ob%,lh%),x%,y%+FNti(y%,Ob%,lh%) 15556WHEN3:SYS262374,Ni%:LINEx%-(1000*Hi),ei%,x%,y% 15558ENDCASE 15560ELSE:SYS262374,Ni%:MOVEx%-ri,Ob%-699:MOVEx%-ri,ei%:PLOT&55,x%,y%:MOVEx%,y%:MOVEx%,Ob%-699:PLOT&55,x%-ri,Ob%-699:IFqc%=3THEN 15570SYS262374,7:LINEx%-(1000*Hi),ei%,x%,y% 15572ENDIF 15574ENDIF:ENDPROC 15580DEFPROCfi(x%,y%(),ei%()):LOCALri:IFx%=Nb%+140THENri=0ELSEri=Hi 15592IF(x%-Nb%)>1140OR(x%-Nb%)<140THEN:ENDPROC 15594IFnc%THENui%=7ELSEui%=4 15596FORM%=1TOui%:y%(M%)=FNsi(y%(M%),Ob%):ei%(M%)=FNsi(ei%(M%),Ob%):NEXTM%:IFNOTmc%THEN 15606CASEqc%OF 15608WHEN1:IFnc%THEN 15612SYS262374,fc%(3):CIRCLEFILLx%,y%(7),FNti(y%(7),Ob%,Zi%):SYS262374,fc%(2):CIRCLEFILLx%,y%(6),FNti(y%(6),Ob%,Zi%):SYS262374,fc%(1):CIRCLEFILLx%,y%(5),FNti(y%(5),Ob%,Zi%) 15618ELSE:SYS262374,fc%(0):CIRCLEFILLx%,y%(4),FNti(y%(4),Ob%,Zi%) 15622ENDIF:SYS262374,lc%:CIRCLEFILLx%,y%(3),FNti(y%(3),Ob%,Zi%):SYS262374,Zc%:CIRCLEFILLx%,y%(2),FNti(y%(2),Ob%,Zi%):SYS262374,Qc%:CIRCLEFILLx%,y%(1),FNti(y%(1),Ob%,Zi%) 15630WHEN2:IFnc%THEN 15634SYS262374,fc%(3):LINEx%-FNti(y%(7),Ob%,Zi%),y%(7),x%+FNti(y%(7),Ob%,Zi%),y%(7):LINEx%,y%(7)-FNti(y%(7),Ob%,Zi%),x%,y%(7)+FNti(y%(7),Ob%,Zi%):SYS262374,fc%(2):LINEx%-FNti(y%(6),Ob%,Zi%),y%(6),x%+FNti(y%(6),Ob%,Zi%),y%(6) 15641LINEx%,y%(6)-FNti(y%(6),Ob%,Zi%),x%,y%(6)+FNti(y%(6),Ob%,Zi%):SYS262374,fc%(1):LINEx%-FNti(y%(5),Ob%,Zi%),y%(5),x%+FNti(y%(5),Ob%,Zi%),y%(5):LINEx%,y%(5)-FNti(y%(5),Ob%,Zi%),x%,y%(5)+FNti(y%(5),Ob%,Zi%) 15646ELSE:SYS262374,fc%(0):LINEx%-FNti(y%(4),Ob%,Zi%),y%(4),x%+FNti(y%(4),Ob%,Zi%),y%(4):LINEx%,y%(4)-FNti(y%(4),Ob%,Zi%),x%,y%(4)+FNti(y%(4),Ob%,Zi%) 15652ENDIF:SYS262374,lc%:LINEx%-FNti(y%(3),Ob%,Zi%),y%(3),x%+FNti(y%(3),Ob%,Zi%),y%(3):LINEx%,y%(3)-FNti(y%(3),Ob%,Zi%),x%,y%(3)+FNti(y%(3),Ob%,Zi%):SYS262374,Zc%:LINEx%-FNti(y%(2),Ob%,Zi%),y%(2),x%+FNti(y%(2),Ob%,Zi%),y%(2) 15661LINEx%,y%(2)-FNti(y%(2),Ob%,Zi%),x%,y%(2)+FNti(y%(2),Ob%,Zi%):SYS262374,Qc%:LINEx%-FNti(y%(1),Ob%,Zi%),y%(1),x%+FNti(y%(1),Ob%,Zi%),y%(1):LINEx%,y%(1)-FNti(y%(1),Ob%,Zi%),x%,y%(1)+FNti(y%(1),Ob%,Zi%) 15666WHEN3:IFnc%THEN 15670SYS262374,fc%(3):LINEx%-(1000*ri),ei%(7),x%,y%(7):SYS262374,fc%(2):LINEx%-(1000*ri),ei%(6),x%,y%(6):SYS262374,fc%(1):LINEx%-(1000*ri),ei%(5),x%,y%(5) 15676ELSE:SYS262374,fc%(0):LINEx%-(1000*ri),ei%(4),x%,y%(4) 15680ENDIF:SYS262374,lc%:LINEx%-(1000*ri),ei%(3),x%,y%(3):SYS262374,Zc%:LINEx%-(1000*ri),ei%(2),x%,y%(2):SYS262374,Qc%:LINEx%-(1000*ri),ei%(1),x%,y%(1) 15688ENDCASE 15690ELSE:IFnc%THEN 15694SYS262374,fc%(3):MOVEx%-(1000*ri),ei%(6):MOVEx%-(1000*ri),ei%(7):PLOT&55,x%,y%(7):MOVEx%,y%(7):MOVEx%,y%(6):PLOT&55,x%-(1000*ri),ei%(6):SYS262374,fc%(2):MOVEx%-(1000*ri),ei%(5):MOVEx%-(1000*ri),ei%(6):PLOT&55,x%,y%(6) 15704MOVEx%,y%(6):MOVEx%,y%(5):PLOT&55,x%-(1000*ri),ei%(5):SYS262374,fc%(1):MOVEx%-(1000*ri),ei%(3):MOVEx%-(1000*ri),ei%(5):PLOT&55,x%,y%(5):MOVEx%,y%(5):MOVEx%,y%(3):PLOT&55,x%-(1000*ri),ei%(3) 15712ELSE:SYS262374,fc%(0):MOVEx%-(1000*ri),ei%(3):MOVEx%-(1000*ri),ei%(4):PLOT&55,x%,y%(4):MOVEx%,y%(4):MOVEx%,y%(3):PLOT&55,x%-(1000*ri),ei%(3) 15720ENDIF:SYS262374,lc%:MOVEx%-(1000*ri),ei%(2):MOVEx%-(1000*ri),ei%(3):PLOT&55,x%,y%(3):MOVEx%,y%(3):MOVEx%,y%(2):PLOT&55,x%-(1000*ri),ei%(2):SYS262374,Zc%:MOVEx%-(1000*ri),ei%(1):MOVEx%-(1000*ri),ei%(2):PLOT&55,x%,y%(2) 15732MOVEx%,y%(2):MOVEx%,y%(1):PLOT&55,x%-(1000*ri),ei%(1):SYS262374,Qc%:MOVEx%-(1000*ri),Ob%-699:MOVEx%-(1000*ri),ei%(1):PLOT&55,x%,y%(1):MOVEx%,y%(1):MOVEx%,Ob%-699:PLOT&55,x%-(1000*ri),Ob%-699:CASEqc%OF 15744WHEN2:SYS262374,7:IFnc%THEN 15750LINEx%-FNti(y%(7),Ob%,Zi%),y%(7),x%+FNti(y%(7),Ob%,Zi%),y%(7):LINEx%,y%(7)-FNti(y%(7),Ob%,Zi%),x%,y%(7)+FNti(y%(7),Ob%,Zi%) 15752LINEx%-FNti(y%(6),Ob%,Zi%),y%(6),x%+FNti(y%(6),Ob%,Zi%),y%(6):LINEx%,y%(6)-FNti(y%(6),Ob%,Zi%),x%,y%(6)+FNti(y%(6),Ob%,Zi%) 15754LINEx%-FNti(y%(5),Ob%,Zi%),y%(5),x%+FNti(y%(5),Ob%,Zi%),y%(5):LINEx%,y%(5)-FNti(y%(5),Ob%,Zi%),x%,y%(5)+FNti(y%(5),Ob%,Zi%) 15756ELSE:LINEx%-FNti(y%(4),Ob%,Zi%),y%(4),x%+FNti(y%(4),Ob%,Zi%),y%(4):LINEx%,y%(4)-FNti(y%(4),Ob%,Zi%),x%,y%(4)+FNti(y%(4),Ob%,Zi%) 15760ENDIF:LINEx%-FNti(y%(3),Ob%,Zi%),y%(3),x%+FNti(y%(3),Ob%,Zi%),y%(3):LINEx%,y%(3)-FNti(y%(3),Ob%,Zi%),x%,y%(3)+FNti(y%(3),Ob%,Zi%) 15764LINEx%-FNti(y%(2),Ob%,Zi%),y%(2),x%+FNti(y%(2),Ob%,Zi%),y%(2):LINEx%,y%(2)-FNti(y%(2),Ob%,Zi%),x%,y%(2)+FNti(y%(2),Ob%,Zi%) 15766LINEx%-FNti(y%(1),Ob%,Zi%),y%(1),x%+FNti(y%(1),Ob%,Zi%),y%(1):LINEx%,y%(1)-FNti(y%(1),Ob%,Zi%),x%,y%(1)+FNti(y%(1),Ob%,Zi%) 15768WHEN3:SYS262374,7:LINEx%-(1000*ri),ei%(1),x%,y%(1):LINEx%-(1000*ri),ei%(2),x%,y%(2):LINEx%-(1000*ri),ei%(3),x%,y%(3):IFNOTnc%THEN 15780LINEx%-(1000*ri),ei%(4),x%,y%(4) 15782ELSE:LINEx%-(1000*ri),ei%(5),x%,y%(5):LINEx%-(1000*ri),ei%(6),x%,y%(6):LINEx%-(1000*ri),ei%(7),x%,y%(7) 15790ENDIF 15792ENDCASE 15794ENDIF:ENDPROC 15800DEFPROCJb:LOCALvi$:PROCzc(Ma%,22," "+STR$(Tb%+1750)):IFoc%ANDHc%THEN 15812PROCzc(Ma%,23," ") 15814ELSE:CASEhb%OF 15818WHEN1:PROCzc(Ma%,23," "+LEFT$(STR$(t(Tb%)-273-ad%/10),5)) 15820WHEN2:PROCzc(Ma%,23," "+LEFT$(STR$(Ri(Tb%)-bd%/10),5)) 15822ENDCASE 15824ENDIF:IFoc%ANDyb%THEN 15828vi$=" " 15830ELSE:CASEDc%OF 15834WHEN1:vi$=" "+LEFT$(STR$(Si(Tb%)-cd%),6) 15836WHEN2:vi$=" "+LEFT$(STR$(Ti(Tb%)-dd%),6) 15838WHEN3:IFABS(Ui(Tb%,0)-ed%(0))<0.01THEN 15842vi$=" 0.00" 15844ELSE:vi$=" "+LEFT$(STR$(Ui(Tb%,0)-ed%(0)),6) 15848ENDIF 15850WHEN4:IFABS(Yi(Tb%)-fd%)<0.01THEN 15854vi$=" 0.00" 15856ELSE:vi$=" "+LEFT$(STR$(Yi(Tb%)-fd%),6) 15860ENDIF 15862ENDCASE 15864ENDIF:PROCzc(Ma%,24,vi$):ENDPROC 15872DEFPROCwi(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Aj%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Gj%,Hj%):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORX%=0TOBj%:IFHj%THEN 15924Hb$=STR$(INT((xi%+Aj%+Cj*X%)/Dj%)) 15926ELSE:Hb$=LEFT$(STR$((xi%+Aj%+Cj*X%)/Dj%+0.001),Gj%) 15930ENDIF:IF(xi%+Aj%+Cj*X%)=0THEN:Hb$=" 0" 15934SYS262278,,Hb$,%10000,x%+yi%+Ej%+_i%*s*(Aj%+Cj*X%),y%+zi%+Fj%:LINEx%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%-10,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi% 15938IFg%ANDNOT(s*(Aj%+Cj*X%)>0.995ORs*(Aj%+Cj*X%)<0.005)THEN:PLOT&04,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%:PLOT&15,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%+`i% 15940NEXTX%:ENDPROC 15946DEFPROCIi(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Ij%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Jj%,Hj%,Kj%):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORY%=0TOBj%:IFHj%THEN 16000Hb$=" "+STR$(INT((xi%+Ij%+Cj*Y%)/Dj%)) 16002ELSE:IF(xi%+Ij%+Cj*Y%)>=0THENLj=0.001ELSELj=-0.001 16006Hb$=" "+LEFT$(STR$((xi%+Ij%+Cj*Y%)/Dj%+Lj),FNJj((xi%+Ij%+Cj*Y%)/Dj%,Jj%)) 16008ENDIF:IFABS(xi%+Ij%+Cj*Y%)<=0.001THEN:Hb$=" 0" 16012IFNOTKj%THEN 16014VDU25,188,x%+yi%-13;y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%);:SYS262278,,Hb$,%10001,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%) 16018ELSE:SYS262278,,Hb$,%10000,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%) 16022ENDIF:LINEx%+yi%-10-20*Kj%,y%+zi%+`i%*s*(Ij%+Cj*Y%),x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):IFg%ANDNOT(ABS(s*(Ij%+Cj*Y%))>0.995ORABS(s*(Ij%+Cj*Y%))<0.005)THEN:PLOT&04,x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):PLOT&15,x%+yi%+_i%,y%+zi%+`i%*s*(Ij%+Cj*Y%) 16028NEXTY%:ENDPROC 16040DEFPROCH_:DIMt(400),Ri(400):DIMai(400),bi(400),di(400,3),ci(400):DIMSi(400),Ti(400),Ui(400,3),Yi(400):DIMMj(400),Nj(400),Oj(400,3),Pj(400):DIMQj(400),Rj(400,3),Sj(400):DIMgi(160,8),hi(160,8),ii(160,3,8),ji(160,8):DIMTj(3),ed%(3),fc%(3),jd%(3) 16060DIMy%(7),ei%(7),e%(7),qi%(7):DIMUj(7),Vj(7),Wj(7),Xj(7):Sb%=240:t(240)=286.811:Cd%=1:DIMBd$(4),Di$(3,4):RESTORE18368:FORN%=0TO4:READBd$(N%):NEXT:RESTORE18370:FORM%=0TO4:FORN%=0TO3:READDi$(N%,M%):NEXTN%:NEXTM%:Vb%=FALSE:jb%=FALSE:Fc%=FALSE:xb%=FALSE:Uc%=FALSE:ac%=FALSE:gc%=FALSE 16084lb%=TRUE:Hc%=TRUE:yb%=TRUE:Vc%=TRUE:bc%=TRUE:hc%=TRUE:Xb%=1:Tb%=240:tb%=11:Qc%=8:Ac%=15:Zc%=13:fc%(0)=14:fc%(1)=12:fc%(2)=9:fc%(3)=2:lc%=10:sb%=11:sb%=15:Oc%=0:DIM_c%(7):kb%=TRUE:Gc%=TRUE:ib%=FALSE:Ec%=FALSE:nb%=3:Jc%=3:zb%=3:Wc%=3:cc%=3:ic%=3 16096pb%=180:rb%=140:ob%=180:qb%=140:_b%=100:`b%=0:Zb%=340:bb%=240:Yb%=340:ab%=240:Lc%=800:Xc%=5000:dc%=5000:jc%=500:Kc%=800:Nc%=250:Yc%=0:ec%=0:kc%=200:Mc%=250:hb%=1:Dc%=1:rc%=3:ad%=0:cd%=0:bd%=0:dd%=0:ed%()=0:fd%=0 16110gd%=0:hd%=0:jd%()=0:id%=0:hb$="Surface temperature (�C)":Dc$="CO2 conc. (ppmv)":nc%=FALSE:oc%=FALSE:mc%=FALSE:sc%=FALSE:qc%=2:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):ENDPROC 16134DEFPROCL_:Si()=Mj():Ti()=Nj():Yi()=Pj():Ui()=Oj():ENDPROC 16148DEFPROCS_:gi(0,8)=0:gi(0,0)=0:FORM%=2TO8:gi(0,0)+=gi(0,M%):NEXT:hi(0,8)=59:hi(0,0)=0:FORM%=2TO8:hi(0,0)+=hi(0,M%):NEXT:ii(0,1,8)=298:ii(0,1,0)=0:FORM%=2TO8:ii(0,1,0)+=ii(0,1,M%):NEXT:ii(0,2,8)=363:ii(0,2,0)=0:FORM%=2TO8:ii(0,2,0)+=ii(0,2,M%):NEXT 16192ii(0,3,8)=138:ii(0,3,0)=0:FORM%=2TO8:ii(0,3,0)+=ii(0,3,M%):NEXT:ii(0,0,8)=ii(0,1,8)+ii(0,2,8)+ii(0,3,8):ii(0,0,0)=ii(0,1,0)+ii(0,2,0)+ii(0,3,0):ji(0,8)=0.8:ji(0,0)=0:FORM%=2TO8:ji(0,0)+=ji(0,M%):NEXT:FORN%=1TO160:gi(N%,8)=1.01*gi(N%-1,8) 16210gi(N%,0)=0:FORM%=2TO8:gi(N%,0)+=gi(N%,M%):NEXTM%:hi(N%,8)=1.008*hi(N%-1,8):hi(N%,0)=0:FORM%=2TO8:hi(N%,0)+=hi(N%,M%):NEXTM%:ii(N%,1,8)=Yj(N%,1):ii(N%,1,0)=0:FORM%=2TO8:ii(N%,1,0)+=ii(N%,1,M%):NEXTM%:ii(N%,2,8)=Yj(N%,2) 16222ii(N%,2,0)=0:FORM%=2TO8:ii(N%,2,0)+=ii(N%,2,M%):NEXTM%:ii(N%,3,8)=Yj(N%,3):ii(N%,3,0)=0:FORM%=2TO8:ii(N%,3,0)+=ii(N%,3,M%):NEXTM%:ii(N%,0,8)=ii(N%,1,8)+ii(N%,2,8)+ii(N%,3,8):ii(N%,0,0)=ii(N%,1,0)+ii(N%,2,0)+ii(N%,3,0) 16232ji(N%,8)=1.005*ji(N%-1,8):ji(N%,0)=0:FORM%=2TO8:ji(N%,0)+=ji(N%,M%):NEXTM%:NEXTN%:ENDPROC 16242DEFPROCJd:Qd%=(pb%-rb%):nb=1/Qd%:uc%=(_b%-`b%):zb=1/uc%:Sd%=(Lc%-Nc%):Jc=1/Sd%:Xd%=(Xc%-Yc%):Wc=1/Xd%:Yd%=(dc%-ec%):cc=1/Yd%:Zd%=(jc%-kc%):ic=1/Zd%:Kd%=(Zb%-bb%):Hi=1/Kd%:ENDPROC 16262DEFPROCtc(ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):IFZj%=1THEN:cj=0.1 16266IFZj%=2THEN:cj=0.2 16268IF3<=Zj%ANDZj%<=7THEN:cj=0.5 16270IF8<=Zj%ANDZj%<=15THEN:cj=1 16272IF16<=Zj%ANDZj%<=30THEN:cj=2 16274IF31<=Zj%ANDZj%<=75THEN:cj=5 16276IF76<=Zj%ANDZj%<=150THEN:cj=10 16278IF151<=Zj%ANDZj%<=300THEN:cj=20 16280IF301<=Zj%ANDZj%<=750THEN:cj=50 16282IF751<=Zj%ANDZj%<=1500THEN:cj=100 16284IF1501<=Zj%ANDZj%<=3000THEN:cj=200 16286IF3001<=Zj%ANDZj%<=7500THEN:cj=500 16288IF7501<=Zj%ANDZj%<=10000THEN:cj=1000 16290dj%=1:IFcj>=1THEN 16294IFjh%MODcj=0THEN:dj%=0 16296ENDIF:PROCej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):ENDPROC 16304DEFPROCej(dj%,cj,ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):aj%=ih%-cj*(INT(ih%/cj)):bj%=cj*(INT(jh%/cj)+dj%)-jh%:Bj%=(Zj%-aj%-bj%)/cj:Cj=cj:ENDPROC 16334DEFPROCI_:kh%=OPENIN("<CO2effect$Dir>.Data.GC_Data"):FORN%=0TO400:INPUT#kh%,Si(N%):INPUT#kh%,Ti(N%):INPUT#kh%,Ui(N%,0):INPUT#kh%,Ui(N%,1):INPUT#kh%,Ui(N%,2):INPUT#kh%,Ui(N%,3):INPUT#kh%,Yi(N%):INPUT#kh%,ai(N%):INPUT#kh%,bi(N%):INPUT#kh%,di(N%,0):INPUT#kh%,di(N%,1):INPUT#kh%,di(N%,2) 16366INPUT#kh%,di(N%,3):INPUT#kh%,ci(N%):INPUT#kh%,Ri(N%):NEXTN%:Mj()=Si():Nj()=Ti():Pj()=Yi():Oj()=Ui():CLOSE#kh%:ENDPROC 16392DEFPROCJ_:CASECd%OF 16400WHEN0:FORN%=0TO240:t(N%)=FNki(Ri(N%)):NEXT 16404WHEN1:FORN%=0TO240:t(N%)=FNli(Ri(N%)):NEXT 16408WHEN2:FORN%=0TO240:t(N%)=FNmi(Ri(N%)):NEXT 16412WHEN3:FORN%=0TO240:t(N%)=FNni(Ri(N%)):NEXT 16416ENDCASE:ENDPROC 16428DEFPROCK_:Zf%=TRUE:Ag%=FALSE:nd%=FALSE:df%=FALSE:hf%=FALSE:xd%=TRUE:ld%=0:cg%=155:DIMB`$(7,8):RESTORE18404:FORN%=1TO7:READB`$(N%,0):NEXT:FORN%=1TO7:CASEN%OF 16448WHEN1:fj$=": C emissions" 16450WHEN2:fj$=": CH4 emissions" 16452WHEN3:fj$=": N2O emissions" 16454WHEN4:fj$=": CFC-11 emissions" 16456WHEN5:fj$=": CFC-12 emissions" 16458WHEN6:fj$=": HCFC-22 emissions" 16460WHEN7:fj$=": all CFC emissions" 16462ENDCASE:RESTORE18406:FORM%=1TO8:READB`$(N%,M%):B`$(N%,M%)=B`$(N%,M%)+fj$:NEXTM%:NEXTN%:`c%=250:Ad%=0:Cg%=265:qd%=0:bf%=2090:Tg%=1990:DIMpd%(7),qd%(7),rd%(7),gj(7),sd%(7),td%(7),ud%(7),vd(7):DIMhj%(3,5,10):DIMij%(3,5,4):DIMjj%(3,5,5):DIMkj%(3,5,2):DIMlj%(3,5,2) 16498DIMmj%(3,5,5):DIMnj%(3,5,3):PROCoj:DIMee%(5),ge%(5),ie%(5),ke%(5),me%(5):DIMde%(5),fe%(5),he%(5),je%(5),le%(5):DIMpj(160,3):DIMqj(160):DIMrj(160):DIMsj(160):DIMtj(160):DIMuj(160):DIMvj(160):DIMNe%(5),Pe%(5),Re%(5),Te%(5),Ve%(5),Ze%(5) 16538DIMMe%(5),Oe%(5),Qe%(5),Se%(5),Ue%(5),Ye%(5):DIMwj(160):DIMxj(160):DIMyj(160):DIMzj(160):DIMzd%(5),`d%(5),Be%(5),De%(5),Fe%(5),Le%(5):DIMyd%(5),_d%(5),Ae%(5),Ce%(5),Ee%(5),Ke%(5):DIMHe%(5,4),Ge%(5,4):DIM_j(5,5),`j%(5):DIMuf(160,5):DIMAk(5) 16564DIMvf(160,4):DIMAf%(5),Cf%(5),Gf%(5):DIM`e%(5),Bf%(5),Ff%(5):DIMBk(160),Ck(160):DIMIf%(5),Kf%(5),Of%(5):DIMHf%(5),Jf%(5),Nf%(5):DIMDk(160),Ek(160):DIMoe%(5),qe%(5),se%(5),ue%(5),we%(5),_e%(5):DIMne%(5),pe%(5),re%(5),te%(5),ve%(5),ze%(5) 16594DIMFk(5,4):DIMYj(160,4):DIMQf%(5),Sf%(5),Uf%(5),Yf%(5):DIMPf%(5),Rf%(5),Tf%(5),Xf%(5):DIMGk(160):DIMHk(160):DIMIk(160):DIMlf%(5),nf%(5),jf%(6):DIMkf%(5),mf%(5),if%(6):DIMJk(160):PROCrf(0) 16638uf(0,1)=zd%(0):uf(0,2)=`d%(0):uf(0,3)=Be%(0):uf(0,4)=De%(0):uf(0,5)=Fe%(0):`j%(1)=7:`j%(2)=8:`j%(3)=14:`j%(4)=9:`j%(5)=10:RESTORE18382:READAk(1):READAk(2):READAk(3):READAk(4):READAk(5):Je%=0:Kk=8.89E-5:Lk=56:Xe%=0:We%=0 16658pj(0,0)=5.80E9:pj(0,1)=4.22E9:pj(0,2)=1.05E9:pj(0,3)=0.53E9:Mk=0.75:Nk=1.5:Ok=1.5:vj=(ie%(0)/100)*(100/(100-ke%(0)))*1.27E-10:ce%=0:Yj(0,1)=oe%(0):Yj(0,2)=qe%(0):Yj(0,3)=se%(0):Yj(0,4)=ue%(0):Yj(0,1)=we%(0)*oe%(0)/100 16674Yj(0,2)=we%(0)*qe%(0)/100:Yj(0,3)=we%(0)*se%(0)/100:Yj(0,4)=we%(0)*ue%(0)/100:ye%=0:Pk=6.74E-8:Qk=2.59E-8:Rk=1.45E-6:Ef%=0:Sk=2.67E-8:Tk=3.14E-8:Mf%=0:Uk=0.2:Vk=0.7:Wk=63:Wf%=0:RESTORE18388:FORN%=0TO5:READlf%(N%):READnf%(N%):NEXT:pf%=0 16718PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):ENDPROC 16752DEFPROC_h(x%,y%,sh%):LOCALGj%,Xk%,Li%,Hj%:CASEsh%OF 16764WHENA`%(1):PROCYk(x%,y%,Qc%,gi()) 16766WHENA`%(2):PROCYk(x%,y%,Zc%,hi()) 16768WHENA`%(3):PROCYk(x%,y%,lc%,ji()) 16770WHENA`%(4):PROCZk(x%,y%,fc%(1),ii(),1) 16772WHENA`%(5):PROCZk(x%,y%,fc%(2),ii(),2) 16774WHENA`%(6):PROCZk(x%,y%,fc%(3),ii(),3) 16776WHENA`%(7):PROCZk(x%,y%,fc%(0),ii(),0) 16778ENDCASE:SYS262374,7:RECTANGLEFILLx%+99,y%-341,502,2:RECTANGLEFILLx%+99,y%-341,2,302:RECTANGLEFILLx%+599,y%-341,2,302:RECTANGLEFILLx%+99,y%-41,502,2:PROCak(sh%):SYS262282,ph%:SYS262278,,"Year",%10000,x%+300,y%-420:IFFa%=&A3ORFa%=&A4THEN 16804SYS262282,oh%:SYS262281,,x%+30,y%-300TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,bk$,%01001000000,Ah%,Bh%,,C`% 16812ENDIF:SYS262282,nh%:PROCwi(x%,y%,Tg%,100,-340,500,300,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):PROCdk(sh%,Gj%,Li%,Hj%):Xk%=FNXk(sh%):IFZf%THEN 16828PROCIi(x%,y%,Ad%,100,-340,500,300,ek,td%,ud%,vd,hf%,1,-75,-7,Gj%,-1,0) 16830ELSE:PROCIi(x%,y%,qd%(Xk%),100,-340,500,300,gj(Xk%),td%(Xk%),ud%(Xk%),vd(Xk%),hf%,Li%,-75,-7,Gj%,Hj%,0) 16834ENDIF:ENDPROC 16840DEFPROCYk(x%,y%,Ni%,fk()):LOCALgk,hk,ik:SYS262374,Ni%:ik=ek*300:IFfk(0,ld%)>0THENjk=fk(0,ld%)ELSEjk=1 16854FORN%=1TO(bf%-1990):gk=ik*(100*fk(N%-1,ld%)/jk-Ad%):IFgk>300THENgk=300ELSEIFgk<0THENgk=0 16858hk=ik*(100*fk(N%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0 16860LINEx%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:NEXT:ENDPROC 16868DEFPROCZk(x%,y%,Ni%,fk(),Ui%):LOCALgk,hk,ik:SYS262374,Ni%:ik=ek*300:IFfk(0,Ui%,ld%)>0THENjk=fk(0,Ui%,ld%)ELSEjk=1 16882FORN%=1TO(bf%-1990):gk=ik*(100*fk(N%-1,Ui%,ld%)/jk-Ad%):IFgk>300THENgk=300ELSEIFgk<0THENgk=0 16886hk=ik*(100*fk(N%,Ui%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0 16888LINEx%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:NEXT:ENDPROC 16896DEFPROCak(kk%):IFZf%THEN 16904bk$="% of 1990 levels" 16906ELSE:CASEsh%OF 16910WHENA`%(1):bk$="Gt carbon per yr" 16912WHENA`%(2):bk$="Tg methane per yr" 16914WHENA`%(3):bk$="Tg nitrogen per yr" 16916WHENA`%(4):bk$="kt CFC-11 per yr" 16918WHENA`%(5):bk$="kt CFC-12 per yr" 16920WHENA`%(6):bk$="kt HCFC-22 per yr" 16922WHENA`%(7):bk$="kt halocarbons per yr" 16924ENDCASE 16926ENDIF:ENDPROC 16932DEFPROCdk(sh%,RETURNGj%,RETURNLi%,RETURNHj%):IFZf%THEN 16940Gj%=4 16942ELSE:CASEsh%OF 16946WHENA`%(1):Li%=100:Hj%=0:CASEld%OF 16950WHEN0,1,2,8:Gj%=1 16952WHEN3,4,5,6,7:Gj%=2 16954ENDCASE 16956WHENA`%(2):Gj%=4:Li%=1:Hj%=-1 16958WHENA`%(3):Li%=100:Hj%=0:CASEld%OF 16962WHEN0:Gj%=1 16964WHEN1,2,3,4,5,6,7,8:Gj%=2 16966ENDCASE 16968WHENA`%(4):Gj%=4:Li%=1:Hj%=-1 16970WHENA`%(5):Gj%=4:Li%=1:Hj%=-1 16972WHENA`%(6):Gj%=4:Li%=1:Hj%=-1 16974WHENA`%(7):Gj%=4:Li%=1:Hj%=-1 16976ENDCASE 16978ENDIF:ENDPROC 16984DEFPROC`h(x%,y%,uh%,wh%):LOCALHb$:IFZf%THEN 16994PROClk(x%,y%,uh%,wh%) 16996ELSE:PROCmk(x%,y%,uh%,wh%) 17000ENDIF:SYS262374,7:RECTANGLEFILLx%+114,y%-262,554,2:RECTANGLEFILLx%+114,y%-262,2,224:RECTANGLEFILLx%+666,y%-262,2,224:RECTANGLEFILLx%+114,y%-40,554,2:SYS262282,ph%:SYS262278,,"Year",%10000,x%+350,y%-330:IFFa%=&A3ORFa%=&A4THEN 17022IFZf%THENHb$="% generation share"ELSEHb$="Power (TWh - 000s)" 17024SYS262281,,x%+35,y%-300TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,Hb$,%01001000000,Ah%,Bh%,,C`% 17030ENDIF:SYS262282,oh%:PROCwi(x%,y%,Tg%,116,-260,550,220,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):IFZf%THEN 17040PROCIi(x%,y%,Ad%,116,-260,550,220,0.01,0,5,20,hf%,1,-108,-7,4,-1,0) 17042ELSE:PROCIi(x%,y%,Dg%,116,-260,550,220,nk,td%,ud%,vd,hf%,10,-100,-7,4,-1,0) 17046ENDIF:ENDPROC 17052DEFPROClk(x%,y%,uh%,wh%):LOCALik,ok%,pk%,y():DIMy(5):IFuh%>Nb%+666THEN:ENDPROC 17062IFuh%<=Nb%+116THENuh%=Nb%+116 17064IFvh%<Nb%+116THEN:ENDPROC 17066IFvh%>=Nb%+666THEN:vh%=Nb%+666 17068ik=2.2:FORN%=(uh%-Nb%-116)/(550*ck)TO(vh%-Nb%-116)/(550*ck)-0.999:FORM%=0TO4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):SYS262374,`j%(M%+1):CASEM%OF 17080WHEN0:y(0)=y%-260:y(1)=y(0)+ik*uf(N%,1) 17082WHEN1:y(1)=y(0)+ik*uf(N%,1):y(2)=y(1)+ik*uf(N%,2) 17084WHEN2:y(2)=y(1)+ik*uf(N%,2):y(3)=y(2)+ik*uf(N%,3) 17086WHEN3:y(3)=y(2)+ik*uf(N%,3):y(4)=y(3)+ik*uf(N%,4) 17088WHEN4:y(4)=y(3)+ik*uf(N%,4):y(5)=y(4)+ik*uf(N%,5) 17090ENDCASE:IFABS(y(M%+1)-y(M%))>=1THEN 17094MOVEok%,y(M%)+1:MOVEok%,y(M%+1):PLOT&55,pk%,y(M%+1):MOVEpk%,y(M%+1):MOVEpk%,y(M%)+1:PLOT&55,ok%,y(M%)+1 17098ENDIF:NEXTM%:NEXTN%:ENDPROC 17108DEFPROCmk(x%,y%,uh%,wh%):LOCALik,ok%,pk%,y(),qk():DIMy(5),qk(5):IFuh%>Nb%+666THEN:ENDPROC 17118IFuh%<=Nb%+116THENuh%=Nb%+116 17120IFvh%<Nb%+116THEN:ENDPROC 17122IFvh%>=Nb%+666THEN:vh%=Nb%+666 17124ik=220/(wj(0)*Bg%):rk%=220*Ad%/Bg%:FORN%=(uh%-Nb%-116)/(550*ck)TO(vh%-Nb%-116)/(550*ck)-0.999:FORM%=0TO4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):SYS262374,`j%(M%+1):CASEM%OF 17138WHEN0:y(0)=y%-260-rk%:y(1)=y(0)+ik*wj(N%)*uf(N%,1) 17140WHEN1:y(1)=y(0)+ik*wj(N%)*uf(N%,1):y(2)=y(1)+ik*wj(N%)*uf(N%,2) 17142WHEN2:y(2)=y(1)+ik*wj(N%)*uf(N%,2):y(3)=y(2)+ik*wj(N%)*uf(N%,3) 17144WHEN3:y(3)=y(2)+ik*wj(N%)*uf(N%,3):y(4)=y(3)+ik*wj(N%)*uf(N%,4) 17146WHEN4:y(4)=y(3)+ik*wj(N%)*uf(N%,4):y(5)=y(4)+ik*wj(N%)*uf(N%,5) 17148ENDCASE:qk(M%)=y(M%):qk(M%+1)=y(M%+1):IFy(M%)>y%-40THEN:qk(M%)=y%-40 17154IFy(M%)<=y%-260THENqk(M%)=y%-260 17156IFy(M%+1)>y%-40THEN:qk(M%+1)=y%-40 17158IFy(M%+1)<y%-260THEN:qk(M%+1)=y%-260 17160IFABS(y(M%+1)-y(M%))>=1THEN 17162MOVEok%,qk(M%)+1:MOVEok%,qk(M%+1):PLOT&55,pk%,qk(M%+1):MOVEpk%,qk(M%+1):MOVEpk%,qk(M%)+1:PLOT&55,ok%,qk(M%)+1 17166ENDIF:NEXTM%:NEXTN%:ENDPROC 17176DEFPROCAi(x%,y%):LOCALHb$:SYS262374,7:RECTANGLEFILLx%+156,y%-242,604,2:RECTANGLEFILLx%+156,y%-242,2,204:RECTANGLEFILLx%+758,y%-242,2,204:RECTANGLEFILLx%+156,y%-40,604,2:SYS262282,ph%:SYS262278,,"Year",%10000,x%+420,y%-310:IFFa%=&A3ORFa%=&A4THEN 17202IFZf%THENHb$="% of 1990 VMT"ELSEHb$="VMT (billions)" 17204SYS262281,,x%+50,y%-250TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,Hb$,%01001000000,Ah%,Bh%,,C`% 17210ENDIF:SYS262282,oh%:PROCwi(x%,y%,Tg%,158,-240,600,200,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):IFZf%THEN 17220PROCIi(x%,y%,Ad%,158,-240,600,200,ek,td%,ud%,vd,hf%,1,-100,-7,4,-1,0) 17222ELSE:PROCIi(x%,y%,Kg%,158,-240,600,200,sk,Ng%,Og%,Pg,hf%,10,-100,-7,1,0,0) 17226ENDIF:PROCtk(x%,y%):ENDPROC 17234DEFPROCtk(x%,y%):LOCALgk,hk:SYS262374,7:FORN%=1TO(bf%-1990):gk=ek*200*(100*pj(N%-1,0)/pj(0,0)-Ad%):IFgk>200THENgk=200ELSEIFgk<0THENgk=0 17248hk=ek*200*(100*pj(N%,0)/pj(0,0)-Ad%):IFhk>200THENhk=200ELSEIFhk<0THENhk=0 17250LINEx%+158+600*ck*(N%-1),y%-240+gk,x%+158+600*ck*N%,y%-240+hk:NEXT:ENDPROC 17258DEFPROCeg(uk%()):IFuk%(0)>155THEN:uk%(0)=155 17266IFuk%(0)+uk%(1)>156THEN:uk%(1)=156-uk%(0) 17268IFuk%(0)+uk%(1)+uk%(2)>157THEN:uk%(2)=157-uk%(0)-uk%(1) 17270IFuk%(0)+uk%(1)+uk%(2)+uk%(3)>158THEN:uk%(3)=158-uk%(0)-uk%(1)-uk%(2) 17272IFuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)>159THEN:uk%(4)=159-uk%(0)-uk%(1)-uk%(2)-uk%(3) 17274IFuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)>160THEN:uk%(5)=160-uk%(0)-uk%(1)-uk%(2)-uk%(3)-uk%(4) 17276ENDPROC 17280DEFPROCtf(uk%(),vk(),RETURNvk(),wk%):IFwk%THEN 17284FORL%=1TO5:IFuk%(L%)>0THEN 17292_j(L%,1)=(zd%(L%)-zd%(L%-1))/uk%(L%):_j(L%,2)=(`d%(L%)-`d%(L%-1))/uk%(L%):_j(L%,3)=(Be%(L%)-Be%(L%-1))/uk%(L%):_j(L%,4)=(De%(L%)-De%(L%-1))/uk%(L%):_j(L%,5)=(Fe%(L%)-Fe%(L%-1))/uk%(L%) 17302ENDIF:NEXT 17306ELSE:FORL%=1TO5:IFuk%(L%)>0THEN 17316_j(L%,1)=(He%(L%-1,1)-He%(L%,1))/uk%(L%):_j(L%,2)=(He%(L%-1,2)-He%(L%,2))/uk%(L%):_j(L%,3)=(He%(L%-1,3)-He%(L%,3))/uk%(L%):_j(L%,4)=(He%(L%-1,4)-He%(L%,4))/uk%(L%) 17324ENDIF:NEXT 17328ENDIF:FORM%=1TO4-wk%:FORN%=0TOuk%(1)-1:vk(N%+1,M%)=_j(1,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:vk(N%+1,M%)=_j(2,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:vk(N%+1,M%)=_j(3,M%)+vk(N%,M%):NEXTN% 17338FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:vk(N%+1,M%)=_j(4,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:vk(N%+1,M%)=_j(5,M%)+vk(N%,M%):NEXTN%:NEXTM%:ENDPROC 17348DEFPROCxk(uk%()):FORL%=1TO5:IFuk%(L%)>0THEN 17358Fk(L%,1)=(we%(L%)*oe%(L%)/100-we%(L%-1)*oe%(L%-1)/100)/uk%(L%):Fk(L%,2)=(we%(L%)*qe%(L%)/100-we%(L%-1)*qe%(L%-1)/100)/uk%(L%):Fk(L%,3)=(we%(L%)*se%(L%)/100-we%(L%-1)*se%(L%-1)/100)/uk%(L%) 17364Fk(L%,4)=(we%(L%)*ue%(L%)/100-we%(L%-1)*ue%(L%-1)/100)/uk%(L%) 17366ENDIF:NEXT:FORM%=1TO4:FORN%=0TOuk%(1)-1:Yj(N%+1,M%)=Fk(1,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:Yj(N%+1,M%)=Fk(2,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:Yj(N%+1,M%)=Fk(3,M%)+Yj(N%,M%):NEXTN% 17378FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:Yj(N%+1,M%)=Fk(4,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:Yj(N%+1,M%)=Fk(5,M%)+Yj(N%,M%):NEXTN%:NEXTM%:ENDPROC 17388DEFPROCyk(uk%(),zk%(),RETURN_k()):FORN%=0TOuk%(1)-1:_k(N%)=zk%(0)+N%*(zk%(1)-zk%(0))/uk%(1):NEXT:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:_k(N%)=zk%(1)+(N%-uk%(1))*(zk%(2)-zk%(1))/uk%(2):NEXT 17398FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(2)+(N%-(uk%(1)+uk%(2)))*(zk%(3)-zk%(2))/uk%(3):NEXT:FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:_k(N%)=zk%(3)+(N%-(uk%(1)+uk%(2)+uk%(3)))*(zk%(4)-zk%(3))/uk%(4):NEXT 17402FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5):_k(N%)=zk%(4)+(N%-(uk%(1)+uk%(2)+uk%(3)+uk%(4)))*(zk%(5)-zk%(4))/uk%(5):NEXT:ENDPROC 17408DEFPROC`k(uk%(),zk%(),RETURN_k()):FORN%=0TOuk%(0)-1:_k(N%)=zk%(0):NEXT:FORN%=uk%(0)TOuk%(0)+uk%(1)-1:_k(N%)=zk%(1):NEXT:FORN%=uk%(0)+uk%(1)TOuk%(0)+uk%(1)+uk%(2)-1:_k(N%)=zk%(2):NEXT:FORN%=uk%(0)+uk%(1)+uk%(2)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(3):NEXT 17422FORN%=uk%(0)+uk%(1)+uk%(2)+uk%(3)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)-1:_k(N%)=zk%(4):NEXT:FORN%=uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5):_k(N%)=zk%(5):NEXT:ENDPROC 17430DEFPROCmd:Ug%=bf%-Tg%:ck=1/Ug%:Bg%=`c%-Ad%:ek=1/Bg%:Cg%=10*wj(0)*1E-3*`c%/100:Dg%=10*wj(0)*1E-3*Ad%/100:Eg%=Cg%-Dg%:nk=1/Eg%:Jg%=10*pj(0,0)*1E-9*`c%/100:Kg%=10*pj(0,0)*1E-9*Ad%/100:Lg%=Jg%-Kg%:sk=1/Lg% 17454pd%(1)=100*gi(0,ld%)*`c%/100:qd%(1)=100*gi(0,ld%)*Ad%/100:pd%(2)=hi(0,ld%)*`c%/100:qd%(2)=hi(0,ld%)*Ad%/100:pd%(3)=100*ji(0,ld%)*`c%/100:qd%(3)=100*ji(0,ld%)*Ad%/100:pd%(4)=ii(0,1,ld%)*`c%/100:qd%(4)=ii(0,1,ld%)*Ad%/100 17462pd%(5)=ii(0,2,ld%)*`c%/100:qd%(5)=ii(0,2,ld%)*Ad%/100:pd%(6)=ii(0,3,ld%)*`c%/100:qd%(6)=ii(0,3,ld%)*Ad%/100:pd%(7)=ii(0,0,ld%)*`c%/100:qd%(7)=ii(0,0,ld%)*Ad%/100:FORN%=1TO7:rd%(N%)=pd%(N%)-qd%(N%):IFrd%(N%)=0THEN:rd%(N%)=1 17474gj(N%)=1/rd%(N%):NEXT:ENDPROC 17482DEFPROCod(ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):IF1<=Zj%ANDZj%<=6THEN:cj=1 17492IF7<=Zj%ANDZj%<=15THEN:cj=2 17494IF15<=Zj%ANDZj%<=35THEN:cj=5 17496IF36<=Zj%ANDZj%<=70THEN:cj=10 17498IF71<=Zj%ANDZj%<=150THEN:cj=20 17500IF151<=Zj%ANDZj%<=350THEN:cj=50 17502IF351<=Zj%ANDZj%<=700THEN:cj=100 17504IF701<=Zj%ANDZj%<=1500THEN:cj=200 17506IF1501<=Zj%ANDZj%<=3500THEN:cj=500 17508IF3501<=Zj%ANDZj%<=7000THEN:cj=1000 17510IF7001<=Zj%ANDZj%<=15000THEN:cj=2000 17512IF15001<=Zj%ANDZj%<=35000THEN:cj=5000 17514IF35001<=Zj%ANDZj%<=70000THEN:cj=10000 17516IF70001<=Zj%ANDZj%<=150000THEN:cj=20000 17518IF150001<=Zj%ANDZj%<=350000THEN:cj=50000 17520IF350001<=Zj%ANDZj%<=1000000THEN:cj=100000 17522dj%=1:IFcj>=1THEN 17526IFjh%MODcj=0THEN:dj%=0 17528ENDIF:PROCej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):ENDPROC 17536DEFPROCM_:gi(0,1)=0:FORM%=1TO5:gi(0,1)+=Ak(M%)*(uf(0,M%)/100)*wj(0):NEXTM%:FORN%=1TO160:gi(N%,1)=0:FORM%=1TO5:gi(N%,1)+=Ak(M%)*(uf(N%,M%)/100)*wj(N%):NEXTM%:NEXTN%:FORN%=0TO160:hi(N%,1)=24*gi(N%,1)/gi(0,1):ji(N%,1)=0.1*gi(N%,1)/gi(0,1):NEXT:ENDPROC 17598DEFPROCfg:FORN%=1TO5:Oe%(N%)=100*INT((-1/10000)*(Ge%(N%,1)*yd%(N%)+Ge%(N%,2)*_d%(N%)+Ge%(N%,3)*Ae%(N%)+Ge%(N%,4)*Ce%(N%))*Me%(N%)):Pe%(N%)=Oe%(N%):NEXTN%:ENDPROC 17618DEFPROCae(Al%):Qe%(Al%)=Ue%(Al%):Qe%(Al%)=Qe%(Al%)-Me%(Al%):Qe%(Al%)=Qe%(Al%)-Oe%(Al%):ENDPROC 17632DEFPROCwf:PROCyk(Ze%(),Ne%(),wj()):PROCyk(Ze%(),Pe%(),xj()):PROCyk(Ze%(),Te%(),yj()):PROCyk(Ze%(),Ve%(),zj()):ENDPROC 17652DEFPROCN_:FORN%=0TO160:gi(N%,2)=Kk*((100-yj(N%))/100)*(zj(N%)-wj(N%)-xj(N%)):NEXT:FORN%=0TO160:hi(N%,2)=Lk*gi(N%,2)/gi(0,2):NEXT:FORN%=0TO160:gi(N%,2)=gi(N%,2)+gi(N%,1):hi(N%,2)=hi(N%,2)+hi(N%,1):ji(N%,2)=ji(N%,2)+ji(N%,1):NEXT:ENDPROC 17718DEFPROCxf:PROC`k(ge%(),ee%(),rj()):PROCyk(ge%(),me%(),uj()):FORN%=1TO160:pj(N%,1)=(1-(uj(N%)-uj(N%-1))/100)*(1+rj(N%-1)/100)*pj(N%-1,1):pj(N%,2)=(1+rj(N%-1)/100)*pj(N%-1,2):pj(N%,3)=(1+rj(N%-1)/100)*pj(N%-1,3) 17740pj(N%,0)=pj(N%,1)+pj(N%,2)+pj(N%,3):NEXT:ENDPROC 17750DEFPROCO_:LOCALLi:PROCyk(ge%(),ie%(),sj()):PROCyk(ge%(),ke%(),tj()):qj(0)=1:FORN%=1TO160:qj(N%)=0.9*qj(N%-1):NEXT:FORN%=0TO160:vj(N%)=(1-tj(N%)/100)*(((1-qj(N%))*100/sj(N%)+qj(N%)*100/ie%(0)))*vj:NEXT:FORN%=0TO160 17866gi(N%,3)=(pj(N%,1)*Mk+pj(N%,2)*Nk+pj(N%,3)*Ok)*vj(N%):NEXT:FORN%=0TO160:IFtj(N%)<99.9THENLi=(gi(N%,3)/gi(0,3))*0.82/(1-tj(N%)/100)ELSELi=1000 17878hi(N%,3)=Li*11:ji(N%,3)=Li*0.3:NEXT:ENDPROC 17890DEFPROCyf:PROCxk(_e%()):ENDPROC 17904DEFPROCzf:PROCyk(Gf%(),Af%(),Bk()):PROCyk(Gf%(),Cf%(),Ck()):ENDPROC 17920DEFPROCP_:LOCALLi%:Li%=0:FORM%=0TO24:Li%+=(25-M%):NEXT:FORN%=0TO160:gi(N%,5)=Bk(N%)*1E6*Pk:hi(N%,5)=Bk(N%)*1E6*Rk:ji(N%,5)=Bk(N%)*1E6*Qk:NEXT:FORM%=0TO24:FORN%=0TO160-M%:gi(N%+M%,5)-=Ck(N%)*1E6*(Pk/2)*(25-M%)/Li%:NEXTN%:NEXTM%:ENDPROC 17978DEFPROC_f:PROCyk(Of%(),If%(),Dk()):PROCyk(Of%(),Kf%(),Ek()):ENDPROC 17994DEFPROCQ_:FORN%=0TO160:hi(N%,6)=Dk(N%)*1E6*Sk:NEXT:FORN%=0TO160:ji(N%,6)=Ek(N%)*1E6*Tk:NEXT:ENDPROC 18040DEFPROC`f:PROCyk(Yf%(),Qf%(),Gk()):PROCyk(Yf%(),Sf%(),Hk()):PROCyk(Yf%(),Uf%(),Ik()):ENDPROC 18058DEFPROCR_:FORN%=0TO160:gi(N%,7)=(Gk(N%)/100)*Uk:ji(N%,7)=(Hk(N%)/100)*Vk:hi(N%,7)=(Ik(N%)/100)*Wk:NEXT:ENDPROC 18102DEFPROCT_:IFjf%(1)THEN:PROCBl(gi(),gi()) 18114IFjf%(2)THEN:PROCBl(hi(),hi()) 18116IFjf%(3)THEN:PROCBl(ji(),ji()) 18118IFjf%(4)THEN:PROCCl(ii(),ii(),1) 18120IFjf%(5)THEN:PROCCl(ii(),ii(),2) 18122IFjf%(6)THEN:PROCCl(ii(),ii(),3) 18124PROC`k(nf%(),lf%(),Jk()):IFjf%(1)THEN:FORN%=1TO160:gi(N%,0)=((100+Jk(N%-1))/100)*gi(N%-1,0):NEXT 18136IFjf%(2)THEN:FORN%=1TO160:hi(N%,0)=((100+Jk(N%-1))/100)*hi(N%-1,0):NEXT 18138IFjf%(3)THEN:FORN%=1TO160:ji(N%,0)=((100+Jk(N%-1))/100)*ji(N%-1,0):NEXT 18140IFjf%(4)THEN:FORN%=1TO160:ii(N%,1,0)=((100+Jk(N%-1))/100)*ii(N%-1,1,0):NEXT 18142IFjf%(5)THEN:FORN%=1TO160:ii(N%,2,0)=((100+Jk(N%-1))/100)*ii(N%-1,2,0):NEXT 18144IFjf%(6)THEN:FORN%=1TO160:ii(N%,3,0)=((100+Jk(N%-1))/100)*ii(N%-1,3,0):NEXT 18146FORN%=1TO160:ii(N%,0,0)=ii(N%,1,0)+ii(N%,2,0)+ii(N%,3,0):NEXT:ENDPROC 18154DEFPROCBl(Dl(),RETURNDl()):FORN%=1TO160:FORM%=0TO8:Dl(N%,M%)=0:NEXTM%:NEXTN%:ENDPROC 18176DEFPROCCl(Dl(),RETURNDl(),El%):FORN%=1TO160:FORM%=0TO8:Dl(N%,El%,M%)=0:NEXTM%:NEXTN%:ENDPROC 18198DEFPROCrf(Fl%):FORM%=0TO5:zd%(M%)=hj%(Fl%,M%,0):`d%(M%)=hj%(Fl%,M%,1):Be%(M%)=hj%(Fl%,M%,2):De%(M%)=hj%(Fl%,M%,3):Fe%(M%)=hj%(Fl%,M%,4):Le%(M%)=hj%(Fl%,M%,5):He%(M%,1)=hj%(Fl%,M%,6):He%(M%,2)=hj%(Fl%,M%,7):He%(M%,3)=hj%(Fl%,M%,8) 18226He%(M%,4)=hj%(Fl%,M%,9):ee%(M%)=ij%(Fl%,M%,0):ie%(M%)=ij%(Fl%,M%,1):ke%(M%)=ij%(Fl%,M%,2):me%(M%)=ij%(Fl%,M%,3):ge%(M%)=ij%(Fl%,M%,4):Ne%(M%)=jj%(Fl%,M%,0):Pe%(M%)=jj%(Fl%,M%,1):Re%(M%)=jj%(Fl%,M%,2):Te%(M%)=jj%(Fl%,M%,3) 18250Ve%(M%)=jj%(Fl%,M%,4):Ze%(M%)=jj%(Fl%,M%,5):Af%(M%)=kj%(Fl%,M%,0):Cf%(M%)=kj%(Fl%,M%,1):Gf%(M%)=kj%(Fl%,M%,2):If%(M%)=lj%(Fl%,M%,0):Kf%(M%)=lj%(Fl%,M%,1):Of%(M%)=lj%(Fl%,M%,2):oe%(M%)=mj%(Fl%,M%,0):qe%(M%)=mj%(Fl%,M%,1) 18276se%(M%)=mj%(Fl%,M%,2):ue%(M%)=mj%(Fl%,M%,3):we%(M%)=mj%(Fl%,M%,4):_e%(M%)=mj%(Fl%,M%,5):Qf%(M%)=nj%(Fl%,M%,0):Sf%(M%)=nj%(Fl%,M%,1):Uf%(M%)=nj%(Fl%,M%,2):Yf%(M%)=nj%(Fl%,M%,3):NEXT:ENDPROC 18302DEFPROCoj:kh%=OPENIN("<CO2effect$Dir>.Data.S_Data"):FORN%=0TO3:FORM%=0TO5:FORO%=0TO9:INPUT#kh%,hj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO4:INPUT#kh%,ij%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO5:INPUT#kh%,jj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO2:INPUT#kh%,kj%(N%,M%,O%):NEXTO%:NEXTM% 18326FORM%=0TO5:FORO%=0TO2:INPUT#kh%,lj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO5:INPUT#kh%,mj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO3:INPUT#kh%,nj%(N%,M%,O%):NEXTO%:NEXTM%:NEXTN%:CLOSE#kh%:ENDPROC 18350DATA CO2effect,3,0,Ka%,Info,0,-1,Pause,&80,-1,Quit 18352DATA Colour,16,0,-1,0,0,-1,1,0,-1,2,0,-1,3,0,-1,4,0,-1,5,0,-1,6,0,-1,7,0,-1,8,0,-1,9,0,-1,10,0,-1,11,0,-1,12,0,-1,13,0,-1,14,&80,-1,15 18354DATA CO2effect,3,0,K`%,Misc,0,I`%,Save,&80,-1,Tools 18356DATA Save,2,0,ja%,Graph,&80,J`%,Parameters 18358DATA Parameters,2,0,la%,TextFile,&80,na%,CO2effFile 18360DATA Misc,1,&80,Ka%,Info 18362DATA Temp Model,4,0,-1,high EBM,0,-1,av EBM,0,-1,low EBM,&80,-1,User 18364 18368DATA 0D High E.B.,0D Average E.B.,0D Low E.B.,User-defined model. 18370DATA Zero dimensional, energy balance model.,Scaled to high GCM, temperature estimate. 18372DATA Zero dimensional, energy balance model.,Scaled to best (average), temperature estimate. 18374DATA Zero dimensional, energy balance model.,Scaled to low GCM, temperature estimate. 18376DATA ,,, 18378 18382DATA 0.000287,0.000118,0.000211,0.000043,0.000005 18384 18388DATA 1,0 18390DATA 1,10 18392DATA 1,25 18394DATA 1,25 18396DATA 1,50 18398DATA 1,50 18400 18404DATA Total carbon emissions,Total methane emissions,Total nitrous oxide emissions,Total CFC-11 emissions,Total CFC-12 emissions,Total HCFC-22 emissions,Total combined CFC emissions, 18406DATA Electricity,Energy use,Transport,CFC use,Deforestation,Agriculture,Misc sources,Other sources 18408 18410DEFFNLa(Gl%,Hl%,Il%,E`$,Jl%):$E`%=E`$:SYS262363,,X_%,Gl%,Hl%,Il%,E`%,0:X_%!64=Jl%:SYS262337,,X_%TOsh%:=sh% 18424DEFFNJa(Kl%,Ll%,Ml%,Nl%,Ol%,Oh%,Ci$,Pl%,Ql%,Rl%):!X_%=Kl%:X_%!4=Ll%:X_%!8=Ml%:X_%!12=Ll%+Nl%:X_%!16=Ml%+Ol%:X_%!20=Oh%:IFPl%=0THEN 18440$(X_%+24)=Ci$ 18442ELSE:X_%!24=Pl%:X_%!28=Ql%:X_%!32=Rl% 18450ENDIF:SYS262338,,X_%TOSl%:=Sl% 18458DEFFNTl(a$):WHILEINSTR(a$,"."):a$=MID$(a$,INSTR(a$,".")+1):ENDWHILE:=a$+CHR$0 18470DEFFNHb(Ul%):LOCALa$:WHILE?Ul%<>0:a$+=CHR$(?Ul%):Ul%+=1:ENDWHILE:=a$ 18484DEFFNWh:LOCALCi$:Vl$="":CASEX_%!32OF 18492WHENKa%:Vl$="if_b_w" 18494WHENMa%:Vl$="m_w" 18496WHENPa%:Vl$="s_w" 18498WHENQa%:Vl$="LHy_d_w" 18500WHENSa%:Vl$="RHy_d_w" 18502WHENUa%:Vl$="cf_w" 18504WHENVa%:Vl$="t_d_w" 18506WHENWa%:Vl$="t_w" 18508WHENYa%:Vl$="xa_e_w" 18510WHENZa%:Vl$="ya_e_w" 18512WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Vl$="e_w" 18514WHENaa%:Vl$="e_g_w" 18516WHENba%:Vl$="tr_w" 18518WHENca%:Vl$="f_w" 18520WHENda%:Vl$="tm_w" 18522WHENea%:Vl$="a_w" 18524WHENfa%:Vl$="cfc_w" 18526WHENga%:Vl$="ms_w" 18528WHENha%:Vl$="e_u_w" 18530WHENia%:Vl$="s_e_w" 18532WHENja%:Vl$="df_s_w" 18534WHENla%:Vl$="p_tf_s_w" 18536WHENna%:Vl$="p_pf_s_w" 18538ENDCASE:Ci$=FNWl(Vl$+STR$(X_%!36)):IFCi$=""THENCi$=FNWl("") 18544=Ci$ 18548DEFFNWl(Xl$):=FNYl(Xl$,"","") 18554DEFFNYl(Xl$,Zl$,al$):LOCALF%,L%:SYS398594,ah%,Xl$,p`%,256,Zl$,al$TO,,,L%;F%:IFF%AND1THENL%=0 18562p`%?L%=13:=$p`% 18568DEFFNgb(sh%,Sl%,Ll%,Ml%,Nl%,Ol%,bl%,cl%,dl%):!X_%=sh%:X_%!4=Sl%:SYS262340,,X_%:el%=FNJa(sh%,Ll%,Ml%,Nl%,Ol%,bl%,"",cl%,dl%,21):SYS262353,sh%,Ll%,Ml%,Ll%+Nl%,Ml%+Ol%:=el% 18584DEFFNfl(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=VAL($(X_%!28)):=hl% 18598DEFFNil(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=10*VAL($(X_%!28)):=hl% 18612DEFFNsi(si,jl%):IFsi>jl%-200THEN:si=jl%-200 18616IFsi<jl%-700THEN:si=jl%-700 18618=si 18622DEFFNti(si%,jl%,s%):IFsi%>=jl%-200ORsi%<=jl%-700THEN:s%=0 18626=s% 18630DEFFNkl(ll,xi,ml,nl):ol%=0:IFll>=nlANDll<=mlANDll>xiTHEN:ol%=-1 18636=ol% 18640DEFFNpl(ll,xi,ml,nl):ol%=0:IFxi>=nlANDxi<=mlANDxi<llTHEN:ol%=-1 18646=ol% 18650DEFFNRg:ol%=0:IFFNkl(af%,1990,2150,1990)THEN:ol%=-1 18656=ol% 18660DEFFNag:ol%=0:IFFNkl(ef%,ff%,5000,-1000)ANDFNpl(ef%,ff%,5000,-1000)THEN:ol%=-1 18666=ol% 18670DEFFNdg:IFFNkl(yd%(Ie%),-1,100,0)ANDFNkl(_d%(Ie%),-1,100,0)ANDFNkl(Ae%(Ie%),-1,100,0)ANDFNkl(Ce%(Ie%),-1,100,0)ANDFNkl(Ee%(Ie%),-1,100,0)THEN 18676IFFNkl(Ie%,-1,5,0)ANDFNkl(Ke%(Ie%),0,cg%,1)THEN 18680ol%=-1 18682ENDIF 18683ELSE:ol%=0 18686ENDIF:IFyd%(Ie%)+_d%(Ie%)+Ae%(Ie%)+Ce%(Ie%)+Ee%(Ie%)<>100THEN:ol%=0 18688=ol% 18692DEFFNqg:ol%=0:IFFNkl(Me%(We%),-1,999900,0)ANDFNkl(Se%(We%),-1,100,0)ANDFNkl(Ue%(We%),-1,999900,0)THEN 18698IFFNkl(We%,-1,5,0)ANDFNkl(Ye%(We%),0,cg%,0)THEN:ol%=-1 18700ENDIF:=ol% 18706DEFFNhg:ol%=0:IFFNkl(de%(be%),-101,10,-100)ANDFNkl(he%(be%),-1,100,0)ANDFNkl(je%(be%),-1,100,0)ANDFNkl(le%(be%),-1,100,0)THEN 18712IFFNkl(be%,-1,5,0)ANDFNkl(fe%(be%),-1,cg%,0)THEN:ol%=-1 18714ENDIF:=ol% 18720DEFFNjg:IFFNkl(ne%(xe%),-1,100,0)ANDFNkl(pe%(xe%),-1,100,0)ANDFNkl(re%(xe%),-1,100,0)ANDFNkl(te%(xe%),-1,100,0)ANDFNkl(ze%(xe%),0,cg%,1)THEN 18725ELSE:ol%=0 18728ENDIF:IFne%(xe%)+pe%(xe%)+re%(xe%)+te%(xe%)<>100THEN:ol%=0 18730=ol% 18734DEFFNlg:ol%=0:IFFNkl(`e%(Df%),-1,999,0)ANDFNkl(Bf%(Df%),-1,999,0)THEN 18740IF(FNkl(Df%,0,5,0)ANDFNkl(Ff%(Df%),0,cg%,0))ORDf%=0THEN:ol%=-1 18742ENDIF:=ol% 18748DEFFNmg:ol%=0:IFFNkl(Hf%(Lf%),-1,50000,0)ANDFNkl(Jf%(Lf%),-1,999,0)THEN 18754IF(FNkl(Lf%,0,5,0)ANDFNkl(Nf%(Lf%),0,cg%,0))ORLf%=0THEN:ol%=-1 18756ENDIF:=ol% 18762DEFFNog:ol%=0:IFFNkl(Pf%(Vf%),-1,999,0)ORFNkl(Rf%(Vf%),-1,999,0)ORFNkl(Tf%(Vf%),-1,999,0)THEN 18768IFFNkl(Vf%,0,5,0)ANDFNkl(Xf%(Vf%),0,cg%,0)THEN:ol%=-1 18770ENDIF:=ol% 18776DEFFNsg:ol%=0:IFFNkl(kf%(of%),-101,10,-100)THEN 18782IFFNkl(of%,0,5,0)ANDFNkl(mf%(of%),-1,cg%,0)THEN:ol%=-1 18784ENDIF:=ol% 18790DEFFNJj(hl,Jj%):IF-1000<hlANDhl<=-100THEN:ql%=5+Jj% 18794IF-100<hlANDhl<=-10THEN:ql%=4+Jj% 18796IF-10<hlANDhl<0THEN:ql%=3+Jj% 18798IF0<=hlANDhl<10THEN:ql%=2+Jj% 18800IF10<=hlANDhl<100THEN:ql%=3+Jj% 18802IF100<=hlANDhl<1000THEN:ql%=4+Jj% 18804IF1000<=hlANDhl<10000THEN:ql%=5+Jj% 18806IF10000<=hlANDhl<100000THEN:ql%=6+Jj% 18808IF100000<=hlANDhl<1000000THEN:ql%=7+Jj% 18810=ql% 18814DEFFNJh(Vl%,gl%):LOCALhl%:hl%=FNfl(Vl%,gl%):IF-1000<hlANDhl<=-100THEN:rl%=4 18822IF-100<hlANDhl<=-10THEN:rl%=3 18824IF-10<hlANDhl<0THEN:rl%=2 18826IF0<=hl%ANDhl%<10THEN:rl%=1 18828IF10<=hl%ANDhl%<100THEN:rl%=2 18830IF100<=hl%ANDhl%<1000THEN:rl%=3 18832IF1000<=hl%ANDhl%<10000THEN:rl%=4 18834IF10000<=hl%ANDhl%<100000THEN:rl%=5 18836IF100000<=hl%ANDhl%<1000000THEN:rl%=6 18838=rl% 18842DEFFNXk(sh%):CASEsh%OF 18850WHENA`%(1):n%=1 18852WHENA`%(2):n%=2 18854WHENA`%(3):n%=3 18856WHENA`%(4):n%=4 18858WHENA`%(5):n%=5 18860WHENA`%(6):n%=6 18862WHENA`%(7):n%=7 18864ENDCASE:=n% 18870DEFFNsl(Ni%):SYS262373,,M`%:tl%=!(M`%+4*Ni%):tl%=tl%AND&FFFFFF00:=tl% 18892DEFFNnb(p%):LOCALrl%,u`$,ul$:u`$=" ":rl%=LEN(STR$(p%)):rl%=9-rl%:ul$=LEFT$(u`$,rl%):Hb$=ul$+STR$(p%):=Hb$ 18914DEFFNki(Ri):vl=SQR(SQR((239.75+1.933*Ri)/(0.62*5.67E-8))):=vl 18926DEFFNli(Ri):vl=SQR(SQR((239.75+1.3*Ri)/(0.62*5.67E-8))):=vl 18938DEFFNmi(Ri):vl=SQR(SQR((239.75+0.885*Ri)/(0.62*5.67E-8))):=vl 18950DEFPROCId(RETURNHh%,RETURNGh%,wl%,xl%):Hh%=FNfl(Va%,13)-1750:IFHh%>wl%ORHh%<=xl%THEN:Hh%=wl%:PROCfb(Va%,13,Hh%+1750) 18956Gh%=FNfl(Va%,17)-1750:IFGh%>=wl%ORGh%<xl%THEN:Gh%=xl%:PROCfb(Va%,17,Gh%+1750) 18960IFGh%>=Hh%THEN 18962Hh%=wl%:Gh%=xl%:PROCfb(Va%,13,Hh%+1750):PROCfb(Va%,17,Gh%+1750) 18966ENDIF:IF(Hh%<>340ANDHh%<>350ANDHh%<>400)OR(Gh%<>0ANDGh%<>100ANDGh%<>240)THEN:Wb%=0 18970ENDPROC 18974DEFPROCPd(RETURNFh%,RETURNHh%,RETURNGh%,wl%,xl%):Fh%=FNfl(Qa%,14):IFFh%>=25ORFh%<=0THENFh%=3 18980Hh%=FNil(Qa%,19):IFHh%>wl%ORHh%<=xl%THEN:Hh%=wl% 18984Gh%=FNil(Qa%,23):IFGh%>=wl%ORGh%<xl%THEN:Gh%=xl% 18988PROCyl(Fh%,Hh%,Gh%):ENDPROC 18994DEFPROCRd(RETURNFh%,RETURNHh%,RETURNGh%,wl%,xl%):Fh%=FNfl(Sa%,14):IFFh%>=25ORFh%<=0THENFh%=3 19000Hh%=FNfl(Sa%,19):IFHh%>wl%ORHh%<=xl%THEN 19004Hh%=wl%:PROCfb(Sa%,19,Hh%) 19008ENDIF:Gh%=FNfl(Sa%,23):IFGh%>=wl%ORGh%<xl%THEN 19014Gh%=xl%:PROCfb(Sa%,23,Gh%) 19018ENDIF:IFGh%>=Hh%THEN 19022Hh%=wl%:Gh%=xl%:PROCfb(Sa%,19,Hh%):PROCfb(Sa%,23,Gh%) 19026ENDIF:ENDPROC 19032DEFPROCBc(sh%,gl%,zl%):IFzl%<1000THENHb$=LEFT$(STR$(zl%),3) 19036IFzl%<100THENHb$=" "+LEFT$(STR$(zl%),2) 19038IFzl%<10THENHb$=" 0"+LEFT$(STR$(zl%),1) 19040!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=LEFT$(Hb$,2)+"."+RIGHT$(Hb$,1):X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC 19054DEFPROC_l(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=10*VAL($(X_%!28)):ENDPROC 19066DEFPROCyl(Fh%,Hh%,Gh%):PROCfb(Qa%,14,mb%):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):ENDPROC 19078DEFPROC`l(Fh%,Hh%,Gh%):PROCfb(Sa%,14,Fh%):PROCfb(Sa%,19,Hh%):PROCfb(Sa%,23,Gh%):ENDPROC 19090DEFPROCKb:CASEDc%OF 19094WHEN1:Am$="CO2":Bm$="(ppmv)":Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc% 19098WHEN2:Am$="CH4":Bm$="(ppbv)":Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc% 19102WHEN3:Am$="CFC":Bm$="(pptv)":Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0) 19106WHEN4:Am$="N2O":Bm$="(ppmv)":Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc% 19110ENDCASE:PROCzc(Sa%,17,"Conc. "+Bm$):PROCwd(Sa%,Ta%,Am$+" display parameters"):PROCCc(Sa%,11,Oc%):CASEhb%OF 19120WHEN1:mb%=nb%:ob%=pb%:qb%=rb% 19124WHEN2:mb%=zb%:ob%=_b%:qb%=`b% 19128ENDCASE:IFNOT(oc%ANDyb%)THEN 19132CASErc%OF 19134WHEN1,2:Dc$="Excess "+Am$+" "+Bm$:PROCzc(Ma%,28,Dc$+" :") 19140WHEN3:Dc$=Am$+" conc. "+Bm$:PROCzc(Ma%,28," "+Dc$+" :") 19146ENDCASE 19148ELSE:PROCzc(Ma%,28," ") 19152ENDIF:PROC`l(Ic%,Kc%,Mc%):IFNOT(oc%ANDHc%)THEN 19158CASEhb%OF 19160WHEN1:CASErc%OF 19166WHEN1,2:hb$="Excess Temperature (�C)":PROCzc(Ma%,27,"Excess temp. (�C) :") 19172WHEN3:hb$="Surface Temperature (�C)":PROCzc(Ma%,27," Temperature (�C) :") 19178ENDCASE:PROCzc(Qa%,17,"Scale (�C)"):PROCwd(Qa%,Ra%,"Temperature display"):sb%=tb%:PROCCc(Qa%,11,sb%) 19186WHEN2:CASErc%OF 19192WHEN1,2:hb$="Excess Forcing (Wm-2)":PROCzc(Ma%,27," Forcing (Wm-2) :") 19198WHEN3:hb$="Radiative Forcing (Wm-2)":PROCzc(Ma%,27," Forcing (Wm-2) :") 19204ENDCASE:PROCzc(Qa%,17,"Scale (Wm-2)"):PROCwd(Qa%,Ra%,"Radiative forcing display"):sb%=Ac%:PROCCc(Qa%,11,sb%) 19212ENDCASE:PROCyl(mb%,ob%,qb%) 19216ELSE:PROCzc(Ma%,27," ") 19220ENDIF:ENDPROC 19226DEFPROCHd(Vl%,Cm%,Dm%,hl%,RETURNhl%,Em%,Fm%,Gm%,Hm%):PROCQb(Vl%,Dm%):IFhl%<=Em%-Fm%THEN:hl%=hl%+Fm% 19236CASEHm%OF 19238WHEN1:PROCfb(Vl%,Cm%,hl%+Gm%) 19242WHEN10:PROCBc(Vl%,Cm%,hl%+Gm%) 19246ENDCASE:PROCQb(Vl%,Dm%):ENDPROC 19254DEFPROCGd(Vl%,Cm%,Im%,hl%,RETURNhl%,Em%,Fm%,Gm%,Hm%):PROCQb(Vl%,Im%):IFhl%>=Em%+Fm%THEN:hl%=hl%-Fm% 19264CASEHm%OF 19266WHEN1:PROCfb(Vl%,Cm%,hl%+Gm%) 19270WHEN10:PROCBc(Vl%,Cm%,hl%+Gm%) 19274ENDCASE:PROCQb(Vl%,Im%):ENDPROC 19282DEFPROCIh(w%,Jm%,RETURNll%,xi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):CASEDj%OF 19290WHEN1:ll%=FNfl(w%,Jm%)-Gm% 19292WHEN2:ll%=FNil(w%,Jm%)-Gm% 19294ENDCASE:IFll%<=ml%ANDll%>=nl%ANDll%>xi%THEN:SYS262354,Lm%,Km%,,,-1,Mm% 19298ENDPROC 19302DEFPROCKh(w%,Jm%,ll%,RETURNxi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):CASEDj%OF 19310WHEN1:xi%=FNfl(w%,Jm%)-Gm% 19312WHEN2:xi%=FNil(w%,Jm%)-Gm% 19314ENDCASE:IFxi%<=ml%ANDxi%>=nl%ANDxi%<ll%THEN:SYS262354,Lm%,Km%,,,-1,Mm% 19318ENDPROC 19322DEFPROCQg:af%=FNfl(Ya%,4):ENDPROC 19334DEFPROCZg:ef%=FNfl(Za%,3):ff%=FNfl(Za%,8):ENDPROC 19346DEFPROCxd:yd%(Ie%)=FNfl(aa%,5):_d%(Ie%)=FNfl(aa%,10):Ae%(Ie%)=FNfl(aa%,15):Ce%(Ie%)=FNfl(aa%,20):Ee%(Ie%)=FNfl(aa%,25):Ie%=FNfl(aa%,30):Ke%(Ie%)=FNfl(aa%,41):ENDPROC 19360DEFPROCpg:Me%(We%)=FNfl(ha%,2):Se%(We%)=FNfl(ha%,15):Ue%(We%)=FNfl(ha%,21):We%=FNfl(ha%,26):Ye%(We%)=FNfl(ha%,30):ENDPROC 19372DEFPROCgg:de%(be%)=FNfl(ba%,3):he%(be%)=FNfl(ba%,8):je%(be%)=FNfl(ba%,13):le%(be%)=FNfl(ba%,18):be%=FNfl(ba%,23):fe%(be%)=FNfl(ba%,27):ENDPROC 19386DEFPROCig:ne%(xe%)=FNfl(fa%,4):pe%(xe%)=FNfl(fa%,9):re%(xe%)=FNfl(fa%,14):te%(xe%)=FNfl(fa%,20):xe%=FNfl(fa%,25):ze%(xe%)=FNfl(fa%,29):ENDPROC 19400DEFPROCkg:`e%(Df%)=FNfl(ca%,3):Bf%(Df%)=FNfl(ca%,8):Df%=FNfl(ca%,12):Ff%(Df%)=FNfl(ca%,16):ENDPROC 19414DEFPROCx`:Hf%(Lf%)=FNfl(ea%,3):Jf%(Lf%)=FNfl(ea%,8):Lf%=FNfl(ea%,12):Nf%(Lf%)=FNfl(ea%,16):ENDPROC 19428DEFPROCng:Pf%(Vf%)=FNfl(ga%,4):Rf%(Vf%)=FNfl(ga%,10):Tf%(Vf%)=FNfl(ga%,16):Vf%=FNfl(ga%,21):Xf%(Vf%)=FNfl(ga%,25):ENDPROC 19442DEFPROCrg:kf%(of%)=FNfl(ia%,16):of%=FNfl(ia%,21):mf%(of%)=FNfl(ia%,25):ENDPROC 19456DEFPROCSg:bf%=af%:ENDPROC 19468DEFPROCbg:`c%=ef%:Ad%=ff%:ENDPROC 19580DEFPROCtg:jf%()=if%():lf%()=kf%():pf%=of%:nf%()=mf%():ENDPROC 19594DEFPROCSh:SYS263872:kh%=OPENOUT($P`%):BPUT#kh%,"Draw";:PROCNm(201):PROCNm(0):BPUT#kh%,"CO2effect ";:CASEEa%OF 19618WHENMa%:Om%=1280:Pm%=960:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm:PROCTm 19628WHENaa%:Om%=706:Pm%=344:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm 19638WHENba%:Om%=798:Pm%=300:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm 19648WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Om%=640:Pm%=460:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm:PROCUm 19658ENDCASE:CLOSE#kh%:OSCLI"SetType "+$P`%+" AFF":SYS263873:ENDPROC 19670DEFPROCNm(Hj%):LOCALVm%:!U`%=Hj%:FORVm%=0TO3:BPUT#kh%,?(U`%+Vm%):NEXT:ENDPROC 19686DEFPROCSm:PROCNm(0):PROCNm(24):BPUT#kh%,1:BPUT#kh%,"Trinity.Medium";:BPUT#kh%,CHR$(0);:ENDPROC 19708DEFPROCTm:LOCALFi%:Wm%=qc%:IFNOToc%THEN 19724IFhb%=1ANDlb%THEN 19726PROCXm(t(),nb,rb%,ad%,nb%,FNsl(tb%),10,273):IFmc%THEN:Wm%=qc%+3:PROCXm(t(),nb,rb%,ad%,nb%,FNsl(7),10,273) 19730ENDIF:IFhb%=2ANDyb%THEN 19734PROCXm(Ri(),zb,`b%,bd%,zb%,FNsl(Ac%),10,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Ri(),zb,`b%,bd%,zb%,FNsl(7),10,0) 19738ENDIF:IFDc%=1ANDHc%THEN 19742PROCXm(Si(),Jc,Nc%,cd%,Jc%,FNsl(Qc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Si(),Jc,Nc%,cd%,Jc%,FNsl(7),1,0) 19746ENDIF:IFDc%=2ANDVc%THEN 19750PROCXm(Ti(),Wc,Yc%,dd%,Wc%,FNsl(Zc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Ti(),Wc,Yc%,dd%,Wc%,FNsl(7),1,0) 19754ENDIF:IFDc%=3ANDbc%THEN 19758IFNOTnc%THEN 19760PROCYm(Ui(),cc,ec%(0),ed%(0),cc%,FNsl(fc%(0)),1,0):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(0),ed%(0),cc%,FNsl(7),1,0) 19764ELSE:PROCYm(Ui(),cc,ec%(1),ed%(1),cc%,FNsl(fc%(1)),1,1):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(1),ed%(1),cc%,FNsl(7),1,1) 19770PROCYm(Ui(),cc,ec%(2),ed%(2),cc%,FNsl(fc%(2)),1,2):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(2),ed%(2),cc%,FNsl(7),1,2) 19774PROCYm(Ui(),cc,ec%(3),ed%(3),cc%,FNsl(fc%(3)),1,3):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(3),ed%(3),cc%,FNsl(7),1,3) 19778ENDIF 19780ENDIF:IFDc%=4ANDhc%THEN 19784PROCXm(Yi(),ic,kc%,fd%,ic%,FNsl(lc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Yi(),ic,kc%,fd%,ic%,FNsl(7),1,0) 19788ENDIF 19790ELSE:IFyb%ANDNOTHc%THEN 19794IFNOTnc%THEN 19796PROCZm(FNsl(fc%(0)),4) 19798ELSE:PROCZm(FNsl(fc%(3)),7):PROCZm(FNsl(fc%(2)),6):PROCZm(FNsl(fc%(1)),5) 19802ENDIF:PROCZm(FNsl(lc%),3):PROCZm(FNsl(Zc%),2):PROCZm(FNsl(Qc%),1):IFmc%THEN 19808Wm%=qc%+3:IFNOTnc%THEN 19812PROCZm(FNsl(7),4) 19814ELSE:PROCZm(FNsl(7),7):PROCZm(FNsl(7),6):PROCZm(FNsl(7),5) 19818ENDIF:PROCZm(FNsl(7),3):PROCZm(FNsl(7),2):PROCZm(FNsl(7),1) 19822ENDIF 19824ENDIF:IFHc%ANDNOTyb%THEN 19828IFNOTnc%THEN 19830PROCam(FNsl(fc%(0)),4) 19832ELSE:PROCam(FNsl(fc%(3)),7):PROCam(FNsl(fc%(2)),6):PROCam(FNsl(fc%(1)),5) 19836ENDIF:PROCam(FNsl(lc%),3):PROCam(FNsl(Zc%),2):PROCam(FNsl(Qc%),1):IFmc%THEN 19842Wm%=qc%+3:IFNOTnc%THEN 19846PROCam(FNsl(7),4) 19848ELSE:PROCam(FNsl(7),7):PROCam(FNsl(7),6):PROCam(FNsl(7),5) 19852ENDIF:PROCam(FNsl(7),3):PROCam(FNsl(7),2):PROCam(FNsl(7),1) 19856ENDIF 19858ENDIF 19860ENDIF:PROCbm(2,26,Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,1,&0):PROCdm(2,140,160+100):PROCdm(8,140,160+600):PROCdm(8,1140,160+600):PROCdm(8,1140,160+100):PROCdm(8,140,160+100):PROCdm(0,0,0):PROCbm(1,15,Om%,Pm%,Qm%,Rm%) 19892PROCem(&00000000,&FFFFFF00,1,16,16,590,160+10,"Year",0):IFFa%=&A3ORFa%=&A4THEN 19898IFkb%THEN 19904fm%=INT((LEN(hb$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:PROCem(&00000000,&FFFFFF00,1,14,14,30,160+195,hb$,-1) 19916ENDIF:IFGc%THEN 19924fm%=INT((LEN(Dc$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=-65536:C`%!8=65536:PROCem(&00000000,&FFFFFF00,1,14,14,1250,160+500,Dc$,-1) 19936ENDIF 19940ENDIF:PROCgm(x%,y%,1750+bb%,140,160+100,1000,500,15,0.5,0.25,Hi,Md%,Nd%,Od,1,-30,-40,12,4,-1,Vb%):IFNOT(oc%ANDNOTyb%)THEN 19964CASEhb%OF 19966WHEN1:IFlb%THEN:PROChm(x%,y%,rb%,140,160+100,1000,500,15,0.5,0.25,nb,wc%,xc%,yc,10,-100,-7,12,2,0,0,jb%) 19970WHEN2:IFyb%THEN:PROChm(x%,y%,`b%,140,160+100,1000,500,15,0.5,0.25,zb,wc%,xc%,yc,10,-100,-7,12,2,0,0,xb%) 19974ENDCASE 19976ENDIF:IFNOT(oc%ANDNOTHc%)THEN 19990CASEDc%OF 19992WHEN1:IFHc%THEN:PROChm(x%,y%,Nc%,1140,160+100,-1000,500,15,0.5,0.25,Jc,Ud%,Vd%,Wd,1,-100,-7,12,1,0,-1,Fc%) 19996WHEN2:IFVc%THEN:PROChm(x%,y%,Yc%,1140,160+100,-1000,500,15,0.5,0.25,Wc,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,Uc%) 20000WHEN3,5:IFbc%THEN:PROChm(x%,y%,ec%,1140,160+100,-1000,500,15,0.5,0.25,cc,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,ac%) 20004WHEN4:IFhc%THEN:PROChm(x%,y%,kc%,1140,160+100,-1000,500,15,0.5,0.25,ic,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,gc%) 20008ENDCASE 20010ENDIF:Fi%=0:IFNOToc%THEN 20020CASEhb%OF 20022WHEN1:IFlb%THEN:PROCim(Fi%,tb%,"Temperature"):Fi%+=3 20024WHEN2:IFyb%THEN:PROCim(Fi%,Ac%,"Radiative forcing"):Fi%+=3 20026ENDCASE:CASEDc%OF 20030WHEN1:IFHc%THEN:PROCim(Fi%,Qc%,"CO2 concentration"):Fi%+=1 20032WHEN2:IFVc%THEN:PROCim(Fi%,Zc%,"CH4 concentration"):Fi%+=1 20034WHEN4:IFhc%THEN:PROCim(Fi%,lc%,"N2O concentration"):Fi%+=1 20036WHEN3:IFbc%THEN 20040IFNOTnc%THEN 20042PROCim(Fi%,fc%(0),"CFCs concentration"):Fi%+=1 20044ELSE:PROCim(Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:PROCim(Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:PROCim(Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1 20052ENDIF 20054ENDIF 20056ENDCASE 20058ELSE:PROCim(Fi%,Qc%,"CO2"):Fi%+=1:PROCim(Fi%,Zc%,"CH4"):Fi%+=1:PROCim(Fi%,lc%,"N2O"):Fi%+=1:IFNOTnc%THEN 20068PROCim(Fi%,fc%(0),"CFCs"):Fi%+=1 20070ELSE:PROCim(Fi%,fc%(1),"CFC-11"):Fi%+=1:PROCim(Fi%,fc%(2),"CFC-12"):Fi%+=1:PROCim(Fi%,fc%(3),"HCFC-22"):Fi%+=1 20078ENDIF 20080ENDIF:ENDPROC 20086DEFPROCim(n%,c%,Hb$):LOCALMi%,Ni%,x%,y%:Mi%=n%MOD3:Ni%=INT(n%/3):x%=140+Ni%*400:y%=110-Mi%*40:PROCbm(2,26,Om%,Pm%,Qm%,Rm%):PROCcm(FNsl(c%),&00000000,0.25,&8):PROCdm(2,x%,y%):PROCdm(8,x%,y%+20):PROCdm(8,x%+20,y%+20):PROCdm(8,x%+20,y%):PROCdm(8,x%,y%):PROCdm(0,0,0) 20122fm%=INT((LEN(Hb$))/4)+1:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,14,14,x%+40,y%,Hb$,0):ENDPROC 20136DEFPROCUm:LOCALHb$,rl%,jm%,fm%,Gj%,Li%,Xk%,Hj%:Xk%=FNXk(Ea%):PROCdk(Ea%,Gj%,Li%,Hj%):CASEEa%OF 20154WHENA`%(1):PROCkm(x%,y%,FNsl(Qc%),gi()) 20156WHENA`%(2):PROCkm(x%,y%,FNsl(Zc%),hi()) 20158WHENA`%(3):PROCkm(x%,y%,FNsl(lc%),ji()) 20160WHENA`%(4):PROClm(x%,y%,FNsl(fc%(1)),ii(),1) 20162WHENA`%(5):PROClm(x%,y%,FNsl(fc%(2)),ii(),2) 20164WHENA`%(6):PROClm(x%,y%,FNsl(fc%(3)),ii(),3) 20166WHENA`%(7):PROClm(x%,y%,FNsl(fc%(0)),ii(),0) 20168ENDCASE:fm%=INT((LEN(B`$(Xk%,ld%)))/4)+1:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,16,16,350-(500/58)*LEN(B`$(Xk%,ld%)),420,B`$(Xk%,ld%),0):PROCbm(2,27,Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,1,&0):PROCdm(2,100,100) 20200PROCdm(8,100,400):PROCdm(8,600,400):PROCdm(8,600,100):PROCdm(8,100,100):PROCdm(5,0,0):PROCdm(0,0,0):PROCbm(1,15,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,14,14,300,20,"Year",0):IFFa%=&A3ORFa%=&A4THEN 20222PROCak(Ea%):fm%=INT((LEN(bk$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:PROCem(&00000000,&FFFFFF00,1,12,12,25,230-5*LEN(bk$),bk$,-1) 20240ENDIF:PROCgm(x%,y%,Tg%,100,100,500,300,10,0.5,0.25,ck,Wg%,Xg%,Yg,1,-25,-32,10,4,-1,df%):IFZf%THEN 20262PROChm(x%,y%,Ad%,100,100,500,300,10,0.5,0.25,ek,td%,ud%,vd,1,-75,-7,10,Gj%,-1,0,hf%) 20264ELSE:PROChm(x%,y%,qd%(Xk%),100,100,500,300,10,0.5,0.25,gj(Xk%),td%(Xk%),ud%(Xk%),vd(Xk%),Li%,-75,-7,10,Gj%,Hj%,0,hf%) 20268ENDIF:ENDPROC 20276DEFPROCXm(y(),s,jh%,e%,s%,Ni%,Dj%,Lj%):LOCALmm%,ch:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1 20290IFNOTmc%THEN 20296CASEWm%OF 20298WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20300WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20302WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20304ENDCASE 20306ELSE:CASEWm%OF 20310WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20312WHEN4:ENDPROC 20314WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20316WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20318ENDCASE 20320ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%)-Lj%-(jh%+e%)/Dj%):IFnm%=bb%THEN:Vj=Uj 20336PROCpm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:NEXTnm%:PROCdm(0,0,0):ENDPROC 20350DEFPROCYm(y(),s,jh%,e%,s%,Ni%,Dj%,Yj%):LOCALmm%,ch:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1 20364IFNOTmc%THEN 20370CASEWm%OF 20372WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20374WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20376WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20378ENDCASE 20380ELSE:CASEWm%OF 20384WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20386WHEN4:ENDPROC 20388WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20390WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20392ENDCASE 20394ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%,Yj%)-(jh%+e%)/Dj%):IFnm%=bb%THEN:Vj=Uj 20410PROCpm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:NEXTnm%:PROCdm(0,0,0):ENDPROC 20426DEFPROCZm(Ni%,n%):LOCALs,mm%:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1 20438s=500*zb:IFNOTmc%THEN 20446CASEWm%OF 20448WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20450WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20452WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20454ENDCASE 20456ELSE:CASEWm%OF 20460WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20462WHEN4:ENDPROC 20464WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20466WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20468ENDCASE 20470ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*10*ai(nm%):Wj(1)=s*gd%:IFn%>1THEN:Uj(2)=Uj(1)+s*10*bi(nm%):Wj(2)=Wj(1)+s*hd% 20488IFn%>2THEN:Uj(3)=Uj(2)+s*10*ci(nm%):Wj(3)=Wj(2)+s*id% 20490IFn%>3THEN:Uj(4)=Uj(3)+s*10*di(nm%,0):Wj(4)=Wj(3)+s*jd%(0) 20492IFn%>4THEN:IFnc%THEN:Uj(4)=Uj(3):Wj(4)=Wj(3) 20494IFn%>4THEN:Uj(5)=Uj(3)+s*10*di(nm%,1):Wj(5)=Wj(3)+s*jd%(1) 20496IFn%>5THEN:Uj(6)=Uj(5)+s*10*di(nm%,2):Wj(6)=Wj(5)+s*jd%(2) 20498IFn%>6THEN:Uj(7)=Uj(6)+s*10*di(nm%,3):Wj(7)=Wj(6)+s*jd%(3) 20500Wj()+=s*`b%:Uj()=Uj()-Wj():IFnm%=bb%THEN:Vj()=Uj() 20506PROCpm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),zb%,Uj(n%),Uj(n%-1)):Vj()=Uj():NEXTnm%:PROCdm(0,0,0):ENDPROC 20518DEFPROCam(Ni%,n%):LOCALs,mm%:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1 20530s=500*Jc:IFNOTmc%THEN 20538CASEWm%OF 20540WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20542WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20544WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20546ENDCASE 20548ELSE:CASEWm%OF 20552WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20554WHEN4:ENDPROC 20556WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20558WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%) 20560ENDCASE 20562ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*Si(nm%):Wj(1)=0:IFn%>1THEN:Uj(2)=Uj(1)+s*(277*EXP(bi(nm%)/6.3)-277):Wj(2)=Wj(1)+s*(277*EXP(hd%/63)-277) 20580IFn%>2THEN:Uj(3)=Uj(2)+s*(277*EXP(ci(nm%)/6.3)-277):Wj(3)=Wj(2)+s*(277*EXP(id%/63)-277) 20582IFn%>3THEN:Uj(4)=Uj(3)+s*(277*EXP(di(nm%,0)/6.3)-277):Wj(4)=Wj(3)+s*(277*EXP(jd%(0)/63)-277) 20584IFn%>4THEN:IFnc%THEN:Uj(4)=Uj(3):Wj(4)=Wj(3) 20586IFn%>4THEN:Uj(5)=Uj(3)+s*(277*EXP(di(nm%,1)/6.3)-277):Wj(5)=Wj(3)+s*(277*EXP(jd%(1)/63)-277) 20588IFn%>5THEN:Uj(6)=Uj(5)+s*(277*EXP(di(nm%,2)/6.3)-277):Wj(6)=Wj(5)+s*(277*EXP(jd%(2)/63)-277) 20590IFn%>6THEN:Uj(7)=Uj(6)+s*(277*EXP(di(nm%,3)/6.3)-277):Wj(7)=Wj(6)+s*(277*EXP(jd%(3)/63)-277) 20592e%()+=s*(Nc%+cd%):Uj()=Uj()-Wj():IFnm%=bb%THEN:Vj()=Uj() 20598PROCpm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),Jc%,Uj(n%),Uj(n%-1)):Vj()=Uj():NEXTnm%:PROCdm(0,0,0):ENDPROC 20610DEFPROCpm(om,qm,rm,sm,tm,lh%,RETURNqm,RETURNrm):LOCALri:IFABS(om-140)<0.001THENri=0ELSEri=(1000*Hi) 20620qm=FNsi(qm,960):rm=FNsi(rm,960):sm=FNsi(sm,960):tm=FNsi(tm,960):IFNOTmc%THEN 20626CASEWm%OF 20628WHEN1:PROCdm(2,om-FNti(qm,960,lh%),qm-FNti(qm,960,lh%)):PROCdm(8,om+FNti(qm,960,lh%),qm-FNti(qm,960,lh%)):PROCdm(8,om+FNti(qm,960,lh%),qm+FNti(qm,960,lh%)):PROCdm(8,om-FNti(qm,960,lh%),qm+FNti(qm,960,lh%)) 20638PROCdm(8,om-FNti(qm,960,lh%),qm-FNti(qm,960,lh%)) 20640WHEN2:PROCdm(2,om-FNti(qm,960,lh%),qm):PROCdm(8,om+FNti(qm,960,lh%),qm):PROCdm(2,om,qm-FNti(qm,960,lh%)):PROCdm(8,om,qm+FNti(qm,960,lh%)) 20650WHEN3:IFnm%=bb%THEN:PROCdm(2,om,qm) 20654PROCdm(8,om,qm) 20656ENDCASE 20658ELSE:CASEWm%OF 20662WHEN1,2,3:PROCdm(2,om-ri,tm):PROCdm(8,om-ri,sm):PROCdm(8,om,qm):PROCdm(8,om,rm):PROCdm(2,om-ri,tm) 20670WHEN4 20672WHEN5:PROCdm(2,om-FNti(qm,960,lh%),qm):PROCdm(8,om+FNti(qm,960,lh%),qm):PROCdm(2,om,qm-FNti(qm,960,lh%)):PROCdm(8,om,qm+FNti(qm,960,lh%)) 20682WHEN6:IFnm%=bb%THEN:PROCdm(2,om,qm) 20686PROCdm(8,om,qm) 20688ENDCASE 20690ENDIF:ENDPROC 20696DEFPROCum(om,Uj,Vj,lh%,vm%,RETURNy):LOCALri:IFABS(x-140)<0.001THENri=0ELSEri=(1000*Hi) 20706IFnc%THENui%=7ELSEui%=4 20708FORM%=1TOui%:Uj(M%)=FNsi(Uj(M%),960):wm-xm(M%)=FNsi(Vj(M%),960):NEXTM%:ENDPROC 20724DEFPROCkm(x%,y%,Ni%,fk()):LOCALhk,ik:PROCbm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):PROCcm(-1,Ni%,0.5,&0):ik=ek*300:IFfk(0,ld%)>0THENjk=fk(0,ld%)ELSEjk=1 20748PROCdm(2,100,100+ik*(100*fk(0,ld%)/jk-Ad%)):FORnm%=1TO(bf%-1990):hk=ik*(100*fk(nm%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0 20756PROCdm(8,100+500*ck*nm%,100+hk):NEXT:PROCdm(0,0,0):ENDPROC 20768DEFPROClm(x%,y%,Ni%,fk(),Ui%):LOCALgk,hk,ik:PROCbm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):PROCcm(-1,Ni%,0.5,&0):ik=ek*300:IFfk(0,Ui%,ld%)>0THENjk=fk(0,Ui%,ld%)ELSEjk=1 20792PROCdm(2,100,100+ik*(100*fk(0,Ui%,ld%)/jk-Ad%)):FORnm%=1TO(bf%-1990):hk=ik*(100*fk(nm%,Ui%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0 20800PROCdm(8,100+500*ck*nm%,100+hk):NEXT:PROCdm(0,0,0):ENDPROC 20812DEFPROCgm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Aj%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Gj%,Hj%,Ki%):LOCALHb$:PROCbm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,zm,&0):FORX%=0TOBj%:PROCdm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%-ym%) 20884PROCdm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%):NEXTX%:PROCdm(0,0,0):IFKi%THEN 20896PROCbm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,_m,&80):PROCNm(256*5):PROCNm(1):PROCNm(256*5):FORX%=0TOBj%:PROCdm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%):PROCdm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%+`i%):NEXTX%:PROCdm(0,0,0) 20928ENDIF:FORX%=0TOBj%:Hb$=STR$(INT((xi%+Aj%+Cj*X%)/Dj%)):PROCbm(1,15,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%+_i%*s*(Aj%+Cj*X%),zi%+Fj%,Hb$,0):NEXTX%:ENDPROC 20954DEFPROChm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Ij%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Jj%,Hj%,Kj%,Ki%):LOCALHb$:PROCbm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,zm,&0):FORY%=0TOBj%:PROCdm(2,yi%-ym%-2*ym%*Kj%,zi%+`i%*s*(Ij%+Cj*Y%)) 21028PROCdm(8,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):NEXT:PROCdm(0,0,0):IFKi%THEN 21040PROCbm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,_m,&80):PROCNm(256*5):PROCNm(1):PROCNm(256*5):FORY%=0TOBj%:PROCdm(2,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):PROCdm(8,yi%+_i%,zi%+`i%*s*(Ij%+Cj*Y%)):NEXT:PROCdm(0,0,0) 21072ENDIF:FORY%=0TOBj%:IFHj%THEN 21084Hb$=" "+STR$(INT((xi%+Ij%+Cj*Y%)/Dj%)) 21086ELSE:IF(xi%+Ij%+Cj*Y%)>=0THENLj=0.001ELSELj=-0.001 21090Hb$=" "+LEFT$(STR$((xi%+Ij%+Cj*Y%)/Dj%+Lj),FNJj((xi%+Ij%+Cj*Y%)/Dj%,Jj%)) 21092ENDIF:IFABS(xi%+Ij%+Cj*Y%)<=0.001THEN:Hb$="0 " 21096fm%=INT((LEN(Hb$))/4)+1:IFHj%THEN 21100Ej%=(Kj%+1)*(-2*ym%-`m%*LEN(Hb$))-1.25*Kj%*ym% 21102ELSE:Ej%=(Kj%+1)*(-2*ym%-`m%*LEN(Hb$)+`m%/2)-1.25*Kj%*ym% 21106ENDIF:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%,zi%+Fj%+`i%*s*(Ij%+Cj*Y%),Hb$,0):NEXT 21118ENDCASE:ENDPROC 21124DEFPROCdm(An%,x,y):PROCNm(An%):IFAn%=2ORAn%=8THEN 21140PROCNm(256*x):PROCNm(256*y) 21144ENDIF:ENDPROC 21150DEFPROCem(Bn%,Cn%,Dn%,En%,Fn%,Gn%,Hn%,Hb$,In%):LOCALrl%,jm%:IFIn%THEN 21164PROCNm(C`%!0):PROCNm(C`%!4):PROCNm(C`%!8):PROCNm(C`%!12):PROCNm(C`%!16):PROCNm(C`%!20):PROCNm(0) 21178ENDIF:PROCNm(Bn%):PROCNm(Cn%):PROCNm(Dn%):PROCNm(640*En%):PROCNm(640*Fn%):PROCNm(256*Gn%):PROCNm(256*Hn%):BPUT#kh%,Hb$;:rl%=LEN(Hb$):jm%=rl%MOD4:WHILEjm%<4:BPUT#kh%,CHR$(0);:jm%+=1:ENDWHILE:ENDPROC 21212DEFPROCbm(Jn%,lh%,Kn%,Ln%,Mn%,Nn%):PROCNm(Jn%):PROCNm(4*lh%):PROCNm(256*Mn%):PROCNm(256*Nn%):PROCNm(256*Kn%):PROCNm(256*Ln%):ENDPROC 21230DEFPROCcm(On%,Pn%,Qn,Ca%):PROCNm(On%):PROCNm(Pn%):PROCNm(640*Qn):PROCNm(Ca%):ENDPROC 21250DEFPROCPb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=&00200000:X_%!12=&00200000:SYS262349,,X_%:ENDPROC 21268DEFPROCRb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=0:X_%!12=&00200000:SYS262349,,X_%:ENDPROC 21286DEFPROCQb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=&00200000:X_%!12=0:SYS262349,,X_%:ENDPROC 21304DEFPROCCc(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:X_%!8=&00000000:X_%!11=16*Ni%:X_%!12=&F0000000:SYS262349,,X_%:ENDPROC 21318DEFPROCRn(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:X_%!8=&00000000:X_%!12=&0F000000:X_%!11=Ni%:SYS262349,,X_%:ENDPROC 21334DEFPROCfb(sh%,gl%,Hb%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=STR$(Hb%):X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC 21354DEFPROCzc(sh%,gl%,Hb$):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=Hb$:X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC 21374DEFPROCSn(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=VAL($(X_%!28)):ENDPROC 21386DEFPROCug(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$Dd%=$(X_%!28):ENDPROC 21402DEFPROCRh(sh%,gl%,Dd%,Tn%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(Tn%)=$Dd%:ENDPROC 21418DEFPROCwa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%OR&00000001:!(Un%+28+24*Vn%)=Oh%:ENDPROC 21438DEFPROCxa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%AND&FFFFFFFE:!(Un%+28+24*Vn%)=Oh%:ENDPROC 21458DEFPROCqa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%OR&00400000:!(Un%+36+24*Vn%)=Oh%:ENDPROC 21478DEFPROCzg(Un%,Vn%):LOCALOh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%AND&FFBFFFFF:!(Un%+36+24*Vn%)=Oh%:ENDPROC 21498DEFPROCxg(Un%,Wn%,Xn%,Yn%):SYS262351,,X_%:X_%!0=X_%!12:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:SYS262351,,X_%:IFYn%THEN 21516Ch%=X_%!0+Wn%:Dh%=X_%!4+Xn% 21520ELSE:Dh%=X_%!4+Xn%:X_%!0=X_%!12:X_%!4=X_%!16:SYS262350,,X_%:Ch%=Nb%+X_%!16+Wn% 21532ENDIF:SYS262356,,Un%,Ch%,Dh%:ENDPROC 21540DEFPROCpa(Un%):READZn$,an%:$Un%=Zn$:bn%=(LEN(Zn$)-2)*16:Un%!12=&70207:Un%!20=44:Un%!24=0:Ul%=Un%+28:FORi%=1TOan%:READcn%,dn%,Vn$:!Ul%=cn%:Ul%!4=dn%:Ul%!8=&7000021:IFUn%=G`%THENUl%!11=&7+16*(i%-1) 21560$(Ul%+12)=Vn$:a%=(LEN(Vn$)+1)*16:IFa%>bn% bn%=a% 21566Ul%+=24:NEXTi%:Un%!16=bn%:ENDPROC 21576DEFPROCUh:LOCALch$:en%=R`%:SYS263872:kh%=OPENIN($en%):INPUT#kh%,ch$:IFch$="CO2effect"THEN 21598FORM%=0TO5:INPUT#kh%,zd%(M%):INPUT#kh%,`d%(M%):INPUT#kh%,Be%(M%):INPUT#kh%,De%(M%):INPUT#kh%,Fe%(M%):INPUT#kh%,Le%(M%):INPUT#kh%,He%(M%,1):INPUT#kh%,He%(M%,2):INPUT#kh%,He%(M%,3):INPUT#kh%,He%(M%,4):INPUT#kh%,ee%(M%):INPUT#kh%,ie%(M%):INPUT#kh%,ke%(M%):INPUT#kh%,me%(M%):INPUT#kh%,ge%(M%) 21636INPUT#kh%,Ne%(M%):INPUT#kh%,Pe%(M%):INPUT#kh%,Re%(M%):INPUT#kh%,Te%(M%):INPUT#kh%,Ve%(M%):INPUT#kh%,Ze%(M%):INPUT#kh%,Af%(M%):INPUT#kh%,Cf%(M%):INPUT#kh%,Gf%(M%):INPUT#kh%,If%(M%):INPUT#kh%,Kf%(M%):INPUT#kh%,Of%(M%):INPUT#kh%,oe%(M%):INPUT#kh%,qe%(M%):INPUT#kh%,se%(M%):INPUT#kh%,ue%(M%) 21674INPUT#kh%,we%(M%):INPUT#kh%,_e%(M%):INPUT#kh%,Qf%(M%):INPUT#kh%,Sf%(M%):INPUT#kh%,Uf%(M%):INPUT#kh%,Yf%(M%):NEXT 21690ENDIF:CLOSE#kh%:SYS263873:ENDPROC 21700DEFPROCTh:SYS263872:kh%=OPENOUT($Q`%):PRINT#kh%,"CO2effect":FORM%=0TO5:PRINT#kh%,zd%(M%):PRINT#kh%,`d%(M%):PRINT#kh%,Be%(M%):PRINT#kh%,De%(M%):PRINT#kh%,Fe%(M%):PRINT#kh%,Le%(M%):PRINT#kh%,He%(M%,1):PRINT#kh%,He%(M%,2):PRINT#kh%,He%(M%,3):PRINT#kh%,He%(M%,4):PRINT#kh%,ee%(M%) 21744PRINT#kh%,ie%(M%):PRINT#kh%,ke%(M%):PRINT#kh%,me%(M%):PRINT#kh%,ge%(M%):PRINT#kh%,Ne%(M%):PRINT#kh%,Pe%(M%):PRINT#kh%,Re%(M%):PRINT#kh%,Te%(M%):PRINT#kh%,Ve%(M%):PRINT#kh%,Ze%(M%):PRINT#kh%,Af%(M%):PRINT#kh%,Cf%(M%):PRINT#kh%,Gf%(M%):PRINT#kh%,If%(M%):PRINT#kh%,Kf%(M%):PRINT#kh%,Of%(M%) 21784PRINT#kh%,oe%(M%):PRINT#kh%,qe%(M%):PRINT#kh%,se%(M%):PRINT#kh%,ue%(M%):PRINT#kh%,we%(M%):PRINT#kh%,_e%(M%):PRINT#kh%,Qf%(M%):PRINT#kh%,Sf%(M%):PRINT#kh%,Uf%(M%):PRINT#kh%,Yf%(M%):NEXT:CLOSE#kh%:OSCLI"SetType "+$Q`%+" 077":SYS263873:ENDPROC 21818DEFPROCEd(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$Dd%=$(X_%!28):ENDPROC 21834DEFPROCvg(sh%,gl%):LOCALNb%,Ob%:fn%=TRUE:!X_%=sh%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=gl%:SYS262350,,X_%:X_%!4=5:X_%!8=Nb%+X_%!8:X_%!12=Ob%+X_%!12:X_%!16=Nb%+X_%!16:X_%!20=Ob%+X_%!20:X_%!24=0:X_%!28=0:X_%!32=&7FFFFFFF 21868X_%!36=&7FFFFFFF:SYS262352,,X_%:ENDPROC 21876DEFPROC`a:LOCALgn%:SYS262356,,-1:CASET`%OF 21894WHEN&077:Dd%=Q`%:gn%=1110 21896WHEN&AFF:Dd%=P`%:gn%=32768 21898WHEN&FFF:Dd%=S`%:gn%=4096 21900ENDCASE:SYS262351,,X_%:X_%!20=X_%!12:X_%!24=X_%!16:X_%!28=X_%!0:X_%!32=X_%!4:X_%!0=64:X_%!12=0:X_%!16=1:X_%!36=gn%:X_%!40=T`%:$(X_%+44)=FNTl($Dd%):SYS262375,18,X_%,X_%!20,X_%!24:ENDPROC 21930DEFPROCFd:IFINSTR($Dd%,".")THEN 21934CASET`%OF 21936WHEN&077:PROCLa(na%):SYS262356,,-1:PROCTh 21942WHEN&AFF:PROCLa(ja%):SYS262356,,-1:PROCSh 21948WHEN&FFF:PROCLa(la%):SYS262356,,-1:PROCQh 21954ENDCASE:IFEa%=Ma%THEN 21958w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-800,1280,-150 21964ENDIF 21966ELSE:PROCDb("To save, drag the icon to a directory viewer",1) 21970ENDIF:ENDPROC 21976DEFPROCQh:SYS263872:kh%=OPENOUT($S`%):BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%," Parameter list for CO2effect global warming simlulation ":BPUT#kh%," ======================================================= ":BPUT#kh%,"" 21996BPUT#kh%,"":BPUT#kh%,"Phase number :";:FORhn%=0TO5:BPUT#kh%,FNnb(hn%);:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"" 22010BPUT#kh%,"% coal generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(zd%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% gas generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(`d%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% oil generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(Be%(hn%));:NEXThn%:BPUT#kh%,"" 22016BPUT#kh%,"% nuclear gen. :";:FORhn%=0TO5:BPUT#kh%,FNnb(De%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% renewables gen. :";:FORhn%=0TO5:BPUT#kh%,FNnb(Fe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"" 22022BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Le%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Coal CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,1));:NEXThn%:BPUT#kh%,"" 22028BPUT#kh%,"Gas CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,2));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Oil CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,3));:NEXThn%:BPUT#kh%,"" 22032BPUT#kh%,"Nuclear CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,4));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"('-1'=Yes; '0'=No)":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"" 22046BPUT#kh%,"Growth in VMT (%) :";:FORhn%=0TO5:BPUT#kh%,FNnb(ee%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Efficiency (%) :";:FORhn%=0TO5:BPUT#kh%,FNnb(ie%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% bio fuels used :";:FORhn%=0TO5:BPUT#kh%,FNnb(ke%(hn%));:NEXThn%:BPUT#kh%,"" 22052BPUT#kh%,"% car filling :";:FORhn%=0TO5:BPUT#kh%,FNnb(me%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(ge%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"" 22062BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Power; electricity :";:FORhn%=0TO5:BPUT#kh%,FNnb(Ne%(hn%));:NEXThn%:BPUT#kh%,"" 22070BPUT#kh%,"Power; CHP :";:FORhn%=0TO5:BPUT#kh%,FNnb(Pe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Remaining power :";:FORhn%=0TO5:BPUT#kh%,FNnb(Re%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% bio fuels used :";:FORhn%=0TO5:BPUT#kh%,FNnb(Te%(hn%));:NEXThn%:BPUT#kh%,"" 22076BPUT#kh%,"Total power :";:FORhn%=0TO5:BPUT#kh%,FNnb(Ve%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Ze%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Power in TWh per year":BPUT#kh%,"" 22090BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Deforestaton rate :";:FORhn%=0TO5:BPUT#kh%,FNnb(Af%(hn%));:NEXThn%:BPUT#kh%,"" 22098BPUT#kh%,"Reforestaton rate :";:FORhn%=0TO5:BPUT#kh%,FNnb(Cf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Gf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Rate in million of hectares per year":BPUT#kh%,"" 22112BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Number of livestock:";:FORhn%=0TO5:BPUT#kh%,FNnb(If%(hn%));:NEXThn%:BPUT#kh%,"" 22120BPUT#kh%,"Fertilizer used :";:FORhn%=0TO5:BPUT#kh%,FNnb(Kf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Of%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Number of livestock in millions" 22130BPUT#kh%,"Mass of fertilizer manufactured/used in millions of tons":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"" 22142BPUT#kh%,"% of CFC-11 :";:FORhn%=0TO5:BPUT#kh%,FNnb(oe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% of CFC-12 :";:FORhn%=0TO5:BPUT#kh%,FNnb(qe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% of HCFC-22 :";:FORhn%=0TO5:BPUT#kh%,FNnb(se%(hn%));:NEXThn%:BPUT#kh%,"" 22148BPUT#kh%,"% of alternatives :";:FORhn%=0TO5:BPUT#kh%,FNnb(ue%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Total mass released:";:FORhn%=0TO5:BPUT#kh%,FNnb(we%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"" 22154BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(_e%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Total mass of CFC/alternatives manufactured/released in kilotons":BPUT#kh%,"" 22164BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"% cement emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Qf%(hn%));:NEXThn%:BPUT#kh%,"" 22172BPUT#kh%,"% acid emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Sf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% sewage emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Uf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"" 22178BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Yf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Emissions in percent of 1990 levels":CLOSE#kh%:OSCLI"SetType "+$S`%+" FFF":SYS263873:ENDPROC 22194DEFPROCin(sh%,RETURNNb%,RETURNOb%):!X_%=sh%:SYS262347,,X_%:Nb%=X_%4-X_%!20:Ob%=X_%!8-X_%!24:ENDPROC 22208DEFPROCIb(sh%):!X_%=sh%:SYS262347,,X_%:SYS262341,,X_%:ENDPROC 22220DEFPROCLa(sh%):!X_%=sh%:SYS262342,,X_%:ENDPROC 22230DEFPROCjn:SYS262351,,kn%:ln%=!kn%:mn%=kn%!4:nn%=X_%!12-X_%!4:on%=X_%!16-X_%!8:X_%!4=ln%-0.5*nn%:X_%!12=ln%+0.5*nn%:X_%!8=mn%-0.5*on%:X_%!16=mn%+0.5*on%:ENDPROC 22252DEFPROCwd(sh%,pn%,Zn$):$(pn%)=Zn$:X_%!0=sh%:SYS262347,,X_%:IF(X_%!32AND(1<<16))THEN 22262SYS262353,-1,X_%!4,(X_%!16)+4,X_%!12,(X_%!16)+36 22264ENDIF:ENDPROC 22270DEFPROCqn:PROCLa(Va%):PROCLa(Qa%):PROCLa(Sa%):PROCLa(Pa%):PROCLa(Ua%):PROCLa(La%):ENDPROC 22288DEFPROCqf:PROCLa(aa%):PROCLa(ha%):PROCLa(ba%):PROCLa(fa%):PROCLa(ca%):PROCLa(ea%):PROCLa(ga%):PROCLa(ia%):ENDPROC
' ��A_:�B_:�C_:�D_:�E_:�F_("<CO2effect$Dir>.HelpText"):ș263872:�G_:�H_:�I_:�J_:�K_:�L_:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:ș263873:ȕ�U_%:�V_:�:�W_:� '\���C_:�X_% 2560:�Y_% 144,Z_% 518,a_% 1206,b_% 440,c_% 434,d_% 750,e_% 449,f_% 412,g_% 946,h_% 197,i_% 263:�j_% 738,k_% 673,l_% 484,m_% 261,n_% 495,o_% 683,p_% 693,q_% 820,r_% 807,s_% 269,t_% 269,u_% 269 'h��v_% 40,w_% 40,x_% 40,y_% 40,z_% 40,__% 40,`_% 40:�A`%(7),B`%(7):�C`% 24:�D`% 255:�N%=0�255:?(D`%+N%)=0:�:�E`% 11:�F`% 99,G`% 411,H`% 99,I`% 75,J`% 75,K`% 51,L`% 123:�M`% 79:�N`% 11:$N`%="ptr_default":�O`% 11:$O`%="ptr_menu" '���P`% 255:$P`%="DrawFile":�Q`% 255:$Q`%="Parameters":�R`% 255:$R`%="":�S`% 255:$S`%="TextFile":T`%=&AFF:�U`% 3:�V`% 15,W`% 1:�X`% 6:$X`%="R2;A~ ":�Y`% 0:$Y`%="":�Z`% 20,a`% 20,b`% 20,c`% 20:�d`% 0:$d`%="" '���e`% 20:$e`%="Sslowoff,slowon":�f`% 20:$f`%="Sfastoff,faston":g`%=7:h`%=8:i`%=9:j`%=11:k`%=18:�l`% 0:$l`%="":�m`% 20:$m`%="Soneoff,oneon":�n`% 20:$n`%="Salloff,allon":o`$="":�p`% 256:U_%=�:q`%=�:r`%=�:s`%=�:t`%=�:u`%=�:v`%=� '��w`%=�:x`%=�:y`%=�:z`%=�:_`%=�:``%=�:Aa%=�:Ba%=�:Ca%=1:Da%=0:Ea%=0:�Fa% 4:ș6,129,0,&FF�,Fa%:Ga$="CO2effect":ș262336,200,&4B534154,Ga$:��Ha(�$+" at line "+Þ):�W_ '�4Ia%=�Ja(-1,0,0,68,68,&3002,"!CO2effect",0,0,0):� '����D_:ș262361,,"<CO2effect$Dir>.Templates":Ka%=�La(Y_%,Y_%+144,-1,"Info",1):Ma%=�La(Z_%,Z_%+518,D`%,"Main",Na%):Oa%=X_%!72:Pa%=�La(a_%,a_%+1206,-1,"Saves",Na%):Qa%=�La(b_%,b_%+440,-1,"LHy_d",Na%):Ra%=X_%!72 '��Sa%=�La(c_%,c_%+434,-1,"RHy_d",Na%):Ta%=X_%!72:Ua%=�La(d_%,d_%+750,-1,"Configure",Na%):La%=�La(e_%,e_%+449,-1,"Colours",Na%):Va%=�La(f_%,f_%+412,-1,"Time",Na%):Wa%=�La(g_%,g_%+946,-1,"Tools",Na%):Xa%=X_%!72 '��Ya%=�La(h_%,h_%+197,-1,"Time_emiss",Na%):Za%=�La(i_%,i_%+263,-1,"Per_emiss",Na%):A`%(1)=�La(v_%,v_%+40,-1,"Emissions",1):B`%(1)=X_%!72:A`%(2)=�La(w_%,w_%+40,-1,"Emissions",1):B`%(2)=X_%!72 (�A`%(3)=�La(x_%,x_%+40,-1,"Emissions",1):B`%(3)=X_%!72:A`%(4)=�La(y_%,y_%+40,-1,"Emissions",1):B`%(4)=X_%!72:A`%(5)=�La(z_%,z_%+40,-1,"Emissions",1):B`%(5)=X_%!72:A`%(6)=�La(__%,__%+40,-1,"Emissions",1):B`%(6)=X_%!72 ( �A`%(7)=�La(`_%,`_%+40,-1,"Emissions",1):B`%(7)=X_%!72:aa%=�La(j_%,j_%+738,-1,"Elec_gen",Na%):ba%=�La(k_%,k_%+673,-1,"Transport",Na%):ca%=�La(l_%,l_%+484,-1,"Forest",Na%):da%=�La(m_%,m_%+261,-1,"TempModel",Na%) (�ea%=�La(n_%,n_%+495,-1,"Agricul",Na%):fa%=�La(o_%,o_%+683,-1,"CFC",Na%):ga%=�La(p_%,p_%+693,-1,"Misc",Na%):ha%=�La(q_%,q_%+820,-1,"Energy_use",Na%):ia%=�La(r_%,r_%+807,-1,"Set_emiss",Na%) (�ja%=�La(s_%,s_%+269,-1,"Draw_save",Na%):ka%=X_%!140:la%=�La(t_%,t_%+269,-1,"p_tf_s",Na%):ma%=X_%!140:na%=�La(u_%,u_%+269,-1,"p_cf_s",Na%):oa%=X_%!140:ș262362:� (*~��E_:��pnG:�pa(F`%):��ppG:�pa(G`%):��prG:�pa(H`%):��ptG:�pa(I`%):��pvG:�pa(J`%):��pxG:�pa(K`%):��pzG:�pa(L`%):�qa(L`%,3):� (F1��V_:ș66�ra:ș262369,0,X_%,ra+Da%�sa%:Ȏsa%� (R�0:�r`%�:�ta (V �Ba%�:�Ba (X �z`%� (Zz`%=�:Ȏua%� (^,�Ma%:y`%=�:ș262353,Ma%,0,-960,1280,-150 (`"�aa%:ș262353,aa%,0,-344,706,0 (b� (d� (f�1:�va(!X_%) (h�2:ȎX_%!0� (l�Wa%:�wa(H`%,2):``%=� (n�:ș262341,,X_% (r�3:ȎX_%!0� (v�Wa%:�xa(H`%,2):``%=� (x�Ma% (z�:ș262342,,X_% (~�4:ȎX_%!0� (�<�Qa%,Sa%,La%,da%:Ba%=�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1 (�� (��5:ȎX_%!0� (��ja%,la%,na%:�ya (��Qa%,Sa%,La%,da%:Ba%=� (�� (�*�6:za%=X_%!12:�_a(X_%!8,X_%!12,X_%!16) (��7:�_`%��_`��`a (��8:�Ab(!X_%,X_%!4,X_%!24) (� �9:�Bb (��17,18:�Cb(X_%) (�0�19:�Db("Transfer failed - receiver died",1) (��:� (�@��_a(Eb%,Fb%,Gb%):�Hb$:�Fb%<>-2�Fb%<>ja%�Aa%�:�La(ja%):Aa%=� (� ȎFb%� (��-2:ȎEb%� (��1,4:�Ib(Ma%):�Jb:�Kb (��:�Aa%�:�La(ja%):Aa%=� (��Ma%:�Eb%<>2�Gb%=-1� (�+ș262354,Ma%,-1,0,0,-1,-1:Ea%=Ma%:Aa%=� (��:�Aa%�:�La(ja%):Aa%=� (� ȎEb%� (��256,1024:ȎGb%� (� (���-1:_`%=�:ș262351,,X_%:Lb%=X_%!0:Mb%=X_%!4:!X_%=Ma%:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=6:X_%!8=Lb%:X_%!12=Mb%:X_%!16=Lb%:X_%!20=Mb%:X_%!24=Nb%+140:X_%!28=Ob%-700:X_%!32=Nb%+1140:X_%!36=Ob%-200 )6�Lb%<Nb%+140�Lb%>Nb%+1140�Mb%<Ob%-700�Mb%>Ob%-200� ) ș262352,,0 )�:ș262352,,X_% )� )� )�1,4:ȎGb%� ) )�1:�r`%��s`%�t`%� ) �Pb(Ma%,1):r`%=�:s`%=�:t`%=� )$� )*�2:�s`%� ).2r`%=�r`%:�Qb(Ma%,2):�r`%��xa(F`%,1)��wa(F`%,1) )2� )8�3:�s`%=�� )<_r`%=�:s`%=�:�Qb(Ma%,3):�Rb(Ma%,1):�Rb(Ma%,2):�Qb(Ma%,3):w`%=�:ș262353,Ma%,0,-960,1280,-150 )B� )H8�4:u`%=�u`%:�Qb(Ma%,4):ș262353,Ma%,0,-960,1280,-150 )T��5:r`%=�:s`%=�:u`%=�:t`%=�:�Qb(Ma%,5):�Rb(Ma%,1):�Rb(Ma%,2):�Rb(Ma%,4):ș263872:Sb%=240:Tb%=240:�L_:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:ș263873:ș262353,Ma%,0,-960,1280,-150:�Jb )n)�6:�Qb(Ma%,6):Ub%=Vb%:�Ub%��Pb(Va%,5) )vWb%=Xb%:�Ib(Va%):ȎXb%� )|8�0:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):Yb%=Zb%:ab%=bb% )�8�1:�Pb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):Yb%=340:ab%=240 )�8�2:�Pb(Va%,9):�Rb(Va%,8):�Rb(Va%,10):Yb%=350:ab%=100 )�6�3:�Pb(Va%,10):�Rb(Va%,8):�Rb(Va%,9):Yb%=400:ab%=0 )�C�:cb%=400:db%=0:eb%=5:�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750) )�<�7,g`%:v`%=�v`%:X_%!0=Ma%:X_%!4=g`%:ș262350,,X_%:�v`%� )�VDa%=900:g`%=�gb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,e`%) )�V�:Da%=0:g`%=�gb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,f`%) )�� )�#�8:�Qb(Ma%,h`%):�Ib(Qa%):Ȏhb%� )�J�1:ib%=jb%:kb%=lb%:mb%=nb%:ob%=pb%:qb%=rb%:sb%=tb%:ub%=250:vb%=0:wb%=1 )�J�2:ib%=xb%:kb%=yb%:mb%=zb%:ob%=_b%:qb%=`b%:sb%=Ac%:ub%=500:vb%=0:wb%=1 )�`�:�fb(Qa%,14,mb%):�Bc(Qa%,19,ob%):�Bc(Qa%,23,qb%):�Cc(Qa%,11,sb%):�ib%��Pb(Qa%,5)��Rb(Qa%,5) )��kb%��Pb(Qa%,8)��Rb(Qa%,8) )� )�!�9:�Qb(Ma%,9):�Ib(Sa%):ȎDc%� )�L�1:Ec%=Fc%:Gc%=Hc%:Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%:Rc%=5000:Sc%=0:Tc%=10 )�M�2:Ec%=Uc%:Gc%=Vc%:Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%:Rc%=10000:Sc%=0:Tc%=50 )�P�3:Ec%=ac%:Gc%=bc%:Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0):Rc%=10000:Sc%=0:Tc%=50 *L�4:Ec%=gc%:Gc%=hc%:Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%:Rc%=1000:Sc%=0:Tc%=10 * a�:�fb(Sa%,14,Ic%):�fb(Sa%,19,Kc%):�fb(Sa%,23,Mc%):�Cc(Sa%,11,Oc%):�Ec%�:�Pb(Sa%,5)��Rb(Sa%,5) *�Gc%�:�Pb(Sa%,8)��Rb(Sa%,8) * *7�10:�Qb(Ma%,10):�Ib(Ua%):�mc%��Pb(Ua%,4)��Rb(Ua%,4) *$ �nc%��Pb(Ua%,28)��Rb(Ua%,28) *& �oc%��Pb(Ua%,30)��Rb(Ua%,30) *( Ȏqc%� **'�1:�Pb(Ua%,7):�Rb(Ua%,8):�Rb(Ua%,9) *,'�2:�Pb(Ua%,8):�Rb(Ua%,7):�Rb(Ua%,9) *.'�3:�Pb(Ua%,9):�Rb(Ua%,7):�Rb(Ua%,8) *0�:Ȏhb%� *4�1:�Pb(Ua%,11) *6�2:�oc%�:�Pb(Ua%,12) *8�:ȎDc%� *<�1:�oc%�:�Pb(Ua%,16) *>�2:�Pb(Ua%,17) *@�3:�Pb(Ua%,18) *B�4:�Pb(Ua%,19) *D�:Ȏrc%� *H�1:�Pb(Ua%,23) *J�2:�Pb(Ua%,25) *L�3:�Pb(Ua%,27) *N� *T�11,j`%:sc%=�sc%:�sc%� *Z�oc%=�:mc%=�:qc%=3:X_%!0=Ma%:X_%!4=j`%:ș262350,,X_%:j`%=�gb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,m`%):yb%=�:Hc%=�:hb%=2:Dc%=1:lb%=�:Vc%=�:hc%=�:bc%=�:�Pb(Ua%,12):�Rb(Ua%,11) *h��Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) *r�$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):�zc(Qa%,17,"Scale (Wm-2)"):�Kb:�Jb:Dc$=" ":�La(Qa%):�Pb(Ua%,4):�Pb(Ua%,7) *�%�Rb(Ua%,8):�Rb(Ua%,9):�Pb(Ua%,30) *���:oc%=�:mc%=�:X_%!0=Ma%:X_%!4=j`%:ș262350,,X_%:j`%=�gb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,n`%):�Pb(Ua%,12):�Pb(Ua%,16):yb%=�:Hc%=�:�Kb:�Jb:�Rb(Ua%,4):�Rb(Ua%,30) *�C�:w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 *���12:�Qb(Ma%,12):�Ib(La%):_c%(1)=Qc%:�Cc(La%,3,_c%(1)):_c%(2)=Zc%:�Cc(La%,6,_c%(2)):_c%(3)=lc%:�Cc(La%,9,_c%(3)):_c%(4)=fc%(0):�Cc(La%,12,_c%(4)):_c%(5)=fc%(1):�Cc(La%,15,_c%(5)):_c%(6)=fc%(2):�Cc(La%,18,_c%(6)) *�$_c%(7)=fc%(3):�Cc(La%,21,_c%(7)) *�V�13:�Qb(Ma%,13):�Ib(Wa%):``%=�:�`c%=100�Ad%=0�:�Pb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23) *�7�`c%=250�Ad%=0�:�Pb(Wa%,22):�Rb(Wa%,21):�Rb(Wa%,23) *�8�`c%=1000�Ad%=0�:�Pb(Wa%,23):�Rb(Wa%,21):�Rb(Wa%,22) *��Eb%=4�:�La(Ma%) *��wa(H`%,2) *�0�14:�Qb(Ma%,14):�zc(da%,2,Bd$(Cd%)):�Ib(da%) *�?�17:�Qb(Ma%,17):Ea%=Ma%:T`%=&AFF:Dd%=P`%:�Ed(ja%,1,P`%):�Fd *��18:�Fa%=&A3�Fa%=&A4� *�O�Qb(Ma%,18):�"If ""<Help$Dir>""="""" Then Filer_Run Resources:$.Apps.!Help" *�� *�� *�� *��Va%:ȎEb%� + �1,4:ȎGb%� +�5,6:�Qb(Va%,5):Ub%=�Ub% +h�8:Wb%=1:Yb%=340:ab%=240:�Pb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750) +h�9:Wb%=2:Yb%=350:ab%=100:�Pb(Va%,9):�Rb(Va%,8):�Rb(Va%,10):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750) +g�10:Wb%=3:Yb%=400:ab%=0:�Pb(Va%,10):�Rb(Va%,8):�Rb(Va%,9):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750) + 3�14:Wb%=0:�Gd(Va%,13,14,Yb%,Yb%,db%,eb%,1750,1) +$3�15:Wb%=0:�Hd(Va%,13,15,Yb%,Yb%,cb%,eb%,1750,1) +(3�18:Wb%=0:�Gd(Va%,17,18,ab%,ab%,db%,eb%,1750,1) +,3�19:Wb%=0:�Hd(Va%,17,19,ab%,ab%,cb%,eb%,1750,1) +0�13,17:Wb%=0 +2$�20:�Qb(Va%,20):�Eb%=4�:�La(Va%) +6�21:�Qb(Va%,21):�s`%� +<-�Wb%=0�:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10) +>r�Id(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):�t`%�:Tb%=240 +H�:ȎEb%� +L$�1:ș262353,Ma%,0,-960,1280,-150 +PM�4:�La(Va%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 +X� +Z� +\� +b�Qa%:ȎEb%� +f�1,4:ȎGb%� +j�5,6:�Qb(Qa%,5):ib%=�ib% +l�8,9:�Qb(Qa%,8):kb%=�kb% +n&�15:�Gd(Qa%,14,15,mb%,mb%,1,1,0,1) +p'�16:�Hd(Qa%,14,16,mb%,mb%,25,1,0,1) +r+�20:�Gd(Qa%,19,20,ob%,ob%,vb%,wb%,0,10) +t+�21:�Hd(Qa%,19,21,ob%,ob%,ub%,wb%,0,10) +v+�24:�Gd(Qa%,23,24,qb%,qb%,vb%,wb%,0,10) +x+�25:�Hd(Qa%,23,25,qb%,qb%,ub%,wb%,0,10) +z$�26:�Qb(Qa%,26):�Eb%=4�:�La(Qa%) +~�27:�Qb(Qa%,27):�s`%� +�#�Pd(mb%,ob%,qb%,ub%,vb%):Ȏhb%� +�Z�1:jb%=ib%:lb%=kb%:nb%=mb%:pb%=ob%:rb%=qb%:tb%=sb%:�Jd:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc) +�Z�2:xb%=ib%:yb%=kb%:zb%=mb%:_b%=ob%:`b%=qb%:Ac%=sb%:�Jd:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc) +�� +��:ȎEb%� +�$�1:ș262353,Ma%,0,-960,1280,-150 +�M�4:�La(Qa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 +�� +�� +�� +��Sa%:ȎEb%� +��1,4:ȎGb%� +��5,6:�Qb(Sa%,5):Ec%=�Ec% +��8,9:�Qb(Sa%,8):Gc%=�Gc% +�&�15:�Gd(Sa%,14,15,Ic%,Ic%,1,1,0,1) +�'�16:�Hd(Sa%,14,16,Ic%,Ic%,25,1,0,1) +�*�20:�Gd(Sa%,19,20,Kc%,Kc%,Sc%,Tc%,0,1) +�*�21:�Hd(Sa%,19,21,Kc%,Kc%,Rc%,Tc%,0,1) +�*�24:�Gd(Sa%,23,24,Mc%,Mc%,Sc%,Tc%,0,1) +�*�25:�Hd(Sa%,23,25,Mc%,Mc%,Rc%,Tc%,0,1) +�$�26:�Qb(Sa%,26):�Eb%=4�:�La(Sa%) +��27:�Qb(Sa%,27):�s`%� +�#�Rd(Ic%,Kc%,Mc%,Rc%,Sc%):ȎDc%� +�Z�1:Fc%=Ec%:Hc%=Gc%:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:Qc%=Oc%:�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd) +�Z�2:Uc%=Ec%:Vc%=Gc%:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:Zc%=Oc%:�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd) +�]�3:ac%=Ec%:bc%=Gc%:cc%=Ic%:dc%=Kc%:ec%=Mc%:fc%(0)=Oc%:�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd) +�Z�4:gc%=Ec%:hc%=Gc%:ic%=Ic%:jc%=Kc%:kc%=Mc%:lc%=Oc%:�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd) +�� +��:ȎEb%� +�$�1:ș262353,Ma%,0,-960,1280,-150 , M�4:�La(Sa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 ,� , � ,� ,�Ua%:ȎEb%� ,�2 ,�1,4:ȎGb%� ,�4,5:�Qb(Ua%,4):mc%=�mc% , -�7:qc%=1:�Pb(Ua%,7):�Rb(Ua%,8):�Rb(Ua%,9) ,$-�8:qc%=2:�Pb(Ua%,8):�Rb(Ua%,7):�Rb(Ua%,9) ,(-�9:qc%=3:�Pb(Ua%,9):�Rb(Ua%,7):�Rb(Ua%,8) ,,�11:�oc%� ,0�hb%=1:�Pb(Ua%,11):�Rb(Ua%,12):lb%=kb%:jb%=ib%:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):$b`%="Stempoff,tempon":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) ,<$�zc(Qa%,17,"Scale (�C)"):�Kb:�Jb ,@� ,B��12,13:hb%=2:�Pb(Ua%,12):�Rb(Ua%,11):yb%=kb%:xb%=ib%:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%) ,P$�zc(Qa%,17,"Scale (Wm-2)"):�oc%� ,TH�Rb(Ua%,16):yb%=�:Hc%=�:hb$="Radiative Forcing (Wm-2)":Dc$=" ":Gc%=� ,Z �:�Kb:�Jb ,^��16:Dc%=1:�Pb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):Hc%=Gc%:Fc%=Ec%:$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) ,j-�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):�oc%� ,n@�Rb(Ua%,12):yb%=�:Hc%=�:hb$=" ":Dc$="CO2 conc. (ppmv)":kb%=� ,t �:�Kb:�Jb ,x�17:�oc%� ,|�Dc%=2:�Pb(Ua%,17):�Rb(Ua%,16):�Rb(Ua%,18):�Rb(Ua%,19):Vc%=Gc%:Uc%=Ec%:$a`%="Sch4_off,ch4_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) ,�/�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb ,�� ,��18:�oc%� ,��Dc%=3:�Pb(Ua%,18):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,19):bc%=Gc%:ac%=Ec%:$a`%="Scfc_off,cfc_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) ,�/�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb ,�� ,��19:�oc%� ,��Dc%=4:�Pb(Ua%,19):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):hc%=Gc%:gc%=Ec%:$a`%="Sn2o_off,n2o_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%) ,�/�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb ,�� ,��23,24:rc%=1:ȎCd%� ,��0:ad%=157:rb%=0:pb%=Qd% ,��1:ad%=153:rb%=0:pb%=Qd% ,��2:ad%=150:rb%=0:pb%=Qd% ,��3:ad%=0:rb%=0:pb%=Qd% ,���:bd%=24:`b%=0:_b%=uc%:cd%=353:Nc%=0:Lc%=Sd%:dd%=1717:Yc%=0:Xc%=Xd%:ed%(0)=818:ed%(1)=255:ed%(2)=453:ed%(3)=110:ec%=0:dc%=Yd%:fd%=310:kc%=0:jc%=Zd%:gd%=15:hd%=4:id%=1:jd%(0)=3:jd%(1)=1:jd%(2)=1:jd%(3)=1:�Kb:�Jb ,��25,26:rc%=2:ȎCd%� ,��0:ad%=144:rb%=0:pb%=Qd% ,��1:ad%=144:rb%=0:pb%=Qd% ,��2:ad%=144:rb%=0:pb%=Qd% ,��4:ad%=0:rb%=0:pb%=Qd% ,��:bd%=0:`b%=0:_b%=uc%:cd%=280:Nc%=0:Lc%=Sd%:dd%=790:Yc%=0:Xc%=Xd%:ed%()=0:ec%=0:dc%=Yd%:fd%=285:kc%=0:jc%=Zd%:gd%=0:hd%=0:jd%()=0:id%=0:�Kb:�Jb ,���27,32:rc%=3:ad%=0:rb%=130+ad%:pb%=130+ad%+Qd%:bd%=0:`b%=bd%:_b%=bd%+uc%:cd%=0:Nc%=cd%:Lc%=cd%+Sd%:dd%=0:Yc%=dd%:Xc%=dd%+Xd%:ed%()=0:ec%=ed%(0):dc%=ed%(0)+Yd%:fd%=0:kc%=fd%:jc%=fd%+Zd%:gd%=0:hd%=0:jd%()=0:id%=0:�Kb:�Jb -�28,29:nc%=�nc%:�Qb(Ua%,28) - %�30,31:oc%=�oc%:�Qb(Ua%,30):�oc%� -�yb%=�:Hc%=�:hb%=2:kd%=1:lb%=�:Vc%=�:hc%=�:bc%=�:�Pb(Ua%,12):�Rb(Ua%,11):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_% - �h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%):$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):�Kb:Dc$=" " -,�La(Qa%) -.?�:yb%=�:Hc%=�:nc%=�:�Pb(Ua%,12):�Pb(Ua%,16):�Rb(Ua%,28):�Kb -6� -8 �:�Eb%=4� -<!ș262353,Ma%,0,-960,1280,-150 -@� -B� -H�La%:ȎEb%� -L�1,4:ȎGb%� -P�24:�Eb%=4�:�La(La%) -Tq�25:Qc%=_c%(1):Zc%=_c%(2):lc%=_c%(3):fc%(0)=_c%(4):fc%(1)=_c%(5):fc%(2)=_c%(6):fc%(3)=_c%(7):�Eb%=4�:�La(La%) -ZAw`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 -^� -`� -f�Wa%:ȎEb%� -j �1:ȎGb%� -n4�1,2,4,5,6,7:�Qb(Wa%,Gb%):�ld%>0�:�Rb(Wa%,ld%-1) -r�ld%=Gb%+1�ld%=0�ld%=Gb%+1 -t�md:�nd%�Hb$=" *"�Hb$="" -x��N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):ș262353,A`%(N%),0,-420,640,0:� -�� -� �4:ȎGb%� -���0:�Qb(Wa%,0):xd%=�:�Ib(aa%):yd%()=zd%():_d%()=`d%():Ae%()=Be%():Ce%()=De%():Ee%()=Fe%():Ge%()=He%():Ie%=Je%:Ke%()=Le%():�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%)) -�_�fb(aa%,30,Ie%):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,3+5*N%)��Rb(aa%,3+5*N%):� -��Qb(Wa%,0) -���1:�Qb(Wa%,1):�Ib(ha%):Me%()=Ne%():Oe%()=Pe%():Qe%()=Re%():Se%()=Te%():Ue%()=Ve%():We%=Xe%:Ye%()=Ze%():�N%=0�5:�ae(N%):�:�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%)) -�3�fb(ha%,26,We%):�fb(ha%,30,Ye%(We%)):�Qb(Wa%,1) -���2:�Qb(Wa%,2):�Ib(ba%):be%=ce%:de%()=ee%():fe%()=ge%():he%()=ie%():je%()=ke%():le%()=me%():�fb(ba%,23,be%):�fb(ba%,27,fe%(be%)):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�Qb(Wa%,2) -���3:�Qb(Wa%,3):�Ib(fa%):ne%()=oe%():pe%()=qe%():re%()=se%():te%()=ue%():ve%()=we%():xe%=ye%:ze%()=_e%():�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%)) -�3�fb(fa%,25,xe%):�fb(fa%,29,ze%(xe%)):�Qb(Wa%,3) -Ğ�4:�Qb(Wa%,4):�Ib(ca%):`e%()=Af%():Bf%()=Cf%():Df%=Ef%:Ff%()=Gf%():�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,12,Df%):�fb(ca%,16,Ff%(Df%)):�Qb(Wa%,4) -Ҟ�5:�Qb(Wa%,5):�Ib(ea%):Hf%()=If%():Jf%()=Kf%():Lf%=Mf%:Nf%()=Of%():�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,12,Lf%):�fb(ea%,16,Nf%(Lf%)):�Qb(Wa%,5) -��6:�Qb(Wa%,6):�Ib(ga%):Pf%()=Qf%():Rf%()=Sf%():Tf%()=Uf%():Vf%=Wf%:Xf%()=Yf%():�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,21,Vf%):�fb(ga%,25,Nf%(Vf%)):�Qb(Wa%,6) -�� -��:ȎEb%� -��1,4:ȎGb%� -�-�9,10,11,12,13,14,15:�nd%�Hb$=" *"�Hb$="" -�N�Qb(Wa%,Gb%):�Ib(A`%(Gb%-8)):�wd(A`%(Gb%-8),B`%(Gb%-8),B`$(Gb%-8,ld%)+Hb$) . *�17:�Qb(Wa%,17):�N%=1�7:�La(A`%(N%)):� .<�18,k`%:Zf%=�Zf%:X_%!0=Wa%:X_%!4=k`%:ș262350,,X_%:�Zf%� .e$c`%="Sabs_off,abs_on":k`%=�gb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%) .g�:$c`%="Sper_off,per_on":k`%=�gb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%) .� .7�8:�Qb(Wa%,8):�Ib(Ya%):af%=bf%:cf%=5:�fb(Ya%,4,af%) ."-�19:df%=�df%:�df%��Pb(Wa%,19)��Rb(Wa%,19) .(Q�20:�Qb(Wa%,20):�Ib(Za%):ef%=`c%:ff%=Ad%:gf%=10:�fb(Za%,3,ef%):�fb(Za%,8,ff%) .0-�16:hf%=�hf%:�hf%��Pb(Wa%,16)��Rb(Wa%,16) .6e�21:�Pb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23):`c%=100:Ad%=0:ef%=100:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%) .>e�22:�Pb(Wa%,22):�Rb(Wa%,21):�Rb(Wa%,23):`c%=250:Ad%=0:ef%=250:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%) .Fg�23:�Pb(Wa%,23):�Rb(Wa%,21):�Rb(Wa%,22):`c%=1000:Ad%=0:ef%=1000:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%) .N>�26:�Qb(Wa%,26):�Ib(Ma%):�Eb%=4�:�La(Wa%):�xa(H`%,2):``%=� .T��27:�Qb(Wa%,27):�Ib(ia%):if%()=jf%():kf%()=lf%():mf%()=nf%():of%=pf%:�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%)):�fb(ia%,21,of%):�N%=1�6:�if%(N%)��Pb(ia%,2*N%)��Rb(ia%,2*N%):�N% .`��28,29,30,31:�Qb(Wa%,Gb%):�qf:�rf(Gb%-28):nd%=�:�sf:�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�wf:�xf:�yf:�zf:�_f:�`f:�md .z�24:�Ag%��r`%��s`%� .~�ș263872:�Pb(Wa%,24):Ag%=�:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:nd%=�:�sf:ș263873:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:�Rb(Wa%,24):Ag%=� .�� .��25:�ld%>0�:�Rb(Wa%,ld%-1) .���Qb(Wa%,25):ld%=0:�md:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):ș262353,A`%(N%),0,-420,640,0:�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):� .��:ȎGb%� .�<�k`%,21,22,23:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�Zf%� .���od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):� .�� .��:ȎGb%� .���16,19,21,22,23,k`%:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:�(Zf%�(Gb%=21�Gb%=22�Gb%=23))�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0 .�� .�� .��Ya%:ȎEb%� .��1,4:ȎGb%� .�(�5:�Gd(Ya%,4,5,af%,af%,1995,cf%,0,1) .�(�6:�Hd(Ya%,4,6,af%,af%,2150,cf%,0,1) .��7:�Eb%=4�:�La(Ya%) .��8:�Qg:�Rg� .�<�Sg:�md:�od(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):�Eb%=4�:�La(Ya%) .�s�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0 .�� .�� .�� .��Za%:ȎEb%� .��1,4:ȎGb%� .�)�5:�Gd(Za%,3,5,ef%,ef%,-1000,gf%,0,1) .�(�6:�Hd(Za%,3,6,ef%,ef%,5000,gf%,0,1) .�+�10:�Gd(Za%,8,10,ff%,ff%,-1000,gf%,0,1) / *�11:�Hd(Za%,8,11,ff%,ff%,5000,gf%,0,1) /�13:�Eb%=4�:�La(Za%) /�14:�Zg:�ag� / ��Rb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23):�bg:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�Zf%�:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):� /�Eb%=4�:�La(Za%) /z�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:�Zf%�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0 / � /"� /$� /*�aa%:ȎEb%� /.�1,4:�Ie%>0� /2 ȎGb%� /4-�6:�Gd(aa%,5,6,yd%(Ie%),yd%(Ie%),0,1,0,1) /6/�7:�Hd(aa%,5,7,yd%(Ie%),yd%(Ie%),100,1,0,1) /80�11:�Gd(aa%,10,11,_d%(Ie%),_d%(Ie%),0,1,0,1) /:2�12:�Hd(aa%,10,12,_d%(Ie%),_d%(Ie%),100,1,0,1) /<0�16:�Gd(aa%,15,16,Ae%(Ie%),Ae%(Ie%),0,1,0,1) />2�17:�Hd(aa%,15,17,Ae%(Ie%),Ae%(Ie%),100,1,0,1) /@0�21:�Gd(aa%,20,21,Ce%(Ie%),Ce%(Ie%),0,1,0,1) /B2�22:�Hd(aa%,20,22,Ce%(Ie%),Ce%(Ie%),100,1,0,1) /D0�26:�Gd(aa%,25,26,Ee%(Ie%),Ee%(Ie%),0,1,0,1) /F2�27:�Hd(aa%,25,27,Ee%(Ie%),Ee%(Ie%),100,1,0,1) /H0�42:�Gd(aa%,41,42,Ke%(Ie%),Ke%(Ie%),1,5,0,1) /J2�43:�Hd(aa%,41,43,Ke%(Ie%),Ke%(Ie%),cg%,5,0,1) /LC�8,13,18,23:�Qb(aa%,Gb%):Ge%(Ie%,(Gb%-3)/5)=�Ge%(Ie%,(Gb%-3)/5) /R� /T�:ȎGb%� /X�31:�Ie%>0�:�xd /\�dg�Ie%=0� /^��Gd(aa%,30,31,Ie%,Ie%,0,1,0,1):�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%)):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,5*N%+3)��Rb(aa%,5*N%+3) /f� /h� /j�32:�Ie%>0�:�xd /n�dg�Ie%=0� /p��Hd(aa%,30,32,Ie%,Ie%,5,1,0,1):�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%)):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,5*N%+3)��Rb(aa%,5*N%+3) /x� /z� /|�35:�Eb%=4�:�La(aa%) /~�36,37:�Ie%>0�:�xd /� �dg� /��Gb%=37�Eb%=4�:�La(aa%) /��nd%=�:�sf:�eg(Le%()):�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�fg:�wf:�N%=0�5:�ae(N%):�:Re%()=Qe%():�fb(ha%,8,Pe%(We%)):�fb(ha%,12,Re%(We%)):ș262353,aa%,0,-344,706,0 /�� /�� /�� /��ba%:ȎEb%� /��1,4:�be%>0� /� ȎGb%� /�0�5:�Gd(ba%,3,5,de%(be%),de%(be%),-100,1,0,1) /�.�6:�Hd(ba%,3,6,de%(be%),de%(be%),10,1,0,1) /�/�10:�Gd(ba%,8,10,he%(be%),he%(be%),0,1,0,1) /�1�11:�Hd(ba%,8,11,he%(be%),he%(be%),100,1,0,1) /�0�15:�Gd(ba%,13,15,je%(be%),je%(be%),0,1,0,1) /�2�16:�Hd(ba%,13,16,je%(be%),je%(be%),100,1,0,1) /�0�20:�Gd(ba%,18,20,le%(be%),le%(be%),0,1,0,1) /�2�21:�Hd(ba%,18,21,le%(be%),le%(be%),100,1,0,1) /�0�29:�Gd(ba%,27,29,fe%(be%),fe%(be%),1,5,0,1) /�2�30:�Hd(ba%,27,30,fe%(be%),fe%(be%),cg%,5,0,1) /�� /��:ȎGb%� /��24:�be%>0�:�gg /��hg�be%=0� /̉�Gd(ba%,23,24,be%,be%,0,1,0,1):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�fb(ba%,27,fe%(be%)) /�� /��25:�be%>0�:�gg /��hg�be%=0� /ډ�Hd(ba%,23,25,be%,be%,5,1,0,1):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�fb(ba%,27,fe%(be%)) /�� /��32:�Eb%=4�:�La(ba%) /��33,34:�be%>0�:�gg /� �hg� /��Gb%=34�Eb%=4�:�La(ba%) /�6nd%=�:�sf:�eg(ge%()):�xf:ș262353,ba%,0,-300,798,0 /�� /�� /�� /��fa%:ȎEb%� 0 �1,4:�xe%>0� 0 ȎGb%� 0-�6:�Gd(fa%,4,6,ne%(xe%),ne%(xe%),0,1,0,1) 0/�7:�Hd(fa%,4,7,ne%(xe%),ne%(xe%),100,1,0,1) 0 /�11:�Gd(fa%,9,11,pe%(xe%),pe%(xe%),0,1,0,1) 01�12:�Hd(fa%,9,12,pe%(xe%),pe%(xe%),100,1,0,1) 00�16:�Gd(fa%,14,16,re%(xe%),re%(xe%),0,1,0,1) 02�17:�Hd(fa%,14,17,re%(xe%),re%(xe%),100,1,0,1) 00�22:�Gd(fa%,20,22,te%(xe%),te%(xe%),0,1,0,1) 02�23:�Hd(fa%,20,23,te%(xe%),te%(xe%),100,1,0,1) 00�31:�Gd(fa%,29,31,ze%(xe%),ze%(xe%),1,5,0,1) 02�32:�Hd(fa%,29,32,ze%(xe%),ze%(xe%),cg%,5,0,1) 01�41:�Gd(fa%,37,41,ve%(xe%),ve%(xe%),0,10,0,1) 04�42:�Hd(fa%,37,42,ve%(xe%),ve%(xe%),9990,10,0,1) 0� 0 �:ȎGb%� 0$�26:�xe%>0�:�ig 0(�jg�xe%=0� 0*��Gd(fa%,25,26,xe%,xe%,0,1,0,1):�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%)):�fb(fa%,29,ze%(xe%)) 0.� 00�27:�xe%>0�:�ig 04�jg�xe%=0� 06��Hd(fa%,25,27,xe%,xe%,5,1,0,1):�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%)):�fb(fa%,29,ze%(xe%)) 0:� 0<�34:�Eb%=4�:�La(fa%) 0>�35:�xe%>0�:�ig 0B�jg�xe%=0� 0D�Eb%=4�:�La(fa%) 0Fnd%=�:�sf:�eg(_e%()):�yf 0J� 0L� 0N� 0T�ca%:ȎEb%� 0X�1,4:�Df%>0� 0\ ȎGb%� 0^-�4:�Gd(ca%,3,4,`e%(Df%),`e%(Df%),0,1,0,1) 0`/�5:�Hd(ca%,3,5,`e%(Df%),`e%(Df%),999,1,0,1) 0b-�9:�Gd(ca%,8,9,Bf%(Df%),Bf%(Df%),0,1,0,1) 0d1�10:�Hd(ca%,8,10,Bf%(Df%),Bf%(Df%),999,1,0,1) 0f0�18:�Gd(ca%,16,18,Ff%(Df%),Ff%(Df%),1,5,0,1) 0h2�19:�Hd(ca%,16,19,Ff%(Df%),Ff%(Df%),cg%,5,0,1) 0j� 0l�:ȎGb%� 0p�13:�Df%>0�:�kg 0t�lg�Df%=0� 0v_�Gd(ca%,12,13,Df%,Df%,0,1,0,1):�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,16,Ff%(Df%)) 0z� 0|�14:�Df%>0�:�kg 0��lg�Df%=0� 0�_�Hd(ca%,12,14,Df%,Df%,5,1,0,1):�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,16,Ff%(Df%)) 0�� 0��21:�Eb%=4�:�La(ca%) 0��22:�Df%>0�:�kg 0� �lg� 0��Eb%=4�:�La(ca%) 0�nd%=�:�sf:�eg(Gf%()):�zf 0�� 0�� 0�� 0��ea%:ȎEb%� 0��1,4:�Lf%>0� 0� ȎGb%� 0�.�4:�Gd(ea%,3,4,Hf%(Lf%),Hf%(Lf%),0,50,0,1) 0�2�5:�Hd(ea%,3,5,Hf%(Lf%),Hf%(Lf%),50000,50,0,1) 0�-�9:�Gd(ea%,8,9,Jf%(Lf%),Jf%(Lf%),0,1,0,1) 0�1�10:�Hd(ea%,8,10,Jf%(Lf%),Jf%(Lf%),999,1,0,1) 0�0�18:�Gd(ea%,16,18,Nf%(Lf%),Nf%(Lf%),1,5,0,1) 0�2�19:�Hd(ea%,16,19,Nf%(Lf%),Nf%(Lf%),cg%,5,0,1) 0�� 0��:ȎGb%� 0��13:�Lf%>0�:�x` 0��mg�Lf%=0� 0�_�Gd(ea%,12,13,Lf%,Lf%,0,1,0,1):�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,16,Nf%(Lf%)) 0�� 0��14:�Lf%>0�:�x` 0��mg�Lf%=0� 0�_�Hd(ea%,12,14,Lf%,Lf%,5,1,0,1):�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,16,Nf%(Lf%)) 0�� 0��21:�Eb%=4�:�La(ea%) 0��22:�Lf%>0�:�x` 0� �mg� 0��Eb%=4�:�La(ea%) 0�nd%=�:�sf:�eg(Of%()):�_f 0�� 0�� 0�� 0��ga%:ȎEb%� 0��1,4:�Vf%>0� 0� ȎGb%� 0�-�6:�Gd(ga%,4,6,Pf%(Vf%),Pf%(Vf%),0,1,0,1) 0�/�7:�Hd(ga%,4,7,Pf%(Vf%),Pf%(Vf%),999,1,0,1) 0�0�12:�Gd(ga%,10,12,Rf%(Vf%),Rf%(Vf%),0,1,0,1) 0�2�13:�Hd(ga%,10,13,Rf%(Vf%),Rf%(Vf%),999,1,0,1) 1 0�18:�Gd(ga%,16,18,Tf%(Vf%),Tf%(Vf%),0,1,0,1) 12�19:�Hd(ga%,16,19,Tf%(Vf%),Tf%(Vf%),999,1,0,1) 10�27:�Gd(ga%,25,27,Xf%(Vf%),Xf%(Vf%),1,5,0,1) 12�28:�Hd(ga%,25,28,Xf%(Vf%),Xf%(Vf%),cg%,5,0,1) 1� 1 �:ȎGb%� 1�22:�Vf%>0�:�ng 1�og�Vf%=0� 1u�Gd(ga%,21,22,Vf%,Vf%,0,1,0,1):�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,25,Xf%(Vf%)) 1� 1�23:�Vf%>0�:�ng 1�og�Vf%=0� 1 u�Hd(ga%,21,23,Vf%,Vf%,5,1,0,1):�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,25,Xf%(Vf%)) 1$� 1&�30:�Eb%=4�:�La(ga%) 1(�31:�Vf%>0�:�ng 1,�og�Vf%=0� 1.�Eb%=4�:�La(ga%) 10nd%=�:�sf:�eg(Yf%()):�`f 14� 16� 18� 1>�ha%:ȎEb%� 1B�1,4:�We%>0� 1F ȎGb%� 1H/�4:�Gd(ha%,2,4,Me%(We%),Me%(We%),0,100,0,1) 1J4�5:�Hd(ha%,2,5,Me%(We%),Me%(We%),999900,100,0,1) 1L0�17:�Gd(ha%,15,17,Se%(We%),Se%(We%),0,1,0,1) 1N2�18:�Hd(ha%,15,18,Se%(We%),Se%(We%),100,1,0,1) 1P2�23:�Gd(ha%,21,23,Ue%(We%),Ue%(We%),0,100,0,1) 1R7�24:�Hd(ha%,21,24,Ue%(We%),Ue%(We%),999900,100,0,1) 1T0�32:�Gd(ha%,30,32,Ye%(We%),Ye%(We%),1,5,0,1) 1V2�33:�Hd(ha%,30,33,Ye%(We%),Ye%(We%),cg%,5,0,1) 1X� 1Z�:ȎGb%� 1^,�4,5,23,24:�ae(We%):�fb(ha%,12,Qe%(We%)) 1b�27:�We%>0�:�pg 1f�qg�We%=0� 1h��Gd(ha%,26,27,We%,We%,0,1,0,1):�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%)):�fb(ha%,30,Ye%(We%)) 1n� 1p�28:�We%>0�:�pg 1t�qg�We%=0� 1v��Hd(ha%,26,28,We%,We%,5,1,0,1):�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%)):�fb(ha%,30,Ye%(We%)) 1|� 1~�35:�Eb%=4�:�La(ha%) 1��36:�We%>0�:�pg 1� �qg� 1��Eb%=4�:�La(ha%) 1�nd%=�:�sf:�eg(Ze%()):�wf 1�� 1�� 1�� 1��ia%:ȎEb%� 1��1,4:ȎGb%� 1�6�2,4,6,8,10,12:if%(Gb%/2)=�if%(Gb%/2):�Qb(ia%,Gb%) 1�@�3,5,7,9,11,13:if%((Gb%-1)/2)=�if%((Gb%-1)/2):�Qb(ia%,Gb%-1) 1��:�of%>-1� 1� ȎGb%� 1�3�18:�Gd(ia%,16,18,kf%(of%),kf%(of%),-100,1,0,1) 1�1�19:�Hd(ia%,16,19,kf%(of%),kf%(of%),10,1,0,1) 1�0�27:�Gd(ia%,25,27,mf%(of%),mf%(of%),1,5,0,1) 1�2�28:�Hd(ia%,25,28,mf%(of%),mf%(of%),cg%,5,0,1) 1�� 1��:ȎGb%� 1��22:�of%>-1�:�rg 1� �sg� 1�L�Gd(ia%,21,22,of%,of%,0,1,0,1):�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%)) 1�� 1��23:�of%>-1�:�rg 1� �sg� 1�L�Hd(ia%,21,23,of%,of%,5,1,0,1):�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%)) 1�� 1��30:�Eb%=4�:�La(ia%) 1��31,32:�of%>-1�:�rg 1� �sg� 1��Eb%=4�Gb%=32�:�La(ia%) 1�Jș263872:�tg:�eg(nf%()):�(jf%(1)�jf%(2)�jf%(3)�jf%(4)�jf%(5)�jf%(6))� 1��M_:�N_:�O_:�P_:�Q_:�R_ 1�>�:�S_:�T_:ș263873:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:� 1�� 1�� 1�� 1�<�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȎEb%� 1��1,4:Ea%=Fb% 1�� 2�ja%:ȎEb%� 2�64:ȎGb%� 2)�2:T`%=&AFF:�ug(ja%,1,P`%):�vg(ja%,2) 2� 2�1,4:ȎGb%� 2�0:�Ed(ja%,1,P`%):�Fd 2� 2� 2�na%:ȎEb%� 2"�64:ȎGb%� 2&)�2:T`%=&077:�ug(na%,1,Q`%):�vg(na%,2) 2(� 2*�1,4:ȎGb%� 2.�0:�Ed(na%,1,Q`%):�Fd 20� 22� 28�la%:ȎEb%� 2<�64:ȎGb%� 2@)�2:T`%=&FFF:�ug(la%,1,S`%):�vg(la%,2) 2B� 2D�1,4:ȎGb%� 2H�0:�Ed(la%,1,S`%):�Fd 2J� 2L� 2N�:ȎEb%� 2V�2:Ea%=Fb%:ȎFb%� 2\"�-2:ș262356,,F`%,X_%!0-64,228 2`�Qa%:ȎGb%� 2d<�12:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,sb%):�xg(G`%,0,0,0) 2j� 2l�Sa%:ȎGb%� 2p<�12:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,Oc%):�xg(G`%,0,0,0) 2v� 2x�La%:ȎGb%� 2|_�4,7,10,13,16,19,22:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_c%((Gb%-1)/3)):�xg(G`%,0,0,0):yg%=Gb% 2�� 2�`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:ȎFb%� 2�K�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):�zg(I`%,0):�qa(I`%,1) 2�2�fa%,ca%,ea%,ga%,ha%,ia%:�qa(I`%,0):�zg(I`%,1) 2�"�aa%,ba%:�qa(I`%,0):�zg(I`%,1) 2�$�Ma%:�s`%��zg(I`%,0)��qa(I`%,0) 2��zg(I`%,1) 2�2�:�xg(H`%,-64,0,-1):�``%��wa(H`%,2)��xa(H`%,2) 2��da%:ȎGb%� 2�:�3:�wg%=0�3:�xa(L`%,wg%):�:�wa(L`%,Cd%):�xg(L`%,0,0,0) 2�� 2�� 2��:� 2�M��Bb:_g%=!X_%:`g%=X_%!4:ș262351,,X_%:Ah%=!X_%:Bh%=X_%!4:Eb%=X_%!8:Ȏza%� 2��-2:Ȏ_g%� 2��1:�s`%� 2�2r`%=�r`%:�Qb(Ma%,2):�r`%��xa(F`%,1)��wa(F`%,1) 2�&�Eb%=1�:ș262356,,F`%,X_%!0-64,228 2�� 2��2:U_%=�:�W_ 2�� 2��Qa%:Ȏ_g%� 2��0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(Qa%,11,_g%):sb%=_g%:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh% 2�� 2��Sa%:Ȏ_g%� 2��0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(Sa%,11,_g%):Oc%=_g%:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh% 2�� 2��La%:Ȏ_g%� 3=�0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(La%,yg%-1,_g%) 3�:Ȏyg%� 3 *�4,7,10,13,16,19,22:_c%((yg%-1)/3)=_g% 3I�:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh% 3`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:Ȏ_g%� 3�2:``%=�``%:�``%� 3�wa(H`%,2):�Ib(Wa%) 3 �:�xa(H`%,2):�La(Wa%) 3$#�:�Eb%=1�:ș262356,,H`%,Ch%,Dh% 3(� 3*�da%:Ȏ_g%� 3.�0,1,2,3:�s`%� 32�Cd%=_g%:�wg%=0�3:�xa(L`%,wg%):�:�wa(L`%,Cd%):�zc(da%,2,Bd$(Cd%)):�J_:ș262353,da%,192,-380,588,-132:ș262353,Ma%,0,-960,1280,-150 3>#�:�Eb%=1�:ș262356,,L`%,Ch%,Dh% 3B� 3D�:� 3J(��Ab(Fb%,Gb%,Eh%):�Fh%,Gh%,Hh:ȎFb%� 3X 3\�Ma%:ȎEh%� 3`8�&183:Ea%=Ma%:�Ib(ja%):ș262354,ja%,1,0,0,-1,�($P`%) 3j� 3p�Va%:ȎEh%� 3t�&18E:Wb%=0:ȎGb%� 3x=�13:�Ih(Va%,13,Yb%,ab%,cb%,db%,17,Va%,�Jh(Va%,17),1,1750) 3z2�17:�Kh(Va%,17,Yb%,ab%,cb%,db%,17,-1,4,1,1750) 3|� 3~�&18F:Wb%=0:ȎGb%� 3�2�13:�Ih(Va%,13,Yb%,ab%,cb%,db%,13,-1,4,1,1750) 3�=�17:�Kh(Va%,17,Yb%,ab%,cb%,db%,13,Va%,�Jh(Va%,13),1,1750) 3�� 3��13:�s`%� 3�-�Wb%=0�:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10) 3�r�Id(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):�t`%�:Tb%=240 3�L�:�La(Va%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 3��&1B:�La(Va%) 3�� 3��Qa%:ȎEh%� 3��&18E:ȎGb%� 3�5�14:�Ih(Qa%,14,mb%,0,25,0,19,Qa%,�Jh(Qa%,19),1,0) 3�;�19:�Ih(Qa%,19,ob%,qb%,ub%,vb%,23,Qa%,�Jh(Qa%,23),10,0) 3�1�23:�Kh(Qa%,23,ob%,qb%,ub%,vb%,23,-1,-1,10,0) 3�� 3��&18F:ȎGb%� 3�*�14:�Ih(Qa%,14,mb%,0,25,0,14,-1,2,1,0) 3�;�19:�Ih(Qa%,19,ob%,qb%,ub%,vb%,14,Qa%,�Jh(Qa%,14),10,0) 3�;�23:�Kh(Qa%,23,ob%,qb%,ub%,vb%,19,Qa%,�Jh(Qa%,19),10,0) 3�� 3��13:�s`%� 3�#�Pd(mb%,ob%,qb%,ub%,vb%):Ȏhb%� 3�B�1:nb%=mb%:pb%=ob%:rb%=qb%:�Jd:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc) 3�B�2:zb%=mb%:_b%=ob%:`b%=qb%:�Jd:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc) 3�� 3�L�:�La(Qa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 3��&1B:�Lh(Qa%) 3�� 3��Sa%:ȎEh%� 3��&18E:ȎGb%� 3�5�14:�Ih(Sa%,14,Ic%,0,25,0,19,Sa%,�Jh(Sa%,19),1,0) 3�:�19:�Ih(Sa%,19,Kc%,Mc%,Rc%,Sc%,23,Sa%,�Jh(Sa%,23),1,0) 3�0�23:�Kh(Sa%,23,Kc%,Mc%,Rc%,Sc%,23,-1,-1,1,0) 3�� 3��&18F:ȎGb%� 4 *�14:�Ih(Sa%,14,Ic%,0,25,0,14,-1,2,1,0) 4:�19:�Ih(Sa%,19,Kc%,Mc%,Rc%,Sc%,14,Sa%,�Jh(Sa%,14),1,0) 4:�23:�Kh(Sa%,23,Kc%,Mc%,Rc%,Sc%,19,Sa%,�Jh(Sa%,19),1,0) 4� 4�13:�s`%� 4#�Rd(Ic%,Kc%,Mc%,Rc%,Sc%):ȎDc%� 4B�1:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd) 4B�2:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd) 4B�3:cc%=Ic%:dc%=Kc%:ec%=Mc%:�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd) 4"B�4:ic%=Ic%:jc%=Kc%:kc%=Mc%:�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd) 4(� 4*,�:�La(Sa%):ș262353,Ma%,0,-960,1280,-150 40�&1B:�La(Sa%) 44� 4:<�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȎEh%� 4>8�&183:Ea%=Fb%:�Ib(ja%):ș262354,ja%,1,0,0,-1,�($P`%) 4H� 4N�Ya%:ȎEh%� 4R7�&18E,&18F:�Ih(Ya%,4,Ic%,1995,2150,1990,4,-1,4,1,0) 4T�13:�Qg:�Rg� 4Z��La(Ya%):�Sg:�md:�od(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:ș262353,aa%,0,-344,706,0 4h� 4j�&1B:�La(Ya%) 4l� 4r�Za%:ȎEh%� 4v�&18E:ȎGb%� 4z9�3:�Ih(Za%,3,ef%,ff%,5000,-1000,8,Za%,�Jh(Za%,8),1,0) 4|/�8:�Kh(Za%,8,ef%,ff%,5000,-1000,8,-1,1,1,0) 4~� 4��&18F:ȎGb%� 4�/�3:�Ih(Za%,3,ef%,ff%,5000,-1000,3,-1,1,1,0) 4�9�8:�Kh(Za%,8,ef%,ff%,5000,-1000,3,Za%,�Jh(Za%,3),1,0) 4�� 4��13:�Zg:�ag� 4���La(Za%):�bg:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�Zf%�:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):� 4���N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:ș262353,ba%,0,-300,798,0:�Zf%�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0 4�� 4��&1B:�La(Za%) 4�� 4��aa%:ȎEh%� 4� �&183 4��&18E:ȎGb%� 4�:�5:�Ih(aa%,5,yd%(Ie%),-1,100,0,10,aa%,�Jh(aa%,10),1,0) 4�<�10:�Ih(aa%,10,_d%(Ie%),-1,100,0,15,aa%,�Jh(aa%,15),1,0) 4�<�15:�Ih(aa%,15,Ae%(Ie%),-1,100,0,20,aa%,�Jh(aa%,20),1,0) 4�<�20:�Ih(aa%,20,Ce%(Ie%),-1,100,0,25,aa%,�Jh(aa%,25),1,0) 4�<�25:�Ih(aa%,25,Ee%(Ie%),-1,100,0,30,aa%,�Jh(aa%,30),1,0) 4�5�30:�Ih(aa%,30,Ie%,-1,5,0,41,aa%,�Jh(aa%,41),1,0) 4�b�41:�Ih(aa%,41,Ke%(Ie%),0,cg%,0,41,-1,1,1,0):�Ie%=0�:�Ih(aa%,41,Ke%(Ie%),-1,cg%,0,41,-1,1,1,0) 4�� 4��&18F:ȎGb%� 4�.�5:�Ih(aa%,5,yd%(Ie%),-1,100,0,5,-1,1,1,0) 4�:�10:�Ih(aa%,10,_d%(Ie%),-1,100,0,5,aa%,�Jh(aa%,5),1,0) 4�<�15:�Ih(aa%,15,Ae%(Ie%),-1,100,0,10,aa%,�Jh(aa%,10),1,0) 4�<�20:�Ih(aa%,20,Ce%(Ie%),-1,100,0,15,aa%,�Jh(aa%,15),1,0) 4�<�25:�Ih(aa%,25,Ee%(Ie%),-1,100,0,20,aa%,�Jh(aa%,20),1,0) 4�5�30:�Ih(aa%,30,Ie%,-1,5,0,25,aa%,�Jh(aa%,25),1,0) 4�x�41:�Ih(aa%,41,Ke%(Ie%),0,cg%,0,30,aa%,�Jh(aa%,30),1,0):�Ie%=0�:�Ih(aa%,41,Ke%(Ie%),-1,cg%,0,30,aa%,�Jh(aa%,30),1,0) 4�� 4��13:�Ie%>0�:�xd 4� �dg� 4�j�La(aa%):nd%=�:�sf:�eg(Le%()):�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):ș262353,aa%,0,-344,706,0 4�� 4��&1B:�La(aa%) 5 � 5�ha%:ȎEh%� 5 �&18E:ȎGb%� 5=�2:�Ih(ha%,2,Me%(We%),-1,999900,0,15,ha%,�Jh(ha%,15),1,0) 5<�15:�Ih(ha%,15,Se%(We%),-1,100,0,21,ha%,�Jh(ha%,21),1,0) 5?�21:�Ih(ha%,21,Ue%(We%),-1,999900,0,26,ha%,�Jh(ha%,26),1,0) 55�26:�Ih(ha%,26,We%,-1,5,0,30,ha%,�Jh(ha%,30),1,0) 5b�30:�Ih(ha%,30,Ye%(We%),0,cg%,0,30,-1,1,1,0):�We%=0�:�Ih(ha%,30,Ye%(We%),-1,cg%,0,30,-1,1,1,0) 5� 5�&18F:ȎGb%� 5 1�2:�Ih(ha%,2,Me%(We%),-1,999900,0,2,-1,1,1,0) 5":�15:�Ih(ha%,15,Se%(We%),-1,100,0,2,ha%,�Jh(ha%,2),1,0) 5$?�21:�Ih(ha%,21,Ue%(We%),-1,999900,0,15,ha%,�Jh(ha%,15),1,0) 5&5�26:�Ih(ha%,26,We%,-1,5,0,21,ha%,�Jh(ha%,21),1,0) 5(x�30:�Ih(ha%,30,Ye%(We%),0,cg%,0,26,ha%,�Jh(ha%,26),1,0):�We%=0�:�Ih(ha%,30,Ye%(We%),-1,cg%,0,26,ha%,�Jh(ha%,26),1,0) 5,� 5.�13:�We%>0�:�pg 52 �qg� 54L�La(ha%):nd%=�:�sf:�N%=0�5:�ae(N%):�:�fb(ha%,12,Qe%(We%)):�eg(Ze%()):�wf 5>� 5@�&1B:�La(ha%) 5B� 5H�ba%:ȎEh%� 5L �&183 5V�&18E:ȎGb%� 5Z<�3:�Ih(ba%,3,de%(be%),-101,10,-100,8,ba%,�Jh(ba%,8),1,0) 5\:�8:�Ih(ba%,8,he%(be%),-1,100,0,13,ba%,�Jh(ba%,13),1,0) 5^<�13:�Ih(ba%,13,je%(be%),-1,100,0,18,ba%,�Jh(ba%,18),1,0) 5`;�18:�Ih(ba%,18,le%(be%),-1,100,0,23,ba%,�Jh(ba%,8),1,0) 5b5�23:�Ih(ba%,23,be%,-1,5,0,27,ba%,�Jh(ba%,23),1,0) 5dl�27:�Ih(ba%,27,fe%(be%),0,cg%,0,27,-1,�Jh(ba%,27),1,0):�be%=0�:�Ih(ba%,27,fe%(be%),-1,cg%,0,27,-1,1,1,0) 5h� 5j�&18F:ȎGb%� 5n2�3:�Ih(ba%,3,de%(be%),-101,10,-100,3,-1,1,1,0) 5p8�8:�Ih(ba%,8,he%(be%),-1,100,0,3,ba%,�Jh(ba%,3),1,0) 5r:�13:�Ih(ba%,13,je%(be%),-1,100,0,8,ba%,�Jh(ba%,8),1,0) 5t<�18:�Ih(ba%,18,le%(be%),-1,100,0,13,ba%,�Jh(ba%,13),1,0) 5v5�23:�Ih(ba%,23,be%,-1,5,0,18,ba%,�Jh(ba%,18),1,0) 5xx�27:�Ih(ba%,27,fe%(be%),0,cg%,0,23,ba%,�Jh(ba%,23),1,0):�be%=0�:�Ih(ba%,27,fe%(be%),-1,cg%,0,23,ba%,�Jh(ba%,23),1,0) 5|� 5~�13:�be%>0�:�gg 5� �hg� 5�?�La(ba%):nd%=�:�sf:�eg(ge%()):�xf:ș262353,ba%,0,-300,798,0 5�� 5��&1B:�La(ba%) 5�� 5��fa%:ȎEh%� 5��&18E:ȎGb%� 5�8�4:�Ih(fa%,4,ne%(xe%),-1,100,0,9,fa%,�Jh(fa%,9),1,0) 5�:�9:�Ih(fa%,9,pe%(xe%),-1,100,0,14,fa%,�Jh(fa%,14),1,0) 5�<�14:�Ih(fa%,14,re%(xe%),-1,100,0,20,fa%,�Jh(fa%,20),1,0) 5�<�20:�Ih(fa%,20,te%(xe%),-1,100,0,37,fa%,�Jh(fa%,37),1,0) 5�=�37:�Ih(fa%,37,ve%(xe%),-1,9990,0,25,fa%,�Jh(fa%,25),1,0) 5�5�25:�Ih(fa%,25,xe%,-1,5,0,29,fa%,�Jh(fa%,29),1,0) 5�b�29:�Ih(fa%,29,ze%(xe%),0,cg%,0,29,-1,1,1,0):�xe%=0�:�Ih(fa%,29,ze%(xe%),-1,cg%,0,29,-1,1,1,0) 5�� 5��&18F:ȎGb%� 5�.�4:�Ih(fa%,4,ne%(xe%),-1,100,0,4,-1,1,1,0) 5�8�9:�Ih(fa%,9,pe%(xe%),-1,100,0,4,fa%,�Jh(fa%,4),1,0) 5�:�14:�Ih(fa%,14,re%(xe%),-1,100,0,9,fa%,�Jh(fa%,9),1,0) 5�<�20:�Ih(fa%,20,te%(xe%),-1,100,0,14,fa%,�Jh(fa%,14),1,0) 5�=�37:�Ih(fa%,37,ve%(xe%),-1,9990,0,20,fa%,�Jh(fa%,20),1,0) 5�5�25:�Ih(fa%,25,xe%,-1,5,0,37,fa%,�Jh(fa%,37),1,0) 5�x�29:�Ih(fa%,29,ze%(xe%),0,cg%,0,25,fa%,�Jh(fa%,25),1,0):�xe%=0�:�Ih(fa%,29,ze%(xe%),-1,cg%,0,25,fa%,�Jh(fa%,25),1,0) 5�� 5��13:�xe%>0�:�ig 5��jg�xe%=0� 5�%�La(fa%):nd%=�:�sf:�eg(_e%()):�yf 5�� 5��&1B:�La(fa%) 5�� 5��ca%:ȎEh%� 5��&18E:ȎGb%� 5�8�3:�Ih(ca%,3,`e%(Df%),-1,100,0,8,ca%,�Jh(ca%,8),1,0) 5�:�8:�Ih(ca%,8,Bf%(Df%),-1,100,0,12,ca%,�Jh(ca%,12),1,0) 5�5�12:�Ih(ca%,12,Df%,-1,5,0,16,ca%,�Jh(ca%,16),1,0) 5�b�16:�Ih(ca%,16,Ff%(Df%),0,cg%,0,16,-1,1,1,0):�Df%=0�:�Ih(ca%,16,Ff%(Df%),-1,cg%,0,16,-1,1,1,0) 5�� 5��&18F:ȎGb%� 5�.�3:�Ih(ca%,3,`e%(Df%),-1,100,0,3,-1,1,1,0) 5�8�8:�Ih(ca%,8,Bf%(Df%),-1,100,0,3,ca%,�Jh(ca%,3),1,0) 5�3�12:�Ih(ca%,12,Df%,-1,5,0,8,ca%,�Jh(ca%,8),1,0) 5�x�16:�Ih(ca%,16,Ff%(Df%),0,cg%,0,12,ca%,�Jh(ca%,12),1,0):�Df%=0�:�Ih(ca%,16,Ff%(Df%),-1,cg%,0,12,ca%,�Jh(ca%,12),1,0) 5�� 6 �13:�Df%>0�:�kg 6 �lg� 6%�La(ca%):nd%=�:�sf:�eg(Gf%()):�zf 6� 6�&1B:�La(ca%) 6� 6�ea%:ȎEh%� 6�&18E:ȎGb%� 6:�3:�Ih(ea%,3,Hf%(Lf%),-1,50000,0,8,ea%,�Jh(ea%,8),1,0) 6 <�8:�Ih(ea%,8,Jf%(Lf%),-1,50000,0,12,ea%,�Jh(ea%,12),1,0) 6"5�12:�Ih(ea%,12,Lf%,-1,5,0,16,ea%,�Jh(ea%,16),1,0) 6$b�16:�Ih(ea%,16,Nf%(Lf%),0,cg%,0,16,-1,1,1,0):�Lf%=0�:�Ih(ea%,16,Nf%(Lf%),-1,cg%,0,16,-1,1,1,0) 6(� 6*�&18F:ȎGb%� 6.0�3:�Ih(ea%,3,Hf%(Lf%),-1,50000,0,3,-1,1,1,0) 60:�8:�Ih(ea%,8,Jf%(Lf%),-1,50000,0,3,ea%,�Jh(ea%,3),1,0) 623�12:�Ih(ea%,12,Lf%,-1,5,0,8,ea%,�Jh(ea%,8),1,0) 64x�16:�Ih(ea%,16,Nf%(Lf%),0,cg%,0,12,ea%,�Jh(ea%,12),1,0):�Lf%=0�:�Ih(ea%,16,Nf%(Lf%),-1,cg%,0,12,ea%,�Jh(ea%,12),1,0) 68� 6:�13:�Lf%>0�:�x` 6> �mg� 6@%�La(ea%):nd%=�:�sf:�eg(Of%()):�_f 6F� 6H�&18B:�La(ea%) 6J� 6P�ga%:ȎEh%� 6T�&18E:ȎGb%� 6X:�4:�Ih(ga%,4,Pf%(Vf%),-1,999,0,10,ga%,�Jh(ga%,10),1,0) 6Z<�10:�Ih(ga%,10,Rf%(Vf%),-1,999,0,16,ga%,�Jh(ga%,16),1,0) 6\<�16:�Ih(ga%,16,Tf%(Vf%),-1,999,0,21,ga%,�Jh(ga%,21),1,0) 6^5�21:�Ih(ga%,21,Vf%,-1,5,0,25,ga%,�Jh(ga%,25),1,0) 6`b�25:�Ih(ga%,25,Xf%(Vf%),0,cg%,0,25,-1,1,1,0):�Vf%=0�:�Ih(ga%,25,Xf%(Vf%),-1,cg%,0,25,-1,1,1,0) 6d� 6f�&18F:ȎGb%� 6j.�4:�Ih(ga%,4,Pf%(Vf%),-1,999,0,4,-1,1,1,0) 6l:�10:�Ih(ga%,10,Rf%(Vf%),-1,999,0,4,ga%,�Jh(ga%,4),1,0) 6n<�16:�Ih(ga%,16,Tf%(Vf%),-1,999,0,10,ga%,�Jh(ga%,10),1,0) 6p5�21:�Ih(ga%,21,Vf%,-1,5,0,16,ga%,�Jh(ga%,16),1,0) 6rx�25:�Ih(ga%,25,Xf%(Vf%),0,cg%,0,21,ga%,�Jh(ga%,21),1,0):�Vf%=0�:�Ih(ga%,25,Xf%(Vf%),-1,cg%,0,21,ga%,�Jh(ga%,21),1,0) 6v� 6x�13:�Vf%>0�:�ng 6|�og�Vf%=0� 6~%�La(ga%):nd%=�:�sf:�eg(Yf%()):�`f 6�� 6��&18E:�La(ga%) 6�� 6��ia%:ȎEh%� 6��&18E:ȎGb%� 6�@�16:�Ih(ia%,16,kf%(of%),-101,10,-100,21,ia%,�Jh(ia%,21),1,0) 6�5�21:�Ih(ia%,21,of%,-1,5,0,25,ia%,�Jh(ia%,25),1,0) 6�b�25:�Ih(ia%,25,mf%(of%),0,cg%,0,25,-1,1,1,0):�of%=0�:�Ih(ia%,25,mf%(of%),-1,cg%,0,25,-1,1,1,0) 6�� 6��&18F:ȎGb%� 6�5�16:�Ih(ia%,16,kf%(of%),-101,10,-100,16,-1,1,1,0) 6�5�21:�Ih(ia%,21,of%,-1,5,0,16,ia%,�Jh(ia%,16),1,0) 6�x�25:�Ih(ia%,25,mf%(of%),0,cg%,0,21,ia%,�Jh(ia%,21),1,0):�of%=0�:�Ih(ia%,25,mf%(of%),-1,cg%,0,21,ia%,�Jh(ia%,21),1,0) 6�� 6��13:�of%>-1�:�rg 6� �sg� 6��La(ia%):�tg:�eg(nf%()) 6�� 6��&18E:�La(ia%) 6�� 6��ja%:ȎEh%� 6��13:ȎGb%� 6��1:�Ed(ja%,1,P`%):�Fd 6�� 6�� 6��la%:ȎEh%� 6��13:ȎGb%� 6��1:�Ed(la%,1,S`%):�Fd 6�� 6�� 6��na%:ȎEh%� 6��13:ȎGb%� 6��1:�Ed(na%,1,Q`%):�Fd 6�� 6�� 6��:� 6���ya:ȎX_%!0� 7(�ja%:ș262354,X_%!0,1,0,0,-1,�($P`%) 7(�la%:ș262354,X_%!0,1,0,0,-1,�($S`%) 7(�na%:ș262354,X_%!0,1,0,0,-1,�($Q`%) 7�:� 7G��W_:ș262362:ș263873:ș262377,36,,N`%,&1,0,0,0,0:�Mh:ș262365:�:� 7 ��Ba:ș262351,,X_%:ȎX_%!12� 7(�Qa%,Sa%:ȎX_%!16� 7,1�12:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2 70/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1 74� 76�La%:ȎX_%!16� 7:A�4,7,10,13,16,19,22:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2 7>/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1 7B� 7D�da%:ȎX_%!16� 7H0�3:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2 7L/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1 7P� 7R�:� 7X;��Ha(Nh$):!X_%=255:$(X_%+4)=Nh$+�0:ș262367,X_%,1,Ga$:� 7b9��Db(Nh$,Oh%):E`$=Ga$:�Oh%�16�E`$="Message from "+E`$ 7h8!X_%=255:$(X_%+4)=Nh$+�0:ș262367,X_%,Oh%,E`$�,Ph%:� 7p��Cb(X_%):ȎX_%!16� 7t�0:U_%=� 7v �2:ȎT`%� 7z:�&FFF:$S`%=�Hb(X_%+44):�La(la%):�Qh:�Rh(la%,2,S`%,ma%) 7�:�&AFF:$P`%=�Hb(X_%+44):�La(ja%):�Sh:�Rh(ja%,2,P`%,ka%) 7�:�&077:$Q`%=�Hb(X_%+44):�La(na%):�Th:�Rh(na%,2,Q`%,oa%) 7��:�Ea%=Ma%� 7�Aw`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150 7�� 7��3:T`%=X_%!40:ȎT`%� 7�w�&077:$R`%=�Hb(X_%+44):�Uh:�qf:nd%=�:�sf:�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�wf:�xf:�yf:�zf:�_f:�`f:�md 7�� 7��&502:�Vh(�Wh,X_%!8,X_%!4) 7�B�&400C1:X_%!0=Ma%:ș262339,,X_%:�Mh:�G_:ș46,256+9,Na%:�B_:�D_ 7��:� 7� ��Vh(Xh$,Yh%,Zh%):�(Xh$)>0� 7�IX_%!0=256:X_%!12=Yh%:X_%!16=&503:$(X_%+20)=Xh$+�0:ș262375,17,X_%,Zh% 7��:� 7�X��F_(E`$):ș267520,,E`$:ș30,6,,,17+�(E`$)�,,ah%:$(ah%+16)=E`$:ș267521,ah%,ah%+16:� 7�[��_`:�bh%,ch%:dh%=!X_%:eh%=X_%!8:fh%=X_%!4:gh%=X_%!12:�eh%<dh%�:ch%=eh%:eh%=dh%:dh%=ch% 7�%�gh%<fh%�:ch%=gh%:gh%=fh%:fh%=ch% 7�f�((eh%-dh%)/1000)*(Yb%-ab%)<10�((gh%-fh%)/500)*(ob%-qb%)<0.1�((gh%-fh%)/500)*(Kc%-Mc%)<15�:_`%=�:� 7�Xb%=0:bb%=bb%+Kd%*(dh%-Nb%-140)/1000:Zb%=Zb%+Kd%*(eh%-Nb%-1140)/1000:Yb%=Zb%:ab%=bb%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):ș262353,Ma%,0,-960,1280,-150:Ȏhb%� 8/�1:�hh(pb%,rb%,Qd%,ob%,qb%):pb%=ob%:rb%=qb% 8/�2:�hh(_b%,`b%,uc%,ob%,qb%):_b%=ob%:`b%=qb% 8�:ȎDc%� 8/�1:�hh(Lc%,Nc%,Sd%,Kc%,Mc%):Lc%=Kc%:Nc%=Mc% 8/�2:�hh(Xc%,Yc%,Xd%,Kc%,Mc%):Xc%=Kc%:Yc%=Mc% 8/�3:�hh(jc%,kc%,Zd%,Kc%,Mc%):jc%=Kc%:kc%=Mc% 8/�4:�hh(dc%,ec%,Yd%,Kc%,Mc%):dc%=Kc%:ec%=Mc% 8 ��:�Jd:�tc(ob%,qb%,ob%-qb%,vc%,wc%,xc%,yc):�tc(Kc%,Mc%,Kc%-Mc%,Td%,Ud%,Vd%,Wd):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750):�Bc(Qa%,19,ob%):�Bc(Qa%,23,qb%):�fb(Sa%,19,Kc%):�fb(Sa%,23,Mc%):_`%=�:� 84Z��hh(ih%,jh%,r%,�Hh%,�Gh%):Gh%=jh%+r%*(fh%-Ob%+700)/500:Hh%=ih%+r%*(gh%-Ob%+200)/500:� 8>"��sf:�Hb$:�nd%�Hb$=" *"�Hb$="" 8Dk�wd(Ma%,Oa%,"CO2effect Global Warming Simulation"+Hb$):�N%=1�7:�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):�:� 8RJ��A_:kh%=�"<CO2effect$Dir>.Sprites22":lh%=�#kh%+4:�#kh%:�Na% lh%+256:� 8d��B_:ș53,-1,5�,,mh%:Ȏmh%� 8n%�2:kh%=�"<CO2effect$Dir>.Sprites" 8p'�1:kh%=�"<CO2effect$Dir>.Sprites22" 8r1�:!Na%=lh%+256:Na%!8=16:ș46,256+9,Na%:Ȏmh%� 8z0�2:ș46,256+10,Na%,"<CO2effect$Dir>.Sprites" 8|2�1:ș46,256+10,Na%,"<CO2effect$Dir>.Sprites22" 8~�:� 8����G_:ș262273,,"Trinity.Medium",10*16,10*16�nh%:ș262273,,"Trinity.Medium",12*16,12*16�oh%:ș262273,,"Trinity.Medium",14*16,14*16�ph%:ș262273,,"Trinity.Medium",16*16,16*16�qh%:!C`%=0:C`%!4=65536:C`%!8=-65536:C`%!12=0 8�C`%!16=0:C`%!20=0:� 8�w��Mh:ș262274,nh%:ș262274,oh%:ș262274,ph%:ș262274,qh%:�N%=0�255:rh%=?(D`%+N%):ȕrh%>0:ș262274,N%:rh%-=1:�:�N%:� 8�I��va(sh%):ș262344,,X_%�th%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:Ȏsh%� 8�_�Ma%:ȕth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:�y`%�:uh%=Nb%+140:vh%=Nb%+1140 8�+�u`%�w`%�:�yh(Nb%,Ob%,uh%,vh%,wh%,xh%) 8��x`%�:�zh(Nb%,Ob%) 8�#ș262346,,X_%�th%:�:w`%=�:x`%=� 8�`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȕth%:�_h(Nb%,Ob%,sh%):ș262346,,X_%�th%:� 8�g�aa%:ȕth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:�xh%>Ob%-340�xd%�:�`h(Nb%,Ob%,uh%,wh%) 8�ș262346,,X_%�th%:�:xd%=� 8�/�ba%:ȕth%:�Ai(Nb%,Ob%):ș262346,,X_%�th%:� 8�/�da%:ȕth%:�Bi(Nb%,Ob%):ș262346,,X_%�th%:� 9 �:y`%=�:� 9e��Bi(Nb%,Ob%):�Ci%:ș262282,ph%:�Ci%=0�3:ș262278,,Di$(Ci%,Cd%),%10000,Nb%+220,Ob%-180-50*Ci%:�:� 9$���zh(Nb%,Ob%):�Ei%,Fi%:ș262374,1:ȓȐNb%,Ob%-960,140,800:ȓȐNb%+1140,Ob%-960,140,800:ȓȐNb%+140,Ob%-960,1000,100:ȓȐNb%+140,Ob%-200,1000,200:ș262374,7:ș262387,,1,7:ȓȐNb%+139,Ob%-701,1002,2:ȓȐNb%+139,Ob%-701,2,502 9H�ȓȐNb%+1140,Ob%-701,2,502:ȓȐNb%+139,Ob%-200,1002,2:ș262282,qh%:ș262278,,"Year",%10000,Nb%+590,Ob%-780:�Fa%=&A3�Fa%=&A4� 9Vyș262282,ph%:ș262281,,Nb%+40,Ob%-625�,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:�kb%�:ș262278,,hb$,%01001000000,Ah%,Bh%,,C`% 9^nș262281,,Nb%+1240,Ob%-320�,Ah%,Bh%:C`%!4=-65536:C`%!8=65536:�Gc%�:ș262278,,Dc$,%01001000000,Ah%,Bh%,,C`% 9d0�:ș262282,oh%:�Gi(bb%,Vb%,Hi):�(oc%��yb%)� 9v Ȏhb%� 9xR�1:�lb%�:�Ii(Nb%,Ob%,rb%,140,-700,1000,500,nb,wc%,xc%,yc,jb%,10,-100,-7,2,0,0) 9|R�2:�yb%�:�Ii(Nb%,Ob%,`b%,140,-700,1000,500,zb,wc%,xc%,yc,xb%,10,-100,-7,2,0,0) 9�� 9��:�(oc%��Hc%)� 9� ȎDc%� 9�R�1:�Hc%�:�Ii(Nb%,Ob%,Nc%,1140,-700,-1000,500,Jc,Ud%,Vd%,Wd,Fc%,1,13,-7,1,0,-1) 9�S�2:�Vc%�:�Ii(Nb%,Ob%,Yc%,1140,-700,-1000,500,Wc,Ud%,Vd%,Wd,Uc%,1,13,-7,2,-1,-1) 9�U�3,5:�bc%�:�Ii(Nb%,Ob%,ec%,1140,-700,-1000,500,cc,Ud%,Vd%,Wd,ac%,1,13,-7,2,-1,-1) 9�S�4:�hc%�:�Ii(Nb%,Ob%,kc%,1140,-700,-1000,500,ic,Ud%,Vd%,Wd,gc%,1,13,-7,2,-1,-1) 9�� 9��:Fi%=0:�oc%� 9� Ȏhb%� 9�6�1:�lb%�:�Ji(Nb%,Ob%,Fi%,tb%,"Temperature"):Fi%+=3 9�<�2:�yb%�:�Ji(Nb%,Ob%,Fi%,Ac%,"Radiative forcing"):Fi%+=3 9��:ȎDc%� 9�<�1:�Hc%�:�Ji(Nb%,Ob%,Fi%,Qc%,"CO2 concentration"):Fi%+=1 9�<�2:�Vc%�:�Ji(Nb%,Ob%,Fi%,Zc%,"CH4 concentration"):Fi%+=1 9�<�4:�hc%�:�Ji(Nb%,Ob%,Fi%,lc%,"N2O concentration"):Fi%+=1 9��3:�bc%� 9� �nc%� 9�7�Ji(Nb%,Ob%,Fi%,fc%(0),"CFCs concentration"):Fi%+=1 9¨�:�Ji(Nb%,Ob%,Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1 9�� 9�� 9�� 9�r�:�Ji(Nb%,Ob%,Fi%,Qc%,"CO2"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,Zc%,"CH4"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,lc%,"N2O"):Fi%+=1:�nc%� 9�)�Ji(Nb%,Ob%,Fi%,fc%(0),"CFCs"):Fi%+=1 9�~�:�Ji(Nb%,Ob%,Fi%,fc%(1),"CFC-11"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(2),"CFC-12"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(3),"HCFC-22"):Fi%+=1 9�� 9��:� 9����Gi(jh%,Ki%,Li):�Hb$:�23,6,&33,0,0,0,0,0,0,0:�X%=0�Nd%:Hb$=��(1750+bb%+Md%+Od*X%+0.001),4):ș262278,,Hb$,%10000,Nb%+140-30+1000*Li*(Md%+Od*X%),Ob%-740:�Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-715 9�[�Vb%�:�&04,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700:�&15,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-200 9��:� :���Ji(Nb%,Ob%,n%,c%,Hb$):�Mi%,Ni%,x%,y%:Mi%=n%�3:Ni%=�(n%/3):x%=140+Ni%*400:y%=-850-Mi%*40:ș262374,7:ȓȐNb%+x%,Ob%+y%,20,20:ș262374,c%:ȓȐNb%+x%+2,Ob%+y%+2,16,16:ș262282,ph%:ș262278,,Hb$,%10000,Nb%+x%+40,Ob%+y%:� : ^��yh(Nb%,Ob%,uh%,vh%,wh%,xh%):�x%,y%,s,e,Oi%,Pi%:�uh%>Nb%+140+Tb%*(1000*Hi)�vh%<Nb%+140�:� :,�uh%<=Nb%+140�uh%=Nb%+140 :.F�vh%>=Nb%+140+(Tb%-bb%)*(1000*Hi)�:vh%=Nb%+141+(Tb%-bb%)*(1000*Hi) :0�wh%>Ob%-200�xh%<Ob%-700�:� :2 �oc%� :6�hb%=1�lb%� :8��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*nb*(t(N%)-273-(rb%+ad%)/10):�N%=bb%�:Oi%=y% :@(�Qi(tb%,x%,y%,Oi%,nb%,y%):Oi%=y%:�N% :F�:�hb%=2�yb%� :J��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*zb*(Ri(N%)-(`b%+bd%)/10):�N%=bb%�:Oi%=y% :R(�Qi(Ac%,x%,y%,Oi%,zb%,y%):Oi%=y%:�N% :X�:�Dc%=1�Hc%� :\��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Jc*(Si(N%)-(Nc%+cd%)):�N%=bb%�:Pi%=y% :d(�Qi(Qc%,x%,y%,Pi%,Jc%,y%):Pi%=y%:�N% :j�:�Dc%=2�Vc%� :n��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Wc*(Ti(N%)-(Yc%+dd%)):�N%=bb%�:Pi%=y% :v(�Qi(Zc%,x%,y%,Pi%,Wc%,y%):Pi%=y%:�N% :|�:�Dc%=3�bc%� :� �nc%� :���N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,0)-(ec%+ed%(0))):�N%=bb%�:Pi%=y% :�+�Qi(fc%(0),x%,y%,Pi%,cc%,y%):Pi%=y%:�N% :���:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,1)-(ec%+ed%(1))):�N%=bb%�:Vi%=y% :���Qi(fc%(1),x%,y%,Vi%,cc%,y%):Vi%=y%:�N%:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,2)-(ec%+ed%(2))):�N%=bb%�:Wi%=y% :���Qi(fc%(2),x%,y%,Wi%,cc%,y%):Wi%=y%:�N%:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,3)-(ec%+ed%(3))):�N%=bb%�:Xi%=y% :�+�Qi(fc%(3),x%,y%,Xi%,cc%,y%):Xi%=y%:�N% :�� :��:�Dc%=4�hc%� :�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*ic*(Yi(N%)-(kc%+fd%)):�N%=bb%�:Pi%=y% :�(�Qi(lc%,x%,y%,Pi%,ic%,y%):Pi%=y%:�N% :�� :��:�yb%��Hc%� :��Zi%=zb%:y%=Ob%-700:s=500*zb:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*10*ai(N%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(N%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(N%):e%(3)=e%(2)+s*id% :��y%(4)=y%(3)+s*10*di(N%,0):e%(4)=e%(3)+s*jd%(0):y%(5)=y%(3)+s*10*di(N%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(N%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(N%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%() :��N%=bb%�:ei%()=y%() :�;�fi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():� :��:�Hc%��yb%� :��Zi%=Jc%:y%=Ob%-700:s=500*Jc:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*Si(N%):e%(1)=0:y%(2)=y%(1)+s*(277*�(bi(N%)/6.3)-277):e%(2)=e%(1)+s*(277*�(hd%/63)-277) ;�y%(3)=y%(2)+s*(277*�(ci(N%)/6.3)-277):e%(3)=e%(2)+s*(277*�(id%/63)-277):y%(4)=y%(3)+s*(277*�(di(N%,0)/6.3)-277):e%(4)=e%(3)+s*(277*�(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*�(di(N%,1)/6.3)-277):e%(5)=e%(3)+s*(277*�(jd%(1)/63)-277) ;�y%(6)=y%(5)+s*(277*�(di(N%,2)/6.3)-277):e%(6)=e%(5)+s*(277*�(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*�(di(N%,3)/6.3)-277):e%(7)=e%(6)+s*(277*�(jd%(3)/63)-277):e%()+=s*(Nc%+cd%):y%()=y%()-e%():�N%=bb%�:ei%()=y%() ;;�fi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():� ;� ;�:� ;$��ta:�Sb%>240� ;F��N%=Sb%�400:Si(N%)=Si(N%)+(353.93/750)*gi(Sb%-240,0)*(0.3+0.001*(200-(N%-Sb%))+0.5*�(-(N%-Sb%)/(25-15*�(-(N%-Sb%)/20)))):Ti(N%)=Ti(N%)+(1717/4900)*(hi(Sb%-240,0)+155)*�(-(N%-Sb%)/10.5) ;L�Ui(N%,1)=Ui(N%,1)+(255/6254)*ii(Sb%-240,1,0)*�(-(N%-Sb%)/55):Ui(N%,2)=Ui(N%,2)+(453/9777)*ii(Sb%-240,2,0)*�(-(N%-Sb%)/116):Ui(N%,3)=Ui(N%,3)+(110/1344)*ii(Sb%-240,3,0)*�(-(N%-Sb%)/15.8):Ui(N%,0)=Ui(N%,1)+Ui(N%,2)+Ui(N%,3) ;TBYi(N%)=Yi(N%)+(309.68/1500)*ji(Sb%-240,0)*�(-(N%-Sb%)/132):�N% ;X��:ai(Sb%)=6.3*�(Si(Sb%)/277):bi(Sb%)=0.036*(�(Ti(Sb%))-�(790)):di(Sb%,1)=0.22*Ui(Sb%,1)/1000:di(Sb%,2)=0.28*Ui(Sb%,2)/1000:di(Sb%,3)=0.189*Ui(Sb%,3)/1000:di(Sb%,0)=di(Sb%,1)+di(Sb%,2)+di(Sb%,3) ;lXci(Sb%)=0.14*(�(Yi(Sb%))-�(285.00)):Ri(Sb%)=ai(Sb%)+bi(Sb%)+di(Sb%,0)+ci(Sb%):ȎCd%� ;v�0:t(Sb%)=�ki(Ri(Sb%)) ;x�1:t(Sb%)=�li(Ri(Sb%)) ;z�2:t(Sb%)=�mi(Ri(Sb%)) ;|�3:t(Sb%)=�ni(Ri(Sb%)) ;~�:Tb%=Sb%:�u`%��oi ;��Jb:�Sb%=Zb%� ;�Sr`%=�:s`%=�:�Rb(Ma%,1):�Rb(Ma%,2):Sb%=240:w`%=�:ș262353,Ma%,0,-960,1280,-150:� ;��:Sb%+=1:� ;�[��oi:�y%,s,e%,Li,pi%:Li=1000*Hi:pi%=1:�nb%>Li�zb%>Li�Jc%>Li�Wc%>Li�ic%>Li�cc%>Li�:pi%=2 ;��!X_%=Ma%:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=140+Li*(Sb%-bb%-pi%):X_%!12=140+Li*(Sb%-bb%+pi%):X_%!8=-700:X_%!16=-200:ș262345,,X_%�th%:ȕth%:�oc%� ;� Ȏhb%� ;�=�1:y%=Ob%-700+5000*nb*(t(Sb%)-273-(rb%+ad%)/10):�Sb%=240� ;� Oi%=y% ;�>�:�lb%�:�Qi(tb%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,nb%,y%) ;� Oi%=y% ;�� ;�:�2:y%=Ob%-700+5000*zb*(Ri(Sb%)-(`b%+bd%)/10):�Sb%=240� ;� Oi%=y% ;�>�:�yb%�:�Qi(Ac%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,zb%,y%) ;� Oi%=y% ;�� ;��:ȎDc%� ;�6�1:y%=Ob%-700+500*Jc*(Si(Sb%)-(Nc%+cd%)):�Sb%=240� ;� Pi%=y% ;�>�:�Hc%�:�Qi(Qc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Jc%,y%) ;� Pi%=y% ;�� ;�6�2:y%=Ob%-700+500*Wc*(Ti(Sb%)-(Yc%+dd%)):�Sb%=240� < Pi%=y% <>�:�Vc%�:�Qi(Zc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Wc%,y%) < Pi%=y% < � < �3:�nc%� <8y%=Ob%-700+500*cc*(Ui(Sb%,0)-(ec%+ed%(0))):�Sb%=240� < Pi%=y% <A�:�bc%�:�Qi(fc%(0),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,cc%,y%) < Pi%=y% <� <:�:y%=Ob%-700+500*cc*(Ui(Sb%,1)-(ec%+ed%(1))):�Sb%=240� <$ Vi%=y% <&A�:�bc%�:�Qi(fc%(1),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Vi%,cc%,y%) <* Vi%=y% <,:�:y%=Ob%-700+500*cc*(Ui(Sb%,2)-(ec%+ed%(2))):�Sb%=240� <2 Wi%=y% <4A�:�bc%�:�Qi(fc%(2),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Wi%,cc%,y%) <8 Wi%=y% <::�:y%=Ob%-700+500*cc*(Ui(Sb%,3)-(ec%+ed%(3))):�Sb%=240� <@ Xi%=y% <BA�:�bc%�:�Qi(fc%(3),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Xi%,cc%,y%) <F Xi%=y% <H� <J� <L=�4:y%=Ob%-700+500*ic*(Yi(Sb%)-(kc%+fd%)):�Sb%=240�:Pi%=y% <R<�hc%�:�Qi(lc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,ic%,y%) <T Pi%=y% <V� <X�:�Hc%� <[�Zi%=zb%:s=500*zb:y%(1)=Ob%-700+s*10*ai(Sb%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(Sb%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(Sb%):e%(3)=e%(2)+s*id%:y%(4)=y%(3)+s*10*di(Sb%,0):e%(4)=e%(3)+s*jd%(0) <f�y%(5)=y%(3)+s*10*di(Sb%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(Sb%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(Sb%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%():�Sb%=240� <rqi%()=y%() <t7�:�yb%�:�fi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%()) <xqi%()=y%() <z� <|�:�yb%� <�Zi%=Jc%:s=500*Jc:y%(1)=Ob%-700+s*Si(Sb%):e%(1)=0:y%(2)=y%(1)+s*(277*�(bi(Sb%)/6.3)-277):e%(2)=e%(1)+s*(277*�(hd%/63)-277):y%(3)=y%(2)+s*(277*�(ci(Sb%)/6.3)-277):e%(3)=e%(2)+s*(277*�(id%/63)-277) <��y%(4)=y%(3)+s*(277*�(di(Sb%,0)/6.3)-277):e%(4)=e%(3)+s*(277*�(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*�(di(Sb%,1)/6.3)-277):e%(5)=e%(3)+s*(277*�(jd%(1)/63)-277) <��y%(6)=y%(5)+s*(277*�(di(Sb%,2)/6.3)-277):e%(6)=e%(5)+s*(277*�(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*�(di(Sb%,3)/6.3)-277):e%(7)=e%(6)+s*(277*�(jd%(3)/63)-277):e%()=0:e%()+=s*(Nc%+cd%):y%()=y%()-e%():�Sb%=240� <�qi%()=y%() <�7�:�Hc%�:�fi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%()) <�qi%()=y%() <�� <�� <��:ș262346,,X_%�th%:�:� <�B��Qi(Ni%,x%,y%,ei%,lh%,�y%):�ri:�(x%-Nb%)>1140�(x%-Nb%)<140�:� <�!�x%-Nb%=140�ri=0�ri=(1000*Hi) <�*y%=�si(y%,Ob%):ei%=�si(ei%,Ob%):�mc%� <� Ȏqc%� <�-�1:ș262374,Ni%:ȏȐx%,y%,�ti(y%,Ob%,lh%) <�m�2:ș262374,Ni%:�x%-�ti(y%,Ob%,lh%),y%,x%+�ti(y%,Ob%,lh%),y%:�x%,y%-�ti(y%,Ob%,lh%),x%,y%+�ti(y%,Ob%,lh%) <�+�3:ș262374,Ni%:�x%-(1000*Hi),ei%,x%,y% <�� <�e�:ș262374,Ni%:�x%-ri,Ob%-699:�x%-ri,ei%:�&55,x%,y%:�x%,y%:�x%,Ob%-699:�&55,x%-ri,Ob%-699:�qc%=3� <�&ș262374,7:�x%-(1000*Hi),ei%,x%,y% <�� <��:� <�2��fi(x%,y%(),ei%()):�ri:�x%=Nb%+140�ri=0�ri=Hi <�"�(x%-Nb%)>1140�(x%-Nb%)<140�:� <��nc%�ui%=7�ui%=4 <�H�M%=1�ui%:y%(M%)=�si(y%(M%),Ob%):ei%(M%)=�si(ei%(M%),Ob%):�M%:�mc%� <� Ȏqc%� <��1:�nc%� <��ș262374,fc%(3):ȏȐx%,y%(7),�ti(y%(7),Ob%,Zi%):ș262374,fc%(2):ȏȐx%,y%(6),�ti(y%(6),Ob%,Zi%):ș262374,fc%(1):ȏȐx%,y%(5),�ti(y%(5),Ob%,Zi%) =5�:ș262374,fc%(0):ȏȐx%,y%(4),�ti(y%(4),Ob%,Zi%) =��:ș262374,lc%:ȏȐx%,y%(3),�ti(y%(3),Ob%,Zi%):ș262374,Zc%:ȏȐx%,y%(2),�ti(y%(2),Ob%,Zi%):ș262374,Qc%:ȏȐx%,y%(1),�ti(y%(1),Ob%,Zi%) =�2:�nc%� =�ș262374,fc%(3):�x%-�ti(y%(7),Ob%,Zi%),y%(7),x%+�ti(y%(7),Ob%,Zi%),y%(7):�x%,y%(7)-�ti(y%(7),Ob%,Zi%),x%,y%(7)+�ti(y%(7),Ob%,Zi%):ș262374,fc%(2):�x%-�ti(y%(6),Ob%,Zi%),y%(6),x%+�ti(y%(6),Ob%,Zi%),y%(6) =��x%,y%(6)-�ti(y%(6),Ob%,Zi%),x%,y%(6)+�ti(y%(6),Ob%,Zi%):ș262374,fc%(1):�x%-�ti(y%(5),Ob%,Zi%),y%(5),x%+�ti(y%(5),Ob%,Zi%),y%(5):�x%,y%(5)-�ti(y%(5),Ob%,Zi%),x%,y%(5)+�ti(y%(5),Ob%,Zi%) =��:ș262374,fc%(0):�x%-�ti(y%(4),Ob%,Zi%),y%(4),x%+�ti(y%(4),Ob%,Zi%),y%(4):�x%,y%(4)-�ti(y%(4),Ob%,Zi%),x%,y%(4)+�ti(y%(4),Ob%,Zi%) =$��:ș262374,lc%:�x%-�ti(y%(3),Ob%,Zi%),y%(3),x%+�ti(y%(3),Ob%,Zi%),y%(3):�x%,y%(3)-�ti(y%(3),Ob%,Zi%),x%,y%(3)+�ti(y%(3),Ob%,Zi%):ș262374,Zc%:�x%-�ti(y%(2),Ob%,Zi%),y%(2),x%+�ti(y%(2),Ob%,Zi%),y%(2) =-��x%,y%(2)-�ti(y%(2),Ob%,Zi%),x%,y%(2)+�ti(y%(2),Ob%,Zi%):ș262374,Qc%:�x%-�ti(y%(1),Ob%,Zi%),y%(1),x%+�ti(y%(1),Ob%,Zi%),y%(1):�x%,y%(1)-�ti(y%(1),Ob%,Zi%),x%,y%(1)+�ti(y%(1),Ob%,Zi%) =2�3:�nc%� =6�ș262374,fc%(3):�x%-(1000*ri),ei%(7),x%,y%(7):ș262374,fc%(2):�x%-(1000*ri),ei%(6),x%,y%(6):ș262374,fc%(1):�x%-(1000*ri),ei%(5),x%,y%(5) =<3�:ș262374,fc%(0):�x%-(1000*ri),ei%(4),x%,y%(4) =@��:ș262374,lc%:�x%-(1000*ri),ei%(3),x%,y%(3):ș262374,Zc%:�x%-(1000*ri),ei%(2),x%,y%(2):ș262374,Qc%:�x%-(1000*ri),ei%(1),x%,y%(1) =H� =J�:�nc%� =N�ș262374,fc%(3):�x%-(1000*ri),ei%(6):�x%-(1000*ri),ei%(7):�&55,x%,y%(7):�x%,y%(7):�x%,y%(6):�&55,x%-(1000*ri),ei%(6):ș262374,fc%(2):�x%-(1000*ri),ei%(5):�x%-(1000*ri),ei%(6):�&55,x%,y%(6) =X��x%,y%(6):�x%,y%(5):�&55,x%-(1000*ri),ei%(5):ș262374,fc%(1):�x%-(1000*ri),ei%(3):�x%-(1000*ri),ei%(5):�&55,x%,y%(5):�x%,y%(5):�x%,y%(3):�&55,x%-(1000*ri),ei%(3) =`z�:ș262374,fc%(0):�x%-(1000*ri),ei%(3):�x%-(1000*ri),ei%(4):�&55,x%,y%(4):�x%,y%(4):�x%,y%(3):�&55,x%-(1000*ri),ei%(3) =h��:ș262374,lc%:�x%-(1000*ri),ei%(2):�x%-(1000*ri),ei%(3):�&55,x%,y%(3):�x%,y%(3):�x%,y%(2):�&55,x%-(1000*ri),ei%(2):ș262374,Zc%:�x%-(1000*ri),ei%(1):�x%-(1000*ri),ei%(2):�&55,x%,y%(2) =t��x%,y%(2):�x%,y%(1):�&55,x%-(1000*ri),ei%(1):ș262374,Qc%:�x%-(1000*ri),Ob%-699:�x%-(1000*ri),ei%(1):�&55,x%,y%(1):�x%,y%(1):�x%,Ob%-699:�&55,x%-(1000*ri),Ob%-699:Ȏqc%� =��2:ș262374,7:�nc%� =�u�x%-�ti(y%(7),Ob%,Zi%),y%(7),x%+�ti(y%(7),Ob%,Zi%),y%(7):�x%,y%(7)-�ti(y%(7),Ob%,Zi%),x%,y%(7)+�ti(y%(7),Ob%,Zi%) =�u�x%-�ti(y%(6),Ob%,Zi%),y%(6),x%+�ti(y%(6),Ob%,Zi%),y%(6):�x%,y%(6)-�ti(y%(6),Ob%,Zi%),x%,y%(6)+�ti(y%(6),Ob%,Zi%) =�u�x%-�ti(y%(5),Ob%,Zi%),y%(5),x%+�ti(y%(5),Ob%,Zi%),y%(5):�x%,y%(5)-�ti(y%(5),Ob%,Zi%),x%,y%(5)+�ti(y%(5),Ob%,Zi%) =�w�:�x%-�ti(y%(4),Ob%,Zi%),y%(4),x%+�ti(y%(4),Ob%,Zi%),y%(4):�x%,y%(4)-�ti(y%(4),Ob%,Zi%),x%,y%(4)+�ti(y%(4),Ob%,Zi%) =�w�:�x%-�ti(y%(3),Ob%,Zi%),y%(3),x%+�ti(y%(3),Ob%,Zi%),y%(3):�x%,y%(3)-�ti(y%(3),Ob%,Zi%),x%,y%(3)+�ti(y%(3),Ob%,Zi%) =�u�x%-�ti(y%(2),Ob%,Zi%),y%(2),x%+�ti(y%(2),Ob%,Zi%),y%(2):�x%,y%(2)-�ti(y%(2),Ob%,Zi%),x%,y%(2)+�ti(y%(2),Ob%,Zi%) =�u�x%-�ti(y%(1),Ob%,Zi%),y%(1),x%+�ti(y%(1),Ob%,Zi%),y%(1):�x%,y%(1)-�ti(y%(1),Ob%,Zi%),x%,y%(1)+�ti(y%(1),Ob%,Zi%) =�r�3:ș262374,7:�x%-(1000*ri),ei%(1),x%,y%(1):�x%-(1000*ri),ei%(2),x%,y%(2):�x%-(1000*ri),ei%(3),x%,y%(3):�nc%� =�!�x%-(1000*ri),ei%(4),x%,y%(4) =�_�:�x%-(1000*ri),ei%(5),x%,y%(5):�x%-(1000*ri),ei%(6),x%,y%(6):�x%-(1000*ri),ei%(7),x%,y%(7) =�� =�� =��:� =�3��Jb:�vi$:�zc(Ma%,22," "+�(Tb%+1750)):�oc%�Hc%� =��zc(Ma%,23," ") =��:Ȏhb%� =�/�1:�zc(Ma%,23," "+��(t(Tb%)-273-ad%/10),5)) =�,�2:�zc(Ma%,23," "+��(Ri(Tb%)-bd%/10),5)) =�� =��:�oc%�yb%� =�vi$=" " =��:ȎDc%� =�!�1:vi$=" "+��(Si(Tb%)-cd%),6) =�!�2:vi$=" "+��(Ti(Tb%)-dd%),6) =�!�3:�(Ui(Tb%,0)-ed%(0))<0.01� =�vi$=" 0.00" =�%�:vi$=" "+��(Ui(Tb%,0)-ed%(0)),6) =�� =��4:�(Yi(Tb%)-fd%)<0.01� =�vi$=" 0.00" =� �:vi$=" "+��(Yi(Tb%)-fd%),6) =�� =�� =��:�zc(Ma%,24,vi$):� >