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)
01�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)
10�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$):�
>t��wi(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Aj%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Gj%,Hj%):�Hb$:�23,6,&33,0,0,0,0,0,0,0:�X%=0�Bj%:�Hj%�
>4!Hb$=�(�((xi%+Aj%+Cj*X%)/Dj%))
>6,�:Hb$=��((xi%+Aj%+Cj*X%)/Dj%+0.001),Gj%)
>:"�:�(xi%+Aj%+Cj*X%)=0�:Hb$=" 0"
>>�ș262278,,Hb$,%10000,x%+yi%+Ej%+_i%*s*(Aj%+Cj*X%),y%+zi%+Fj%:�x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%-10,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%
>B��g%��(s*(Aj%+Cj*X%)>0.995�s*(Aj%+Cj*X%)<0.005)�:�&04,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%:�&15,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%+`i%
>D	�X%:�
>Jx��Ii(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Ij%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Jj%,Hj%,Kj%):�Hb$:�23,6,&33,0,0,0,0,0,0,0:�Y%=0�Bj%:�Hj%�
>�%Hb$=" "+�(�((xi%+Ij%+Cj*Y%)/Dj%))
>�,�:�(xi%+Ij%+Cj*Y%)>=0�Lj=0.001�Lj=-0.001
>�DHb$=" "+��((xi%+Ij%+Cj*Y%)/Dj%+Lj),�Jj((xi%+Ij%+Cj*Y%)/Dj%,Jj%))
>�(�:�(xi%+Ij%+Cj*Y%)<=0.001�:Hb$=" 0"
>�
�Kj%�
>�p�25,188,x%+yi%-13;y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%);:ș262278,,Hb$,%10001,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%)
>�B�:ș262278,,Hb$,%10000,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%)
>���:�x%+yi%-10-20*Kj%,y%+zi%+`i%*s*(Ij%+Cj*Y%),x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):�g%��(�(s*(Ij%+Cj*Y%))>0.995��(s*(Ij%+Cj*Y%))<0.005)�:�&04,x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):�&15,x%+yi%+_i%,y%+zi%+`i%*s*(Ij%+Cj*Y%)
>�	�Y%:�
>����H_:�t(400),Ri(400):�ai(400),bi(400),di(400,3),ci(400):�Si(400),Ti(400),Ui(400,3),Yi(400):�Mj(400),Nj(400),Oj(400,3),Pj(400):�Qj(400),Rj(400,3),Sj(400):�gi(160,8),hi(160,8),ii(160,3,8),ji(160,8):�Tj(3),ed%(3),fc%(3),jd%(3)
>���y%(7),ei%(7),e%(7),qi%(7):�Uj(7),Vj(7),Wj(7),Xj(7):Sb%=240:t(240)=286.811:Cd%=1:�Bd$(4),Di$(3,4):��`@G:�N%=0�4:�Bd$(N%):�:��`BG:�M%=0�4:�N%=0�3:�Di$(N%,M%):�N%:�M%:Vb%=�:jb%=�:Fc%=�:xb%=�:Uc%=�:ac%=�:gc%=�
>��lb%=�:Hc%=�:yb%=�:Vc%=�:bc%=�:hc%=�: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:�_c%(7):kb%=�:Gc%=�:ib%=�:Ec%=�:nb%=3:Jc%=3:zb%=3:Wc%=3:cc%=3:ic%=3
>��pb%=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
>��gd%=0:hd%=0:jd%()=0:id%=0:hb$="Surface temperature (�C)":Dc$="CO2 conc. (ppmv)":nc%=�:oc%=�:mc%=�:sc%=�:qc%=2:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):�
?2��L_:Si()=Mj():Ti()=Nj():Yi()=Pj():Ui()=Oj():�
?���S_:gi(0,8)=0:gi(0,0)=0:�M%=2�8:gi(0,0)+=gi(0,M%):�:hi(0,8)=59:hi(0,0)=0:�M%=2�8:hi(0,0)+=hi(0,M%):�:ii(0,1,8)=298:ii(0,1,0)=0:�M%=2�8:ii(0,1,0)+=ii(0,1,M%):�:ii(0,2,8)=363:ii(0,2,0)=0:�M%=2�8:ii(0,2,0)+=ii(0,2,M%):�
?@�ii(0,3,8)=138:ii(0,3,0)=0:�M%=2�8:ii(0,3,0)+=ii(0,3,M%):�: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:�M%=2�8:ji(0,0)+=ji(0,M%):�:�N%=1�160:gi(N%,8)=1.01*gi(N%-1,8)
?R�gi(N%,0)=0:�M%=2�8:gi(N%,0)+=gi(N%,M%):�M%:hi(N%,8)=1.008*hi(N%-1,8):hi(N%,0)=0:�M%=2�8:hi(N%,0)+=hi(N%,M%):�M%:ii(N%,1,8)=Yj(N%,1):ii(N%,1,0)=0:�M%=2�8:ii(N%,1,0)+=ii(N%,1,M%):�M%:ii(N%,2,8)=Yj(N%,2)
?^�ii(N%,2,0)=0:�M%=2�8:ii(N%,2,0)+=ii(N%,2,M%):�M%:ii(N%,3,8)=Yj(N%,3):ii(N%,3,0)=0:�M%=2�8:ii(N%,3,0)+=ii(N%,3,M%):�M%: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)
?hNji(N%,8)=1.005*ji(N%-1,8):ji(N%,0)=0:�M%=2�8:ji(N%,0)+=ji(N%,M%):�M%:�N%:�
?r���Jd: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%:�
?�7��tc(ih%,jh%,Zj%,�aj%,�bj%,�Bj%,�Cj):�Zj%=1�:cj=0.1
?��Zj%=2�:cj=0.2
?��3<=Zj%�Zj%<=7�:cj=0.5
?��8<=Zj%�Zj%<=15�:cj=1
?��16<=Zj%�Zj%<=30�:cj=2
?��31<=Zj%�Zj%<=75�:cj=5
?��76<=Zj%�Zj%<=150�:cj=10
?��151<=Zj%�Zj%<=300�:cj=20
?��301<=Zj%�Zj%<=750�:cj=50
?��751<=Zj%�Zj%<=1500�:cj=100
?� �1501<=Zj%�Zj%<=3000�:cj=200
?� �3001<=Zj%�Zj%<=7500�:cj=500
?�"�7501<=Zj%�Zj%<=10000�:cj=1000
?�dj%=1:�cj>=1�
?��jh%�cj=0�:dj%=0
?�.�:�ej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):�
?�~��ej(dj%,cj,ih%,jh%,Zj%,�aj%,�bj%,�Bj%,�Cj):aj%=ih%-cj*(�(ih%/cj)):bj%=cj*(�(jh%/cj)+dj%)-jh%:Bj%=(Zj%-aj%-bj%)/cj:Cj=cj:�
?����I_:kh%=�("<CO2effect$Dir>.Data.GC_Data"):�N%=0�400:�#kh%,Si(N%):�#kh%,Ti(N%):�#kh%,Ui(N%,0):�#kh%,Ui(N%,1):�#kh%,Ui(N%,2):�#kh%,Ui(N%,3):�#kh%,Yi(N%):�#kh%,ai(N%):�#kh%,bi(N%):�#kh%,di(N%,0):�#kh%,di(N%,1):�#kh%,di(N%,2)
?�`�#kh%,di(N%,3):�#kh%,ci(N%):�#kh%,Ri(N%):�N%:Mj()=Si():Nj()=Ti():Pj()=Yi():Oj()=Ui():�#kh%:�
@��J_:ȎCd%�
@$�0:�N%=0�240:t(N%)=�ki(Ri(N%)):�
@$�1:�N%=0�240:t(N%)=�li(Ri(N%)):�
@$�2:�N%=0�240:t(N%)=�mi(Ri(N%)):�
@$�3:�N%=0�240:t(N%)=�ni(Ri(N%)):�
@ �:�
@,m��K_:Zf%=�:Ag%=�:nd%=�:df%=�:hf%=�:xd%=�:ld%=0:cg%=155:�B`$(7,8):��`dG:�N%=1�7:�B`$(N%,0):�:�N%=1�7:ȎN%�
@@�1:fj$=": C emissions"
@B�2:fj$=": CH4 emissions"
@D�3:fj$=": N2O emissions"
@F�4:fj$=": CFC-11 emissions"
@H�5:fj$=": CFC-12 emissions"
@J �6:fj$=": HCFC-22 emissions"
@L �7:fj$=": all CFC emissions"
@N��:��`fG:�M%=1�8:�B`$(N%,M%):B`$(N%,M%)=B`$(N%,M%)+fj$:�M%:�N%:`c%=250:Ad%=0:Cg%=265:qd%=0:bf%=2090:Tg%=1990:�pd%(7),qd%(7),rd%(7),gj(7),sd%(7),td%(7),ud%(7),vd(7):�hj%(3,5,10):�ij%(3,5,4):�jj%(3,5,5):�kj%(3,5,2):�lj%(3,5,2)
@r��mj%(3,5,5):�nj%(3,5,3):�oj:�ee%(5),ge%(5),ie%(5),ke%(5),me%(5):�de%(5),fe%(5),he%(5),je%(5),le%(5):�pj(160,3):�qj(160):�rj(160):�sj(160):�tj(160):�uj(160):�vj(160):�Ne%(5),Pe%(5),Re%(5),Te%(5),Ve%(5),Ze%(5)
@���Me%(5),Oe%(5),Qe%(5),Se%(5),Ue%(5),Ye%(5):�wj(160):�xj(160):�yj(160):�zj(160):�zd%(5),`d%(5),Be%(5),De%(5),Fe%(5),Le%(5):�yd%(5),_d%(5),Ae%(5),Ce%(5),Ee%(5),Ke%(5):�He%(5,4),Ge%(5,4):�_j(5,5),`j%(5):�uf(160,5):�Ak(5)
@���vf(160,4):�Af%(5),Cf%(5),Gf%(5):�`e%(5),Bf%(5),Ff%(5):�Bk(160),Ck(160):�If%(5),Kf%(5),Of%(5):�Hf%(5),Jf%(5),Nf%(5):�Dk(160),Ek(160):�oe%(5),qe%(5),se%(5),ue%(5),we%(5),_e%(5):�ne%(5),pe%(5),re%(5),te%(5),ve%(5),ze%(5)
@Ҩ�Fk(5,4):�Yj(160,4):�Qf%(5),Sf%(5),Uf%(5),Yf%(5):�Pf%(5),Rf%(5),Tf%(5),Xf%(5):�Gk(160):�Hk(160):�Ik(160):�lf%(5),nf%(5),jf%(6):�kf%(5),mf%(5),if%(6):�Jk(160):�rf(0)
@��uf(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:��`NG:�Ak(1):�Ak(2):�Ak(3):�Ak(4):�Ak(5):Je%=0:Kk=8.89E-5:Lk=56:Xe%=0:We%=0
A�pj(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
A"�Yj(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:��`TG:�N%=0�5:�lf%(N%):�nf%(N%):�:pf%=0
AN��tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�wf:�xf:�yf:�zf:�_f:�`f:�md:�od(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�
Ap+��_h(x%,y%,sh%):�Gj%,Xk%,Li%,Hj%:Ȏsh%�
A|�A`%(1):�Yk(x%,y%,Qc%,gi())
A~�A`%(2):�Yk(x%,y%,Zc%,hi())
A��A`%(3):�Yk(x%,y%,lc%,ji())
A�$�A`%(4):�Zk(x%,y%,fc%(1),ii(),1)
A�$�A`%(5):�Zk(x%,y%,fc%(2),ii(),2)
A�$�A`%(6):�Zk(x%,y%,fc%(3),ii(),3)
A�$�A`%(7):�Zk(x%,y%,fc%(0),ii(),0)
A���:ș262374,7:ȓȐx%+99,y%-341,502,2:ȓȐx%+99,y%-341,2,302:ȓȐx%+599,y%-341,2,302:ȓȐx%+99,y%-41,502,2:�ak(sh%):ș262282,ph%:ș262278,,"Year",%10000,x%+300,y%-420:�Fa%=&A3�Fa%=&A4�
A�qș262282,oh%:ș262281,,x%+30,y%-300�,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:ș262278,,bk$,%01001000000,Ah%,Bh%,,C`%
A�{�:ș262282,nh%:�wi(x%,y%,Tg%,100,-340,500,300,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):�dk(sh%,Gj%,Li%,Hj%):Xk%=�Xk(sh%):�Zf%�
A�G�Ii(x%,y%,Ad%,100,-340,500,300,ek,td%,ud%,vd,hf%,1,-75,-7,Gj%,-1,0)
A�e�:�Ii(x%,y%,qd%(Xk%),100,-340,500,300,gj(Xk%),td%(Xk%),ud%(Xk%),vd(Xk%),hf%,Li%,-75,-7,Gj%,Hj%,0)
A��:�
A�X��Yk(x%,y%,Ni%,fk()):�gk,hk,ik:ș262374,Ni%:ik=ek*300:�fk(0,ld%)>0�jk=fk(0,ld%)�jk=1
A�N�N%=1�(bf%-1990):gk=ik*(100*fk(N%-1,ld%)/jk-Ad%):�gk>300�gk=300��gk<0�gk=0
A�;hk=ik*(100*fk(N%,ld%)/jk-Ad%):�hk>300�hk=300��hk<0�hk=0
A�B�x%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:�:�
A�d��Zk(x%,y%,Ni%,fk(),Ui%):�gk,hk,ik:ș262374,Ni%:ik=ek*300:�fk(0,Ui%,ld%)>0�jk=fk(0,Ui%,ld%)�jk=1
A�R�N%=1�(bf%-1990):gk=ik*(100*fk(N%-1,Ui%,ld%)/jk-Ad%):�gk>300�gk=300��gk<0�gk=0
A�?hk=ik*(100*fk(N%,Ui%,ld%)/jk-Ad%):�hk>300�hk=300��hk<0�hk=0
A�B�x%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:�:�
B��ak(kk%):�Zf%�
Bbk$="% of 1990 levels"
B
�:Ȏsh%�
B"�A`%(1):bk$="Gt carbon per yr"
B#�A`%(2):bk$="Tg methane per yr"
B$�A`%(3):bk$="Tg nitrogen per yr"
B"�A`%(4):bk$="kt CFC-11 per yr"
B"�A`%(5):bk$="kt CFC-12 per yr"
B#�A`%(6):bk$="kt HCFC-22 per yr"
B'�A`%(7):bk$="kt halocarbons per yr"
B�
B�:�
B$"��dk(sh%,�Gj%,�Li%,�Hj%):�Zf%�
B,	Gj%=4
B.�:Ȏsh%�
B2 �A`%(1):Li%=100:Hj%=0:Ȏld%�
B6�0,1,2,8:Gj%=1
B8�3,4,5,6,7:Gj%=2
B:�
B<�A`%(2):Gj%=4:Li%=1:Hj%=-1
B> �A`%(3):Li%=100:Hj%=0:Ȏld%�
BB�0:Gj%=1
BD�1,2,3,4,5,6,7,8:Gj%=2
BF�
BH�A`%(4):Gj%=4:Li%=1:Hj%=-1
BJ�A`%(5):Gj%=4:Li%=1:Hj%=-1
BL�A`%(6):Gj%=4:Li%=1:Hj%=-1
BN�A`%(7):Gj%=4:Li%=1:Hj%=-1
BP�
BR�:�
BX"��`h(x%,y%,uh%,wh%):�Hb$:�Zf%�
Bb�lk(x%,y%,uh%,wh%)
Bd�:�mk(x%,y%,uh%,wh%)
Bh��:ș262374,7:ȓȐx%+114,y%-262,554,2:ȓȐx%+114,y%-262,2,224:ȓȐx%+666,y%-262,2,224:ȓȐx%+114,y%-40,554,2:ș262282,ph%:ș262278,,"Year",%10000,x%+350,y%-330:�Fa%=&A3�Fa%=&A4�
B~:�Zf%�Hb$="% generation share"�Hb$="Power (TWh - 000s)"
B�dș262281,,x%+35,y%-300�,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:ș262278,,Hb$,%01001000000,Ah%,Bh%,,C`%
B�Y�:ș262282,oh%:�wi(x%,y%,Tg%,116,-260,550,220,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):�Zf%�
B�D�Ii(x%,y%,Ad%,116,-260,550,220,0.01,0,5,20,hf%,1,-108,-7,4,-1,0)
B�I�:�Ii(x%,y%,Dg%,116,-260,550,220,nk,td%,ud%,vd,hf%,10,-100,-7,4,-1,0)
B��:�
B�=��lk(x%,y%,uh%,wh%):�ik,ok%,pk%,y():�y(5):�uh%>Nb%+666�:�
B��uh%<=Nb%+116�uh%=Nb%+116
B��vh%<Nb%+116�:�
B��vh%>=Nb%+666�:vh%=Nb%+666
B��ik=2.2:�N%=(uh%-Nb%-116)/(550*ck)�(vh%-Nb%-116)/(550*ck)-0.999:�M%=0�4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):ș262374,`j%(M%+1):ȎM%�
B�(�0:y(0)=y%-260:y(1)=y(0)+ik*uf(N%,1)
B�2�1:y(1)=y(0)+ik*uf(N%,1):y(2)=y(1)+ik*uf(N%,2)
B�2�2:y(2)=y(1)+ik*uf(N%,2):y(3)=y(2)+ik*uf(N%,3)
B�2�3:y(3)=y(2)+ik*uf(N%,3):y(4)=y(3)+ik*uf(N%,4)
B�2�4:y(4)=y(3)+ik*uf(N%,4):y(5)=y(4)+ik*uf(N%,5)
B��:�(y(M%+1)-y(M%))>=1�
B�Y�ok%,y(M%)+1:�ok%,y(M%+1):�&55,pk%,y(M%+1):�pk%,y(M%+1):�pk%,y(M%)+1:�&55,ok%,y(M%)+1
B��:�M%:�N%:�
B�H��mk(x%,y%,uh%,wh%):�ik,ok%,pk%,y(),qk():�y(5),qk(5):�uh%>Nb%+666�:�
B��uh%<=Nb%+116�uh%=Nb%+116
B��vh%<Nb%+116�:�
B��vh%>=Nb%+666�:vh%=Nb%+666
B�ik=220/(wj(0)*Bg%):rk%=220*Ad%/Bg%:�N%=(uh%-Nb%-116)/(550*ck)�(vh%-Nb%-116)/(550*ck)-0.999:�M%=0�4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):ș262374,`j%(M%+1):ȎM%�
B�3�0:y(0)=y%-260-rk%:y(1)=y(0)+ik*wj(N%)*uf(N%,1)
B�@�1:y(1)=y(0)+ik*wj(N%)*uf(N%,1):y(2)=y(1)+ik*wj(N%)*uf(N%,2)
B�@�2:y(2)=y(1)+ik*wj(N%)*uf(N%,2):y(3)=y(2)+ik*wj(N%)*uf(N%,3)
B�@�3:y(3)=y(2)+ik*wj(N%)*uf(N%,3):y(4)=y(3)+ik*wj(N%)*uf(N%,4)
B�@�4:y(4)=y(3)+ik*wj(N%)*uf(N%,4):y(5)=y(4)+ik*wj(N%)*uf(N%,5)
B�>�:qk(M%)=y(M%):qk(M%+1)=y(M%+1):�y(M%)>y%-40�:qk(M%)=y%-40
C �y(M%)<=y%-260�qk(M%)=y%-260
C"�y(M%+1)>y%-40�:qk(M%+1)=y%-40
C$�y(M%+1)<y%-260�:qk(M%+1)=y%-260
C�(y(M%+1)-y(M%))>=1�
C
_�ok%,qk(M%)+1:�ok%,qk(M%+1):�&55,pk%,qk(M%+1):�pk%,qk(M%+1):�pk%,qk(M%)+1:�&55,ok%,qk(M%)+1
C�:�M%:�N%:�
C���Ai(x%,y%):�Hb$:ș262374,7:ȓȐx%+156,y%-242,604,2:ȓȐx%+156,y%-242,2,204:ȓȐx%+758,y%-242,2,204:ȓȐx%+156,y%-40,604,2:ș262282,ph%:ș262278,,"Year",%10000,x%+420,y%-310:�Fa%=&A3�Fa%=&A4�
C21�Zf%�Hb$="% of 1990 VMT"�Hb$="VMT (billions)"
C4dș262281,,x%+50,y%-250�,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:ș262278,,Hb$,%01001000000,Ah%,Bh%,,C`%
C:Y�:ș262282,oh%:�wi(x%,y%,Tg%,158,-240,600,200,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):�Zf%�
CDF�Ii(x%,y%,Ad%,158,-240,600,200,ek,td%,ud%,vd,hf%,1,-100,-7,4,-1,0)
CFH�:�Ii(x%,y%,Kg%,158,-240,600,200,sk,Ng%,Og%,Pg,hf%,10,-100,-7,1,0,0)
CJ�:�tk(x%,y%):�
CRs��tk(x%,y%):�gk,hk:ș262374,7:�N%=1�(bf%-1990):gk=ek*200*(100*pj(N%-1,0)/pj(0,0)-Ad%):�gk>200�gk=200��gk<0�gk=0
C`Bhk=ek*200*(100*pj(N%,0)/pj(0,0)-Ad%):�hk>200�hk=200��hk<0�hk=0
CbB�x%+158+600*ck*(N%-1),y%-240+gk,x%+158+600*ck*N%,y%-240+hk:�:�
Cj'��eg(uk%()):�uk%(0)>155�:uk%(0)=155
Cr)�uk%(0)+uk%(1)>156�:uk%(1)=156-uk%(0)
Ct7�uk%(0)+uk%(1)+uk%(2)>157�:uk%(2)=157-uk%(0)-uk%(1)
CvE�uk%(0)+uk%(1)+uk%(2)+uk%(3)>158�:uk%(3)=158-uk%(0)-uk%(1)-uk%(2)
CxS�uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)>159�:uk%(4)=159-uk%(0)-uk%(1)-uk%(2)-uk%(3)
Cza�uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)>160�:uk%(5)=160-uk%(0)-uk%(1)-uk%(2)-uk%(3)-uk%(4)
C|�
C�$��tf(uk%(),vk(),�vk(),wk%):�wk%�
C��L%=1�5:�uk%(L%)>0�
C��_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%)
C��:�
C��:�L%=1�5:�uk%(L%)>0�
C��_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%)
C��:�
C���:�M%=1�4-wk%:�N%=0�uk%(1)-1:vk(N%+1,M%)=_j(1,M%)+vk(N%,M%):�N%:�N%=uk%(1)�uk%(1)+uk%(2)-1:vk(N%+1,M%)=_j(2,M%)+vk(N%,M%):�N%:�N%=uk%(1)+uk%(2)�uk%(1)+uk%(2)+uk%(3)-1:vk(N%+1,M%)=_j(3,M%)+vk(N%,M%):�N%
C���N%=uk%(1)+uk%(2)+uk%(3)�uk%(1)+uk%(2)+uk%(3)+uk%(4)-1:vk(N%+1,M%)=_j(4,M%)+vk(N%,M%):�N%:�N%=uk%(1)+uk%(2)+uk%(3)+uk%(4)�uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:vk(N%+1,M%)=_j(5,M%)+vk(N%,M%):�N%:�M%:�
C�#��xk(uk%()):�L%=1�5:�uk%(L%)>0�
C�Fk(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%)
C�BFk(L%,4)=(we%(L%)*ue%(L%)/100-we%(L%-1)*ue%(L%-1)/100)/uk%(L%)
C���:�:�M%=1�4:�N%=0�uk%(1)-1:Yj(N%+1,M%)=Fk(1,M%)+Yj(N%,M%):�N%:�N%=uk%(1)�uk%(1)+uk%(2)-1:Yj(N%+1,M%)=Fk(2,M%)+Yj(N%,M%):�N%:�N%=uk%(1)+uk%(2)�uk%(1)+uk%(2)+uk%(3)-1:Yj(N%+1,M%)=Fk(3,M%)+Yj(N%,M%):�N%
C���N%=uk%(1)+uk%(2)+uk%(3)�uk%(1)+uk%(2)+uk%(3)+uk%(4)-1:Yj(N%+1,M%)=Fk(4,M%)+Yj(N%,M%):�N%:�N%=uk%(1)+uk%(2)+uk%(3)+uk%(4)�uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:Yj(N%+1,M%)=Fk(5,M%)+Yj(N%,M%):�N%:�M%:�
C���yk(uk%(),zk%(),�_k()):�N%=0�uk%(1)-1:_k(N%)=zk%(0)+N%*(zk%(1)-zk%(0))/uk%(1):�:�N%=uk%(1)�uk%(1)+uk%(2)-1:_k(N%)=zk%(1)+(N%-uk%(1))*(zk%(2)-zk%(1))/uk%(2):�
C���N%=uk%(1)+uk%(2)�uk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(2)+(N%-(uk%(1)+uk%(2)))*(zk%(3)-zk%(2))/uk%(3):�:�N%=uk%(1)+uk%(2)+uk%(3)�uk%(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):�
C���N%=uk%(1)+uk%(2)+uk%(3)+uk%(4)�uk%(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):�:�
D���`k(uk%(),zk%(),�_k()):�N%=0�uk%(0)-1:_k(N%)=zk%(0):�:�N%=uk%(0)�uk%(0)+uk%(1)-1:_k(N%)=zk%(1):�:�N%=uk%(0)+uk%(1)�uk%(0)+uk%(1)+uk%(2)-1:_k(N%)=zk%(2):�:�N%=uk%(0)+uk%(1)+uk%(2)�uk%(0)+uk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(3):�
D��N%=uk%(0)+uk%(1)+uk%(2)+uk%(3)�uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)-1:_k(N%)=zk%(4):�:�N%=uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)�uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5):_k(N%)=zk%(5):�:�
D���md: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%
D.�pd%(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
D6�pd%(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:�N%=1�7:rd%(N%)=pd%(N%)-qd%(N%):�rd%(N%)=0�:rd%(N%)=1
DBgj(N%)=1/rd%(N%):�:�
DJ=��od(ih%,jh%,Zj%,�aj%,�bj%,�Bj%,�Cj):�1<=Zj%�Zj%<=6�:cj=1
DT�7<=Zj%�Zj%<=15�:cj=2
DV�15<=Zj%�Zj%<=35�:cj=5
DX�36<=Zj%�Zj%<=70�:cj=10
DZ�71<=Zj%�Zj%<=150�:cj=20
D\�151<=Zj%�Zj%<=350�:cj=50
D^�351<=Zj%�Zj%<=700�:cj=100
D`�701<=Zj%�Zj%<=1500�:cj=200
Db �1501<=Zj%�Zj%<=3500�:cj=500
Dd!�3501<=Zj%�Zj%<=7000�:cj=1000
Df"�7001<=Zj%�Zj%<=15000�:cj=2000
Dh#�15001<=Zj%�Zj%<=35000�:cj=5000
Dj$�35001<=Zj%�Zj%<=70000�:cj=10000
Dl%�70001<=Zj%�Zj%<=150000�:cj=20000
Dn&�150001<=Zj%�Zj%<=350000�:cj=50000
Dp(�350001<=Zj%�Zj%<=1000000�:cj=100000
Drdj%=1:�cj>=1�
Dv�jh%�cj=0�:dj%=0
Dx.�:�ej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):�
D����M_:gi(0,1)=0:�M%=1�5:gi(0,1)+=Ak(M%)*(uf(0,M%)/100)*wj(0):�M%:�N%=1�160:gi(N%,1)=0:�M%=1�5:gi(N%,1)+=Ak(M%)*(uf(N%,M%)/100)*wj(N%):�M%:�N%:�N%=0�160:hi(N%,1)=24*gi(N%,1)/gi(0,1):ji(N%,1)=0.1*gi(N%,1)/gi(0,1):�:�
D����fg:�N%=1�5:Oe%(N%)=100*�((-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%):�N%:�
D�W��ae(Al%):Qe%(Al%)=Ue%(Al%):Qe%(Al%)=Qe%(Al%)-Me%(Al%):Qe%(Al%)=Qe%(Al%)-Oe%(Al%):�
D�b��wf:�yk(Ze%(),Ne%(),wj()):�yk(Ze%(),Pe%(),xj()):�yk(Ze%(),Te%(),yj()):�yk(Ze%(),Ve%(),zj()):�
D����N_:�N%=0�160:gi(N%,2)=Kk*((100-yj(N%))/100)*(zj(N%)-wj(N%)-xj(N%)):�:�N%=0�160:hi(N%,2)=Lk*gi(N%,2)/gi(0,2):�:�N%=0�160: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):�:�
E6���xf:�`k(ge%(),ee%(),rj()):�yk(ge%(),me%(),uj()):�N%=1�160: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)
EL+pj(N%,0)=pj(N%,1)+pj(N%,2)+pj(N%,3):�:�
EV���O_:�Li:�yk(ge%(),ie%(),sj()):�yk(ge%(),ke%(),tj()):qj(0)=1:�N%=1�160:qj(N%)=0.9*qj(N%-1):�:�N%=0�160:vj(N%)=(1-tj(N%)/100)*(((1-qj(N%))*100/sj(N%)+qj(N%)*100/ie%(0)))*vj:�:�N%=0�160
Eʄgi(N%,3)=(pj(N%,1)*Mk+pj(N%,2)*Nk+pj(N%,3)*Ok)*vj(N%):�:�N%=0�160:�tj(N%)<99.9�Li=(gi(N%,3)/gi(0,3))*0.82/(1-tj(N%)/100)�Li=1000
E�&hi(N%,3)=Li*11:ji(N%,3)=Li*0.3:�:�
E���yf:�xk(_e%()):�
E�6��zf:�yk(Gf%(),Af%(),Bk()):�yk(Gf%(),Cf%(),Ck()):�
F���P_:�Li%:Li%=0:�M%=0�24:Li%+=(25-M%):�:�N%=0�160:gi(N%,5)=Bk(N%)*1E6*Pk:hi(N%,5)=Bk(N%)*1E6*Rk:ji(N%,5)=Bk(N%)*1E6*Qk:�:�M%=0�24:�N%=0�160-M%:gi(N%+M%,5)-=Ck(N%)*1E6*(Pk/2)*(25-M%)/Li%:�N%:�M%:�
F:6��_f:�yk(Of%(),If%(),Dk()):�yk(Of%(),Kf%(),Ek()):�
FJP��Q_:�N%=0�160:hi(N%,6)=Dk(N%)*1E6*Sk:�:�N%=0�160:ji(N%,6)=Ek(N%)*1E6*Tk:�:�
FxL��`f:�yk(Yf%(),Qf%(),Gk()):�yk(Yf%(),Sf%(),Hk()):�yk(Yf%(),Uf%(),Ik()):�
F�a��R_:�N%=0�160:gi(N%,7)=(Gk(N%)/100)*Uk:ji(N%,7)=(Hk(N%)/100)*Vk:hi(N%,7)=(Ik(N%)/100)*Wk:�:�
F� ��T_:�jf%(1)�:�Bl(gi(),gi())
F��jf%(2)�:�Bl(hi(),hi())
F��jf%(3)�:�Bl(ji(),ji())
F��jf%(4)�:�Cl(ii(),ii(),1)
F��jf%(5)�:�Cl(ii(),ii(),2)
F��jf%(6)�:�Cl(ii(),ii(),3)
F�W�`k(nf%(),lf%(),Jk()):�jf%(1)�:�N%=1�160:gi(N%,0)=((100+Jk(N%-1))/100)*gi(N%-1,0):�
F�A�jf%(2)�:�N%=1�160:hi(N%,0)=((100+Jk(N%-1))/100)*hi(N%-1,0):�
F�A�jf%(3)�:�N%=1�160:ji(N%,0)=((100+Jk(N%-1))/100)*ji(N%-1,0):�
F�E�jf%(4)�:�N%=1�160:ii(N%,1,0)=((100+Jk(N%-1))/100)*ii(N%-1,1,0):�
F�E�jf%(5)�:�N%=1�160:ii(N%,2,0)=((100+Jk(N%-1))/100)*ii(N%-1,2,0):�
F�E�jf%(6)�:�N%=1�160:ii(N%,3,0)=((100+Jk(N%-1))/100)*ii(N%-1,3,0):�
F�=�N%=1�160:ii(N%,0,0)=ii(N%,1,0)+ii(N%,2,0)+ii(N%,3,0):�:�
F�<��Bl(Dl(),�Dl()):�N%=1�160:�M%=0�8:Dl(N%,M%)=0:�M%:�N%:�
GD��Cl(Dl(),�Dl(),El%):�N%=1�160:�M%=0�8:Dl(N%,El%,M%)=0:�M%:�N%:�
G���rf(Fl%):�M%=0�5: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)
G2�He%(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)
GJ�Ve%(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)
Gd�se%(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):�:�
G~���oj:kh%=�("<CO2effect$Dir>.Data.S_Data"):�N%=0�3:�M%=0�5:�O%=0�9:�#kh%,hj%(N%,M%,O%):�O%:�M%:�M%=0�5:�O%=0�4:�#kh%,ij%(N%,M%,O%):�O%:�M%:�M%=0�5:�O%=0�5:�#kh%,jj%(N%,M%,O%):�O%:�M%:�M%=0�5:�O%=0�2:�#kh%,kj%(N%,M%,O%):�O%:�M%
G���M%=0�5:�O%=0�2:�#kh%,lj%(N%,M%,O%):�O%:�M%:�M%=0�5:�O%=0�5:�#kh%,mj%(N%,M%,O%):�O%:�M%:�M%=0�5:�O%=0�3:�#kh%,nj%(N%,M%,O%):�O%:�M%:�N%:�#kh%:�
G�3� CO2effect,3,0,Ka%,Info,0,-1,Pause,&80,-1,Quit
G��� 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
G�4� CO2effect,3,0,K`%,Misc,0,I`%,Save,&80,-1,Tools
G�+� Save,2,0,ja%,Graph,&80,J`%,Parameters
G�4� Parameters,2,0,la%,TextFile,&80,na%,CO2effFile
G�� Misc,1,&80,Ka%,Info
G�E� Temp Model,4,0,-1,high EBM,0,-1,av EBM,0,-1,low EBM,&80,-1,User
G�
G�B� 0D High E.B.,0D Average E.B.,0D Low E.B.,User-defined model.
G�W� Zero dimensional, energy balance model.,Scaled to high GCM, temperature estimate.
G�]� Zero dimensional, energy balance model.,Scaled to best (average), temperature estimate.
G�V� Zero dimensional, energy balance model.,Scaled to low GCM, temperature estimate.
G�	� ,,,
G�
G�2� 0.000287,0.000118,0.000211,0.000043,0.000005
G�
G�	� 1,0
G�
� 1,10
G�
� 1,25
G�
� 1,25
G�
� 1,50
G�
� 1,50
G�
G�� 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,
G�c� Electricity,Energy use,Transport,CFC use,Deforestation,Agriculture,Misc sources,Other sources
G�
G�hݤLa(Gl%,Hl%,Il%,E`$,Jl%):$E`%=E`$:ș262363,,X_%,Gl%,Hl%,Il%,E`%,0:X_%!64=Jl%:ș262337,,X_%�sh%:=sh%
G�ݤJa(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%:�Pl%=0�
H$(X_%+24)=Ci$
H
&�:X_%!24=Pl%:X_%!28=Ql%:X_%!32=Rl%
H�:ș262338,,X_%�Sl%:=Sl%
H3ݤTl(a$):ȕ�a$,"."):a$=�a$,�a$,".")+1):�:=a$+�0
H&4ݤHb(Ul%):�a$:ȕ?Ul%<>0:a$+=�(?Ul%):Ul%+=1:�:=a$
H4ݤWh:�Ci$:Vl$="":ȎX_%!32�
H<�Ka%:Vl$="if_b_w"
H>�Ma%:Vl$="m_w"
H@�Pa%:Vl$="s_w"
HB�Qa%:Vl$="LHy_d_w"
HD�Sa%:Vl$="RHy_d_w"
HF�Ua%:Vl$="cf_w"
HH�Va%:Vl$="t_d_w"
HJ�Wa%:Vl$="t_w"
HL�Ya%:Vl$="xa_e_w"
HN�Za%:Vl$="ya_e_w"
HP?�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Vl$="e_w"
HR�aa%:Vl$="e_g_w"
HT�ba%:Vl$="tr_w"
HV�ca%:Vl$="f_w"
HX�da%:Vl$="tm_w"
HZ�ea%:Vl$="a_w"
H\�fa%:Vl$="cfc_w"
H^�ga%:Vl$="ms_w"
H`�ha%:Vl$="e_u_w"
Hb�ia%:Vl$="s_e_w"
Hd�ja%:Vl$="df_s_w"
Hf�la%:Vl$="p_tf_s_w"
Hh�na%:Vl$="p_pf_s_w"
Hj0�:Ci$=�Wl(Vl$+�(X_%!36)):�Ci$=""�Ci$=�Wl("")
Hp=Ci$
HtݤWl(Xl$):=�Yl(Xl$,"","")
HzQݤYl(Xl$,Zl$,al$):�F%,L%:ș398594,ah%,Xl$,p`%,256,Zl$,al$�,,,L%;F%:�F%�1�L%=0
H�p`%?L%=13:=$p`%
H��ݤgb(sh%,Sl%,Ll%,Ml%,Nl%,Ol%,bl%,cl%,dl%):!X_%=sh%:X_%!4=Sl%:ș262340,,X_%:el%=�Ja(sh%,Ll%,Ml%,Nl%,Ol%,bl%,"",cl%,dl%,21):ș262353,sh%,Ll%,Ml%,Ll%+Nl%,Ml%+Ol%:=el%
H�Hݤfl(sh%,gl%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:hl%=�($(X_%!28)):=hl%
H�Kݤil(sh%,gl%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:hl%=10*�($(X_%!28)):=hl%
H�(ݤsi(si,jl%):�si>jl%-200�:si=jl%-200
H��si<jl%-700�:si=jl%-700
H�=si
H�5ݤti(si%,jl%,s%):�si%>=jl%-200�si%<=jl%-700�:s%=0
H�=s%
H�8ݤkl(ll,xi,ml,nl):ol%=0:�ll>=nl�ll<=ml�ll>xi�:ol%=-1
H�=ol%
H�8ݤpl(ll,xi,ml,nl):ol%=0:�xi>=nl�xi<=ml�xi<ll�:ol%=-1
H�=ol%
H�/ݤRg:ol%=0:�kl(af%,1990,2150,1990)�:ol%=-1
H�=ol%
H�Gݤag:ol%=0:�kl(ef%,ff%,5000,-1000)��pl(ef%,ff%,5000,-1000)�:ol%=-1
H�=ol%
H�}ݤdg:�kl(yd%(Ie%),-1,100,0)��kl(_d%(Ie%),-1,100,0)��kl(Ae%(Ie%),-1,100,0)��kl(Ce%(Ie%),-1,100,0)��kl(Ee%(Ie%),-1,100,0)�
H�+�kl(Ie%,-1,5,0)��kl(Ke%(Ie%),0,cg%,1)�
H�
ol%=-1
H��
H��:ol%=0
H�?�:�yd%(Ie%)+_d%(Ie%)+Ae%(Ie%)+Ce%(Ie%)+Ee%(Ie%)<>100�:ol%=0
I=ol%
I[ݤqg:ol%=0:�kl(Me%(We%),-1,999900,0)��kl(Se%(We%),-1,100,0)��kl(Ue%(We%),-1,999900,0)�
I
2�kl(We%,-1,5,0)��kl(Ye%(We%),0,cg%,0)�:ol%=-1
I
�:=ol%
Ipݤhg:ol%=0:�kl(de%(be%),-101,10,-100)��kl(he%(be%),-1,100,0)��kl(je%(be%),-1,100,0)��kl(le%(be%),-1,100,0)�
I3�kl(be%,-1,5,0)��kl(fe%(be%),-1,cg%,0)�:ol%=-1
I
�:=ol%
I |ݤjg:�kl(ne%(xe%),-1,100,0)��kl(pe%(xe%),-1,100,0)��kl(re%(xe%),-1,100,0)��kl(te%(xe%),-1,100,0)��kl(ze%(xe%),0,cg%,1)�
I%�:ol%=0
I(6�:�ne%(xe%)+pe%(xe%)+re%(xe%)+te%(xe%)<>100�:ol%=0
I*=ol%
I.>ݤlg:ol%=0:�kl(`e%(Df%),-1,999,0)��kl(Bf%(Df%),-1,999,0)�
I49�(�kl(Df%,0,5,0)��kl(Ff%(Df%),0,cg%,0))�Df%=0�:ol%=-1
I6
�:=ol%
I<@ݤmg:ol%=0:�kl(Hf%(Lf%),-1,50000,0)��kl(Jf%(Lf%),-1,999,0)�
IB9�(�kl(Lf%,0,5,0)��kl(Nf%(Lf%),0,cg%,0))�Lf%=0�:ol%=-1
ID
�:=ol%
IJUݤog:ol%=0:�kl(Pf%(Vf%),-1,999,0)��kl(Rf%(Vf%),-1,999,0)��kl(Tf%(Vf%),-1,999,0)�
IP1�kl(Vf%,0,5,0)��kl(Xf%(Vf%),0,cg%,0)�:ol%=-1
IR
�:=ol%
IX+ݤsg:ol%=0:�kl(kf%(of%),-101,10,-100)�
I^2�kl(of%,0,5,0)��kl(mf%(of%),-1,cg%,0)�:ol%=-1
I`
�:=ol%
If.ݤJj(hl,Jj%):�-1000<hl�hl<=-100�:ql%=5+Jj%
Ij�-100<hl�hl<=-10�:ql%=4+Jj%
Il�-10<hl�hl<0�:ql%=3+Jj%
In�0<=hl�hl<10�:ql%=2+Jj%
Ip�10<=hl�hl<100�:ql%=3+Jj%
Ir�100<=hl�hl<1000�:ql%=4+Jj%
It!�1000<=hl�hl<10000�:ql%=5+Jj%
Iv#�10000<=hl�hl<100000�:ql%=6+Jj%
Ix%�100000<=hl�hl<1000000�:ql%=7+Jj%
Iz=ql%
I~AݤJh(Vl%,gl%):�hl%:hl%=�fl(Vl%,gl%):�-1000<hl�hl<=-100�:rl%=4
I��-100<hl�hl<=-10�:rl%=3
I��-10<hl�hl<0�:rl%=2
I��0<=hl%�hl%<10�:rl%=1
I��10<=hl%�hl%<100�:rl%=2
I��100<=hl%�hl%<1000�:rl%=3
I��1000<=hl%�hl%<10000�:rl%=4
I�!�10000<=hl%�hl%<100000�:rl%=5
I�#�100000<=hl%�hl%<1000000�:rl%=6
I�=rl%
I�ݤXk(sh%):Ȏsh%�
I��A`%(1):n%=1
I��A`%(2):n%=2
I��A`%(3):n%=3
I��A`%(4):n%=4
I��A`%(5):n%=5
I��A`%(6):n%=6
I��A`%(7):n%=7
I�	�:=n%
I�Cݤsl(Ni%):ș262373,,M`%:tl%=!(M`%+4*Ni%):tl%=tl%�&FFFFFF00:=tl%
I�bݤnb(p%):�rl%,u`$,ul$:u`$="          ":rl%=�(�(p%)):rl%=9-rl%:ul$=�u`$,rl%):Hb$=ul$+�(p%):=Hb$
I�:ݤki(Ri):vl=�(�((239.75+1.933*Ri)/(0.62*5.67E-8))):=vl
I�8ݤli(Ri):vl=�(�((239.75+1.3*Ri)/(0.62*5.67E-8))):=vl
I�:ݤmi(Ri):vl=�(�((239.75+0.885*Ri)/(0.62*5.67E-8))):=vl
J`��Id(�Hh%,�Gh%,wl%,xl%):Hh%=�fl(Va%,13)-1750:�Hh%>wl%�Hh%<=xl%�:Hh%=wl%:�fb(Va%,13,Hh%+1750)
JHGh%=�fl(Va%,17)-1750:�Gh%>=wl%�Gh%<xl%�:Gh%=xl%:�fb(Va%,17,Gh%+1750)
J�Gh%>=Hh%�
J=Hh%=wl%:Gh%=xl%:�fb(Va%,13,Hh%+1750):�fb(Va%,17,Gh%+1750)
JE�:�(Hh%<>340�Hh%<>350�Hh%<>400)�(Gh%<>0�Gh%<>100�Gh%<>240)�:Wb%=0
J�
JF��Pd(�Fh%,�Hh%,�Gh%,wl%,xl%):Fh%=�fl(Qa%,14):�Fh%>=25�Fh%<=0�Fh%=3
J$.Hh%=�il(Qa%,19):�Hh%>wl%�Hh%<=xl%�:Hh%=wl%
J(.Gh%=�il(Qa%,23):�Gh%>=wl%�Gh%<xl%�:Gh%=xl%
J,�yl(Fh%,Hh%,Gh%):�
J2F��Rd(�Fh%,�Hh%,�Gh%,wl%,xl%):Fh%=�fl(Sa%,14):�Fh%>=25�Fh%<=0�Fh%=3
J8&Hh%=�fl(Sa%,19):�Hh%>wl%�Hh%<=xl%�
J<Hh%=wl%:�fb(Sa%,19,Hh%)
J@(�:Gh%=�fl(Sa%,23):�Gh%>=wl%�Gh%<xl%�
JFGh%=xl%:�fb(Sa%,23,Gh%)
JJ�:�Gh%>=Hh%�
JN3Hh%=wl%:Gh%=xl%:�fb(Sa%,19,Hh%):�fb(Sa%,23,Gh%)
JR�:�
JX.��Bc(sh%,gl%,zl%):�zl%<1000�Hb$=��(zl%),3)
J\�zl%<100�Hb$=" "+��(zl%),2)
J^�zl%<10�Hb$=" 0"+��(zl%),1)
J`c!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$(X_%!28)=�Hb$,2)+"."+�Hb$,1):X_%!8=0:X_%!12=0:ș262349,,X_%:�
JnH��_l(sh%,gl%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:hl%=10*�($(X_%!28)):�
JzG��yl(Fh%,Hh%,Gh%):�fb(Qa%,14,mb%):�Bc(Qa%,19,ob%):�Bc(Qa%,23,qb%):�
J�G��`l(Fh%,Hh%,Gh%):�fb(Sa%,14,Fh%):�fb(Sa%,19,Hh%):�fb(Sa%,23,Gh%):�
J���Kb:ȎDc%�
J�=�1:Am$="CO2":Bm$="(ppmv)":Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%
J�=�2:Am$="CH4":Bm$="(ppbv)":Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%
J�@�3:Am$="CFC":Bm$="(pptv)":Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0)
J�=�4:Am$="N2O":Bm$="(ppmv)":Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%
J�\�:�zc(Sa%,17,"Conc. "+Bm$):�wd(Sa%,Ta%,Am$+" display parameters"):�Cc(Sa%,11,Oc%):Ȏhb%�
J��1:mb%=nb%:ob%=pb%:qb%=rb%
J��2:mb%=zb%:ob%=_b%:qb%=`b%
J��:�(oc%�yb%)�
J�
Ȏrc%�
J�7�1,2:Dc$="Excess "+Am$+" "+Bm$:�zc(Ma%,28,Dc$+" :")
J�5�3:Dc$=Am$+" conc. "+Bm$:�zc(Ma%,28," "+Dc$+" :")
J��
J��:�zc(Ma%,28," ")
J�#�:�`l(Ic%,Kc%,Mc%):�(oc%�Hc%)�
J�
Ȏhb%�
J�
�1:Ȏrc%�
J�H�1,2:hb$="Excess Temperature (�C)":�zc(Ma%,27,"Excess temp. (�C) :")
J�G�3:hb$="Surface Temperature (�C)":�zc(Ma%,27," Temperature (�C) :")
J�Y�:�zc(Qa%,17,"Scale (�C)"):�wd(Qa%,Ra%,"Temperature display"):sb%=tb%:�Cc(Qa%,11,sb%)
J�
�2:Ȏrc%�
J�F�1,2:hb$="Excess Forcing (Wm-2)":�zc(Ma%,27," Forcing (Wm-2)   :")
J�G�3:hb$="Radiative Forcing (Wm-2)":�zc(Ma%,27," Forcing (Wm-2)   :")
Ka�:�zc(Qa%,17,"Scale (Wm-2)"):�wd(Qa%,Ra%,"Radiative forcing display"):sb%=Ac%:�Cc(Qa%,11,sb%)
K�:�yl(mb%,ob%,qb%)
K�:�zc(Ma%,27," ")
K�:�
KV��Hd(Vl%,Cm%,Dm%,hl%,�hl%,Em%,Fm%,Gm%,Hm%):�Qb(Vl%,Dm%):�hl%<=Em%-Fm%�:hl%=hl%+Fm%
K$
ȎHm%�
K&�1:�fb(Vl%,Cm%,hl%+Gm%)
K*�10:�Bc(Vl%,Cm%,hl%+Gm%)
K.�:�Qb(Vl%,Dm%):�
K6V��Gd(Vl%,Cm%,Im%,hl%,�hl%,Em%,Fm%,Gm%,Hm%):�Qb(Vl%,Im%):�hl%>=Em%+Fm%�:hl%=hl%-Fm%
K@
ȎHm%�
KB�1:�fb(Vl%,Cm%,hl%+Gm%)
KF�10:�Bc(Vl%,Cm%,hl%+Gm%)
KJ�:�Qb(Vl%,Im%):�
KR<��Ih(w%,Jm%,�ll%,xi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):ȎDj%�
KZ�1:ll%=�fl(w%,Jm%)-Gm%
K\�2:ll%=�il(w%,Jm%)-Gm%
K^;�:�ll%<=ml%�ll%>=nl%�ll%>xi%�:ș262354,Lm%,Km%,,,-1,Mm%
Kb�
Kf<��Kh(w%,Jm%,ll%,�xi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):ȎDj%�
Kn�1:xi%=�fl(w%,Jm%)-Gm%
Kp�2:xi%=�il(w%,Jm%)-Gm%
Kr;�:�xi%<=ml%�xi%>=nl%�xi%<ll%�:ș262354,Lm%,Km%,,,-1,Mm%
Kv�
Kz��Qg:af%=�fl(Ya%,4):�
K�(��Zg:ef%=�fl(Za%,3):ff%=�fl(Za%,8):�
K����xd:yd%(Ie%)=�fl(aa%,5):_d%(Ie%)=�fl(aa%,10):Ae%(Ie%)=�fl(aa%,15):Ce%(Ie%)=�fl(aa%,20):Ee%(Ie%)=�fl(aa%,25):Ie%=�fl(aa%,30):Ke%(Ie%)=�fl(aa%,41):�
K�m��pg:Me%(We%)=�fl(ha%,2):Se%(We%)=�fl(ha%,15):Ue%(We%)=�fl(ha%,21):We%=�fl(ha%,26):Ye%(We%)=�fl(ha%,30):�
K����gg:de%(be%)=�fl(ba%,3):he%(be%)=�fl(ba%,8):je%(be%)=�fl(ba%,13):le%(be%)=�fl(ba%,18):be%=�fl(ba%,23):fe%(be%)=�fl(ba%,27):�
K����ig:ne%(xe%)=�fl(fa%,4):pe%(xe%)=�fl(fa%,9):re%(xe%)=�fl(fa%,14):te%(xe%)=�fl(fa%,20):xe%=�fl(fa%,25):ze%(xe%)=�fl(fa%,29):�
K�W��kg:`e%(Df%)=�fl(ca%,3):Bf%(Df%)=�fl(ca%,8):Df%=�fl(ca%,12):Ff%(Df%)=�fl(ca%,16):�
K�W��x`:Hf%(Lf%)=�fl(ea%,3):Jf%(Lf%)=�fl(ea%,8):Lf%=�fl(ea%,12):Nf%(Lf%)=�fl(ea%,16):�
K�m��ng:Pf%(Vf%)=�fl(ga%,4):Rf%(Vf%)=�fl(ga%,10):Tf%(Vf%)=�fl(ga%,16):Vf%=�fl(ga%,21):Xf%(Vf%)=�fl(ga%,25):�
K�D��rg:kf%(of%)=�fl(ia%,16):of%=�fl(ia%,21):mf%(of%)=�fl(ia%,25):�
L��Sg:bf%=af%:�
L��bg:`c%=ef%:Ad%=ff%:�
L|6��tg:jf%()=if%():lf%()=kf%():pf%=of%:nf%()=mf%():�
L�X��Sh:ș263872:kh%=�($P`%):�#kh%,"Draw";:�Nm(201):�Nm(0):�#kh%,"CO2effect   ";:ȎEa%�
L�Y�Ma%:Om%=1280:Pm%=960:Qm%=0:Rm%=0:�Nm(Qm%):�Nm(Rm%):�Nm(256*Om%):�Nm(256*Pm%):�Sm:�Tm
L�T�aa%:Om%=706:Pm%=344:Qm%=0:Rm%=0:�Nm(Qm%):�Nm(Rm%):�Nm(256*Om%):�Nm(256*Pm%):�Sm
L�T�ba%:Om%=798:Pm%=300:Qm%=0:Rm%=0:�Nm(Qm%):�Nm(Rm%):�Nm(256*Om%):�Nm(256*Pm%):�Sm
L���A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Om%=640:Pm%=460:Qm%=0:Rm%=0:�Nm(Qm%):�Nm(Rm%):�Nm(256*Om%):�Nm(256*Pm%):�Sm:�Um
L�.�:�#kh%:�"SetType "+$P`%+" AFF":ș263873:�
L�9��Nm(Hj%):�Vm%:!U`%=Hj%:�Vm%=0�3:�#kh%,?(U`%+Vm%):�:�
L�E��Sm:�Nm(0):�Nm(24):�#kh%,1:�#kh%,"Trinity.Medium";:�#kh%,�(0);:�
L���Tm:�Fi%:Wm%=qc%:�oc%�
M�hb%=1�lb%�
Ma�Xm(t(),nb,rb%,ad%,nb%,�sl(tb%),10,273):�mc%�:Wm%=qc%+3:�Xm(t(),nb,rb%,ad%,nb%,�sl(7),10,273)
M�:�hb%=2�yb%�
M_�Xm(Ri(),zb,`b%,bd%,zb%,�sl(Ac%),10,0):�mc%�:Wm%=qc%+3:�Xm(Ri(),zb,`b%,bd%,zb%,�sl(7),10,0)
M�:�Dc%=1�Hc%�
M]�Xm(Si(),Jc,Nc%,cd%,Jc%,�sl(Qc%),1,0):�mc%�:Wm%=qc%+3:�Xm(Si(),Jc,Nc%,cd%,Jc%,�sl(7),1,0)
M"�:�Dc%=2�Vc%�
M&]�Xm(Ti(),Wc,Yc%,dd%,Wc%,�sl(Zc%),1,0):�mc%�:Wm%=qc%+3:�Xm(Ti(),Wc,Yc%,dd%,Wc%,�sl(7),1,0)
M*�:�Dc%=3�bc%�
M.
�nc%�
M0l�Ym(Ui(),cc,ec%(0),ed%(0),cc%,�sl(fc%(0)),1,0):�mc%�:Wm%=qc%+3:�Ym(Ui(),cc,ec%(0),ed%(0),cc%,�sl(7),1,0)
M4n�:�Ym(Ui(),cc,ec%(1),ed%(1),cc%,�sl(fc%(1)),1,1):�mc%�:Wm%=qc%+3:�Ym(Ui(),cc,ec%(1),ed%(1),cc%,�sl(7),1,1)
M:l�Ym(Ui(),cc,ec%(2),ed%(2),cc%,�sl(fc%(2)),1,2):�mc%�:Wm%=qc%+3:�Ym(Ui(),cc,ec%(2),ed%(2),cc%,�sl(7),1,2)
M>l�Ym(Ui(),cc,ec%(3),ed%(3),cc%,�sl(fc%(3)),1,3):�mc%�:Wm%=qc%+3:�Ym(Ui(),cc,ec%(3),ed%(3),cc%,�sl(7),1,3)
MB�
MD�:�Dc%=4�hc%�
MH]�Xm(Yi(),ic,kc%,fd%,ic%,�sl(lc%),1,0):�mc%�:Wm%=qc%+3:�Xm(Yi(),ic,kc%,fd%,ic%,�sl(7),1,0)
ML�
MN�:�yb%��Hc%�
MR
�nc%�
MT�Zm(�sl(fc%(0)),4)
MV>�:�Zm(�sl(fc%(3)),7):�Zm(�sl(fc%(2)),6):�Zm(�sl(fc%(1)),5)
MZ;�:�Zm(�sl(lc%),3):�Zm(�sl(Zc%),2):�Zm(�sl(Qc%),1):�mc%�
M`Wm%=qc%+3:�nc%�
Md�Zm(�sl(7),4)
Mf/�:�Zm(�sl(7),7):�Zm(�sl(7),6):�Zm(�sl(7),5)
Mj/�:�Zm(�sl(7),3):�Zm(�sl(7),2):�Zm(�sl(7),1)
Mn�
Mp�:�Hc%��yb%�
Mt
�nc%�
Mv�am(�sl(fc%(0)),4)
Mx>�:�am(�sl(fc%(3)),7):�am(�sl(fc%(2)),6):�am(�sl(fc%(1)),5)
M|;�:�am(�sl(lc%),3):�am(�sl(Zc%),2):�am(�sl(Qc%),1):�mc%�
M�Wm%=qc%+3:�nc%�
M��am(�sl(7),4)
M�/�:�am(�sl(7),7):�am(�sl(7),6):�am(�sl(7),5)
M�/�:�am(�sl(7),3):�am(�sl(7),2):�am(�sl(7),1)
M��
M��
M���:�bm(2,26,Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,1,&0):�dm(2,140,160+100):�dm(8,140,160+600):�dm(8,1140,160+600):�dm(8,1140,160+100):�dm(8,140,160+100):�dm(0,0,0):�bm(1,15,Om%,Pm%,Qm%,Rm%)
M�J�em(&00000000,&FFFFFF00,1,16,16,590,160+10,"Year",0):�Fa%=&A3�Fa%=&A4�
M�	�kb%�
M��fm%=�((�(hb$))/4)+1:�bm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:�em(&00000000,&FFFFFF00,1,14,14,30,160+195,hb$,-1)
M��:�Gc%�
MԄfm%=�((�(Dc$))/4)+1:�bm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=-65536:C`%!8=65536:�em(&00000000,&FFFFFF00,1,14,14,1250,160+500,Dc$,-1)
M��
M�l�:�gm(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%):�(oc%��yb%)�
M�
Ȏhb%�
M�b�1:�lb%�:�hm(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%)
Nb�2:�yb%�:�hm(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%)
N�
N�:�(oc%��Hc%)�
N
ȎDc%�
Nd�1:�Hc%�:�hm(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%)
Ne�2:�Vc%�:�hm(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%)
N g�3,5:�bc%�:�hm(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%)
N$e�4:�hc%�:�hm(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%)
N(�
N*�:Fi%=0:�oc%�
N4
Ȏhb%�
N6.�1:�lb%�:�im(Fi%,tb%,"Temperature"):Fi%+=3
N84�2:�yb%�:�im(Fi%,Ac%,"Radiative forcing"):Fi%+=3
N:�:ȎDc%�
N>4�1:�Hc%�:�im(Fi%,Qc%,"CO2 concentration"):Fi%+=1
N@4�2:�Vc%�:�im(Fi%,Zc%,"CH4 concentration"):Fi%+=1
NB4�4:�hc%�:�im(Fi%,lc%,"N2O concentration"):Fi%+=1
ND�3:�bc%�
NH
�nc%�
NJ/�im(Fi%,fc%(0),"CFCs concentration"):Fi%+=1
NL��:�im(Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:�im(Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:�im(Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1
NT�
NV�
NX�
NZZ�:�im(Fi%,Qc%,"CO2"):Fi%+=1:�im(Fi%,Zc%,"CH4"):Fi%+=1:�im(Fi%,lc%,"N2O"):Fi%+=1:�nc%�
Nd!�im(Fi%,fc%(0),"CFCs"):Fi%+=1
Nff�:�im(Fi%,fc%(1),"CFC-11"):Fi%+=1:�im(Fi%,fc%(2),"CFC-12"):Fi%+=1:�im(Fi%,fc%(3),"HCFC-22"):Fi%+=1
Nn�
Np�:�
Nv���im(n%,c%,Hb$):�Mi%,Ni%,x%,y%:Mi%=n%�3:Ni%=�(n%/3):x%=140+Ni%*400:y%=110-Mi%*40:�bm(2,26,Om%,Pm%,Qm%,Rm%):�cm(�sl(c%),&00000000,0.25,&8):�dm(2,x%,y%):�dm(8,x%,y%+20):�dm(8,x%+20,y%+20):�dm(8,x%+20,y%):�dm(8,x%,y%):�dm(0,0,0)
N�gfm%=�((�(Hb$))/4)+1:�bm(1,13+fm%,Om%,Pm%,Qm%,Rm%):�em(&00000000,&FFFFFF00,1,14,14,x%+40,y%,Hb$,0):�
N�R��Um:�Hb$,rl%,jm%,fm%,Gj%,Li%,Xk%,Hj%:Xk%=�Xk(Ea%):�dk(Ea%,Gj%,Li%,Hj%):ȎEa%�
N�$�A`%(1):�km(x%,y%,�sl(Qc%),gi())
N�$�A`%(2):�km(x%,y%,�sl(Zc%),hi())
N�$�A`%(3):�km(x%,y%,�sl(lc%),ji())
N�)�A`%(4):�lm(x%,y%,�sl(fc%(1)),ii(),1)
N�)�A`%(5):�lm(x%,y%,�sl(fc%(2)),ii(),2)
N�)�A`%(6):�lm(x%,y%,�sl(fc%(3)),ii(),3)
N�)�A`%(7):�lm(x%,y%,�sl(fc%(0)),ii(),0)
N���:fm%=�((�(B`$(Xk%,ld%)))/4)+1:�bm(1,13+fm%,Om%,Pm%,Qm%,Rm%):�em(&00000000,&FFFFFF00,1,16,16,350-(500/58)*�(B`$(Xk%,ld%)),420,B`$(Xk%,ld%),0):�bm(2,27,Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,1,&0):�dm(2,100,100)
N��dm(8,100,400):�dm(8,600,400):�dm(8,600,100):�dm(8,100,100):�dm(5,0,0):�dm(0,0,0):�bm(1,15,Om%,Pm%,Qm%,Rm%):�em(&00000000,&FFFFFF00,1,14,14,300,20,"Year",0):�Fa%=&A3�Fa%=&A4�
N���ak(Ea%):fm%=�((�(bk$))/4)+1:�bm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:�em(&00000000,&FFFFFF00,1,12,12,25,230-5*�(bk$),bk$,-1)
OZ�:�gm(x%,y%,Tg%,100,100,500,300,10,0.5,0.25,ck,Wg%,Xg%,Yg,1,-25,-32,10,4,-1,df%):�Zf%�
O&U�hm(x%,y%,Ad%,100,100,500,300,10,0.5,0.25,ek,td%,ud%,vd,1,-75,-7,10,Gj%,-1,0,hf%)
O(s�:�hm(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%)
O,�:�
O4G��Xm(y(),s,jh%,e%,s%,Ni%,Dj%,Lj%):�mm%,ch:�mc%�Wm%<4�mm%=Ni%�mm%=-1
OB
�mc%�
OH
ȎWm%�
OJ/�1:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
OL/�2:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
ON.�3:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
OP�
OR�:ȎWm%�
OV3�1,2,3:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
OX�4:�
OZ/�5:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O\.�6:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O^�
O`��:�cm(mm%,Ni%,0.25,&0):�nm%=bb%�Tb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%)-Lj%-(jh%+e%)/Dj%):�nm%=bb%�:Vj=Uj
Op:�pm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:�nm%:�dm(0,0,0):�
O~G��Ym(y(),s,jh%,e%,s%,Ni%,Dj%,Yj%):�mm%,ch:�mc%�Wm%<4�mm%=Ni%�mm%=-1
O�
�mc%�
O�
ȎWm%�
O�/�1:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�/�2:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�.�3:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��
O��:ȎWm%�
O�3�1,2,3:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��4:�
O�/�5:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�.�6:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��
O���:�cm(mm%,Ni%,0.25,&0):�nm%=bb%�Tb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%,Yj%)-(jh%+e%)/Dj%):�nm%=bb%�:Vj=Uj
O�:�pm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:�nm%:�dm(0,0,0):�
O�1��Zm(Ni%,n%):�s,mm%:�mc%�Wm%<4�mm%=Ni%�mm%=-1
O�s=500*zb:�mc%�
O�
ȎWm%�
O�/�1:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�/�2:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�.�3:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��
O��:ȎWm%�
O�3�1,2,3:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��4:�
O�/�5:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O�.�6:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
O��
O���:�cm(mm%,Ni%,0.25,&0):�nm%=bb%�Tb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*10*ai(nm%):Wj(1)=s*gd%:�n%>1�:Uj(2)=Uj(1)+s*10*bi(nm%):Wj(2)=Wj(1)+s*hd%
P5�n%>2�:Uj(3)=Uj(2)+s*10*ci(nm%):Wj(3)=Wj(2)+s*id%
P
:�n%>3�:Uj(4)=Uj(3)+s*10*di(nm%,0):Wj(4)=Wj(3)+s*jd%(0)
P(�n%>4�:�nc%�:Uj(4)=Uj(3):Wj(4)=Wj(3)
P:�n%>4�:Uj(5)=Uj(3)+s*10*di(nm%,1):Wj(5)=Wj(3)+s*jd%(1)
P:�n%>5�:Uj(6)=Uj(5)+s*10*di(nm%,2):Wj(6)=Wj(5)+s*jd%(2)
P:�n%>6�:Uj(7)=Uj(6)+s*10*di(nm%,3):Wj(7)=Wj(6)+s*jd%(3)
P2Wj()+=s*`b%:Uj()=Uj()-Wj():�nm%=bb%�:Vj()=Uj()
P[�pm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),zb%,Uj(n%),Uj(n%-1)):Vj()=Uj():�nm%:�dm(0,0,0):�
P&1��am(Ni%,n%):�s,mm%:�mc%�Wm%<4�mm%=Ni%�mm%=-1
P2s=500*Jc:�mc%�
P:
ȎWm%�
P</�1:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
P>/�2:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
P@.�3:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
PB�
PD�:ȎWm%�
PH3�1,2,3:�bm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
PJ�4:�
PL/�5:�bm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
PN.�6:�bm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
PP�
PR��:�cm(mm%,Ni%,0.25,&0):�nm%=bb%�Tb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*Si(nm%):Wj(1)=0:�n%>1�:Uj(2)=Uj(1)+s*(277*�(bi(nm%)/6.3)-277):Wj(2)=Wj(1)+s*(277*�(hd%/63)-277)
PdS�n%>2�:Uj(3)=Uj(2)+s*(277*�(ci(nm%)/6.3)-277):Wj(3)=Wj(2)+s*(277*�(id%/63)-277)
PfX�n%>3�:Uj(4)=Uj(3)+s*(277*�(di(nm%,0)/6.3)-277):Wj(4)=Wj(3)+s*(277*�(jd%(0)/63)-277)
Ph(�n%>4�:�nc%�:Uj(4)=Uj(3):Wj(4)=Wj(3)
PjX�n%>4�:Uj(5)=Uj(3)+s*(277*�(di(nm%,1)/6.3)-277):Wj(5)=Wj(3)+s*(277*�(jd%(1)/63)-277)
PlX�n%>5�:Uj(6)=Uj(5)+s*(277*�(di(nm%,2)/6.3)-277):Wj(6)=Wj(5)+s*(277*�(jd%(2)/63)-277)
PnX�n%>6�:Uj(7)=Uj(6)+s*(277*�(di(nm%,3)/6.3)-277):Wj(7)=Wj(6)+s*(277*�(jd%(3)/63)-277)
Pp8e%()+=s*(Nc%+cd%):Uj()=Uj()-Wj():�nm%=bb%�:Vj()=Uj()
Pv[�pm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),Jc%,Uj(n%),Uj(n%-1)):Vj()=Uj():�nm%:�dm(0,0,0):�
P�K��pm(om,qm,rm,sm,tm,lh%,�qm,�rm):�ri:�(om-140)<0.001�ri=0�ri=(1000*Hi)
P�Fqm=�si(qm,960):rm=�si(rm,960):sm=�si(sm,960):tm=�si(tm,960):�mc%�
P�
ȎWm%�
P���1:�dm(2,om-�ti(qm,960,lh%),qm-�ti(qm,960,lh%)):�dm(8,om+�ti(qm,960,lh%),qm-�ti(qm,960,lh%)):�dm(8,om+�ti(qm,960,lh%),qm+�ti(qm,960,lh%)):�dm(8,om-�ti(qm,960,lh%),qm+�ti(qm,960,lh%))
P�0�dm(8,om-�ti(qm,960,lh%),qm-�ti(qm,960,lh%))
P�z�2:�dm(2,om-�ti(qm,960,lh%),qm):�dm(8,om+�ti(qm,960,lh%),qm):�dm(2,om,qm-�ti(qm,960,lh%)):�dm(8,om,qm+�ti(qm,960,lh%))
P��3:�nm%=bb%�:�dm(2,om,qm)
P��dm(8,om,qm)
P��
P��:ȎWm%�
P�T�1,2,3:�dm(2,om-ri,tm):�dm(8,om-ri,sm):�dm(8,om,qm):�dm(8,om,rm):�dm(2,om-ri,tm)
P��4
P�z�5:�dm(2,om-�ti(qm,960,lh%),qm):�dm(8,om+�ti(qm,960,lh%),qm):�dm(2,om,qm-�ti(qm,960,lh%)):�dm(8,om,qm+�ti(qm,960,lh%))
P��6:�nm%=bb%�:�dm(2,om,qm)
P��dm(8,om,qm)
P��
P��:�
P�C��um(om,Uj,Vj,lh%,vm%,�y):�ri:�(x-140)<0.001�ri=0�ri=(1000*Hi)
P��nc%�ui%=7�ui%=4
P�D�M%=1�ui%:Uj(M%)=�si(Uj(M%),960):wm-xm(M%)=�si(Vj(M%),960):�M%:�
P���km(x%,y%,Ni%,fk()):�hk,ik:�bm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):�cm(-1,Ni%,0.5,&0):ik=ek*300:�fk(0,ld%)>0�jk=fk(0,ld%)�jk=1
Qw�dm(2,100,100+ik*(100*fk(0,ld%)/jk-Ad%)):�nm%=1�(bf%-1990):hk=ik*(100*fk(nm%,ld%)/jk-Ad%):�hk>300�hk=300��hk<0�hk=0
Q/�dm(8,100+500*ck*nm%,100+hk):�:�dm(0,0,0):�
Q ���lm(x%,y%,Ni%,fk(),Ui%):�gk,hk,ik:�bm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):�cm(-1,Ni%,0.5,&0):ik=ek*300:�fk(0,Ui%,ld%)>0�jk=fk(0,Ui%,ld%)�jk=1
Q8�dm(2,100,100+ik*(100*fk(0,Ui%,ld%)/jk-Ad%)):�nm%=1�(bf%-1990):hk=ik*(100*fk(nm%,Ui%,ld%)/jk-Ad%):�hk>300�hk=300��hk<0�hk=0
Q@/�dm(8,100+500*ck*nm%,100+hk):�:�dm(0,0,0):�
QL���gm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Aj%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Gj%,Hj%,Ki%):�Hb$:�bm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,zm,&0):�X%=0�Bj%:�dm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%-ym%)
Q�9�dm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%):�X%:�dm(0,0,0):�Ki%�
Q���bm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,_m,&80):�Nm(256*5):�Nm(1):�Nm(256*5):�X%=0�Bj%:�dm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%):�dm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%+`i%):�X%:�dm(0,0,0)
Q���:�X%=0�Bj%:Hb$=�(�((xi%+Aj%+Cj*X%)/Dj%)):�bm(1,15,Om%,Pm%,Qm%,Rm%):�em(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%+_i%*s*(Aj%+Cj*X%),zi%+Fj%,Hb$,0):�X%:�
Q����hm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Ij%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Jj%,Hj%,Kj%,Ki%):�Hb$:�bm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,zm,&0):�Y%=0�Bj%:�dm(2,yi%-ym%-2*ym%*Kj%,zi%+`i%*s*(Ij%+Cj*Y%))
R$7�dm(8,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):�:�dm(0,0,0):�Ki%�
R0��bm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):�cm(-1,&00000000,_m,&80):�Nm(256*5):�Nm(1):�Nm(256*5):�Y%=0�Bj%:�dm(2,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):�dm(8,yi%+_i%,zi%+`i%*s*(Ij%+Cj*Y%)):�:�dm(0,0,0)
RP�:�Y%=0�Bj%:�Hj%�
R\%Hb$=" "+�(�((xi%+Ij%+Cj*Y%)/Dj%))
R^,�:�(xi%+Ij%+Cj*Y%)>=0�Lj=0.001�Lj=-0.001
RbDHb$=" "+��((xi%+Ij%+Cj*Y%)/Dj%+Lj),�Jj((xi%+Ij%+Cj*Y%)/Dj%,Jj%))
Rd(�:�(xi%+Ij%+Cj*Y%)<=0.001�:Hb$="0 "
Rhfm%=�((�(Hb$))/4)+1:�Hj%�
Rl0Ej%=(Kj%+1)*(-2*ym%-`m%*�(Hb$))-1.25*Kj%*ym%
Rn8�:Ej%=(Kj%+1)*(-2*ym%-`m%*�(Hb$)+`m%/2)-1.25*Kj%*ym%
Rrp�:�bm(1,13+fm%,Om%,Pm%,Qm%,Rm%):�em(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%,zi%+Fj%+`i%*s*(Ij%+Cj*Y%),Hb$,0):�
R~�:�
R�(��dm(An%,x,y):�Nm(An%):�An%=2�An%=8�
R��Nm(256*x):�Nm(256*y)
R��:�
R�<��em(Bn%,Cn%,Dn%,En%,Fn%,Gn%,Hn%,Hb$,In%):�rl%,jm%:�In%�
R�O�Nm(C`%!0):�Nm(C`%!4):�Nm(C`%!8):�Nm(C`%!12):�Nm(C`%!16):�Nm(C`%!20):�Nm(0)
R���:�Nm(Bn%):�Nm(Cn%):�Nm(Dn%):�Nm(640*En%):�Nm(640*Fn%):�Nm(256*Gn%):�Nm(256*Hn%):�#kh%,Hb$;:rl%=�(Hb$):jm%=rl%�4:ȕjm%<4:�#kh%,�(0);:jm%+=1:�:�
R�k��bm(Jn%,lh%,Kn%,Ln%,Mn%,Nn%):�Nm(Jn%):�Nm(4*lh%):�Nm(256*Mn%):�Nm(256*Nn%):�Nm(256*Kn%):�Nm(256*Ln%):�
R�A��cm(On%,Pn%,Qn,Ca%):�Nm(On%):�Nm(Pn%):�Nm(640*Qn):�Nm(Ca%):�
Sc��Pb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:ș262350,,X_%:X_%!8=&00200000:X_%!12=&00200000:ș262349,,X_%:�
S[��Rb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:ș262350,,X_%:X_%!8=0:X_%!12=&00200000:ș262349,,X_%:�
S&[��Qb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:ș262350,,X_%:X_%!8=&00200000:X_%!12=0:ș262349,,X_%:�
S8u��Cc(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:X_%!8=&00000000:X_%!11=16*Ni%:X_%!12=&F0000000:ș262349,,X_%:�
SFr��Rn(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:X_%!8=&00000000:X_%!12=&0F000000:X_%!11=Ni%:ș262349,,X_%:�
SVh��fb(sh%,gl%,Hb%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$(X_%!28)=�(Hb%):X_%!8=0:X_%!12=0:ș262349,,X_%:�
Sje��zc(sh%,gl%,Hb$):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$(X_%!28)=Hb$:X_%!8=0:X_%!12=0:ș262349,,X_%:�
S~E��Sn(sh%,gl%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:hl%=�($(X_%!28)):�
S�G��ug(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$Dd%=$(X_%!28):�
S�H��Rh(sh%,gl%,Dd%,Tn%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$(Tn%)=$Dd%:�
S�T��wa(Un%,Vn%):�Oh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%�&00000001:!(Un%+28+24*Vn%)=Oh%:�
S�T��xa(Un%,Vn%):�Oh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%�&FFFFFFFE:!(Un%+28+24*Vn%)=Oh%:�
S�T��qa(Un%,Vn%):�Oh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%�&00400000:!(Un%+36+24*Vn%)=Oh%:�
S�T��zg(Un%,Vn%):�Oh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%�&FFBFFFFF:!(Un%+36+24*Vn%)=Oh%:�
S�y��xg(Un%,Wn%,Xn%,Yn%):ș262351,,X_%:X_%!0=X_%!12:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:ș262351,,X_%:�Yn%�
TCh%=X_%!0+Wn%:Dh%=X_%!4+Xn%
TN�:Dh%=X_%!4+Xn%:X_%!0=X_%!12:X_%!4=X_%!16:ș262350,,X_%:Ch%=Nb%+X_%!16+Wn%
T�:ș262356,,Un%,Ch%,Dh%:�
T$���pa(Un%):�Zn$,an%:$Un%=Zn$:bn%=(�(Zn$)-2)*16:Un%!12=&70207:Un%!20=44:Un%!24=0:Ul%=Un%+28:�i%=1�an%:�cn%,dn%,Vn$:!Ul%=cn%:Ul%!4=dn%:Ul%!8=&7000021:�Un%=G`%�Ul%!11=&7+16*(i%-1)
T81$(Ul%+12)=Vn$:a%=(�(Vn$)+1)*16:�a%>bn% bn%=a%
T>Ul%+=24:�i%:Un%!16=bn%:�
THF��Uh:�ch$:en%=R`%:ș263872:kh%=�($en%):�#kh%,ch$:�ch$="CO2effect"�
T^��M%=0�5:�#kh%,zd%(M%):�#kh%,`d%(M%):�#kh%,Be%(M%):�#kh%,De%(M%):�#kh%,Fe%(M%):�#kh%,Le%(M%):�#kh%,He%(M%,1):�#kh%,He%(M%,2):�#kh%,He%(M%,3):�#kh%,He%(M%,4):�#kh%,ee%(M%):�#kh%,ie%(M%):�#kh%,ke%(M%):�#kh%,me%(M%):�#kh%,ge%(M%)
T���#kh%,Ne%(M%):�#kh%,Pe%(M%):�#kh%,Re%(M%):�#kh%,Te%(M%):�#kh%,Ve%(M%):�#kh%,Ze%(M%):�#kh%,Af%(M%):�#kh%,Cf%(M%):�#kh%,Gf%(M%):�#kh%,If%(M%):�#kh%,Kf%(M%):�#kh%,Of%(M%):�#kh%,oe%(M%):�#kh%,qe%(M%):�#kh%,se%(M%):�#kh%,ue%(M%)
T�Y�#kh%,we%(M%):�#kh%,_e%(M%):�#kh%,Qf%(M%):�#kh%,Sf%(M%):�#kh%,Uf%(M%):�#kh%,Yf%(M%):�
T��:�#kh%:ș263873:�
T����Th:ș263872:kh%=�($Q`%):�#kh%,"CO2effect":�M%=0�5:�#kh%,zd%(M%):�#kh%,`d%(M%):�#kh%,Be%(M%):�#kh%,De%(M%):�#kh%,Fe%(M%):�#kh%,Le%(M%):�#kh%,He%(M%,1):�#kh%,He%(M%,2):�#kh%,He%(M%,3):�#kh%,He%(M%,4):�#kh%,ee%(M%)
T���#kh%,ie%(M%):�#kh%,ke%(M%):�#kh%,me%(M%):�#kh%,ge%(M%):�#kh%,Ne%(M%):�#kh%,Pe%(M%):�#kh%,Re%(M%):�#kh%,Te%(M%):�#kh%,Ve%(M%):�#kh%,Ze%(M%):�#kh%,Af%(M%):�#kh%,Cf%(M%):�#kh%,Gf%(M%):�#kh%,If%(M%):�#kh%,Kf%(M%):�#kh%,Of%(M%)
U��#kh%,oe%(M%):�#kh%,qe%(M%):�#kh%,se%(M%):�#kh%,ue%(M%):�#kh%,we%(M%):�#kh%,_e%(M%):�#kh%,Qf%(M%):�#kh%,Sf%(M%):�#kh%,Uf%(M%):�#kh%,Yf%(M%):�:�#kh%:�"SetType "+$Q`%+" 077":ș263873:�
U:G��Ed(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:ș262350,,X_%:$Dd%=$(X_%!28):�
UJ���vg(sh%,gl%):�Nb%,Ob%:fn%=�:!X_%=sh%:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=gl%:ș262350,,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
Ul$X_%!36=&7FFFFFFF:ș262352,,X_%:�
Ut!��`a:�gn%:ș262356,,-1:ȎT`%�
U��&077:Dd%=Q`%:gn%=1110
U��&AFF:Dd%=P`%:gn%=32768
U��&FFF:Dd%=S`%:gn%=4096
U���:ș262351,,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)=�Tl($Dd%):ș262375,18,X_%,X_%!20,X_%!24:�
U���Fd:�$Dd%,".")�
U�
ȎT`%�
U�#�&077:�La(na%):ș262356,,-1:�Th
U�#�&AFF:�La(ja%):ș262356,,-1:�Sh
U�#�&FFF:�La(la%):ș262356,,-1:�Qh
U��:�Ea%=Ma%�
U�Aw`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-800,1280,-150
U��
U�;�:�Db("To save, drag the icon to a directory viewer",1)
U��:�
U����Qh:ș263872:kh%=�($S`%):�#kh%,"":�#kh%,"":�#kh%,"           Parameter list for CO2effect global warming simlulation           ":�#kh%,"           =======================================================           ":�#kh%,""
U��#kh%,"":�#kh%,"Phase number       :";:�hn%=0�5:�#kh%,�nb(hn%);:�hn%:�#kh%,"":�#kh%,"":�#kh%,"-----------------------------------------------------------------------------":�#kh%,""
U���#kh%,"% coal generation  :";:�hn%=0�5:�#kh%,�nb(zd%(hn%));:�hn%:�#kh%,"":�#kh%,"% gas generation   :";:�hn%=0�5:�#kh%,�nb(`d%(hn%));:�hn%:�#kh%,"":�#kh%,"% oil generation   :";:�hn%=0�5:�#kh%,�nb(Be%(hn%));:�hn%:�#kh%,""
V��#kh%,"% nuclear gen.     :";:�hn%=0�5:�#kh%,�nb(De%(hn%));:�hn%:�#kh%,"":�#kh%,"% renewables gen.  :";:�hn%=0�5:�#kh%,�nb(Fe%(hn%));:�hn%:�#kh%,"":�#kh%,""
V��#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(Le%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Coal CHP?          :";:�hn%=0�5:�#kh%,�nb(He%(hn%,1));:�hn%:�#kh%,""
V��#kh%,"Gas CHP?           :";:�hn%=0�5:�#kh%,�nb(He%(hn%,2));:�hn%:�#kh%,"":�#kh%,"Oil CHP?           :";:�hn%=0�5:�#kh%,�nb(He%(hn%,3));:�hn%:�#kh%,""
V��#kh%,"Nuclear CHP?       :";:�hn%=0�5:�#kh%,�nb(He%(hn%,4));:�hn%:�#kh%,"":�#kh%,"('-1'=Yes; '0'=No)":�#kh%,"":�#kh%,"-----------------------------------------------------------------------------":�#kh%,""
V��#kh%,"Growth in VMT (%)  :";:�hn%=0�5:�#kh%,�nb(ee%(hn%));:�hn%:�#kh%,"":�#kh%,"Efficiency (%)     :";:�hn%=0�5:�#kh%,�nb(ie%(hn%));:�hn%:�#kh%,"":�#kh%,"% bio fuels used   :";:�hn%=0�5:�#kh%,�nb(ke%(hn%));:�hn%:�#kh%,""
V$��#kh%,"% car filling      :";:�hn%=0�5:�#kh%,�nb(me%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(ge%(hn%));:�hn%:�#kh%,"":�#kh%,""
V.��#kh%,"-----------------------------------------------------------------------------":�#kh%,"":�#kh%,"Power; electricity :";:�hn%=0�5:�#kh%,�nb(Ne%(hn%));:�hn%:�#kh%,""
V6��#kh%,"Power; CHP         :";:�hn%=0�5:�#kh%,�nb(Pe%(hn%));:�hn%:�#kh%,"":�#kh%,"Remaining power    :";:�hn%=0�5:�#kh%,�nb(Re%(hn%));:�hn%:�#kh%,"":�#kh%,"% bio fuels used   :";:�hn%=0�5:�#kh%,�nb(Te%(hn%));:�hn%:�#kh%,""
V<��#kh%,"Total power        :";:�hn%=0�5:�#kh%,�nb(Ve%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(Ze%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Power in TWh per year":�#kh%,""
VJ��#kh%,"-----------------------------------------------------------------------------":�#kh%,"":�#kh%,"Deforestaton rate  :";:�hn%=0�5:�#kh%,�nb(Af%(hn%));:�hn%:�#kh%,""
VR��#kh%,"Reforestaton rate  :";:�hn%=0�5:�#kh%,�nb(Cf%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(Gf%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Rate in million of hectares per year":�#kh%,""
V`��#kh%,"-----------------------------------------------------------------------------":�#kh%,"":�#kh%,"Number of livestock:";:�hn%=0�5:�#kh%,�nb(If%(hn%));:�hn%:�#kh%,""
Vh��#kh%,"Fertilizer used    :";:�hn%=0�5:�#kh%,�nb(Kf%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(Of%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Number of livestock in millions"
Vr��#kh%,"Mass of fertilizer manufactured/used in millions of tons":�#kh%,"":�#kh%,"-----------------------------------------------------------------------------":�#kh%,""
V~��#kh%,"% of CFC-11        :";:�hn%=0�5:�#kh%,�nb(oe%(hn%));:�hn%:�#kh%,"":�#kh%,"% of CFC-12        :";:�hn%=0�5:�#kh%,�nb(qe%(hn%));:�hn%:�#kh%,"":�#kh%,"% of HCFC-22       :";:�hn%=0�5:�#kh%,�nb(se%(hn%));:�hn%:�#kh%,""
V���#kh%,"% of alternatives  :";:�hn%=0�5:�#kh%,�nb(ue%(hn%));:�hn%:�#kh%,"":�#kh%,"Total mass released:";:�hn%=0�5:�#kh%,�nb(we%(hn%));:�hn%:�#kh%,"":�#kh%,""
V���#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(_e%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Total mass of CFC/alternatives manufactured/released in kilotons":�#kh%,""
V���#kh%,"-----------------------------------------------------------------------------":�#kh%,"":�#kh%,"% cement emissions :";:�hn%=0�5:�#kh%,�nb(Qf%(hn%));:�hn%:�#kh%,""
V���#kh%,"% acid emissions   :";:�hn%=0�5:�#kh%,�nb(Sf%(hn%));:�hn%:�#kh%,"":�#kh%,"% sewage emissions :";:�hn%=0�5:�#kh%,�nb(Uf%(hn%));:�hn%:�#kh%,"":�#kh%,""
V���#kh%,"Phase in over (yrs):";:�hn%=0�5:�#kh%,�nb(Yf%(hn%));:�hn%:�#kh%,"":�#kh%,"":�#kh%,"Emissions in percent of 1990 levels":�#kh%:�"SetType "+$S`%+" FFF":ș263873:�
V�Q��in(sh%,�Nb%,�Ob%):!X_%=sh%:ș262347,,X_%:Nb%=X_%4-X_%!20:Ob%=X_%!8-X_%!24:�
V�4��Ib(sh%):!X_%=sh%:ș262347,,X_%:ș262341,,X_%:�
V�&��La(sh%):!X_%=sh%:ș262342,,X_%:�
V֗��jn:ș262351,,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%:�
V�K��wd(sh%,pn%,Zn$):$(pn%)=Zn$:X_%!0=sh%:ș262347,,X_%:�(X_%!32�(1<<16))�
V�3ș262353,-1,X_%!4,(X_%!16)+4,X_%!12,(X_%!16)+36
V��:�
V�@��qn:�La(Va%):�La(Qa%):�La(Sa%):�La(Pa%):�La(Ua%):�La(La%):�
WR��qf:�La(aa%):�La(ha%):�La(ba%):�La(fa%):�La(ca%):�La(ea%):�La(ga%):�La(ia%):�
�
00000000  0d 27 20 94 f2 41 5f 3a  f2 42 5f 3a f2 43 5f 3a  |.' ..A_:.B_:.C_:|
00000010  f2 44 5f 3a f2 45 5f 3a  f2 46 5f 28 22 3c 43 4f  |.D_:.E_:.F_("<CO|
00000020  32 65 66 66 65 63 74 24  44 69 72 3e 2e 48 65 6c  |2effect$Dir>.Hel|
00000030  70 54 65 78 74 22 29 3a  c8 99 32 36 33 38 37 32  |pText"):..263872|
00000040  3a f2 47 5f 3a f2 48 5f  3a f2 49 5f 3a f2 4a 5f  |:.G_:.H_:.I_:.J_|
00000050  3a f2 4b 5f 3a f2 4c 5f  3a f2 4d 5f 3a f2 4e 5f  |:.K_:.L_:.M_:.N_|
00000060  3a f2 4f 5f 3a f2 50 5f  3a f2 51 5f 3a f2 52 5f  |:.O_:.P_:.Q_:.R_|
00000070  3a f2 53 5f 3a f2 54 5f  3a c8 99 32 36 33 38 37  |:.S_:.T_:..26387|
00000080  33 3a c8 95 ac 55 5f 25  3a f2 56 5f 3a ce 3a f2  |3:...U_%:.V_:.:.|
00000090  57 5f 3a e0 0d 27 5c cd  dd f2 43 5f 3a de 58 5f  |W_:..'\...C_:.X_|
000000a0  25 20 32 35 36 30 3a de  59 5f 25 20 31 34 34 2c  |% 2560:.Y_% 144,|
000000b0  5a 5f 25 20 35 31 38 2c  61 5f 25 20 31 32 30 36  |Z_% 518,a_% 1206|
000000c0  2c 62 5f 25 20 34 34 30  2c 63 5f 25 20 34 33 34  |,b_% 440,c_% 434|
000000d0  2c 64 5f 25 20 37 35 30  2c 65 5f 25 20 34 34 39  |,d_% 750,e_% 449|
000000e0  2c 66 5f 25 20 34 31 32  2c 67 5f 25 20 39 34 36  |,f_% 412,g_% 946|
000000f0  2c 68 5f 25 20 31 39 37  2c 69 5f 25 20 32 36 33  |,h_% 197,i_% 263|
00000100  3a de 6a 5f 25 20 37 33  38 2c 6b 5f 25 20 36 37  |:.j_% 738,k_% 67|
00000110  33 2c 6c 5f 25 20 34 38  34 2c 6d 5f 25 20 32 36  |3,l_% 484,m_% 26|
00000120  31 2c 6e 5f 25 20 34 39  35 2c 6f 5f 25 20 36 38  |1,n_% 495,o_% 68|
00000130  33 2c 70 5f 25 20 36 39  33 2c 71 5f 25 20 38 32  |3,p_% 693,q_% 82|
00000140  30 2c 72 5f 25 20 38 30  37 2c 73 5f 25 20 32 36  |0,r_% 807,s_% 26|
00000150  39 2c 74 5f 25 20 32 36  39 2c 75 5f 25 20 32 36  |9,t_% 269,u_% 26|
00000160  39 0d 27 68 e4 de 76 5f  25 20 34 30 2c 77 5f 25  |9.'h..v_% 40,w_%|
00000170  20 34 30 2c 78 5f 25 20  34 30 2c 79 5f 25 20 34  | 40,x_% 40,y_% 4|
00000180  30 2c 7a 5f 25 20 34 30  2c 5f 5f 25 20 34 30 2c  |0,z_% 40,__% 40,|
00000190  60 5f 25 20 34 30 3a de  41 60 25 28 37 29 2c 42  |`_% 40:.A`%(7),B|
000001a0  60 25 28 37 29 3a de 43  60 25 20 32 34 3a de 44  |`%(7):.C`% 24:.D|
000001b0  60 25 20 32 35 35 3a e3  4e 25 3d 30 b8 32 35 35  |`% 255:.N%=0.255|
000001c0  3a 3f 28 44 60 25 2b 4e  25 29 3d 30 3a ed 3a de  |:?(D`%+N%)=0:.:.|
000001d0  45 60 25 20 31 31 3a de  46 60 25 20 39 39 2c 47  |E`% 11:.F`% 99,G|
000001e0  60 25 20 34 31 31 2c 48  60 25 20 39 39 2c 49 60  |`% 411,H`% 99,I`|
000001f0  25 20 37 35 2c 4a 60 25  20 37 35 2c 4b 60 25 20  |% 75,J`% 75,K`% |
00000200  35 31 2c 4c 60 25 20 31  32 33 3a de 4d 60 25 20  |51,L`% 123:.M`% |
00000210  37 39 3a de 4e 60 25 20  31 31 3a 24 4e 60 25 3d  |79:.N`% 11:$N`%=|
00000220  22 70 74 72 5f 64 65 66  61 75 6c 74 22 3a de 4f  |"ptr_default":.O|
00000230  60 25 20 31 31 3a 24 4f  60 25 3d 22 70 74 72 5f  |`% 11:$O`%="ptr_|
00000240  6d 65 6e 75 22 0d 27 8a  cf de 50 60 25 20 32 35  |menu".'...P`% 25|
00000250  35 3a 24 50 60 25 3d 22  44 72 61 77 46 69 6c 65  |5:$P`%="DrawFile|
00000260  22 3a de 51 60 25 20 32  35 35 3a 24 51 60 25 3d  |":.Q`% 255:$Q`%=|
00000270  22 50 61 72 61 6d 65 74  65 72 73 22 3a de 52 60  |"Parameters":.R`|
00000280  25 20 32 35 35 3a 24 52  60 25 3d 22 22 3a de 53  |% 255:$R`%="":.S|
00000290  60 25 20 32 35 35 3a 24  53 60 25 3d 22 54 65 78  |`% 255:$S`%="Tex|
000002a0  74 46 69 6c 65 22 3a 54  60 25 3d 26 41 46 46 3a  |tFile":T`%=&AFF:|
000002b0  de 55 60 25 20 33 3a de  56 60 25 20 31 35 2c 57  |.U`% 3:.V`% 15,W|
000002c0  60 25 20 31 3a de 58 60  25 20 36 3a 24 58 60 25  |`% 1:.X`% 6:$X`%|
000002d0  3d 22 52 32 3b 41 7e 20  22 3a de 59 60 25 20 30  |="R2;A~ ":.Y`% 0|
000002e0  3a 24 59 60 25 3d 22 22  3a de 5a 60 25 20 32 30  |:$Y`%="":.Z`% 20|
000002f0  2c 61 60 25 20 32 30 2c  62 60 25 20 32 30 2c 63  |,a`% 20,b`% 20,c|
00000300  60 25 20 32 30 3a de 64  60 25 20 30 3a 24 64 60  |`% 20:.d`% 0:$d`|
00000310  25 3d 22 22 0d 27 a2 e4  de 65 60 25 20 32 30 3a  |%="".'...e`% 20:|
00000320  24 65 60 25 3d 22 53 73  6c 6f 77 6f 66 66 2c 73  |$e`%="Sslowoff,s|
00000330  6c 6f 77 6f 6e 22 3a de  66 60 25 20 32 30 3a 24  |lowon":.f`% 20:$|
00000340  66 60 25 3d 22 53 66 61  73 74 6f 66 66 2c 66 61  |f`%="Sfastoff,fa|
00000350  73 74 6f 6e 22 3a 67 60  25 3d 37 3a 68 60 25 3d  |ston":g`%=7:h`%=|
00000360  38 3a 69 60 25 3d 39 3a  6a 60 25 3d 31 31 3a 6b  |8:i`%=9:j`%=11:k|
00000370  60 25 3d 31 38 3a de 6c  60 25 20 30 3a 24 6c 60  |`%=18:.l`% 0:$l`|
00000380  25 3d 22 22 3a de 6d 60  25 20 32 30 3a 24 6d 60  |%="":.m`% 20:$m`|
00000390  25 3d 22 53 6f 6e 65 6f  66 66 2c 6f 6e 65 6f 6e  |%="Soneoff,oneon|
000003a0  22 3a de 6e 60 25 20 32  30 3a 24 6e 60 25 3d 22  |":.n`% 20:$n`%="|
000003b0  53 61 6c 6c 6f 66 66 2c  61 6c 6c 6f 6e 22 3a 6f  |Salloff,allon":o|
000003c0  60 24 3d 22 22 3a de 70  60 25 20 32 35 36 3a 55  |`$="":.p`% 256:U|
000003d0  5f 25 3d a3 3a 71 60 25  3d a3 3a 72 60 25 3d a3  |_%=.:q`%=.:r`%=.|
000003e0  3a 73 60 25 3d a3 3a 74  60 25 3d b9 3a 75 60 25  |:s`%=.:t`%=.:u`%|
000003f0  3d a3 3a 76 60 25 3d b9  0d 27 b6 a7 77 60 25 3d  |=.:v`%=..'..w`%=|
00000400  b9 3a 78 60 25 3d b9 3a  79 60 25 3d a3 3a 7a 60  |.:x`%=.:y`%=.:z`|
00000410  25 3d a3 3a 5f 60 25 3d  a3 3a 60 60 25 3d a3 3a  |%=.:_`%=.:``%=.:|
00000420  41 61 25 3d a3 3a 42 61  25 3d a3 3a 43 61 25 3d  |Aa%=.:Ba%=.:Ca%=|
00000430  31 3a 44 61 25 3d 30 3a  45 61 25 3d 30 3a de 46  |1:Da%=0:Ea%=0:.F|
00000440  61 25 20 34 3a c8 99 36  2c 31 32 39 2c 30 2c 26  |a% 4:..6,129,0,&|
00000450  46 46 b8 2c 46 61 25 3a  47 61 24 3d 22 43 4f 32  |FF.,Fa%:Ga$="CO2|
00000460  65 66 66 65 63 74 22 3a  c8 99 32 36 32 33 33 36  |effect":..262336|
00000470  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 47  |,200,&4B534154,G|
00000480  61 24 3a ee 85 f2 48 61  28 f6 24 2b 22 20 61 74  |a$:...Ha(.$+" at|
00000490  20 6c 69 6e 65 20 22 2b  c3 9e 29 3a f2 57 5f 0d  | line "+..):.W_.|
000004a0  27 d4 34 49 61 25 3d a4  4a 61 28 2d 31 2c 30 2c  |'.4Ia%=.Ja(-1,0,|
000004b0  30 2c 36 38 2c 36 38 2c  26 33 30 30 32 2c 22 21  |0,68,68,&3002,"!|
000004c0  43 4f 32 65 66 66 65 63  74 22 2c 30 2c 30 2c 30  |CO2effect",0,0,0|
000004d0  29 3a e1 0d 27 da d2 dd  f2 44 5f 3a c8 99 32 36  |):..'....D_:..26|
000004e0  32 33 36 31 2c 2c 22 3c  43 4f 32 65 66 66 65 63  |2361,,"<CO2effec|
000004f0  74 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |t$Dir>.Templates|
00000500  22 3a 4b 61 25 3d a4 4c  61 28 59 5f 25 2c 59 5f  |":Ka%=.La(Y_%,Y_|
00000510  25 2b 31 34 34 2c 2d 31  2c 22 49 6e 66 6f 22 2c  |%+144,-1,"Info",|
00000520  31 29 3a 4d 61 25 3d a4  4c 61 28 5a 5f 25 2c 5a  |1):Ma%=.La(Z_%,Z|
00000530  5f 25 2b 35 31 38 2c 44  60 25 2c 22 4d 61 69 6e  |_%+518,D`%,"Main|
00000540  22 2c 4e 61 25 29 3a 4f  61 25 3d 58 5f 25 21 37  |",Na%):Oa%=X_%!7|
00000550  32 3a 50 61 25 3d a4 4c  61 28 61 5f 25 2c 61 5f  |2:Pa%=.La(a_%,a_|
00000560  25 2b 31 32 30 36 2c 2d  31 2c 22 53 61 76 65 73  |%+1206,-1,"Saves|
00000570  22 2c 4e 61 25 29 3a 51  61 25 3d a4 4c 61 28 62  |",Na%):Qa%=.La(b|
00000580  5f 25 2c 62 5f 25 2b 34  34 30 2c 2d 31 2c 22 4c  |_%,b_%+440,-1,"L|
00000590  48 79 5f 64 22 2c 4e 61  25 29 3a 52 61 25 3d 58  |Hy_d",Na%):Ra%=X|
000005a0  5f 25 21 37 32 0d 27 f0  d2 53 61 25 3d a4 4c 61  |_%!72.'..Sa%=.La|
000005b0  28 63 5f 25 2c 63 5f 25  2b 34 33 34 2c 2d 31 2c  |(c_%,c_%+434,-1,|
000005c0  22 52 48 79 5f 64 22 2c  4e 61 25 29 3a 54 61 25  |"RHy_d",Na%):Ta%|
000005d0  3d 58 5f 25 21 37 32 3a  55 61 25 3d a4 4c 61 28  |=X_%!72:Ua%=.La(|
000005e0  64 5f 25 2c 64 5f 25 2b  37 35 30 2c 2d 31 2c 22  |d_%,d_%+750,-1,"|
000005f0  43 6f 6e 66 69 67 75 72  65 22 2c 4e 61 25 29 3a  |Configure",Na%):|
00000600  4c 61 25 3d a4 4c 61 28  65 5f 25 2c 65 5f 25 2b  |La%=.La(e_%,e_%+|
00000610  34 34 39 2c 2d 31 2c 22  43 6f 6c 6f 75 72 73 22  |449,-1,"Colours"|
00000620  2c 4e 61 25 29 3a 56 61  25 3d a4 4c 61 28 66 5f  |,Na%):Va%=.La(f_|
00000630  25 2c 66 5f 25 2b 34 31  32 2c 2d 31 2c 22 54 69  |%,f_%+412,-1,"Ti|
00000640  6d 65 22 2c 4e 61 25 29  3a 57 61 25 3d a4 4c 61  |me",Na%):Wa%=.La|
00000650  28 67 5f 25 2c 67 5f 25  2b 39 34 36 2c 2d 31 2c  |(g_%,g_%+946,-1,|
00000660  22 54 6f 6f 6c 73 22 2c  4e 61 25 29 3a 58 61 25  |"Tools",Na%):Xa%|
00000670  3d 58 5f 25 21 37 32 0d  27 fa c0 59 61 25 3d a4  |=X_%!72.'..Ya%=.|
00000680  4c 61 28 68 5f 25 2c 68  5f 25 2b 31 39 37 2c 2d  |La(h_%,h_%+197,-|
00000690  31 2c 22 54 69 6d 65 5f  65 6d 69 73 73 22 2c 4e  |1,"Time_emiss",N|
000006a0  61 25 29 3a 5a 61 25 3d  a4 4c 61 28 69 5f 25 2c  |a%):Za%=.La(i_%,|
000006b0  69 5f 25 2b 32 36 33 2c  2d 31 2c 22 50 65 72 5f  |i_%+263,-1,"Per_|
000006c0  65 6d 69 73 73 22 2c 4e  61 25 29 3a 41 60 25 28  |emiss",Na%):A`%(|
000006d0  31 29 3d a4 4c 61 28 76  5f 25 2c 76 5f 25 2b 34  |1)=.La(v_%,v_%+4|
000006e0  30 2c 2d 31 2c 22 45 6d  69 73 73 69 6f 6e 73 22  |0,-1,"Emissions"|
000006f0  2c 31 29 3a 42 60 25 28  31 29 3d 58 5f 25 21 37  |,1):B`%(1)=X_%!7|
00000700  32 3a 41 60 25 28 32 29  3d a4 4c 61 28 77 5f 25  |2:A`%(2)=.La(w_%|
00000710  2c 77 5f 25 2b 34 30 2c  2d 31 2c 22 45 6d 69 73  |,w_%+40,-1,"Emis|
00000720  73 69 6f 6e 73 22 2c 31  29 3a 42 60 25 28 32 29  |sions",1):B`%(2)|
00000730  3d 58 5f 25 21 37 32 0d  28 02 db 41 60 25 28 33  |=X_%!72.(..A`%(3|
00000740  29 3d a4 4c 61 28 78 5f  25 2c 78 5f 25 2b 34 30  |)=.La(x_%,x_%+40|
00000750  2c 2d 31 2c 22 45 6d 69  73 73 69 6f 6e 73 22 2c  |,-1,"Emissions",|
00000760  31 29 3a 42 60 25 28 33  29 3d 58 5f 25 21 37 32  |1):B`%(3)=X_%!72|
00000770  3a 41 60 25 28 34 29 3d  a4 4c 61 28 79 5f 25 2c  |:A`%(4)=.La(y_%,|
00000780  79 5f 25 2b 34 30 2c 2d  31 2c 22 45 6d 69 73 73  |y_%+40,-1,"Emiss|
00000790  69 6f 6e 73 22 2c 31 29  3a 42 60 25 28 34 29 3d  |ions",1):B`%(4)=|
000007a0  58 5f 25 21 37 32 3a 41  60 25 28 35 29 3d a4 4c  |X_%!72:A`%(5)=.L|
000007b0  61 28 7a 5f 25 2c 7a 5f  25 2b 34 30 2c 2d 31 2c  |a(z_%,z_%+40,-1,|
000007c0  22 45 6d 69 73 73 69 6f  6e 73 22 2c 31 29 3a 42  |"Emissions",1):B|
000007d0  60 25 28 35 29 3d 58 5f  25 21 37 32 3a 41 60 25  |`%(5)=X_%!72:A`%|
000007e0  28 36 29 3d a4 4c 61 28  5f 5f 25 2c 5f 5f 25 2b  |(6)=.La(__%,__%+|
000007f0  34 30 2c 2d 31 2c 22 45  6d 69 73 73 69 6f 6e 73  |40,-1,"Emissions|
00000800  22 2c 31 29 3a 42 60 25  28 36 29 3d 58 5f 25 21  |",1):B`%(6)=X_%!|
00000810  37 32 0d 28 0a d5 41 60  25 28 37 29 3d a4 4c 61  |72.(..A`%(7)=.La|
00000820  28 60 5f 25 2c 60 5f 25  2b 34 30 2c 2d 31 2c 22  |(`_%,`_%+40,-1,"|
00000830  45 6d 69 73 73 69 6f 6e  73 22 2c 31 29 3a 42 60  |Emissions",1):B`|
00000840  25 28 37 29 3d 58 5f 25  21 37 32 3a 61 61 25 3d  |%(7)=X_%!72:aa%=|
00000850  a4 4c 61 28 6a 5f 25 2c  6a 5f 25 2b 37 33 38 2c  |.La(j_%,j_%+738,|
00000860  2d 31 2c 22 45 6c 65 63  5f 67 65 6e 22 2c 4e 61  |-1,"Elec_gen",Na|
00000870  25 29 3a 62 61 25 3d a4  4c 61 28 6b 5f 25 2c 6b  |%):ba%=.La(k_%,k|
00000880  5f 25 2b 36 37 33 2c 2d  31 2c 22 54 72 61 6e 73  |_%+673,-1,"Trans|
00000890  70 6f 72 74 22 2c 4e 61  25 29 3a 63 61 25 3d a4  |port",Na%):ca%=.|
000008a0  4c 61 28 6c 5f 25 2c 6c  5f 25 2b 34 38 34 2c 2d  |La(l_%,l_%+484,-|
000008b0  31 2c 22 46 6f 72 65 73  74 22 2c 4e 61 25 29 3a  |1,"Forest",Na%):|
000008c0  64 61 25 3d a4 4c 61 28  6d 5f 25 2c 6d 5f 25 2b  |da%=.La(m_%,m_%+|
000008d0  32 36 31 2c 2d 31 2c 22  54 65 6d 70 4d 6f 64 65  |261,-1,"TempMode|
000008e0  6c 22 2c 4e 61 25 29 0d  28 14 bf 65 61 25 3d a4  |l",Na%).(..ea%=.|
000008f0  4c 61 28 6e 5f 25 2c 6e  5f 25 2b 34 39 35 2c 2d  |La(n_%,n_%+495,-|
00000900  31 2c 22 41 67 72 69 63  75 6c 22 2c 4e 61 25 29  |1,"Agricul",Na%)|
00000910  3a 66 61 25 3d a4 4c 61  28 6f 5f 25 2c 6f 5f 25  |:fa%=.La(o_%,o_%|
00000920  2b 36 38 33 2c 2d 31 2c  22 43 46 43 22 2c 4e 61  |+683,-1,"CFC",Na|
00000930  25 29 3a 67 61 25 3d a4  4c 61 28 70 5f 25 2c 70  |%):ga%=.La(p_%,p|
00000940  5f 25 2b 36 39 33 2c 2d  31 2c 22 4d 69 73 63 22  |_%+693,-1,"Misc"|
00000950  2c 4e 61 25 29 3a 68 61  25 3d a4 4c 61 28 71 5f  |,Na%):ha%=.La(q_|
00000960  25 2c 71 5f 25 2b 38 32  30 2c 2d 31 2c 22 45 6e  |%,q_%+820,-1,"En|
00000970  65 72 67 79 5f 75 73 65  22 2c 4e 61 25 29 3a 69  |ergy_use",Na%):i|
00000980  61 25 3d a4 4c 61 28 72  5f 25 2c 72 5f 25 2b 38  |a%=.La(r_%,r_%+8|
00000990  30 37 2c 2d 31 2c 22 53  65 74 5f 65 6d 69 73 73  |07,-1,"Set_emiss|
000009a0  22 2c 4e 61 25 29 0d 28  1e a4 6a 61 25 3d a4 4c  |",Na%).(..ja%=.L|
000009b0  61 28 73 5f 25 2c 73 5f  25 2b 32 36 39 2c 2d 31  |a(s_%,s_%+269,-1|
000009c0  2c 22 44 72 61 77 5f 73  61 76 65 22 2c 4e 61 25  |,"Draw_save",Na%|
000009d0  29 3a 6b 61 25 3d 58 5f  25 21 31 34 30 3a 6c 61  |):ka%=X_%!140:la|
000009e0  25 3d a4 4c 61 28 74 5f  25 2c 74 5f 25 2b 32 36  |%=.La(t_%,t_%+26|
000009f0  39 2c 2d 31 2c 22 70 5f  74 66 5f 73 22 2c 4e 61  |9,-1,"p_tf_s",Na|
00000a00  25 29 3a 6d 61 25 3d 58  5f 25 21 31 34 30 3a 6e  |%):ma%=X_%!140:n|
00000a10  61 25 3d a4 4c 61 28 75  5f 25 2c 75 5f 25 2b 32  |a%=.La(u_%,u_%+2|
00000a20  36 39 2c 2d 31 2c 22 70  5f 63 66 5f 73 22 2c 4e  |69,-1,"p_cf_s",N|
00000a30  61 25 29 3a 6f 61 25 3d  58 5f 25 21 31 34 30 3a  |a%):oa%=X_%!140:|
00000a40  c8 99 32 36 32 33 36 32  3a e1 0d 28 2a 7e dd f2  |..262362:..(*~..|
00000a50  45 5f 3a f7 8d 70 6e 47  3a f2 70 61 28 46 60 25  |E_:..pnG:.pa(F`%|
00000a60  29 3a f7 8d 70 70 47 3a  f2 70 61 28 47 60 25 29  |):..ppG:.pa(G`%)|
00000a70  3a f7 8d 70 72 47 3a f2  70 61 28 48 60 25 29 3a  |:..prG:.pa(H`%):|
00000a80  f7 8d 70 74 47 3a f2 70  61 28 49 60 25 29 3a f7  |..ptG:.pa(I`%):.|
00000a90  8d 70 76 47 3a f2 70 61  28 4a 60 25 29 3a f7 8d  |.pvG:.pa(J`%):..|
00000aa0  70 78 47 3a f2 70 61 28  4b 60 25 29 3a f7 8d 70  |pxG:.pa(K`%):..p|
00000ab0  7a 47 3a f2 70 61 28 4c  60 25 29 3a f2 71 61 28  |zG:.pa(L`%):.qa(|
00000ac0  4c 60 25 2c 33 29 3a e1  0d 28 46 31 dd f2 56 5f  |L`%,3):..(F1..V_|
00000ad0  3a c8 99 36 36 b8 72 61  3a c8 99 32 36 32 33 36  |:..66.ra:..26236|
00000ae0  39 2c 30 2c 58 5f 25 2c  72 61 2b 44 61 25 b8 73  |9,0,X_%,ra+Da%.s|
00000af0  61 25 3a c8 8e 73 61 25  ca 0d 28 52 10 c9 30 3a  |a%:..sa%..(R..0:|
00000b00  e7 72 60 25 8c 3a f2 74  61 0d 28 56 0d e7 42 61  |.r`%.:.ta.(V..Ba|
00000b10  25 8c 3a f2 42 61 0d 28  58 09 e7 7a 60 25 8c 0d  |%.:.Ba.(X..z`%..|
00000b20  28 5a 10 7a 60 25 3d a3  3a c8 8e 75 61 25 ca 0d  |(Z.z`%=.:..ua%..|
00000b30  28 5e 2c c9 4d 61 25 3a  79 60 25 3d b9 3a c8 99  |(^,.Ma%:y`%=.:..|
00000b40  32 36 32 33 35 33 2c 4d  61 25 2c 30 2c 2d 39 36  |262353,Ma%,0,-96|
00000b50  30 2c 31 32 38 30 2c 2d  31 35 30 0d 28 60 22 c9  |0,1280,-150.(`".|
00000b60  61 61 25 3a c8 99 32 36  32 33 35 33 2c 61 61 25  |aa%:..262353,aa%|
00000b70  2c 30 2c 2d 33 34 34 2c  37 30 36 2c 30 0d 28 62  |,0,-344,706,0.(b|
00000b80  05 cb 0d 28 64 05 cd 0d  28 66 10 c9 31 3a f2 76  |...(d...(f..1:.v|
00000b90  61 28 21 58 5f 25 29 0d  28 68 0f c9 32 3a c8 8e  |a(!X_%).(h..2:..|
00000ba0  58 5f 25 21 30 ca 0d 28  6c 19 c9 57 61 25 3a f2  |X_%!0..(l..Wa%:.|
00000bb0  77 61 28 48 60 25 2c 32  29 3a 60 60 25 3d b9 0d  |wa(H`%,2):``%=..|
00000bc0  28 6e 13 cb 3a c8 99 32  36 32 33 34 31 2c 2c 58  |(n..:..262341,,X|
00000bd0  5f 25 0d 28 72 0f c9 33  3a c8 8e 58 5f 25 21 30  |_%.(r..3:..X_%!0|
00000be0  ca 0d 28 76 19 c9 57 61  25 3a f2 78 61 28 48 60  |..(v..Wa%:.xa(H`|
00000bf0  25 2c 32 29 3a 60 60 25  3d a3 0d 28 78 08 c9 4d  |%,2):``%=..(x..M|
00000c00  61 25 0d 28 7a 13 cb 3a  c8 99 32 36 32 33 34 32  |a%.(z..:..262342|
00000c10  2c 2c 58 5f 25 0d 28 7e  0f c9 34 3a c8 8e 58 5f  |,,X_%.(~..4:..X_|
00000c20  25 21 30 ca 0d 28 82 3c  c9 51 61 25 2c 53 61 25  |%!0..(.<.Qa%,Sa%|
00000c30  2c 4c 61 25 2c 64 61 25  3a 42 61 25 3d a3 3a c8  |,La%,da%:Ba%=.:.|
00000c40  99 32 36 32 33 37 37 2c  33 36 2c 2c 4e 60 25 2c  |.262377,36,,N`%,|
00000c50  26 31 2c 30 2c 30 2c 30  2c 30 3a 43 61 25 3d 31  |&1,0,0,0,0:Ca%=1|
00000c60  0d 28 86 05 cb 0d 28 88  0f c9 35 3a c8 8e 58 5f  |.(....(...5:..X_|
00000c70  25 21 30 ca 0d 28 8c 14  c9 6a 61 25 2c 6c 61 25  |%!0..(...ja%,la%|
00000c80  2c 6e 61 25 3a f2 79 61  0d 28 8e 1a c9 51 61 25  |,na%:.ya.(...Qa%|
00000c90  2c 53 61 25 2c 4c 61 25  2c 64 61 25 3a 42 61 25  |,Sa%,La%,da%:Ba%|
00000ca0  3d b9 0d 28 90 05 cb 0d  28 92 2a c9 36 3a 7a 61  |=..(....(.*.6:za|
00000cb0  25 3d 58 5f 25 21 31 32  3a f2 5f 61 28 58 5f 25  |%=X_%!12:._a(X_%|
00000cc0  21 38 2c 58 5f 25 21 31  32 2c 58 5f 25 21 31 36  |!8,X_%!12,X_%!16|
00000cd0  29 0d 28 96 13 c9 37 3a  e7 5f 60 25 8c f2 5f 60  |).(...7:._`%.._`|
00000ce0  8b f2 60 61 0d 28 9a 1d  c9 38 3a f2 41 62 28 21  |..`a.(...8:.Ab(!|
00000cf0  58 5f 25 2c 58 5f 25 21  34 2c 58 5f 25 21 32 34  |X_%,X_%!4,X_%!24|
00000d00  29 0d 28 9e 0a c9 39 3a  f2 42 62 0d 28 a2 13 c9  |).(...9:.Bb.(...|
00000d10  31 37 2c 31 38 3a f2 43  62 28 58 5f 25 29 0d 28  |17,18:.Cb(X_%).(|
00000d20  a6 30 c9 31 39 3a f2 44  62 28 22 54 72 61 6e 73  |.0.19:.Db("Trans|
00000d30  66 65 72 20 66 61 69 6c  65 64 20 2d 20 72 65 63  |fer failed - rec|
00000d40  65 69 76 65 72 20 64 69  65 64 22 2c 31 29 0d 28  |eiver died",1).(|
00000d50  aa 07 cb 3a e1 0d 28 b0  40 dd f2 5f 61 28 45 62  |...:..(.@.._a(Eb|
00000d60  25 2c 46 62 25 2c 47 62  25 29 3a ea 48 62 24 3a  |%,Fb%,Gb%):.Hb$:|
00000d70  e7 46 62 25 3c 3e 2d 32  80 46 62 25 3c 3e 6a 61  |.Fb%<>-2.Fb%<>ja|
00000d80  25 80 41 61 25 8c 3a f2  4c 61 28 6a 61 25 29 3a  |%.Aa%.:.La(ja%):|
00000d90  41 61 25 3d a3 0d 28 ba  0a c8 8e 46 62 25 ca 0d  |Aa%=..(....Fb%..|
00000da0  28 c0 0e c9 2d 32 3a c8  8e 45 62 25 ca 0d 28 c4  |(...-2:..Eb%..(.|
00000db0  19 c9 31 2c 34 3a f2 49  62 28 4d 61 25 29 3a f2  |..1,4:.Ib(Ma%):.|
00000dc0  4a 62 3a f2 4b 62 0d 28  cc 1a cb 3a e7 41 61 25  |Jb:.Kb.(...:.Aa%|
00000dd0  8c 3a f2 4c 61 28 6a 61  25 29 3a 41 61 25 3d a3  |.:.La(ja%):Aa%=.|
00000de0  0d 28 d2 18 c9 4d 61 25  3a e7 45 62 25 3c 3e 32  |.(...Ma%:.Eb%<>2|
00000df0  80 47 62 25 3d 2d 31 8c  0d 28 d8 2b c8 99 32 36  |.Gb%=-1..(.+..26|
00000e00  32 33 35 34 2c 4d 61 25  2c 2d 31 2c 30 2c 30 2c  |2354,Ma%,-1,0,0,|
00000e10  2d 31 2c 2d 31 3a 45 61  25 3d 4d 61 25 3a 41 61  |-1,-1:Ea%=Ma%:Aa|
00000e20  25 3d b9 0d 28 dc 1a cd  3a e7 41 61 25 8c 3a f2  |%=..(...:.Aa%.:.|
00000e30  4c 61 28 6a 61 25 29 3a  41 61 25 3d a3 0d 28 e0  |La(ja%):Aa%=..(.|
00000e40  0a c8 8e 45 62 25 ca 0d  28 e4 14 c9 32 35 36 2c  |...Eb%..(...256,|
00000e50  31 30 32 34 3a c8 8e 47  62 25 ca 0d 28 e8 04 0d  |1024:..Gb%..(...|
00000e60  28 ec d9 c9 2d 31 3a 5f  60 25 3d b9 3a c8 99 32  |(...-1:_`%=.:..2|
00000e70  36 32 33 35 31 2c 2c 58  5f 25 3a 4c 62 25 3d 58  |62351,,X_%:Lb%=X|
00000e80  5f 25 21 30 3a 4d 62 25  3d 58 5f 25 21 34 3a 21  |_%!0:Mb%=X_%!4:!|
00000e90  58 5f 25 3d 4d 61 25 3a  c8 99 32 36 32 33 34 37  |X_%=Ma%:..262347|
00000ea0  2c 2c 58 5f 25 3a 4e 62  25 3d 58 5f 25 21 34 2d  |,,X_%:Nb%=X_%!4-|
00000eb0  58 5f 25 21 32 30 3a 4f  62 25 3d 58 5f 25 21 31  |X_%!20:Ob%=X_%!1|
00000ec0  36 2d 58 5f 25 21 32 34  3a 58 5f 25 21 34 3d 36  |6-X_%!24:X_%!4=6|
00000ed0  3a 58 5f 25 21 38 3d 4c  62 25 3a 58 5f 25 21 31  |:X_%!8=Lb%:X_%!1|
00000ee0  32 3d 4d 62 25 3a 58 5f  25 21 31 36 3d 4c 62 25  |2=Mb%:X_%!16=Lb%|
00000ef0  3a 58 5f 25 21 32 30 3d  4d 62 25 3a 58 5f 25 21  |:X_%!20=Mb%:X_%!|
00000f00  32 34 3d 4e 62 25 2b 31  34 30 3a 58 5f 25 21 32  |24=Nb%+140:X_%!2|
00000f10  38 3d 4f 62 25 2d 37 30  30 3a 58 5f 25 21 33 32  |8=Ob%-700:X_%!32|
00000f20  3d 4e 62 25 2b 31 31 34  30 3a 58 5f 25 21 33 36  |=Nb%+1140:X_%!36|
00000f30  3d 4f 62 25 2d 32 30 30  0d 29 08 36 e7 4c 62 25  |=Ob%-200.).6.Lb%|
00000f40  3c 4e 62 25 2b 31 34 30  84 4c 62 25 3e 4e 62 25  |<Nb%+140.Lb%>Nb%|
00000f50  2b 31 31 34 30 84 4d 62  25 3c 4f 62 25 2d 37 30  |+1140.Mb%<Ob%-70|
00000f60  30 84 4d 62 25 3e 4f 62  25 2d 32 30 30 8c 0d 29  |0.Mb%>Ob%-200..)|
00000f70  0a 0f c8 99 32 36 32 33  35 32 2c 2c 30 0d 29 0c  |....262352,,0.).|
00000f80  13 cc 3a c8 99 32 36 32  33 35 32 2c 2c 58 5f 25  |..:..262352,,X_%|
00000f90  0d 29 10 05 cd 0d 29 12  05 cb 0d 29 14 0f c9 31  |.)....)....)...1|
00000fa0  2c 34 3a c8 8e 47 62 25  ca 0d 29 18 04 0d 29 1c  |,4:..Gb%..)...).|
00000fb0  16 c9 31 3a e7 ac 72 60  25 80 ac 73 60 25 80 74  |..1:..r`%..s`%.t|
00000fc0  60 25 8c 0d 29 20 20 f2  50 62 28 4d 61 25 2c 31  |`%..)  .Pb(Ma%,1|
00000fd0  29 3a 72 60 25 3d b9 3a  73 60 25 3d b9 3a 74 60  |):r`%=.:s`%=.:t`|
00000fe0  25 3d a3 0d 29 24 05 cd  0d 29 2a 0c c9 32 3a e7  |%=..)$...)*..2:.|
00000ff0  73 60 25 8c 0d 29 2e 32  72 60 25 3d ac 72 60 25  |s`%..).2r`%=.r`%|
00001000  3a f2 51 62 28 4d 61 25  2c 32 29 3a e7 72 60 25  |:.Qb(Ma%,2):.r`%|
00001010  8c f2 78 61 28 46 60 25  2c 31 29 8b f2 77 61 28  |..xa(F`%,1)..wa(|
00001020  46 60 25 2c 31 29 0d 29  32 05 cd 0d 29 38 0e c9  |F`%,1).)2...)8..|
00001030  33 3a e7 73 60 25 3d b9  8c 0d 29 3c 5f 72 60 25  |3:.s`%=...)<_r`%|
00001040  3d a3 3a 73 60 25 3d a3  3a f2 51 62 28 4d 61 25  |=.:s`%=.:.Qb(Ma%|
00001050  2c 33 29 3a f2 52 62 28  4d 61 25 2c 31 29 3a f2  |,3):.Rb(Ma%,1):.|
00001060  52 62 28 4d 61 25 2c 32  29 3a f2 51 62 28 4d 61  |Rb(Ma%,2):.Qb(Ma|
00001070  25 2c 33 29 3a 77 60 25  3d b9 3a c8 99 32 36 32  |%,3):w`%=.:..262|
00001080  33 35 33 2c 4d 61 25 2c  30 2c 2d 39 36 30 2c 31  |353,Ma%,0,-960,1|
00001090  32 38 30 2c 2d 31 35 30  0d 29 42 05 cd 0d 29 48  |280,-150.)B...)H|
000010a0  38 c9 34 3a 75 60 25 3d  ac 75 60 25 3a f2 51 62  |8.4:u`%=.u`%:.Qb|
000010b0  28 4d 61 25 2c 34 29 3a  c8 99 32 36 32 33 35 33  |(Ma%,4):..262353|
000010c0  2c 4d 61 25 2c 30 2c 2d  39 36 30 2c 31 32 38 30  |,Ma%,0,-960,1280|
000010d0  2c 2d 31 35 30 0d 29 54  b2 c9 35 3a 72 60 25 3d  |,-150.)T..5:r`%=|
000010e0  a3 3a 73 60 25 3d a3 3a  75 60 25 3d a3 3a 74 60  |.:s`%=.:u`%=.:t`|
000010f0  25 3d b9 3a f2 51 62 28  4d 61 25 2c 35 29 3a f2  |%=.:.Qb(Ma%,5):.|
00001100  52 62 28 4d 61 25 2c 31  29 3a f2 52 62 28 4d 61  |Rb(Ma%,1):.Rb(Ma|
00001110  25 2c 32 29 3a f2 52 62  28 4d 61 25 2c 34 29 3a  |%,2):.Rb(Ma%,4):|
00001120  c8 99 32 36 33 38 37 32  3a 53 62 25 3d 32 34 30  |..263872:Sb%=240|
00001130  3a 54 62 25 3d 32 34 30  3a f2 4c 5f 3a f2 4d 5f  |:Tb%=240:.L_:.M_|
00001140  3a f2 4e 5f 3a f2 4f 5f  3a f2 50 5f 3a f2 51 5f  |:.N_:.O_:.P_:.Q_|
00001150  3a f2 52 5f 3a f2 53 5f  3a f2 54 5f 3a c8 99 32  |:.R_:.S_:.T_:..2|
00001160  36 33 38 37 33 3a c8 99  32 36 32 33 35 33 2c 4d  |63873:..262353,M|
00001170  61 25 2c 30 2c 2d 39 36  30 2c 31 32 38 30 2c 2d  |a%,0,-960,1280,-|
00001180  31 35 30 3a f2 4a 62 0d  29 6e 29 c9 36 3a f2 51  |150:.Jb.)n).6:.Q|
00001190  62 28 4d 61 25 2c 36 29  3a 55 62 25 3d 56 62 25  |b(Ma%,6):Ub%=Vb%|
000011a0  3a e7 55 62 25 8c f2 50  62 28 56 61 25 2c 35 29  |:.Ub%..Pb(Va%,5)|
000011b0  0d 29 76 1b 57 62 25 3d  58 62 25 3a f2 49 62 28  |.)v.Wb%=Xb%:.Ib(|
000011c0  56 61 25 29 3a c8 8e 58  62 25 ca 0d 29 7c 38 c9  |Va%):..Xb%..)|8.|
000011d0  30 3a f2 52 62 28 56 61  25 2c 38 29 3a f2 52 62  |0:.Rb(Va%,8):.Rb|
000011e0  28 56 61 25 2c 39 29 3a  f2 52 62 28 56 61 25 2c  |(Va%,9):.Rb(Va%,|
000011f0  31 30 29 3a 59 62 25 3d  5a 62 25 3a 61 62 25 3d  |10):Yb%=Zb%:ab%=|
00001200  62 62 25 0d 29 82 38 c9  31 3a f2 50 62 28 56 61  |bb%.).8.1:.Pb(Va|
00001210  25 2c 38 29 3a f2 52 62  28 56 61 25 2c 39 29 3a  |%,8):.Rb(Va%,9):|
00001220  f2 52 62 28 56 61 25 2c  31 30 29 3a 59 62 25 3d  |.Rb(Va%,10):Yb%=|
00001230  33 34 30 3a 61 62 25 3d  32 34 30 0d 29 88 38 c9  |340:ab%=240.).8.|
00001240  32 3a f2 50 62 28 56 61  25 2c 39 29 3a f2 52 62  |2:.Pb(Va%,9):.Rb|
00001250  28 56 61 25 2c 38 29 3a  f2 52 62 28 56 61 25 2c  |(Va%,8):.Rb(Va%,|
00001260  31 30 29 3a 59 62 25 3d  33 35 30 3a 61 62 25 3d  |10):Yb%=350:ab%=|
00001270  31 30 30 0d 29 8e 36 c9  33 3a f2 50 62 28 56 61  |100.).6.3:.Pb(Va|
00001280  25 2c 31 30 29 3a f2 52  62 28 56 61 25 2c 38 29  |%,10):.Rb(Va%,8)|
00001290  3a f2 52 62 28 56 61 25  2c 39 29 3a 59 62 25 3d  |:.Rb(Va%,9):Yb%=|
000012a0  34 30 30 3a 61 62 25 3d  30 0d 29 94 43 cb 3a 63  |400:ab%=0.).C.:c|
000012b0  62 25 3d 34 30 30 3a 64  62 25 3d 30 3a 65 62 25  |b%=400:db%=0:eb%|
000012c0  3d 35 3a f2 66 62 28 56  61 25 2c 31 33 2c 59 62  |=5:.fb(Va%,13,Yb|
000012d0  25 2b 31 37 35 30 29 3a  f2 66 62 28 56 61 25 2c  |%+1750):.fb(Va%,|
000012e0  31 37 2c 61 62 25 2b 31  37 35 30 29 0d 29 a0 3c  |17,ab%+1750).).<|
000012f0  c9 37 2c 67 60 25 3a 76  60 25 3d ac 76 60 25 3a  |.7,g`%:v`%=.v`%:|
00001300  58 5f 25 21 30 3d 4d 61  25 3a 58 5f 25 21 34 3d  |X_%!0=Ma%:X_%!4=|
00001310  67 60 25 3a c8 99 32 36  32 33 35 30 2c 2c 58 5f  |g`%:..262350,,X_|
00001320  25 3a e7 ac 76 60 25 8c  0d 29 a8 56 44 61 25 3d  |%:..v`%..).VDa%=|
00001330  39 30 30 3a 67 60 25 3d  a4 67 62 28 4d 61 25 2c  |900:g`%=.gb(Ma%,|
00001340  67 60 25 2c 58 5f 25 21  38 2c 58 5f 25 21 31 32  |g`%,X_%!8,X_%!12|
00001350  2c 58 5f 25 21 31 36 2d  58 5f 25 21 38 2c 58 5f  |,X_%!16-X_%!8,X_|
00001360  25 21 32 30 2d 58 5f 25  21 31 32 2c 26 31 37 30  |%!20-X_%!12,&170|
00001370  30 34 31 31 33 2c 59 60  25 2c 65 60 25 29 0d 29  |04113,Y`%,e`%).)|
00001380  ac 56 cc 3a 44 61 25 3d  30 3a 67 60 25 3d a4 67  |.V.:Da%=0:g`%=.g|
00001390  62 28 4d 61 25 2c 67 60  25 2c 58 5f 25 21 38 2c  |b(Ma%,g`%,X_%!8,|
000013a0  58 5f 25 21 31 32 2c 58  5f 25 21 31 36 2d 58 5f  |X_%!12,X_%!16-X_|
000013b0  25 21 38 2c 58 5f 25 21  32 30 2d 58 5f 25 21 31  |%!8,X_%!20-X_%!1|
000013c0  32 2c 26 31 37 30 30 34  31 31 33 2c 59 60 25 2c  |2,&17004113,Y`%,|
000013d0  66 60 25 29 0d 29 b2 05  cd 0d 29 b8 23 c9 38 3a  |f`%).)....).#.8:|
000013e0  f2 51 62 28 4d 61 25 2c  68 60 25 29 3a f2 49 62  |.Qb(Ma%,h`%):.Ib|
000013f0  28 51 61 25 29 3a c8 8e  68 62 25 ca 0d 29 c0 4a  |(Qa%):..hb%..).J|
00001400  c9 31 3a 69 62 25 3d 6a  62 25 3a 6b 62 25 3d 6c  |.1:ib%=jb%:kb%=l|
00001410  62 25 3a 6d 62 25 3d 6e  62 25 3a 6f 62 25 3d 70  |b%:mb%=nb%:ob%=p|
00001420  62 25 3a 71 62 25 3d 72  62 25 3a 73 62 25 3d 74  |b%:qb%=rb%:sb%=t|
00001430  62 25 3a 75 62 25 3d 32  35 30 3a 76 62 25 3d 30  |b%:ub%=250:vb%=0|
00001440  3a 77 62 25 3d 31 0d 29  c8 4a c9 32 3a 69 62 25  |:wb%=1.).J.2:ib%|
00001450  3d 78 62 25 3a 6b 62 25  3d 79 62 25 3a 6d 62 25  |=xb%:kb%=yb%:mb%|
00001460  3d 7a 62 25 3a 6f 62 25  3d 5f 62 25 3a 71 62 25  |=zb%:ob%=_b%:qb%|
00001470  3d 60 62 25 3a 73 62 25  3d 41 63 25 3a 75 62 25  |=`b%:sb%=Ac%:ub%|
00001480  3d 35 30 30 3a 76 62 25  3d 30 3a 77 62 25 3d 31  |=500:vb%=0:wb%=1|
00001490  0d 29 d0 60 cb 3a f2 66  62 28 51 61 25 2c 31 34  |.).`.:.fb(Qa%,14|
000014a0  2c 6d 62 25 29 3a f2 42  63 28 51 61 25 2c 31 39  |,mb%):.Bc(Qa%,19|
000014b0  2c 6f 62 25 29 3a f2 42  63 28 51 61 25 2c 32 33  |,ob%):.Bc(Qa%,23|
000014c0  2c 71 62 25 29 3a f2 43  63 28 51 61 25 2c 31 31  |,qb%):.Cc(Qa%,11|
000014d0  2c 73 62 25 29 3a e7 69  62 25 8c f2 50 62 28 51  |,sb%):.ib%..Pb(Q|
000014e0  61 25 2c 35 29 8b f2 52  62 28 51 61 25 2c 35 29  |a%,5)..Rb(Qa%,5)|
000014f0  0d 29 dc 1e e7 6b 62 25  8c f2 50 62 28 51 61 25  |.)...kb%..Pb(Qa%|
00001500  2c 38 29 8b f2 52 62 28  51 61 25 2c 38 29 0d 29  |,8)..Rb(Qa%,8).)|
00001510  de 04 0d 29 e2 21 c9 39  3a f2 51 62 28 4d 61 25  |...).!.9:.Qb(Ma%|
00001520  2c 39 29 3a f2 49 62 28  53 61 25 29 3a c8 8e 44  |,9):.Ib(Sa%):..D|
00001530  63 25 ca 0d 29 ea 4c c9  31 3a 45 63 25 3d 46 63  |c%..).L.1:Ec%=Fc|
00001540  25 3a 47 63 25 3d 48 63  25 3a 49 63 25 3d 4a 63  |%:Gc%=Hc%:Ic%=Jc|
00001550  25 3a 4b 63 25 3d 4c 63  25 3a 4d 63 25 3d 4e 63  |%:Kc%=Lc%:Mc%=Nc|
00001560  25 3a 4f 63 25 3d 51 63  25 3a 52 63 25 3d 35 30  |%:Oc%=Qc%:Rc%=50|
00001570  30 30 3a 53 63 25 3d 30  3a 54 63 25 3d 31 30 0d  |00:Sc%=0:Tc%=10.|
00001580  29 f2 4d c9 32 3a 45 63  25 3d 55 63 25 3a 47 63  |).M.2:Ec%=Uc%:Gc|
00001590  25 3d 56 63 25 3a 49 63  25 3d 57 63 25 3a 4b 63  |%=Vc%:Ic%=Wc%:Kc|
000015a0  25 3d 58 63 25 3a 4d 63  25 3d 59 63 25 3a 4f 63  |%=Xc%:Mc%=Yc%:Oc|
000015b0  25 3d 5a 63 25 3a 52 63  25 3d 31 30 30 30 30 3a  |%=Zc%:Rc%=10000:|
000015c0  53 63 25 3d 30 3a 54 63  25 3d 35 30 0d 29 fa 50  |Sc%=0:Tc%=50.).P|
000015d0  c9 33 3a 45 63 25 3d 61  63 25 3a 47 63 25 3d 62  |.3:Ec%=ac%:Gc%=b|
000015e0  63 25 3a 49 63 25 3d 63  63 25 3a 4b 63 25 3d 64  |c%:Ic%=cc%:Kc%=d|
000015f0  63 25 3a 4d 63 25 3d 65  63 25 3a 4f 63 25 3d 66  |c%:Mc%=ec%:Oc%=f|
00001600  63 25 28 30 29 3a 52 63  25 3d 31 30 30 30 30 3a  |c%(0):Rc%=10000:|
00001610  53 63 25 3d 30 3a 54 63  25 3d 35 30 0d 2a 02 4c  |Sc%=0:Tc%=50.*.L|
00001620  c9 34 3a 45 63 25 3d 67  63 25 3a 47 63 25 3d 68  |.4:Ec%=gc%:Gc%=h|
00001630  63 25 3a 49 63 25 3d 69  63 25 3a 4b 63 25 3d 6a  |c%:Ic%=ic%:Kc%=j|
00001640  63 25 3a 4d 63 25 3d 6b  63 25 3a 4f 63 25 3d 6c  |c%:Mc%=kc%:Oc%=l|
00001650  63 25 3a 52 63 25 3d 31  30 30 30 3a 53 63 25 3d  |c%:Rc%=1000:Sc%=|
00001660  30 3a 54 63 25 3d 31 30  0d 2a 0a 61 cb 3a f2 66  |0:Tc%=10.*.a.:.f|
00001670  62 28 53 61 25 2c 31 34  2c 49 63 25 29 3a f2 66  |b(Sa%,14,Ic%):.f|
00001680  62 28 53 61 25 2c 31 39  2c 4b 63 25 29 3a f2 66  |b(Sa%,19,Kc%):.f|
00001690  62 28 53 61 25 2c 32 33  2c 4d 63 25 29 3a f2 43  |b(Sa%,23,Mc%):.C|
000016a0  63 28 53 61 25 2c 31 31  2c 4f 63 25 29 3a e7 45  |c(Sa%,11,Oc%):.E|
000016b0  63 25 8c 3a f2 50 62 28  53 61 25 2c 35 29 8b f2  |c%.:.Pb(Sa%,5)..|
000016c0  52 62 28 53 61 25 2c 35  29 0d 2a 16 1f e7 47 63  |Rb(Sa%,5).*...Gc|
000016d0  25 8c 3a f2 50 62 28 53  61 25 2c 38 29 8b f2 52  |%.:.Pb(Sa%,8)..R|
000016e0  62 28 53 61 25 2c 38 29  0d 2a 18 04 0d 2a 1c 37  |b(Sa%,8).*...*.7|
000016f0  c9 31 30 3a f2 51 62 28  4d 61 25 2c 31 30 29 3a  |.10:.Qb(Ma%,10):|
00001700  f2 49 62 28 55 61 25 29  3a e7 6d 63 25 8c f2 50  |.Ib(Ua%):.mc%..P|
00001710  62 28 55 61 25 2c 34 29  8b f2 52 62 28 55 61 25  |b(Ua%,4)..Rb(Ua%|
00001720  2c 34 29 0d 2a 24 20 e7  6e 63 25 8c f2 50 62 28  |,4).*$ .nc%..Pb(|
00001730  55 61 25 2c 32 38 29 8b  f2 52 62 28 55 61 25 2c  |Ua%,28)..Rb(Ua%,|
00001740  32 38 29 0d 2a 26 20 e7  6f 63 25 8c f2 50 62 28  |28).*& .oc%..Pb(|
00001750  55 61 25 2c 33 30 29 8b  f2 52 62 28 55 61 25 2c  |Ua%,30)..Rb(Ua%,|
00001760  33 30 29 0d 2a 28 0a c8  8e 71 63 25 ca 0d 2a 2a  |30).*(...qc%..**|
00001770  27 c9 31 3a f2 50 62 28  55 61 25 2c 37 29 3a f2  |'.1:.Pb(Ua%,7):.|
00001780  52 62 28 55 61 25 2c 38  29 3a f2 52 62 28 55 61  |Rb(Ua%,8):.Rb(Ua|
00001790  25 2c 39 29 0d 2a 2c 27  c9 32 3a f2 50 62 28 55  |%,9).*,'.2:.Pb(U|
000017a0  61 25 2c 38 29 3a f2 52  62 28 55 61 25 2c 37 29  |a%,8):.Rb(Ua%,7)|
000017b0  3a f2 52 62 28 55 61 25  2c 39 29 0d 2a 2e 27 c9  |:.Rb(Ua%,9).*.'.|
000017c0  33 3a f2 50 62 28 55 61  25 2c 39 29 3a f2 52 62  |3:.Pb(Ua%,9):.Rb|
000017d0  28 55 61 25 2c 37 29 3a  f2 52 62 28 55 61 25 2c  |(Ua%,7):.Rb(Ua%,|
000017e0  38 29 0d 2a 30 0c cb 3a  c8 8e 68 62 25 ca 0d 2a  |8).*0..:..hb%..*|
000017f0  34 12 c9 31 3a f2 50 62  28 55 61 25 2c 31 31 29  |4..1:.Pb(Ua%,11)|
00001800  0d 2a 36 19 c9 32 3a e7  ac 6f 63 25 8c 3a f2 50  |.*6..2:..oc%.:.P|
00001810  62 28 55 61 25 2c 31 32  29 0d 2a 38 0c cb 3a c8  |b(Ua%,12).*8..:.|
00001820  8e 44 63 25 ca 0d 2a 3c  19 c9 31 3a e7 ac 6f 63  |.Dc%..*<..1:..oc|
00001830  25 8c 3a f2 50 62 28 55  61 25 2c 31 36 29 0d 2a  |%.:.Pb(Ua%,16).*|
00001840  3e 12 c9 32 3a f2 50 62  28 55 61 25 2c 31 37 29  |>..2:.Pb(Ua%,17)|
00001850  0d 2a 40 12 c9 33 3a f2  50 62 28 55 61 25 2c 31  |.*@..3:.Pb(Ua%,1|
00001860  38 29 0d 2a 42 12 c9 34  3a f2 50 62 28 55 61 25  |8).*B..4:.Pb(Ua%|
00001870  2c 31 39 29 0d 2a 44 0c  cb 3a c8 8e 72 63 25 ca  |,19).*D..:..rc%.|
00001880  0d 2a 48 12 c9 31 3a f2  50 62 28 55 61 25 2c 32  |.*H..1:.Pb(Ua%,2|
00001890  33 29 0d 2a 4a 12 c9 32  3a f2 50 62 28 55 61 25  |3).*J..2:.Pb(Ua%|
000018a0  2c 32 35 29 0d 2a 4c 12  c9 33 3a f2 50 62 28 55  |,25).*L..3:.Pb(U|
000018b0  61 25 2c 32 37 29 0d 2a  4e 05 cb 0d 2a 54 1a c9  |a%,27).*N...*T..|
000018c0  31 31 2c 6a 60 25 3a 73  63 25 3d ac 73 63 25 3a  |11,j`%:sc%=.sc%:|
000018d0  e7 73 63 25 8c 0d 2a 5a  ca 6f 63 25 3d b9 3a 6d  |.sc%..*Z.oc%=.:m|
000018e0  63 25 3d b9 3a 71 63 25  3d 33 3a 58 5f 25 21 30  |c%=.:qc%=3:X_%!0|
000018f0  3d 4d 61 25 3a 58 5f 25  21 34 3d 6a 60 25 3a c8  |=Ma%:X_%!4=j`%:.|
00001900  99 32 36 32 33 35 30 2c  2c 58 5f 25 3a 6a 60 25  |.262350,,X_%:j`%|
00001910  3d a4 67 62 28 4d 61 25  2c 6a 60 25 2c 58 5f 25  |=.gb(Ma%,j`%,X_%|
00001920  21 38 2c 58 5f 25 21 31  32 2c 58 5f 25 21 31 36  |!8,X_%!12,X_%!16|
00001930  2d 58 5f 25 21 38 2c 58  5f 25 21 32 30 2d 58 5f  |-X_%!8,X_%!20-X_|
00001940  25 21 31 32 2c 26 31 37  30 30 34 31 31 33 2c 59  |%!12,&17004113,Y|
00001950  60 25 2c 6d 60 25 29 3a  79 62 25 3d b9 3a 48 63  |`%,m`%):yb%=.:Hc|
00001960  25 3d a3 3a 68 62 25 3d  32 3a 44 63 25 3d 31 3a  |%=.:hb%=2:Dc%=1:|
00001970  6c 62 25 3d a3 3a 56 63  25 3d a3 3a 68 63 25 3d  |lb%=.:Vc%=.:hc%=|
00001980  a3 3a 62 63 25 3d a3 3a  f2 50 62 28 55 61 25 2c  |.:bc%=.:.Pb(Ua%,|
00001990  31 32 29 3a f2 52 62 28  55 61 25 2c 31 31 29 0d  |12):.Rb(Ua%,11).|
000019a0  2a 68 d5 f2 52 62 28 55  61 25 2c 31 36 29 3a f2  |*h..Rb(Ua%,16):.|
000019b0  52 62 28 55 61 25 2c 31  37 29 3a f2 52 62 28 55  |Rb(Ua%,17):.Rb(U|
000019c0  61 25 2c 31 38 29 3a f2  52 62 28 55 61 25 2c 31  |a%,18):.Rb(Ua%,1|
000019d0  39 29 3a f2 74 63 28 5f  62 25 2c 60 62 25 2c 75  |9):.tc(_b%,`b%,u|
000019e0  63 25 2c 76 63 25 2c 77  63 25 2c 78 63 25 2c 79  |c%,vc%,wc%,xc%,y|
000019f0  63 29 3a 24 62 60 25 3d  22 53 72 66 5f 6f 66 66  |c):$b`%="Srf_off|
00001a00  2c 72 66 5f 6f 6e 22 3a  58 5f 25 21 30 3d 4d 61  |,rf_on":X_%!0=Ma|
00001a10  25 3a 58 5f 25 21 34 3d  68 60 25 3a c8 99 32 36  |%:X_%!4=h`%:..26|
00001a20  32 33 35 30 2c 2c 58 5f  25 3a 68 60 25 3d a4 67  |2350,,X_%:h`%=.g|
00001a30  62 28 4d 61 25 2c 68 60  25 2c 58 5f 25 21 38 2c  |b(Ma%,h`%,X_%!8,|
00001a40  58 5f 25 21 31 32 2c 58  5f 25 21 31 36 2d 58 5f  |X_%!12,X_%!16-X_|
00001a50  25 21 38 2c 58 5f 25 21  32 30 2d 58 5f 25 21 31  |%!8,X_%!20-X_%!1|
00001a60  32 2c 26 31 37 30 30 34  31 31 33 2c 59 60 25 2c  |2,&17004113,Y`%,|
00001a70  62 60 25 29 0d 2a 72 d1  24 61 60 25 3d 22 53 63  |b`%).*r.$a`%="Sc|
00001a80  6f 32 5f 6f 66 66 2c 63  6f 32 5f 6f 6e 22 3a 58  |o2_off,co2_on":X|
00001a90  5f 25 21 30 3d 4d 61 25  3a 58 5f 25 21 34 3d 69  |_%!0=Ma%:X_%!4=i|
00001aa0  60 25 3a c8 99 32 36 32  33 35 30 2c 2c 58 5f 25  |`%:..262350,,X_%|
00001ab0  3a 69 60 25 3d a4 67 62  28 4d 61 25 2c 69 60 25  |:i`%=.gb(Ma%,i`%|
00001ac0  2c 58 5f 25 21 38 2c 58  5f 25 21 31 32 2c 58 5f  |,X_%!8,X_%!12,X_|
00001ad0  25 21 31 36 2d 58 5f 25  21 38 2c 58 5f 25 21 32  |%!16-X_%!8,X_%!2|
00001ae0  30 2d 58 5f 25 21 31 32  2c 26 31 37 30 30 34 31  |0-X_%!12,&170041|
00001af0  31 33 2c 59 60 25 2c 61  60 25 29 3a f2 7a 63 28  |13,Y`%,a`%):.zc(|
00001b00  51 61 25 2c 31 37 2c 22  53 63 61 6c 65 20 28 57  |Qa%,17,"Scale (W|
00001b10  6d 2d 32 29 22 29 3a f2  4b 62 3a f2 4a 62 3a 44  |m-2)"):.Kb:.Jb:D|
00001b20  63 24 3d 22 20 22 3a f2  4c 61 28 51 61 25 29 3a  |c$=" ":.La(Qa%):|
00001b30  f2 50 62 28 55 61 25 2c  34 29 3a f2 50 62 28 55  |.Pb(Ua%,4):.Pb(U|
00001b40  61 25 2c 37 29 0d 2a 82  25 f2 52 62 28 55 61 25  |a%,7).*.%.Rb(Ua%|
00001b50  2c 38 29 3a f2 52 62 28  55 61 25 2c 39 29 3a f2  |,8):.Rb(Ua%,9):.|
00001b60  50 62 28 55 61 25 2c 33  30 29 0d 2a 86 c1 cc 3a  |Pb(Ua%,30).*...:|
00001b70  6f 63 25 3d a3 3a 6d 63  25 3d a3 3a 58 5f 25 21  |oc%=.:mc%=.:X_%!|
00001b80  30 3d 4d 61 25 3a 58 5f  25 21 34 3d 6a 60 25 3a  |0=Ma%:X_%!4=j`%:|
00001b90  c8 99 32 36 32 33 35 30  2c 2c 58 5f 25 3a 6a 60  |..262350,,X_%:j`|
00001ba0  25 3d a4 67 62 28 4d 61  25 2c 6a 60 25 2c 58 5f  |%=.gb(Ma%,j`%,X_|
00001bb0  25 21 38 2c 58 5f 25 21  31 32 2c 58 5f 25 21 31  |%!8,X_%!12,X_%!1|
00001bc0  36 2d 58 5f 25 21 38 2c  58 5f 25 21 32 30 2d 58  |6-X_%!8,X_%!20-X|
00001bd0  5f 25 21 31 32 2c 26 31  37 30 30 34 31 31 33 2c  |_%!12,&17004113,|
00001be0  59 60 25 2c 6e 60 25 29  3a f2 50 62 28 55 61 25  |Y`%,n`%):.Pb(Ua%|
00001bf0  2c 31 32 29 3a f2 50 62  28 55 61 25 2c 31 36 29  |,12):.Pb(Ua%,16)|
00001c00  3a 79 62 25 3d b9 3a 48  63 25 3d b9 3a f2 4b 62  |:yb%=.:Hc%=.:.Kb|
00001c10  3a f2 4a 62 3a f2 52 62  28 55 61 25 2c 34 29 3a  |:.Jb:.Rb(Ua%,4):|
00001c20  f2 52 62 28 55 61 25 2c  33 30 29 0d 2a 9a 43 cd  |.Rb(Ua%,30).*.C.|
00001c30  3a 77 60 25 3d a3 3a 78  60 25 3d a3 3a 79 60 25  |:w`%=.:x`%=.:y`%|
00001c40  3d b9 3a 7a 60 25 3d b9  3a 75 61 25 3d 4d 61 25  |=.:z`%=.:ua%=Ma%|
00001c50  3a c8 99 32 36 32 33 35  33 2c 4d 61 25 2c 30 2c  |:..262353,Ma%,0,|
00001c60  2d 39 36 30 2c 31 32 38  30 2c 2d 31 35 30 0d 2a  |-960,1280,-150.*|
00001c70  a4 d6 c9 31 32 3a f2 51  62 28 4d 61 25 2c 31 32  |...12:.Qb(Ma%,12|
00001c80  29 3a f2 49 62 28 4c 61  25 29 3a 5f 63 25 28 31  |):.Ib(La%):_c%(1|
00001c90  29 3d 51 63 25 3a f2 43  63 28 4c 61 25 2c 33 2c  |)=Qc%:.Cc(La%,3,|
00001ca0  5f 63 25 28 31 29 29 3a  5f 63 25 28 32 29 3d 5a  |_c%(1)):_c%(2)=Z|
00001cb0  63 25 3a f2 43 63 28 4c  61 25 2c 36 2c 5f 63 25  |c%:.Cc(La%,6,_c%|
00001cc0  28 32 29 29 3a 5f 63 25  28 33 29 3d 6c 63 25 3a  |(2)):_c%(3)=lc%:|
00001cd0  f2 43 63 28 4c 61 25 2c  39 2c 5f 63 25 28 33 29  |.Cc(La%,9,_c%(3)|
00001ce0  29 3a 5f 63 25 28 34 29  3d 66 63 25 28 30 29 3a  |):_c%(4)=fc%(0):|
00001cf0  f2 43 63 28 4c 61 25 2c  31 32 2c 5f 63 25 28 34  |.Cc(La%,12,_c%(4|
00001d00  29 29 3a 5f 63 25 28 35  29 3d 66 63 25 28 31 29  |)):_c%(5)=fc%(1)|
00001d10  3a f2 43 63 28 4c 61 25  2c 31 35 2c 5f 63 25 28  |:.Cc(La%,15,_c%(|
00001d20  35 29 29 3a 5f 63 25 28  36 29 3d 66 63 25 28 32  |5)):_c%(6)=fc%(2|
00001d30  29 3a f2 43 63 28 4c 61  25 2c 31 38 2c 5f 63 25  |):.Cc(La%,18,_c%|
00001d40  28 36 29 29 0d 2a b6 24  5f 63 25 28 37 29 3d 66  |(6)).*.$_c%(7)=f|
00001d50  63 25 28 33 29 3a f2 43  63 28 4c 61 25 2c 32 31  |c%(3):.Cc(La%,21|
00001d60  2c 5f 63 25 28 37 29 29  0d 2a bc 56 c9 31 33 3a  |,_c%(7)).*.V.13:|
00001d70  f2 51 62 28 4d 61 25 2c  31 33 29 3a f2 49 62 28  |.Qb(Ma%,13):.Ib(|
00001d80  57 61 25 29 3a 60 60 25  3d b9 3a e7 60 63 25 3d  |Wa%):``%=.:.`c%=|
00001d90  31 30 30 80 41 64 25 3d  30 8c 3a f2 50 62 28 57  |100.Ad%=0.:.Pb(W|
00001da0  61 25 2c 32 31 29 3a f2  52 62 28 57 61 25 2c 32  |a%,21):.Rb(Wa%,2|
00001db0  32 29 3a f2 52 62 28 57  61 25 2c 32 33 29 0d 2a  |2):.Rb(Wa%,23).*|
00001dc0  c4 37 e7 60 63 25 3d 32  35 30 80 41 64 25 3d 30  |.7.`c%=250.Ad%=0|
00001dd0  8c 3a f2 50 62 28 57 61  25 2c 32 32 29 3a f2 52  |.:.Pb(Wa%,22):.R|
00001de0  62 28 57 61 25 2c 32 31  29 3a f2 52 62 28 57 61  |b(Wa%,21):.Rb(Wa|
00001df0  25 2c 32 33 29 0d 2a c6  38 e7 60 63 25 3d 31 30  |%,23).*.8.`c%=10|
00001e00  30 30 80 41 64 25 3d 30  8c 3a f2 50 62 28 57 61  |00.Ad%=0.:.Pb(Wa|
00001e10  25 2c 32 33 29 3a f2 52  62 28 57 61 25 2c 32 31  |%,23):.Rb(Wa%,21|
00001e20  29 3a f2 52 62 28 57 61  25 2c 32 32 29 0d 2a c8  |):.Rb(Wa%,22).*.|
00001e30  14 e7 45 62 25 3d 34 8c  3a f2 4c 61 28 4d 61 25  |..Eb%=4.:.La(Ma%|
00001e40  29 0d 2a ca 0e f2 77 61  28 48 60 25 2c 32 29 0d  |).*...wa(H`%,2).|
00001e50  2a d0 30 c9 31 34 3a f2  51 62 28 4d 61 25 2c 31  |*.0.14:.Qb(Ma%,1|
00001e60  34 29 3a f2 7a 63 28 64  61 25 2c 32 2c 42 64 24  |4):.zc(da%,2,Bd$|
00001e70  28 43 64 25 29 29 3a f2  49 62 28 64 61 25 29 0d  |(Cd%)):.Ib(da%).|
00001e80  2a dc 3f c9 31 37 3a f2  51 62 28 4d 61 25 2c 31  |*.?.17:.Qb(Ma%,1|
00001e90  37 29 3a 45 61 25 3d 4d  61 25 3a 54 60 25 3d 26  |7):Ea%=Ma%:T`%=&|
00001ea0  41 46 46 3a 44 64 25 3d  50 60 25 3a f2 45 64 28  |AFF:Dd%=P`%:.Ed(|
00001eb0  6a 61 25 2c 31 2c 50 60  25 29 3a f2 46 64 0d 2a  |ja%,1,P`%):.Fd.*|
00001ec0  e8 19 c9 31 38 3a e7 46  61 25 3d 26 41 33 84 46  |...18:.Fa%=&A3.F|
00001ed0  61 25 3d 26 41 34 8c 0d  2a ee 4f f2 51 62 28 4d  |a%=&A4..*.O.Qb(M|
00001ee0  61 25 2c 31 38 29 3a ff  22 49 66 20 22 22 3c 48  |a%,18):."If ""<H|
00001ef0  65 6c 70 24 44 69 72 3e  22 22 3d 22 22 22 22 20  |elp$Dir>""="""" |
00001f00  54 68 65 6e 20 46 69 6c  65 72 5f 52 75 6e 20 52  |Then Filer_Run R|
00001f10  65 73 6f 75 72 63 65 73  3a 24 2e 41 70 70 73 2e  |esources:$.Apps.|
00001f20  21 48 65 6c 70 22 0d 2a  f2 05 cd 0d 2a f4 05 cb  |!Help".*....*...|
00001f30  0d 2a f6 05 cb 0d 2a fc  0f c9 56 61 25 3a c8 8e  |.*....*...Va%:..|
00001f40  45 62 25 ca 0d 2b 00 0f  c9 31 2c 34 3a c8 8e 47  |Eb%..+...1,4:..G|
00001f50  62 25 ca 0d 2b 04 1c c9  35 2c 36 3a f2 51 62 28  |b%..+...5,6:.Qb(|
00001f60  56 61 25 2c 35 29 3a 55  62 25 3d ac 55 62 25 0d  |Va%,5):Ub%=.Ub%.|
00001f70  2b 08 68 c9 38 3a 57 62  25 3d 31 3a 59 62 25 3d  |+.h.8:Wb%=1:Yb%=|
00001f80  33 34 30 3a 61 62 25 3d  32 34 30 3a f2 50 62 28  |340:ab%=240:.Pb(|
00001f90  56 61 25 2c 38 29 3a f2  52 62 28 56 61 25 2c 39  |Va%,8):.Rb(Va%,9|
00001fa0  29 3a f2 52 62 28 56 61  25 2c 31 30 29 3a f2 66  |):.Rb(Va%,10):.f|
00001fb0  62 28 56 61 25 2c 31 33  2c 59 62 25 2b 31 37 35  |b(Va%,13,Yb%+175|
00001fc0  30 29 3a f2 66 62 28 56  61 25 2c 31 37 2c 61 62  |0):.fb(Va%,17,ab|
00001fd0  25 2b 31 37 35 30 29 0d  2b 10 68 c9 39 3a 57 62  |%+1750).+.h.9:Wb|
00001fe0  25 3d 32 3a 59 62 25 3d  33 35 30 3a 61 62 25 3d  |%=2:Yb%=350:ab%=|
00001ff0  31 30 30 3a f2 50 62 28  56 61 25 2c 39 29 3a f2  |100:.Pb(Va%,9):.|
00002000  52 62 28 56 61 25 2c 38  29 3a f2 52 62 28 56 61  |Rb(Va%,8):.Rb(Va|
00002010  25 2c 31 30 29 3a f2 66  62 28 56 61 25 2c 31 33  |%,10):.fb(Va%,13|
00002020  2c 59 62 25 2b 31 37 35  30 29 3a f2 66 62 28 56  |,Yb%+1750):.fb(V|
00002030  61 25 2c 31 37 2c 61 62  25 2b 31 37 35 30 29 0d  |a%,17,ab%+1750).|
00002040  2b 18 67 c9 31 30 3a 57  62 25 3d 33 3a 59 62 25  |+.g.10:Wb%=3:Yb%|
00002050  3d 34 30 30 3a 61 62 25  3d 30 3a f2 50 62 28 56  |=400:ab%=0:.Pb(V|
00002060  61 25 2c 31 30 29 3a f2  52 62 28 56 61 25 2c 38  |a%,10):.Rb(Va%,8|
00002070  29 3a f2 52 62 28 56 61  25 2c 39 29 3a f2 66 62  |):.Rb(Va%,9):.fb|
00002080  28 56 61 25 2c 31 33 2c  59 62 25 2b 31 37 35 30  |(Va%,13,Yb%+1750|
00002090  29 3a f2 66 62 28 56 61  25 2c 31 37 2c 61 62 25  |):.fb(Va%,17,ab%|
000020a0  2b 31 37 35 30 29 0d 2b  20 33 c9 31 34 3a 57 62  |+1750).+ 3.14:Wb|
000020b0  25 3d 30 3a f2 47 64 28  56 61 25 2c 31 33 2c 31  |%=0:.Gd(Va%,13,1|
000020c0  34 2c 59 62 25 2c 59 62  25 2c 64 62 25 2c 65 62  |4,Yb%,Yb%,db%,eb|
000020d0  25 2c 31 37 35 30 2c 31  29 0d 2b 24 33 c9 31 35  |%,1750,1).+$3.15|
000020e0  3a 57 62 25 3d 30 3a f2  48 64 28 56 61 25 2c 31  |:Wb%=0:.Hd(Va%,1|
000020f0  33 2c 31 35 2c 59 62 25  2c 59 62 25 2c 63 62 25  |3,15,Yb%,Yb%,cb%|
00002100  2c 65 62 25 2c 31 37 35  30 2c 31 29 0d 2b 28 33  |,eb%,1750,1).+(3|
00002110  c9 31 38 3a 57 62 25 3d  30 3a f2 47 64 28 56 61  |.18:Wb%=0:.Gd(Va|
00002120  25 2c 31 37 2c 31 38 2c  61 62 25 2c 61 62 25 2c  |%,17,18,ab%,ab%,|
00002130  64 62 25 2c 65 62 25 2c  31 37 35 30 2c 31 29 0d  |db%,eb%,1750,1).|
00002140  2b 2c 33 c9 31 39 3a 57  62 25 3d 30 3a f2 48 64  |+,3.19:Wb%=0:.Hd|
00002150  28 56 61 25 2c 31 37 2c  31 39 2c 61 62 25 2c 61  |(Va%,17,19,ab%,a|
00002160  62 25 2c 63 62 25 2c 65  62 25 2c 31 37 35 30 2c  |b%,cb%,eb%,1750,|
00002170  31 29 0d 2b 30 10 c9 31  33 2c 31 37 3a 57 62 25  |1).+0..13,17:Wb%|
00002180  3d 30 0d 2b 32 24 c9 32  30 3a f2 51 62 28 56 61  |=0.+2$.20:.Qb(Va|
00002190  25 2c 32 30 29 3a e7 45  62 25 3d 34 8c 3a f2 4c  |%,20):.Eb%=4.:.L|
000021a0  61 28 56 61 25 29 0d 2b  36 1a c9 32 31 3a f2 51  |a(Va%).+6..21:.Q|
000021b0  62 28 56 61 25 2c 32 31  29 3a e7 ac 73 60 25 8c  |b(Va%,21):..s`%.|
000021c0  0d 2b 3c 2d e7 57 62 25  3d 30 8c 3a f2 52 62 28  |.+<-.Wb%=0.:.Rb(|
000021d0  56 61 25 2c 38 29 3a f2  52 62 28 56 61 25 2c 39  |Va%,8):.Rb(Va%,9|
000021e0  29 3a f2 52 62 28 56 61  25 2c 31 30 29 0d 2b 3e  |):.Rb(Va%,10).+>|
000021f0  72 f2 49 64 28 59 62 25  2c 61 62 25 2c 34 30 30  |r.Id(Yb%,ab%,400|
00002200  2c 30 29 3a 56 62 25 3d  55 62 25 3a 58 62 25 3d  |,0):Vb%=Ub%:Xb%=|
00002210  57 62 25 3a 5a 62 25 3d  59 62 25 3a 62 62 25 3d  |Wb%:Zb%=Yb%:bb%=|
00002220  61 62 25 3a f2 4a 64 3a  f2 74 63 28 5a 62 25 2b  |ab%:.Jd:.tc(Zb%+|
00002230  31 37 35 30 2c 62 62 25  2b 31 37 35 30 2c 4b 64  |1750,bb%+1750,Kd|
00002240  25 2c 4c 64 25 2c 4d 64  25 2c 4e 64 25 2c 4f 64  |%,Ld%,Md%,Nd%,Od|
00002250  29 3a e7 74 60 25 8c 3a  54 62 25 3d 32 34 30 0d  |):.t`%.:Tb%=240.|
00002260  2b 48 0c cd 3a c8 8e 45  62 25 ca 0d 2b 4c 24 c9  |+H..:..Eb%..+L$.|
00002270  31 3a c8 99 32 36 32 33  35 33 2c 4d 61 25 2c 30  |1:..262353,Ma%,0|
00002280  2c 2d 39 36 30 2c 31 32  38 30 2c 2d 31 35 30 0d  |,-960,1280,-150.|
00002290  2b 50 4d c9 34 3a f2 4c  61 28 56 61 25 29 3a 77  |+PM.4:.La(Va%):w|
000022a0  60 25 3d a3 3a 78 60 25  3d a3 3a 79 60 25 3d b9  |`%=.:x`%=.:y`%=.|
000022b0  3a 7a 60 25 3d b9 3a 75  61 25 3d 4d 61 25 3a c8  |:z`%=.:ua%=Ma%:.|
000022c0  99 32 36 32 33 35 33 2c  4d 61 25 2c 30 2c 2d 39  |.262353,Ma%,0,-9|
000022d0  36 30 2c 31 32 38 30 2c  2d 31 35 30 0d 2b 58 05  |60,1280,-150.+X.|
000022e0  cb 0d 2b 5a 05 cb 0d 2b  5c 05 cb 0d 2b 62 0f c9  |..+Z...+\...+b..|
000022f0  51 61 25 3a c8 8e 45 62  25 ca 0d 2b 66 0f c9 31  |Qa%:..Eb%..+f..1|
00002300  2c 34 3a c8 8e 47 62 25  ca 0d 2b 6a 1c c9 35 2c  |,4:..Gb%..+j..5,|
00002310  36 3a f2 51 62 28 51 61  25 2c 35 29 3a 69 62 25  |6:.Qb(Qa%,5):ib%|
00002320  3d ac 69 62 25 0d 2b 6c  1c c9 38 2c 39 3a f2 51  |=.ib%.+l..8,9:.Q|
00002330  62 28 51 61 25 2c 38 29  3a 6b 62 25 3d ac 6b 62  |b(Qa%,8):kb%=.kb|
00002340  25 0d 2b 6e 26 c9 31 35  3a f2 47 64 28 51 61 25  |%.+n&.15:.Gd(Qa%|
00002350  2c 31 34 2c 31 35 2c 6d  62 25 2c 6d 62 25 2c 31  |,14,15,mb%,mb%,1|
00002360  2c 31 2c 30 2c 31 29 0d  2b 70 27 c9 31 36 3a f2  |,1,0,1).+p'.16:.|
00002370  48 64 28 51 61 25 2c 31  34 2c 31 36 2c 6d 62 25  |Hd(Qa%,14,16,mb%|
00002380  2c 6d 62 25 2c 32 35 2c  31 2c 30 2c 31 29 0d 2b  |,mb%,25,1,0,1).+|
00002390  72 2b c9 32 30 3a f2 47  64 28 51 61 25 2c 31 39  |r+.20:.Gd(Qa%,19|
000023a0  2c 32 30 2c 6f 62 25 2c  6f 62 25 2c 76 62 25 2c  |,20,ob%,ob%,vb%,|
000023b0  77 62 25 2c 30 2c 31 30  29 0d 2b 74 2b c9 32 31  |wb%,0,10).+t+.21|
000023c0  3a f2 48 64 28 51 61 25  2c 31 39 2c 32 31 2c 6f  |:.Hd(Qa%,19,21,o|
000023d0  62 25 2c 6f 62 25 2c 75  62 25 2c 77 62 25 2c 30  |b%,ob%,ub%,wb%,0|
000023e0  2c 31 30 29 0d 2b 76 2b  c9 32 34 3a f2 47 64 28  |,10).+v+.24:.Gd(|
000023f0  51 61 25 2c 32 33 2c 32  34 2c 71 62 25 2c 71 62  |Qa%,23,24,qb%,qb|
00002400  25 2c 76 62 25 2c 77 62  25 2c 30 2c 31 30 29 0d  |%,vb%,wb%,0,10).|
00002410  2b 78 2b c9 32 35 3a f2  48 64 28 51 61 25 2c 32  |+x+.25:.Hd(Qa%,2|
00002420  33 2c 32 35 2c 71 62 25  2c 71 62 25 2c 75 62 25  |3,25,qb%,qb%,ub%|
00002430  2c 77 62 25 2c 30 2c 31  30 29 0d 2b 7a 24 c9 32  |,wb%,0,10).+z$.2|
00002440  36 3a f2 51 62 28 51 61  25 2c 32 36 29 3a e7 45  |6:.Qb(Qa%,26):.E|
00002450  62 25 3d 34 8c 3a f2 4c  61 28 51 61 25 29 0d 2b  |b%=4.:.La(Qa%).+|
00002460  7e 1a c9 32 37 3a f2 51  62 28 51 61 25 2c 32 37  |~..27:.Qb(Qa%,27|
00002470  29 3a e7 ac 73 60 25 8c  0d 2b 82 23 f2 50 64 28  |):..s`%..+.#.Pd(|
00002480  6d 62 25 2c 6f 62 25 2c  71 62 25 2c 75 62 25 2c  |mb%,ob%,qb%,ub%,|
00002490  76 62 25 29 3a c8 8e 68  62 25 ca 0d 2b 86 5a c9  |vb%):..hb%..+.Z.|
000024a0  31 3a 6a 62 25 3d 69 62  25 3a 6c 62 25 3d 6b 62  |1:jb%=ib%:lb%=kb|
000024b0  25 3a 6e 62 25 3d 6d 62  25 3a 70 62 25 3d 6f 62  |%:nb%=mb%:pb%=ob|
000024c0  25 3a 72 62 25 3d 71 62  25 3a 74 62 25 3d 73 62  |%:rb%=qb%:tb%=sb|
000024d0  25 3a f2 4a 64 3a f2 74  63 28 70 62 25 2c 72 62  |%:.Jd:.tc(pb%,rb|
000024e0  25 2c 51 64 25 2c 76 63  25 2c 77 63 25 2c 78 63  |%,Qd%,vc%,wc%,xc|
000024f0  25 2c 79 63 29 0d 2b 8e  5a c9 32 3a 78 62 25 3d  |%,yc).+.Z.2:xb%=|
00002500  69 62 25 3a 79 62 25 3d  6b 62 25 3a 7a 62 25 3d  |ib%:yb%=kb%:zb%=|
00002510  6d 62 25 3a 5f 62 25 3d  6f 62 25 3a 60 62 25 3d  |mb%:_b%=ob%:`b%=|
00002520  71 62 25 3a 41 63 25 3d  73 62 25 3a f2 4a 64 3a  |qb%:Ac%=sb%:.Jd:|
00002530  f2 74 63 28 5f 62 25 2c  60 62 25 2c 75 63 25 2c  |.tc(_b%,`b%,uc%,|
00002540  76 63 25 2c 77 63 25 2c  78 63 25 2c 79 63 29 0d  |vc%,wc%,xc%,yc).|
00002550  2b 96 05 cb 0d 2b 98 0c  cd 3a c8 8e 45 62 25 ca  |+....+...:..Eb%.|
00002560  0d 2b 9c 24 c9 31 3a c8  99 32 36 32 33 35 33 2c  |.+.$.1:..262353,|
00002570  4d 61 25 2c 30 2c 2d 39  36 30 2c 31 32 38 30 2c  |Ma%,0,-960,1280,|
00002580  2d 31 35 30 0d 2b a0 4d  c9 34 3a f2 4c 61 28 51  |-150.+.M.4:.La(Q|
00002590  61 25 29 3a 77 60 25 3d  a3 3a 78 60 25 3d a3 3a  |a%):w`%=.:x`%=.:|
000025a0  79 60 25 3d b9 3a 7a 60  25 3d b9 3a 75 61 25 3d  |y`%=.:z`%=.:ua%=|
000025b0  4d 61 25 3a c8 99 32 36  32 33 35 33 2c 4d 61 25  |Ma%:..262353,Ma%|
000025c0  2c 30 2c 2d 39 36 30 2c  31 32 38 30 2c 2d 31 35  |,0,-960,1280,-15|
000025d0  30 0d 2b a8 05 cb 0d 2b  aa 05 cb 0d 2b ac 05 cb  |0.+....+....+...|
000025e0  0d 2b b2 0f c9 53 61 25  3a c8 8e 45 62 25 ca 0d  |.+...Sa%:..Eb%..|
000025f0  2b b6 0f c9 31 2c 34 3a  c8 8e 47 62 25 ca 0d 2b  |+...1,4:..Gb%..+|
00002600  ba 1c c9 35 2c 36 3a f2  51 62 28 53 61 25 2c 35  |...5,6:.Qb(Sa%,5|
00002610  29 3a 45 63 25 3d ac 45  63 25 0d 2b bc 1c c9 38  |):Ec%=.Ec%.+...8|
00002620  2c 39 3a f2 51 62 28 53  61 25 2c 38 29 3a 47 63  |,9:.Qb(Sa%,8):Gc|
00002630  25 3d ac 47 63 25 0d 2b  be 26 c9 31 35 3a f2 47  |%=.Gc%.+.&.15:.G|
00002640  64 28 53 61 25 2c 31 34  2c 31 35 2c 49 63 25 2c  |d(Sa%,14,15,Ic%,|
00002650  49 63 25 2c 31 2c 31 2c  30 2c 31 29 0d 2b c0 27  |Ic%,1,1,0,1).+.'|
00002660  c9 31 36 3a f2 48 64 28  53 61 25 2c 31 34 2c 31  |.16:.Hd(Sa%,14,1|
00002670  36 2c 49 63 25 2c 49 63  25 2c 32 35 2c 31 2c 30  |6,Ic%,Ic%,25,1,0|
00002680  2c 31 29 0d 2b c2 2a c9  32 30 3a f2 47 64 28 53  |,1).+.*.20:.Gd(S|
00002690  61 25 2c 31 39 2c 32 30  2c 4b 63 25 2c 4b 63 25  |a%,19,20,Kc%,Kc%|
000026a0  2c 53 63 25 2c 54 63 25  2c 30 2c 31 29 0d 2b c4  |,Sc%,Tc%,0,1).+.|
000026b0  2a c9 32 31 3a f2 48 64  28 53 61 25 2c 31 39 2c  |*.21:.Hd(Sa%,19,|
000026c0  32 31 2c 4b 63 25 2c 4b  63 25 2c 52 63 25 2c 54  |21,Kc%,Kc%,Rc%,T|
000026d0  63 25 2c 30 2c 31 29 0d  2b c6 2a c9 32 34 3a f2  |c%,0,1).+.*.24:.|
000026e0  47 64 28 53 61 25 2c 32  33 2c 32 34 2c 4d 63 25  |Gd(Sa%,23,24,Mc%|
000026f0  2c 4d 63 25 2c 53 63 25  2c 54 63 25 2c 30 2c 31  |,Mc%,Sc%,Tc%,0,1|
00002700  29 0d 2b c8 2a c9 32 35  3a f2 48 64 28 53 61 25  |).+.*.25:.Hd(Sa%|
00002710  2c 32 33 2c 32 35 2c 4d  63 25 2c 4d 63 25 2c 52  |,23,25,Mc%,Mc%,R|
00002720  63 25 2c 54 63 25 2c 30  2c 31 29 0d 2b ca 24 c9  |c%,Tc%,0,1).+.$.|
00002730  32 36 3a f2 51 62 28 53  61 25 2c 32 36 29 3a e7  |26:.Qb(Sa%,26):.|
00002740  45 62 25 3d 34 8c 3a f2  4c 61 28 53 61 25 29 0d  |Eb%=4.:.La(Sa%).|
00002750  2b ce 1a c9 32 37 3a f2  51 62 28 53 61 25 2c 32  |+...27:.Qb(Sa%,2|
00002760  37 29 3a e7 ac 73 60 25  8c 0d 2b d2 23 f2 52 64  |7):..s`%..+.#.Rd|
00002770  28 49 63 25 2c 4b 63 25  2c 4d 63 25 2c 52 63 25  |(Ic%,Kc%,Mc%,Rc%|
00002780  2c 53 63 25 29 3a c8 8e  44 63 25 ca 0d 2b d6 5a  |,Sc%):..Dc%..+.Z|
00002790  c9 31 3a 46 63 25 3d 45  63 25 3a 48 63 25 3d 47  |.1:Fc%=Ec%:Hc%=G|
000027a0  63 25 3a 4a 63 25 3d 49  63 25 3a 4c 63 25 3d 4b  |c%:Jc%=Ic%:Lc%=K|
000027b0  63 25 3a 4e 63 25 3d 4d  63 25 3a 51 63 25 3d 4f  |c%:Nc%=Mc%:Qc%=O|
000027c0  63 25 3a f2 4a 64 3a f2  74 63 28 4c 63 25 2c 4e  |c%:.Jd:.tc(Lc%,N|
000027d0  63 25 2c 53 64 25 2c 54  64 25 2c 55 64 25 2c 56  |c%,Sd%,Td%,Ud%,V|
000027e0  64 25 2c 57 64 29 0d 2b  de 5a c9 32 3a 55 63 25  |d%,Wd).+.Z.2:Uc%|
000027f0  3d 45 63 25 3a 56 63 25  3d 47 63 25 3a 57 63 25  |=Ec%:Vc%=Gc%:Wc%|
00002800  3d 49 63 25 3a 58 63 25  3d 4b 63 25 3a 59 63 25  |=Ic%:Xc%=Kc%:Yc%|
00002810  3d 4d 63 25 3a 5a 63 25  3d 4f 63 25 3a f2 4a 64  |=Mc%:Zc%=Oc%:.Jd|
00002820  3a f2 74 63 28 58 63 25  2c 59 63 25 2c 58 64 25  |:.tc(Xc%,Yc%,Xd%|
00002830  2c 54 64 25 2c 55 64 25  2c 56 64 25 2c 57 64 29  |,Td%,Ud%,Vd%,Wd)|
00002840  0d 2b e6 5d c9 33 3a 61  63 25 3d 45 63 25 3a 62  |.+.].3:ac%=Ec%:b|
00002850  63 25 3d 47 63 25 3a 63  63 25 3d 49 63 25 3a 64  |c%=Gc%:cc%=Ic%:d|
00002860  63 25 3d 4b 63 25 3a 65  63 25 3d 4d 63 25 3a 66  |c%=Kc%:ec%=Mc%:f|
00002870  63 25 28 30 29 3d 4f 63  25 3a f2 4a 64 3a f2 74  |c%(0)=Oc%:.Jd:.t|
00002880  63 28 64 63 25 2c 65 63  25 2c 59 64 25 2c 54 64  |c(dc%,ec%,Yd%,Td|
00002890  25 2c 55 64 25 2c 56 64  25 2c 57 64 29 0d 2b ee  |%,Ud%,Vd%,Wd).+.|
000028a0  5a c9 34 3a 67 63 25 3d  45 63 25 3a 68 63 25 3d  |Z.4:gc%=Ec%:hc%=|
000028b0  47 63 25 3a 69 63 25 3d  49 63 25 3a 6a 63 25 3d  |Gc%:ic%=Ic%:jc%=|
000028c0  4b 63 25 3a 6b 63 25 3d  4d 63 25 3a 6c 63 25 3d  |Kc%:kc%=Mc%:lc%=|
000028d0  4f 63 25 3a f2 4a 64 3a  f2 74 63 28 6a 63 25 2c  |Oc%:.Jd:.tc(jc%,|
000028e0  6b 63 25 2c 5a 64 25 2c  54 64 25 2c 55 64 25 2c  |kc%,Zd%,Td%,Ud%,|
000028f0  56 64 25 2c 57 64 29 0d  2b f6 05 cb 0d 2b f8 0c  |Vd%,Wd).+....+..|
00002900  cd 3a c8 8e 45 62 25 ca  0d 2b fc 24 c9 31 3a c8  |.:..Eb%..+.$.1:.|
00002910  99 32 36 32 33 35 33 2c  4d 61 25 2c 30 2c 2d 39  |.262353,Ma%,0,-9|
00002920  36 30 2c 31 32 38 30 2c  2d 31 35 30 0d 2c 00 4d  |60,1280,-150.,.M|
00002930  c9 34 3a f2 4c 61 28 53  61 25 29 3a 77 60 25 3d  |.4:.La(Sa%):w`%=|
00002940  a3 3a 78 60 25 3d a3 3a  79 60 25 3d b9 3a 7a 60  |.:x`%=.:y`%=.:z`|
00002950  25 3d b9 3a 75 61 25 3d  4d 61 25 3a c8 99 32 36  |%=.:ua%=Ma%:..26|
00002960  32 33 35 33 2c 4d 61 25  2c 30 2c 2d 39 36 30 2c  |2353,Ma%,0,-960,|
00002970  31 32 38 30 2c 2d 31 35  30 0d 2c 08 05 cb 0d 2c  |1280,-150.,....,|
00002980  0a 05 cb 0d 2c 0c 05 cb  0d 2c 12 0f c9 55 61 25  |....,....,...Ua%|
00002990  3a c8 8e 45 62 25 ca 0d  2c 16 06 c9 32 0d 2c 18  |:..Eb%..,...2.,.|
000029a0  0f c9 31 2c 34 3a c8 8e  47 62 25 ca 0d 2c 1c 1c  |..1,4:..Gb%..,..|
000029b0  c9 34 2c 35 3a f2 51 62  28 55 61 25 2c 34 29 3a  |.4,5:.Qb(Ua%,4):|
000029c0  6d 63 25 3d ac 6d 63 25  0d 2c 20 2d c9 37 3a 71  |mc%=.mc%., -.7:q|
000029d0  63 25 3d 31 3a f2 50 62  28 55 61 25 2c 37 29 3a  |c%=1:.Pb(Ua%,7):|
000029e0  f2 52 62 28 55 61 25 2c  38 29 3a f2 52 62 28 55  |.Rb(Ua%,8):.Rb(U|
000029f0  61 25 2c 39 29 0d 2c 24  2d c9 38 3a 71 63 25 3d  |a%,9).,$-.8:qc%=|
00002a00  32 3a f2 50 62 28 55 61  25 2c 38 29 3a f2 52 62  |2:.Pb(Ua%,8):.Rb|
00002a10  28 55 61 25 2c 37 29 3a  f2 52 62 28 55 61 25 2c  |(Ua%,7):.Rb(Ua%,|
00002a20  39 29 0d 2c 28 2d c9 39  3a 71 63 25 3d 33 3a f2  |9).,(-.9:qc%=3:.|
00002a30  50 62 28 55 61 25 2c 39  29 3a f2 52 62 28 55 61  |Pb(Ua%,9):.Rb(Ua|
00002a40  25 2c 37 29 3a f2 52 62  28 55 61 25 2c 38 29 0d  |%,7):.Rb(Ua%,8).|
00002a50  2c 2c 0e c9 31 31 3a e7  ac 6f 63 25 8c 0d 2c 30  |,,..11:..oc%..,0|
00002a60  d5 68 62 25 3d 31 3a f2  50 62 28 55 61 25 2c 31  |.hb%=1:.Pb(Ua%,1|
00002a70  31 29 3a f2 52 62 28 55  61 25 2c 31 32 29 3a 6c  |1):.Rb(Ua%,12):l|
00002a80  62 25 3d 6b 62 25 3a 6a  62 25 3d 69 62 25 3a f2  |b%=kb%:jb%=ib%:.|
00002a90  74 63 28 70 62 25 2c 72  62 25 2c 51 64 25 2c 76  |tc(pb%,rb%,Qd%,v|
00002aa0  63 25 2c 77 63 25 2c 78  63 25 2c 79 63 29 3a 24  |c%,wc%,xc%,yc):$|
00002ab0  62 60 25 3d 22 53 74 65  6d 70 6f 66 66 2c 74 65  |b`%="Stempoff,te|
00002ac0  6d 70 6f 6e 22 3a 58 5f  25 21 30 3d 4d 61 25 3a  |mpon":X_%!0=Ma%:|
00002ad0  58 5f 25 21 34 3d 68 60  25 3a c8 99 32 36 32 33  |X_%!4=h`%:..2623|
00002ae0  35 30 2c 2c 58 5f 25 3a  68 60 25 3d a4 67 62 28  |50,,X_%:h`%=.gb(|
00002af0  4d 61 25 2c 68 60 25 2c  58 5f 25 21 38 2c 58 5f  |Ma%,h`%,X_%!8,X_|
00002b00  25 21 31 32 2c 58 5f 25  21 31 36 2d 58 5f 25 21  |%!12,X_%!16-X_%!|
00002b10  38 2c 58 5f 25 21 32 30  2d 58 5f 25 21 31 32 2c  |8,X_%!20-X_%!12,|
00002b20  26 31 37 30 30 34 31 31  33 2c 59 60 25 2c 62 60  |&17004113,Y`%,b`|
00002b30  25 29 0d 2c 3c 24 f2 7a  63 28 51 61 25 2c 31 37  |%).,<$.zc(Qa%,17|
00002b40  2c 22 53 63 61 6c 65 20  28 b0 43 29 22 29 3a f2  |,"Scale (.C)"):.|
00002b50  4b 62 3a f2 4a 62 0d 2c  40 05 cd 0d 2c 42 da c9  |Kb:.Jb.,@...,B..|
00002b60  31 32 2c 31 33 3a 68 62  25 3d 32 3a f2 50 62 28  |12,13:hb%=2:.Pb(|
00002b70  55 61 25 2c 31 32 29 3a  f2 52 62 28 55 61 25 2c  |Ua%,12):.Rb(Ua%,|
00002b80  31 31 29 3a 79 62 25 3d  6b 62 25 3a 78 62 25 3d  |11):yb%=kb%:xb%=|
00002b90  69 62 25 3a f2 74 63 28  5f 62 25 2c 60 62 25 2c  |ib%:.tc(_b%,`b%,|
00002ba0  75 63 25 2c 76 63 25 2c  77 63 25 2c 78 63 25 2c  |uc%,vc%,wc%,xc%,|
00002bb0  79 63 29 3a 24 62 60 25  3d 22 53 72 66 5f 6f 66  |yc):$b`%="Srf_of|
00002bc0  66 2c 72 66 5f 6f 6e 22  3a 58 5f 25 21 30 3d 4d  |f,rf_on":X_%!0=M|
00002bd0  61 25 3a 58 5f 25 21 34  3d 68 60 25 3a c8 99 32  |a%:X_%!4=h`%:..2|
00002be0  36 32 33 35 30 2c 2c 58  5f 25 3a 68 60 25 3d a4  |62350,,X_%:h`%=.|
00002bf0  67 62 28 4d 61 25 2c 68  60 25 2c 58 5f 25 21 38  |gb(Ma%,h`%,X_%!8|
00002c00  2c 58 5f 25 21 31 32 2c  58 5f 25 21 31 36 2d 58  |,X_%!12,X_%!16-X|
00002c10  5f 25 21 38 2c 58 5f 25  21 32 30 2d 58 5f 25 21  |_%!8,X_%!20-X_%!|
00002c20  31 32 2c 26 31 37 30 30  34 31 31 33 2c 59 60 25  |12,&17004113,Y`%|
00002c30  2c 62 60 25 29 0d 2c 50  24 f2 7a 63 28 51 61 25  |,b`%).,P$.zc(Qa%|
00002c40  2c 31 37 2c 22 53 63 61  6c 65 20 28 57 6d 2d 32  |,17,"Scale (Wm-2|
00002c50  29 22 29 3a e7 6f 63 25  8c 0d 2c 54 48 f2 52 62  |)"):.oc%..,TH.Rb|
00002c60  28 55 61 25 2c 31 36 29  3a 79 62 25 3d b9 3a 48  |(Ua%,16):yb%=.:H|
00002c70  63 25 3d a3 3a 68 62 24  3d 22 52 61 64 69 61 74  |c%=.:hb$="Radiat|
00002c80  69 76 65 20 46 6f 72 63  69 6e 67 20 28 57 6d 2d  |ive Forcing (Wm-|
00002c90  32 29 22 3a 44 63 24 3d  22 20 22 3a 47 63 25 3d  |2)":Dc$=" ":Gc%=|
00002ca0  a3 0d 2c 5a 0d cd 3a f2  4b 62 3a f2 4a 62 0d 2c  |..,Z..:.Kb:.Jb.,|
00002cb0  5e d1 c9 31 36 3a 44 63  25 3d 31 3a f2 50 62 28  |^..16:Dc%=1:.Pb(|
00002cc0  55 61 25 2c 31 36 29 3a  f2 52 62 28 55 61 25 2c  |Ua%,16):.Rb(Ua%,|
00002cd0  31 37 29 3a f2 52 62 28  55 61 25 2c 31 38 29 3a  |17):.Rb(Ua%,18):|
00002ce0  f2 52 62 28 55 61 25 2c  31 39 29 3a 48 63 25 3d  |.Rb(Ua%,19):Hc%=|
00002cf0  47 63 25 3a 46 63 25 3d  45 63 25 3a 24 61 60 25  |Gc%:Fc%=Ec%:$a`%|
00002d00  3d 22 53 63 6f 32 5f 6f  66 66 2c 63 6f 32 5f 6f  |="Sco2_off,co2_o|
00002d10  6e 22 3a 58 5f 25 21 30  3d 4d 61 25 3a 58 5f 25  |n":X_%!0=Ma%:X_%|
00002d20  21 34 3d 69 60 25 3a c8  99 32 36 32 33 35 30 2c  |!4=i`%:..262350,|
00002d30  2c 58 5f 25 3a 69 60 25  3d a4 67 62 28 4d 61 25  |,X_%:i`%=.gb(Ma%|
00002d40  2c 69 60 25 2c 58 5f 25  21 38 2c 58 5f 25 21 31  |,i`%,X_%!8,X_%!1|
00002d50  32 2c 58 5f 25 21 31 36  2d 58 5f 25 21 38 2c 58  |2,X_%!16-X_%!8,X|
00002d60  5f 25 21 32 30 2d 58 5f  25 21 31 32 2c 26 31 37  |_%!20-X_%!12,&17|
00002d70  30 30 34 31 31 33 2c 59  60 25 2c 61 60 25 29 0d  |004113,Y`%,a`%).|
00002d80  2c 6a 2d f2 4a 64 3a f2  74 63 28 4c 63 25 2c 4e  |,j-.Jd:.tc(Lc%,N|
00002d90  63 25 2c 53 64 25 2c 54  64 25 2c 55 64 25 2c 56  |c%,Sd%,Td%,Ud%,V|
00002da0  64 25 2c 57 64 29 3a e7  6f 63 25 8c 0d 2c 6e 40  |d%,Wd):.oc%..,n@|
00002db0  f2 52 62 28 55 61 25 2c  31 32 29 3a 79 62 25 3d  |.Rb(Ua%,12):yb%=|
00002dc0  a3 3a 48 63 25 3d b9 3a  68 62 24 3d 22 20 22 3a  |.:Hc%=.:hb$=" ":|
00002dd0  44 63 24 3d 22 43 4f 32  20 63 6f 6e 63 2e 20 28  |Dc$="CO2 conc. (|
00002de0  70 70 6d 76 29 22 3a 6b  62 25 3d a3 0d 2c 74 0d  |ppmv)":kb%=..,t.|
00002df0  cd 3a f2 4b 62 3a f2 4a  62 0d 2c 78 0e c9 31 37  |.:.Kb:.Jb.,x..17|
00002e00  3a e7 ac 6f 63 25 8c 0d  2c 7c cd 44 63 25 3d 32  |:..oc%..,|.Dc%=2|
00002e10  3a f2 50 62 28 55 61 25  2c 31 37 29 3a f2 52 62  |:.Pb(Ua%,17):.Rb|
00002e20  28 55 61 25 2c 31 36 29  3a f2 52 62 28 55 61 25  |(Ua%,16):.Rb(Ua%|
00002e30  2c 31 38 29 3a f2 52 62  28 55 61 25 2c 31 39 29  |,18):.Rb(Ua%,19)|
00002e40  3a 56 63 25 3d 47 63 25  3a 55 63 25 3d 45 63 25  |:Vc%=Gc%:Uc%=Ec%|
00002e50  3a 24 61 60 25 3d 22 53  63 68 34 5f 6f 66 66 2c  |:$a`%="Sch4_off,|
00002e60  63 68 34 5f 6f 6e 22 3a  58 5f 25 21 30 3d 4d 61  |ch4_on":X_%!0=Ma|
00002e70  25 3a 58 5f 25 21 34 3d  69 60 25 3a c8 99 32 36  |%:X_%!4=i`%:..26|
00002e80  32 33 35 30 2c 2c 58 5f  25 3a 69 60 25 3d a4 67  |2350,,X_%:i`%=.g|
00002e90  62 28 4d 61 25 2c 69 60  25 2c 58 5f 25 21 38 2c  |b(Ma%,i`%,X_%!8,|
00002ea0  58 5f 25 21 31 32 2c 58  5f 25 21 31 36 2d 58 5f  |X_%!12,X_%!16-X_|
00002eb0  25 21 38 2c 58 5f 25 21  32 30 2d 58 5f 25 21 31  |%!8,X_%!20-X_%!1|
00002ec0  32 2c 26 31 37 30 30 34  31 31 33 2c 59 60 25 2c  |2,&17004113,Y`%,|
00002ed0  61 60 25 29 0d 2c 86 2f  f2 4a 64 3a f2 74 63 28  |a`%).,./.Jd:.tc(|
00002ee0  58 63 25 2c 59 63 25 2c  58 64 25 2c 54 64 25 2c  |Xc%,Yc%,Xd%,Td%,|
00002ef0  55 64 25 2c 56 64 25 2c  57 64 29 3a f2 4b 62 3a  |Ud%,Vd%,Wd):.Kb:|
00002f00  f2 4a 62 0d 2c 8a 05 cd  0d 2c 8c 0e c9 31 38 3a  |.Jb.,....,...18:|
00002f10  e7 ac 6f 63 25 8c 0d 2c  90 cd 44 63 25 3d 33 3a  |..oc%..,..Dc%=3:|
00002f20  f2 50 62 28 55 61 25 2c  31 38 29 3a f2 52 62 28  |.Pb(Ua%,18):.Rb(|
00002f30  55 61 25 2c 31 36 29 3a  f2 52 62 28 55 61 25 2c  |Ua%,16):.Rb(Ua%,|
00002f40  31 37 29 3a f2 52 62 28  55 61 25 2c 31 39 29 3a  |17):.Rb(Ua%,19):|
00002f50  62 63 25 3d 47 63 25 3a  61 63 25 3d 45 63 25 3a  |bc%=Gc%:ac%=Ec%:|
00002f60  24 61 60 25 3d 22 53 63  66 63 5f 6f 66 66 2c 63  |$a`%="Scfc_off,c|
00002f70  66 63 5f 6f 6e 22 3a 58  5f 25 21 30 3d 4d 61 25  |fc_on":X_%!0=Ma%|
00002f80  3a 58 5f 25 21 34 3d 69  60 25 3a c8 99 32 36 32  |:X_%!4=i`%:..262|
00002f90  33 35 30 2c 2c 58 5f 25  3a 69 60 25 3d a4 67 62  |350,,X_%:i`%=.gb|
00002fa0  28 4d 61 25 2c 69 60 25  2c 58 5f 25 21 38 2c 58  |(Ma%,i`%,X_%!8,X|
00002fb0  5f 25 21 31 32 2c 58 5f  25 21 31 36 2d 58 5f 25  |_%!12,X_%!16-X_%|
00002fc0  21 38 2c 58 5f 25 21 32  30 2d 58 5f 25 21 31 32  |!8,X_%!20-X_%!12|
00002fd0  2c 26 31 37 30 30 34 31  31 33 2c 59 60 25 2c 61  |,&17004113,Y`%,a|
00002fe0  60 25 29 0d 2c 9a 2f f2  4a 64 3a f2 74 63 28 64  |`%).,./.Jd:.tc(d|
00002ff0  63 25 2c 65 63 25 2c 59  64 25 2c 54 64 25 2c 55  |c%,ec%,Yd%,Td%,U|
00003000  64 25 2c 56 64 25 2c 57  64 29 3a f2 4b 62 3a f2  |d%,Vd%,Wd):.Kb:.|
00003010  4a 62 0d 2c 9e 05 cd 0d  2c a0 0e c9 31 39 3a e7  |Jb.,....,...19:.|
00003020  ac 6f 63 25 8c 0d 2c a4  cd 44 63 25 3d 34 3a f2  |.oc%..,..Dc%=4:.|
00003030  50 62 28 55 61 25 2c 31  39 29 3a f2 52 62 28 55  |Pb(Ua%,19):.Rb(U|
00003040  61 25 2c 31 36 29 3a f2  52 62 28 55 61 25 2c 31  |a%,16):.Rb(Ua%,1|
00003050  37 29 3a f2 52 62 28 55  61 25 2c 31 38 29 3a 68  |7):.Rb(Ua%,18):h|
00003060  63 25 3d 47 63 25 3a 67  63 25 3d 45 63 25 3a 24  |c%=Gc%:gc%=Ec%:$|
00003070  61 60 25 3d 22 53 6e 32  6f 5f 6f 66 66 2c 6e 32  |a`%="Sn2o_off,n2|
00003080  6f 5f 6f 6e 22 3a 58 5f  25 21 30 3d 4d 61 25 3a  |o_on":X_%!0=Ma%:|
00003090  58 5f 25 21 34 3d 69 60  25 3a c8 99 32 36 32 33  |X_%!4=i`%:..2623|
000030a0  35 30 2c 2c 58 5f 25 3a  69 60 25 3d a4 67 62 28  |50,,X_%:i`%=.gb(|
000030b0  4d 61 25 2c 69 60 25 2c  58 5f 25 21 38 2c 58 5f  |Ma%,i`%,X_%!8,X_|
000030c0  25 21 31 32 2c 58 5f 25  21 31 36 2d 58 5f 25 21  |%!12,X_%!16-X_%!|
000030d0  38 2c 58 5f 25 21 32 30  2d 58 5f 25 21 31 32 2c  |8,X_%!20-X_%!12,|
000030e0  26 31 37 30 30 34 31 31  33 2c 59 60 25 2c 61 60  |&17004113,Y`%,a`|
000030f0  25 29 0d 2c ae 2f f2 4a  64 3a f2 74 63 28 6a 63  |%).,./.Jd:.tc(jc|
00003100  25 2c 6b 63 25 2c 5a 64  25 2c 54 64 25 2c 55 64  |%,kc%,Zd%,Td%,Ud|
00003110  25 2c 56 64 25 2c 57 64  29 3a f2 4b 62 3a f2 4a  |%,Vd%,Wd):.Kb:.J|
00003120  62 0d 2c b2 05 cd 0d 2c  b4 17 c9 32 33 2c 32 34  |b.,....,...23,24|
00003130  3a 72 63 25 3d 31 3a c8  8e 43 64 25 ca 0d 2c ba  |:rc%=1:..Cd%..,.|
00003140  1c c9 30 3a 61 64 25 3d  31 35 37 3a 72 62 25 3d  |..0:ad%=157:rb%=|
00003150  30 3a 70 62 25 3d 51 64  25 0d 2c bc 1c c9 31 3a  |0:pb%=Qd%.,...1:|
00003160  61 64 25 3d 31 35 33 3a  72 62 25 3d 30 3a 70 62  |ad%=153:rb%=0:pb|
00003170  25 3d 51 64 25 0d 2c be  1c c9 32 3a 61 64 25 3d  |%=Qd%.,...2:ad%=|
00003180  31 35 30 3a 72 62 25 3d  30 3a 70 62 25 3d 51 64  |150:rb%=0:pb%=Qd|
00003190  25 0d 2c c0 1a c9 33 3a  61 64 25 3d 30 3a 72 62  |%.,...3:ad%=0:rb|
000031a0  25 3d 30 3a 70 62 25 3d  51 64 25 0d 2c c2 d6 cb  |%=0:pb%=Qd%.,...|
000031b0  3a 62 64 25 3d 32 34 3a  60 62 25 3d 30 3a 5f 62  |:bd%=24:`b%=0:_b|
000031c0  25 3d 75 63 25 3a 63 64  25 3d 33 35 33 3a 4e 63  |%=uc%:cd%=353:Nc|
000031d0  25 3d 30 3a 4c 63 25 3d  53 64 25 3a 64 64 25 3d  |%=0:Lc%=Sd%:dd%=|
000031e0  31 37 31 37 3a 59 63 25  3d 30 3a 58 63 25 3d 58  |1717:Yc%=0:Xc%=X|
000031f0  64 25 3a 65 64 25 28 30  29 3d 38 31 38 3a 65 64  |d%:ed%(0)=818:ed|
00003200  25 28 31 29 3d 32 35 35  3a 65 64 25 28 32 29 3d  |%(1)=255:ed%(2)=|
00003210  34 35 33 3a 65 64 25 28  33 29 3d 31 31 30 3a 65  |453:ed%(3)=110:e|
00003220  63 25 3d 30 3a 64 63 25  3d 59 64 25 3a 66 64 25  |c%=0:dc%=Yd%:fd%|
00003230  3d 33 31 30 3a 6b 63 25  3d 30 3a 6a 63 25 3d 5a  |=310:kc%=0:jc%=Z|
00003240  64 25 3a 67 64 25 3d 31  35 3a 68 64 25 3d 34 3a  |d%:gd%=15:hd%=4:|
00003250  69 64 25 3d 31 3a 6a 64  25 28 30 29 3d 33 3a 6a  |id%=1:jd%(0)=3:j|
00003260  64 25 28 31 29 3d 31 3a  6a 64 25 28 32 29 3d 31  |d%(1)=1:jd%(2)=1|
00003270  3a 6a 64 25 28 33 29 3d  31 3a f2 4b 62 3a f2 4a  |:jd%(3)=1:.Kb:.J|
00003280  62 0d 2c d4 17 c9 32 35  2c 32 36 3a 72 63 25 3d  |b.,...25,26:rc%=|
00003290  32 3a c8 8e 43 64 25 ca  0d 2c da 1c c9 30 3a 61  |2:..Cd%..,...0:a|
000032a0  64 25 3d 31 34 34 3a 72  62 25 3d 30 3a 70 62 25  |d%=144:rb%=0:pb%|
000032b0  3d 51 64 25 0d 2c dc 1c  c9 31 3a 61 64 25 3d 31  |=Qd%.,...1:ad%=1|
000032c0  34 34 3a 72 62 25 3d 30  3a 70 62 25 3d 51 64 25  |44:rb%=0:pb%=Qd%|
000032d0  0d 2c de 1c c9 32 3a 61  64 25 3d 31 34 34 3a 72  |.,...2:ad%=144:r|
000032e0  62 25 3d 30 3a 70 62 25  3d 51 64 25 0d 2c e0 1a  |b%=0:pb%=Qd%.,..|
000032f0  c9 34 3a 61 64 25 3d 30  3a 72 62 25 3d 30 3a 70  |.4:ad%=0:rb%=0:p|
00003300  62 25 3d 51 64 25 0d 2c  e2 93 cb 3a 62 64 25 3d  |b%=Qd%.,...:bd%=|
00003310  30 3a 60 62 25 3d 30 3a  5f 62 25 3d 75 63 25 3a  |0:`b%=0:_b%=uc%:|
00003320  63 64 25 3d 32 38 30 3a  4e 63 25 3d 30 3a 4c 63  |cd%=280:Nc%=0:Lc|
00003330  25 3d 53 64 25 3a 64 64  25 3d 37 39 30 3a 59 63  |%=Sd%:dd%=790:Yc|
00003340  25 3d 30 3a 58 63 25 3d  58 64 25 3a 65 64 25 28  |%=0:Xc%=Xd%:ed%(|
00003350  29 3d 30 3a 65 63 25 3d  30 3a 64 63 25 3d 59 64  |)=0:ec%=0:dc%=Yd|
00003360  25 3a 66 64 25 3d 32 38  35 3a 6b 63 25 3d 30 3a  |%:fd%=285:kc%=0:|
00003370  6a 63 25 3d 5a 64 25 3a  67 64 25 3d 30 3a 68 64  |jc%=Zd%:gd%=0:hd|
00003380  25 3d 30 3a 6a 64 25 28  29 3d 30 3a 69 64 25 3d  |%=0:jd%()=0:id%=|
00003390  30 3a f2 4b 62 3a f2 4a  62 0d 2c f2 de c9 32 37  |0:.Kb:.Jb.,...27|
000033a0  2c 33 32 3a 72 63 25 3d  33 3a 61 64 25 3d 30 3a  |,32:rc%=3:ad%=0:|
000033b0  72 62 25 3d 31 33 30 2b  61 64 25 3a 70 62 25 3d  |rb%=130+ad%:pb%=|
000033c0  31 33 30 2b 61 64 25 2b  51 64 25 3a 62 64 25 3d  |130+ad%+Qd%:bd%=|
000033d0  30 3a 60 62 25 3d 62 64  25 3a 5f 62 25 3d 62 64  |0:`b%=bd%:_b%=bd|
000033e0  25 2b 75 63 25 3a 63 64  25 3d 30 3a 4e 63 25 3d  |%+uc%:cd%=0:Nc%=|
000033f0  63 64 25 3a 4c 63 25 3d  63 64 25 2b 53 64 25 3a  |cd%:Lc%=cd%+Sd%:|
00003400  64 64 25 3d 30 3a 59 63  25 3d 64 64 25 3a 58 63  |dd%=0:Yc%=dd%:Xc|
00003410  25 3d 64 64 25 2b 58 64  25 3a 65 64 25 28 29 3d  |%=dd%+Xd%:ed%()=|
00003420  30 3a 65 63 25 3d 65 64  25 28 30 29 3a 64 63 25  |0:ec%=ed%(0):dc%|
00003430  3d 65 64 25 28 30 29 2b  59 64 25 3a 66 64 25 3d  |=ed%(0)+Yd%:fd%=|
00003440  30 3a 6b 63 25 3d 66 64  25 3a 6a 63 25 3d 66 64  |0:kc%=fd%:jc%=fd|
00003450  25 2b 5a 64 25 3a 67 64  25 3d 30 3a 68 64 25 3d  |%+Zd%:gd%=0:hd%=|
00003460  30 3a 6a 64 25 28 29 3d  30 3a 69 64 25 3d 30 3a  |0:jd%()=0:id%=0:|
00003470  f2 4b 62 3a f2 4a 62 0d  2d 06 1f c9 32 38 2c 32  |.Kb:.Jb.-...28,2|
00003480  39 3a 6e 63 25 3d ac 6e  63 25 3a f2 51 62 28 55  |9:nc%=.nc%:.Qb(U|
00003490  61 25 2c 32 38 29 0d 2d  0a 25 c9 33 30 2c 33 31  |a%,28).-.%.30,31|
000034a0  3a 6f 63 25 3d ac 6f 63  25 3a f2 51 62 28 55 61  |:oc%=.oc%:.Qb(Ua|
000034b0  25 2c 33 30 29 3a e7 6f  63 25 8c 0d 2d 10 d2 79  |%,30):.oc%..-..y|
000034c0  62 25 3d b9 3a 48 63 25  3d a3 3a 68 62 25 3d 32  |b%=.:Hc%=.:hb%=2|
000034d0  3a 6b 64 25 3d 31 3a 6c  62 25 3d a3 3a 56 63 25  |:kd%=1:lb%=.:Vc%|
000034e0  3d a3 3a 68 63 25 3d a3  3a 62 63 25 3d a3 3a f2  |=.:hc%=.:bc%=.:.|
000034f0  50 62 28 55 61 25 2c 31  32 29 3a f2 52 62 28 55  |Pb(Ua%,12):.Rb(U|
00003500  61 25 2c 31 31 29 3a f2  52 62 28 55 61 25 2c 31  |a%,11):.Rb(Ua%,1|
00003510  36 29 3a f2 52 62 28 55  61 25 2c 31 37 29 3a f2  |6):.Rb(Ua%,17):.|
00003520  52 62 28 55 61 25 2c 31  38 29 3a f2 52 62 28 55  |Rb(Ua%,18):.Rb(U|
00003530  61 25 2c 31 39 29 3a f2  74 63 28 5f 62 25 2c 60  |a%,19):.tc(_b%,`|
00003540  62 25 2c 75 63 25 2c 76  63 25 2c 77 63 25 2c 78  |b%,uc%,vc%,wc%,x|
00003550  63 25 2c 79 63 29 3a 24  62 60 25 3d 22 53 72 66  |c%,yc):$b`%="Srf|
00003560  5f 6f 66 66 2c 72 66 5f  6f 6e 22 3a 58 5f 25 21  |_off,rf_on":X_%!|
00003570  30 3d 4d 61 25 3a 58 5f  25 21 34 3d 68 60 25 3a  |0=Ma%:X_%!4=h`%:|
00003580  c8 99 32 36 32 33 35 30  2c 2c 58 5f 25 0d 2d 20  |..262350,,X_%.- |
00003590  de 68 60 25 3d a4 67 62  28 4d 61 25 2c 68 60 25  |.h`%=.gb(Ma%,h`%|
000035a0  2c 58 5f 25 21 38 2c 58  5f 25 21 31 32 2c 58 5f  |,X_%!8,X_%!12,X_|
000035b0  25 21 31 36 2d 58 5f 25  21 38 2c 58 5f 25 21 32  |%!16-X_%!8,X_%!2|
000035c0  30 2d 58 5f 25 21 31 32  2c 26 31 37 30 30 34 31  |0-X_%!12,&170041|
000035d0  31 33 2c 59 60 25 2c 62  60 25 29 3a 24 61 60 25  |13,Y`%,b`%):$a`%|
000035e0  3d 22 53 63 6f 32 5f 6f  66 66 2c 63 6f 32 5f 6f  |="Sco2_off,co2_o|
000035f0  6e 22 3a 58 5f 25 21 30  3d 4d 61 25 3a 58 5f 25  |n":X_%!0=Ma%:X_%|
00003600  21 34 3d 69 60 25 3a c8  99 32 36 32 33 35 30 2c  |!4=i`%:..262350,|
00003610  2c 58 5f 25 3a 69 60 25  3d a4 67 62 28 4d 61 25  |,X_%:i`%=.gb(Ma%|
00003620  2c 69 60 25 2c 58 5f 25  21 38 2c 58 5f 25 21 31  |,i`%,X_%!8,X_%!1|
00003630  32 2c 58 5f 25 21 31 36  2d 58 5f 25 21 38 2c 58  |2,X_%!16-X_%!8,X|
00003640  5f 25 21 32 30 2d 58 5f  25 21 31 32 2c 26 31 37  |_%!20-X_%!12,&17|
00003650  30 30 34 31 31 33 2c 59  60 25 2c 61 60 25 29 3a  |004113,Y`%,a`%):|
00003660  f2 4b 62 3a 44 63 24 3d  22 20 22 0d 2d 2c 0c f2  |.Kb:Dc$=" ".-,..|
00003670  4c 61 28 51 61 25 29 0d  2d 2e 3f cc 3a 79 62 25  |La(Qa%).-.?.:yb%|
00003680  3d b9 3a 48 63 25 3d b9  3a 6e 63 25 3d a3 3a f2  |=.:Hc%=.:nc%=.:.|
00003690  50 62 28 55 61 25 2c 31  32 29 3a f2 50 62 28 55  |Pb(Ua%,12):.Pb(U|
000036a0  61 25 2c 31 36 29 3a f2  52 62 28 55 61 25 2c 32  |a%,16):.Rb(Ua%,2|
000036b0  38 29 3a f2 4b 62 0d 2d  36 05 cd 0d 2d 38 0d cb  |8):.Kb.-6...-8..|
000036c0  3a e7 45 62 25 3d 34 8c  0d 2d 3c 21 c8 99 32 36  |:.Eb%=4..-<!..26|
000036d0  32 33 35 33 2c 4d 61 25  2c 30 2c 2d 39 36 30 2c  |2353,Ma%,0,-960,|
000036e0  31 32 38 30 2c 2d 31 35  30 0d 2d 40 05 cd 0d 2d  |1280,-150.-@...-|
000036f0  42 05 cb 0d 2d 48 0f c9  4c 61 25 3a c8 8e 45 62  |B...-H..La%:..Eb|
00003700  25 ca 0d 2d 4c 0f c9 31  2c 34 3a c8 8e 47 62 25  |%..-L..1,4:..Gb%|
00003710  ca 0d 2d 50 18 c9 32 34  3a e7 45 62 25 3d 34 8c  |..-P..24:.Eb%=4.|
00003720  3a f2 4c 61 28 4c 61 25  29 0d 2d 54 71 c9 32 35  |:.La(La%).-Tq.25|
00003730  3a 51 63 25 3d 5f 63 25  28 31 29 3a 5a 63 25 3d  |:Qc%=_c%(1):Zc%=|
00003740  5f 63 25 28 32 29 3a 6c  63 25 3d 5f 63 25 28 33  |_c%(2):lc%=_c%(3|
00003750  29 3a 66 63 25 28 30 29  3d 5f 63 25 28 34 29 3a  |):fc%(0)=_c%(4):|
00003760  66 63 25 28 31 29 3d 5f  63 25 28 35 29 3a 66 63  |fc%(1)=_c%(5):fc|
00003770  25 28 32 29 3d 5f 63 25  28 36 29 3a 66 63 25 28  |%(2)=_c%(6):fc%(|
00003780  33 29 3d 5f 63 25 28 37  29 3a e7 45 62 25 3d 34  |3)=_c%(7):.Eb%=4|
00003790  8c 3a f2 4c 61 28 4c 61  25 29 0d 2d 5a 41 77 60  |.:.La(La%).-ZAw`|
000037a0  25 3d a3 3a 78 60 25 3d  a3 3a 79 60 25 3d b9 3a  |%=.:x`%=.:y`%=.:|
000037b0  7a 60 25 3d b9 3a 75 61  25 3d 4d 61 25 3a c8 99  |z`%=.:ua%=Ma%:..|
000037c0  32 36 32 33 35 33 2c 4d  61 25 2c 30 2c 2d 39 36  |262353,Ma%,0,-96|
000037d0  30 2c 31 32 38 30 2c 2d  31 35 30 0d 2d 5e 05 cb  |0,1280,-150.-^..|
000037e0  0d 2d 60 05 cb 0d 2d 66  0f c9 57 61 25 3a c8 8e  |.-`...-f..Wa%:..|
000037f0  45 62 25 ca 0d 2d 6a 0d  c9 31 3a c8 8e 47 62 25  |Eb%..-j..1:..Gb%|
00003800  ca 0d 2d 6e 34 c9 31 2c  32 2c 34 2c 35 2c 36 2c  |..-n4.1,2,4,5,6,|
00003810  37 3a f2 51 62 28 57 61  25 2c 47 62 25 29 3a e7  |7:.Qb(Wa%,Gb%):.|
00003820  6c 64 25 3e 30 8c 3a f2  52 62 28 57 61 25 2c 6c  |ld%>0.:.Rb(Wa%,l|
00003830  64 25 2d 31 29 0d 2d 72  1e e7 6c 64 25 3d 47 62  |d%-1).-r..ld%=Gb|
00003840  25 2b 31 8c 6c 64 25 3d  30 8b 6c 64 25 3d 47 62  |%+1.ld%=0.ld%=Gb|
00003850  25 2b 31 0d 2d 74 1c f2  6d 64 3a e7 6e 64 25 8c  |%+1.-t..md:.nd%.|
00003860  48 62 24 3d 22 20 2a 22  8b 48 62 24 3d 22 22 0d  |Hb$=" *".Hb$="".|
00003870  2d 78 8c e3 4e 25 3d 31  b8 37 3a f2 6f 64 28 70  |-x..N%=1.7:.od(p|
00003880  64 25 28 4e 25 29 2c 71  64 25 28 4e 25 29 2c 72  |d%(N%),qd%(N%),r|
00003890  64 25 28 4e 25 29 2c 73  64 25 28 4e 25 29 2c 74  |d%(N%),sd%(N%),t|
000038a0  64 25 28 4e 25 29 2c 75  64 25 28 4e 25 29 2c 76  |d%(N%),ud%(N%),v|
000038b0  64 28 4e 25 29 29 3a f2  77 64 28 41 60 25 28 4e  |d(N%)):.wd(A`%(N|
000038c0  25 29 2c 42 60 25 28 4e  25 29 2c 42 60 24 28 4e  |%),B`%(N%),B`$(N|
000038d0  25 2c 6c 64 25 29 2b 48  62 24 29 3a c8 99 32 36  |%,ld%)+Hb$):..26|
000038e0  32 33 35 33 2c 41 60 25  28 4e 25 29 2c 30 2c 2d  |2353,A`%(N%),0,-|
000038f0  34 32 30 2c 36 34 30 2c  30 3a ed 0d 2d 82 05 cb  |420,640,0:..-...|
00003900  0d 2d 84 0d c9 34 3a c8  8e 47 62 25 ca 0d 2d 88  |.-...4:..Gb%..-.|
00003910  e4 c9 30 3a f2 51 62 28  57 61 25 2c 30 29 3a 78  |..0:.Qb(Wa%,0):x|
00003920  64 25 3d b9 3a f2 49 62  28 61 61 25 29 3a 79 64  |d%=.:.Ib(aa%):yd|
00003930  25 28 29 3d 7a 64 25 28  29 3a 5f 64 25 28 29 3d  |%()=zd%():_d%()=|
00003940  60 64 25 28 29 3a 41 65  25 28 29 3d 42 65 25 28  |`d%():Ae%()=Be%(|
00003950  29 3a 43 65 25 28 29 3d  44 65 25 28 29 3a 45 65  |):Ce%()=De%():Ee|
00003960  25 28 29 3d 46 65 25 28  29 3a 47 65 25 28 29 3d  |%()=Fe%():Ge%()=|
00003970  48 65 25 28 29 3a 49 65  25 3d 4a 65 25 3a 4b 65  |He%():Ie%=Je%:Ke|
00003980  25 28 29 3d 4c 65 25 28  29 3a f2 66 62 28 61 61  |%()=Le%():.fb(aa|
00003990  25 2c 35 2c 79 64 25 28  49 65 25 29 29 3a f2 66  |%,5,yd%(Ie%)):.f|
000039a0  62 28 61 61 25 2c 31 30  2c 5f 64 25 28 49 65 25  |b(aa%,10,_d%(Ie%|
000039b0  29 29 3a f2 66 62 28 61  61 25 2c 31 35 2c 41 65  |)):.fb(aa%,15,Ae|
000039c0  25 28 49 65 25 29 29 3a  f2 66 62 28 61 61 25 2c  |%(Ie%)):.fb(aa%,|
000039d0  32 30 2c 43 65 25 28 49  65 25 29 29 3a f2 66 62  |20,Ce%(Ie%)):.fb|
000039e0  28 61 61 25 2c 32 35 2c  45 65 25 28 49 65 25 29  |(aa%,25,Ee%(Ie%)|
000039f0  29 0d 2d 92 5f f2 66 62  28 61 61 25 2c 33 30 2c  |).-._.fb(aa%,30,|
00003a00  49 65 25 29 3a f2 66 62  28 61 61 25 2c 34 31 2c  |Ie%):.fb(aa%,41,|
00003a10  4b 65 25 28 49 65 25 29  29 3a e3 4e 25 3d 31 b8  |Ke%(Ie%)):.N%=1.|
00003a20  34 3a e7 47 65 25 28 49  65 25 2c 4e 25 29 8c f2  |4:.Ge%(Ie%,N%)..|
00003a30  50 62 28 61 61 25 2c 33  2b 35 2a 4e 25 29 8b f2  |Pb(aa%,3+5*N%)..|
00003a40  52 62 28 61 61 25 2c 33  2b 35 2a 4e 25 29 3a ed  |Rb(aa%,3+5*N%):.|
00003a50  0d 2d 96 0e f2 51 62 28  57 61 25 2c 30 29 0d 2d  |.-...Qb(Wa%,0).-|
00003a60  98 e3 c9 31 3a f2 51 62  28 57 61 25 2c 31 29 3a  |...1:.Qb(Wa%,1):|
00003a70  f2 49 62 28 68 61 25 29  3a 4d 65 25 28 29 3d 4e  |.Ib(ha%):Me%()=N|
00003a80  65 25 28 29 3a 4f 65 25  28 29 3d 50 65 25 28 29  |e%():Oe%()=Pe%()|
00003a90  3a 51 65 25 28 29 3d 52  65 25 28 29 3a 53 65 25  |:Qe%()=Re%():Se%|
00003aa0  28 29 3d 54 65 25 28 29  3a 55 65 25 28 29 3d 56  |()=Te%():Ue%()=V|
00003ab0  65 25 28 29 3a 57 65 25  3d 58 65 25 3a 59 65 25  |e%():We%=Xe%:Ye%|
00003ac0  28 29 3d 5a 65 25 28 29  3a e3 4e 25 3d 30 b8 35  |()=Ze%():.N%=0.5|
00003ad0  3a f2 61 65 28 4e 25 29  3a ed 3a f2 66 62 28 68  |:.ae(N%):.:.fb(h|
00003ae0  61 25 2c 32 2c 4d 65 25  28 57 65 25 29 29 3a f2  |a%,2,Me%(We%)):.|
00003af0  66 62 28 68 61 25 2c 38  2c 4f 65 25 28 57 65 25  |fb(ha%,8,Oe%(We%|
00003b00  29 29 3a f2 66 62 28 68  61 25 2c 31 32 2c 51 65  |)):.fb(ha%,12,Qe|
00003b10  25 28 57 65 25 29 29 3a  f2 66 62 28 68 61 25 2c  |%(We%)):.fb(ha%,|
00003b20  31 35 2c 53 65 25 28 57  65 25 29 29 3a f2 66 62  |15,Se%(We%)):.fb|
00003b30  28 68 61 25 2c 32 31 2c  55 65 25 28 57 65 25 29  |(ha%,21,Ue%(We%)|
00003b40  29 0d 2d a4 33 f2 66 62  28 68 61 25 2c 32 36 2c  |).-.3.fb(ha%,26,|
00003b50  57 65 25 29 3a f2 66 62  28 68 61 25 2c 33 30 2c  |We%):.fb(ha%,30,|
00003b60  59 65 25 28 57 65 25 29  29 3a f2 51 62 28 57 61  |Ye%(We%)):.Qb(Wa|
00003b70  25 2c 31 29 0d 2d a8 e0  c9 32 3a f2 51 62 28 57  |%,1).-...2:.Qb(W|
00003b80  61 25 2c 32 29 3a f2 49  62 28 62 61 25 29 3a 62  |a%,2):.Ib(ba%):b|
00003b90  65 25 3d 63 65 25 3a 64  65 25 28 29 3d 65 65 25  |e%=ce%:de%()=ee%|
00003ba0  28 29 3a 66 65 25 28 29  3d 67 65 25 28 29 3a 68  |():fe%()=ge%():h|
00003bb0  65 25 28 29 3d 69 65 25  28 29 3a 6a 65 25 28 29  |e%()=ie%():je%()|
00003bc0  3d 6b 65 25 28 29 3a 6c  65 25 28 29 3d 6d 65 25  |=ke%():le%()=me%|
00003bd0  28 29 3a f2 66 62 28 62  61 25 2c 32 33 2c 62 65  |():.fb(ba%,23,be|
00003be0  25 29 3a f2 66 62 28 62  61 25 2c 32 37 2c 66 65  |%):.fb(ba%,27,fe|
00003bf0  25 28 62 65 25 29 29 3a  f2 66 62 28 62 61 25 2c  |%(be%)):.fb(ba%,|
00003c00  33 2c 64 65 25 28 62 65  25 29 29 3a f2 66 62 28  |3,de%(be%)):.fb(|
00003c10  62 61 25 2c 38 2c 68 65  25 28 62 65 25 29 29 3a  |ba%,8,he%(be%)):|
00003c20  f2 66 62 28 62 61 25 2c  31 33 2c 6a 65 25 28 62  |.fb(ba%,13,je%(b|
00003c30  65 25 29 29 3a f2 66 62  28 62 61 25 2c 31 38 2c  |e%)):.fb(ba%,18,|
00003c40  6c 65 25 28 62 65 25 29  29 3a f2 51 62 28 57 61  |le%(be%)):.Qb(Wa|
00003c50  25 2c 32 29 0d 2d b6 d1  c9 33 3a f2 51 62 28 57  |%,2).-...3:.Qb(W|
00003c60  61 25 2c 33 29 3a f2 49  62 28 66 61 25 29 3a 6e  |a%,3):.Ib(fa%):n|
00003c70  65 25 28 29 3d 6f 65 25  28 29 3a 70 65 25 28 29  |e%()=oe%():pe%()|
00003c80  3d 71 65 25 28 29 3a 72  65 25 28 29 3d 73 65 25  |=qe%():re%()=se%|
00003c90  28 29 3a 74 65 25 28 29  3d 75 65 25 28 29 3a 76  |():te%()=ue%():v|
00003ca0  65 25 28 29 3d 77 65 25  28 29 3a 78 65 25 3d 79  |e%()=we%():xe%=y|
00003cb0  65 25 3a 7a 65 25 28 29  3d 5f 65 25 28 29 3a f2  |e%:ze%()=_e%():.|
00003cc0  66 62 28 66 61 25 2c 34  2c 6e 65 25 28 78 65 25  |fb(fa%,4,ne%(xe%|
00003cd0  29 29 3a f2 66 62 28 66  61 25 2c 39 2c 70 65 25  |)):.fb(fa%,9,pe%|
00003ce0  28 78 65 25 29 29 3a f2  66 62 28 66 61 25 2c 31  |(xe%)):.fb(fa%,1|
00003cf0  34 2c 72 65 25 28 78 65  25 29 29 3a f2 66 62 28  |4,re%(xe%)):.fb(|
00003d00  66 61 25 2c 32 30 2c 74  65 25 28 78 65 25 29 29  |fa%,20,te%(xe%))|
00003d10  3a f2 66 62 28 66 61 25  2c 33 37 2c 76 65 25 28  |:.fb(fa%,37,ve%(|
00003d20  78 65 25 29 29 0d 2d c0  33 f2 66 62 28 66 61 25  |xe%)).-.3.fb(fa%|
00003d30  2c 32 35 2c 78 65 25 29  3a f2 66 62 28 66 61 25  |,25,xe%):.fb(fa%|
00003d40  2c 32 39 2c 7a 65 25 28  78 65 25 29 29 3a f2 51  |,29,ze%(xe%)):.Q|
00003d50  62 28 57 61 25 2c 33 29  0d 2d c4 9e c9 34 3a f2  |b(Wa%,3).-...4:.|
00003d60  51 62 28 57 61 25 2c 34  29 3a f2 49 62 28 63 61  |Qb(Wa%,4):.Ib(ca|
00003d70  25 29 3a 60 65 25 28 29  3d 41 66 25 28 29 3a 42  |%):`e%()=Af%():B|
00003d80  66 25 28 29 3d 43 66 25  28 29 3a 44 66 25 3d 45  |f%()=Cf%():Df%=E|
00003d90  66 25 3a 46 66 25 28 29  3d 47 66 25 28 29 3a f2  |f%:Ff%()=Gf%():.|
00003da0  66 62 28 63 61 25 2c 33  2c 60 65 25 28 44 66 25  |fb(ca%,3,`e%(Df%|
00003db0  29 29 3a f2 66 62 28 63  61 25 2c 38 2c 42 66 25  |)):.fb(ca%,8,Bf%|
00003dc0  28 44 66 25 29 29 3a f2  66 62 28 63 61 25 2c 31  |(Df%)):.fb(ca%,1|
00003dd0  32 2c 44 66 25 29 3a f2  66 62 28 63 61 25 2c 31  |2,Df%):.fb(ca%,1|
00003de0  36 2c 46 66 25 28 44 66  25 29 29 3a f2 51 62 28  |6,Ff%(Df%)):.Qb(|
00003df0  57 61 25 2c 34 29 0d 2d  d2 9e c9 35 3a f2 51 62  |Wa%,4).-...5:.Qb|
00003e00  28 57 61 25 2c 35 29 3a  f2 49 62 28 65 61 25 29  |(Wa%,5):.Ib(ea%)|
00003e10  3a 48 66 25 28 29 3d 49  66 25 28 29 3a 4a 66 25  |:Hf%()=If%():Jf%|
00003e20  28 29 3d 4b 66 25 28 29  3a 4c 66 25 3d 4d 66 25  |()=Kf%():Lf%=Mf%|
00003e30  3a 4e 66 25 28 29 3d 4f  66 25 28 29 3a f2 66 62  |:Nf%()=Of%():.fb|
00003e40  28 65 61 25 2c 33 2c 48  66 25 28 4c 66 25 29 29  |(ea%,3,Hf%(Lf%))|
00003e50  3a f2 66 62 28 65 61 25  2c 38 2c 4a 66 25 28 4c  |:.fb(ea%,8,Jf%(L|
00003e60  66 25 29 29 3a f2 66 62  28 65 61 25 2c 31 32 2c  |f%)):.fb(ea%,12,|
00003e70  4c 66 25 29 3a f2 66 62  28 65 61 25 2c 31 36 2c  |Lf%):.fb(ea%,16,|
00003e80  4e 66 25 28 4c 66 25 29  29 3a f2 51 62 28 57 61  |Nf%(Lf%)):.Qb(Wa|
00003e90  25 2c 35 29 0d 2d e0 c0  c9 36 3a f2 51 62 28 57  |%,5).-...6:.Qb(W|
00003ea0  61 25 2c 36 29 3a f2 49  62 28 67 61 25 29 3a 50  |a%,6):.Ib(ga%):P|
00003eb0  66 25 28 29 3d 51 66 25  28 29 3a 52 66 25 28 29  |f%()=Qf%():Rf%()|
00003ec0  3d 53 66 25 28 29 3a 54  66 25 28 29 3d 55 66 25  |=Sf%():Tf%()=Uf%|
00003ed0  28 29 3a 56 66 25 3d 57  66 25 3a 58 66 25 28 29  |():Vf%=Wf%:Xf%()|
00003ee0  3d 59 66 25 28 29 3a f2  66 62 28 67 61 25 2c 34  |=Yf%():.fb(ga%,4|
00003ef0  2c 50 66 25 28 56 66 25  29 29 3a f2 66 62 28 67  |,Pf%(Vf%)):.fb(g|
00003f00  61 25 2c 31 30 2c 52 66  25 28 56 66 25 29 29 3a  |a%,10,Rf%(Vf%)):|
00003f10  f2 66 62 28 67 61 25 2c  31 36 2c 54 66 25 28 56  |.fb(ga%,16,Tf%(V|
00003f20  66 25 29 29 3a f2 66 62  28 67 61 25 2c 32 31 2c  |f%)):.fb(ga%,21,|
00003f30  56 66 25 29 3a f2 66 62  28 67 61 25 2c 32 35 2c  |Vf%):.fb(ga%,25,|
00003f40  4e 66 25 28 56 66 25 29  29 3a f2 51 62 28 57 61  |Nf%(Vf%)):.Qb(Wa|
00003f50  25 2c 36 29 0d 2d ee 05  cb 0d 2d f0 0c cb 3a c8  |%,6).-....-...:.|
00003f60  8e 45 62 25 ca 0d 2d f4  0f c9 31 2c 34 3a c8 8e  |.Eb%..-...1,4:..|
00003f70  47 62 25 ca 0d 2d f8 2d  c9 39 2c 31 30 2c 31 31  |Gb%..-.-.9,10,11|
00003f80  2c 31 32 2c 31 33 2c 31  34 2c 31 35 3a e7 6e 64  |,12,13,14,15:.nd|
00003f90  25 8c 48 62 24 3d 22 20  2a 22 8b 48 62 24 3d 22  |%.Hb$=" *".Hb$="|
00003fa0  22 0d 2d fc 4e f2 51 62  28 57 61 25 2c 47 62 25  |".-.N.Qb(Wa%,Gb%|
00003fb0  29 3a f2 49 62 28 41 60  25 28 47 62 25 2d 38 29  |):.Ib(A`%(Gb%-8)|
00003fc0  29 3a f2 77 64 28 41 60  25 28 47 62 25 2d 38 29  |):.wd(A`%(Gb%-8)|
00003fd0  2c 42 60 25 28 47 62 25  2d 38 29 2c 42 60 24 28  |,B`%(Gb%-8),B`$(|
00003fe0  47 62 25 2d 38 2c 6c 64  25 29 2b 48 62 24 29 0d  |Gb%-8,ld%)+Hb$).|
00003ff0  2e 00 2a c9 31 37 3a f2  51 62 28 57 61 25 2c 31  |..*.17:.Qb(Wa%,1|
00004000  37 29 3a e3 4e 25 3d 31  b8 37 3a f2 4c 61 28 41  |7):.N%=1.7:.La(A|
00004010  60 25 28 4e 25 29 29 3a  ed 0d 2e 04 3c c9 31 38  |`%(N%)):....<.18|
00004020  2c 6b 60 25 3a 5a 66 25  3d ac 5a 66 25 3a 58 5f  |,k`%:Zf%=.Zf%:X_|
00004030  25 21 30 3d 57 61 25 3a  58 5f 25 21 34 3d 6b 60  |%!0=Wa%:X_%!4=k`|
00004040  25 3a c8 99 32 36 32 33  35 30 2c 2c 58 5f 25 3a  |%:..262350,,X_%:|
00004050  e7 5a 66 25 8c 0d 2e 0c  65 24 63 60 25 3d 22 53  |.Zf%....e$c`%="S|
00004060  61 62 73 5f 6f 66 66 2c  61 62 73 5f 6f 6e 22 3a  |abs_off,abs_on":|
00004070  6b 60 25 3d a4 67 62 28  57 61 25 2c 6b 60 25 2c  |k`%=.gb(Wa%,k`%,|
00004080  58 5f 25 21 38 2c 58 5f  25 21 31 32 2c 58 5f 25  |X_%!8,X_%!12,X_%|
00004090  21 31 36 2d 58 5f 25 21  38 2c 58 5f 25 21 32 30  |!16-X_%!8,X_%!20|
000040a0  2d 58 5f 25 21 31 32 2c  26 31 37 30 30 34 31 31  |-X_%!12,&1700411|
000040b0  33 2c 59 60 25 2c 63 60  25 29 0d 2e 10 67 cc 3a  |3,Y`%,c`%)...g.:|
000040c0  24 63 60 25 3d 22 53 70  65 72 5f 6f 66 66 2c 70  |$c`%="Sper_off,p|
000040d0  65 72 5f 6f 6e 22 3a 6b  60 25 3d a4 67 62 28 57  |er_on":k`%=.gb(W|
000040e0  61 25 2c 6b 60 25 2c 58  5f 25 21 38 2c 58 5f 25  |a%,k`%,X_%!8,X_%|
000040f0  21 31 32 2c 58 5f 25 21  31 36 2d 58 5f 25 21 38  |!12,X_%!16-X_%!8|
00004100  2c 58 5f 25 21 32 30 2d  58 5f 25 21 31 32 2c 26  |,X_%!20-X_%!12,&|
00004110  31 37 30 30 34 31 31 33  2c 59 60 25 2c 63 60 25  |17004113,Y`%,c`%|
00004120  29 0d 2e 18 05 cd 0d 2e  1a 37 c9 38 3a f2 51 62  |)........7.8:.Qb|
00004130  28 57 61 25 2c 38 29 3a  f2 49 62 28 59 61 25 29  |(Wa%,8):.Ib(Ya%)|
00004140  3a 61 66 25 3d 62 66 25  3a 63 66 25 3d 35 3a f2  |:af%=bf%:cf%=5:.|
00004150  66 62 28 59 61 25 2c 34  2c 61 66 25 29 0d 2e 22  |fb(Ya%,4,af%).."|
00004160  2d c9 31 39 3a 64 66 25  3d ac 64 66 25 3a e7 64  |-.19:df%=.df%:.d|
00004170  66 25 8c f2 50 62 28 57  61 25 2c 31 39 29 8b f2  |f%..Pb(Wa%,19)..|
00004180  52 62 28 57 61 25 2c 31  39 29 0d 2e 28 51 c9 32  |Rb(Wa%,19)..(Q.2|
00004190  30 3a f2 51 62 28 57 61  25 2c 32 30 29 3a f2 49  |0:.Qb(Wa%,20):.I|
000041a0  62 28 5a 61 25 29 3a 65  66 25 3d 60 63 25 3a 66  |b(Za%):ef%=`c%:f|
000041b0  66 25 3d 41 64 25 3a 67  66 25 3d 31 30 3a f2 66  |f%=Ad%:gf%=10:.f|
000041c0  62 28 5a 61 25 2c 33 2c  65 66 25 29 3a f2 66 62  |b(Za%,3,ef%):.fb|
000041d0  28 5a 61 25 2c 38 2c 66  66 25 29 0d 2e 30 2d c9  |(Za%,8,ff%)..0-.|
000041e0  31 36 3a 68 66 25 3d ac  68 66 25 3a e7 68 66 25  |16:hf%=.hf%:.hf%|
000041f0  8c f2 50 62 28 57 61 25  2c 31 36 29 8b f2 52 62  |..Pb(Wa%,16)..Rb|
00004200  28 57 61 25 2c 31 36 29  0d 2e 36 65 c9 32 31 3a  |(Wa%,16)..6e.21:|
00004210  f2 50 62 28 57 61 25 2c  32 31 29 3a f2 52 62 28  |.Pb(Wa%,21):.Rb(|
00004220  57 61 25 2c 32 32 29 3a  f2 52 62 28 57 61 25 2c  |Wa%,22):.Rb(Wa%,|
00004230  32 33 29 3a 60 63 25 3d  31 30 30 3a 41 64 25 3d  |23):`c%=100:Ad%=|
00004240  30 3a 65 66 25 3d 31 30  30 3a 66 66 25 3d 30 3a  |0:ef%=100:ff%=0:|
00004250  f2 66 62 28 5a 61 25 2c  33 2c 65 66 25 29 3a f2  |.fb(Za%,3,ef%):.|
00004260  66 62 28 5a 61 25 2c 38  2c 66 66 25 29 0d 2e 3e  |fb(Za%,8,ff%)..>|
00004270  65 c9 32 32 3a f2 50 62  28 57 61 25 2c 32 32 29  |e.22:.Pb(Wa%,22)|
00004280  3a f2 52 62 28 57 61 25  2c 32 31 29 3a f2 52 62  |:.Rb(Wa%,21):.Rb|
00004290  28 57 61 25 2c 32 33 29  3a 60 63 25 3d 32 35 30  |(Wa%,23):`c%=250|
000042a0  3a 41 64 25 3d 30 3a 65  66 25 3d 32 35 30 3a 66  |:Ad%=0:ef%=250:f|
000042b0  66 25 3d 30 3a f2 66 62  28 5a 61 25 2c 33 2c 65  |f%=0:.fb(Za%,3,e|
000042c0  66 25 29 3a f2 66 62 28  5a 61 25 2c 38 2c 66 66  |f%):.fb(Za%,8,ff|
000042d0  25 29 0d 2e 46 67 c9 32  33 3a f2 50 62 28 57 61  |%)..Fg.23:.Pb(Wa|
000042e0  25 2c 32 33 29 3a f2 52  62 28 57 61 25 2c 32 31  |%,23):.Rb(Wa%,21|
000042f0  29 3a f2 52 62 28 57 61  25 2c 32 32 29 3a 60 63  |):.Rb(Wa%,22):`c|
00004300  25 3d 31 30 30 30 3a 41  64 25 3d 30 3a 65 66 25  |%=1000:Ad%=0:ef%|
00004310  3d 31 30 30 30 3a 66 66  25 3d 30 3a f2 66 62 28  |=1000:ff%=0:.fb(|
00004320  5a 61 25 2c 33 2c 65 66  25 29 3a f2 66 62 28 5a  |Za%,3,ef%):.fb(Z|
00004330  61 25 2c 38 2c 66 66 25  29 0d 2e 4e 3e c9 32 36  |a%,8,ff%)..N>.26|
00004340  3a f2 51 62 28 57 61 25  2c 32 36 29 3a f2 49 62  |:.Qb(Wa%,26):.Ib|
00004350  28 4d 61 25 29 3a e7 45  62 25 3d 34 8c 3a f2 4c  |(Ma%):.Eb%=4.:.L|
00004360  61 28 57 61 25 29 3a f2  78 61 28 48 60 25 2c 32  |a(Wa%):.xa(H`%,2|
00004370  29 3a 60 60 25 3d a3 0d  2e 54 b3 c9 32 37 3a f2  |):``%=...T..27:.|
00004380  51 62 28 57 61 25 2c 32  37 29 3a f2 49 62 28 69  |Qb(Wa%,27):.Ib(i|
00004390  61 25 29 3a 69 66 25 28  29 3d 6a 66 25 28 29 3a  |a%):if%()=jf%():|
000043a0  6b 66 25 28 29 3d 6c 66  25 28 29 3a 6d 66 25 28  |kf%()=lf%():mf%(|
000043b0  29 3d 6e 66 25 28 29 3a  6f 66 25 3d 70 66 25 3a  |)=nf%():of%=pf%:|
000043c0  f2 66 62 28 69 61 25 2c  31 36 2c 6b 66 25 28 6f  |.fb(ia%,16,kf%(o|
000043d0  66 25 29 29 3a f2 66 62  28 69 61 25 2c 32 35 2c  |f%)):.fb(ia%,25,|
000043e0  6d 66 25 28 6f 66 25 29  29 3a f2 66 62 28 69 61  |mf%(of%)):.fb(ia|
000043f0  25 2c 32 31 2c 6f 66 25  29 3a e3 4e 25 3d 31 b8  |%,21,of%):.N%=1.|
00004400  36 3a e7 69 66 25 28 4e  25 29 8c f2 50 62 28 69  |6:.if%(N%)..Pb(i|
00004410  61 25 2c 32 2a 4e 25 29  8b f2 52 62 28 69 61 25  |a%,2*N%)..Rb(ia%|
00004420  2c 32 2a 4e 25 29 3a ed  4e 25 0d 2e 60 82 c9 32  |,2*N%):.N%..`..2|
00004430  38 2c 32 39 2c 33 30 2c  33 31 3a f2 51 62 28 57  |8,29,30,31:.Qb(W|
00004440  61 25 2c 47 62 25 29 3a  f2 71 66 3a f2 72 66 28  |a%,Gb%):.qf:.rf(|
00004450  47 62 25 2d 32 38 29 3a  6e 64 25 3d b9 3a f2 73  |Gb%-28):nd%=.:.s|
00004460  66 3a f2 74 66 28 4c 65  25 28 29 2c 75 66 28 29  |f:.tf(Le%(),uf()|
00004470  2c 75 66 28 29 2c 2d 31  29 3a f2 74 66 28 4c 65  |,uf(),-1):.tf(Le|
00004480  25 28 29 2c 76 66 28 29  2c 76 66 28 29 2c 30 29  |%(),vf(),vf(),0)|
00004490  3a f2 77 66 3a f2 78 66  3a f2 79 66 3a f2 7a 66  |:.wf:.xf:.yf:.zf|
000044a0  3a f2 5f 66 3a f2 60 66  3a f2 6d 64 0d 2e 7a 18  |:._f:.`f:.md..z.|
000044b0  c9 32 34 3a e7 ac 41 67  25 80 ac 72 60 25 80 ac  |.24:..Ag%..r`%..|
000044c0  73 60 25 8c 0d 2e 7e 8b  c8 99 32 36 33 38 37 32  |s`%...~...263872|
000044d0  3a f2 50 62 28 57 61 25  2c 32 34 29 3a 41 67 25  |:.Pb(Wa%,24):Ag%|
000044e0  3d b9 3a f2 4d 5f 3a f2  4e 5f 3a f2 4f 5f 3a f2  |=.:.M_:.N_:.O_:.|
000044f0  50 5f 3a f2 51 5f 3a f2  52 5f 3a f2 53 5f 3a f2  |P_:.Q_:.R_:.S_:.|
00004500  54 5f 3a 6e 64 25 3d a3  3a f2 73 66 3a c8 99 32  |T_:nd%=.:.sf:..2|
00004510  36 33 38 37 33 3a e3 4e  25 3d 31 b8 37 3a c8 99  |63873:.N%=1.7:..|
00004520  32 36 32 33 35 33 2c 41  60 25 28 4e 25 29 2c 30  |262353,A`%(N%),0|
00004530  2c 2d 34 32 30 2c 36 34  30 2c 30 3a ed 3a f2 52  |,-420,640,0:.:.R|
00004540  62 28 57 61 25 2c 32 34  29 3a 41 67 25 3d a3 0d  |b(Wa%,24):Ag%=..|
00004550  2e 8c 05 cd 0d 2e 8e 1e  c9 32 35 3a e7 6c 64 25  |.........25:.ld%|
00004560  3e 30 8c 3a f2 52 62 28  57 61 25 2c 6c 64 25 2d  |>0.:.Rb(Wa%,ld%-|
00004570  31 29 0d 2e 92 a2 f2 51  62 28 57 61 25 2c 32 35  |1).....Qb(Wa%,25|
00004580  29 3a 6c 64 25 3d 30 3a  f2 6d 64 3a e3 4e 25 3d  |):ld%=0:.md:.N%=|
00004590  31 b8 37 3a f2 6f 64 28  70 64 25 28 4e 25 29 2c  |1.7:.od(pd%(N%),|
000045a0  71 64 25 28 4e 25 29 2c  72 64 25 28 4e 25 29 2c  |qd%(N%),rd%(N%),|
000045b0  73 64 25 28 4e 25 29 2c  74 64 25 28 4e 25 29 2c  |sd%(N%),td%(N%),|
000045c0  75 64 25 28 4e 25 29 2c  76 64 28 4e 25 29 29 3a  |ud%(N%),vd(N%)):|
000045d0  c8 99 32 36 32 33 35 33  2c 41 60 25 28 4e 25 29  |..262353,A`%(N%)|
000045e0  2c 30 2c 2d 34 32 30 2c  36 34 30 2c 30 3a f2 77  |,0,-420,640,0:.w|
000045f0  64 28 41 60 25 28 4e 25  29 2c 42 60 25 28 4e 25  |d(A`%(N%),B`%(N%|
00004600  29 2c 42 60 24 28 4e 25  2c 6c 64 25 29 2b 48 62  |),B`$(N%,ld%)+Hb|
00004610  24 29 3a ed 0d 2e a0 0c  cb 3a c8 8e 47 62 25 ca  |$):......:..Gb%.|
00004620  0d 2e a4 3c c9 6b 60 25  2c 32 31 2c 32 32 2c 32  |...<.k`%,21,22,2|
00004630  33 3a f2 6d 64 3a f2 6f  64 28 60 63 25 2c 41 64  |3:.md:.od(`c%,Ad|
00004640  25 2c 42 67 25 2c 73 64  25 2c 74 64 25 2c 75 64  |%,Bg%,sd%,td%,ud|
00004650  25 2c 76 64 29 3a e7 ac  5a 66 25 8c 0d 2e ac 89  |%,vd):..Zf%.....|
00004660  f2 6f 64 28 43 67 25 2c  44 67 25 2c 45 67 25 2c  |.od(Cg%,Dg%,Eg%,|
00004670  46 67 25 2c 47 67 25 2c  48 67 25 2c 49 67 29 3a  |Fg%,Gg%,Hg%,Ig):|
00004680  f2 6f 64 28 4a 67 25 2c  4b 67 25 2c 4c 67 25 2c  |.od(Jg%,Kg%,Lg%,|
00004690  4d 67 25 2c 4e 67 25 2c  4f 67 25 2c 50 67 29 3a  |Mg%,Ng%,Og%,Pg):|
000046a0  e3 4e 25 3d 31 b8 37 3a  f2 6f 64 28 70 64 25 28  |.N%=1.7:.od(pd%(|
000046b0  4e 25 29 2c 71 64 25 28  4e 25 29 2c 72 64 25 28  |N%),qd%(N%),rd%(|
000046c0  4e 25 29 2c 73 64 25 28  4e 25 29 2c 74 64 25 28  |N%),sd%(N%),td%(|
000046d0  4e 25 29 2c 75 64 25 28  4e 25 29 2c 76 64 28 4e  |N%),ud%(N%),vd(N|
000046e0  25 29 29 3a ed 0d 2e b2  05 cd 0d 2e b4 0c cb 3a  |%)):...........:|
000046f0  c8 8e 47 62 25 ca 0d 2e  b8 a7 c9 31 36 2c 31 39  |..Gb%......16,19|
00004700  2c 32 31 2c 32 32 2c 32  33 2c 6b 60 25 3a e3 4e  |,21,22,23,k`%:.N|
00004710  25 3d 31 b8 37 3a c8 99  32 36 32 33 35 33 2c 41  |%=1.7:..262353,A|
00004720  60 25 28 4e 25 29 2c 30  2c 2d 34 32 30 2c 36 34  |`%(N%),0,-420,64|
00004730  30 2c 30 3a ed 3a c8 99  32 36 32 33 35 33 2c 62  |0,0:.:..262353,b|
00004740  61 25 2c 30 2c 2d 33 30  30 2c 37 39 38 2c 30 3a  |a%,0,-300,798,0:|
00004750  e7 ac 28 5a 66 25 80 28  47 62 25 3d 32 31 84 47  |..(Zf%.(Gb%=21.G|
00004760  62 25 3d 32 32 84 47 62  25 3d 32 33 29 29 8c 3a  |b%=22.Gb%=23)).:|
00004770  78 64 25 3d a3 3a 7a 60  25 3d b9 3a 75 61 25 3d  |xd%=.:z`%=.:ua%=|
00004780  61 61 25 3a c8 99 32 36  32 33 35 33 2c 61 61 25  |aa%:..262353,aa%|
00004790  2c 30 2c 2d 33 34 34 2c  37 30 36 2c 30 0d 2e c0  |,0,-344,706,0...|
000047a0  05 cb 0d 2e c2 05 cb 0d  2e c8 0f c9 59 61 25 3a  |............Ya%:|
000047b0  c8 8e 45 62 25 ca 0d 2e  cc 0f c9 31 2c 34 3a c8  |..Eb%......1,4:.|
000047c0  8e 47 62 25 ca 0d 2e d0  28 c9 35 3a f2 47 64 28  |.Gb%....(.5:.Gd(|
000047d0  59 61 25 2c 34 2c 35 2c  61 66 25 2c 61 66 25 2c  |Ya%,4,5,af%,af%,|
000047e0  31 39 39 35 2c 63 66 25  2c 30 2c 31 29 0d 2e d2  |1995,cf%,0,1)...|
000047f0  28 c9 36 3a f2 48 64 28  59 61 25 2c 34 2c 36 2c  |(.6:.Hd(Ya%,4,6,|
00004800  61 66 25 2c 61 66 25 2c  32 31 35 30 2c 63 66 25  |af%,af%,2150,cf%|
00004810  2c 30 2c 31 29 0d 2e d4  17 c9 37 3a e7 45 62 25  |,0,1).....7:.Eb%|
00004820  3d 34 8c 3a f2 4c 61 28  59 61 25 29 0d 2e d6 10  |=4.:.La(Ya%)....|
00004830  c9 38 3a f2 51 67 3a e7  a4 52 67 8c 0d 2e dc 3c  |.8:.Qg:..Rg....<|
00004840  f2 53 67 3a f2 6d 64 3a  f2 6f 64 28 62 66 25 2c  |.Sg:.md:.od(bf%,|
00004850  54 67 25 2c 55 67 25 2c  56 67 25 2c 57 67 25 2c  |Tg%,Ug%,Vg%,Wg%,|
00004860  58 67 25 2c 59 67 29 3a  e7 45 62 25 3d 34 8c 3a  |Xg%,Yg):.Eb%=4.:|
00004870  f2 4c 61 28 59 61 25 29  0d 2e e2 73 e3 4e 25 3d  |.La(Ya%)...s.N%=|
00004880  31 b8 37 3a c8 99 32 36  32 33 35 33 2c 41 60 25  |1.7:..262353,A`%|
00004890  28 4e 25 29 2c 30 2c 2d  34 32 30 2c 36 34 30 2c  |(N%),0,-420,640,|
000048a0  30 3a ed 3a c8 99 32 36  32 33 35 33 2c 62 61 25  |0:.:..262353,ba%|
000048b0  2c 30 2c 2d 33 30 30 2c  37 39 38 2c 30 3a 78 64  |,0,-300,798,0:xd|
000048c0  25 3d a3 3a 7a 60 25 3d  b9 3a 75 61 25 3d 61 61  |%=.:z`%=.:ua%=aa|
000048d0  25 3a c8 99 32 36 32 33  35 33 2c 61 61 25 2c 30  |%:..262353,aa%,0|
000048e0  2c 2d 33 34 34 2c 37 30  36 2c 30 0d 2e e8 05 cd  |,-344,706,0.....|
000048f0  0d 2e ea 05 cb 0d 2e ec  05 cb 0d 2e f2 0f c9 5a  |...............Z|
00004900  61 25 3a c8 8e 45 62 25  ca 0d 2e f6 0f c9 31 2c  |a%:..Eb%......1,|
00004910  34 3a c8 8e 47 62 25 ca  0d 2e fa 29 c9 35 3a f2  |4:..Gb%....).5:.|
00004920  47 64 28 5a 61 25 2c 33  2c 35 2c 65 66 25 2c 65  |Gd(Za%,3,5,ef%,e|
00004930  66 25 2c 2d 31 30 30 30  2c 67 66 25 2c 30 2c 31  |f%,-1000,gf%,0,1|
00004940  29 0d 2e fc 28 c9 36 3a  f2 48 64 28 5a 61 25 2c  |)...(.6:.Hd(Za%,|
00004950  33 2c 36 2c 65 66 25 2c  65 66 25 2c 35 30 30 30  |3,6,ef%,ef%,5000|
00004960  2c 67 66 25 2c 30 2c 31  29 0d 2e fe 2b c9 31 30  |,gf%,0,1)...+.10|
00004970  3a f2 47 64 28 5a 61 25  2c 38 2c 31 30 2c 66 66  |:.Gd(Za%,8,10,ff|
00004980  25 2c 66 66 25 2c 2d 31  30 30 30 2c 67 66 25 2c  |%,ff%,-1000,gf%,|
00004990  30 2c 31 29 0d 2f 00 2a  c9 31 31 3a f2 48 64 28  |0,1)./.*.11:.Hd(|
000049a0  5a 61 25 2c 38 2c 31 31  2c 66 66 25 2c 66 66 25  |Za%,8,11,ff%,ff%|
000049b0  2c 35 30 30 30 2c 67 66  25 2c 30 2c 31 29 0d 2f  |,5000,gf%,0,1)./|
000049c0  02 18 c9 31 33 3a e7 45  62 25 3d 34 8c 3a f2 4c  |...13:.Eb%=4.:.L|
000049d0  61 28 5a 61 25 29 0d 2f  04 11 c9 31 34 3a f2 5a  |a(Za%)./...14:.Z|
000049e0  67 3a e7 a4 61 67 8c 0d  2f 0a dc f2 52 62 28 57  |g:..ag../...Rb(W|
000049f0  61 25 2c 32 31 29 3a f2  52 62 28 57 61 25 2c 32  |a%,21):.Rb(Wa%,2|
00004a00  32 29 3a f2 52 62 28 57  61 25 2c 32 33 29 3a f2  |2):.Rb(Wa%,23):.|
00004a10  62 67 3a f2 6d 64 3a f2  6f 64 28 60 63 25 2c 41  |bg:.md:.od(`c%,A|
00004a20  64 25 2c 42 67 25 2c 73  64 25 2c 74 64 25 2c 75  |d%,Bg%,sd%,td%,u|
00004a30  64 25 2c 76 64 29 3a f2  6f 64 28 43 67 25 2c 44  |d%,vd):.od(Cg%,D|
00004a40  67 25 2c 45 67 25 2c 46  67 25 2c 47 67 25 2c 48  |g%,Eg%,Fg%,Gg%,H|
00004a50  67 25 2c 49 67 29 3a f2  6f 64 28 4a 67 25 2c 4b  |g%,Ig):.od(Jg%,K|
00004a60  67 25 2c 4c 67 25 2c 4d  67 25 2c 4e 67 25 2c 4f  |g%,Lg%,Mg%,Ng%,O|
00004a70  67 25 2c 50 67 29 3a e7  ac 5a 66 25 8c 3a e3 4e  |g%,Pg):..Zf%.:.N|
00004a80  25 3d 31 b8 37 3a f2 6f  64 28 70 64 25 28 4e 25  |%=1.7:.od(pd%(N%|
00004a90  29 2c 71 64 25 28 4e 25  29 2c 72 64 25 28 4e 25  |),qd%(N%),rd%(N%|
00004aa0  29 2c 73 64 25 28 4e 25  29 2c 74 64 25 28 4e 25  |),sd%(N%),td%(N%|
00004ab0  29 2c 75 64 25 28 4e 25  29 2c 76 64 28 4e 25 29  |),ud%(N%),vd(N%)|
00004ac0  29 3a ed 0d 2f 18 14 e7  45 62 25 3d 34 8c 3a f2  |):../...Eb%=4.:.|
00004ad0  4c 61 28 5a 61 25 29 0d  2f 1a 7a e3 4e 25 3d 31  |La(Za%)./.z.N%=1|
00004ae0  b8 37 3a c8 99 32 36 32  33 35 33 2c 41 60 25 28  |.7:..262353,A`%(|
00004af0  4e 25 29 2c 30 2c 2d 34  32 30 2c 36 34 30 2c 30  |N%),0,-420,640,0|
00004b00  3a ed 3a c8 99 32 36 32  33 35 33 2c 62 61 25 2c  |:.:..262353,ba%,|
00004b10  30 2c 2d 33 30 30 2c 37  39 38 2c 30 3a e7 ac 5a  |0,-300,798,0:..Z|
00004b20  66 25 8c 3a 78 64 25 3d  a3 3a 7a 60 25 3d b9 3a  |f%.:xd%=.:z`%=.:|
00004b30  75 61 25 3d 61 61 25 3a  c8 99 32 36 32 33 35 33  |ua%=aa%:..262353|
00004b40  2c 61 61 25 2c 30 2c 2d  33 34 34 2c 37 30 36 2c  |,aa%,0,-344,706,|
00004b50  30 0d 2f 20 05 cd 0d 2f  22 05 cb 0d 2f 24 05 cb  |0./ .../".../$..|
00004b60  0d 2f 2a 0f c9 61 61 25  3a c8 8e 45 62 25 ca 0d  |./*..aa%:..Eb%..|
00004b70  2f 2e 10 c9 31 2c 34 3a  e7 49 65 25 3e 30 8c 0d  |/...1,4:.Ie%>0..|
00004b80  2f 32 0a c8 8e 47 62 25  ca 0d 2f 34 2d c9 36 3a  |/2...Gb%../4-.6:|
00004b90  f2 47 64 28 61 61 25 2c  35 2c 36 2c 79 64 25 28  |.Gd(aa%,5,6,yd%(|
00004ba0  49 65 25 29 2c 79 64 25  28 49 65 25 29 2c 30 2c  |Ie%),yd%(Ie%),0,|
00004bb0  31 2c 30 2c 31 29 0d 2f  36 2f c9 37 3a f2 48 64  |1,0,1)./6/.7:.Hd|
00004bc0  28 61 61 25 2c 35 2c 37  2c 79 64 25 28 49 65 25  |(aa%,5,7,yd%(Ie%|
00004bd0  29 2c 79 64 25 28 49 65  25 29 2c 31 30 30 2c 31  |),yd%(Ie%),100,1|
00004be0  2c 30 2c 31 29 0d 2f 38  30 c9 31 31 3a f2 47 64  |,0,1)./80.11:.Gd|
00004bf0  28 61 61 25 2c 31 30 2c  31 31 2c 5f 64 25 28 49  |(aa%,10,11,_d%(I|
00004c00  65 25 29 2c 5f 64 25 28  49 65 25 29 2c 30 2c 31  |e%),_d%(Ie%),0,1|
00004c10  2c 30 2c 31 29 0d 2f 3a  32 c9 31 32 3a f2 48 64  |,0,1)./:2.12:.Hd|
00004c20  28 61 61 25 2c 31 30 2c  31 32 2c 5f 64 25 28 49  |(aa%,10,12,_d%(I|
00004c30  65 25 29 2c 5f 64 25 28  49 65 25 29 2c 31 30 30  |e%),_d%(Ie%),100|
00004c40  2c 31 2c 30 2c 31 29 0d  2f 3c 30 c9 31 36 3a f2  |,1,0,1)./<0.16:.|
00004c50  47 64 28 61 61 25 2c 31  35 2c 31 36 2c 41 65 25  |Gd(aa%,15,16,Ae%|
00004c60  28 49 65 25 29 2c 41 65  25 28 49 65 25 29 2c 30  |(Ie%),Ae%(Ie%),0|
00004c70  2c 31 2c 30 2c 31 29 0d  2f 3e 32 c9 31 37 3a f2  |,1,0,1)./>2.17:.|
00004c80  48 64 28 61 61 25 2c 31  35 2c 31 37 2c 41 65 25  |Hd(aa%,15,17,Ae%|
00004c90  28 49 65 25 29 2c 41 65  25 28 49 65 25 29 2c 31  |(Ie%),Ae%(Ie%),1|
00004ca0  30 30 2c 31 2c 30 2c 31  29 0d 2f 40 30 c9 32 31  |00,1,0,1)./@0.21|
00004cb0  3a f2 47 64 28 61 61 25  2c 32 30 2c 32 31 2c 43  |:.Gd(aa%,20,21,C|
00004cc0  65 25 28 49 65 25 29 2c  43 65 25 28 49 65 25 29  |e%(Ie%),Ce%(Ie%)|
00004cd0  2c 30 2c 31 2c 30 2c 31  29 0d 2f 42 32 c9 32 32  |,0,1,0,1)./B2.22|
00004ce0  3a f2 48 64 28 61 61 25  2c 32 30 2c 32 32 2c 43  |:.Hd(aa%,20,22,C|
00004cf0  65 25 28 49 65 25 29 2c  43 65 25 28 49 65 25 29  |e%(Ie%),Ce%(Ie%)|
00004d00  2c 31 30 30 2c 31 2c 30  2c 31 29 0d 2f 44 30 c9  |,100,1,0,1)./D0.|
00004d10  32 36 3a f2 47 64 28 61  61 25 2c 32 35 2c 32 36  |26:.Gd(aa%,25,26|
00004d20  2c 45 65 25 28 49 65 25  29 2c 45 65 25 28 49 65  |,Ee%(Ie%),Ee%(Ie|
00004d30  25 29 2c 30 2c 31 2c 30  2c 31 29 0d 2f 46 32 c9  |%),0,1,0,1)./F2.|
00004d40  32 37 3a f2 48 64 28 61  61 25 2c 32 35 2c 32 37  |27:.Hd(aa%,25,27|
00004d50  2c 45 65 25 28 49 65 25  29 2c 45 65 25 28 49 65  |,Ee%(Ie%),Ee%(Ie|
00004d60  25 29 2c 31 30 30 2c 31  2c 30 2c 31 29 0d 2f 48  |%),100,1,0,1)./H|
00004d70  30 c9 34 32 3a f2 47 64  28 61 61 25 2c 34 31 2c  |0.42:.Gd(aa%,41,|
00004d80  34 32 2c 4b 65 25 28 49  65 25 29 2c 4b 65 25 28  |42,Ke%(Ie%),Ke%(|
00004d90  49 65 25 29 2c 31 2c 35  2c 30 2c 31 29 0d 2f 4a  |Ie%),1,5,0,1)./J|
00004da0  32 c9 34 33 3a f2 48 64  28 61 61 25 2c 34 31 2c  |2.43:.Hd(aa%,41,|
00004db0  34 33 2c 4b 65 25 28 49  65 25 29 2c 4b 65 25 28  |43,Ke%(Ie%),Ke%(|
00004dc0  49 65 25 29 2c 63 67 25  2c 35 2c 30 2c 31 29 0d  |Ie%),cg%,5,0,1).|
00004dd0  2f 4c 43 c9 38 2c 31 33  2c 31 38 2c 32 33 3a f2  |/LC.8,13,18,23:.|
00004de0  51 62 28 61 61 25 2c 47  62 25 29 3a 47 65 25 28  |Qb(aa%,Gb%):Ge%(|
00004df0  49 65 25 2c 28 47 62 25  2d 33 29 2f 35 29 3d ac  |Ie%,(Gb%-3)/5)=.|
00004e00  47 65 25 28 49 65 25 2c  28 47 62 25 2d 33 29 2f  |Ge%(Ie%,(Gb%-3)/|
00004e10  35 29 0d 2f 52 05 cd 0d  2f 54 0c cb 3a c8 8e 47  |5)./R.../T..:..G|
00004e20  62 25 ca 0d 2f 58 13 c9  33 31 3a e7 49 65 25 3e  |b%../X..31:.Ie%>|
00004e30  30 8c 3a f2 78 64 0d 2f  5c 0f e7 a4 64 67 84 49  |0.:.xd./\...dg.I|
00004e40  65 25 3d 30 8c 0d 2f 5e  d4 f2 47 64 28 61 61 25  |e%=0../^..Gd(aa%|
00004e50  2c 33 30 2c 33 31 2c 49  65 25 2c 49 65 25 2c 30  |,30,31,Ie%,Ie%,0|
00004e60  2c 31 2c 30 2c 31 29 3a  f2 66 62 28 61 61 25 2c  |,1,0,1):.fb(aa%,|
00004e70  35 2c 79 64 25 28 49 65  25 29 29 3a f2 66 62 28  |5,yd%(Ie%)):.fb(|
00004e80  61 61 25 2c 31 30 2c 5f  64 25 28 49 65 25 29 29  |aa%,10,_d%(Ie%))|
00004e90  3a f2 66 62 28 61 61 25  2c 31 35 2c 41 65 25 28  |:.fb(aa%,15,Ae%(|
00004ea0  49 65 25 29 29 3a f2 66  62 28 61 61 25 2c 32 30  |Ie%)):.fb(aa%,20|
00004eb0  2c 43 65 25 28 49 65 25  29 29 3a f2 66 62 28 61  |,Ce%(Ie%)):.fb(a|
00004ec0  61 25 2c 32 35 2c 45 65  25 28 49 65 25 29 29 3a  |a%,25,Ee%(Ie%)):|
00004ed0  f2 66 62 28 61 61 25 2c  34 31 2c 4b 65 25 28 49  |.fb(aa%,41,Ke%(I|
00004ee0  65 25 29 29 3a e3 4e 25  3d 31 b8 34 3a e7 47 65  |e%)):.N%=1.4:.Ge|
00004ef0  25 28 49 65 25 2c 4e 25  29 8c f2 50 62 28 61 61  |%(Ie%,N%)..Pb(aa|
00004f00  25 2c 35 2a 4e 25 2b 33  29 8b f2 52 62 28 61 61  |%,5*N%+3)..Rb(aa|
00004f10  25 2c 35 2a 4e 25 2b 33  29 0d 2f 66 05 ed 0d 2f  |%,5*N%+3)./f.../|
00004f20  68 05 cd 0d 2f 6a 13 c9  33 32 3a e7 49 65 25 3e  |h.../j..32:.Ie%>|
00004f30  30 8c 3a f2 78 64 0d 2f  6e 0f e7 a4 64 67 84 49  |0.:.xd./n...dg.I|
00004f40  65 25 3d 30 8c 0d 2f 70  d4 f2 48 64 28 61 61 25  |e%=0../p..Hd(aa%|
00004f50  2c 33 30 2c 33 32 2c 49  65 25 2c 49 65 25 2c 35  |,30,32,Ie%,Ie%,5|
00004f60  2c 31 2c 30 2c 31 29 3a  f2 66 62 28 61 61 25 2c  |,1,0,1):.fb(aa%,|
00004f70  35 2c 79 64 25 28 49 65  25 29 29 3a f2 66 62 28  |5,yd%(Ie%)):.fb(|
00004f80  61 61 25 2c 31 30 2c 5f  64 25 28 49 65 25 29 29  |aa%,10,_d%(Ie%))|
00004f90  3a f2 66 62 28 61 61 25  2c 31 35 2c 41 65 25 28  |:.fb(aa%,15,Ae%(|
00004fa0  49 65 25 29 29 3a f2 66  62 28 61 61 25 2c 32 30  |Ie%)):.fb(aa%,20|
00004fb0  2c 43 65 25 28 49 65 25  29 29 3a f2 66 62 28 61  |,Ce%(Ie%)):.fb(a|
00004fc0  61 25 2c 32 35 2c 45 65  25 28 49 65 25 29 29 3a  |a%,25,Ee%(Ie%)):|
00004fd0  f2 66 62 28 61 61 25 2c  34 31 2c 4b 65 25 28 49  |.fb(aa%,41,Ke%(I|
00004fe0  65 25 29 29 3a e3 4e 25  3d 31 b8 34 3a e7 47 65  |e%)):.N%=1.4:.Ge|
00004ff0  25 28 49 65 25 2c 4e 25  29 8c f2 50 62 28 61 61  |%(Ie%,N%)..Pb(aa|
00005000  25 2c 35 2a 4e 25 2b 33  29 8b f2 52 62 28 61 61  |%,5*N%+3)..Rb(aa|
00005010  25 2c 35 2a 4e 25 2b 33  29 0d 2f 78 05 ed 0d 2f  |%,5*N%+3)./x.../|
00005020  7a 05 cd 0d 2f 7c 18 c9  33 35 3a e7 45 62 25 3d  |z.../|..35:.Eb%=|
00005030  34 8c 3a f2 4c 61 28 61  61 25 29 0d 2f 7e 16 c9  |4.:.La(aa%)./~..|
00005040  33 36 2c 33 37 3a e7 49  65 25 3e 30 8c 3a f2 78  |36,37:.Ie%>0.:.x|
00005050  64 0d 2f 82 09 e7 a4 64  67 8c 0d 2f 84 1b e7 47  |d./....dg../...G|
00005060  62 25 3d 33 37 80 45 62  25 3d 34 8c 3a f2 4c 61  |b%=37.Eb%=4.:.La|
00005070  28 61 61 25 29 0d 2f 86  b0 6e 64 25 3d b9 3a f2  |(aa%)./..nd%=.:.|
00005080  73 66 3a f2 65 67 28 4c  65 25 28 29 29 3a f2 74  |sf:.eg(Le%()):.t|
00005090  66 28 4c 65 25 28 29 2c  75 66 28 29 2c 75 66 28  |f(Le%(),uf(),uf(|
000050a0  29 2c 2d 31 29 3a f2 74  66 28 4c 65 25 28 29 2c  |),-1):.tf(Le%(),|
000050b0  76 66 28 29 2c 76 66 28  29 2c 30 29 3a f2 66 67  |vf(),vf(),0):.fg|
000050c0  3a f2 77 66 3a e3 4e 25  3d 30 b8 35 3a f2 61 65  |:.wf:.N%=0.5:.ae|
000050d0  28 4e 25 29 3a ed 3a 52  65 25 28 29 3d 51 65 25  |(N%):.:Re%()=Qe%|
000050e0  28 29 3a f2 66 62 28 68  61 25 2c 38 2c 50 65 25  |():.fb(ha%,8,Pe%|
000050f0  28 57 65 25 29 29 3a f2  66 62 28 68 61 25 2c 31  |(We%)):.fb(ha%,1|
00005100  32 2c 52 65 25 28 57 65  25 29 29 3a c8 99 32 36  |2,Re%(We%)):..26|
00005110  32 33 35 33 2c 61 61 25  2c 30 2c 2d 33 34 34 2c  |2353,aa%,0,-344,|
00005120  37 30 36 2c 30 0d 2f 98  05 cd 0d 2f 9a 05 cb 0d  |706,0./..../....|
00005130  2f 9c 05 cb 0d 2f a2 0f  c9 62 61 25 3a c8 8e 45  |/..../...ba%:..E|
00005140  62 25 ca 0d 2f a6 10 c9  31 2c 34 3a e7 62 65 25  |b%../...1,4:.be%|
00005150  3e 30 8c 0d 2f aa 0a c8  8e 47 62 25 ca 0d 2f ac  |>0../....Gb%../.|
00005160  30 c9 35 3a f2 47 64 28  62 61 25 2c 33 2c 35 2c  |0.5:.Gd(ba%,3,5,|
00005170  64 65 25 28 62 65 25 29  2c 64 65 25 28 62 65 25  |de%(be%),de%(be%|
00005180  29 2c 2d 31 30 30 2c 31  2c 30 2c 31 29 0d 2f ae  |),-100,1,0,1)./.|
00005190  2e c9 36 3a f2 48 64 28  62 61 25 2c 33 2c 36 2c  |..6:.Hd(ba%,3,6,|
000051a0  64 65 25 28 62 65 25 29  2c 64 65 25 28 62 65 25  |de%(be%),de%(be%|
000051b0  29 2c 31 30 2c 31 2c 30  2c 31 29 0d 2f b0 2f c9  |),10,1,0,1)././.|
000051c0  31 30 3a f2 47 64 28 62  61 25 2c 38 2c 31 30 2c  |10:.Gd(ba%,8,10,|
000051d0  68 65 25 28 62 65 25 29  2c 68 65 25 28 62 65 25  |he%(be%),he%(be%|
000051e0  29 2c 30 2c 31 2c 30 2c  31 29 0d 2f b2 31 c9 31  |),0,1,0,1)./.1.1|
000051f0  31 3a f2 48 64 28 62 61  25 2c 38 2c 31 31 2c 68  |1:.Hd(ba%,8,11,h|
00005200  65 25 28 62 65 25 29 2c  68 65 25 28 62 65 25 29  |e%(be%),he%(be%)|
00005210  2c 31 30 30 2c 31 2c 30  2c 31 29 0d 2f b4 30 c9  |,100,1,0,1)./.0.|
00005220  31 35 3a f2 47 64 28 62  61 25 2c 31 33 2c 31 35  |15:.Gd(ba%,13,15|
00005230  2c 6a 65 25 28 62 65 25  29 2c 6a 65 25 28 62 65  |,je%(be%),je%(be|
00005240  25 29 2c 30 2c 31 2c 30  2c 31 29 0d 2f b6 32 c9  |%),0,1,0,1)./.2.|
00005250  31 36 3a f2 48 64 28 62  61 25 2c 31 33 2c 31 36  |16:.Hd(ba%,13,16|
00005260  2c 6a 65 25 28 62 65 25  29 2c 6a 65 25 28 62 65  |,je%(be%),je%(be|
00005270  25 29 2c 31 30 30 2c 31  2c 30 2c 31 29 0d 2f b8  |%),100,1,0,1)./.|
00005280  30 c9 32 30 3a f2 47 64  28 62 61 25 2c 31 38 2c  |0.20:.Gd(ba%,18,|
00005290  32 30 2c 6c 65 25 28 62  65 25 29 2c 6c 65 25 28  |20,le%(be%),le%(|
000052a0  62 65 25 29 2c 30 2c 31  2c 30 2c 31 29 0d 2f ba  |be%),0,1,0,1)./.|
000052b0  32 c9 32 31 3a f2 48 64  28 62 61 25 2c 31 38 2c  |2.21:.Hd(ba%,18,|
000052c0  32 31 2c 6c 65 25 28 62  65 25 29 2c 6c 65 25 28  |21,le%(be%),le%(|
000052d0  62 65 25 29 2c 31 30 30  2c 31 2c 30 2c 31 29 0d  |be%),100,1,0,1).|
000052e0  2f bc 30 c9 32 39 3a f2  47 64 28 62 61 25 2c 32  |/.0.29:.Gd(ba%,2|
000052f0  37 2c 32 39 2c 66 65 25  28 62 65 25 29 2c 66 65  |7,29,fe%(be%),fe|
00005300  25 28 62 65 25 29 2c 31  2c 35 2c 30 2c 31 29 0d  |%(be%),1,5,0,1).|
00005310  2f be 32 c9 33 30 3a f2  48 64 28 62 61 25 2c 32  |/.2.30:.Hd(ba%,2|
00005320  37 2c 33 30 2c 66 65 25  28 62 65 25 29 2c 66 65  |7,30,fe%(be%),fe|
00005330  25 28 62 65 25 29 2c 63  67 25 2c 35 2c 30 2c 31  |%(be%),cg%,5,0,1|
00005340  29 0d 2f c0 05 cb 0d 2f  c2 0c cd 3a c8 8e 47 62  |)./..../...:..Gb|
00005350  25 ca 0d 2f c6 13 c9 32  34 3a e7 62 65 25 3e 30  |%../...24:.be%>0|
00005360  8c 3a f2 67 67 0d 2f ca  0f e7 a4 68 67 84 62 65  |.:.gg./....hg.be|
00005370  25 3d 30 8c 0d 2f cc 89  f2 47 64 28 62 61 25 2c  |%=0../...Gd(ba%,|
00005380  32 33 2c 32 34 2c 62 65  25 2c 62 65 25 2c 30 2c  |23,24,be%,be%,0,|
00005390  31 2c 30 2c 31 29 3a f2  66 62 28 62 61 25 2c 33  |1,0,1):.fb(ba%,3|
000053a0  2c 64 65 25 28 62 65 25  29 29 3a f2 66 62 28 62  |,de%(be%)):.fb(b|
000053b0  61 25 2c 38 2c 68 65 25  28 62 65 25 29 29 3a f2  |a%,8,he%(be%)):.|
000053c0  66 62 28 62 61 25 2c 31  33 2c 6a 65 25 28 62 65  |fb(ba%,13,je%(be|
000053d0  25 29 29 3a f2 66 62 28  62 61 25 2c 31 38 2c 6c  |%)):.fb(ba%,18,l|
000053e0  65 25 28 62 65 25 29 29  3a f2 66 62 28 62 61 25  |e%(be%)):.fb(ba%|
000053f0  2c 32 37 2c 66 65 25 28  62 65 25 29 29 0d 2f d2  |,27,fe%(be%))./.|
00005400  05 cd 0d 2f d4 13 c9 32  35 3a e7 62 65 25 3e 30  |.../...25:.be%>0|
00005410  8c 3a f2 67 67 0d 2f d8  0f e7 a4 68 67 84 62 65  |.:.gg./....hg.be|
00005420  25 3d 30 8c 0d 2f da 89  f2 48 64 28 62 61 25 2c  |%=0../...Hd(ba%,|
00005430  32 33 2c 32 35 2c 62 65  25 2c 62 65 25 2c 35 2c  |23,25,be%,be%,5,|
00005440  31 2c 30 2c 31 29 3a f2  66 62 28 62 61 25 2c 33  |1,0,1):.fb(ba%,3|
00005450  2c 64 65 25 28 62 65 25  29 29 3a f2 66 62 28 62  |,de%(be%)):.fb(b|
00005460  61 25 2c 38 2c 68 65 25  28 62 65 25 29 29 3a f2  |a%,8,he%(be%)):.|
00005470  66 62 28 62 61 25 2c 31  33 2c 6a 65 25 28 62 65  |fb(ba%,13,je%(be|
00005480  25 29 29 3a f2 66 62 28  62 61 25 2c 31 38 2c 6c  |%)):.fb(ba%,18,l|
00005490  65 25 28 62 65 25 29 29  3a f2 66 62 28 62 61 25  |e%(be%)):.fb(ba%|
000054a0  2c 32 37 2c 66 65 25 28  62 65 25 29 29 0d 2f e0  |,27,fe%(be%))./.|
000054b0  05 cd 0d 2f e2 18 c9 33  32 3a e7 45 62 25 3d 34  |.../...32:.Eb%=4|
000054c0  8c 3a f2 4c 61 28 62 61  25 29 0d 2f e4 16 c9 33  |.:.La(ba%)./...3|
000054d0  33 2c 33 34 3a e7 62 65  25 3e 30 8c 3a f2 67 67  |3,34:.be%>0.:.gg|
000054e0  0d 2f e8 09 e7 a4 68 67  8c 0d 2f ea 1b e7 47 62  |./....hg../...Gb|
000054f0  25 3d 33 34 80 45 62 25  3d 34 8c 3a f2 4c 61 28  |%=34.Eb%=4.:.La(|
00005500  62 61 25 29 0d 2f ec 36  6e 64 25 3d b9 3a f2 73  |ba%)./.6nd%=.:.s|
00005510  66 3a f2 65 67 28 67 65  25 28 29 29 3a f2 78 66  |f:.eg(ge%()):.xf|
00005520  3a c8 99 32 36 32 33 35  33 2c 62 61 25 2c 30 2c  |:..262353,ba%,0,|
00005530  2d 33 30 30 2c 37 39 38  2c 30 0d 2f f2 05 cd 0d  |-300,798,0./....|
00005540  2f f4 05 cb 0d 2f f6 05  cb 0d 2f fc 0f c9 66 61  |/..../..../...fa|
00005550  25 3a c8 8e 45 62 25 ca  0d 30 00 10 c9 31 2c 34  |%:..Eb%..0...1,4|
00005560  3a e7 78 65 25 3e 30 8c  0d 30 04 0a c8 8e 47 62  |:.xe%>0..0....Gb|
00005570  25 ca 0d 30 06 2d c9 36  3a f2 47 64 28 66 61 25  |%..0.-.6:.Gd(fa%|
00005580  2c 34 2c 36 2c 6e 65 25  28 78 65 25 29 2c 6e 65  |,4,6,ne%(xe%),ne|
00005590  25 28 78 65 25 29 2c 30  2c 31 2c 30 2c 31 29 0d  |%(xe%),0,1,0,1).|
000055a0  30 08 2f c9 37 3a f2 48  64 28 66 61 25 2c 34 2c  |0./.7:.Hd(fa%,4,|
000055b0  37 2c 6e 65 25 28 78 65  25 29 2c 6e 65 25 28 78  |7,ne%(xe%),ne%(x|
000055c0  65 25 29 2c 31 30 30 2c  31 2c 30 2c 31 29 0d 30  |e%),100,1,0,1).0|
000055d0  0a 2f c9 31 31 3a f2 47  64 28 66 61 25 2c 39 2c  |./.11:.Gd(fa%,9,|
000055e0  31 31 2c 70 65 25 28 78  65 25 29 2c 70 65 25 28  |11,pe%(xe%),pe%(|
000055f0  78 65 25 29 2c 30 2c 31  2c 30 2c 31 29 0d 30 0c  |xe%),0,1,0,1).0.|
00005600  31 c9 31 32 3a f2 48 64  28 66 61 25 2c 39 2c 31  |1.12:.Hd(fa%,9,1|
00005610  32 2c 70 65 25 28 78 65  25 29 2c 70 65 25 28 78  |2,pe%(xe%),pe%(x|
00005620  65 25 29 2c 31 30 30 2c  31 2c 30 2c 31 29 0d 30  |e%),100,1,0,1).0|
00005630  0e 30 c9 31 36 3a f2 47  64 28 66 61 25 2c 31 34  |.0.16:.Gd(fa%,14|
00005640  2c 31 36 2c 72 65 25 28  78 65 25 29 2c 72 65 25  |,16,re%(xe%),re%|
00005650  28 78 65 25 29 2c 30 2c  31 2c 30 2c 31 29 0d 30  |(xe%),0,1,0,1).0|
00005660  10 32 c9 31 37 3a f2 48  64 28 66 61 25 2c 31 34  |.2.17:.Hd(fa%,14|
00005670  2c 31 37 2c 72 65 25 28  78 65 25 29 2c 72 65 25  |,17,re%(xe%),re%|
00005680  28 78 65 25 29 2c 31 30  30 2c 31 2c 30 2c 31 29  |(xe%),100,1,0,1)|
00005690  0d 30 12 30 c9 32 32 3a  f2 47 64 28 66 61 25 2c  |.0.0.22:.Gd(fa%,|
000056a0  32 30 2c 32 32 2c 74 65  25 28 78 65 25 29 2c 74  |20,22,te%(xe%),t|
000056b0  65 25 28 78 65 25 29 2c  30 2c 31 2c 30 2c 31 29  |e%(xe%),0,1,0,1)|
000056c0  0d 30 14 32 c9 32 33 3a  f2 48 64 28 66 61 25 2c  |.0.2.23:.Hd(fa%,|
000056d0  32 30 2c 32 33 2c 74 65  25 28 78 65 25 29 2c 74  |20,23,te%(xe%),t|
000056e0  65 25 28 78 65 25 29 2c  31 30 30 2c 31 2c 30 2c  |e%(xe%),100,1,0,|
000056f0  31 29 0d 30 16 30 c9 33  31 3a f2 47 64 28 66 61  |1).0.0.31:.Gd(fa|
00005700  25 2c 32 39 2c 33 31 2c  7a 65 25 28 78 65 25 29  |%,29,31,ze%(xe%)|
00005710  2c 7a 65 25 28 78 65 25  29 2c 31 2c 35 2c 30 2c  |,ze%(xe%),1,5,0,|
00005720  31 29 0d 30 18 32 c9 33  32 3a f2 48 64 28 66 61  |1).0.2.32:.Hd(fa|
00005730  25 2c 32 39 2c 33 32 2c  7a 65 25 28 78 65 25 29  |%,29,32,ze%(xe%)|
00005740  2c 7a 65 25 28 78 65 25  29 2c 63 67 25 2c 35 2c  |,ze%(xe%),cg%,5,|
00005750  30 2c 31 29 0d 30 1a 31  c9 34 31 3a f2 47 64 28  |0,1).0.1.41:.Gd(|
00005760  66 61 25 2c 33 37 2c 34  31 2c 76 65 25 28 78 65  |fa%,37,41,ve%(xe|
00005770  25 29 2c 76 65 25 28 78  65 25 29 2c 30 2c 31 30  |%),ve%(xe%),0,10|
00005780  2c 30 2c 31 29 0d 30 1c  34 c9 34 32 3a f2 48 64  |,0,1).0.4.42:.Hd|
00005790  28 66 61 25 2c 33 37 2c  34 32 2c 76 65 25 28 78  |(fa%,37,42,ve%(x|
000057a0  65 25 29 2c 76 65 25 28  78 65 25 29 2c 39 39 39  |e%),ve%(xe%),999|
000057b0  30 2c 31 30 2c 30 2c 31  29 0d 30 1e 05 cb 0d 30  |0,10,0,1).0....0|
000057c0  20 0c cd 3a c8 8e 47 62  25 ca 0d 30 24 13 c9 32  | ..:..Gb%..0$..2|
000057d0  36 3a e7 78 65 25 3e 30  8c 3a f2 69 67 0d 30 28  |6:.xe%>0.:.ig.0(|
000057e0  0f e7 a4 6a 67 84 78 65  25 3d 30 8c 0d 30 2a 9e  |...jg.xe%=0..0*.|
000057f0  f2 47 64 28 66 61 25 2c  32 35 2c 32 36 2c 78 65  |.Gd(fa%,25,26,xe|
00005800  25 2c 78 65 25 2c 30 2c  31 2c 30 2c 31 29 3a f2  |%,xe%,0,1,0,1):.|
00005810  66 62 28 66 61 25 2c 34  2c 6e 65 25 28 78 65 25  |fb(fa%,4,ne%(xe%|
00005820  29 29 3a f2 66 62 28 66  61 25 2c 39 2c 70 65 25  |)):.fb(fa%,9,pe%|
00005830  28 78 65 25 29 29 3a f2  66 62 28 66 61 25 2c 31  |(xe%)):.fb(fa%,1|
00005840  34 2c 72 65 25 28 78 65  25 29 29 3a f2 66 62 28  |4,re%(xe%)):.fb(|
00005850  66 61 25 2c 32 30 2c 74  65 25 28 78 65 25 29 29  |fa%,20,te%(xe%))|
00005860  3a f2 66 62 28 66 61 25  2c 33 37 2c 76 65 25 28  |:.fb(fa%,37,ve%(|
00005870  78 65 25 29 29 3a f2 66  62 28 66 61 25 2c 32 39  |xe%)):.fb(fa%,29|
00005880  2c 7a 65 25 28 78 65 25  29 29 0d 30 2e 05 cd 0d  |,ze%(xe%)).0....|
00005890  30 30 13 c9 32 37 3a e7  78 65 25 3e 30 8c 3a f2  |00..27:.xe%>0.:.|
000058a0  69 67 0d 30 34 0f e7 a4  6a 67 84 78 65 25 3d 30  |ig.04...jg.xe%=0|
000058b0  8c 0d 30 36 9e f2 48 64  28 66 61 25 2c 32 35 2c  |..06..Hd(fa%,25,|
000058c0  32 37 2c 78 65 25 2c 78  65 25 2c 35 2c 31 2c 30  |27,xe%,xe%,5,1,0|
000058d0  2c 31 29 3a f2 66 62 28  66 61 25 2c 34 2c 6e 65  |,1):.fb(fa%,4,ne|
000058e0  25 28 78 65 25 29 29 3a  f2 66 62 28 66 61 25 2c  |%(xe%)):.fb(fa%,|
000058f0  39 2c 70 65 25 28 78 65  25 29 29 3a f2 66 62 28  |9,pe%(xe%)):.fb(|
00005900  66 61 25 2c 31 34 2c 72  65 25 28 78 65 25 29 29  |fa%,14,re%(xe%))|
00005910  3a f2 66 62 28 66 61 25  2c 32 30 2c 74 65 25 28  |:.fb(fa%,20,te%(|
00005920  78 65 25 29 29 3a f2 66  62 28 66 61 25 2c 33 37  |xe%)):.fb(fa%,37|
00005930  2c 76 65 25 28 78 65 25  29 29 3a f2 66 62 28 66  |,ve%(xe%)):.fb(f|
00005940  61 25 2c 32 39 2c 7a 65  25 28 78 65 25 29 29 0d  |a%,29,ze%(xe%)).|
00005950  30 3a 05 cd 0d 30 3c 18  c9 33 34 3a e7 45 62 25  |0:...0<..34:.Eb%|
00005960  3d 34 8c 3a f2 4c 61 28  66 61 25 29 0d 30 3e 13  |=4.:.La(fa%).0>.|
00005970  c9 33 35 3a e7 78 65 25  3e 30 8c 3a f2 69 67 0d  |.35:.xe%>0.:.ig.|
00005980  30 42 0f e7 a4 6a 67 84  78 65 25 3d 30 8c 0d 30  |0B...jg.xe%=0..0|
00005990  44 14 e7 45 62 25 3d 34  8c 3a f2 4c 61 28 66 61  |D..Eb%=4.:.La(fa|
000059a0  25 29 0d 30 46 1c 6e 64  25 3d b9 3a f2 73 66 3a  |%).0F.nd%=.:.sf:|
000059b0  f2 65 67 28 5f 65 25 28  29 29 3a f2 79 66 0d 30  |.eg(_e%()):.yf.0|
000059c0  4a 05 cd 0d 30 4c 05 cb  0d 30 4e 05 cb 0d 30 54  |J...0L...0N...0T|
000059d0  0f c9 63 61 25 3a c8 8e  45 62 25 ca 0d 30 58 10  |..ca%:..Eb%..0X.|
000059e0  c9 31 2c 34 3a e7 44 66  25 3e 30 8c 0d 30 5c 0a  |.1,4:.Df%>0..0\.|
000059f0  c8 8e 47 62 25 ca 0d 30  5e 2d c9 34 3a f2 47 64  |..Gb%..0^-.4:.Gd|
00005a00  28 63 61 25 2c 33 2c 34  2c 60 65 25 28 44 66 25  |(ca%,3,4,`e%(Df%|
00005a10  29 2c 60 65 25 28 44 66  25 29 2c 30 2c 31 2c 30  |),`e%(Df%),0,1,0|
00005a20  2c 31 29 0d 30 60 2f c9  35 3a f2 48 64 28 63 61  |,1).0`/.5:.Hd(ca|
00005a30  25 2c 33 2c 35 2c 60 65  25 28 44 66 25 29 2c 60  |%,3,5,`e%(Df%),`|
00005a40  65 25 28 44 66 25 29 2c  39 39 39 2c 31 2c 30 2c  |e%(Df%),999,1,0,|
00005a50  31 29 0d 30 62 2d c9 39  3a f2 47 64 28 63 61 25  |1).0b-.9:.Gd(ca%|
00005a60  2c 38 2c 39 2c 42 66 25  28 44 66 25 29 2c 42 66  |,8,9,Bf%(Df%),Bf|
00005a70  25 28 44 66 25 29 2c 30  2c 31 2c 30 2c 31 29 0d  |%(Df%),0,1,0,1).|
00005a80  30 64 31 c9 31 30 3a f2  48 64 28 63 61 25 2c 38  |0d1.10:.Hd(ca%,8|
00005a90  2c 31 30 2c 42 66 25 28  44 66 25 29 2c 42 66 25  |,10,Bf%(Df%),Bf%|
00005aa0  28 44 66 25 29 2c 39 39  39 2c 31 2c 30 2c 31 29  |(Df%),999,1,0,1)|
00005ab0  0d 30 66 30 c9 31 38 3a  f2 47 64 28 63 61 25 2c  |.0f0.18:.Gd(ca%,|
00005ac0  31 36 2c 31 38 2c 46 66  25 28 44 66 25 29 2c 46  |16,18,Ff%(Df%),F|
00005ad0  66 25 28 44 66 25 29 2c  31 2c 35 2c 30 2c 31 29  |f%(Df%),1,5,0,1)|
00005ae0  0d 30 68 32 c9 31 39 3a  f2 48 64 28 63 61 25 2c  |.0h2.19:.Hd(ca%,|
00005af0  31 36 2c 31 39 2c 46 66  25 28 44 66 25 29 2c 46  |16,19,Ff%(Df%),F|
00005b00  66 25 28 44 66 25 29 2c  63 67 25 2c 35 2c 30 2c  |f%(Df%),cg%,5,0,|
00005b10  31 29 0d 30 6a 05 cb 0d  30 6c 0c cd 3a c8 8e 47  |1).0j...0l..:..G|
00005b20  62 25 ca 0d 30 70 13 c9  31 33 3a e7 44 66 25 3e  |b%..0p..13:.Df%>|
00005b30  30 8c 3a f2 6b 67 0d 30  74 0f e7 a4 6c 67 84 44  |0.:.kg.0t...lg.D|
00005b40  66 25 3d 30 8c 0d 30 76  5f f2 47 64 28 63 61 25  |f%=0..0v_.Gd(ca%|
00005b50  2c 31 32 2c 31 33 2c 44  66 25 2c 44 66 25 2c 30  |,12,13,Df%,Df%,0|
00005b60  2c 31 2c 30 2c 31 29 3a  f2 66 62 28 63 61 25 2c  |,1,0,1):.fb(ca%,|
00005b70  33 2c 60 65 25 28 44 66  25 29 29 3a f2 66 62 28  |3,`e%(Df%)):.fb(|
00005b80  63 61 25 2c 38 2c 42 66  25 28 44 66 25 29 29 3a  |ca%,8,Bf%(Df%)):|
00005b90  f2 66 62 28 63 61 25 2c  31 36 2c 46 66 25 28 44  |.fb(ca%,16,Ff%(D|
00005ba0  66 25 29 29 0d 30 7a 05  cd 0d 30 7c 13 c9 31 34  |f%)).0z...0|..14|
00005bb0  3a e7 44 66 25 3e 30 8c  3a f2 6b 67 0d 30 80 0f  |:.Df%>0.:.kg.0..|
00005bc0  e7 a4 6c 67 84 44 66 25  3d 30 8c 0d 30 82 5f f2  |..lg.Df%=0..0._.|
00005bd0  48 64 28 63 61 25 2c 31  32 2c 31 34 2c 44 66 25  |Hd(ca%,12,14,Df%|
00005be0  2c 44 66 25 2c 35 2c 31  2c 30 2c 31 29 3a f2 66  |,Df%,5,1,0,1):.f|
00005bf0  62 28 63 61 25 2c 33 2c  60 65 25 28 44 66 25 29  |b(ca%,3,`e%(Df%)|
00005c00  29 3a f2 66 62 28 63 61  25 2c 38 2c 42 66 25 28  |):.fb(ca%,8,Bf%(|
00005c10  44 66 25 29 29 3a f2 66  62 28 63 61 25 2c 31 36  |Df%)):.fb(ca%,16|
00005c20  2c 46 66 25 28 44 66 25  29 29 0d 30 86 05 cd 0d  |,Ff%(Df%)).0....|
00005c30  30 88 18 c9 32 31 3a e7  45 62 25 3d 34 8c 3a f2  |0...21:.Eb%=4.:.|
00005c40  4c 61 28 63 61 25 29 0d  30 8a 13 c9 32 32 3a e7  |La(ca%).0...22:.|
00005c50  44 66 25 3e 30 8c 3a f2  6b 67 0d 30 8e 09 e7 a4  |Df%>0.:.kg.0....|
00005c60  6c 67 8c 0d 30 90 14 e7  45 62 25 3d 34 8c 3a f2  |lg..0...Eb%=4.:.|
00005c70  4c 61 28 63 61 25 29 0d  30 92 1c 6e 64 25 3d b9  |La(ca%).0..nd%=.|
00005c80  3a f2 73 66 3a f2 65 67  28 47 66 25 28 29 29 3a  |:.sf:.eg(Gf%()):|
00005c90  f2 7a 66 0d 30 96 05 cd  0d 30 98 05 cb 0d 30 9a  |.zf.0....0....0.|
00005ca0  05 cb 0d 30 a0 0f c9 65  61 25 3a c8 8e 45 62 25  |...0...ea%:..Eb%|
00005cb0  ca 0d 30 a4 10 c9 31 2c  34 3a e7 4c 66 25 3e 30  |..0...1,4:.Lf%>0|
00005cc0  8c 0d 30 a8 0a c8 8e 47  62 25 ca 0d 30 aa 2e c9  |..0....Gb%..0...|
00005cd0  34 3a f2 47 64 28 65 61  25 2c 33 2c 34 2c 48 66  |4:.Gd(ea%,3,4,Hf|
00005ce0  25 28 4c 66 25 29 2c 48  66 25 28 4c 66 25 29 2c  |%(Lf%),Hf%(Lf%),|
00005cf0  30 2c 35 30 2c 30 2c 31  29 0d 30 ac 32 c9 35 3a  |0,50,0,1).0.2.5:|
00005d00  f2 48 64 28 65 61 25 2c  33 2c 35 2c 48 66 25 28  |.Hd(ea%,3,5,Hf%(|
00005d10  4c 66 25 29 2c 48 66 25  28 4c 66 25 29 2c 35 30  |Lf%),Hf%(Lf%),50|
00005d20  30 30 30 2c 35 30 2c 30  2c 31 29 0d 30 ae 2d c9  |000,50,0,1).0.-.|
00005d30  39 3a f2 47 64 28 65 61  25 2c 38 2c 39 2c 4a 66  |9:.Gd(ea%,8,9,Jf|
00005d40  25 28 4c 66 25 29 2c 4a  66 25 28 4c 66 25 29 2c  |%(Lf%),Jf%(Lf%),|
00005d50  30 2c 31 2c 30 2c 31 29  0d 30 b0 31 c9 31 30 3a  |0,1,0,1).0.1.10:|
00005d60  f2 48 64 28 65 61 25 2c  38 2c 31 30 2c 4a 66 25  |.Hd(ea%,8,10,Jf%|
00005d70  28 4c 66 25 29 2c 4a 66  25 28 4c 66 25 29 2c 39  |(Lf%),Jf%(Lf%),9|
00005d80  39 39 2c 31 2c 30 2c 31  29 0d 30 b2 30 c9 31 38  |99,1,0,1).0.0.18|
00005d90  3a f2 47 64 28 65 61 25  2c 31 36 2c 31 38 2c 4e  |:.Gd(ea%,16,18,N|
00005da0  66 25 28 4c 66 25 29 2c  4e 66 25 28 4c 66 25 29  |f%(Lf%),Nf%(Lf%)|
00005db0  2c 31 2c 35 2c 30 2c 31  29 0d 30 b4 32 c9 31 39  |,1,5,0,1).0.2.19|
00005dc0  3a f2 48 64 28 65 61 25  2c 31 36 2c 31 39 2c 4e  |:.Hd(ea%,16,19,N|
00005dd0  66 25 28 4c 66 25 29 2c  4e 66 25 28 4c 66 25 29  |f%(Lf%),Nf%(Lf%)|
00005de0  2c 63 67 25 2c 35 2c 30  2c 31 29 0d 30 b6 05 cb  |,cg%,5,0,1).0...|
00005df0  0d 30 b8 0c cd 3a c8 8e  47 62 25 ca 0d 30 bc 13  |.0...:..Gb%..0..|
00005e00  c9 31 33 3a e7 4c 66 25  3e 30 8c 3a f2 78 60 0d  |.13:.Lf%>0.:.x`.|
00005e10  30 c0 0f e7 a4 6d 67 84  4c 66 25 3d 30 8c 0d 30  |0....mg.Lf%=0..0|
00005e20  c2 5f f2 47 64 28 65 61  25 2c 31 32 2c 31 33 2c  |._.Gd(ea%,12,13,|
00005e30  4c 66 25 2c 4c 66 25 2c  30 2c 31 2c 30 2c 31 29  |Lf%,Lf%,0,1,0,1)|
00005e40  3a f2 66 62 28 65 61 25  2c 33 2c 48 66 25 28 4c  |:.fb(ea%,3,Hf%(L|
00005e50  66 25 29 29 3a f2 66 62  28 65 61 25 2c 38 2c 4a  |f%)):.fb(ea%,8,J|
00005e60  66 25 28 4c 66 25 29 29  3a f2 66 62 28 65 61 25  |f%(Lf%)):.fb(ea%|
00005e70  2c 31 36 2c 4e 66 25 28  4c 66 25 29 29 0d 30 c6  |,16,Nf%(Lf%)).0.|
00005e80  05 cd 0d 30 c8 13 c9 31  34 3a e7 4c 66 25 3e 30  |...0...14:.Lf%>0|
00005e90  8c 3a f2 78 60 0d 30 cc  0f e7 a4 6d 67 84 4c 66  |.:.x`.0....mg.Lf|
00005ea0  25 3d 30 8c 0d 30 ce 5f  f2 48 64 28 65 61 25 2c  |%=0..0._.Hd(ea%,|
00005eb0  31 32 2c 31 34 2c 4c 66  25 2c 4c 66 25 2c 35 2c  |12,14,Lf%,Lf%,5,|
00005ec0  31 2c 30 2c 31 29 3a f2  66 62 28 65 61 25 2c 33  |1,0,1):.fb(ea%,3|
00005ed0  2c 48 66 25 28 4c 66 25  29 29 3a f2 66 62 28 65  |,Hf%(Lf%)):.fb(e|
00005ee0  61 25 2c 38 2c 4a 66 25  28 4c 66 25 29 29 3a f2  |a%,8,Jf%(Lf%)):.|
00005ef0  66 62 28 65 61 25 2c 31  36 2c 4e 66 25 28 4c 66  |fb(ea%,16,Nf%(Lf|
00005f00  25 29 29 0d 30 d2 05 cd  0d 30 d4 18 c9 32 31 3a  |%)).0....0...21:|
00005f10  e7 45 62 25 3d 34 8c 3a  f2 4c 61 28 65 61 25 29  |.Eb%=4.:.La(ea%)|
00005f20  0d 30 d6 13 c9 32 32 3a  e7 4c 66 25 3e 30 8c 3a  |.0...22:.Lf%>0.:|
00005f30  f2 78 60 0d 30 da 09 e7  a4 6d 67 8c 0d 30 dc 14  |.x`.0....mg..0..|
00005f40  e7 45 62 25 3d 34 8c 3a  f2 4c 61 28 65 61 25 29  |.Eb%=4.:.La(ea%)|
00005f50  0d 30 e0 1c 6e 64 25 3d  b9 3a f2 73 66 3a f2 65  |.0..nd%=.:.sf:.e|
00005f60  67 28 4f 66 25 28 29 29  3a f2 5f 66 0d 30 e4 05  |g(Of%()):._f.0..|
00005f70  cd 0d 30 e6 05 cb 0d 30  e8 05 cb 0d 30 ee 0f c9  |..0....0....0...|
00005f80  67 61 25 3a c8 8e 45 62  25 ca 0d 30 f2 10 c9 31  |ga%:..Eb%..0...1|
00005f90  2c 34 3a e7 56 66 25 3e  30 8c 0d 30 f6 0a c8 8e  |,4:.Vf%>0..0....|
00005fa0  47 62 25 ca 0d 30 f8 2d  c9 36 3a f2 47 64 28 67  |Gb%..0.-.6:.Gd(g|
00005fb0  61 25 2c 34 2c 36 2c 50  66 25 28 56 66 25 29 2c  |a%,4,6,Pf%(Vf%),|
00005fc0  50 66 25 28 56 66 25 29  2c 30 2c 31 2c 30 2c 31  |Pf%(Vf%),0,1,0,1|
00005fd0  29 0d 30 fa 2f c9 37 3a  f2 48 64 28 67 61 25 2c  |).0./.7:.Hd(ga%,|
00005fe0  34 2c 37 2c 50 66 25 28  56 66 25 29 2c 50 66 25  |4,7,Pf%(Vf%),Pf%|
00005ff0  28 56 66 25 29 2c 39 39  39 2c 31 2c 30 2c 31 29  |(Vf%),999,1,0,1)|
00006000  0d 30 fc 30 c9 31 32 3a  f2 47 64 28 67 61 25 2c  |.0.0.12:.Gd(ga%,|
00006010  31 30 2c 31 32 2c 52 66  25 28 56 66 25 29 2c 52  |10,12,Rf%(Vf%),R|
00006020  66 25 28 56 66 25 29 2c  30 2c 31 2c 30 2c 31 29  |f%(Vf%),0,1,0,1)|
00006030  0d 30 fe 32 c9 31 33 3a  f2 48 64 28 67 61 25 2c  |.0.2.13:.Hd(ga%,|
00006040  31 30 2c 31 33 2c 52 66  25 28 56 66 25 29 2c 52  |10,13,Rf%(Vf%),R|
00006050  66 25 28 56 66 25 29 2c  39 39 39 2c 31 2c 30 2c  |f%(Vf%),999,1,0,|
00006060  31 29 0d 31 00 30 c9 31  38 3a f2 47 64 28 67 61  |1).1.0.18:.Gd(ga|
00006070  25 2c 31 36 2c 31 38 2c  54 66 25 28 56 66 25 29  |%,16,18,Tf%(Vf%)|
00006080  2c 54 66 25 28 56 66 25  29 2c 30 2c 31 2c 30 2c  |,Tf%(Vf%),0,1,0,|
00006090  31 29 0d 31 02 32 c9 31  39 3a f2 48 64 28 67 61  |1).1.2.19:.Hd(ga|
000060a0  25 2c 31 36 2c 31 39 2c  54 66 25 28 56 66 25 29  |%,16,19,Tf%(Vf%)|
000060b0  2c 54 66 25 28 56 66 25  29 2c 39 39 39 2c 31 2c  |,Tf%(Vf%),999,1,|
000060c0  30 2c 31 29 0d 31 04 30  c9 32 37 3a f2 47 64 28  |0,1).1.0.27:.Gd(|
000060d0  67 61 25 2c 32 35 2c 32  37 2c 58 66 25 28 56 66  |ga%,25,27,Xf%(Vf|
000060e0  25 29 2c 58 66 25 28 56  66 25 29 2c 31 2c 35 2c  |%),Xf%(Vf%),1,5,|
000060f0  30 2c 31 29 0d 31 06 32  c9 32 38 3a f2 48 64 28  |0,1).1.2.28:.Hd(|
00006100  67 61 25 2c 32 35 2c 32  38 2c 58 66 25 28 56 66  |ga%,25,28,Xf%(Vf|
00006110  25 29 2c 58 66 25 28 56  66 25 29 2c 63 67 25 2c  |%),Xf%(Vf%),cg%,|
00006120  35 2c 30 2c 31 29 0d 31  08 05 cb 0d 31 0a 0c cd  |5,0,1).1....1...|
00006130  3a c8 8e 47 62 25 ca 0d  31 0e 13 c9 32 32 3a e7  |:..Gb%..1...22:.|
00006140  56 66 25 3e 30 8c 3a f2  6e 67 0d 31 12 0f e7 a4  |Vf%>0.:.ng.1....|
00006150  6f 67 84 56 66 25 3d 30  8c 0d 31 14 75 f2 47 64  |og.Vf%=0..1.u.Gd|
00006160  28 67 61 25 2c 32 31 2c  32 32 2c 56 66 25 2c 56  |(ga%,21,22,Vf%,V|
00006170  66 25 2c 30 2c 31 2c 30  2c 31 29 3a f2 66 62 28  |f%,0,1,0,1):.fb(|
00006180  67 61 25 2c 34 2c 50 66  25 28 56 66 25 29 29 3a  |ga%,4,Pf%(Vf%)):|
00006190  f2 66 62 28 67 61 25 2c  31 30 2c 52 66 25 28 56  |.fb(ga%,10,Rf%(V|
000061a0  66 25 29 29 3a f2 66 62  28 67 61 25 2c 31 36 2c  |f%)):.fb(ga%,16,|
000061b0  54 66 25 28 56 66 25 29  29 3a f2 66 62 28 67 61  |Tf%(Vf%)):.fb(ga|
000061c0  25 2c 32 35 2c 58 66 25  28 56 66 25 29 29 0d 31  |%,25,Xf%(Vf%)).1|
000061d0  18 05 cd 0d 31 1a 13 c9  32 33 3a e7 56 66 25 3e  |....1...23:.Vf%>|
000061e0  30 8c 3a f2 6e 67 0d 31  1e 0f e7 a4 6f 67 84 56  |0.:.ng.1....og.V|
000061f0  66 25 3d 30 8c 0d 31 20  75 f2 48 64 28 67 61 25  |f%=0..1 u.Hd(ga%|
00006200  2c 32 31 2c 32 33 2c 56  66 25 2c 56 66 25 2c 35  |,21,23,Vf%,Vf%,5|
00006210  2c 31 2c 30 2c 31 29 3a  f2 66 62 28 67 61 25 2c  |,1,0,1):.fb(ga%,|
00006220  34 2c 50 66 25 28 56 66  25 29 29 3a f2 66 62 28  |4,Pf%(Vf%)):.fb(|
00006230  67 61 25 2c 31 30 2c 52  66 25 28 56 66 25 29 29  |ga%,10,Rf%(Vf%))|
00006240  3a f2 66 62 28 67 61 25  2c 31 36 2c 54 66 25 28  |:.fb(ga%,16,Tf%(|
00006250  56 66 25 29 29 3a f2 66  62 28 67 61 25 2c 32 35  |Vf%)):.fb(ga%,25|
00006260  2c 58 66 25 28 56 66 25  29 29 0d 31 24 05 cd 0d  |,Xf%(Vf%)).1$...|
00006270  31 26 18 c9 33 30 3a e7  45 62 25 3d 34 8c 3a f2  |1&..30:.Eb%=4.:.|
00006280  4c 61 28 67 61 25 29 0d  31 28 13 c9 33 31 3a e7  |La(ga%).1(..31:.|
00006290  56 66 25 3e 30 8c 3a f2  6e 67 0d 31 2c 0f e7 a4  |Vf%>0.:.ng.1,...|
000062a0  6f 67 84 56 66 25 3d 30  8c 0d 31 2e 14 e7 45 62  |og.Vf%=0..1...Eb|
000062b0  25 3d 34 8c 3a f2 4c 61  28 67 61 25 29 0d 31 30  |%=4.:.La(ga%).10|
000062c0  1c 6e 64 25 3d b9 3a f2  73 66 3a f2 65 67 28 59  |.nd%=.:.sf:.eg(Y|
000062d0  66 25 28 29 29 3a f2 60  66 0d 31 34 05 cd 0d 31  |f%()):.`f.14...1|
000062e0  36 05 cb 0d 31 38 05 cb  0d 31 3e 0f c9 68 61 25  |6...18...1>..ha%|
000062f0  3a c8 8e 45 62 25 ca 0d  31 42 10 c9 31 2c 34 3a  |:..Eb%..1B..1,4:|
00006300  e7 57 65 25 3e 30 8c 0d  31 46 0a c8 8e 47 62 25  |.We%>0..1F...Gb%|
00006310  ca 0d 31 48 2f c9 34 3a  f2 47 64 28 68 61 25 2c  |..1H/.4:.Gd(ha%,|
00006320  32 2c 34 2c 4d 65 25 28  57 65 25 29 2c 4d 65 25  |2,4,Me%(We%),Me%|
00006330  28 57 65 25 29 2c 30 2c  31 30 30 2c 30 2c 31 29  |(We%),0,100,0,1)|
00006340  0d 31 4a 34 c9 35 3a f2  48 64 28 68 61 25 2c 32  |.1J4.5:.Hd(ha%,2|
00006350  2c 35 2c 4d 65 25 28 57  65 25 29 2c 4d 65 25 28  |,5,Me%(We%),Me%(|
00006360  57 65 25 29 2c 39 39 39  39 30 30 2c 31 30 30 2c  |We%),999900,100,|
00006370  30 2c 31 29 0d 31 4c 30  c9 31 37 3a f2 47 64 28  |0,1).1L0.17:.Gd(|
00006380  68 61 25 2c 31 35 2c 31  37 2c 53 65 25 28 57 65  |ha%,15,17,Se%(We|
00006390  25 29 2c 53 65 25 28 57  65 25 29 2c 30 2c 31 2c  |%),Se%(We%),0,1,|
000063a0  30 2c 31 29 0d 31 4e 32  c9 31 38 3a f2 48 64 28  |0,1).1N2.18:.Hd(|
000063b0  68 61 25 2c 31 35 2c 31  38 2c 53 65 25 28 57 65  |ha%,15,18,Se%(We|
000063c0  25 29 2c 53 65 25 28 57  65 25 29 2c 31 30 30 2c  |%),Se%(We%),100,|
000063d0  31 2c 30 2c 31 29 0d 31  50 32 c9 32 33 3a f2 47  |1,0,1).1P2.23:.G|
000063e0  64 28 68 61 25 2c 32 31  2c 32 33 2c 55 65 25 28  |d(ha%,21,23,Ue%(|
000063f0  57 65 25 29 2c 55 65 25  28 57 65 25 29 2c 30 2c  |We%),Ue%(We%),0,|
00006400  31 30 30 2c 30 2c 31 29  0d 31 52 37 c9 32 34 3a  |100,0,1).1R7.24:|
00006410  f2 48 64 28 68 61 25 2c  32 31 2c 32 34 2c 55 65  |.Hd(ha%,21,24,Ue|
00006420  25 28 57 65 25 29 2c 55  65 25 28 57 65 25 29 2c  |%(We%),Ue%(We%),|
00006430  39 39 39 39 30 30 2c 31  30 30 2c 30 2c 31 29 0d  |999900,100,0,1).|
00006440  31 54 30 c9 33 32 3a f2  47 64 28 68 61 25 2c 33  |1T0.32:.Gd(ha%,3|
00006450  30 2c 33 32 2c 59 65 25  28 57 65 25 29 2c 59 65  |0,32,Ye%(We%),Ye|
00006460  25 28 57 65 25 29 2c 31  2c 35 2c 30 2c 31 29 0d  |%(We%),1,5,0,1).|
00006470  31 56 32 c9 33 33 3a f2  48 64 28 68 61 25 2c 33  |1V2.33:.Hd(ha%,3|
00006480  30 2c 33 33 2c 59 65 25  28 57 65 25 29 2c 59 65  |0,33,Ye%(We%),Ye|
00006490  25 28 57 65 25 29 2c 63  67 25 2c 35 2c 30 2c 31  |%(We%),cg%,5,0,1|
000064a0  29 0d 31 58 05 cb 0d 31  5a 0c cd 3a c8 8e 47 62  |).1X...1Z..:..Gb|
000064b0  25 ca 0d 31 5e 2c c9 34  2c 35 2c 32 33 2c 32 34  |%..1^,.4,5,23,24|
000064c0  3a f2 61 65 28 57 65 25  29 3a f2 66 62 28 68 61  |:.ae(We%):.fb(ha|
000064d0  25 2c 31 32 2c 51 65 25  28 57 65 25 29 29 0d 31  |%,12,Qe%(We%)).1|
000064e0  62 13 c9 32 37 3a e7 57  65 25 3e 30 8c 3a f2 70  |b..27:.We%>0.:.p|
000064f0  67 0d 31 66 0f e7 a4 71  67 84 57 65 25 3d 30 8c  |g.1f...qg.We%=0.|
00006500  0d 31 68 9e f2 47 64 28  68 61 25 2c 32 36 2c 32  |.1h..Gd(ha%,26,2|
00006510  37 2c 57 65 25 2c 57 65  25 2c 30 2c 31 2c 30 2c  |7,We%,We%,0,1,0,|
00006520  31 29 3a f2 66 62 28 68  61 25 2c 32 2c 4d 65 25  |1):.fb(ha%,2,Me%|
00006530  28 57 65 25 29 29 3a f2  66 62 28 68 61 25 2c 38  |(We%)):.fb(ha%,8|
00006540  2c 4f 65 25 28 57 65 25  29 29 3a f2 66 62 28 68  |,Oe%(We%)):.fb(h|
00006550  61 25 2c 31 32 2c 51 65  25 28 57 65 25 29 29 3a  |a%,12,Qe%(We%)):|
00006560  f2 66 62 28 68 61 25 2c  31 35 2c 53 65 25 28 57  |.fb(ha%,15,Se%(W|
00006570  65 25 29 29 3a f2 66 62  28 68 61 25 2c 32 31 2c  |e%)):.fb(ha%,21,|
00006580  55 65 25 28 57 65 25 29  29 3a f2 66 62 28 68 61  |Ue%(We%)):.fb(ha|
00006590  25 2c 33 30 2c 59 65 25  28 57 65 25 29 29 0d 31  |%,30,Ye%(We%)).1|
000065a0  6e 05 cd 0d 31 70 13 c9  32 38 3a e7 57 65 25 3e  |n...1p..28:.We%>|
000065b0  30 8c 3a f2 70 67 0d 31  74 0f e7 a4 71 67 84 57  |0.:.pg.1t...qg.W|
000065c0  65 25 3d 30 8c 0d 31 76  9e f2 48 64 28 68 61 25  |e%=0..1v..Hd(ha%|
000065d0  2c 32 36 2c 32 38 2c 57  65 25 2c 57 65 25 2c 35  |,26,28,We%,We%,5|
000065e0  2c 31 2c 30 2c 31 29 3a  f2 66 62 28 68 61 25 2c  |,1,0,1):.fb(ha%,|
000065f0  32 2c 4d 65 25 28 57 65  25 29 29 3a f2 66 62 28  |2,Me%(We%)):.fb(|
00006600  68 61 25 2c 38 2c 4f 65  25 28 57 65 25 29 29 3a  |ha%,8,Oe%(We%)):|
00006610  f2 66 62 28 68 61 25 2c  31 32 2c 51 65 25 28 57  |.fb(ha%,12,Qe%(W|
00006620  65 25 29 29 3a f2 66 62  28 68 61 25 2c 31 35 2c  |e%)):.fb(ha%,15,|
00006630  53 65 25 28 57 65 25 29  29 3a f2 66 62 28 68 61  |Se%(We%)):.fb(ha|
00006640  25 2c 32 31 2c 55 65 25  28 57 65 25 29 29 3a f2  |%,21,Ue%(We%)):.|
00006650  66 62 28 68 61 25 2c 33  30 2c 59 65 25 28 57 65  |fb(ha%,30,Ye%(We|
00006660  25 29 29 0d 31 7c 05 cd  0d 31 7e 18 c9 33 35 3a  |%)).1|...1~..35:|
00006670  e7 45 62 25 3d 34 8c 3a  f2 4c 61 28 68 61 25 29  |.Eb%=4.:.La(ha%)|
00006680  0d 31 80 13 c9 33 36 3a  e7 57 65 25 3e 30 8c 3a  |.1...36:.We%>0.:|
00006690  f2 70 67 0d 31 84 09 e7  a4 71 67 8c 0d 31 86 14  |.pg.1....qg..1..|
000066a0  e7 45 62 25 3d 34 8c 3a  f2 4c 61 28 68 61 25 29  |.Eb%=4.:.La(ha%)|
000066b0  0d 31 88 1c 6e 64 25 3d  b9 3a f2 73 66 3a f2 65  |.1..nd%=.:.sf:.e|
000066c0  67 28 5a 65 25 28 29 29  3a f2 77 66 0d 31 8c 05  |g(Ze%()):.wf.1..|
000066d0  cd 0d 31 8e 05 cb 0d 31  90 05 cb 0d 31 96 0f c9  |..1....1....1...|
000066e0  69 61 25 3a c8 8e 45 62  25 ca 0d 31 9a 0f c9 31  |ia%:..Eb%..1...1|
000066f0  2c 34 3a c8 8e 47 62 25  ca 0d 31 9e 36 c9 32 2c  |,4:..Gb%..1.6.2,|
00006700  34 2c 36 2c 38 2c 31 30  2c 31 32 3a 69 66 25 28  |4,6,8,10,12:if%(|
00006710  47 62 25 2f 32 29 3d ac  69 66 25 28 47 62 25 2f  |Gb%/2)=.if%(Gb%/|
00006720  32 29 3a f2 51 62 28 69  61 25 2c 47 62 25 29 0d  |2):.Qb(ia%,Gb%).|
00006730  31 a2 40 c9 33 2c 35 2c  37 2c 39 2c 31 31 2c 31  |1.@.3,5,7,9,11,1|
00006740  33 3a 69 66 25 28 28 47  62 25 2d 31 29 2f 32 29  |3:if%((Gb%-1)/2)|
00006750  3d ac 69 66 25 28 28 47  62 25 2d 31 29 2f 32 29  |=.if%((Gb%-1)/2)|
00006760  3a f2 51 62 28 69 61 25  2c 47 62 25 2d 31 29 0d  |:.Qb(ia%,Gb%-1).|
00006770  31 a6 0e cb 3a e7 6f 66  25 3e 2d 31 8c 0d 31 ac  |1...:.of%>-1..1.|
00006780  0a c8 8e 47 62 25 ca 0d  31 ae 33 c9 31 38 3a f2  |...Gb%..1.3.18:.|
00006790  47 64 28 69 61 25 2c 31  36 2c 31 38 2c 6b 66 25  |Gd(ia%,16,18,kf%|
000067a0  28 6f 66 25 29 2c 6b 66  25 28 6f 66 25 29 2c 2d  |(of%),kf%(of%),-|
000067b0  31 30 30 2c 31 2c 30 2c  31 29 0d 31 b0 31 c9 31  |100,1,0,1).1.1.1|
000067c0  39 3a f2 48 64 28 69 61  25 2c 31 36 2c 31 39 2c  |9:.Hd(ia%,16,19,|
000067d0  6b 66 25 28 6f 66 25 29  2c 6b 66 25 28 6f 66 25  |kf%(of%),kf%(of%|
000067e0  29 2c 31 30 2c 31 2c 30  2c 31 29 0d 31 b2 30 c9  |),10,1,0,1).1.0.|
000067f0  32 37 3a f2 47 64 28 69  61 25 2c 32 35 2c 32 37  |27:.Gd(ia%,25,27|
00006800  2c 6d 66 25 28 6f 66 25  29 2c 6d 66 25 28 6f 66  |,mf%(of%),mf%(of|
00006810  25 29 2c 31 2c 35 2c 30  2c 31 29 0d 31 b4 32 c9  |%),1,5,0,1).1.2.|
00006820  32 38 3a f2 48 64 28 69  61 25 2c 32 35 2c 32 38  |28:.Hd(ia%,25,28|
00006830  2c 6d 66 25 28 6f 66 25  29 2c 6d 66 25 28 6f 66  |,mf%(of%),mf%(of|
00006840  25 29 2c 63 67 25 2c 35  2c 30 2c 31 29 0d 31 b6  |%),cg%,5,0,1).1.|
00006850  05 cb 0d 31 b8 0c cd 3a  c8 8e 47 62 25 ca 0d 31  |...1...:..Gb%..1|
00006860  bc 14 c9 32 32 3a e7 6f  66 25 3e 2d 31 8c 3a f2  |...22:.of%>-1.:.|
00006870  72 67 0d 31 c0 09 e7 a4  73 67 8c 0d 31 c2 4c f2  |rg.1....sg..1.L.|
00006880  47 64 28 69 61 25 2c 32  31 2c 32 32 2c 6f 66 25  |Gd(ia%,21,22,of%|
00006890  2c 6f 66 25 2c 30 2c 31  2c 30 2c 31 29 3a f2 66  |,of%,0,1,0,1):.f|
000068a0  62 28 69 61 25 2c 31 36  2c 6b 66 25 28 6f 66 25  |b(ia%,16,kf%(of%|
000068b0  29 29 3a f2 66 62 28 69  61 25 2c 32 35 2c 6d 66  |)):.fb(ia%,25,mf|
000068c0  25 28 6f 66 25 29 29 0d  31 c6 05 cd 0d 31 c8 14  |%(of%)).1....1..|
000068d0  c9 32 33 3a e7 6f 66 25  3e 2d 31 8c 3a f2 72 67  |.23:.of%>-1.:.rg|
000068e0  0d 31 cc 09 e7 a4 73 67  8c 0d 31 ce 4c f2 48 64  |.1....sg..1.L.Hd|
000068f0  28 69 61 25 2c 32 31 2c  32 33 2c 6f 66 25 2c 6f  |(ia%,21,23,of%,o|
00006900  66 25 2c 35 2c 31 2c 30  2c 31 29 3a f2 66 62 28  |f%,5,1,0,1):.fb(|
00006910  69 61 25 2c 31 36 2c 6b  66 25 28 6f 66 25 29 29  |ia%,16,kf%(of%))|
00006920  3a f2 66 62 28 69 61 25  2c 32 35 2c 6d 66 25 28  |:.fb(ia%,25,mf%(|
00006930  6f 66 25 29 29 0d 31 d2  05 cd 0d 31 d4 18 c9 33  |of%)).1....1...3|
00006940  30 3a e7 45 62 25 3d 34  8c 3a f2 4c 61 28 69 61  |0:.Eb%=4.:.La(ia|
00006950  25 29 0d 31 d6 17 c9 33  31 2c 33 32 3a e7 6f 66  |%).1...31,32:.of|
00006960  25 3e 2d 31 8c 3a f2 72  67 0d 31 da 09 e7 a4 73  |%>-1.:.rg.1....s|
00006970  67 8c 0d 31 dc 1b e7 45  62 25 3d 34 80 47 62 25  |g..1...Eb%=4.Gb%|
00006980  3d 33 32 8c 3a f2 4c 61  28 69 61 25 29 0d 31 de  |=32.:.La(ia%).1.|
00006990  4a c8 99 32 36 33 38 37  32 3a f2 74 67 3a f2 65  |J..263872:.tg:.e|
000069a0  67 28 6e 66 25 28 29 29  3a e7 ac 28 6a 66 25 28  |g(nf%()):..(jf%(|
000069b0  31 29 80 6a 66 25 28 32  29 80 6a 66 25 28 33 29  |1).jf%(2).jf%(3)|
000069c0  80 6a 66 25 28 34 29 80  6a 66 25 28 35 29 80 6a  |.jf%(4).jf%(5).j|
000069d0  66 25 28 36 29 29 8c 0d  31 e4 1b f2 4d 5f 3a f2  |f%(6))..1...M_:.|
000069e0  4e 5f 3a f2 4f 5f 3a f2  50 5f 3a f2 51 5f 3a f2  |N_:.O_:.P_:.Q_:.|
000069f0  52 5f 0d 31 e6 3e cd 3a  f2 53 5f 3a f2 54 5f 3a  |R_.1.>.:.S_:.T_:|
00006a00  c8 99 32 36 33 38 37 33  3a e3 4e 25 3d 31 b8 37  |..263873:.N%=1.7|
00006a10  3a c8 99 32 36 32 33 35  33 2c 41 60 25 28 4e 25  |:..262353,A`%(N%|
00006a20  29 2c 30 2c 2d 34 32 30  2c 36 34 30 2c 30 3a ed  |),0,-420,640,0:.|
00006a30  0d 31 ee 05 cd 0d 31 f0  05 cb 0d 31 f2 05 cb 0d  |.1....1....1....|
00006a40  31 f8 3c c9 41 60 25 28  31 29 2c 41 60 25 28 32  |1.<.A`%(1),A`%(2|
00006a50  29 2c 41 60 25 28 33 29  2c 41 60 25 28 34 29 2c  |),A`%(3),A`%(4),|
00006a60  41 60 25 28 35 29 2c 41  60 25 28 36 29 2c 41 60  |A`%(5),A`%(6),A`|
00006a70  25 28 37 29 3a c8 8e 45  62 25 ca 0d 31 fc 10 c9  |%(7):..Eb%..1...|
00006a80  31 2c 34 3a 45 61 25 3d  46 62 25 0d 31 fe 05 cb  |1,4:Ea%=Fb%.1...|
00006a90  0d 32 04 0f c9 6a 61 25  3a c8 8e 45 62 25 ca 0d  |.2...ja%:..Eb%..|
00006aa0  32 08 0e c9 36 34 3a c8  8e 47 62 25 ca 0d 32 0c  |2...64:..Gb%..2.|
00006ab0  29 c9 32 3a 54 60 25 3d  26 41 46 46 3a f2 75 67  |).2:T`%=&AFF:.ug|
00006ac0  28 6a 61 25 2c 31 2c 50  60 25 29 3a f2 76 67 28  |(ja%,1,P`%):.vg(|
00006ad0  6a 61 25 2c 32 29 0d 32  0e 05 cb 0d 32 10 0f c9  |ja%,2).2....2...|
00006ae0  31 2c 34 3a c8 8e 47 62  25 ca 0d 32 14 19 c9 30  |1,4:..Gb%..2...0|
00006af0  3a f2 45 64 28 6a 61 25  2c 31 2c 50 60 25 29 3a  |:.Ed(ja%,1,P`%):|
00006b00  f2 46 64 0d 32 16 05 cb  0d 32 18 05 cb 0d 32 1e  |.Fd.2....2....2.|
00006b10  0f c9 6e 61 25 3a c8 8e  45 62 25 ca 0d 32 22 0e  |..na%:..Eb%..2".|
00006b20  c9 36 34 3a c8 8e 47 62  25 ca 0d 32 26 29 c9 32  |.64:..Gb%..2&).2|
00006b30  3a 54 60 25 3d 26 30 37  37 3a f2 75 67 28 6e 61  |:T`%=&077:.ug(na|
00006b40  25 2c 31 2c 51 60 25 29  3a f2 76 67 28 6e 61 25  |%,1,Q`%):.vg(na%|
00006b50  2c 32 29 0d 32 28 05 cb  0d 32 2a 0f c9 31 2c 34  |,2).2(...2*..1,4|
00006b60  3a c8 8e 47 62 25 ca 0d  32 2e 19 c9 30 3a f2 45  |:..Gb%..2...0:.E|
00006b70  64 28 6e 61 25 2c 31 2c  51 60 25 29 3a f2 46 64  |d(na%,1,Q`%):.Fd|
00006b80  0d 32 30 05 cb 0d 32 32  05 cb 0d 32 38 0f c9 6c  |.20...22...28..l|
00006b90  61 25 3a c8 8e 45 62 25  ca 0d 32 3c 0e c9 36 34  |a%:..Eb%..2<..64|
00006ba0  3a c8 8e 47 62 25 ca 0d  32 40 29 c9 32 3a 54 60  |:..Gb%..2@).2:T`|
00006bb0  25 3d 26 46 46 46 3a f2  75 67 28 6c 61 25 2c 31  |%=&FFF:.ug(la%,1|
00006bc0  2c 53 60 25 29 3a f2 76  67 28 6c 61 25 2c 32 29  |,S`%):.vg(la%,2)|
00006bd0  0d 32 42 05 cb 0d 32 44  0f c9 31 2c 34 3a c8 8e  |.2B...2D..1,4:..|
00006be0  47 62 25 ca 0d 32 48 19  c9 30 3a f2 45 64 28 6c  |Gb%..2H..0:.Ed(l|
00006bf0  61 25 2c 31 2c 53 60 25  29 3a f2 46 64 0d 32 4a  |a%,1,S`%):.Fd.2J|
00006c00  05 cb 0d 32 4c 05 cb 0d  32 4e 0c cb 3a c8 8e 45  |...2L...2N..:..E|
00006c10  62 25 ca 0d 32 56 15 c9  32 3a 45 61 25 3d 46 62  |b%..2V..2:Ea%=Fb|
00006c20  25 3a c8 8e 46 62 25 ca  0d 32 5c 22 c9 2d 32 3a  |%:..Fb%..2\".-2:|
00006c30  c8 99 32 36 32 33 35 36  2c 2c 46 60 25 2c 58 5f  |..262356,,F`%,X_|
00006c40  25 21 30 2d 36 34 2c 32  32 38 0d 32 60 0f c9 51  |%!0-64,228.2`..Q|
00006c50  61 25 3a c8 8e 47 62 25  ca 0d 32 64 3c c9 31 32  |a%:..Gb%..2d<.12|
00006c60  3a e3 77 67 25 3d 30 b8  31 35 3a f2 78 61 28 47  |:.wg%=0.15:.xa(G|
00006c70  60 25 2c 77 67 25 29 3a  ed 3a f2 77 61 28 47 60  |`%,wg%):.:.wa(G`|
00006c80  25 2c 73 62 25 29 3a f2  78 67 28 47 60 25 2c 30  |%,sb%):.xg(G`%,0|
00006c90  2c 30 2c 30 29 0d 32 6a  05 cb 0d 32 6c 0f c9 53  |,0,0).2j...2l..S|
00006ca0  61 25 3a c8 8e 47 62 25  ca 0d 32 70 3c c9 31 32  |a%:..Gb%..2p<.12|
00006cb0  3a e3 77 67 25 3d 30 b8  31 35 3a f2 78 61 28 47  |:.wg%=0.15:.xa(G|
00006cc0  60 25 2c 77 67 25 29 3a  ed 3a f2 77 61 28 47 60  |`%,wg%):.:.wa(G`|
00006cd0  25 2c 4f 63 25 29 3a f2  78 67 28 47 60 25 2c 30  |%,Oc%):.xg(G`%,0|
00006ce0  2c 30 2c 30 29 0d 32 76  05 cb 0d 32 78 0f c9 4c  |,0,0).2v...2x..L|
00006cf0  61 25 3a c8 8e 47 62 25  ca 0d 32 7c 5f c9 34 2c  |a%:..Gb%..2|_.4,|
00006d00  37 2c 31 30 2c 31 33 2c  31 36 2c 31 39 2c 32 32  |7,10,13,16,19,22|
00006d10  3a e3 77 67 25 3d 30 b8  31 35 3a f2 78 61 28 47  |:.wg%=0.15:.xa(G|
00006d20  60 25 2c 77 67 25 29 3a  ed 3a f2 77 61 28 47 60  |`%,wg%):.:.wa(G`|
00006d30  25 2c 5f 63 25 28 28 47  62 25 2d 31 29 2f 33 29  |%,_c%((Gb%-1)/3)|
00006d40  29 3a f2 78 67 28 47 60  25 2c 30 2c 30 2c 30 29  |):.xg(G`%,0,0,0)|
00006d50  3a 79 67 25 3d 47 62 25  0d 32 84 05 cb 0d 32 86  |:yg%=Gb%.2....2.|
00006d60  60 c9 41 60 25 28 31 29  2c 41 60 25 28 32 29 2c  |`.A`%(1),A`%(2),|
00006d70  41 60 25 28 33 29 2c 41  60 25 28 34 29 2c 41 60  |A`%(3),A`%(4),A`|
00006d80  25 28 35 29 2c 41 60 25  28 36 29 2c 41 60 25 28  |%(5),A`%(6),A`%(|
00006d90  37 29 2c 66 61 25 2c 63  61 25 2c 65 61 25 2c 67  |7),fa%,ca%,ea%,g|
00006da0  61 25 2c 68 61 25 2c 69  61 25 2c 61 61 25 2c 62  |a%,ha%,ia%,aa%,b|
00006db0  61 25 2c 4d 61 25 3a c8  8e 46 62 25 ca 0d 32 8a  |a%,Ma%:..Fb%..2.|
00006dc0  4b c9 41 60 25 28 31 29  2c 41 60 25 28 32 29 2c  |K.A`%(1),A`%(2),|
00006dd0  41 60 25 28 33 29 2c 41  60 25 28 34 29 2c 41 60  |A`%(3),A`%(4),A`|
00006de0  25 28 35 29 2c 41 60 25  28 36 29 2c 41 60 25 28  |%(5),A`%(6),A`%(|
00006df0  37 29 3a f2 7a 67 28 49  60 25 2c 30 29 3a f2 71  |7):.zg(I`%,0):.q|
00006e00  61 28 49 60 25 2c 31 29  0d 32 90 32 c9 66 61 25  |a(I`%,1).2.2.fa%|
00006e10  2c 63 61 25 2c 65 61 25  2c 67 61 25 2c 68 61 25  |,ca%,ea%,ga%,ha%|
00006e20  2c 69 61 25 3a f2 71 61  28 49 60 25 2c 30 29 3a  |,ia%:.qa(I`%,0):|
00006e30  f2 7a 67 28 49 60 25 2c  31 29 0d 32 94 22 c9 61  |.zg(I`%,1).2.".a|
00006e40  61 25 2c 62 61 25 3a f2  71 61 28 49 60 25 2c 30  |a%,ba%:.qa(I`%,0|
00006e50  29 3a f2 7a 67 28 49 60  25 2c 31 29 0d 32 9a 24  |):.zg(I`%,1).2.$|
00006e60  c9 4d 61 25 3a e7 ac 73  60 25 8c f2 7a 67 28 49  |.Ma%:..s`%..zg(I|
00006e70  60 25 2c 30 29 8b f2 71  61 28 49 60 25 2c 30 29  |`%,0)..qa(I`%,0)|
00006e80  0d 32 9e 0e f2 7a 67 28  49 60 25 2c 31 29 0d 32  |.2...zg(I`%,1).2|
00006e90  a0 32 cb 3a f2 78 67 28  48 60 25 2c 2d 36 34 2c  |.2.:.xg(H`%,-64,|
00006ea0  30 2c 2d 31 29 3a e7 60  60 25 8c f2 77 61 28 48  |0,-1):.``%..wa(H|
00006eb0  60 25 2c 32 29 8b f2 78  61 28 48 60 25 2c 32 29  |`%,2)..xa(H`%,2)|
00006ec0  0d 32 a6 0f c9 64 61 25  3a c8 8e 47 62 25 ca 0d  |.2...da%:..Gb%..|
00006ed0  32 aa 3a c9 33 3a e3 77  67 25 3d 30 b8 33 3a f2  |2.:.3:.wg%=0.3:.|
00006ee0  78 61 28 4c 60 25 2c 77  67 25 29 3a ed 3a f2 77  |xa(L`%,wg%):.:.w|
00006ef0  61 28 4c 60 25 2c 43 64  25 29 3a f2 78 67 28 4c  |a(L`%,Cd%):.xg(L|
00006f00  60 25 2c 30 2c 30 2c 30  29 0d 32 b0 05 cb 0d 32  |`%,0,0,0).2....2|
00006f10  b2 05 cb 0d 32 b4 07 cb  3a e1 0d 32 ba 4d dd f2  |....2...:..2.M..|
00006f20  42 62 3a 5f 67 25 3d 21  58 5f 25 3a 60 67 25 3d  |Bb:_g%=!X_%:`g%=|
00006f30  58 5f 25 21 34 3a c8 99  32 36 32 33 35 31 2c 2c  |X_%!4:..262351,,|
00006f40  58 5f 25 3a 41 68 25 3d  21 58 5f 25 3a 42 68 25  |X_%:Ah%=!X_%:Bh%|
00006f50  3d 58 5f 25 21 34 3a 45  62 25 3d 58 5f 25 21 38  |=X_%!4:Eb%=X_%!8|
00006f60  3a c8 8e 7a 61 25 ca 0d  32 c8 0e c9 2d 32 3a c8  |:..za%..2...-2:.|
00006f70  8e 5f 67 25 ca 0d 32 cc  0c c9 31 3a e7 73 60 25  |._g%..2...1:.s`%|
00006f80  8c 0d 32 d0 32 72 60 25  3d ac 72 60 25 3a f2 51  |..2.2r`%=.r`%:.Q|
00006f90  62 28 4d 61 25 2c 32 29  3a e7 72 60 25 8c f2 78  |b(Ma%,2):.r`%..x|
00006fa0  61 28 46 60 25 2c 31 29  8b f2 77 61 28 46 60 25  |a(F`%,1)..wa(F`%|
00006fb0  2c 31 29 0d 32 d4 26 e7  45 62 25 3d 31 8c 3a c8  |,1).2.&.Eb%=1.:.|
00006fc0  99 32 36 32 33 35 36 2c  2c 46 60 25 2c 58 5f 25  |.262356,,F`%,X_%|
00006fd0  21 30 2d 36 34 2c 32 32  38 0d 32 d6 05 cd 0d 32  |!0-64,228.2....2|
00006fe0  d8 10 c9 32 3a 55 5f 25  3d b9 3a f2 57 5f 0d 32  |...2:U_%=.:.W_.2|
00006ff0  dc 05 cb 0d 32 de 0f c9  51 61 25 3a c8 8e 5f 67  |....2...Qa%:.._g|
00007000  25 ca 0d 32 e2 86 c9 30  2c 31 2c 32 2c 33 2c 34  |%..2...0,1,2,3,4|
00007010  2c 35 2c 36 2c 37 2c 38  2c 39 2c 31 30 2c 31 31  |,5,6,7,8,9,10,11|
00007020  2c 31 32 2c 31 33 2c 31  34 2c 31 35 3a f2 43 63  |,12,13,14,15:.Cc|
00007030  28 51 61 25 2c 31 31 2c  5f 67 25 29 3a 73 62 25  |(Qa%,11,_g%):sb%|
00007040  3d 5f 67 25 3a e3 77 67  25 3d 30 b8 31 35 3a f2  |=_g%:.wg%=0.15:.|
00007050  78 61 28 47 60 25 2c 77  67 25 29 3a ed 3a f2 77  |xa(G`%,wg%):.:.w|
00007060  61 28 47 60 25 2c 5f 67  25 29 3a e7 45 62 25 3d  |a(G`%,_g%):.Eb%=|
00007070  31 8c 3a c8 99 32 36 32  33 35 36 2c 2c 47 60 25  |1.:..262356,,G`%|
00007080  2c 43 68 25 2c 44 68 25  0d 32 ec 05 cb 0d 32 ee  |,Ch%,Dh%.2....2.|
00007090  0f c9 53 61 25 3a c8 8e  5f 67 25 ca 0d 32 f2 86  |..Sa%:.._g%..2..|
000070a0  c9 30 2c 31 2c 32 2c 33  2c 34 2c 35 2c 36 2c 37  |.0,1,2,3,4,5,6,7|
000070b0  2c 38 2c 39 2c 31 30 2c  31 31 2c 31 32 2c 31 33  |,8,9,10,11,12,13|
000070c0  2c 31 34 2c 31 35 3a f2  43 63 28 53 61 25 2c 31  |,14,15:.Cc(Sa%,1|
000070d0  31 2c 5f 67 25 29 3a 4f  63 25 3d 5f 67 25 3a e3  |1,_g%):Oc%=_g%:.|
000070e0  77 67 25 3d 30 b8 31 35  3a f2 78 61 28 47 60 25  |wg%=0.15:.xa(G`%|
000070f0  2c 77 67 25 29 3a ed 3a  f2 77 61 28 47 60 25 2c  |,wg%):.:.wa(G`%,|
00007100  5f 67 25 29 3a e7 45 62  25 3d 31 8c 3a c8 99 32  |_g%):.Eb%=1.:..2|
00007110  36 32 33 35 36 2c 2c 47  60 25 2c 43 68 25 2c 44  |62356,,G`%,Ch%,D|
00007120  68 25 0d 32 fc 05 cb 0d  32 fe 0f c9 4c 61 25 3a  |h%.2....2...La%:|
00007130  c8 8e 5f 67 25 ca 0d 33  02 3d c9 30 2c 31 2c 32  |.._g%..3.=.0,1,2|
00007140  2c 33 2c 34 2c 35 2c 36  2c 37 2c 38 2c 39 2c 31  |,3,4,5,6,7,8,9,1|
00007150  30 2c 31 31 2c 31 32 2c  31 33 2c 31 34 2c 31 35  |0,11,12,13,14,15|
00007160  3a f2 43 63 28 4c 61 25  2c 79 67 25 2d 31 2c 5f  |:.Cc(La%,yg%-1,_|
00007170  67 25 29 0d 33 06 0c cb  3a c8 8e 79 67 25 ca 0d  |g%).3...:..yg%..|
00007180  33 0a 2a c9 34 2c 37 2c  31 30 2c 31 33 2c 31 36  |3.*.4,7,10,13,16|
00007190  2c 31 39 2c 32 32 3a 5f  63 25 28 28 79 67 25 2d  |,19,22:_c%((yg%-|
000071a0  31 29 2f 33 29 3d 5f 67  25 0d 33 0e 49 cb 3a e3  |1)/3)=_g%.3.I.:.|
000071b0  77 67 25 3d 30 b8 31 35  3a f2 78 61 28 47 60 25  |wg%=0.15:.xa(G`%|
000071c0  2c 77 67 25 29 3a ed 3a  f2 77 61 28 47 60 25 2c  |,wg%):.:.wa(G`%,|
000071d0  5f 67 25 29 3a e7 45 62  25 3d 31 8c 3a c8 99 32  |_g%):.Eb%=1.:..2|
000071e0  36 32 33 35 36 2c 2c 47  60 25 2c 43 68 25 2c 44  |62356,,G`%,Ch%,D|
000071f0  68 25 0d 33 14 60 c9 41  60 25 28 31 29 2c 41 60  |h%.3.`.A`%(1),A`|
00007200  25 28 32 29 2c 41 60 25  28 33 29 2c 41 60 25 28  |%(2),A`%(3),A`%(|
00007210  34 29 2c 41 60 25 28 35  29 2c 41 60 25 28 36 29  |4),A`%(5),A`%(6)|
00007220  2c 41 60 25 28 37 29 2c  66 61 25 2c 63 61 25 2c  |,A`%(7),fa%,ca%,|
00007230  65 61 25 2c 67 61 25 2c  68 61 25 2c 69 61 25 2c  |ea%,ga%,ha%,ia%,|
00007240  61 61 25 2c 62 61 25 2c  4d 61 25 3a c8 8e 5f 67  |aa%,ba%,Ma%:.._g|
00007250  25 ca 0d 33 18 15 c9 32  3a 60 60 25 3d ac 60 60  |%..3...2:``%=.``|
00007260  25 3a e7 60 60 25 8c 0d  33 1e 17 f2 77 61 28 48  |%:.``%..3...wa(H|
00007270  60 25 2c 32 29 3a f2 49  62 28 57 61 25 29 0d 33  |`%,2):.Ib(Wa%).3|
00007280  20 19 cc 3a f2 78 61 28  48 60 25 2c 32 29 3a f2  | ..:.xa(H`%,2):.|
00007290  4c 61 28 57 61 25 29 0d  33 24 23 cd 3a e7 45 62  |La(Wa%).3$#.:.Eb|
000072a0  25 3d 31 8c 3a c8 99 32  36 32 33 35 36 2c 2c 48  |%=1.:..262356,,H|
000072b0  60 25 2c 43 68 25 2c 44  68 25 0d 33 28 05 cb 0d  |`%,Ch%,Dh%.3(...|
000072c0  33 2a 0f c9 64 61 25 3a  c8 8e 5f 67 25 ca 0d 33  |3*..da%:.._g%..3|
000072d0  2e 13 c9 30 2c 31 2c 32  2c 33 3a e7 ac 73 60 25  |...0,1,2,3:..s`%|
000072e0  8c 0d 33 32 85 43 64 25  3d 5f 67 25 3a e3 77 67  |..32.Cd%=_g%:.wg|
000072f0  25 3d 30 b8 33 3a f2 78  61 28 4c 60 25 2c 77 67  |%=0.3:.xa(L`%,wg|
00007300  25 29 3a ed 3a f2 77 61  28 4c 60 25 2c 43 64 25  |%):.:.wa(L`%,Cd%|
00007310  29 3a f2 7a 63 28 64 61  25 2c 32 2c 42 64 24 28  |):.zc(da%,2,Bd$(|
00007320  43 64 25 29 29 3a f2 4a  5f 3a c8 99 32 36 32 33  |Cd%)):.J_:..2623|
00007330  35 33 2c 64 61 25 2c 31  39 32 2c 2d 33 38 30 2c  |53,da%,192,-380,|
00007340  35 38 38 2c 2d 31 33 32  3a c8 99 32 36 32 33 35  |588,-132:..26235|
00007350  33 2c 4d 61 25 2c 30 2c  2d 39 36 30 2c 31 32 38  |3,Ma%,0,-960,128|
00007360  30 2c 2d 31 35 30 0d 33  3e 23 cd 3a e7 45 62 25  |0,-150.3>#.:.Eb%|
00007370  3d 31 8c 3a c8 99 32 36  32 33 35 36 2c 2c 4c 60  |=1.:..262356,,L`|
00007380  25 2c 43 68 25 2c 44 68  25 0d 33 42 05 cb 0d 33  |%,Ch%,Dh%.3B...3|
00007390  44 07 cb 3a e1 0d 33 4a  28 dd f2 41 62 28 46 62  |D..:..3J(..Ab(Fb|
000073a0  25 2c 47 62 25 2c 45 68  25 29 3a ea 46 68 25 2c  |%,Gb%,Eh%):.Fh%,|
000073b0  47 68 25 2c 48 68 3a c8  8e 46 62 25 ca 0d 33 58  |Gh%,Hh:..Fb%..3X|
000073c0  04 0d 33 5c 0f c9 4d 61  25 3a c8 8e 45 68 25 ca  |..3\..Ma%:..Eh%.|
000073d0  0d 33 60 38 c9 26 31 38  33 3a 45 61 25 3d 4d 61  |.3`8.&183:Ea%=Ma|
000073e0  25 3a f2 49 62 28 6a 61  25 29 3a c8 99 32 36 32  |%:.Ib(ja%):..262|
000073f0  33 35 34 2c 6a 61 25 2c  31 2c 30 2c 30 2c 2d 31  |354,ja%,1,0,0,-1|
00007400  2c a9 28 24 50 60 25 29  0d 33 6a 05 cb 0d 33 70  |,.($P`%).3j...3p|
00007410  0f c9 56 61 25 3a c8 8e  45 68 25 ca 0d 33 74 16  |..Va%:..Eh%..3t.|
00007420  c9 26 31 38 45 3a 57 62  25 3d 30 3a c8 8e 47 62  |.&18E:Wb%=0:..Gb|
00007430  25 ca 0d 33 78 3d c9 31  33 3a f2 49 68 28 56 61  |%..3x=.13:.Ih(Va|
00007440  25 2c 31 33 2c 59 62 25  2c 61 62 25 2c 63 62 25  |%,13,Yb%,ab%,cb%|
00007450  2c 64 62 25 2c 31 37 2c  56 61 25 2c a4 4a 68 28  |,db%,17,Va%,.Jh(|
00007460  56 61 25 2c 31 37 29 2c  31 2c 31 37 35 30 29 0d  |Va%,17),1,1750).|
00007470  33 7a 32 c9 31 37 3a f2  4b 68 28 56 61 25 2c 31  |3z2.17:.Kh(Va%,1|
00007480  37 2c 59 62 25 2c 61 62  25 2c 63 62 25 2c 64 62  |7,Yb%,ab%,cb%,db|
00007490  25 2c 31 37 2c 2d 31 2c  34 2c 31 2c 31 37 35 30  |%,17,-1,4,1,1750|
000074a0  29 0d 33 7c 05 cb 0d 33  7e 16 c9 26 31 38 46 3a  |).3|...3~..&18F:|
000074b0  57 62 25 3d 30 3a c8 8e  47 62 25 ca 0d 33 82 32  |Wb%=0:..Gb%..3.2|
000074c0  c9 31 33 3a f2 49 68 28  56 61 25 2c 31 33 2c 59  |.13:.Ih(Va%,13,Y|
000074d0  62 25 2c 61 62 25 2c 63  62 25 2c 64 62 25 2c 31  |b%,ab%,cb%,db%,1|
000074e0  33 2c 2d 31 2c 34 2c 31  2c 31 37 35 30 29 0d 33  |3,-1,4,1,1750).3|
000074f0  84 3d c9 31 37 3a f2 4b  68 28 56 61 25 2c 31 37  |.=.17:.Kh(Va%,17|
00007500  2c 59 62 25 2c 61 62 25  2c 63 62 25 2c 64 62 25  |,Yb%,ab%,cb%,db%|
00007510  2c 31 33 2c 56 61 25 2c  a4 4a 68 28 56 61 25 2c  |,13,Va%,.Jh(Va%,|
00007520  31 33 29 2c 31 2c 31 37  35 30 29 0d 33 86 05 cb  |13),1,1750).3...|
00007530  0d 33 88 0e c9 31 33 3a  e7 ac 73 60 25 8c 0d 33  |.3...13:..s`%..3|
00007540  8c 2d e7 57 62 25 3d 30  8c 3a f2 52 62 28 56 61  |.-.Wb%=0.:.Rb(Va|
00007550  25 2c 38 29 3a f2 52 62  28 56 61 25 2c 39 29 3a  |%,8):.Rb(Va%,9):|
00007560  f2 52 62 28 56 61 25 2c  31 30 29 0d 33 8e 72 f2  |.Rb(Va%,10).3.r.|
00007570  49 64 28 59 62 25 2c 61  62 25 2c 34 30 30 2c 30  |Id(Yb%,ab%,400,0|
00007580  29 3a 56 62 25 3d 55 62  25 3a 58 62 25 3d 57 62  |):Vb%=Ub%:Xb%=Wb|
00007590  25 3a 5a 62 25 3d 59 62  25 3a 62 62 25 3d 61 62  |%:Zb%=Yb%:bb%=ab|
000075a0  25 3a f2 4a 64 3a f2 74  63 28 5a 62 25 2b 31 37  |%:.Jd:.tc(Zb%+17|
000075b0  35 30 2c 62 62 25 2b 31  37 35 30 2c 4b 64 25 2c  |50,bb%+1750,Kd%,|
000075c0  4c 64 25 2c 4d 64 25 2c  4e 64 25 2c 4f 64 29 3a  |Ld%,Md%,Nd%,Od):|
000075d0  e7 74 60 25 8c 3a 54 62  25 3d 32 34 30 0d 33 98  |.t`%.:Tb%=240.3.|
000075e0  4c cd 3a f2 4c 61 28 56  61 25 29 3a 77 60 25 3d  |L.:.La(Va%):w`%=|
000075f0  a3 3a 78 60 25 3d a3 3a  79 60 25 3d b9 3a 7a 60  |.:x`%=.:y`%=.:z`|
00007600  25 3d b9 3a 75 61 25 3d  4d 61 25 3a c8 99 32 36  |%=.:ua%=Ma%:..26|
00007610  32 33 35 33 2c 4d 61 25  2c 30 2c 2d 39 36 30 2c  |2353,Ma%,0,-960,|
00007620  31 32 38 30 2c 2d 31 35  30 0d 33 a0 11 c9 26 31  |1280,-150.3...&1|
00007630  42 3a f2 4c 61 28 56 61  25 29 0d 33 a2 05 cb 0d  |B:.La(Va%).3....|
00007640  33 a8 0f c9 51 61 25 3a  c8 8e 45 68 25 ca 0d 33  |3...Qa%:..Eh%..3|
00007650  ac 10 c9 26 31 38 45 3a  c8 8e 47 62 25 ca 0d 33  |...&18E:..Gb%..3|
00007660  b0 35 c9 31 34 3a f2 49  68 28 51 61 25 2c 31 34  |.5.14:.Ih(Qa%,14|
00007670  2c 6d 62 25 2c 30 2c 32  35 2c 30 2c 31 39 2c 51  |,mb%,0,25,0,19,Q|
00007680  61 25 2c a4 4a 68 28 51  61 25 2c 31 39 29 2c 31  |a%,.Jh(Qa%,19),1|
00007690  2c 30 29 0d 33 b2 3b c9  31 39 3a f2 49 68 28 51  |,0).3.;.19:.Ih(Q|
000076a0  61 25 2c 31 39 2c 6f 62  25 2c 71 62 25 2c 75 62  |a%,19,ob%,qb%,ub|
000076b0  25 2c 76 62 25 2c 32 33  2c 51 61 25 2c a4 4a 68  |%,vb%,23,Qa%,.Jh|
000076c0  28 51 61 25 2c 32 33 29  2c 31 30 2c 30 29 0d 33  |(Qa%,23),10,0).3|
000076d0  b4 31 c9 32 33 3a f2 4b  68 28 51 61 25 2c 32 33  |.1.23:.Kh(Qa%,23|
000076e0  2c 6f 62 25 2c 71 62 25  2c 75 62 25 2c 76 62 25  |,ob%,qb%,ub%,vb%|
000076f0  2c 32 33 2c 2d 31 2c 2d  31 2c 31 30 2c 30 29 0d  |,23,-1,-1,10,0).|
00007700  33 b6 05 cb 0d 33 b8 10  c9 26 31 38 46 3a c8 8e  |3....3...&18F:..|
00007710  47 62 25 ca 0d 33 bc 2a  c9 31 34 3a f2 49 68 28  |Gb%..3.*.14:.Ih(|
00007720  51 61 25 2c 31 34 2c 6d  62 25 2c 30 2c 32 35 2c  |Qa%,14,mb%,0,25,|
00007730  30 2c 31 34 2c 2d 31 2c  32 2c 31 2c 30 29 0d 33  |0,14,-1,2,1,0).3|
00007740  be 3b c9 31 39 3a f2 49  68 28 51 61 25 2c 31 39  |.;.19:.Ih(Qa%,19|
00007750  2c 6f 62 25 2c 71 62 25  2c 75 62 25 2c 76 62 25  |,ob%,qb%,ub%,vb%|
00007760  2c 31 34 2c 51 61 25 2c  a4 4a 68 28 51 61 25 2c  |,14,Qa%,.Jh(Qa%,|
00007770  31 34 29 2c 31 30 2c 30  29 0d 33 c0 3b c9 32 33  |14),10,0).3.;.23|
00007780  3a f2 4b 68 28 51 61 25  2c 32 33 2c 6f 62 25 2c  |:.Kh(Qa%,23,ob%,|
00007790  71 62 25 2c 75 62 25 2c  76 62 25 2c 31 39 2c 51  |qb%,ub%,vb%,19,Q|
000077a0  61 25 2c a4 4a 68 28 51  61 25 2c 31 39 29 2c 31  |a%,.Jh(Qa%,19),1|
000077b0  30 2c 30 29 0d 33 c2 05  cb 0d 33 c4 0e c9 31 33  |0,0).3....3...13|
000077c0  3a e7 ac 73 60 25 8c 0d  33 c8 23 f2 50 64 28 6d  |:..s`%..3.#.Pd(m|
000077d0  62 25 2c 6f 62 25 2c 71  62 25 2c 75 62 25 2c 76  |b%,ob%,qb%,ub%,v|
000077e0  62 25 29 3a c8 8e 68 62  25 ca 0d 33 cc 42 c9 31  |b%):..hb%..3.B.1|
000077f0  3a 6e 62 25 3d 6d 62 25  3a 70 62 25 3d 6f 62 25  |:nb%=mb%:pb%=ob%|
00007800  3a 72 62 25 3d 71 62 25  3a f2 4a 64 3a f2 74 63  |:rb%=qb%:.Jd:.tc|
00007810  28 70 62 25 2c 72 62 25  2c 51 64 25 2c 76 63 25  |(pb%,rb%,Qd%,vc%|
00007820  2c 77 63 25 2c 78 63 25  2c 79 63 29 0d 33 d2 42  |,wc%,xc%,yc).3.B|
00007830  c9 32 3a 7a 62 25 3d 6d  62 25 3a 5f 62 25 3d 6f  |.2:zb%=mb%:_b%=o|
00007840  62 25 3a 60 62 25 3d 71  62 25 3a f2 4a 64 3a f2  |b%:`b%=qb%:.Jd:.|
00007850  74 63 28 5f 62 25 2c 60  62 25 2c 75 63 25 2c 76  |tc(_b%,`b%,uc%,v|
00007860  63 25 2c 77 63 25 2c 78  63 25 2c 79 63 29 0d 33  |c%,wc%,xc%,yc).3|
00007870  d8 05 cb 0d 33 da 4c cd  3a f2 4c 61 28 51 61 25  |....3.L.:.La(Qa%|
00007880  29 3a 77 60 25 3d a3 3a  78 60 25 3d a3 3a 79 60  |):w`%=.:x`%=.:y`|
00007890  25 3d b9 3a 7a 60 25 3d  b9 3a 75 61 25 3d 4d 61  |%=.:z`%=.:ua%=Ma|
000078a0  25 3a c8 99 32 36 32 33  35 33 2c 4d 61 25 2c 30  |%:..262353,Ma%,0|
000078b0  2c 2d 39 36 30 2c 31 32  38 30 2c 2d 31 35 30 0d  |,-960,1280,-150.|
000078c0  33 e2 11 c9 26 31 42 3a  f2 4c 68 28 51 61 25 29  |3...&1B:.Lh(Qa%)|
000078d0  0d 33 e6 05 cb 0d 33 ec  0f c9 53 61 25 3a c8 8e  |.3....3...Sa%:..|
000078e0  45 68 25 ca 0d 33 f0 10  c9 26 31 38 45 3a c8 8e  |Eh%..3...&18E:..|
000078f0  47 62 25 ca 0d 33 f4 35  c9 31 34 3a f2 49 68 28  |Gb%..3.5.14:.Ih(|
00007900  53 61 25 2c 31 34 2c 49  63 25 2c 30 2c 32 35 2c  |Sa%,14,Ic%,0,25,|
00007910  30 2c 31 39 2c 53 61 25  2c a4 4a 68 28 53 61 25  |0,19,Sa%,.Jh(Sa%|
00007920  2c 31 39 29 2c 31 2c 30  29 0d 33 f6 3a c9 31 39  |,19),1,0).3.:.19|
00007930  3a f2 49 68 28 53 61 25  2c 31 39 2c 4b 63 25 2c  |:.Ih(Sa%,19,Kc%,|
00007940  4d 63 25 2c 52 63 25 2c  53 63 25 2c 32 33 2c 53  |Mc%,Rc%,Sc%,23,S|
00007950  61 25 2c a4 4a 68 28 53  61 25 2c 32 33 29 2c 31  |a%,.Jh(Sa%,23),1|
00007960  2c 30 29 0d 33 f8 30 c9  32 33 3a f2 4b 68 28 53  |,0).3.0.23:.Kh(S|
00007970  61 25 2c 32 33 2c 4b 63  25 2c 4d 63 25 2c 52 63  |a%,23,Kc%,Mc%,Rc|
00007980  25 2c 53 63 25 2c 32 33  2c 2d 31 2c 2d 31 2c 31  |%,Sc%,23,-1,-1,1|
00007990  2c 30 29 0d 33 fa 05 cb  0d 33 fc 10 c9 26 31 38  |,0).3....3...&18|
000079a0  46 3a c8 8e 47 62 25 ca  0d 34 00 2a c9 31 34 3a  |F:..Gb%..4.*.14:|
000079b0  f2 49 68 28 53 61 25 2c  31 34 2c 49 63 25 2c 30  |.Ih(Sa%,14,Ic%,0|
000079c0  2c 32 35 2c 30 2c 31 34  2c 2d 31 2c 32 2c 31 2c  |,25,0,14,-1,2,1,|
000079d0  30 29 0d 34 02 3a c9 31  39 3a f2 49 68 28 53 61  |0).4.:.19:.Ih(Sa|
000079e0  25 2c 31 39 2c 4b 63 25  2c 4d 63 25 2c 52 63 25  |%,19,Kc%,Mc%,Rc%|
000079f0  2c 53 63 25 2c 31 34 2c  53 61 25 2c a4 4a 68 28  |,Sc%,14,Sa%,.Jh(|
00007a00  53 61 25 2c 31 34 29 2c  31 2c 30 29 0d 34 04 3a  |Sa%,14),1,0).4.:|
00007a10  c9 32 33 3a f2 4b 68 28  53 61 25 2c 32 33 2c 4b  |.23:.Kh(Sa%,23,K|
00007a20  63 25 2c 4d 63 25 2c 52  63 25 2c 53 63 25 2c 31  |c%,Mc%,Rc%,Sc%,1|
00007a30  39 2c 53 61 25 2c a4 4a  68 28 53 61 25 2c 31 39  |9,Sa%,.Jh(Sa%,19|
00007a40  29 2c 31 2c 30 29 0d 34  06 05 cb 0d 34 08 0e c9  |),1,0).4....4...|
00007a50  31 33 3a e7 ac 73 60 25  8c 0d 34 0c 23 f2 52 64  |13:..s`%..4.#.Rd|
00007a60  28 49 63 25 2c 4b 63 25  2c 4d 63 25 2c 52 63 25  |(Ic%,Kc%,Mc%,Rc%|
00007a70  2c 53 63 25 29 3a c8 8e  44 63 25 ca 0d 34 10 42  |,Sc%):..Dc%..4.B|
00007a80  c9 31 3a 4a 63 25 3d 49  63 25 3a 4c 63 25 3d 4b  |.1:Jc%=Ic%:Lc%=K|
00007a90  63 25 3a 4e 63 25 3d 4d  63 25 3a f2 4a 64 3a f2  |c%:Nc%=Mc%:.Jd:.|
00007aa0  74 63 28 4c 63 25 2c 4e  63 25 2c 53 64 25 2c 54  |tc(Lc%,Nc%,Sd%,T|
00007ab0  64 25 2c 55 64 25 2c 56  64 25 2c 57 64 29 0d 34  |d%,Ud%,Vd%,Wd).4|
00007ac0  16 42 c9 32 3a 57 63 25  3d 49 63 25 3a 58 63 25  |.B.2:Wc%=Ic%:Xc%|
00007ad0  3d 4b 63 25 3a 59 63 25  3d 4d 63 25 3a f2 4a 64  |=Kc%:Yc%=Mc%:.Jd|
00007ae0  3a f2 74 63 28 58 63 25  2c 59 63 25 2c 58 64 25  |:.tc(Xc%,Yc%,Xd%|
00007af0  2c 54 64 25 2c 55 64 25  2c 56 64 25 2c 57 64 29  |,Td%,Ud%,Vd%,Wd)|
00007b00  0d 34 1c 42 c9 33 3a 63  63 25 3d 49 63 25 3a 64  |.4.B.3:cc%=Ic%:d|
00007b10  63 25 3d 4b 63 25 3a 65  63 25 3d 4d 63 25 3a f2  |c%=Kc%:ec%=Mc%:.|
00007b20  4a 64 3a f2 74 63 28 64  63 25 2c 65 63 25 2c 59  |Jd:.tc(dc%,ec%,Y|
00007b30  64 25 2c 54 64 25 2c 55  64 25 2c 56 64 25 2c 57  |d%,Td%,Ud%,Vd%,W|
00007b40  64 29 0d 34 22 42 c9 34  3a 69 63 25 3d 49 63 25  |d).4"B.4:ic%=Ic%|
00007b50  3a 6a 63 25 3d 4b 63 25  3a 6b 63 25 3d 4d 63 25  |:jc%=Kc%:kc%=Mc%|
00007b60  3a f2 4a 64 3a f2 74 63  28 6a 63 25 2c 6b 63 25  |:.Jd:.tc(jc%,kc%|
00007b70  2c 5a 64 25 2c 54 64 25  2c 55 64 25 2c 56 64 25  |,Zd%,Td%,Ud%,Vd%|
00007b80  2c 57 64 29 0d 34 28 05  cb 0d 34 2a 2c cd 3a f2  |,Wd).4(...4*,.:.|
00007b90  4c 61 28 53 61 25 29 3a  c8 99 32 36 32 33 35 33  |La(Sa%):..262353|
00007ba0  2c 4d 61 25 2c 30 2c 2d  39 36 30 2c 31 32 38 30  |,Ma%,0,-960,1280|
00007bb0  2c 2d 31 35 30 0d 34 30  11 c9 26 31 42 3a f2 4c  |,-150.40..&1B:.L|
00007bc0  61 28 53 61 25 29 0d 34  34 05 cb 0d 34 3a 3c c9  |a(Sa%).44...4:<.|
00007bd0  41 60 25 28 31 29 2c 41  60 25 28 32 29 2c 41 60  |A`%(1),A`%(2),A`|
00007be0  25 28 33 29 2c 41 60 25  28 34 29 2c 41 60 25 28  |%(3),A`%(4),A`%(|
00007bf0  35 29 2c 41 60 25 28 36  29 2c 41 60 25 28 37 29  |5),A`%(6),A`%(7)|
00007c00  3a c8 8e 45 68 25 ca 0d  34 3e 38 c9 26 31 38 33  |:..Eh%..4>8.&183|
00007c10  3a 45 61 25 3d 46 62 25  3a f2 49 62 28 6a 61 25  |:Ea%=Fb%:.Ib(ja%|
00007c20  29 3a c8 99 32 36 32 33  35 34 2c 6a 61 25 2c 31  |):..262354,ja%,1|
00007c30  2c 30 2c 30 2c 2d 31 2c  a9 28 24 50 60 25 29 0d  |,0,0,-1,.($P`%).|
00007c40  34 48 05 cb 0d 34 4e 0f  c9 59 61 25 3a c8 8e 45  |4H...4N..Ya%:..E|
00007c50  68 25 ca 0d 34 52 37 c9  26 31 38 45 2c 26 31 38  |h%..4R7.&18E,&18|
00007c60  46 3a f2 49 68 28 59 61  25 2c 34 2c 49 63 25 2c  |F:.Ih(Ya%,4,Ic%,|
00007c70  31 39 39 35 2c 32 31 35  30 2c 31 39 39 30 2c 34  |1995,2150,1990,4|
00007c80  2c 2d 31 2c 34 2c 31 2c  30 29 0d 34 54 11 c9 31  |,-1,4,1,0).4T..1|
00007c90  33 3a f2 51 67 3a e7 a4  52 67 8c 0d 34 5a 90 f2  |3:.Qg:..Rg..4Z..|
00007ca0  4c 61 28 59 61 25 29 3a  f2 53 67 3a f2 6d 64 3a  |La(Ya%):.Sg:.md:|
00007cb0  f2 6f 64 28 62 66 25 2c  54 67 25 2c 55 67 25 2c  |.od(bf%,Tg%,Ug%,|
00007cc0  56 67 25 2c 57 67 25 2c  58 67 25 2c 59 67 29 3a  |Vg%,Wg%,Xg%,Yg):|
00007cd0  e3 4e 25 3d 31 b8 37 3a  c8 99 32 36 32 33 35 33  |.N%=1.7:..262353|
00007ce0  2c 41 60 25 28 4e 25 29  2c 30 2c 2d 34 32 30 2c  |,A`%(N%),0,-420,|
00007cf0  36 34 30 2c 30 3a ed 3a  c8 99 32 36 32 33 35 33  |640,0:.:..262353|
00007d00  2c 62 61 25 2c 30 2c 2d  33 30 30 2c 37 39 38 2c  |,ba%,0,-300,798,|
00007d10  30 3a c8 99 32 36 32 33  35 33 2c 61 61 25 2c 30  |0:..262353,aa%,0|
00007d20  2c 2d 33 34 34 2c 37 30  36 2c 30 0d 34 68 05 cd  |,-344,706,0.4h..|
00007d30  0d 34 6a 11 c9 26 31 42  3a f2 4c 61 28 59 61 25  |.4j..&1B:.La(Ya%|
00007d40  29 0d 34 6c 05 cb 0d 34  72 0f c9 5a 61 25 3a c8  |).4l...4r..Za%:.|
00007d50  8e 45 68 25 ca 0d 34 76  10 c9 26 31 38 45 3a c8  |.Eh%..4v..&18E:.|
00007d60  8e 47 62 25 ca 0d 34 7a  39 c9 33 3a f2 49 68 28  |.Gb%..4z9.3:.Ih(|
00007d70  5a 61 25 2c 33 2c 65 66  25 2c 66 66 25 2c 35 30  |Za%,3,ef%,ff%,50|
00007d80  30 30 2c 2d 31 30 30 30  2c 38 2c 5a 61 25 2c a4  |00,-1000,8,Za%,.|
00007d90  4a 68 28 5a 61 25 2c 38  29 2c 31 2c 30 29 0d 34  |Jh(Za%,8),1,0).4|
00007da0  7c 2f c9 38 3a f2 4b 68  28 5a 61 25 2c 38 2c 65  ||/.8:.Kh(Za%,8,e|
00007db0  66 25 2c 66 66 25 2c 35  30 30 30 2c 2d 31 30 30  |f%,ff%,5000,-100|
00007dc0  30 2c 38 2c 2d 31 2c 31  2c 31 2c 30 29 0d 34 7e  |0,8,-1,1,1,0).4~|
00007dd0  05 cb 0d 34 80 10 c9 26  31 38 46 3a c8 8e 47 62  |...4...&18F:..Gb|
00007de0  25 ca 0d 34 84 2f c9 33  3a f2 49 68 28 5a 61 25  |%..4./.3:.Ih(Za%|
00007df0  2c 33 2c 65 66 25 2c 66  66 25 2c 35 30 30 30 2c  |,3,ef%,ff%,5000,|
00007e00  2d 31 30 30 30 2c 33 2c  2d 31 2c 31 2c 31 2c 30  |-1000,3,-1,1,1,0|
00007e10  29 0d 34 86 39 c9 38 3a  f2 4b 68 28 5a 61 25 2c  |).4.9.8:.Kh(Za%,|
00007e20  38 2c 65 66 25 2c 66 66  25 2c 35 30 30 30 2c 2d  |8,ef%,ff%,5000,-|
00007e30  31 30 30 30 2c 33 2c 5a  61 25 2c a4 4a 68 28 5a  |1000,3,Za%,.Jh(Z|
00007e40  61 25 2c 33 29 2c 31 2c  30 29 0d 34 88 05 cb 0d  |a%,3),1,0).4....|
00007e50  34 8a 11 c9 31 33 3a f2  5a 67 3a e7 a4 61 67 8c  |4...13:.Zg:..ag.|
00007e60  0d 34 90 c1 f2 4c 61 28  5a 61 25 29 3a f2 62 67  |.4...La(Za%):.bg|
00007e70  3a f2 6d 64 3a f2 6f 64  28 60 63 25 2c 41 64 25  |:.md:.od(`c%,Ad%|
00007e80  2c 42 67 25 2c 73 64 25  2c 74 64 25 2c 75 64 25  |,Bg%,sd%,td%,ud%|
00007e90  2c 76 64 29 3a f2 6f 64  28 43 67 25 2c 44 67 25  |,vd):.od(Cg%,Dg%|
00007ea0  2c 45 67 25 2c 46 67 25  2c 47 67 25 2c 48 67 25  |,Eg%,Fg%,Gg%,Hg%|
00007eb0  2c 49 67 29 3a f2 6f 64  28 4a 67 25 2c 4b 67 25  |,Ig):.od(Jg%,Kg%|
00007ec0  2c 4c 67 25 2c 4d 67 25  2c 4e 67 25 2c 4f 67 25  |,Lg%,Mg%,Ng%,Og%|
00007ed0  2c 50 67 29 3a e7 ac 5a  66 25 8c 3a e3 4e 25 3d  |,Pg):..Zf%.:.N%=|
00007ee0  31 b8 37 3a f2 6f 64 28  70 64 25 28 4e 25 29 2c  |1.7:.od(pd%(N%),|
00007ef0  71 64 25 28 4e 25 29 2c  72 64 25 28 4e 25 29 2c  |qd%(N%),rd%(N%),|
00007f00  73 64 25 28 4e 25 29 2c  74 64 25 28 4e 25 29 2c  |sd%(N%),td%(N%),|
00007f10  75 64 25 28 4e 25 29 2c  76 64 28 4e 25 29 29 3a  |ud%(N%),vd(N%)):|
00007f20  ed 0d 34 9e 94 e3 4e 25  3d 31 b8 37 3a c8 99 32  |..4...N%=1.7:..2|
00007f30  36 32 33 35 33 2c 41 60  25 28 4e 25 29 2c 30 2c  |62353,A`%(N%),0,|
00007f40  2d 34 32 30 2c 36 34 30  2c 30 3a ed 3a c8 99 32  |-420,640,0:.:..2|
00007f50  36 32 33 35 33 2c 62 61  25 2c 30 2c 2d 33 30 30  |62353,ba%,0,-300|
00007f60  2c 37 39 38 2c 30 3a c8  99 32 36 32 33 35 33 2c  |,798,0:..262353,|
00007f70  62 61 25 2c 30 2c 2d 33  30 30 2c 37 39 38 2c 30  |ba%,0,-300,798,0|
00007f80  3a e7 ac 5a 66 25 8c 3a  78 64 25 3d a3 3a 7a 60  |:..Zf%.:xd%=.:z`|
00007f90  25 3d b9 3a 75 61 25 3d  61 61 25 3a c8 99 32 36  |%=.:ua%=aa%:..26|
00007fa0  32 33 35 33 2c 61 61 25  2c 30 2c 2d 33 34 34 2c  |2353,aa%,0,-344,|
00007fb0  37 30 36 2c 30 0d 34 a6  05 cd 0d 34 a8 11 c9 26  |706,0.4....4...&|
00007fc0  31 42 3a f2 4c 61 28 5a  61 25 29 0d 34 aa 05 cb  |1B:.La(Za%).4...|
00007fd0  0d 34 b0 0f c9 61 61 25  3a c8 8e 45 68 25 ca 0d  |.4...aa%:..Eh%..|
00007fe0  34 b4 09 c9 26 31 38 33  0d 34 be 10 c9 26 31 38  |4...&183.4...&18|
00007ff0  45 3a c8 8e 47 62 25 ca  0d 34 c2 3a c9 35 3a f2  |E:..Gb%..4.:.5:.|
00008000  49 68 28 61 61 25 2c 35  2c 79 64 25 28 49 65 25  |Ih(aa%,5,yd%(Ie%|
00008010  29 2c 2d 31 2c 31 30 30  2c 30 2c 31 30 2c 61 61  |),-1,100,0,10,aa|
00008020  25 2c a4 4a 68 28 61 61  25 2c 31 30 29 2c 31 2c  |%,.Jh(aa%,10),1,|
00008030  30 29 0d 34 c4 3c c9 31  30 3a f2 49 68 28 61 61  |0).4.<.10:.Ih(aa|
00008040  25 2c 31 30 2c 5f 64 25  28 49 65 25 29 2c 2d 31  |%,10,_d%(Ie%),-1|
00008050  2c 31 30 30 2c 30 2c 31  35 2c 61 61 25 2c a4 4a  |,100,0,15,aa%,.J|
00008060  68 28 61 61 25 2c 31 35  29 2c 31 2c 30 29 0d 34  |h(aa%,15),1,0).4|
00008070  c6 3c c9 31 35 3a f2 49  68 28 61 61 25 2c 31 35  |.<.15:.Ih(aa%,15|
00008080  2c 41 65 25 28 49 65 25  29 2c 2d 31 2c 31 30 30  |,Ae%(Ie%),-1,100|
00008090  2c 30 2c 32 30 2c 61 61  25 2c a4 4a 68 28 61 61  |,0,20,aa%,.Jh(aa|
000080a0  25 2c 32 30 29 2c 31 2c  30 29 0d 34 c8 3c c9 32  |%,20),1,0).4.<.2|
000080b0  30 3a f2 49 68 28 61 61  25 2c 32 30 2c 43 65 25  |0:.Ih(aa%,20,Ce%|
000080c0  28 49 65 25 29 2c 2d 31  2c 31 30 30 2c 30 2c 32  |(Ie%),-1,100,0,2|
000080d0  35 2c 61 61 25 2c a4 4a  68 28 61 61 25 2c 32 35  |5,aa%,.Jh(aa%,25|
000080e0  29 2c 31 2c 30 29 0d 34  ca 3c c9 32 35 3a f2 49  |),1,0).4.<.25:.I|
000080f0  68 28 61 61 25 2c 32 35  2c 45 65 25 28 49 65 25  |h(aa%,25,Ee%(Ie%|
00008100  29 2c 2d 31 2c 31 30 30  2c 30 2c 33 30 2c 61 61  |),-1,100,0,30,aa|
00008110  25 2c a4 4a 68 28 61 61  25 2c 33 30 29 2c 31 2c  |%,.Jh(aa%,30),1,|
00008120  30 29 0d 34 cc 35 c9 33  30 3a f2 49 68 28 61 61  |0).4.5.30:.Ih(aa|
00008130  25 2c 33 30 2c 49 65 25  2c 2d 31 2c 35 2c 30 2c  |%,30,Ie%,-1,5,0,|
00008140  34 31 2c 61 61 25 2c a4  4a 68 28 61 61 25 2c 34  |41,aa%,.Jh(aa%,4|
00008150  31 29 2c 31 2c 30 29 0d  34 ce 62 c9 34 31 3a f2  |1),1,0).4.b.41:.|
00008160  49 68 28 61 61 25 2c 34  31 2c 4b 65 25 28 49 65  |Ih(aa%,41,Ke%(Ie|
00008170  25 29 2c 30 2c 63 67 25  2c 30 2c 34 31 2c 2d 31  |%),0,cg%,0,41,-1|
00008180  2c 31 2c 31 2c 30 29 3a  e7 49 65 25 3d 30 8c 3a  |,1,1,0):.Ie%=0.:|
00008190  f2 49 68 28 61 61 25 2c  34 31 2c 4b 65 25 28 49  |.Ih(aa%,41,Ke%(I|
000081a0  65 25 29 2c 2d 31 2c 63  67 25 2c 30 2c 34 31 2c  |e%),-1,cg%,0,41,|
000081b0  2d 31 2c 31 2c 31 2c 30  29 0d 34 d2 05 cb 0d 34  |-1,1,1,0).4....4|
000081c0  d4 10 c9 26 31 38 46 3a  c8 8e 47 62 25 ca 0d 34  |...&18F:..Gb%..4|
000081d0  d8 2e c9 35 3a f2 49 68  28 61 61 25 2c 35 2c 79  |...5:.Ih(aa%,5,y|
000081e0  64 25 28 49 65 25 29 2c  2d 31 2c 31 30 30 2c 30  |d%(Ie%),-1,100,0|
000081f0  2c 35 2c 2d 31 2c 31 2c  31 2c 30 29 0d 34 da 3a  |,5,-1,1,1,0).4.:|
00008200  c9 31 30 3a f2 49 68 28  61 61 25 2c 31 30 2c 5f  |.10:.Ih(aa%,10,_|
00008210  64 25 28 49 65 25 29 2c  2d 31 2c 31 30 30 2c 30  |d%(Ie%),-1,100,0|
00008220  2c 35 2c 61 61 25 2c a4  4a 68 28 61 61 25 2c 35  |,5,aa%,.Jh(aa%,5|
00008230  29 2c 31 2c 30 29 0d 34  dc 3c c9 31 35 3a f2 49  |),1,0).4.<.15:.I|
00008240  68 28 61 61 25 2c 31 35  2c 41 65 25 28 49 65 25  |h(aa%,15,Ae%(Ie%|
00008250  29 2c 2d 31 2c 31 30 30  2c 30 2c 31 30 2c 61 61  |),-1,100,0,10,aa|
00008260  25 2c a4 4a 68 28 61 61  25 2c 31 30 29 2c 31 2c  |%,.Jh(aa%,10),1,|
00008270  30 29 0d 34 de 3c c9 32  30 3a f2 49 68 28 61 61  |0).4.<.20:.Ih(aa|
00008280  25 2c 32 30 2c 43 65 25  28 49 65 25 29 2c 2d 31  |%,20,Ce%(Ie%),-1|
00008290  2c 31 30 30 2c 30 2c 31  35 2c 61 61 25 2c a4 4a  |,100,0,15,aa%,.J|
000082a0  68 28 61 61 25 2c 31 35  29 2c 31 2c 30 29 0d 34  |h(aa%,15),1,0).4|
000082b0  e0 3c c9 32 35 3a f2 49  68 28 61 61 25 2c 32 35  |.<.25:.Ih(aa%,25|
000082c0  2c 45 65 25 28 49 65 25  29 2c 2d 31 2c 31 30 30  |,Ee%(Ie%),-1,100|
000082d0  2c 30 2c 32 30 2c 61 61  25 2c a4 4a 68 28 61 61  |,0,20,aa%,.Jh(aa|
000082e0  25 2c 32 30 29 2c 31 2c  30 29 0d 34 e2 35 c9 33  |%,20),1,0).4.5.3|
000082f0  30 3a f2 49 68 28 61 61  25 2c 33 30 2c 49 65 25  |0:.Ih(aa%,30,Ie%|
00008300  2c 2d 31 2c 35 2c 30 2c  32 35 2c 61 61 25 2c a4  |,-1,5,0,25,aa%,.|
00008310  4a 68 28 61 61 25 2c 32  35 29 2c 31 2c 30 29 0d  |Jh(aa%,25),1,0).|
00008320  34 e4 78 c9 34 31 3a f2  49 68 28 61 61 25 2c 34  |4.x.41:.Ih(aa%,4|
00008330  31 2c 4b 65 25 28 49 65  25 29 2c 30 2c 63 67 25  |1,Ke%(Ie%),0,cg%|
00008340  2c 30 2c 33 30 2c 61 61  25 2c a4 4a 68 28 61 61  |,0,30,aa%,.Jh(aa|
00008350  25 2c 33 30 29 2c 31 2c  30 29 3a e7 49 65 25 3d  |%,30),1,0):.Ie%=|
00008360  30 8c 3a f2 49 68 28 61  61 25 2c 34 31 2c 4b 65  |0.:.Ih(aa%,41,Ke|
00008370  25 28 49 65 25 29 2c 2d  31 2c 63 67 25 2c 30 2c  |%(Ie%),-1,cg%,0,|
00008380  33 30 2c 61 61 25 2c a4  4a 68 28 61 61 25 2c 33  |30,aa%,.Jh(aa%,3|
00008390  30 29 2c 31 2c 30 29 0d  34 e8 05 cb 0d 34 ea 13  |0),1,0).4....4..|
000083a0  c9 31 33 3a e7 49 65 25  3e 30 8c 3a f2 78 64 0d  |.13:.Ie%>0.:.xd.|
000083b0  34 ee 09 e7 a4 64 67 8c  0d 34 f0 6a f2 4c 61 28  |4....dg..4.j.La(|
000083c0  61 61 25 29 3a 6e 64 25  3d b9 3a f2 73 66 3a f2  |aa%):nd%=.:.sf:.|
000083d0  65 67 28 4c 65 25 28 29  29 3a f2 74 66 28 4c 65  |eg(Le%()):.tf(Le|
000083e0  25 28 29 2c 75 66 28 29  2c 75 66 28 29 2c 2d 31  |%(),uf(),uf(),-1|
000083f0  29 3a f2 74 66 28 4c 65  25 28 29 2c 76 66 28 29  |):.tf(Le%(),vf()|
00008400  2c 76 66 28 29 2c 30 29  3a c8 99 32 36 32 33 35  |,vf(),0):..26235|
00008410  33 2c 61 61 25 2c 30 2c  2d 33 34 34 2c 37 30 36  |3,aa%,0,-344,706|
00008420  2c 30 0d 34 fc 05 cd 0d  34 fe 11 c9 26 31 42 3a  |,0.4....4...&1B:|
00008430  f2 4c 61 28 61 61 25 29  0d 35 00 05 cb 0d 35 06  |.La(aa%).5....5.|
00008440  0f c9 68 61 25 3a c8 8e  45 68 25 ca 0d 35 0a 10  |..ha%:..Eh%..5..|
00008450  c9 26 31 38 45 3a c8 8e  47 62 25 ca 0d 35 0e 3d  |.&18E:..Gb%..5.=|
00008460  c9 32 3a f2 49 68 28 68  61 25 2c 32 2c 4d 65 25  |.2:.Ih(ha%,2,Me%|
00008470  28 57 65 25 29 2c 2d 31  2c 39 39 39 39 30 30 2c  |(We%),-1,999900,|
00008480  30 2c 31 35 2c 68 61 25  2c a4 4a 68 28 68 61 25  |0,15,ha%,.Jh(ha%|
00008490  2c 31 35 29 2c 31 2c 30  29 0d 35 10 3c c9 31 35  |,15),1,0).5.<.15|
000084a0  3a f2 49 68 28 68 61 25  2c 31 35 2c 53 65 25 28  |:.Ih(ha%,15,Se%(|
000084b0  57 65 25 29 2c 2d 31 2c  31 30 30 2c 30 2c 32 31  |We%),-1,100,0,21|
000084c0  2c 68 61 25 2c a4 4a 68  28 68 61 25 2c 32 31 29  |,ha%,.Jh(ha%,21)|
000084d0  2c 31 2c 30 29 0d 35 12  3f c9 32 31 3a f2 49 68  |,1,0).5.?.21:.Ih|
000084e0  28 68 61 25 2c 32 31 2c  55 65 25 28 57 65 25 29  |(ha%,21,Ue%(We%)|
000084f0  2c 2d 31 2c 39 39 39 39  30 30 2c 30 2c 32 36 2c  |,-1,999900,0,26,|
00008500  68 61 25 2c a4 4a 68 28  68 61 25 2c 32 36 29 2c  |ha%,.Jh(ha%,26),|
00008510  31 2c 30 29 0d 35 14 35  c9 32 36 3a f2 49 68 28  |1,0).5.5.26:.Ih(|
00008520  68 61 25 2c 32 36 2c 57  65 25 2c 2d 31 2c 35 2c  |ha%,26,We%,-1,5,|
00008530  30 2c 33 30 2c 68 61 25  2c a4 4a 68 28 68 61 25  |0,30,ha%,.Jh(ha%|
00008540  2c 33 30 29 2c 31 2c 30  29 0d 35 16 62 c9 33 30  |,30),1,0).5.b.30|
00008550  3a f2 49 68 28 68 61 25  2c 33 30 2c 59 65 25 28  |:.Ih(ha%,30,Ye%(|
00008560  57 65 25 29 2c 30 2c 63  67 25 2c 30 2c 33 30 2c  |We%),0,cg%,0,30,|
00008570  2d 31 2c 31 2c 31 2c 30  29 3a e7 57 65 25 3d 30  |-1,1,1,0):.We%=0|
00008580  8c 3a f2 49 68 28 68 61  25 2c 33 30 2c 59 65 25  |.:.Ih(ha%,30,Ye%|
00008590  28 57 65 25 29 2c 2d 31  2c 63 67 25 2c 30 2c 33  |(We%),-1,cg%,0,3|
000085a0  30 2c 2d 31 2c 31 2c 31  2c 30 29 0d 35 1a 05 cb  |0,-1,1,1,0).5...|
000085b0  0d 35 1c 10 c9 26 31 38  46 3a c8 8e 47 62 25 ca  |.5...&18F:..Gb%.|
000085c0  0d 35 20 31 c9 32 3a f2  49 68 28 68 61 25 2c 32  |.5 1.2:.Ih(ha%,2|
000085d0  2c 4d 65 25 28 57 65 25  29 2c 2d 31 2c 39 39 39  |,Me%(We%),-1,999|
000085e0  39 30 30 2c 30 2c 32 2c  2d 31 2c 31 2c 31 2c 30  |900,0,2,-1,1,1,0|
000085f0  29 0d 35 22 3a c9 31 35  3a f2 49 68 28 68 61 25  |).5":.15:.Ih(ha%|
00008600  2c 31 35 2c 53 65 25 28  57 65 25 29 2c 2d 31 2c  |,15,Se%(We%),-1,|
00008610  31 30 30 2c 30 2c 32 2c  68 61 25 2c a4 4a 68 28  |100,0,2,ha%,.Jh(|
00008620  68 61 25 2c 32 29 2c 31  2c 30 29 0d 35 24 3f c9  |ha%,2),1,0).5$?.|
00008630  32 31 3a f2 49 68 28 68  61 25 2c 32 31 2c 55 65  |21:.Ih(ha%,21,Ue|
00008640  25 28 57 65 25 29 2c 2d  31 2c 39 39 39 39 30 30  |%(We%),-1,999900|
00008650  2c 30 2c 31 35 2c 68 61  25 2c a4 4a 68 28 68 61  |,0,15,ha%,.Jh(ha|
00008660  25 2c 31 35 29 2c 31 2c  30 29 0d 35 26 35 c9 32  |%,15),1,0).5&5.2|
00008670  36 3a f2 49 68 28 68 61  25 2c 32 36 2c 57 65 25  |6:.Ih(ha%,26,We%|
00008680  2c 2d 31 2c 35 2c 30 2c  32 31 2c 68 61 25 2c a4  |,-1,5,0,21,ha%,.|
00008690  4a 68 28 68 61 25 2c 32  31 29 2c 31 2c 30 29 0d  |Jh(ha%,21),1,0).|
000086a0  35 28 78 c9 33 30 3a f2  49 68 28 68 61 25 2c 33  |5(x.30:.Ih(ha%,3|
000086b0  30 2c 59 65 25 28 57 65  25 29 2c 30 2c 63 67 25  |0,Ye%(We%),0,cg%|
000086c0  2c 30 2c 32 36 2c 68 61  25 2c a4 4a 68 28 68 61  |,0,26,ha%,.Jh(ha|
000086d0  25 2c 32 36 29 2c 31 2c  30 29 3a e7 57 65 25 3d  |%,26),1,0):.We%=|
000086e0  30 8c 3a f2 49 68 28 68  61 25 2c 33 30 2c 59 65  |0.:.Ih(ha%,30,Ye|
000086f0  25 28 57 65 25 29 2c 2d  31 2c 63 67 25 2c 30 2c  |%(We%),-1,cg%,0,|
00008700  32 36 2c 68 61 25 2c a4  4a 68 28 68 61 25 2c 32  |26,ha%,.Jh(ha%,2|
00008710  36 29 2c 31 2c 30 29 0d  35 2c 05 cb 0d 35 2e 13  |6),1,0).5,...5..|
00008720  c9 31 33 3a e7 57 65 25  3e 30 8c 3a f2 70 67 0d  |.13:.We%>0.:.pg.|
00008730  35 32 09 e7 a4 71 67 8c  0d 35 34 4c f2 4c 61 28  |52...qg..54L.La(|
00008740  68 61 25 29 3a 6e 64 25  3d b9 3a f2 73 66 3a e3  |ha%):nd%=.:.sf:.|
00008750  4e 25 3d 30 b8 35 3a f2  61 65 28 4e 25 29 3a ed  |N%=0.5:.ae(N%):.|
00008760  3a f2 66 62 28 68 61 25  2c 31 32 2c 51 65 25 28  |:.fb(ha%,12,Qe%(|
00008770  57 65 25 29 29 3a f2 65  67 28 5a 65 25 28 29 29  |We%)):.eg(Ze%())|
00008780  3a f2 77 66 0d 35 3e 05  cd 0d 35 40 11 c9 26 31  |:.wf.5>...5@..&1|
00008790  42 3a f2 4c 61 28 68 61  25 29 0d 35 42 05 cb 0d  |B:.La(ha%).5B...|
000087a0  35 48 0f c9 62 61 25 3a  c8 8e 45 68 25 ca 0d 35  |5H..ba%:..Eh%..5|
000087b0  4c 09 c9 26 31 38 33 0d  35 56 10 c9 26 31 38 45  |L..&183.5V..&18E|
000087c0  3a c8 8e 47 62 25 ca 0d  35 5a 3c c9 33 3a f2 49  |:..Gb%..5Z<.3:.I|
000087d0  68 28 62 61 25 2c 33 2c  64 65 25 28 62 65 25 29  |h(ba%,3,de%(be%)|
000087e0  2c 2d 31 30 31 2c 31 30  2c 2d 31 30 30 2c 38 2c  |,-101,10,-100,8,|
000087f0  62 61 25 2c a4 4a 68 28  62 61 25 2c 38 29 2c 31  |ba%,.Jh(ba%,8),1|
00008800  2c 30 29 0d 35 5c 3a c9  38 3a f2 49 68 28 62 61  |,0).5\:.8:.Ih(ba|
00008810  25 2c 38 2c 68 65 25 28  62 65 25 29 2c 2d 31 2c  |%,8,he%(be%),-1,|
00008820  31 30 30 2c 30 2c 31 33  2c 62 61 25 2c a4 4a 68  |100,0,13,ba%,.Jh|
00008830  28 62 61 25 2c 31 33 29  2c 31 2c 30 29 0d 35 5e  |(ba%,13),1,0).5^|
00008840  3c c9 31 33 3a f2 49 68  28 62 61 25 2c 31 33 2c  |<.13:.Ih(ba%,13,|
00008850  6a 65 25 28 62 65 25 29  2c 2d 31 2c 31 30 30 2c  |je%(be%),-1,100,|
00008860  30 2c 31 38 2c 62 61 25  2c a4 4a 68 28 62 61 25  |0,18,ba%,.Jh(ba%|
00008870  2c 31 38 29 2c 31 2c 30  29 0d 35 60 3b c9 31 38  |,18),1,0).5`;.18|
00008880  3a f2 49 68 28 62 61 25  2c 31 38 2c 6c 65 25 28  |:.Ih(ba%,18,le%(|
00008890  62 65 25 29 2c 2d 31 2c  31 30 30 2c 30 2c 32 33  |be%),-1,100,0,23|
000088a0  2c 62 61 25 2c a4 4a 68  28 62 61 25 2c 38 29 2c  |,ba%,.Jh(ba%,8),|
000088b0  31 2c 30 29 0d 35 62 35  c9 32 33 3a f2 49 68 28  |1,0).5b5.23:.Ih(|
000088c0  62 61 25 2c 32 33 2c 62  65 25 2c 2d 31 2c 35 2c  |ba%,23,be%,-1,5,|
000088d0  30 2c 32 37 2c 62 61 25  2c a4 4a 68 28 62 61 25  |0,27,ba%,.Jh(ba%|
000088e0  2c 32 33 29 2c 31 2c 30  29 0d 35 64 6c c9 32 37  |,23),1,0).5dl.27|
000088f0  3a f2 49 68 28 62 61 25  2c 32 37 2c 66 65 25 28  |:.Ih(ba%,27,fe%(|
00008900  62 65 25 29 2c 30 2c 63  67 25 2c 30 2c 32 37 2c  |be%),0,cg%,0,27,|
00008910  2d 31 2c a4 4a 68 28 62  61 25 2c 32 37 29 2c 31  |-1,.Jh(ba%,27),1|
00008920  2c 30 29 3a e7 62 65 25  3d 30 8c 3a f2 49 68 28  |,0):.be%=0.:.Ih(|
00008930  62 61 25 2c 32 37 2c 66  65 25 28 62 65 25 29 2c  |ba%,27,fe%(be%),|
00008940  2d 31 2c 63 67 25 2c 30  2c 32 37 2c 2d 31 2c 31  |-1,cg%,0,27,-1,1|
00008950  2c 31 2c 30 29 0d 35 68  05 cb 0d 35 6a 10 c9 26  |,1,0).5h...5j..&|
00008960  31 38 46 3a c8 8e 47 62  25 ca 0d 35 6e 32 c9 33  |18F:..Gb%..5n2.3|
00008970  3a f2 49 68 28 62 61 25  2c 33 2c 64 65 25 28 62  |:.Ih(ba%,3,de%(b|
00008980  65 25 29 2c 2d 31 30 31  2c 31 30 2c 2d 31 30 30  |e%),-101,10,-100|
00008990  2c 33 2c 2d 31 2c 31 2c  31 2c 30 29 0d 35 70 38  |,3,-1,1,1,0).5p8|
000089a0  c9 38 3a f2 49 68 28 62  61 25 2c 38 2c 68 65 25  |.8:.Ih(ba%,8,he%|
000089b0  28 62 65 25 29 2c 2d 31  2c 31 30 30 2c 30 2c 33  |(be%),-1,100,0,3|
000089c0  2c 62 61 25 2c a4 4a 68  28 62 61 25 2c 33 29 2c  |,ba%,.Jh(ba%,3),|
000089d0  31 2c 30 29 0d 35 72 3a  c9 31 33 3a f2 49 68 28  |1,0).5r:.13:.Ih(|
000089e0  62 61 25 2c 31 33 2c 6a  65 25 28 62 65 25 29 2c  |ba%,13,je%(be%),|
000089f0  2d 31 2c 31 30 30 2c 30  2c 38 2c 62 61 25 2c a4  |-1,100,0,8,ba%,.|
00008a00  4a 68 28 62 61 25 2c 38  29 2c 31 2c 30 29 0d 35  |Jh(ba%,8),1,0).5|
00008a10  74 3c c9 31 38 3a f2 49  68 28 62 61 25 2c 31 38  |t<.18:.Ih(ba%,18|
00008a20  2c 6c 65 25 28 62 65 25  29 2c 2d 31 2c 31 30 30  |,le%(be%),-1,100|
00008a30  2c 30 2c 31 33 2c 62 61  25 2c a4 4a 68 28 62 61  |,0,13,ba%,.Jh(ba|
00008a40  25 2c 31 33 29 2c 31 2c  30 29 0d 35 76 35 c9 32  |%,13),1,0).5v5.2|
00008a50  33 3a f2 49 68 28 62 61  25 2c 32 33 2c 62 65 25  |3:.Ih(ba%,23,be%|
00008a60  2c 2d 31 2c 35 2c 30 2c  31 38 2c 62 61 25 2c a4  |,-1,5,0,18,ba%,.|
00008a70  4a 68 28 62 61 25 2c 31  38 29 2c 31 2c 30 29 0d  |Jh(ba%,18),1,0).|
00008a80  35 78 78 c9 32 37 3a f2  49 68 28 62 61 25 2c 32  |5xx.27:.Ih(ba%,2|
00008a90  37 2c 66 65 25 28 62 65  25 29 2c 30 2c 63 67 25  |7,fe%(be%),0,cg%|
00008aa0  2c 30 2c 32 33 2c 62 61  25 2c a4 4a 68 28 62 61  |,0,23,ba%,.Jh(ba|
00008ab0  25 2c 32 33 29 2c 31 2c  30 29 3a e7 62 65 25 3d  |%,23),1,0):.be%=|
00008ac0  30 8c 3a f2 49 68 28 62  61 25 2c 32 37 2c 66 65  |0.:.Ih(ba%,27,fe|
00008ad0  25 28 62 65 25 29 2c 2d  31 2c 63 67 25 2c 30 2c  |%(be%),-1,cg%,0,|
00008ae0  32 33 2c 62 61 25 2c a4  4a 68 28 62 61 25 2c 32  |23,ba%,.Jh(ba%,2|
00008af0  33 29 2c 31 2c 30 29 0d  35 7c 05 cb 0d 35 7e 13  |3),1,0).5|...5~.|
00008b00  c9 31 33 3a e7 62 65 25  3e 30 8c 3a f2 67 67 0d  |.13:.be%>0.:.gg.|
00008b10  35 82 09 e7 a4 68 67 8c  0d 35 84 3f f2 4c 61 28  |5....hg..5.?.La(|
00008b20  62 61 25 29 3a 6e 64 25  3d b9 3a f2 73 66 3a f2  |ba%):nd%=.:.sf:.|
00008b30  65 67 28 67 65 25 28 29  29 3a f2 78 66 3a c8 99  |eg(ge%()):.xf:..|
00008b40  32 36 32 33 35 33 2c 62  61 25 2c 30 2c 2d 33 30  |262353,ba%,0,-30|
00008b50  30 2c 37 39 38 2c 30 0d  35 8c 05 cd 0d 35 8e 11  |0,798,0.5....5..|
00008b60  c9 26 31 42 3a f2 4c 61  28 62 61 25 29 0d 35 90  |.&1B:.La(ba%).5.|
00008b70  05 cb 0d 35 96 0f c9 66  61 25 3a c8 8e 45 68 25  |...5...fa%:..Eh%|
00008b80  ca 0d 35 9a 10 c9 26 31  38 45 3a c8 8e 47 62 25  |..5...&18E:..Gb%|
00008b90  ca 0d 35 9e 38 c9 34 3a  f2 49 68 28 66 61 25 2c  |..5.8.4:.Ih(fa%,|
00008ba0  34 2c 6e 65 25 28 78 65  25 29 2c 2d 31 2c 31 30  |4,ne%(xe%),-1,10|
00008bb0  30 2c 30 2c 39 2c 66 61  25 2c a4 4a 68 28 66 61  |0,0,9,fa%,.Jh(fa|
00008bc0  25 2c 39 29 2c 31 2c 30  29 0d 35 a0 3a c9 39 3a  |%,9),1,0).5.:.9:|
00008bd0  f2 49 68 28 66 61 25 2c  39 2c 70 65 25 28 78 65  |.Ih(fa%,9,pe%(xe|
00008be0  25 29 2c 2d 31 2c 31 30  30 2c 30 2c 31 34 2c 66  |%),-1,100,0,14,f|
00008bf0  61 25 2c a4 4a 68 28 66  61 25 2c 31 34 29 2c 31  |a%,.Jh(fa%,14),1|
00008c00  2c 30 29 0d 35 a2 3c c9  31 34 3a f2 49 68 28 66  |,0).5.<.14:.Ih(f|
00008c10  61 25 2c 31 34 2c 72 65  25 28 78 65 25 29 2c 2d  |a%,14,re%(xe%),-|
00008c20  31 2c 31 30 30 2c 30 2c  32 30 2c 66 61 25 2c a4  |1,100,0,20,fa%,.|
00008c30  4a 68 28 66 61 25 2c 32  30 29 2c 31 2c 30 29 0d  |Jh(fa%,20),1,0).|
00008c40  35 a4 3c c9 32 30 3a f2  49 68 28 66 61 25 2c 32  |5.<.20:.Ih(fa%,2|
00008c50  30 2c 74 65 25 28 78 65  25 29 2c 2d 31 2c 31 30  |0,te%(xe%),-1,10|
00008c60  30 2c 30 2c 33 37 2c 66  61 25 2c a4 4a 68 28 66  |0,0,37,fa%,.Jh(f|
00008c70  61 25 2c 33 37 29 2c 31  2c 30 29 0d 35 a6 3d c9  |a%,37),1,0).5.=.|
00008c80  33 37 3a f2 49 68 28 66  61 25 2c 33 37 2c 76 65  |37:.Ih(fa%,37,ve|
00008c90  25 28 78 65 25 29 2c 2d  31 2c 39 39 39 30 2c 30  |%(xe%),-1,9990,0|
00008ca0  2c 32 35 2c 66 61 25 2c  a4 4a 68 28 66 61 25 2c  |,25,fa%,.Jh(fa%,|
00008cb0  32 35 29 2c 31 2c 30 29  0d 35 a8 35 c9 32 35 3a  |25),1,0).5.5.25:|
00008cc0  f2 49 68 28 66 61 25 2c  32 35 2c 78 65 25 2c 2d  |.Ih(fa%,25,xe%,-|
00008cd0  31 2c 35 2c 30 2c 32 39  2c 66 61 25 2c a4 4a 68  |1,5,0,29,fa%,.Jh|
00008ce0  28 66 61 25 2c 32 39 29  2c 31 2c 30 29 0d 35 aa  |(fa%,29),1,0).5.|
00008cf0  62 c9 32 39 3a f2 49 68  28 66 61 25 2c 32 39 2c  |b.29:.Ih(fa%,29,|
00008d00  7a 65 25 28 78 65 25 29  2c 30 2c 63 67 25 2c 30  |ze%(xe%),0,cg%,0|
00008d10  2c 32 39 2c 2d 31 2c 31  2c 31 2c 30 29 3a e7 78  |,29,-1,1,1,0):.x|
00008d20  65 25 3d 30 8c 3a f2 49  68 28 66 61 25 2c 32 39  |e%=0.:.Ih(fa%,29|
00008d30  2c 7a 65 25 28 78 65 25  29 2c 2d 31 2c 63 67 25  |,ze%(xe%),-1,cg%|
00008d40  2c 30 2c 32 39 2c 2d 31  2c 31 2c 31 2c 30 29 0d  |,0,29,-1,1,1,0).|
00008d50  35 ae 05 cb 0d 35 b0 10  c9 26 31 38 46 3a c8 8e  |5....5...&18F:..|
00008d60  47 62 25 ca 0d 35 b4 2e  c9 34 3a f2 49 68 28 66  |Gb%..5...4:.Ih(f|
00008d70  61 25 2c 34 2c 6e 65 25  28 78 65 25 29 2c 2d 31  |a%,4,ne%(xe%),-1|
00008d80  2c 31 30 30 2c 30 2c 34  2c 2d 31 2c 31 2c 31 2c  |,100,0,4,-1,1,1,|
00008d90  30 29 0d 35 b6 38 c9 39  3a f2 49 68 28 66 61 25  |0).5.8.9:.Ih(fa%|
00008da0  2c 39 2c 70 65 25 28 78  65 25 29 2c 2d 31 2c 31  |,9,pe%(xe%),-1,1|
00008db0  30 30 2c 30 2c 34 2c 66  61 25 2c a4 4a 68 28 66  |00,0,4,fa%,.Jh(f|
00008dc0  61 25 2c 34 29 2c 31 2c  30 29 0d 35 b8 3a c9 31  |a%,4),1,0).5.:.1|
00008dd0  34 3a f2 49 68 28 66 61  25 2c 31 34 2c 72 65 25  |4:.Ih(fa%,14,re%|
00008de0  28 78 65 25 29 2c 2d 31  2c 31 30 30 2c 30 2c 39  |(xe%),-1,100,0,9|
00008df0  2c 66 61 25 2c a4 4a 68  28 66 61 25 2c 39 29 2c  |,fa%,.Jh(fa%,9),|
00008e00  31 2c 30 29 0d 35 ba 3c  c9 32 30 3a f2 49 68 28  |1,0).5.<.20:.Ih(|
00008e10  66 61 25 2c 32 30 2c 74  65 25 28 78 65 25 29 2c  |fa%,20,te%(xe%),|
00008e20  2d 31 2c 31 30 30 2c 30  2c 31 34 2c 66 61 25 2c  |-1,100,0,14,fa%,|
00008e30  a4 4a 68 28 66 61 25 2c  31 34 29 2c 31 2c 30 29  |.Jh(fa%,14),1,0)|
00008e40  0d 35 bc 3d c9 33 37 3a  f2 49 68 28 66 61 25 2c  |.5.=.37:.Ih(fa%,|
00008e50  33 37 2c 76 65 25 28 78  65 25 29 2c 2d 31 2c 39  |37,ve%(xe%),-1,9|
00008e60  39 39 30 2c 30 2c 32 30  2c 66 61 25 2c a4 4a 68  |990,0,20,fa%,.Jh|
00008e70  28 66 61 25 2c 32 30 29  2c 31 2c 30 29 0d 35 be  |(fa%,20),1,0).5.|
00008e80  35 c9 32 35 3a f2 49 68  28 66 61 25 2c 32 35 2c  |5.25:.Ih(fa%,25,|
00008e90  78 65 25 2c 2d 31 2c 35  2c 30 2c 33 37 2c 66 61  |xe%,-1,5,0,37,fa|
00008ea0  25 2c a4 4a 68 28 66 61  25 2c 33 37 29 2c 31 2c  |%,.Jh(fa%,37),1,|
00008eb0  30 29 0d 35 c0 78 c9 32  39 3a f2 49 68 28 66 61  |0).5.x.29:.Ih(fa|
00008ec0  25 2c 32 39 2c 7a 65 25  28 78 65 25 29 2c 30 2c  |%,29,ze%(xe%),0,|
00008ed0  63 67 25 2c 30 2c 32 35  2c 66 61 25 2c a4 4a 68  |cg%,0,25,fa%,.Jh|
00008ee0  28 66 61 25 2c 32 35 29  2c 31 2c 30 29 3a e7 78  |(fa%,25),1,0):.x|
00008ef0  65 25 3d 30 8c 3a f2 49  68 28 66 61 25 2c 32 39  |e%=0.:.Ih(fa%,29|
00008f00  2c 7a 65 25 28 78 65 25  29 2c 2d 31 2c 63 67 25  |,ze%(xe%),-1,cg%|
00008f10  2c 30 2c 32 35 2c 66 61  25 2c a4 4a 68 28 66 61  |,0,25,fa%,.Jh(fa|
00008f20  25 2c 32 35 29 2c 31 2c  30 29 0d 35 c4 05 cb 0d  |%,25),1,0).5....|
00008f30  35 c6 13 c9 31 33 3a e7  78 65 25 3e 30 8c 3a f2  |5...13:.xe%>0.:.|
00008f40  69 67 0d 35 ca 0f e7 a4  6a 67 84 78 65 25 3d 30  |ig.5....jg.xe%=0|
00008f50  8c 0d 35 cc 25 f2 4c 61  28 66 61 25 29 3a 6e 64  |..5.%.La(fa%):nd|
00008f60  25 3d b9 3a f2 73 66 3a  f2 65 67 28 5f 65 25 28  |%=.:.sf:.eg(_e%(|
00008f70  29 29 3a f2 79 66 0d 35  d2 05 cd 0d 35 d4 11 c9  |)):.yf.5....5...|
00008f80  26 31 42 3a f2 4c 61 28  66 61 25 29 0d 35 d6 05  |&1B:.La(fa%).5..|
00008f90  cb 0d 35 dc 0f c9 63 61  25 3a c8 8e 45 68 25 ca  |..5...ca%:..Eh%.|
00008fa0  0d 35 e0 10 c9 26 31 38  45 3a c8 8e 47 62 25 ca  |.5...&18E:..Gb%.|
00008fb0  0d 35 e4 38 c9 33 3a f2  49 68 28 63 61 25 2c 33  |.5.8.3:.Ih(ca%,3|
00008fc0  2c 60 65 25 28 44 66 25  29 2c 2d 31 2c 31 30 30  |,`e%(Df%),-1,100|
00008fd0  2c 30 2c 38 2c 63 61 25  2c a4 4a 68 28 63 61 25  |,0,8,ca%,.Jh(ca%|
00008fe0  2c 38 29 2c 31 2c 30 29  0d 35 e6 3a c9 38 3a f2  |,8),1,0).5.:.8:.|
00008ff0  49 68 28 63 61 25 2c 38  2c 42 66 25 28 44 66 25  |Ih(ca%,8,Bf%(Df%|
00009000  29 2c 2d 31 2c 31 30 30  2c 30 2c 31 32 2c 63 61  |),-1,100,0,12,ca|
00009010  25 2c a4 4a 68 28 63 61  25 2c 31 32 29 2c 31 2c  |%,.Jh(ca%,12),1,|
00009020  30 29 0d 35 e8 35 c9 31  32 3a f2 49 68 28 63 61  |0).5.5.12:.Ih(ca|
00009030  25 2c 31 32 2c 44 66 25  2c 2d 31 2c 35 2c 30 2c  |%,12,Df%,-1,5,0,|
00009040  31 36 2c 63 61 25 2c a4  4a 68 28 63 61 25 2c 31  |16,ca%,.Jh(ca%,1|
00009050  36 29 2c 31 2c 30 29 0d  35 ea 62 c9 31 36 3a f2  |6),1,0).5.b.16:.|
00009060  49 68 28 63 61 25 2c 31  36 2c 46 66 25 28 44 66  |Ih(ca%,16,Ff%(Df|
00009070  25 29 2c 30 2c 63 67 25  2c 30 2c 31 36 2c 2d 31  |%),0,cg%,0,16,-1|
00009080  2c 31 2c 31 2c 30 29 3a  e7 44 66 25 3d 30 8c 3a  |,1,1,0):.Df%=0.:|
00009090  f2 49 68 28 63 61 25 2c  31 36 2c 46 66 25 28 44  |.Ih(ca%,16,Ff%(D|
000090a0  66 25 29 2c 2d 31 2c 63  67 25 2c 30 2c 31 36 2c  |f%),-1,cg%,0,16,|
000090b0  2d 31 2c 31 2c 31 2c 30  29 0d 35 ee 05 cb 0d 35  |-1,1,1,0).5....5|
000090c0  f0 10 c9 26 31 38 46 3a  c8 8e 47 62 25 ca 0d 35  |...&18F:..Gb%..5|
000090d0  f4 2e c9 33 3a f2 49 68  28 63 61 25 2c 33 2c 60  |...3:.Ih(ca%,3,`|
000090e0  65 25 28 44 66 25 29 2c  2d 31 2c 31 30 30 2c 30  |e%(Df%),-1,100,0|
000090f0  2c 33 2c 2d 31 2c 31 2c  31 2c 30 29 0d 35 f6 38  |,3,-1,1,1,0).5.8|
00009100  c9 38 3a f2 49 68 28 63  61 25 2c 38 2c 42 66 25  |.8:.Ih(ca%,8,Bf%|
00009110  28 44 66 25 29 2c 2d 31  2c 31 30 30 2c 30 2c 33  |(Df%),-1,100,0,3|
00009120  2c 63 61 25 2c a4 4a 68  28 63 61 25 2c 33 29 2c  |,ca%,.Jh(ca%,3),|
00009130  31 2c 30 29 0d 35 f8 33  c9 31 32 3a f2 49 68 28  |1,0).5.3.12:.Ih(|
00009140  63 61 25 2c 31 32 2c 44  66 25 2c 2d 31 2c 35 2c  |ca%,12,Df%,-1,5,|
00009150  30 2c 38 2c 63 61 25 2c  a4 4a 68 28 63 61 25 2c  |0,8,ca%,.Jh(ca%,|
00009160  38 29 2c 31 2c 30 29 0d  35 fa 78 c9 31 36 3a f2  |8),1,0).5.x.16:.|
00009170  49 68 28 63 61 25 2c 31  36 2c 46 66 25 28 44 66  |Ih(ca%,16,Ff%(Df|
00009180  25 29 2c 30 2c 63 67 25  2c 30 2c 31 32 2c 63 61  |%),0,cg%,0,12,ca|
00009190  25 2c a4 4a 68 28 63 61  25 2c 31 32 29 2c 31 2c  |%,.Jh(ca%,12),1,|
000091a0  30 29 3a e7 44 66 25 3d  30 8c 3a f2 49 68 28 63  |0):.Df%=0.:.Ih(c|
000091b0  61 25 2c 31 36 2c 46 66  25 28 44 66 25 29 2c 2d  |a%,16,Ff%(Df%),-|
000091c0  31 2c 63 67 25 2c 30 2c  31 32 2c 63 61 25 2c a4  |1,cg%,0,12,ca%,.|
000091d0  4a 68 28 63 61 25 2c 31  32 29 2c 31 2c 30 29 0d  |Jh(ca%,12),1,0).|
000091e0  35 fe 05 cb 0d 36 00 13  c9 31 33 3a e7 44 66 25  |5....6...13:.Df%|
000091f0  3e 30 8c 3a f2 6b 67 0d  36 04 09 e7 a4 6c 67 8c  |>0.:.kg.6....lg.|
00009200  0d 36 06 25 f2 4c 61 28  63 61 25 29 3a 6e 64 25  |.6.%.La(ca%):nd%|
00009210  3d b9 3a f2 73 66 3a f2  65 67 28 47 66 25 28 29  |=.:.sf:.eg(Gf%()|
00009220  29 3a f2 7a 66 0d 36 0c  05 cd 0d 36 0e 11 c9 26  |):.zf.6....6...&|
00009230  31 42 3a f2 4c 61 28 63  61 25 29 0d 36 10 05 cb  |1B:.La(ca%).6...|
00009240  0d 36 16 0f c9 65 61 25  3a c8 8e 45 68 25 ca 0d  |.6...ea%:..Eh%..|
00009250  36 1a 10 c9 26 31 38 45  3a c8 8e 47 62 25 ca 0d  |6...&18E:..Gb%..|
00009260  36 1e 3a c9 33 3a f2 49  68 28 65 61 25 2c 33 2c  |6.:.3:.Ih(ea%,3,|
00009270  48 66 25 28 4c 66 25 29  2c 2d 31 2c 35 30 30 30  |Hf%(Lf%),-1,5000|
00009280  30 2c 30 2c 38 2c 65 61  25 2c a4 4a 68 28 65 61  |0,0,8,ea%,.Jh(ea|
00009290  25 2c 38 29 2c 31 2c 30  29 0d 36 20 3c c9 38 3a  |%,8),1,0).6 <.8:|
000092a0  f2 49 68 28 65 61 25 2c  38 2c 4a 66 25 28 4c 66  |.Ih(ea%,8,Jf%(Lf|
000092b0  25 29 2c 2d 31 2c 35 30  30 30 30 2c 30 2c 31 32  |%),-1,50000,0,12|
000092c0  2c 65 61 25 2c a4 4a 68  28 65 61 25 2c 31 32 29  |,ea%,.Jh(ea%,12)|
000092d0  2c 31 2c 30 29 0d 36 22  35 c9 31 32 3a f2 49 68  |,1,0).6"5.12:.Ih|
000092e0  28 65 61 25 2c 31 32 2c  4c 66 25 2c 2d 31 2c 35  |(ea%,12,Lf%,-1,5|
000092f0  2c 30 2c 31 36 2c 65 61  25 2c a4 4a 68 28 65 61  |,0,16,ea%,.Jh(ea|
00009300  25 2c 31 36 29 2c 31 2c  30 29 0d 36 24 62 c9 31  |%,16),1,0).6$b.1|
00009310  36 3a f2 49 68 28 65 61  25 2c 31 36 2c 4e 66 25  |6:.Ih(ea%,16,Nf%|
00009320  28 4c 66 25 29 2c 30 2c  63 67 25 2c 30 2c 31 36  |(Lf%),0,cg%,0,16|
00009330  2c 2d 31 2c 31 2c 31 2c  30 29 3a e7 4c 66 25 3d  |,-1,1,1,0):.Lf%=|
00009340  30 8c 3a f2 49 68 28 65  61 25 2c 31 36 2c 4e 66  |0.:.Ih(ea%,16,Nf|
00009350  25 28 4c 66 25 29 2c 2d  31 2c 63 67 25 2c 30 2c  |%(Lf%),-1,cg%,0,|
00009360  31 36 2c 2d 31 2c 31 2c  31 2c 30 29 0d 36 28 05  |16,-1,1,1,0).6(.|
00009370  cb 0d 36 2a 10 c9 26 31  38 46 3a c8 8e 47 62 25  |..6*..&18F:..Gb%|
00009380  ca 0d 36 2e 30 c9 33 3a  f2 49 68 28 65 61 25 2c  |..6.0.3:.Ih(ea%,|
00009390  33 2c 48 66 25 28 4c 66  25 29 2c 2d 31 2c 35 30  |3,Hf%(Lf%),-1,50|
000093a0  30 30 30 2c 30 2c 33 2c  2d 31 2c 31 2c 31 2c 30  |000,0,3,-1,1,1,0|
000093b0  29 0d 36 30 3a c9 38 3a  f2 49 68 28 65 61 25 2c  |).60:.8:.Ih(ea%,|
000093c0  38 2c 4a 66 25 28 4c 66  25 29 2c 2d 31 2c 35 30  |8,Jf%(Lf%),-1,50|
000093d0  30 30 30 2c 30 2c 33 2c  65 61 25 2c a4 4a 68 28  |000,0,3,ea%,.Jh(|
000093e0  65 61 25 2c 33 29 2c 31  2c 30 29 0d 36 32 33 c9  |ea%,3),1,0).623.|
000093f0  31 32 3a f2 49 68 28 65  61 25 2c 31 32 2c 4c 66  |12:.Ih(ea%,12,Lf|
00009400  25 2c 2d 31 2c 35 2c 30  2c 38 2c 65 61 25 2c a4  |%,-1,5,0,8,ea%,.|
00009410  4a 68 28 65 61 25 2c 38  29 2c 31 2c 30 29 0d 36  |Jh(ea%,8),1,0).6|
00009420  34 78 c9 31 36 3a f2 49  68 28 65 61 25 2c 31 36  |4x.16:.Ih(ea%,16|
00009430  2c 4e 66 25 28 4c 66 25  29 2c 30 2c 63 67 25 2c  |,Nf%(Lf%),0,cg%,|
00009440  30 2c 31 32 2c 65 61 25  2c a4 4a 68 28 65 61 25  |0,12,ea%,.Jh(ea%|
00009450  2c 31 32 29 2c 31 2c 30  29 3a e7 4c 66 25 3d 30  |,12),1,0):.Lf%=0|
00009460  8c 3a f2 49 68 28 65 61  25 2c 31 36 2c 4e 66 25  |.:.Ih(ea%,16,Nf%|
00009470  28 4c 66 25 29 2c 2d 31  2c 63 67 25 2c 30 2c 31  |(Lf%),-1,cg%,0,1|
00009480  32 2c 65 61 25 2c a4 4a  68 28 65 61 25 2c 31 32  |2,ea%,.Jh(ea%,12|
00009490  29 2c 31 2c 30 29 0d 36  38 05 cb 0d 36 3a 13 c9  |),1,0).68...6:..|
000094a0  31 33 3a e7 4c 66 25 3e  30 8c 3a f2 78 60 0d 36  |13:.Lf%>0.:.x`.6|
000094b0  3e 09 e7 a4 6d 67 8c 0d  36 40 25 f2 4c 61 28 65  |>...mg..6@%.La(e|
000094c0  61 25 29 3a 6e 64 25 3d  b9 3a f2 73 66 3a f2 65  |a%):nd%=.:.sf:.e|
000094d0  67 28 4f 66 25 28 29 29  3a f2 5f 66 0d 36 46 05  |g(Of%()):._f.6F.|
000094e0  cd 0d 36 48 12 c9 26 31  38 42 3a f2 4c 61 28 65  |..6H..&18B:.La(e|
000094f0  61 25 29 0d 36 4a 05 cb  0d 36 50 0f c9 67 61 25  |a%).6J...6P..ga%|
00009500  3a c8 8e 45 68 25 ca 0d  36 54 10 c9 26 31 38 45  |:..Eh%..6T..&18E|
00009510  3a c8 8e 47 62 25 ca 0d  36 58 3a c9 34 3a f2 49  |:..Gb%..6X:.4:.I|
00009520  68 28 67 61 25 2c 34 2c  50 66 25 28 56 66 25 29  |h(ga%,4,Pf%(Vf%)|
00009530  2c 2d 31 2c 39 39 39 2c  30 2c 31 30 2c 67 61 25  |,-1,999,0,10,ga%|
00009540  2c a4 4a 68 28 67 61 25  2c 31 30 29 2c 31 2c 30  |,.Jh(ga%,10),1,0|
00009550  29 0d 36 5a 3c c9 31 30  3a f2 49 68 28 67 61 25  |).6Z<.10:.Ih(ga%|
00009560  2c 31 30 2c 52 66 25 28  56 66 25 29 2c 2d 31 2c  |,10,Rf%(Vf%),-1,|
00009570  39 39 39 2c 30 2c 31 36  2c 67 61 25 2c a4 4a 68  |999,0,16,ga%,.Jh|
00009580  28 67 61 25 2c 31 36 29  2c 31 2c 30 29 0d 36 5c  |(ga%,16),1,0).6\|
00009590  3c c9 31 36 3a f2 49 68  28 67 61 25 2c 31 36 2c  |<.16:.Ih(ga%,16,|
000095a0  54 66 25 28 56 66 25 29  2c 2d 31 2c 39 39 39 2c  |Tf%(Vf%),-1,999,|
000095b0  30 2c 32 31 2c 67 61 25  2c a4 4a 68 28 67 61 25  |0,21,ga%,.Jh(ga%|
000095c0  2c 32 31 29 2c 31 2c 30  29 0d 36 5e 35 c9 32 31  |,21),1,0).6^5.21|
000095d0  3a f2 49 68 28 67 61 25  2c 32 31 2c 56 66 25 2c  |:.Ih(ga%,21,Vf%,|
000095e0  2d 31 2c 35 2c 30 2c 32  35 2c 67 61 25 2c a4 4a  |-1,5,0,25,ga%,.J|
000095f0  68 28 67 61 25 2c 32 35  29 2c 31 2c 30 29 0d 36  |h(ga%,25),1,0).6|
00009600  60 62 c9 32 35 3a f2 49  68 28 67 61 25 2c 32 35  |`b.25:.Ih(ga%,25|
00009610  2c 58 66 25 28 56 66 25  29 2c 30 2c 63 67 25 2c  |,Xf%(Vf%),0,cg%,|
00009620  30 2c 32 35 2c 2d 31 2c  31 2c 31 2c 30 29 3a e7  |0,25,-1,1,1,0):.|
00009630  56 66 25 3d 30 8c 3a f2  49 68 28 67 61 25 2c 32  |Vf%=0.:.Ih(ga%,2|
00009640  35 2c 58 66 25 28 56 66  25 29 2c 2d 31 2c 63 67  |5,Xf%(Vf%),-1,cg|
00009650  25 2c 30 2c 32 35 2c 2d  31 2c 31 2c 31 2c 30 29  |%,0,25,-1,1,1,0)|
00009660  0d 36 64 05 cb 0d 36 66  10 c9 26 31 38 46 3a c8  |.6d...6f..&18F:.|
00009670  8e 47 62 25 ca 0d 36 6a  2e c9 34 3a f2 49 68 28  |.Gb%..6j..4:.Ih(|
00009680  67 61 25 2c 34 2c 50 66  25 28 56 66 25 29 2c 2d  |ga%,4,Pf%(Vf%),-|
00009690  31 2c 39 39 39 2c 30 2c  34 2c 2d 31 2c 31 2c 31  |1,999,0,4,-1,1,1|
000096a0  2c 30 29 0d 36 6c 3a c9  31 30 3a f2 49 68 28 67  |,0).6l:.10:.Ih(g|
000096b0  61 25 2c 31 30 2c 52 66  25 28 56 66 25 29 2c 2d  |a%,10,Rf%(Vf%),-|
000096c0  31 2c 39 39 39 2c 30 2c  34 2c 67 61 25 2c a4 4a  |1,999,0,4,ga%,.J|
000096d0  68 28 67 61 25 2c 34 29  2c 31 2c 30 29 0d 36 6e  |h(ga%,4),1,0).6n|
000096e0  3c c9 31 36 3a f2 49 68  28 67 61 25 2c 31 36 2c  |<.16:.Ih(ga%,16,|
000096f0  54 66 25 28 56 66 25 29  2c 2d 31 2c 39 39 39 2c  |Tf%(Vf%),-1,999,|
00009700  30 2c 31 30 2c 67 61 25  2c a4 4a 68 28 67 61 25  |0,10,ga%,.Jh(ga%|
00009710  2c 31 30 29 2c 31 2c 30  29 0d 36 70 35 c9 32 31  |,10),1,0).6p5.21|
00009720  3a f2 49 68 28 67 61 25  2c 32 31 2c 56 66 25 2c  |:.Ih(ga%,21,Vf%,|
00009730  2d 31 2c 35 2c 30 2c 31  36 2c 67 61 25 2c a4 4a  |-1,5,0,16,ga%,.J|
00009740  68 28 67 61 25 2c 31 36  29 2c 31 2c 30 29 0d 36  |h(ga%,16),1,0).6|
00009750  72 78 c9 32 35 3a f2 49  68 28 67 61 25 2c 32 35  |rx.25:.Ih(ga%,25|
00009760  2c 58 66 25 28 56 66 25  29 2c 30 2c 63 67 25 2c  |,Xf%(Vf%),0,cg%,|
00009770  30 2c 32 31 2c 67 61 25  2c a4 4a 68 28 67 61 25  |0,21,ga%,.Jh(ga%|
00009780  2c 32 31 29 2c 31 2c 30  29 3a e7 56 66 25 3d 30  |,21),1,0):.Vf%=0|
00009790  8c 3a f2 49 68 28 67 61  25 2c 32 35 2c 58 66 25  |.:.Ih(ga%,25,Xf%|
000097a0  28 56 66 25 29 2c 2d 31  2c 63 67 25 2c 30 2c 32  |(Vf%),-1,cg%,0,2|
000097b0  31 2c 67 61 25 2c a4 4a  68 28 67 61 25 2c 32 31  |1,ga%,.Jh(ga%,21|
000097c0  29 2c 31 2c 30 29 0d 36  76 05 cb 0d 36 78 13 c9  |),1,0).6v...6x..|
000097d0  31 33 3a e7 56 66 25 3e  30 8c 3a f2 6e 67 0d 36  |13:.Vf%>0.:.ng.6|
000097e0  7c 0f e7 a4 6f 67 84 56  66 25 3d 30 8c 0d 36 7e  ||...og.Vf%=0..6~|
000097f0  25 f2 4c 61 28 67 61 25  29 3a 6e 64 25 3d b9 3a  |%.La(ga%):nd%=.:|
00009800  f2 73 66 3a f2 65 67 28  59 66 25 28 29 29 3a f2  |.sf:.eg(Yf%()):.|
00009810  60 66 0d 36 84 05 cd 0d  36 86 12 c9 26 31 38 45  |`f.6....6...&18E|
00009820  3a f2 4c 61 28 67 61 25  29 0d 36 88 05 cb 0d 36  |:.La(ga%).6....6|
00009830  8e 0f c9 69 61 25 3a c8  8e 45 68 25 ca 0d 36 92  |...ia%:..Eh%..6.|
00009840  10 c9 26 31 38 45 3a c8  8e 47 62 25 ca 0d 36 96  |..&18E:..Gb%..6.|
00009850  40 c9 31 36 3a f2 49 68  28 69 61 25 2c 31 36 2c  |@.16:.Ih(ia%,16,|
00009860  6b 66 25 28 6f 66 25 29  2c 2d 31 30 31 2c 31 30  |kf%(of%),-101,10|
00009870  2c 2d 31 30 30 2c 32 31  2c 69 61 25 2c a4 4a 68  |,-100,21,ia%,.Jh|
00009880  28 69 61 25 2c 32 31 29  2c 31 2c 30 29 0d 36 98  |(ia%,21),1,0).6.|
00009890  35 c9 32 31 3a f2 49 68  28 69 61 25 2c 32 31 2c  |5.21:.Ih(ia%,21,|
000098a0  6f 66 25 2c 2d 31 2c 35  2c 30 2c 32 35 2c 69 61  |of%,-1,5,0,25,ia|
000098b0  25 2c a4 4a 68 28 69 61  25 2c 32 35 29 2c 31 2c  |%,.Jh(ia%,25),1,|
000098c0  30 29 0d 36 9a 62 c9 32  35 3a f2 49 68 28 69 61  |0).6.b.25:.Ih(ia|
000098d0  25 2c 32 35 2c 6d 66 25  28 6f 66 25 29 2c 30 2c  |%,25,mf%(of%),0,|
000098e0  63 67 25 2c 30 2c 32 35  2c 2d 31 2c 31 2c 31 2c  |cg%,0,25,-1,1,1,|
000098f0  30 29 3a e7 6f 66 25 3d  30 8c 3a f2 49 68 28 69  |0):.of%=0.:.Ih(i|
00009900  61 25 2c 32 35 2c 6d 66  25 28 6f 66 25 29 2c 2d  |a%,25,mf%(of%),-|
00009910  31 2c 63 67 25 2c 30 2c  32 35 2c 2d 31 2c 31 2c  |1,cg%,0,25,-1,1,|
00009920  31 2c 30 29 0d 36 9e 05  cb 0d 36 a0 10 c9 26 31  |1,0).6....6...&1|
00009930  38 46 3a c8 8e 47 62 25  ca 0d 36 a4 35 c9 31 36  |8F:..Gb%..6.5.16|
00009940  3a f2 49 68 28 69 61 25  2c 31 36 2c 6b 66 25 28  |:.Ih(ia%,16,kf%(|
00009950  6f 66 25 29 2c 2d 31 30  31 2c 31 30 2c 2d 31 30  |of%),-101,10,-10|
00009960  30 2c 31 36 2c 2d 31 2c  31 2c 31 2c 30 29 0d 36  |0,16,-1,1,1,0).6|
00009970  a6 35 c9 32 31 3a f2 49  68 28 69 61 25 2c 32 31  |.5.21:.Ih(ia%,21|
00009980  2c 6f 66 25 2c 2d 31 2c  35 2c 30 2c 31 36 2c 69  |,of%,-1,5,0,16,i|
00009990  61 25 2c a4 4a 68 28 69  61 25 2c 31 36 29 2c 31  |a%,.Jh(ia%,16),1|
000099a0  2c 30 29 0d 36 a8 78 c9  32 35 3a f2 49 68 28 69  |,0).6.x.25:.Ih(i|
000099b0  61 25 2c 32 35 2c 6d 66  25 28 6f 66 25 29 2c 30  |a%,25,mf%(of%),0|
000099c0  2c 63 67 25 2c 30 2c 32  31 2c 69 61 25 2c a4 4a  |,cg%,0,21,ia%,.J|
000099d0  68 28 69 61 25 2c 32 31  29 2c 31 2c 30 29 3a e7  |h(ia%,21),1,0):.|
000099e0  6f 66 25 3d 30 8c 3a f2  49 68 28 69 61 25 2c 32  |of%=0.:.Ih(ia%,2|
000099f0  35 2c 6d 66 25 28 6f 66  25 29 2c 2d 31 2c 63 67  |5,mf%(of%),-1,cg|
00009a00  25 2c 30 2c 32 31 2c 69  61 25 2c a4 4a 68 28 69  |%,0,21,ia%,.Jh(i|
00009a10  61 25 2c 32 31 29 2c 31  2c 30 29 0d 36 ac 05 cb  |a%,21),1,0).6...|
00009a20  0d 36 ae 14 c9 31 33 3a  e7 6f 66 25 3e 2d 31 8c  |.6...13:.of%>-1.|
00009a30  3a f2 72 67 0d 36 b2 09  e7 a4 73 67 8c 0d 36 b4  |:.rg.6....sg..6.|
00009a40  1b f2 4c 61 28 69 61 25  29 3a f2 74 67 3a f2 65  |..La(ia%):.tg:.e|
00009a50  67 28 6e 66 25 28 29 29  0d 36 b8 05 cd 0d 36 ba  |g(nf%()).6....6.|
00009a60  12 c9 26 31 38 45 3a f2  4c 61 28 69 61 25 29 0d  |..&18E:.La(ia%).|
00009a70  36 bc 05 cb 0d 36 c2 0f  c9 6a 61 25 3a c8 8e 45  |6....6...ja%:..E|
00009a80  68 25 ca 0d 36 c6 0e c9  31 33 3a c8 8e 47 62 25  |h%..6...13:..Gb%|
00009a90  ca 0d 36 ca 19 c9 31 3a  f2 45 64 28 6a 61 25 2c  |..6...1:.Ed(ja%,|
00009aa0  31 2c 50 60 25 29 3a f2  46 64 0d 36 cc 05 cb 0d  |1,P`%):.Fd.6....|
00009ab0  36 ce 05 cb 0d 36 d4 0f  c9 6c 61 25 3a c8 8e 45  |6....6...la%:..E|
00009ac0  68 25 ca 0d 36 d8 0e c9  31 33 3a c8 8e 47 62 25  |h%..6...13:..Gb%|
00009ad0  ca 0d 36 dc 19 c9 31 3a  f2 45 64 28 6c 61 25 2c  |..6...1:.Ed(la%,|
00009ae0  31 2c 53 60 25 29 3a f2  46 64 0d 36 de 05 cb 0d  |1,S`%):.Fd.6....|
00009af0  36 e0 05 cb 0d 36 e6 0f  c9 6e 61 25 3a c8 8e 45  |6....6...na%:..E|
00009b00  68 25 ca 0d 36 ea 0e c9  31 33 3a c8 8e 47 62 25  |h%..6...13:..Gb%|
00009b10  ca 0d 36 ee 19 c9 31 3a  f2 45 64 28 6e 61 25 2c  |..6...1:.Ed(na%,|
00009b20  31 2c 51 60 25 29 3a f2  46 64 0d 36 f0 05 cb 0d  |1,Q`%):.Fd.6....|
00009b30  36 f2 05 cb 0d 36 f4 07  cb 3a e1 0d 36 fa 11 dd  |6....6...:..6...|
00009b40  f2 79 61 3a c8 8e 58 5f  25 21 30 ca 0d 37 02 28  |.ya:..X_%!0..7.(|
00009b50  c9 6a 61 25 3a c8 99 32  36 32 33 35 34 2c 58 5f  |.ja%:..262354,X_|
00009b60  25 21 30 2c 31 2c 30 2c  30 2c 2d 31 2c a9 28 24  |%!0,1,0,0,-1,.($|
00009b70  50 60 25 29 0d 37 04 28  c9 6c 61 25 3a c8 99 32  |P`%).7.(.la%:..2|
00009b80  36 32 33 35 34 2c 58 5f  25 21 30 2c 31 2c 30 2c  |62354,X_%!0,1,0,|
00009b90  30 2c 2d 31 2c a9 28 24  53 60 25 29 0d 37 06 28  |0,-1,.($S`%).7.(|
00009ba0  c9 6e 61 25 3a c8 99 32  36 32 33 35 34 2c 58 5f  |.na%:..262354,X_|
00009bb0  25 21 30 2c 31 2c 30 2c  30 2c 2d 31 2c a9 28 24  |%!0,1,0,0,-1,.($|
00009bc0  51 60 25 29 0d 37 08 07  cb 3a e1 0d 37 0e 47 dd  |Q`%).7...:..7.G.|
00009bd0  f2 57 5f 3a c8 99 32 36  32 33 36 32 3a c8 99 32  |.W_:..262362:..2|
00009be0  36 33 38 37 33 3a c8 99  32 36 32 33 37 37 2c 33  |63873:..262377,3|
00009bf0  36 2c 2c 4e 60 25 2c 26  31 2c 30 2c 30 2c 30 2c  |6,,N`%,&1,0,0,0,|
00009c00  30 3a f2 4d 68 3a c8 99  32 36 32 33 36 35 3a e0  |0:.Mh:..262365:.|
00009c10  3a e1 0d 37 1e 20 dd f2  42 61 3a c8 99 32 36 32  |:..7. ..Ba:..262|
00009c20  33 35 31 2c 2c 58 5f 25  3a c8 8e 58 5f 25 21 31  |351,,X_%:..X_%!1|
00009c30  32 ca 0d 37 28 16 c9 51  61 25 2c 53 61 25 3a c8  |2..7(..Qa%,Sa%:.|
00009c40  8e 58 5f 25 21 31 36 ca  0d 37 2c 31 c9 31 32 3a  |.X_%!16..7,1.12:|
00009c50  e7 43 61 25 3d 31 8c 3a  c8 99 32 36 32 33 37 37  |.Ca%=1.:..262377|
00009c60  2c 33 36 2c 2c 4f 60 25  2c 26 32 2c 34 2c 34 2c  |,36,,O`%,&2,4,4,|
00009c70  30 2c 30 3a 43 61 25 3d  32 0d 37 30 2f 7f 3a e7  |0,0:Ca%=2.70/.:.|
00009c80  43 61 25 3d 32 8c 3a c8  99 32 36 32 33 37 37 2c  |Ca%=2.:..262377,|
00009c90  33 36 2c 2c 4e 60 25 2c  26 31 2c 30 2c 30 2c 30  |36,,N`%,&1,0,0,0|
00009ca0  2c 30 3a 43 61 25 3d 31  0d 37 34 05 cb 0d 37 36  |,0:Ca%=1.74...76|
00009cb0  12 c9 4c 61 25 3a c8 8e  58 5f 25 21 31 36 ca 0d  |..La%:..X_%!16..|
00009cc0  37 3a 41 c9 34 2c 37 2c  31 30 2c 31 33 2c 31 36  |7:A.4,7,10,13,16|
00009cd0  2c 31 39 2c 32 32 3a e7  43 61 25 3d 31 8c 3a c8  |,19,22:.Ca%=1.:.|
00009ce0  99 32 36 32 33 37 37 2c  33 36 2c 2c 4f 60 25 2c  |.262377,36,,O`%,|
00009cf0  26 32 2c 34 2c 34 2c 30  2c 30 3a 43 61 25 3d 32  |&2,4,4,0,0:Ca%=2|
00009d00  0d 37 3e 2f 7f 3a e7 43  61 25 3d 32 8c 3a c8 99  |.7>/.:.Ca%=2.:..|
00009d10  32 36 32 33 37 37 2c 33  36 2c 2c 4e 60 25 2c 26  |262377,36,,N`%,&|
00009d20  31 2c 30 2c 30 2c 30 2c  30 3a 43 61 25 3d 31 0d  |1,0,0,0,0:Ca%=1.|
00009d30  37 42 05 cb 0d 37 44 12  c9 64 61 25 3a c8 8e 58  |7B...7D..da%:..X|
00009d40  5f 25 21 31 36 ca 0d 37  48 30 c9 33 3a e7 43 61  |_%!16..7H0.3:.Ca|
00009d50  25 3d 31 8c 3a c8 99 32  36 32 33 37 37 2c 33 36  |%=1.:..262377,36|
00009d60  2c 2c 4f 60 25 2c 26 32  2c 34 2c 34 2c 30 2c 30  |,,O`%,&2,4,4,0,0|
00009d70  3a 43 61 25 3d 32 0d 37  4c 2f 7f 3a e7 43 61 25  |:Ca%=2.7L/.:.Ca%|
00009d80  3d 32 8c 3a c8 99 32 36  32 33 37 37 2c 33 36 2c  |=2.:..262377,36,|
00009d90  2c 4e 60 25 2c 26 31 2c  30 2c 30 2c 30 2c 30 3a  |,N`%,&1,0,0,0,0:|
00009da0  43 61 25 3d 31 0d 37 50  05 cb 0d 37 52 07 cb 3a  |Ca%=1.7P...7R..:|
00009db0  e1 0d 37 58 3b dd f2 48  61 28 4e 68 24 29 3a 21  |..7X;..Ha(Nh$):!|
00009dc0  58 5f 25 3d 32 35 35 3a  24 28 58 5f 25 2b 34 29  |X_%=255:$(X_%+4)|
00009dd0  3d 4e 68 24 2b bd 30 3a  c8 99 32 36 32 33 36 37  |=Nh$+.0:..262367|
00009de0  2c 58 5f 25 2c 31 2c 47  61 24 3a e1 0d 37 62 39  |,X_%,1,Ga$:..7b9|
00009df0  dd f2 44 62 28 4e 68 24  2c 4f 68 25 29 3a 45 60  |..Db(Nh$,Oh%):E`|
00009e00  24 3d 47 61 24 3a e7 4f  68 25 80 31 36 8c 45 60  |$=Ga$:.Oh%.16.E`|
00009e10  24 3d 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 20  |$="Message from |
00009e20  22 2b 45 60 24 0d 37 68  38 21 58 5f 25 3d 32 35  |"+E`$.7h8!X_%=25|
00009e30  35 3a 24 28 58 5f 25 2b  34 29 3d 4e 68 24 2b bd  |5:$(X_%+4)=Nh$+.|
00009e40  30 3a c8 99 32 36 32 33  36 37 2c 58 5f 25 2c 4f  |0:..262367,X_%,O|
00009e50  68 25 2c 45 60 24 b8 2c  50 68 25 3a e1 0d 37 70  |h%,E`$.,Ph%:..7p|
00009e60  17 dd f2 43 62 28 58 5f  25 29 3a c8 8e 58 5f 25  |...Cb(X_%):..X_%|
00009e70  21 31 36 ca 0d 37 74 0c  c9 30 3a 55 5f 25 3d b9  |!16..7t..0:U_%=.|
00009e80  0d 37 76 0d c9 32 3a c8  8e 54 60 25 ca 0d 37 7a  |.7v..2:..T`%..7z|
00009e90  3a c9 26 46 46 46 3a 24  53 60 25 3d a4 48 62 28  |:.&FFF:$S`%=.Hb(|
00009ea0  58 5f 25 2b 34 34 29 3a  f2 4c 61 28 6c 61 25 29  |X_%+44):.La(la%)|
00009eb0  3a f2 51 68 3a f2 52 68  28 6c 61 25 2c 32 2c 53  |:.Qh:.Rh(la%,2,S|
00009ec0  60 25 2c 6d 61 25 29 0d  37 80 3a c9 26 41 46 46  |`%,ma%).7.:.&AFF|
00009ed0  3a 24 50 60 25 3d a4 48  62 28 58 5f 25 2b 34 34  |:$P`%=.Hb(X_%+44|
00009ee0  29 3a f2 4c 61 28 6a 61  25 29 3a f2 53 68 3a f2  |):.La(ja%):.Sh:.|
00009ef0  52 68 28 6a 61 25 2c 32  2c 50 60 25 2c 6b 61 25  |Rh(ja%,2,P`%,ka%|
00009f00  29 0d 37 86 3a c9 26 30  37 37 3a 24 51 60 25 3d  |).7.:.&077:$Q`%=|
00009f10  a4 48 62 28 58 5f 25 2b  34 34 29 3a f2 4c 61 28  |.Hb(X_%+44):.La(|
00009f20  6e 61 25 29 3a f2 54 68  3a f2 52 68 28 6e 61 25  |na%):.Th:.Rh(na%|
00009f30  2c 32 2c 51 60 25 2c 6f  61 25 29 0d 37 8c 0f cb  |,2,Q`%,oa%).7...|
00009f40  3a e7 45 61 25 3d 4d 61  25 8c 0d 37 90 41 77 60  |:.Ea%=Ma%..7.Aw`|
00009f50  25 3d a3 3a 78 60 25 3d  a3 3a 79 60 25 3d b9 3a  |%=.:x`%=.:y`%=.:|
00009f60  7a 60 25 3d b9 3a 75 61  25 3d 4d 61 25 3a c8 99  |z`%=.:ua%=Ma%:..|
00009f70  32 36 32 33 35 33 2c 4d  61 25 2c 30 2c 2d 39 36  |262353,Ma%,0,-96|
00009f80  30 2c 31 32 38 30 2c 2d  31 35 30 0d 37 96 05 cd  |0,1280,-150.7...|
00009f90  0d 37 98 18 c9 33 3a 54  60 25 3d 58 5f 25 21 34  |.7...3:T`%=X_%!4|
00009fa0  30 3a c8 8e 54 60 25 ca  0d 37 9e 77 c9 26 30 37  |0:..T`%..7.w.&07|
00009fb0  37 3a 24 52 60 25 3d a4  48 62 28 58 5f 25 2b 34  |7:$R`%=.Hb(X_%+4|
00009fc0  34 29 3a f2 55 68 3a f2  71 66 3a 6e 64 25 3d b9  |4):.Uh:.qf:nd%=.|
00009fd0  3a f2 73 66 3a f2 74 66  28 4c 65 25 28 29 2c 75  |:.sf:.tf(Le%(),u|
00009fe0  66 28 29 2c 75 66 28 29  2c 2d 31 29 3a f2 74 66  |f(),uf(),-1):.tf|
00009ff0  28 4c 65 25 28 29 2c 76  66 28 29 2c 76 66 28 29  |(Le%(),vf(),vf()|
0000a000  2c 30 29 3a f2 77 66 3a  f2 78 66 3a f2 79 66 3a  |,0):.wf:.xf:.yf:|
0000a010  f2 7a 66 3a f2 5f 66 3a  f2 60 66 3a f2 6d 64 0d  |.zf:._f:.`f:.md.|
0000a020  37 a8 05 cb 0d 37 aa 1e  c9 26 35 30 32 3a f2 56  |7....7...&502:.V|
0000a030  68 28 a4 57 68 2c 58 5f  25 21 38 2c 58 5f 25 21  |h(.Wh,X_%!8,X_%!|
0000a040  34 29 0d 37 ae 42 c9 26  34 30 30 43 31 3a 58 5f  |4).7.B.&400C1:X_|
0000a050  25 21 30 3d 4d 61 25 3a  c8 99 32 36 32 33 33 39  |%!0=Ma%:..262339|
0000a060  2c 2c 58 5f 25 3a f2 4d  68 3a f2 47 5f 3a c8 99  |,,X_%:.Mh:.G_:..|
0000a070  34 36 2c 32 35 36 2b 39  2c 4e 61 25 3a f2 42 5f  |46,256+9,Na%:.B_|
0000a080  3a f2 44 5f 0d 37 ba 07  cb 3a e1 0d 37 c0 20 dd  |:.D_.7...:..7. .|
0000a090  f2 56 68 28 58 68 24 2c  59 68 25 2c 5a 68 25 29  |.Vh(Xh$,Yh%,Zh%)|
0000a0a0  3a e7 a9 28 58 68 24 29  3e 30 8c 0d 37 c4 49 58  |:..(Xh$)>0..7.IX|
0000a0b0  5f 25 21 30 3d 32 35 36  3a 58 5f 25 21 31 32 3d  |_%!0=256:X_%!12=|
0000a0c0  59 68 25 3a 58 5f 25 21  31 36 3d 26 35 30 33 3a  |Yh%:X_%!16=&503:|
0000a0d0  24 28 58 5f 25 2b 32 30  29 3d 58 68 24 2b bd 30  |$(X_%+20)=Xh$+.0|
0000a0e0  3a c8 99 32 36 32 33 37  35 2c 31 37 2c 58 5f 25  |:..262375,17,X_%|
0000a0f0  2c 5a 68 25 0d 37 ce 07  cd 3a e1 0d 37 d4 58 dd  |,Zh%.7...:..7.X.|
0000a100  f2 46 5f 28 45 60 24 29  3a c8 99 32 36 37 35 32  |.F_(E`$):..26752|
0000a110  30 2c 2c 45 60 24 3a c8  99 33 30 2c 36 2c 2c 2c  |0,,E`$:..30,6,,,|
0000a120  31 37 2b a9 28 45 60 24  29 b8 2c 2c 61 68 25 3a  |17+.(E`$).,,ah%:|
0000a130  24 28 61 68 25 2b 31 36  29 3d 45 60 24 3a c8 99  |$(ah%+16)=E`$:..|
0000a140  32 36 37 35 32 31 2c 61  68 25 2c 61 68 25 2b 31  |267521,ah%,ah%+1|
0000a150  36 3a e1 0d 37 e2 5b dd  f2 5f 60 3a ea 62 68 25  |6:..7.[.._`:.bh%|
0000a160  2c 63 68 25 3a 64 68 25  3d 21 58 5f 25 3a 65 68  |,ch%:dh%=!X_%:eh|
0000a170  25 3d 58 5f 25 21 38 3a  66 68 25 3d 58 5f 25 21  |%=X_%!8:fh%=X_%!|
0000a180  34 3a 67 68 25 3d 58 5f  25 21 31 32 3a e7 65 68  |4:gh%=X_%!12:.eh|
0000a190  25 3c 64 68 25 8c 3a 63  68 25 3d 65 68 25 3a 65  |%<dh%.:ch%=eh%:e|
0000a1a0  68 25 3d 64 68 25 3a 64  68 25 3d 63 68 25 0d 37  |h%=dh%:dh%=ch%.7|
0000a1b0  ec 25 e7 67 68 25 3c 66  68 25 8c 3a 63 68 25 3d  |.%.gh%<fh%.:ch%=|
0000a1c0  67 68 25 3a 67 68 25 3d  66 68 25 3a 66 68 25 3d  |gh%:gh%=fh%:fh%=|
0000a1d0  63 68 25 0d 37 ee 66 e7  28 28 65 68 25 2d 64 68  |ch%.7.f.((eh%-dh|
0000a1e0  25 29 2f 31 30 30 30 29  2a 28 59 62 25 2d 61 62  |%)/1000)*(Yb%-ab|
0000a1f0  25 29 3c 31 30 84 28 28  67 68 25 2d 66 68 25 29  |%)<10.((gh%-fh%)|
0000a200  2f 35 30 30 29 2a 28 6f  62 25 2d 71 62 25 29 3c  |/500)*(ob%-qb%)<|
0000a210  30 2e 31 84 28 28 67 68  25 2d 66 68 25 29 2f 35  |0.1.((gh%-fh%)/5|
0000a220  30 30 29 2a 28 4b 63 25  2d 4d 63 25 29 3c 31 35  |00)*(Kc%-Mc%)<15|
0000a230  8c 3a 5f 60 25 3d a3 3a  e1 0d 37 f0 ab 58 62 25  |.:_`%=.:..7..Xb%|
0000a240  3d 30 3a 62 62 25 3d 62  62 25 2b 4b 64 25 2a 28  |=0:bb%=bb%+Kd%*(|
0000a250  64 68 25 2d 4e 62 25 2d  31 34 30 29 2f 31 30 30  |dh%-Nb%-140)/100|
0000a260  30 3a 5a 62 25 3d 5a 62  25 2b 4b 64 25 2a 28 65  |0:Zb%=Zb%+Kd%*(e|
0000a270  68 25 2d 4e 62 25 2d 31  31 34 30 29 2f 31 30 30  |h%-Nb%-1140)/100|
0000a280  30 3a 59 62 25 3d 5a 62  25 3a 61 62 25 3d 62 62  |0:Yb%=Zb%:ab%=bb|
0000a290  25 3a f2 4a 64 3a f2 74  63 28 5a 62 25 2b 31 37  |%:.Jd:.tc(Zb%+17|
0000a2a0  35 30 2c 62 62 25 2b 31  37 35 30 2c 4b 64 25 2c  |50,bb%+1750,Kd%,|
0000a2b0  4c 64 25 2c 4d 64 25 2c  4e 64 25 2c 4f 64 29 3a  |Ld%,Md%,Nd%,Od):|
0000a2c0  c8 99 32 36 32 33 35 33  2c 4d 61 25 2c 30 2c 2d  |..262353,Ma%,0,-|
0000a2d0  39 36 30 2c 31 32 38 30  2c 2d 31 35 30 3a c8 8e  |960,1280,-150:..|
0000a2e0  68 62 25 ca 0d 38 04 2f  c9 31 3a f2 68 68 28 70  |hb%..8./.1:.hh(p|
0000a2f0  62 25 2c 72 62 25 2c 51  64 25 2c 6f 62 25 2c 71  |b%,rb%,Qd%,ob%,q|
0000a300  62 25 29 3a 70 62 25 3d  6f 62 25 3a 72 62 25 3d  |b%):pb%=ob%:rb%=|
0000a310  71 62 25 0d 38 08 2f c9  32 3a f2 68 68 28 5f 62  |qb%.8./.2:.hh(_b|
0000a320  25 2c 60 62 25 2c 75 63  25 2c 6f 62 25 2c 71 62  |%,`b%,uc%,ob%,qb|
0000a330  25 29 3a 5f 62 25 3d 6f  62 25 3a 60 62 25 3d 71  |%):_b%=ob%:`b%=q|
0000a340  62 25 0d 38 0c 0c cb 3a  c8 8e 44 63 25 ca 0d 38  |b%.8...:..Dc%..8|
0000a350  10 2f c9 31 3a f2 68 68  28 4c 63 25 2c 4e 63 25  |./.1:.hh(Lc%,Nc%|
0000a360  2c 53 64 25 2c 4b 63 25  2c 4d 63 25 29 3a 4c 63  |,Sd%,Kc%,Mc%):Lc|
0000a370  25 3d 4b 63 25 3a 4e 63  25 3d 4d 63 25 0d 38 14  |%=Kc%:Nc%=Mc%.8.|
0000a380  2f c9 32 3a f2 68 68 28  58 63 25 2c 59 63 25 2c  |/.2:.hh(Xc%,Yc%,|
0000a390  58 64 25 2c 4b 63 25 2c  4d 63 25 29 3a 58 63 25  |Xd%,Kc%,Mc%):Xc%|
0000a3a0  3d 4b 63 25 3a 59 63 25  3d 4d 63 25 0d 38 18 2f  |=Kc%:Yc%=Mc%.8./|
0000a3b0  c9 33 3a f2 68 68 28 6a  63 25 2c 6b 63 25 2c 5a  |.3:.hh(jc%,kc%,Z|
0000a3c0  64 25 2c 4b 63 25 2c 4d  63 25 29 3a 6a 63 25 3d  |d%,Kc%,Mc%):jc%=|
0000a3d0  4b 63 25 3a 6b 63 25 3d  4d 63 25 0d 38 1c 2f c9  |Kc%:kc%=Mc%.8./.|
0000a3e0  34 3a f2 68 68 28 64 63  25 2c 65 63 25 2c 59 64  |4:.hh(dc%,ec%,Yd|
0000a3f0  25 2c 4b 63 25 2c 4d 63  25 29 3a 64 63 25 3d 4b  |%,Kc%,Mc%):dc%=K|
0000a400  63 25 3a 65 63 25 3d 4d  63 25 0d 38 20 c3 cb 3a  |c%:ec%=Mc%.8 ..:|
0000a410  f2 4a 64 3a f2 74 63 28  6f 62 25 2c 71 62 25 2c  |.Jd:.tc(ob%,qb%,|
0000a420  6f 62 25 2d 71 62 25 2c  76 63 25 2c 77 63 25 2c  |ob%-qb%,vc%,wc%,|
0000a430  78 63 25 2c 79 63 29 3a  f2 74 63 28 4b 63 25 2c  |xc%,yc):.tc(Kc%,|
0000a440  4d 63 25 2c 4b 63 25 2d  4d 63 25 2c 54 64 25 2c  |Mc%,Kc%-Mc%,Td%,|
0000a450  55 64 25 2c 56 64 25 2c  57 64 29 3a f2 66 62 28  |Ud%,Vd%,Wd):.fb(|
0000a460  56 61 25 2c 31 33 2c 59  62 25 2b 31 37 35 30 29  |Va%,13,Yb%+1750)|
0000a470  3a f2 66 62 28 56 61 25  2c 31 37 2c 61 62 25 2b  |:.fb(Va%,17,ab%+|
0000a480  31 37 35 30 29 3a f2 42  63 28 51 61 25 2c 31 39  |1750):.Bc(Qa%,19|
0000a490  2c 6f 62 25 29 3a f2 42  63 28 51 61 25 2c 32 33  |,ob%):.Bc(Qa%,23|
0000a4a0  2c 71 62 25 29 3a f2 66  62 28 53 61 25 2c 31 39  |,qb%):.fb(Sa%,19|
0000a4b0  2c 4b 63 25 29 3a f2 66  62 28 53 61 25 2c 32 33  |,Kc%):.fb(Sa%,23|
0000a4c0  2c 4d 63 25 29 3a 5f 60  25 3d a3 3a e1 0d 38 34  |,Mc%):_`%=.:..84|
0000a4d0  5a dd f2 68 68 28 69 68  25 2c 6a 68 25 2c 72 25  |Z..hh(ih%,jh%,r%|
0000a4e0  2c f8 48 68 25 2c f8 47  68 25 29 3a 47 68 25 3d  |,.Hh%,.Gh%):Gh%=|
0000a4f0  6a 68 25 2b 72 25 2a 28  66 68 25 2d 4f 62 25 2b  |jh%+r%*(fh%-Ob%+|
0000a500  37 30 30 29 2f 35 30 30  3a 48 68 25 3d 69 68 25  |700)/500:Hh%=ih%|
0000a510  2b 72 25 2a 28 67 68 25  2d 4f 62 25 2b 32 30 30  |+r%*(gh%-Ob%+200|
0000a520  29 2f 35 30 30 3a e1 0d  38 3e 22 dd f2 73 66 3a  |)/500:..8>"..sf:|
0000a530  ea 48 62 24 3a e7 6e 64  25 8c 48 62 24 3d 22 20  |.Hb$:.nd%.Hb$=" |
0000a540  2a 22 8b 48 62 24 3d 22  22 0d 38 44 6b f2 77 64  |*".Hb$="".8Dk.wd|
0000a550  28 4d 61 25 2c 4f 61 25  2c 22 43 4f 32 65 66 66  |(Ma%,Oa%,"CO2eff|
0000a560  65 63 74 20 47 6c 6f 62  61 6c 20 57 61 72 6d 69  |ect Global Warmi|
0000a570  6e 67 20 53 69 6d 75 6c  61 74 69 6f 6e 22 2b 48  |ng Simulation"+H|
0000a580  62 24 29 3a e3 4e 25 3d  31 b8 37 3a f2 77 64 28  |b$):.N%=1.7:.wd(|
0000a590  41 60 25 28 4e 25 29 2c  42 60 25 28 4e 25 29 2c  |A`%(N%),B`%(N%),|
0000a5a0  42 60 24 28 4e 25 2c 6c  64 25 29 2b 48 62 24 29  |B`$(N%,ld%)+Hb$)|
0000a5b0  3a ed 3a e1 0d 38 52 4a  dd f2 41 5f 3a 6b 68 25  |:.:..8RJ..A_:kh%|
0000a5c0  3d 8e 22 3c 43 4f 32 65  66 66 65 63 74 24 44 69  |=."<CO2effect$Di|
0000a5d0  72 3e 2e 53 70 72 69 74  65 73 32 32 22 3a 6c 68  |r>.Sprites22":lh|
0000a5e0  25 3d a2 23 6b 68 25 2b  34 3a d9 23 6b 68 25 3a  |%=.#kh%+4:.#kh%:|
0000a5f0  de 4e 61 25 20 6c 68 25  2b 32 35 36 3a e1 0d 38  |.Na% lh%+256:..8|
0000a600  64 1f dd f2 42 5f 3a c8  99 35 33 2c 2d 31 2c 35  |d...B_:..53,-1,5|
0000a610  b8 2c 2c 6d 68 25 3a c8  8e 6d 68 25 ca 0d 38 6e  |.,,mh%:..mh%..8n|
0000a620  25 c9 32 3a 6b 68 25 3d  8e 22 3c 43 4f 32 65 66  |%.2:kh%=."<CO2ef|
0000a630  66 65 63 74 24 44 69 72  3e 2e 53 70 72 69 74 65  |fect$Dir>.Sprite|
0000a640  73 22 0d 38 70 27 c9 31  3a 6b 68 25 3d 8e 22 3c  |s".8p'.1:kh%=."<|
0000a650  43 4f 32 65 66 66 65 63  74 24 44 69 72 3e 2e 53  |CO2effect$Dir>.S|
0000a660  70 72 69 74 65 73 32 32  22 0d 38 72 31 cb 3a 21  |prites22".8r1.:!|
0000a670  4e 61 25 3d 6c 68 25 2b  32 35 36 3a 4e 61 25 21  |Na%=lh%+256:Na%!|
0000a680  38 3d 31 36 3a c8 99 34  36 2c 32 35 36 2b 39 2c  |8=16:..46,256+9,|
0000a690  4e 61 25 3a c8 8e 6d 68  25 ca 0d 38 7a 30 c9 32  |Na%:..mh%..8z0.2|
0000a6a0  3a c8 99 34 36 2c 32 35  36 2b 31 30 2c 4e 61 25  |:..46,256+10,Na%|
0000a6b0  2c 22 3c 43 4f 32 65 66  66 65 63 74 24 44 69 72  |,"<CO2effect$Dir|
0000a6c0  3e 2e 53 70 72 69 74 65  73 22 0d 38 7c 32 c9 31  |>.Sprites".8|2.1|
0000a6d0  3a c8 99 34 36 2c 32 35  36 2b 31 30 2c 4e 61 25  |:..46,256+10,Na%|
0000a6e0  2c 22 3c 43 4f 32 65 66  66 65 63 74 24 44 69 72  |,"<CO2effect$Dir|
0000a6f0  3e 2e 53 70 72 69 74 65  73 32 32 22 0d 38 7e 07  |>.Sprites22".8~.|
0000a700  cb 3a e1 0d 38 84 dd dd  f2 47 5f 3a c8 99 32 36  |.:..8....G_:..26|
0000a710  32 32 37 33 2c 2c 22 54  72 69 6e 69 74 79 2e 4d  |2273,,"Trinity.M|
0000a720  65 64 69 75 6d 22 2c 31  30 2a 31 36 2c 31 30 2a  |edium",10*16,10*|
0000a730  31 36 b8 6e 68 25 3a c8  99 32 36 32 32 37 33 2c  |16.nh%:..262273,|
0000a740  2c 22 54 72 69 6e 69 74  79 2e 4d 65 64 69 75 6d  |,"Trinity.Medium|
0000a750  22 2c 31 32 2a 31 36 2c  31 32 2a 31 36 b8 6f 68  |",12*16,12*16.oh|
0000a760  25 3a c8 99 32 36 32 32  37 33 2c 2c 22 54 72 69  |%:..262273,,"Tri|
0000a770  6e 69 74 79 2e 4d 65 64  69 75 6d 22 2c 31 34 2a  |nity.Medium",14*|
0000a780  31 36 2c 31 34 2a 31 36  b8 70 68 25 3a c8 99 32  |16,14*16.ph%:..2|
0000a790  36 32 32 37 33 2c 2c 22  54 72 69 6e 69 74 79 2e  |62273,,"Trinity.|
0000a7a0  4d 65 64 69 75 6d 22 2c  31 36 2a 31 36 2c 31 36  |Medium",16*16,16|
0000a7b0  2a 31 36 b8 71 68 25 3a  21 43 60 25 3d 30 3a 43  |*16.qh%:!C`%=0:C|
0000a7c0  60 25 21 34 3d 36 35 35  33 36 3a 43 60 25 21 38  |`%!4=65536:C`%!8|
0000a7d0  3d 2d 36 35 35 33 36 3a  43 60 25 21 31 32 3d 30  |=-65536:C`%!12=0|
0000a7e0  0d 38 94 17 43 60 25 21  31 36 3d 30 3a 43 60 25  |.8..C`%!16=0:C`%|
0000a7f0  21 32 30 3d 30 3a e1 0d  38 9a 77 dd f2 4d 68 3a  |!20=0:..8.w..Mh:|
0000a800  c8 99 32 36 32 32 37 34  2c 6e 68 25 3a c8 99 32  |..262274,nh%:..2|
0000a810  36 32 32 37 34 2c 6f 68  25 3a c8 99 32 36 32 32  |62274,oh%:..2622|
0000a820  37 34 2c 70 68 25 3a c8  99 32 36 32 32 37 34 2c  |74,ph%:..262274,|
0000a830  71 68 25 3a e3 4e 25 3d  30 b8 32 35 35 3a 72 68  |qh%:.N%=0.255:rh|
0000a840  25 3d 3f 28 44 60 25 2b  4e 25 29 3a c8 95 72 68  |%=?(D`%+N%):..rh|
0000a850  25 3e 30 3a c8 99 32 36  32 32 37 34 2c 4e 25 3a  |%>0:..262274,N%:|
0000a860  72 68 25 2d 3d 31 3a ce  3a ed 4e 25 3a e1 0d 38  |rh%-=1:.:.N%:..8|
0000a870  bc 49 dd f2 76 61 28 73  68 25 29 3a c8 99 32 36  |.I..va(sh%):..26|
0000a880  32 33 34 34 2c 2c 58 5f  25 b8 74 68 25 3a 4e 62  |2344,,X_%.th%:Nb|
0000a890  25 3d 58 5f 25 21 34 2d  58 5f 25 21 32 30 3a 4f  |%=X_%!4-X_%!20:O|
0000a8a0  62 25 3d 58 5f 25 21 31  36 2d 58 5f 25 21 32 34  |b%=X_%!16-X_%!24|
0000a8b0  3a c8 8e 73 68 25 ca 0d  38 c6 5f c9 4d 61 25 3a  |:..sh%..8._.Ma%:|
0000a8c0  c8 95 74 68 25 3a 75 68  25 3d 58 5f 25 21 32 38  |..th%:uh%=X_%!28|
0000a8d0  2d 32 35 3a 76 68 25 3d  58 5f 25 21 33 36 2b 32  |-25:vh%=X_%!36+2|
0000a8e0  35 3a 77 68 25 3d 58 5f  25 21 33 32 3a 78 68 25  |5:wh%=X_%!32:xh%|
0000a8f0  3d 58 5f 25 21 34 30 3a  e7 79 60 25 8c 3a 75 68  |=X_%!40:.y`%.:uh|
0000a900  25 3d 4e 62 25 2b 31 34  30 3a 76 68 25 3d 4e 62  |%=Nb%+140:vh%=Nb|
0000a910  25 2b 31 31 34 30 0d 38  d0 2b e7 ac 75 60 25 80  |%+1140.8.+..u`%.|
0000a920  77 60 25 8c 3a f2 79 68  28 4e 62 25 2c 4f 62 25  |w`%.:.yh(Nb%,Ob%|
0000a930  2c 75 68 25 2c 76 68 25  2c 77 68 25 2c 78 68 25  |,uh%,vh%,wh%,xh%|
0000a940  29 0d 38 d4 16 e7 78 60  25 8c 3a f2 7a 68 28 4e  |).8...x`%.:.zh(N|
0000a950  62 25 2c 4f 62 25 29 0d  38 d6 23 c8 99 32 36 32  |b%,Ob%).8.#..262|
0000a960  33 34 36 2c 2c 58 5f 25  b8 74 68 25 3a ce 3a 77  |346,,X_%.th%:.:w|
0000a970  60 25 3d b9 3a 78 60 25  3d b9 0d 38 dc 60 c9 41  |`%=.:x`%=..8.`.A|
0000a980  60 25 28 31 29 2c 41 60  25 28 32 29 2c 41 60 25  |`%(1),A`%(2),A`%|
0000a990  28 33 29 2c 41 60 25 28  34 29 2c 41 60 25 28 35  |(3),A`%(4),A`%(5|
0000a9a0  29 2c 41 60 25 28 36 29  2c 41 60 25 28 37 29 3a  |),A`%(6),A`%(7):|
0000a9b0  c8 95 74 68 25 3a f2 5f  68 28 4e 62 25 2c 4f 62  |..th%:._h(Nb%,Ob|
0000a9c0  25 2c 73 68 25 29 3a c8  99 32 36 32 33 34 36 2c  |%,sh%):..262346,|
0000a9d0  2c 58 5f 25 b8 74 68 25  3a ce 0d 38 e6 67 c9 61  |,X_%.th%:..8.g.a|
0000a9e0  61 25 3a c8 95 74 68 25  3a 75 68 25 3d 58 5f 25  |a%:..th%:uh%=X_%|
0000a9f0  21 32 38 2d 32 35 3a 76  68 25 3d 58 5f 25 21 33  |!28-25:vh%=X_%!3|
0000aa00  36 2b 32 35 3a 77 68 25  3d 58 5f 25 21 33 32 3a  |6+25:wh%=X_%!32:|
0000aa10  78 68 25 3d 58 5f 25 21  34 30 3a e7 78 68 25 3e  |xh%=X_%!40:.xh%>|
0000aa20  4f 62 25 2d 33 34 30 80  78 64 25 8c 3a f2 60 68  |Ob%-340.xd%.:.`h|
0000aa30  28 4e 62 25 2c 4f 62 25  2c 75 68 25 2c 77 68 25  |(Nb%,Ob%,uh%,wh%|
0000aa40  29 0d 38 ee 1d c8 99 32  36 32 33 34 36 2c 2c 58  |).8....262346,,X|
0000aa50  5f 25 b8 74 68 25 3a ce  3a 78 64 25 3d b9 0d 38  |_%.th%:.:xd%=..8|
0000aa60  f4 2f c9 62 61 25 3a c8  95 74 68 25 3a f2 41 69  |./.ba%:..th%:.Ai|
0000aa70  28 4e 62 25 2c 4f 62 25  29 3a c8 99 32 36 32 33  |(Nb%,Ob%):..2623|
0000aa80  34 36 2c 2c 58 5f 25 b8  74 68 25 3a ce 0d 38 fe  |46,,X_%.th%:..8.|
0000aa90  2f c9 64 61 25 3a c8 95  74 68 25 3a f2 42 69 28  |/.da%:..th%:.Bi(|
0000aaa0  4e 62 25 2c 4f 62 25 29  3a c8 99 32 36 32 33 34  |Nb%,Ob%):..26234|
0000aab0  36 2c 2c 58 5f 25 b8 74  68 25 3a ce 0d 39 08 0d  |6,,X_%.th%:..9..|
0000aac0  cb 3a 79 60 25 3d a3 3a  e1 0d 39 10 65 dd f2 42  |.:y`%=.:..9.e..B|
0000aad0  69 28 4e 62 25 2c 4f 62  25 29 3a ea 43 69 25 3a  |i(Nb%,Ob%):.Ci%:|
0000aae0  c8 99 32 36 32 32 38 32  2c 70 68 25 3a e3 43 69  |..262282,ph%:.Ci|
0000aaf0  25 3d 30 b8 33 3a c8 99  32 36 32 32 37 38 2c 2c  |%=0.3:..262278,,|
0000ab00  44 69 24 28 43 69 25 2c  43 64 25 29 2c 25 31 30  |Di$(Ci%,Cd%),%10|
0000ab10  30 30 30 2c 4e 62 25 2b  32 32 30 2c 4f 62 25 2d  |000,Nb%+220,Ob%-|
0000ab20  31 38 30 2d 35 30 2a 43  69 25 3a ed 3a e1 0d 39  |180-50*Ci%:.:..9|
0000ab30  24 e2 dd f2 7a 68 28 4e  62 25 2c 4f 62 25 29 3a  |$...zh(Nb%,Ob%):|
0000ab40  ea 45 69 25 2c 46 69 25  3a c8 99 32 36 32 33 37  |.Ei%,Fi%:..26237|
0000ab50  34 2c 31 3a c8 93 c8 90  4e 62 25 2c 4f 62 25 2d  |4,1:....Nb%,Ob%-|
0000ab60  39 36 30 2c 31 34 30 2c  38 30 30 3a c8 93 c8 90  |960,140,800:....|
0000ab70  4e 62 25 2b 31 31 34 30  2c 4f 62 25 2d 39 36 30  |Nb%+1140,Ob%-960|
0000ab80  2c 31 34 30 2c 38 30 30  3a c8 93 c8 90 4e 62 25  |,140,800:....Nb%|
0000ab90  2b 31 34 30 2c 4f 62 25  2d 39 36 30 2c 31 30 30  |+140,Ob%-960,100|
0000aba0  30 2c 31 30 30 3a c8 93  c8 90 4e 62 25 2b 31 34  |0,100:....Nb%+14|
0000abb0  30 2c 4f 62 25 2d 32 30  30 2c 31 30 30 30 2c 32  |0,Ob%-200,1000,2|
0000abc0  30 30 3a c8 99 32 36 32  33 37 34 2c 37 3a c8 99  |00:..262374,7:..|
0000abd0  32 36 32 33 38 37 2c 2c  31 2c 37 3a c8 93 c8 90  |262387,,1,7:....|
0000abe0  4e 62 25 2b 31 33 39 2c  4f 62 25 2d 37 30 31 2c  |Nb%+139,Ob%-701,|
0000abf0  31 30 30 32 2c 32 3a c8  93 c8 90 4e 62 25 2b 31  |1002,2:....Nb%+1|
0000ac00  33 39 2c 4f 62 25 2d 37  30 31 2c 32 2c 35 30 32  |39,Ob%-701,2,502|
0000ac10  0d 39 48 80 c8 93 c8 90  4e 62 25 2b 31 31 34 30  |.9H.....Nb%+1140|
0000ac20  2c 4f 62 25 2d 37 30 31  2c 32 2c 35 30 32 3a c8  |,Ob%-701,2,502:.|
0000ac30  93 c8 90 4e 62 25 2b 31  33 39 2c 4f 62 25 2d 32  |...Nb%+139,Ob%-2|
0000ac40  30 30 2c 31 30 30 32 2c  32 3a c8 99 32 36 32 32  |00,1002,2:..2622|
0000ac50  38 32 2c 71 68 25 3a c8  99 32 36 32 32 37 38 2c  |82,qh%:..262278,|
0000ac60  2c 22 59 65 61 72 22 2c  25 31 30 30 30 30 2c 4e  |,"Year",%10000,N|
0000ac70  62 25 2b 35 39 30 2c 4f  62 25 2d 37 38 30 3a e7  |b%+590,Ob%-780:.|
0000ac80  46 61 25 3d 26 41 33 84  46 61 25 3d 26 41 34 8c  |Fa%=&A3.Fa%=&A4.|
0000ac90  0d 39 56 79 c8 99 32 36  32 32 38 32 2c 70 68 25  |.9Vy..262282,ph%|
0000aca0  3a c8 99 32 36 32 32 38  31 2c 2c 4e 62 25 2b 34  |:..262281,,Nb%+4|
0000acb0  30 2c 4f 62 25 2d 36 32  35 b8 2c 41 68 25 2c 42  |0,Ob%-625.,Ah%,B|
0000acc0  68 25 3a 43 60 25 21 34  3d 36 35 35 33 36 3a 43  |h%:C`%!4=65536:C|
0000acd0  60 25 21 38 3d 2d 36 35  35 33 36 3a e7 6b 62 25  |`%!8=-65536:.kb%|
0000ace0  8c 3a c8 99 32 36 32 32  37 38 2c 2c 68 62 24 2c  |.:..262278,,hb$,|
0000acf0  25 30 31 30 30 31 30 30  30 30 30 30 2c 41 68 25  |%01001000000,Ah%|
0000ad00  2c 42 68 25 2c 2c 43 60  25 0d 39 5e 6e c8 99 32  |,Bh%,,C`%.9^n..2|
0000ad10  36 32 32 38 31 2c 2c 4e  62 25 2b 31 32 34 30 2c  |62281,,Nb%+1240,|
0000ad20  4f 62 25 2d 33 32 30 b8  2c 41 68 25 2c 42 68 25  |Ob%-320.,Ah%,Bh%|
0000ad30  3a 43 60 25 21 34 3d 2d  36 35 35 33 36 3a 43 60  |:C`%!4=-65536:C`|
0000ad40  25 21 38 3d 36 35 35 33  36 3a e7 47 63 25 8c 3a  |%!8=65536:.Gc%.:|
0000ad50  c8 99 32 36 32 32 37 38  2c 2c 44 63 24 2c 25 30  |..262278,,Dc$,%0|
0000ad60  31 30 30 31 30 30 30 30  30 30 2c 41 68 25 2c 42  |1001000000,Ah%,B|
0000ad70  68 25 2c 2c 43 60 25 0d  39 64 30 cd 3a c8 99 32  |h%,,C`%.9d0.:..2|
0000ad80  36 32 32 38 32 2c 6f 68  25 3a f2 47 69 28 62 62  |62282,oh%:.Gi(bb|
0000ad90  25 2c 56 62 25 2c 48 69  29 3a e7 ac 28 6f 63 25  |%,Vb%,Hi):..(oc%|
0000ada0  80 ac 79 62 25 29 8c 0d  39 76 0a c8 8e 68 62 25  |..yb%)..9v...hb%|
0000adb0  ca 0d 39 78 52 c9 31 3a  e7 6c 62 25 8c 3a f2 49  |..9xR.1:.lb%.:.I|
0000adc0  69 28 4e 62 25 2c 4f 62  25 2c 72 62 25 2c 31 34  |i(Nb%,Ob%,rb%,14|
0000add0  30 2c 2d 37 30 30 2c 31  30 30 30 2c 35 30 30 2c  |0,-700,1000,500,|
0000ade0  6e 62 2c 77 63 25 2c 78  63 25 2c 79 63 2c 6a 62  |nb,wc%,xc%,yc,jb|
0000adf0  25 2c 31 30 2c 2d 31 30  30 2c 2d 37 2c 32 2c 30  |%,10,-100,-7,2,0|
0000ae00  2c 30 29 0d 39 7c 52 c9  32 3a e7 79 62 25 8c 3a  |,0).9|R.2:.yb%.:|
0000ae10  f2 49 69 28 4e 62 25 2c  4f 62 25 2c 60 62 25 2c  |.Ii(Nb%,Ob%,`b%,|
0000ae20  31 34 30 2c 2d 37 30 30  2c 31 30 30 30 2c 35 30  |140,-700,1000,50|
0000ae30  30 2c 7a 62 2c 77 63 25  2c 78 63 25 2c 79 63 2c  |0,zb,wc%,xc%,yc,|
0000ae40  78 62 25 2c 31 30 2c 2d  31 30 30 2c 2d 37 2c 32  |xb%,10,-100,-7,2|
0000ae50  2c 30 2c 30 29 0d 39 80  05 cb 0d 39 82 13 cd 3a  |,0,0).9....9...:|
0000ae60  e7 ac 28 6f 63 25 80 ac  48 63 25 29 8c 0d 39 8c  |..(oc%..Hc%)..9.|
0000ae70  0a c8 8e 44 63 25 ca 0d  39 8e 52 c9 31 3a e7 48  |...Dc%..9.R.1:.H|
0000ae80  63 25 8c 3a f2 49 69 28  4e 62 25 2c 4f 62 25 2c  |c%.:.Ii(Nb%,Ob%,|
0000ae90  4e 63 25 2c 31 31 34 30  2c 2d 37 30 30 2c 2d 31  |Nc%,1140,-700,-1|
0000aea0  30 30 30 2c 35 30 30 2c  4a 63 2c 55 64 25 2c 56  |000,500,Jc,Ud%,V|
0000aeb0  64 25 2c 57 64 2c 46 63  25 2c 31 2c 31 33 2c 2d  |d%,Wd,Fc%,1,13,-|
0000aec0  37 2c 31 2c 30 2c 2d 31  29 0d 39 92 53 c9 32 3a  |7,1,0,-1).9.S.2:|
0000aed0  e7 56 63 25 8c 3a f2 49  69 28 4e 62 25 2c 4f 62  |.Vc%.:.Ii(Nb%,Ob|
0000aee0  25 2c 59 63 25 2c 31 31  34 30 2c 2d 37 30 30 2c  |%,Yc%,1140,-700,|
0000aef0  2d 31 30 30 30 2c 35 30  30 2c 57 63 2c 55 64 25  |-1000,500,Wc,Ud%|
0000af00  2c 56 64 25 2c 57 64 2c  55 63 25 2c 31 2c 31 33  |,Vd%,Wd,Uc%,1,13|
0000af10  2c 2d 37 2c 32 2c 2d 31  2c 2d 31 29 0d 39 96 55  |,-7,2,-1,-1).9.U|
0000af20  c9 33 2c 35 3a e7 62 63  25 8c 3a f2 49 69 28 4e  |.3,5:.bc%.:.Ii(N|
0000af30  62 25 2c 4f 62 25 2c 65  63 25 2c 31 31 34 30 2c  |b%,Ob%,ec%,1140,|
0000af40  2d 37 30 30 2c 2d 31 30  30 30 2c 35 30 30 2c 63  |-700,-1000,500,c|
0000af50  63 2c 55 64 25 2c 56 64  25 2c 57 64 2c 61 63 25  |c,Ud%,Vd%,Wd,ac%|
0000af60  2c 31 2c 31 33 2c 2d 37  2c 32 2c 2d 31 2c 2d 31  |,1,13,-7,2,-1,-1|
0000af70  29 0d 39 9a 53 c9 34 3a  e7 68 63 25 8c 3a f2 49  |).9.S.4:.hc%.:.I|
0000af80  69 28 4e 62 25 2c 4f 62  25 2c 6b 63 25 2c 31 31  |i(Nb%,Ob%,kc%,11|
0000af90  34 30 2c 2d 37 30 30 2c  2d 31 30 30 30 2c 35 30  |40,-700,-1000,50|
0000afa0  30 2c 69 63 2c 55 64 25  2c 56 64 25 2c 57 64 2c  |0,ic,Ud%,Vd%,Wd,|
0000afb0  67 63 25 2c 31 2c 31 33  2c 2d 37 2c 32 2c 2d 31  |gc%,1,13,-7,2,-1|
0000afc0  2c 2d 31 29 0d 39 9e 05  cb 0d 39 a0 12 cd 3a 46  |,-1).9....9...:F|
0000afd0  69 25 3d 30 3a e7 ac 6f  63 25 8c 0d 39 aa 0a c8  |i%=0:..oc%..9...|
0000afe0  8e 68 62 25 ca 0d 39 ac  36 c9 31 3a e7 6c 62 25  |.hb%..9.6.1:.lb%|
0000aff0  8c 3a f2 4a 69 28 4e 62  25 2c 4f 62 25 2c 46 69  |.:.Ji(Nb%,Ob%,Fi|
0000b000  25 2c 74 62 25 2c 22 54  65 6d 70 65 72 61 74 75  |%,tb%,"Temperatu|
0000b010  72 65 22 29 3a 46 69 25  2b 3d 33 0d 39 ae 3c c9  |re"):Fi%+=3.9.<.|
0000b020  32 3a e7 79 62 25 8c 3a  f2 4a 69 28 4e 62 25 2c  |2:.yb%.:.Ji(Nb%,|
0000b030  4f 62 25 2c 46 69 25 2c  41 63 25 2c 22 52 61 64  |Ob%,Fi%,Ac%,"Rad|
0000b040  69 61 74 69 76 65 20 66  6f 72 63 69 6e 67 22 29  |iative forcing")|
0000b050  3a 46 69 25 2b 3d 33 0d  39 b0 0c cb 3a c8 8e 44  |:Fi%+=3.9...:..D|
0000b060  63 25 ca 0d 39 b4 3c c9  31 3a e7 48 63 25 8c 3a  |c%..9.<.1:.Hc%.:|
0000b070  f2 4a 69 28 4e 62 25 2c  4f 62 25 2c 46 69 25 2c  |.Ji(Nb%,Ob%,Fi%,|
0000b080  51 63 25 2c 22 43 4f 32  20 63 6f 6e 63 65 6e 74  |Qc%,"CO2 concent|
0000b090  72 61 74 69 6f 6e 22 29  3a 46 69 25 2b 3d 31 0d  |ration"):Fi%+=1.|
0000b0a0  39 b6 3c c9 32 3a e7 56  63 25 8c 3a f2 4a 69 28  |9.<.2:.Vc%.:.Ji(|
0000b0b0  4e 62 25 2c 4f 62 25 2c  46 69 25 2c 5a 63 25 2c  |Nb%,Ob%,Fi%,Zc%,|
0000b0c0  22 43 48 34 20 63 6f 6e  63 65 6e 74 72 61 74 69  |"CH4 concentrati|
0000b0d0  6f 6e 22 29 3a 46 69 25  2b 3d 31 0d 39 b8 3c c9  |on"):Fi%+=1.9.<.|
0000b0e0  34 3a e7 68 63 25 8c 3a  f2 4a 69 28 4e 62 25 2c  |4:.hc%.:.Ji(Nb%,|
0000b0f0  4f 62 25 2c 46 69 25 2c  6c 63 25 2c 22 4e 32 4f  |Ob%,Fi%,lc%,"N2O|
0000b100  20 63 6f 6e 63 65 6e 74  72 61 74 69 6f 6e 22 29  | concentration")|
0000b110  3a 46 69 25 2b 3d 31 0d  39 ba 0c c9 33 3a e7 62  |:Fi%+=1.9...3:.b|
0000b120  63 25 8c 0d 39 be 0a e7  ac 6e 63 25 8c 0d 39 c0  |c%..9....nc%..9.|
0000b130  37 f2 4a 69 28 4e 62 25  2c 4f 62 25 2c 46 69 25  |7.Ji(Nb%,Ob%,Fi%|
0000b140  2c 66 63 25 28 30 29 2c  22 43 46 43 73 20 63 6f  |,fc%(0),"CFCs co|
0000b150  6e 63 65 6e 74 72 61 74  69 6f 6e 22 29 3a 46 69  |ncentration"):Fi|
0000b160  25 2b 3d 31 0d 39 c2 a8  cc 3a f2 4a 69 28 4e 62  |%+=1.9...:.Ji(Nb|
0000b170  25 2c 4f 62 25 2c 46 69  25 2c 66 63 25 28 31 29  |%,Ob%,Fi%,fc%(1)|
0000b180  2c 22 43 46 43 2d 31 31  20 63 6f 6e 63 65 6e 74  |,"CFC-11 concent|
0000b190  72 61 74 69 6f 6e 22 29  3a 46 69 25 2b 3d 31 3a  |ration"):Fi%+=1:|
0000b1a0  f2 4a 69 28 4e 62 25 2c  4f 62 25 2c 46 69 25 2c  |.Ji(Nb%,Ob%,Fi%,|
0000b1b0  66 63 25 28 32 29 2c 22  43 46 43 2d 31 32 20 63  |fc%(2),"CFC-12 c|
0000b1c0  6f 6e 63 65 6e 74 72 61  74 69 6f 6e 22 29 3a 46  |oncentration"):F|
0000b1d0  69 25 2b 3d 31 3a f2 4a  69 28 4e 62 25 2c 4f 62  |i%+=1:.Ji(Nb%,Ob|
0000b1e0  25 2c 46 69 25 2c 66 63  25 28 33 29 2c 22 48 43  |%,Fi%,fc%(3),"HC|
0000b1f0  46 43 2d 32 32 20 63 6f  6e 63 65 6e 74 72 61 74  |FC-22 concentrat|
0000b200  69 6f 6e 22 29 3a 46 69  25 2b 3d 31 0d 39 ca 05  |ion"):Fi%+=1.9..|
0000b210  cd 0d 39 cc 05 cd 0d 39  ce 05 cb 0d 39 d0 72 cc  |..9....9....9.r.|
0000b220  3a f2 4a 69 28 4e 62 25  2c 4f 62 25 2c 46 69 25  |:.Ji(Nb%,Ob%,Fi%|
0000b230  2c 51 63 25 2c 22 43 4f  32 22 29 3a 46 69 25 2b  |,Qc%,"CO2"):Fi%+|
0000b240  3d 31 3a f2 4a 69 28 4e  62 25 2c 4f 62 25 2c 46  |=1:.Ji(Nb%,Ob%,F|
0000b250  69 25 2c 5a 63 25 2c 22  43 48 34 22 29 3a 46 69  |i%,Zc%,"CH4"):Fi|
0000b260  25 2b 3d 31 3a f2 4a 69  28 4e 62 25 2c 4f 62 25  |%+=1:.Ji(Nb%,Ob%|
0000b270  2c 46 69 25 2c 6c 63 25  2c 22 4e 32 4f 22 29 3a  |,Fi%,lc%,"N2O"):|
0000b280  46 69 25 2b 3d 31 3a e7  ac 6e 63 25 8c 0d 39 da  |Fi%+=1:..nc%..9.|
0000b290  29 f2 4a 69 28 4e 62 25  2c 4f 62 25 2c 46 69 25  |).Ji(Nb%,Ob%,Fi%|
0000b2a0  2c 66 63 25 28 30 29 2c  22 43 46 43 73 22 29 3a  |,fc%(0),"CFCs"):|
0000b2b0  46 69 25 2b 3d 31 0d 39  dc 7e cc 3a f2 4a 69 28  |Fi%+=1.9.~.:.Ji(|
0000b2c0  4e 62 25 2c 4f 62 25 2c  46 69 25 2c 66 63 25 28  |Nb%,Ob%,Fi%,fc%(|
0000b2d0  31 29 2c 22 43 46 43 2d  31 31 22 29 3a 46 69 25  |1),"CFC-11"):Fi%|
0000b2e0  2b 3d 31 3a f2 4a 69 28  4e 62 25 2c 4f 62 25 2c  |+=1:.Ji(Nb%,Ob%,|
0000b2f0  46 69 25 2c 66 63 25 28  32 29 2c 22 43 46 43 2d  |Fi%,fc%(2),"CFC-|
0000b300  31 32 22 29 3a 46 69 25  2b 3d 31 3a f2 4a 69 28  |12"):Fi%+=1:.Ji(|
0000b310  4e 62 25 2c 4f 62 25 2c  46 69 25 2c 66 63 25 28  |Nb%,Ob%,Fi%,fc%(|
0000b320  33 29 2c 22 48 43 46 43  2d 32 32 22 29 3a 46 69  |3),"HCFC-22"):Fi|
0000b330  25 2b 3d 31 0d 39 e4 05  cd 0d 39 e6 07 cd 3a e1  |%+=1.9....9...:.|
0000b340  0d 39 ec e4 dd f2 47 69  28 6a 68 25 2c 4b 69 25  |.9....Gi(jh%,Ki%|
0000b350  2c 4c 69 29 3a ea 48 62  24 3a ef 32 33 2c 36 2c  |,Li):.Hb$:.23,6,|
0000b360  26 33 33 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |&33,0,0,0,0,0,0,|
0000b370  30 3a e3 58 25 3d 30 b8  4e 64 25 3a 48 62 24 3d  |0:.X%=0.Nd%:Hb$=|
0000b380  c0 c3 28 31 37 35 30 2b  62 62 25 2b 4d 64 25 2b  |..(1750+bb%+Md%+|
0000b390  4f 64 2a 58 25 2b 30 2e  30 30 31 29 2c 34 29 3a  |Od*X%+0.001),4):|
0000b3a0  c8 99 32 36 32 32 37 38  2c 2c 48 62 24 2c 25 31  |..262278,,Hb$,%1|
0000b3b0  30 30 30 30 2c 4e 62 25  2b 31 34 30 2d 33 30 2b  |0000,Nb%+140-30+|
0000b3c0  31 30 30 30 2a 4c 69 2a  28 4d 64 25 2b 4f 64 2a  |1000*Li*(Md%+Od*|
0000b3d0  58 25 29 2c 4f 62 25 2d  37 34 30 3a 86 4e 62 25  |X%),Ob%-740:.Nb%|
0000b3e0  2b 31 34 30 2b 31 30 30  30 2a 4c 69 2a 28 4d 64  |+140+1000*Li*(Md|
0000b3f0  25 2b 4f 64 2a 58 25 29  2c 4f 62 25 2d 37 30 30  |%+Od*X%),Ob%-700|
0000b400  2c 4e 62 25 2b 31 34 30  2b 31 30 30 30 2a 4c 69  |,Nb%+140+1000*Li|
0000b410  2a 28 4d 64 25 2b 4f 64  2a 58 25 29 2c 4f 62 25  |*(Md%+Od*X%),Ob%|
0000b420  2d 37 31 35 0d 39 fa 5b  e7 56 62 25 8c 3a f0 26  |-715.9.[.Vb%.:.&|
0000b430  30 34 2c 4e 62 25 2b 31  34 30 2b 31 30 30 30 2a  |04,Nb%+140+1000*|
0000b440  4c 69 2a 28 4d 64 25 2b  4f 64 2a 58 25 29 2c 4f  |Li*(Md%+Od*X%),O|
0000b450  62 25 2d 37 30 30 3a f0  26 31 35 2c 4e 62 25 2b  |b%-700:.&15,Nb%+|
0000b460  31 34 30 2b 31 30 30 30  2a 4c 69 2a 28 4d 64 25  |140+1000*Li*(Md%|
0000b470  2b 4f 64 2a 58 25 29 2c  4f 62 25 2d 32 30 30 0d  |+Od*X%),Ob%-200.|
0000b480  39 fc 07 ed 3a e1 0d 3a  02 dd dd f2 4a 69 28 4e  |9...:..:....Ji(N|
0000b490  62 25 2c 4f 62 25 2c 6e  25 2c 63 25 2c 48 62 24  |b%,Ob%,n%,c%,Hb$|
0000b4a0  29 3a ea 4d 69 25 2c 4e  69 25 2c 78 25 2c 79 25  |):.Mi%,Ni%,x%,y%|
0000b4b0  3a 4d 69 25 3d 6e 25 83  33 3a 4e 69 25 3d a8 28  |:Mi%=n%.3:Ni%=.(|
0000b4c0  6e 25 2f 33 29 3a 78 25  3d 31 34 30 2b 4e 69 25  |n%/3):x%=140+Ni%|
0000b4d0  2a 34 30 30 3a 79 25 3d  2d 38 35 30 2d 4d 69 25  |*400:y%=-850-Mi%|
0000b4e0  2a 34 30 3a c8 99 32 36  32 33 37 34 2c 37 3a c8  |*40:..262374,7:.|
0000b4f0  93 c8 90 4e 62 25 2b 78  25 2c 4f 62 25 2b 79 25  |...Nb%+x%,Ob%+y%|
0000b500  2c 32 30 2c 32 30 3a c8  99 32 36 32 33 37 34 2c  |,20,20:..262374,|
0000b510  63 25 3a c8 93 c8 90 4e  62 25 2b 78 25 2b 32 2c  |c%:....Nb%+x%+2,|
0000b520  4f 62 25 2b 79 25 2b 32  2c 31 36 2c 31 36 3a c8  |Ob%+y%+2,16,16:.|
0000b530  99 32 36 32 32 38 32 2c  70 68 25 3a c8 99 32 36  |.262282,ph%:..26|
0000b540  32 32 37 38 2c 2c 48 62  24 2c 25 31 30 30 30 30  |2278,,Hb$,%10000|
0000b550  2c 4e 62 25 2b 78 25 2b  34 30 2c 4f 62 25 2b 79  |,Nb%+x%+40,Ob%+y|
0000b560  25 3a e1 0d 3a 20 5e dd  f2 79 68 28 4e 62 25 2c  |%:..: ^..yh(Nb%,|
0000b570  4f 62 25 2c 75 68 25 2c  76 68 25 2c 77 68 25 2c  |Ob%,uh%,vh%,wh%,|
0000b580  78 68 25 29 3a ea 78 25  2c 79 25 2c 73 2c 65 2c  |xh%):.x%,y%,s,e,|
0000b590  4f 69 25 2c 50 69 25 3a  e7 75 68 25 3e 4e 62 25  |Oi%,Pi%:.uh%>Nb%|
0000b5a0  2b 31 34 30 2b 54 62 25  2a 28 31 30 30 30 2a 48  |+140+Tb%*(1000*H|
0000b5b0  69 29 84 76 68 25 3c 4e  62 25 2b 31 34 30 8c 3a  |i).vh%<Nb%+140.:|
0000b5c0  e1 0d 3a 2c 1d e7 75 68  25 3c 3d 4e 62 25 2b 31  |..:,..uh%<=Nb%+1|
0000b5d0  34 30 8c 75 68 25 3d 4e  62 25 2b 31 34 30 0d 3a  |40.uh%=Nb%+140.:|
0000b5e0  2e 46 e7 76 68 25 3e 3d  4e 62 25 2b 31 34 30 2b  |.F.vh%>=Nb%+140+|
0000b5f0  28 54 62 25 2d 62 62 25  29 2a 28 31 30 30 30 2a  |(Tb%-bb%)*(1000*|
0000b600  48 69 29 8c 3a 76 68 25  3d 4e 62 25 2b 31 34 31  |Hi).:vh%=Nb%+141|
0000b610  2b 28 54 62 25 2d 62 62  25 29 2a 28 31 30 30 30  |+(Tb%-bb%)*(1000|
0000b620  2a 48 69 29 0d 3a 30 1f  e7 77 68 25 3e 4f 62 25  |*Hi).:0..wh%>Ob%|
0000b630  2d 32 30 30 84 78 68 25  3c 4f 62 25 2d 37 30 30  |-200.xh%<Ob%-700|
0000b640  8c 3a e1 0d 3a 32 0a e7  ac 6f 63 25 8c 0d 3a 36  |.:..:2...oc%..:6|
0000b650  0f e7 68 62 25 3d 31 80  6c 62 25 8c 0d 3a 38 99  |..hb%=1.lb%..:8.|
0000b660  e3 4e 25 3d 28 75 68 25  2d 4e 62 25 2d 31 34 30  |.N%=(uh%-Nb%-140|
0000b670  29 2f 28 31 30 30 30 2a  48 69 29 2b 62 62 25 b8  |)/(1000*Hi)+bb%.|
0000b680  28 76 68 25 2d 4e 62 25  2d 31 34 30 29 2f 28 31  |(vh%-Nb%-140)/(1|
0000b690  30 30 30 2a 48 69 29 2b  62 62 25 3a 78 25 3d 4e  |000*Hi)+bb%:x%=N|
0000b6a0  62 25 2b 31 34 30 2b 28  31 30 30 30 2a 48 69 29  |b%+140+(1000*Hi)|
0000b6b0  2a 28 4e 25 2d 62 62 25  29 3a 79 25 3d 4f 62 25  |*(N%-bb%):y%=Ob%|
0000b6c0  2d 37 30 30 2b 35 30 30  30 2a 6e 62 2a 28 74 28  |-700+5000*nb*(t(|
0000b6d0  4e 25 29 2d 32 37 33 2d  28 72 62 25 2b 61 64 25  |N%)-273-(rb%+ad%|
0000b6e0  29 2f 31 30 29 3a e7 4e  25 3d 62 62 25 8c 3a 4f  |)/10):.N%=bb%.:O|
0000b6f0  69 25 3d 79 25 0d 3a 40  28 f2 51 69 28 74 62 25  |i%=y%.:@(.Qi(tb%|
0000b700  2c 78 25 2c 79 25 2c 4f  69 25 2c 6e 62 25 2c 79  |,x%,y%,Oi%,nb%,y|
0000b710  25 29 3a 4f 69 25 3d 79  25 3a ed 4e 25 0d 3a 46  |%):Oi%=y%:.N%.:F|
0000b720  11 cd 3a e7 68 62 25 3d  32 80 79 62 25 8c 0d 3a  |..:.hb%=2.yb%..:|
0000b730  4a 96 e3 4e 25 3d 28 75  68 25 2d 4e 62 25 2d 31  |J..N%=(uh%-Nb%-1|
0000b740  34 30 29 2f 28 31 30 30  30 2a 48 69 29 2b 62 62  |40)/(1000*Hi)+bb|
0000b750  25 b8 28 76 68 25 2d 4e  62 25 2d 31 34 30 29 2f  |%.(vh%-Nb%-140)/|
0000b760  28 31 30 30 30 2a 48 69  29 2b 62 62 25 3a 78 25  |(1000*Hi)+bb%:x%|
0000b770  3d 4e 62 25 2b 31 34 30  2b 28 31 30 30 30 2a 48  |=Nb%+140+(1000*H|
0000b780  69 29 2a 28 4e 25 2d 62  62 25 29 3a 79 25 3d 4f  |i)*(N%-bb%):y%=O|
0000b790  62 25 2d 37 30 30 2b 35  30 30 30 2a 7a 62 2a 28  |b%-700+5000*zb*(|
0000b7a0  52 69 28 4e 25 29 2d 28  60 62 25 2b 62 64 25 29  |Ri(N%)-(`b%+bd%)|
0000b7b0  2f 31 30 29 3a e7 4e 25  3d 62 62 25 8c 3a 4f 69  |/10):.N%=bb%.:Oi|
0000b7c0  25 3d 79 25 0d 3a 52 28  f2 51 69 28 41 63 25 2c  |%=y%.:R(.Qi(Ac%,|
0000b7d0  78 25 2c 79 25 2c 4f 69  25 2c 7a 62 25 2c 79 25  |x%,y%,Oi%,zb%,y%|
0000b7e0  29 3a 4f 69 25 3d 79 25  3a ed 4e 25 0d 3a 58 11  |):Oi%=y%:.N%.:X.|
0000b7f0  cd 3a e7 44 63 25 3d 31  80 48 63 25 8c 0d 3a 5c  |.:.Dc%=1.Hc%..:\|
0000b800  92 e3 4e 25 3d 28 75 68  25 2d 4e 62 25 2d 31 34  |..N%=(uh%-Nb%-14|
0000b810  30 29 2f 28 31 30 30 30  2a 48 69 29 2b 62 62 25  |0)/(1000*Hi)+bb%|
0000b820  b8 28 76 68 25 2d 4e 62  25 2d 31 34 30 29 2f 28  |.(vh%-Nb%-140)/(|
0000b830  31 30 30 30 2a 48 69 29  2b 62 62 25 3a 78 25 3d  |1000*Hi)+bb%:x%=|
0000b840  4e 62 25 2b 31 34 30 2b  28 31 30 30 30 2a 48 69  |Nb%+140+(1000*Hi|
0000b850  29 2a 28 4e 25 2d 62 62  25 29 3a 79 25 3d 4f 62  |)*(N%-bb%):y%=Ob|
0000b860  25 2d 37 30 30 2b 35 30  30 2a 4a 63 2a 28 53 69  |%-700+500*Jc*(Si|
0000b870  28 4e 25 29 2d 28 4e 63  25 2b 63 64 25 29 29 3a  |(N%)-(Nc%+cd%)):|
0000b880  e7 4e 25 3d 62 62 25 8c  3a 50 69 25 3d 79 25 0d  |.N%=bb%.:Pi%=y%.|
0000b890  3a 64 28 f2 51 69 28 51  63 25 2c 78 25 2c 79 25  |:d(.Qi(Qc%,x%,y%|
0000b8a0  2c 50 69 25 2c 4a 63 25  2c 79 25 29 3a 50 69 25  |,Pi%,Jc%,y%):Pi%|
0000b8b0  3d 79 25 3a ed 4e 25 0d  3a 6a 11 cd 3a e7 44 63  |=y%:.N%.:j..:.Dc|
0000b8c0  25 3d 32 80 56 63 25 8c  0d 3a 6e 92 e3 4e 25 3d  |%=2.Vc%..:n..N%=|
0000b8d0  28 75 68 25 2d 4e 62 25  2d 31 34 30 29 2f 28 31  |(uh%-Nb%-140)/(1|
0000b8e0  30 30 30 2a 48 69 29 2b  62 62 25 b8 28 76 68 25  |000*Hi)+bb%.(vh%|
0000b8f0  2d 4e 62 25 2d 31 34 30  29 2f 28 31 30 30 30 2a  |-Nb%-140)/(1000*|
0000b900  48 69 29 2b 62 62 25 3a  78 25 3d 4e 62 25 2b 31  |Hi)+bb%:x%=Nb%+1|
0000b910  34 30 2b 28 31 30 30 30  2a 48 69 29 2a 28 4e 25  |40+(1000*Hi)*(N%|
0000b920  2d 62 62 25 29 3a 79 25  3d 4f 62 25 2d 37 30 30  |-bb%):y%=Ob%-700|
0000b930  2b 35 30 30 2a 57 63 2a  28 54 69 28 4e 25 29 2d  |+500*Wc*(Ti(N%)-|
0000b940  28 59 63 25 2b 64 64 25  29 29 3a e7 4e 25 3d 62  |(Yc%+dd%)):.N%=b|
0000b950  62 25 8c 3a 50 69 25 3d  79 25 0d 3a 76 28 f2 51  |b%.:Pi%=y%.:v(.Q|
0000b960  69 28 5a 63 25 2c 78 25  2c 79 25 2c 50 69 25 2c  |i(Zc%,x%,y%,Pi%,|
0000b970  57 63 25 2c 79 25 29 3a  50 69 25 3d 79 25 3a ed  |Wc%,y%):Pi%=y%:.|
0000b980  4e 25 0d 3a 7c 11 cd 3a  e7 44 63 25 3d 33 80 62  |N%.:|..:.Dc%=3.b|
0000b990  63 25 8c 0d 3a 80 0a e7  ac 6e 63 25 8c 0d 3a 82  |c%..:....nc%..:.|
0000b9a0  97 e3 4e 25 3d 28 75 68  25 2d 4e 62 25 2d 31 34  |..N%=(uh%-Nb%-14|
0000b9b0  30 29 2f 28 31 30 30 30  2a 48 69 29 2b 62 62 25  |0)/(1000*Hi)+bb%|
0000b9c0  b8 28 76 68 25 2d 4e 62  25 2d 31 34 30 29 2f 28  |.(vh%-Nb%-140)/(|
0000b9d0  31 30 30 30 2a 48 69 29  2b 62 62 25 3a 78 25 3d  |1000*Hi)+bb%:x%=|
0000b9e0  4e 62 25 2b 31 34 30 2b  28 31 30 30 30 2a 48 69  |Nb%+140+(1000*Hi|
0000b9f0  29 2a 28 4e 25 2d 62 62  25 29 3a 79 25 3d 4f 62  |)*(N%-bb%):y%=Ob|
0000ba00  25 2d 37 30 30 2b 35 30  30 2a 63 63 2a 28 55 69  |%-700+500*cc*(Ui|
0000ba10  28 4e 25 2c 30 29 2d 28  65 63 25 2b 65 64 25 28  |(N%,0)-(ec%+ed%(|
0000ba20  30 29 29 29 3a e7 4e 25  3d 62 62 25 8c 3a 50 69  |0))):.N%=bb%.:Pi|
0000ba30  25 3d 79 25 0d 3a 8a 2b  f2 51 69 28 66 63 25 28  |%=y%.:.+.Qi(fc%(|
0000ba40  30 29 2c 78 25 2c 79 25  2c 50 69 25 2c 63 63 25  |0),x%,y%,Pi%,cc%|
0000ba50  2c 79 25 29 3a 50 69 25  3d 79 25 3a ed 4e 25 0d  |,y%):Pi%=y%:.N%.|
0000ba60  3a 90 99 cc 3a e3 4e 25  3d 28 75 68 25 2d 4e 62  |:...:.N%=(uh%-Nb|
0000ba70  25 2d 31 34 30 29 2f 28  31 30 30 30 2a 48 69 29  |%-140)/(1000*Hi)|
0000ba80  2b 62 62 25 b8 28 76 68  25 2d 4e 62 25 2d 31 34  |+bb%.(vh%-Nb%-14|
0000ba90  30 29 2f 28 31 30 30 30  2a 48 69 29 2b 62 62 25  |0)/(1000*Hi)+bb%|
0000baa0  3a 78 25 3d 4e 62 25 2b  31 34 30 2b 28 31 30 30  |:x%=Nb%+140+(100|
0000bab0  30 2a 48 69 29 2a 28 4e  25 2d 62 62 25 29 3a 79  |0*Hi)*(N%-bb%):y|
0000bac0  25 3d 4f 62 25 2d 37 30  30 2b 35 30 30 2a 63 63  |%=Ob%-700+500*cc|
0000bad0  2a 28 55 69 28 4e 25 2c  31 29 2d 28 65 63 25 2b  |*(Ui(N%,1)-(ec%+|
0000bae0  65 64 25 28 31 29 29 29  3a e7 4e 25 3d 62 62 25  |ed%(1))):.N%=bb%|
0000baf0  8c 3a 56 69 25 3d 79 25  0d 3a 9a bf f2 51 69 28  |.:Vi%=y%.:...Qi(|
0000bb00  66 63 25 28 31 29 2c 78  25 2c 79 25 2c 56 69 25  |fc%(1),x%,y%,Vi%|
0000bb10  2c 63 63 25 2c 79 25 29  3a 56 69 25 3d 79 25 3a  |,cc%,y%):Vi%=y%:|
0000bb20  ed 4e 25 3a e3 4e 25 3d  28 75 68 25 2d 4e 62 25  |.N%:.N%=(uh%-Nb%|
0000bb30  2d 31 34 30 29 2f 28 31  30 30 30 2a 48 69 29 2b  |-140)/(1000*Hi)+|
0000bb40  62 62 25 b8 28 76 68 25  2d 4e 62 25 2d 31 34 30  |bb%.(vh%-Nb%-140|
0000bb50  29 2f 28 31 30 30 30 2a  48 69 29 2b 62 62 25 3a  |)/(1000*Hi)+bb%:|
0000bb60  78 25 3d 4e 62 25 2b 31  34 30 2b 28 31 30 30 30  |x%=Nb%+140+(1000|
0000bb70  2a 48 69 29 2a 28 4e 25  2d 62 62 25 29 3a 79 25  |*Hi)*(N%-bb%):y%|
0000bb80  3d 4f 62 25 2d 37 30 30  2b 35 30 30 2a 63 63 2a  |=Ob%-700+500*cc*|
0000bb90  28 55 69 28 4e 25 2c 32  29 2d 28 65 63 25 2b 65  |(Ui(N%,2)-(ec%+e|
0000bba0  64 25 28 32 29 29 29 3a  e7 4e 25 3d 62 62 25 8c  |d%(2))):.N%=bb%.|
0000bbb0  3a 57 69 25 3d 79 25 0d  3a a8 bf f2 51 69 28 66  |:Wi%=y%.:...Qi(f|
0000bbc0  63 25 28 32 29 2c 78 25  2c 79 25 2c 57 69 25 2c  |c%(2),x%,y%,Wi%,|
0000bbd0  63 63 25 2c 79 25 29 3a  57 69 25 3d 79 25 3a ed  |cc%,y%):Wi%=y%:.|
0000bbe0  4e 25 3a e3 4e 25 3d 28  75 68 25 2d 4e 62 25 2d  |N%:.N%=(uh%-Nb%-|
0000bbf0  31 34 30 29 2f 28 31 30  30 30 2a 48 69 29 2b 62  |140)/(1000*Hi)+b|
0000bc00  62 25 b8 28 76 68 25 2d  4e 62 25 2d 31 34 30 29  |b%.(vh%-Nb%-140)|
0000bc10  2f 28 31 30 30 30 2a 48  69 29 2b 62 62 25 3a 78  |/(1000*Hi)+bb%:x|
0000bc20  25 3d 4e 62 25 2b 31 34  30 2b 28 31 30 30 30 2a  |%=Nb%+140+(1000*|
0000bc30  48 69 29 2a 28 4e 25 2d  62 62 25 29 3a 79 25 3d  |Hi)*(N%-bb%):y%=|
0000bc40  4f 62 25 2d 37 30 30 2b  35 30 30 2a 63 63 2a 28  |Ob%-700+500*cc*(|
0000bc50  55 69 28 4e 25 2c 33 29  2d 28 65 63 25 2b 65 64  |Ui(N%,3)-(ec%+ed|
0000bc60  25 28 33 29 29 29 3a e7  4e 25 3d 62 62 25 8c 3a  |%(3))):.N%=bb%.:|
0000bc70  58 69 25 3d 79 25 0d 3a  b6 2b f2 51 69 28 66 63  |Xi%=y%.:.+.Qi(fc|
0000bc80  25 28 33 29 2c 78 25 2c  79 25 2c 58 69 25 2c 63  |%(3),x%,y%,Xi%,c|
0000bc90  63 25 2c 79 25 29 3a 58  69 25 3d 79 25 3a ed 4e  |c%,y%):Xi%=y%:.N|
0000bca0  25 0d 3a bc 05 cd 0d 3a  be 11 cd 3a e7 44 63 25  |%.:....:...:.Dc%|
0000bcb0  3d 34 80 68 63 25 8c 0d  3a c2 92 e3 4e 25 3d 28  |=4.hc%..:...N%=(|
0000bcc0  75 68 25 2d 4e 62 25 2d  31 34 30 29 2f 28 31 30  |uh%-Nb%-140)/(10|
0000bcd0  30 30 2a 48 69 29 2b 62  62 25 b8 28 76 68 25 2d  |00*Hi)+bb%.(vh%-|
0000bce0  4e 62 25 2d 31 34 30 29  2f 28 31 30 30 30 2a 48  |Nb%-140)/(1000*H|
0000bcf0  69 29 2b 62 62 25 3a 78  25 3d 4e 62 25 2b 31 34  |i)+bb%:x%=Nb%+14|
0000bd00  30 2b 28 31 30 30 30 2a  48 69 29 2a 28 4e 25 2d  |0+(1000*Hi)*(N%-|
0000bd10  62 62 25 29 3a 79 25 3d  4f 62 25 2d 37 30 30 2b  |bb%):y%=Ob%-700+|
0000bd20  35 30 30 2a 69 63 2a 28  59 69 28 4e 25 29 2d 28  |500*ic*(Yi(N%)-(|
0000bd30  6b 63 25 2b 66 64 25 29  29 3a e7 4e 25 3d 62 62  |kc%+fd%)):.N%=bb|
0000bd40  25 8c 3a 50 69 25 3d 79  25 0d 3a ca 28 f2 51 69  |%.:Pi%=y%.:.(.Qi|
0000bd50  28 6c 63 25 2c 78 25 2c  79 25 2c 50 69 25 2c 69  |(lc%,x%,y%,Pi%,i|
0000bd60  63 25 2c 79 25 29 3a 50  69 25 3d 79 25 3a ed 4e  |c%,y%):Pi%=y%:.N|
0000bd70  25 0d 3a d0 05 cd 0d 3a  d2 10 cc 3a e7 79 62 25  |%.:....:...:.yb%|
0000bd80  80 ac 48 63 25 8c 0d 3a  d5 d0 5a 69 25 3d 7a 62  |..Hc%..:..Zi%=zb|
0000bd90  25 3a 79 25 3d 4f 62 25  2d 37 30 30 3a 73 3d 35  |%:y%=Ob%-700:s=5|
0000bda0  30 30 2a 7a 62 3a e3 4e  25 3d 28 75 68 25 2d 4e  |00*zb:.N%=(uh%-N|
0000bdb0  62 25 2d 31 34 30 29 2f  28 31 30 30 30 2a 48 69  |b%-140)/(1000*Hi|
0000bdc0  29 2b 62 62 25 b8 28 76  68 25 2d 4e 62 25 2d 31  |)+bb%.(vh%-Nb%-1|
0000bdd0  34 30 29 2f 28 31 30 30  30 2a 48 69 29 2b 62 62  |40)/(1000*Hi)+bb|
0000bde0  25 3a 79 25 28 31 29 3d  79 25 2b 73 2a 31 30 2a  |%:y%(1)=y%+s*10*|
0000bdf0  61 69 28 4e 25 29 3a 65  25 28 31 29 3d 73 2a 67  |ai(N%):e%(1)=s*g|
0000be00  64 25 3a 79 25 28 32 29  3d 79 25 28 31 29 2b 73  |d%:y%(2)=y%(1)+s|
0000be10  2a 31 30 2a 62 69 28 4e  25 29 3a 65 25 28 32 29  |*10*bi(N%):e%(2)|
0000be20  3d 65 25 28 31 29 2b 73  2a 68 64 25 3a 79 25 28  |=e%(1)+s*hd%:y%(|
0000be30  33 29 3d 79 25 28 32 29  2b 73 2a 31 30 2a 63 69  |3)=y%(2)+s*10*ci|
0000be40  28 4e 25 29 3a 65 25 28  33 29 3d 65 25 28 32 29  |(N%):e%(3)=e%(2)|
0000be50  2b 73 2a 69 64 25 0d 3a  e2 da 79 25 28 34 29 3d  |+s*id%.:..y%(4)=|
0000be60  79 25 28 33 29 2b 73 2a  31 30 2a 64 69 28 4e 25  |y%(3)+s*10*di(N%|
0000be70  2c 30 29 3a 65 25 28 34  29 3d 65 25 28 33 29 2b  |,0):e%(4)=e%(3)+|
0000be80  73 2a 6a 64 25 28 30 29  3a 79 25 28 35 29 3d 79  |s*jd%(0):y%(5)=y|
0000be90  25 28 33 29 2b 73 2a 31  30 2a 64 69 28 4e 25 2c  |%(3)+s*10*di(N%,|
0000bea0  31 29 3a 65 25 28 35 29  3d 65 25 28 33 29 2b 73  |1):e%(5)=e%(3)+s|
0000beb0  2a 6a 64 25 28 31 29 3a  79 25 28 36 29 3d 79 25  |*jd%(1):y%(6)=y%|
0000bec0  28 35 29 2b 73 2a 31 30  2a 64 69 28 4e 25 2c 32  |(5)+s*10*di(N%,2|
0000bed0  29 3a 65 25 28 36 29 3d  65 25 28 35 29 2b 73 2a  |):e%(6)=e%(5)+s*|
0000bee0  6a 64 25 28 32 29 3a 79  25 28 37 29 3d 79 25 28  |jd%(2):y%(7)=y%(|
0000bef0  36 29 2b 73 2a 31 30 2a  64 69 28 4e 25 2c 33 29  |6)+s*10*di(N%,3)|
0000bf00  3a 65 25 28 37 29 3d 65  25 28 36 29 2b 73 2a 6a  |:e%(7)=e%(6)+s*j|
0000bf10  64 25 28 33 29 3a 65 25  28 29 2b 3d 73 2a 60 62  |d%(3):e%()+=s*`b|
0000bf20  25 3a 79 25 28 29 3d 79  25 28 29 2d 65 25 28 29  |%:y%()=y%()-e%()|
0000bf30  0d 3a ee 17 e7 4e 25 3d  62 62 25 8c 3a 65 69 25  |.:...N%=bb%.:ei%|
0000bf40  28 29 3d 79 25 28 29 0d  3a f0 3b f2 66 69 28 4e  |()=y%().:.;.fi(N|
0000bf50  62 25 2b 31 34 30 2b 28  31 30 30 30 2a 48 69 29  |b%+140+(1000*Hi)|
0000bf60  2a 28 4e 25 2d 62 62 25  29 2c 79 25 28 29 2c 65  |*(N%-bb%),y%(),e|
0000bf70  69 25 28 29 29 3a 65 69  25 28 29 3d 79 25 28 29  |i%()):ei%()=y%()|
0000bf80  3a ed 0d 3a f6 10 cd 3a  e7 48 63 25 80 ac 79 62  |:..:...:.Hc%..yb|
0000bf90  25 8c 0d 3a f9 bd 5a 69  25 3d 4a 63 25 3a 79 25  |%..:..Zi%=Jc%:y%|
0000bfa0  3d 4f 62 25 2d 37 30 30  3a 73 3d 35 30 30 2a 4a  |=Ob%-700:s=500*J|
0000bfb0  63 3a e3 4e 25 3d 28 75  68 25 2d 4e 62 25 2d 31  |c:.N%=(uh%-Nb%-1|
0000bfc0  34 30 29 2f 28 31 30 30  30 2a 48 69 29 2b 62 62  |40)/(1000*Hi)+bb|
0000bfd0  25 b8 28 76 68 25 2d 4e  62 25 2d 31 34 30 29 2f  |%.(vh%-Nb%-140)/|
0000bfe0  28 31 30 30 30 2a 48 69  29 2b 62 62 25 3a 79 25  |(1000*Hi)+bb%:y%|
0000bff0  28 31 29 3d 79 25 2b 73  2a 53 69 28 4e 25 29 3a  |(1)=y%+s*Si(N%):|
0000c000  65 25 28 31 29 3d 30 3a  79 25 28 32 29 3d 79 25  |e%(1)=0:y%(2)=y%|
0000c010  28 31 29 2b 73 2a 28 32  37 37 2a a1 28 62 69 28  |(1)+s*(277*.(bi(|
0000c020  4e 25 29 2f 36 2e 33 29  2d 32 37 37 29 3a 65 25  |N%)/6.3)-277):e%|
0000c030  28 32 29 3d 65 25 28 31  29 2b 73 2a 28 32 37 37  |(2)=e%(1)+s*(277|
0000c040  2a a1 28 68 64 25 2f 36  33 29 2d 32 37 37 29 0d  |*.(hd%/63)-277).|
0000c050  3b 06 e5 79 25 28 33 29  3d 79 25 28 32 29 2b 73  |;..y%(3)=y%(2)+s|
0000c060  2a 28 32 37 37 2a a1 28  63 69 28 4e 25 29 2f 36  |*(277*.(ci(N%)/6|
0000c070  2e 33 29 2d 32 37 37 29  3a 65 25 28 33 29 3d 65  |.3)-277):e%(3)=e|
0000c080  25 28 32 29 2b 73 2a 28  32 37 37 2a a1 28 69 64  |%(2)+s*(277*.(id|
0000c090  25 2f 36 33 29 2d 32 37  37 29 3a 79 25 28 34 29  |%/63)-277):y%(4)|
0000c0a0  3d 79 25 28 33 29 2b 73  2a 28 32 37 37 2a a1 28  |=y%(3)+s*(277*.(|
0000c0b0  64 69 28 4e 25 2c 30 29  2f 36 2e 33 29 2d 32 37  |di(N%,0)/6.3)-27|
0000c0c0  37 29 3a 65 25 28 34 29  3d 65 25 28 33 29 2b 73  |7):e%(4)=e%(3)+s|
0000c0d0  2a 28 32 37 37 2a a1 28  6a 64 25 28 30 29 2f 36  |*(277*.(jd%(0)/6|
0000c0e0  33 29 2d 32 37 37 29 3a  79 25 28 35 29 3d 79 25  |3)-277):y%(5)=y%|
0000c0f0  28 33 29 2b 73 2a 28 32  37 37 2a a1 28 64 69 28  |(3)+s*(277*.(di(|
0000c100  4e 25 2c 31 29 2f 36 2e  33 29 2d 32 37 37 29 3a  |N%,1)/6.3)-277):|
0000c110  65 25 28 35 29 3d 65 25  28 33 29 2b 73 2a 28 32  |e%(5)=e%(3)+s*(2|
0000c120  37 37 2a a1 28 6a 64 25  28 31 29 2f 36 33 29 2d  |77*.(jd%(1)/63)-|
0000c130  32 37 37 29 0d 3b 0c d2  79 25 28 36 29 3d 79 25  |277).;..y%(6)=y%|
0000c140  28 35 29 2b 73 2a 28 32  37 37 2a a1 28 64 69 28  |(5)+s*(277*.(di(|
0000c150  4e 25 2c 32 29 2f 36 2e  33 29 2d 32 37 37 29 3a  |N%,2)/6.3)-277):|
0000c160  65 25 28 36 29 3d 65 25  28 35 29 2b 73 2a 28 32  |e%(6)=e%(5)+s*(2|
0000c170  37 37 2a a1 28 6a 64 25  28 32 29 2f 36 33 29 2d  |77*.(jd%(2)/63)-|
0000c180  32 37 37 29 3a 79 25 28  37 29 3d 79 25 28 36 29  |277):y%(7)=y%(6)|
0000c190  2b 73 2a 28 32 37 37 2a  a1 28 64 69 28 4e 25 2c  |+s*(277*.(di(N%,|
0000c1a0  33 29 2f 36 2e 33 29 2d  32 37 37 29 3a 65 25 28  |3)/6.3)-277):e%(|
0000c1b0  37 29 3d 65 25 28 36 29  2b 73 2a 28 32 37 37 2a  |7)=e%(6)+s*(277*|
0000c1c0  a1 28 6a 64 25 28 33 29  2f 36 33 29 2d 32 37 37  |.(jd%(3)/63)-277|
0000c1d0  29 3a 65 25 28 29 2b 3d  73 2a 28 4e 63 25 2b 63  |):e%()+=s*(Nc%+c|
0000c1e0  64 25 29 3a 79 25 28 29  3d 79 25 28 29 2d 65 25  |d%):y%()=y%()-e%|
0000c1f0  28 29 3a e7 4e 25 3d 62  62 25 8c 3a 65 69 25 28  |():.N%=bb%.:ei%(|
0000c200  29 3d 79 25 28 29 0d 3b  16 3b f2 66 69 28 4e 62  |)=y%().;.;.fi(Nb|
0000c210  25 2b 31 34 30 2b 28 31  30 30 30 2a 48 69 29 2a  |%+140+(1000*Hi)*|
0000c220  28 4e 25 2d 62 62 25 29  2c 79 25 28 29 2c 65 69  |(N%-bb%),y%(),ei|
0000c230  25 28 29 29 3a 65 69 25  28 29 3d 79 25 28 29 3a  |%()):ei%()=y%():|
0000c240  ed 0d 3b 1c 05 cd 0d 3b  1e 07 cd 3a e1 0d 3b 24  |..;....;...:..;$|
0000c250  12 dd f2 74 61 3a e7 53  62 25 3e 32 34 30 8c 0d  |...ta:.Sb%>240..|
0000c260  3b 46 bc e3 4e 25 3d 53  62 25 b8 34 30 30 3a 53  |;F..N%=Sb%.400:S|
0000c270  69 28 4e 25 29 3d 53 69  28 4e 25 29 2b 28 33 35  |i(N%)=Si(N%)+(35|
0000c280  33 2e 39 33 2f 37 35 30  29 2a 67 69 28 53 62 25  |3.93/750)*gi(Sb%|
0000c290  2d 32 34 30 2c 30 29 2a  28 30 2e 33 2b 30 2e 30  |-240,0)*(0.3+0.0|
0000c2a0  30 31 2a 28 32 30 30 2d  28 4e 25 2d 53 62 25 29  |01*(200-(N%-Sb%)|
0000c2b0  29 2b 30 2e 35 2a a1 28  2d 28 4e 25 2d 53 62 25  |)+0.5*.(-(N%-Sb%|
0000c2c0  29 2f 28 32 35 2d 31 35  2a a1 28 2d 28 4e 25 2d  |)/(25-15*.(-(N%-|
0000c2d0  53 62 25 29 2f 32 30 29  29 29 29 3a 54 69 28 4e  |Sb%)/20)))):Ti(N|
0000c2e0  25 29 3d 54 69 28 4e 25  29 2b 28 31 37 31 37 2f  |%)=Ti(N%)+(1717/|
0000c2f0  34 39 30 30 29 2a 28 68  69 28 53 62 25 2d 32 34  |4900)*(hi(Sb%-24|
0000c300  30 2c 30 29 2b 31 35 35  29 2a a1 28 2d 28 4e 25  |0,0)+155)*.(-(N%|
0000c310  2d 53 62 25 29 2f 31 30  2e 35 29 0d 3b 4c e1 55  |-Sb%)/10.5).;L.U|
0000c320  69 28 4e 25 2c 31 29 3d  55 69 28 4e 25 2c 31 29  |i(N%,1)=Ui(N%,1)|
0000c330  2b 28 32 35 35 2f 36 32  35 34 29 2a 69 69 28 53  |+(255/6254)*ii(S|
0000c340  62 25 2d 32 34 30 2c 31  2c 30 29 2a a1 28 2d 28  |b%-240,1,0)*.(-(|
0000c350  4e 25 2d 53 62 25 29 2f  35 35 29 3a 55 69 28 4e  |N%-Sb%)/55):Ui(N|
0000c360  25 2c 32 29 3d 55 69 28  4e 25 2c 32 29 2b 28 34  |%,2)=Ui(N%,2)+(4|
0000c370  35 33 2f 39 37 37 37 29  2a 69 69 28 53 62 25 2d  |53/9777)*ii(Sb%-|
0000c380  32 34 30 2c 32 2c 30 29  2a a1 28 2d 28 4e 25 2d  |240,2,0)*.(-(N%-|
0000c390  53 62 25 29 2f 31 31 36  29 3a 55 69 28 4e 25 2c  |Sb%)/116):Ui(N%,|
0000c3a0  33 29 3d 55 69 28 4e 25  2c 33 29 2b 28 31 31 30  |3)=Ui(N%,3)+(110|
0000c3b0  2f 31 33 34 34 29 2a 69  69 28 53 62 25 2d 32 34  |/1344)*ii(Sb%-24|
0000c3c0  30 2c 33 2c 30 29 2a a1  28 2d 28 4e 25 2d 53 62  |0,3,0)*.(-(N%-Sb|
0000c3d0  25 29 2f 31 35 2e 38 29  3a 55 69 28 4e 25 2c 30  |%)/15.8):Ui(N%,0|
0000c3e0  29 3d 55 69 28 4e 25 2c  31 29 2b 55 69 28 4e 25  |)=Ui(N%,1)+Ui(N%|
0000c3f0  2c 32 29 2b 55 69 28 4e  25 2c 33 29 0d 3b 54 42  |,2)+Ui(N%,3).;TB|
0000c400  59 69 28 4e 25 29 3d 59  69 28 4e 25 29 2b 28 33  |Yi(N%)=Yi(N%)+(3|
0000c410  30 39 2e 36 38 2f 31 35  30 30 29 2a 6a 69 28 53  |09.68/1500)*ji(S|
0000c420  62 25 2d 32 34 30 2c 30  29 2a a1 28 2d 28 4e 25  |b%-240,0)*.(-(N%|
0000c430  2d 53 62 25 29 2f 31 33  32 29 3a ed 4e 25 0d 3b  |-Sb%)/132):.N%.;|
0000c440  58 c5 cd 3a 61 69 28 53  62 25 29 3d 36 2e 33 2a  |X..:ai(Sb%)=6.3*|
0000c450  aa 28 53 69 28 53 62 25  29 2f 32 37 37 29 3a 62  |.(Si(Sb%)/277):b|
0000c460  69 28 53 62 25 29 3d 30  2e 30 33 36 2a 28 b6 28  |i(Sb%)=0.036*(.(|
0000c470  54 69 28 53 62 25 29 29  2d b6 28 37 39 30 29 29  |Ti(Sb%))-.(790))|
0000c480  3a 64 69 28 53 62 25 2c  31 29 3d 30 2e 32 32 2a  |:di(Sb%,1)=0.22*|
0000c490  55 69 28 53 62 25 2c 31  29 2f 31 30 30 30 3a 64  |Ui(Sb%,1)/1000:d|
0000c4a0  69 28 53 62 25 2c 32 29  3d 30 2e 32 38 2a 55 69  |i(Sb%,2)=0.28*Ui|
0000c4b0  28 53 62 25 2c 32 29 2f  31 30 30 30 3a 64 69 28  |(Sb%,2)/1000:di(|
0000c4c0  53 62 25 2c 33 29 3d 30  2e 31 38 39 2a 55 69 28  |Sb%,3)=0.189*Ui(|
0000c4d0  53 62 25 2c 33 29 2f 31  30 30 30 3a 64 69 28 53  |Sb%,3)/1000:di(S|
0000c4e0  62 25 2c 30 29 3d 64 69  28 53 62 25 2c 31 29 2b  |b%,0)=di(Sb%,1)+|
0000c4f0  64 69 28 53 62 25 2c 32  29 2b 64 69 28 53 62 25  |di(Sb%,2)+di(Sb%|
0000c500  2c 33 29 0d 3b 6c 58 63  69 28 53 62 25 29 3d 30  |,3).;lXci(Sb%)=0|
0000c510  2e 31 34 2a 28 b6 28 59  69 28 53 62 25 29 29 2d  |.14*(.(Yi(Sb%))-|
0000c520  b6 28 32 38 35 2e 30 30  29 29 3a 52 69 28 53 62  |.(285.00)):Ri(Sb|
0000c530  25 29 3d 61 69 28 53 62  25 29 2b 62 69 28 53 62  |%)=ai(Sb%)+bi(Sb|
0000c540  25 29 2b 64 69 28 53 62  25 2c 30 29 2b 63 69 28  |%)+di(Sb%,0)+ci(|
0000c550  53 62 25 29 3a c8 8e 43  64 25 ca 0d 3b 76 1a c9  |Sb%):..Cd%..;v..|
0000c560  30 3a 74 28 53 62 25 29  3d a4 6b 69 28 52 69 28  |0:t(Sb%)=.ki(Ri(|
0000c570  53 62 25 29 29 0d 3b 78  1a c9 31 3a 74 28 53 62  |Sb%)).;x..1:t(Sb|
0000c580  25 29 3d a4 6c 69 28 52  69 28 53 62 25 29 29 0d  |%)=.li(Ri(Sb%)).|
0000c590  3b 7a 1a c9 32 3a 74 28  53 62 25 29 3d a4 6d 69  |;z..2:t(Sb%)=.mi|
0000c5a0  28 52 69 28 53 62 25 29  29 0d 3b 7c 1a c9 33 3a  |(Ri(Sb%)).;|..3:|
0000c5b0  74 28 53 62 25 29 3d a4  6e 69 28 52 69 28 53 62  |t(Sb%)=.ni(Ri(Sb|
0000c5c0  25 29 29 0d 3b 7e 17 cb  3a 54 62 25 3d 53 62 25  |%)).;~..:Tb%=Sb%|
0000c5d0  3a e7 ac 75 60 25 8c f2  6f 69 0d 3b 88 11 f2 4a  |:..u`%..oi.;...J|
0000c5e0  62 3a e7 53 62 25 3d 5a  62 25 8c 0d 3b 90 53 72  |b:.Sb%=Zb%..;.Sr|
0000c5f0  60 25 3d a3 3a 73 60 25  3d a3 3a f2 52 62 28 4d  |`%=.:s`%=.:.Rb(M|
0000c600  61 25 2c 31 29 3a f2 52  62 28 4d 61 25 2c 32 29  |a%,1):.Rb(Ma%,2)|
0000c610  3a 53 62 25 3d 32 34 30  3a 77 60 25 3d b9 3a c8  |:Sb%=240:w`%=.:.|
0000c620  99 32 36 32 33 35 33 2c  4d 61 25 2c 30 2c 2d 39  |.262353,Ma%,0,-9|
0000c630  36 30 2c 31 32 38 30 2c  2d 31 35 30 3a e1 0d 3b  |60,1280,-150:..;|
0000c640  9e 0e cd 3a 53 62 25 2b  3d 31 3a e1 0d 3b a6 5b  |...:Sb%+=1:..;.[|
0000c650  dd f2 6f 69 3a ea 79 25  2c 73 2c 65 25 2c 4c 69  |..oi:.y%,s,e%,Li|
0000c660  2c 70 69 25 3a 4c 69 3d  31 30 30 30 2a 48 69 3a  |,pi%:Li=1000*Hi:|
0000c670  70 69 25 3d 31 3a e7 6e  62 25 3e 4c 69 84 7a 62  |pi%=1:.nb%>Li.zb|
0000c680  25 3e 4c 69 84 4a 63 25  3e 4c 69 84 57 63 25 3e  |%>Li.Jc%>Li.Wc%>|
0000c690  4c 69 84 69 63 25 3e 4c  69 84 63 63 25 3e 4c 69  |Li.ic%>Li.cc%>Li|
0000c6a0  8c 3a 70 69 25 3d 32 0d  3b b4 aa 21 58 5f 25 3d  |.:pi%=2.;..!X_%=|
0000c6b0  4d 61 25 3a c8 99 32 36  32 33 34 37 2c 2c 58 5f  |Ma%:..262347,,X_|
0000c6c0  25 3a 4e 62 25 3d 58 5f  25 21 34 2d 58 5f 25 21  |%:Nb%=X_%!4-X_%!|
0000c6d0  32 30 3a 4f 62 25 3d 58  5f 25 21 31 36 2d 58 5f  |20:Ob%=X_%!16-X_|
0000c6e0  25 21 32 34 3a 58 5f 25  21 34 3d 31 34 30 2b 4c  |%!24:X_%!4=140+L|
0000c6f0  69 2a 28 53 62 25 2d 62  62 25 2d 70 69 25 29 3a  |i*(Sb%-bb%-pi%):|
0000c700  58 5f 25 21 31 32 3d 31  34 30 2b 4c 69 2a 28 53  |X_%!12=140+Li*(S|
0000c710  62 25 2d 62 62 25 2b 70  69 25 29 3a 58 5f 25 21  |b%-bb%+pi%):X_%!|
0000c720  38 3d 2d 37 30 30 3a 58  5f 25 21 31 36 3d 2d 32  |8=-700:X_%!16=-2|
0000c730  30 30 3a c8 99 32 36 32  33 34 35 2c 2c 58 5f 25  |00:..262345,,X_%|
0000c740  b8 74 68 25 3a c8 95 74  68 25 3a e7 ac 6f 63 25  |.th%:..th%:..oc%|
0000c750  8c 0d 3b c6 0a c8 8e 68  62 25 ca 0d 3b c8 3d c9  |..;....hb%..;.=.|
0000c760  31 3a 79 25 3d 4f 62 25  2d 37 30 30 2b 35 30 30  |1:y%=Ob%-700+500|
0000c770  30 2a 6e 62 2a 28 74 28  53 62 25 29 2d 32 37 33  |0*nb*(t(Sb%)-273|
0000c780  2d 28 72 62 25 2b 61 64  25 29 2f 31 30 29 3a e7  |-(rb%+ad%)/10):.|
0000c790  53 62 25 3d 32 34 30 8c  0d 3b ce 0a 4f 69 25 3d  |Sb%=240..;..Oi%=|
0000c7a0  79 25 0d 3b d0 3e cc 3a  e7 6c 62 25 8c 3a f2 51  |y%.;.>.:.lb%.:.Q|
0000c7b0  69 28 74 62 25 2c 4e 62  25 2b 31 34 30 2b 28 31  |i(tb%,Nb%+140+(1|
0000c7c0  30 30 30 2a 48 69 29 2a  28 53 62 25 2d 62 62 25  |000*Hi)*(Sb%-bb%|
0000c7d0  29 2c 79 25 2c 4f 69 25  2c 6e 62 25 2c 79 25 29  |),y%,Oi%,nb%,y%)|
0000c7e0  0d 3b d4 0a 4f 69 25 3d  79 25 0d 3b d6 05 cd 0d  |.;..Oi%=y%.;....|
0000c7f0  3b d8 3a c9 32 3a 79 25  3d 4f 62 25 2d 37 30 30  |;.:.2:y%=Ob%-700|
0000c800  2b 35 30 30 30 2a 7a 62  2a 28 52 69 28 53 62 25  |+5000*zb*(Ri(Sb%|
0000c810  29 2d 28 60 62 25 2b 62  64 25 29 2f 31 30 29 3a  |)-(`b%+bd%)/10):|
0000c820  e7 53 62 25 3d 32 34 30  8c 0d 3b de 0a 4f 69 25  |.Sb%=240..;..Oi%|
0000c830  3d 79 25 0d 3b e0 3e cc  3a e7 79 62 25 8c 3a f2  |=y%.;.>.:.yb%.:.|
0000c840  51 69 28 41 63 25 2c 4e  62 25 2b 31 34 30 2b 28  |Qi(Ac%,Nb%+140+(|
0000c850  31 30 30 30 2a 48 69 29  2a 28 53 62 25 2d 62 62  |1000*Hi)*(Sb%-bb|
0000c860  25 29 2c 79 25 2c 4f 69  25 2c 7a 62 25 2c 79 25  |%),y%,Oi%,zb%,y%|
0000c870  29 0d 3b e4 0a 4f 69 25  3d 79 25 0d 3b e6 05 cd  |).;..Oi%=y%.;...|
0000c880  0d 3b e8 0c cb 3a c8 8e  44 63 25 ca 0d 3b ec 36  |.;...:..Dc%..;.6|
0000c890  c9 31 3a 79 25 3d 4f 62  25 2d 37 30 30 2b 35 30  |.1:y%=Ob%-700+50|
0000c8a0  30 2a 4a 63 2a 28 53 69  28 53 62 25 29 2d 28 4e  |0*Jc*(Si(Sb%)-(N|
0000c8b0  63 25 2b 63 64 25 29 29  3a e7 53 62 25 3d 32 34  |c%+cd%)):.Sb%=24|
0000c8c0  30 8c 0d 3b f2 0a 50 69  25 3d 79 25 0d 3b f4 3e  |0..;..Pi%=y%.;.>|
0000c8d0  cc 3a e7 48 63 25 8c 3a  f2 51 69 28 51 63 25 2c  |.:.Hc%.:.Qi(Qc%,|
0000c8e0  4e 62 25 2b 31 34 30 2b  28 31 30 30 30 2a 48 69  |Nb%+140+(1000*Hi|
0000c8f0  29 2a 28 53 62 25 2d 62  62 25 29 2c 79 25 2c 50  |)*(Sb%-bb%),y%,P|
0000c900  69 25 2c 4a 63 25 2c 79  25 29 0d 3b f8 0a 50 69  |i%,Jc%,y%).;..Pi|
0000c910  25 3d 79 25 0d 3b fa 05  cd 0d 3b fc 36 c9 32 3a  |%=y%.;....;.6.2:|
0000c920  79 25 3d 4f 62 25 2d 37  30 30 2b 35 30 30 2a 57  |y%=Ob%-700+500*W|
0000c930  63 2a 28 54 69 28 53 62  25 29 2d 28 59 63 25 2b  |c*(Ti(Sb%)-(Yc%+|
0000c940  64 64 25 29 29 3a e7 53  62 25 3d 32 34 30 8c 0d  |dd%)):.Sb%=240..|
0000c950  3c 02 0a 50 69 25 3d 79  25 0d 3c 04 3e cc 3a e7  |<..Pi%=y%.<.>.:.|
0000c960  56 63 25 8c 3a f2 51 69  28 5a 63 25 2c 4e 62 25  |Vc%.:.Qi(Zc%,Nb%|
0000c970  2b 31 34 30 2b 28 31 30  30 30 2a 48 69 29 2a 28  |+140+(1000*Hi)*(|
0000c980  53 62 25 2d 62 62 25 29  2c 79 25 2c 50 69 25 2c  |Sb%-bb%),y%,Pi%,|
0000c990  57 63 25 2c 79 25 29 0d  3c 08 0a 50 69 25 3d 79  |Wc%,y%).<..Pi%=y|
0000c9a0  25 0d 3c 0a 05 cd 0d 3c  0c 0d c9 33 3a e7 ac 6e  |%.<....<...3:..n|
0000c9b0  63 25 8c 0d 3c 10 38 79  25 3d 4f 62 25 2d 37 30  |c%..<.8y%=Ob%-70|
0000c9c0  30 2b 35 30 30 2a 63 63  2a 28 55 69 28 53 62 25  |0+500*cc*(Ui(Sb%|
0000c9d0  2c 30 29 2d 28 65 63 25  2b 65 64 25 28 30 29 29  |,0)-(ec%+ed%(0))|
0000c9e0  29 3a e7 53 62 25 3d 32  34 30 8c 0d 3c 14 0a 50  |):.Sb%=240..<..P|
0000c9f0  69 25 3d 79 25 0d 3c 16  41 cc 3a e7 62 63 25 8c  |i%=y%.<.A.:.bc%.|
0000ca00  3a f2 51 69 28 66 63 25  28 30 29 2c 4e 62 25 2b  |:.Qi(fc%(0),Nb%+|
0000ca10  31 34 30 2b 28 31 30 30  30 2a 48 69 29 2a 28 53  |140+(1000*Hi)*(S|
0000ca20  62 25 2d 62 62 25 29 2c  79 25 2c 50 69 25 2c 63  |b%-bb%),y%,Pi%,c|
0000ca30  63 25 2c 79 25 29 0d 3c  1a 0a 50 69 25 3d 79 25  |c%,y%).<..Pi%=y%|
0000ca40  0d 3c 1c 05 cd 0d 3c 1e  3a cc 3a 79 25 3d 4f 62  |.<....<.:.:y%=Ob|
0000ca50  25 2d 37 30 30 2b 35 30  30 2a 63 63 2a 28 55 69  |%-700+500*cc*(Ui|
0000ca60  28 53 62 25 2c 31 29 2d  28 65 63 25 2b 65 64 25  |(Sb%,1)-(ec%+ed%|
0000ca70  28 31 29 29 29 3a e7 53  62 25 3d 32 34 30 8c 0d  |(1))):.Sb%=240..|
0000ca80  3c 24 0a 56 69 25 3d 79  25 0d 3c 26 41 cc 3a e7  |<$.Vi%=y%.<&A.:.|
0000ca90  62 63 25 8c 3a f2 51 69  28 66 63 25 28 31 29 2c  |bc%.:.Qi(fc%(1),|
0000caa0  4e 62 25 2b 31 34 30 2b  28 31 30 30 30 2a 48 69  |Nb%+140+(1000*Hi|
0000cab0  29 2a 28 53 62 25 2d 62  62 25 29 2c 79 25 2c 56  |)*(Sb%-bb%),y%,V|
0000cac0  69 25 2c 63 63 25 2c 79  25 29 0d 3c 2a 0a 56 69  |i%,cc%,y%).<*.Vi|
0000cad0  25 3d 79 25 0d 3c 2c 3a  cd 3a 79 25 3d 4f 62 25  |%=y%.<,:.:y%=Ob%|
0000cae0  2d 37 30 30 2b 35 30 30  2a 63 63 2a 28 55 69 28  |-700+500*cc*(Ui(|
0000caf0  53 62 25 2c 32 29 2d 28  65 63 25 2b 65 64 25 28  |Sb%,2)-(ec%+ed%(|
0000cb00  32 29 29 29 3a e7 53 62  25 3d 32 34 30 8c 0d 3c  |2))):.Sb%=240..<|
0000cb10  32 0a 57 69 25 3d 79 25  0d 3c 34 41 cc 3a e7 62  |2.Wi%=y%.<4A.:.b|
0000cb20  63 25 8c 3a f2 51 69 28  66 63 25 28 32 29 2c 4e  |c%.:.Qi(fc%(2),N|
0000cb30  62 25 2b 31 34 30 2b 28  31 30 30 30 2a 48 69 29  |b%+140+(1000*Hi)|
0000cb40  2a 28 53 62 25 2d 62 62  25 29 2c 79 25 2c 57 69  |*(Sb%-bb%),y%,Wi|
0000cb50  25 2c 63 63 25 2c 79 25  29 0d 3c 38 0a 57 69 25  |%,cc%,y%).<8.Wi%|
0000cb60  3d 79 25 0d 3c 3a 3a cd  3a 79 25 3d 4f 62 25 2d  |=y%.<::.:y%=Ob%-|
0000cb70  37 30 30 2b 35 30 30 2a  63 63 2a 28 55 69 28 53  |700+500*cc*(Ui(S|
0000cb80  62 25 2c 33 29 2d 28 65  63 25 2b 65 64 25 28 33  |b%,3)-(ec%+ed%(3|
0000cb90  29 29 29 3a e7 53 62 25  3d 32 34 30 8c 0d 3c 40  |))):.Sb%=240..<@|
0000cba0  0a 58 69 25 3d 79 25 0d  3c 42 41 cc 3a e7 62 63  |.Xi%=y%.<BA.:.bc|
0000cbb0  25 8c 3a f2 51 69 28 66  63 25 28 33 29 2c 4e 62  |%.:.Qi(fc%(3),Nb|
0000cbc0  25 2b 31 34 30 2b 28 31  30 30 30 2a 48 69 29 2a  |%+140+(1000*Hi)*|
0000cbd0  28 53 62 25 2d 62 62 25  29 2c 79 25 2c 58 69 25  |(Sb%-bb%),y%,Xi%|
0000cbe0  2c 63 63 25 2c 79 25 29  0d 3c 46 0a 58 69 25 3d  |,cc%,y%).<F.Xi%=|
0000cbf0  79 25 0d 3c 48 05 cd 0d  3c 4a 05 cd 0d 3c 4c 3d  |y%.<H...<J...<L=|
0000cc00  c9 34 3a 79 25 3d 4f 62  25 2d 37 30 30 2b 35 30  |.4:y%=Ob%-700+50|
0000cc10  30 2a 69 63 2a 28 59 69  28 53 62 25 29 2d 28 6b  |0*ic*(Yi(Sb%)-(k|
0000cc20  63 25 2b 66 64 25 29 29  3a e7 53 62 25 3d 32 34  |c%+fd%)):.Sb%=24|
0000cc30  30 8c 3a 50 69 25 3d 79  25 0d 3c 52 3c e7 68 63  |0.:Pi%=y%.<R<.hc|
0000cc40  25 8c 3a f2 51 69 28 6c  63 25 2c 4e 62 25 2b 31  |%.:.Qi(lc%,Nb%+1|
0000cc50  34 30 2b 28 31 30 30 30  2a 48 69 29 2a 28 53 62  |40+(1000*Hi)*(Sb|
0000cc60  25 2d 62 62 25 29 2c 79  25 2c 50 69 25 2c 69 63  |%-bb%),y%,Pi%,ic|
0000cc70  25 2c 79 25 29 0d 3c 54  0a 50 69 25 3d 79 25 0d  |%,y%).<T.Pi%=y%.|
0000cc80  3c 56 05 cb 0d 3c 58 0c  cc 3a e7 ac 48 63 25 8c  |<V...<X..:..Hc%.|
0000cc90  0d 3c 5b c1 5a 69 25 3d  7a 62 25 3a 73 3d 35 30  |.<[.Zi%=zb%:s=50|
0000cca0  30 2a 7a 62 3a 79 25 28  31 29 3d 4f 62 25 2d 37  |0*zb:y%(1)=Ob%-7|
0000ccb0  30 30 2b 73 2a 31 30 2a  61 69 28 53 62 25 29 3a  |00+s*10*ai(Sb%):|
0000ccc0  65 25 28 31 29 3d 73 2a  67 64 25 3a 79 25 28 32  |e%(1)=s*gd%:y%(2|
0000ccd0  29 3d 79 25 28 31 29 2b  73 2a 31 30 2a 62 69 28  |)=y%(1)+s*10*bi(|
0000cce0  53 62 25 29 3a 65 25 28  32 29 3d 65 25 28 31 29  |Sb%):e%(2)=e%(1)|
0000ccf0  2b 73 2a 68 64 25 3a 79  25 28 33 29 3d 79 25 28  |+s*hd%:y%(3)=y%(|
0000cd00  32 29 2b 73 2a 31 30 2a  63 69 28 53 62 25 29 3a  |2)+s*10*ci(Sb%):|
0000cd10  65 25 28 33 29 3d 65 25  28 32 29 2b 73 2a 69 64  |e%(3)=e%(2)+s*id|
0000cd20  25 3a 79 25 28 34 29 3d  79 25 28 33 29 2b 73 2a  |%:y%(4)=y%(3)+s*|
0000cd30  31 30 2a 64 69 28 53 62  25 2c 30 29 3a 65 25 28  |10*di(Sb%,0):e%(|
0000cd40  34 29 3d 65 25 28 33 29  2b 73 2a 6a 64 25 28 30  |4)=e%(3)+s*jd%(0|
0000cd50  29 0d 3c 66 b8 79 25 28  35 29 3d 79 25 28 33 29  |).<f.y%(5)=y%(3)|
0000cd60  2b 73 2a 31 30 2a 64 69  28 53 62 25 2c 31 29 3a  |+s*10*di(Sb%,1):|
0000cd70  65 25 28 35 29 3d 65 25  28 33 29 2b 73 2a 6a 64  |e%(5)=e%(3)+s*jd|
0000cd80  25 28 31 29 3a 79 25 28  36 29 3d 79 25 28 35 29  |%(1):y%(6)=y%(5)|
0000cd90  2b 73 2a 31 30 2a 64 69  28 53 62 25 2c 32 29 3a  |+s*10*di(Sb%,2):|
0000cda0  65 25 28 36 29 3d 65 25  28 35 29 2b 73 2a 6a 64  |e%(6)=e%(5)+s*jd|
0000cdb0  25 28 32 29 3a 79 25 28  37 29 3d 79 25 28 36 29  |%(2):y%(7)=y%(6)|
0000cdc0  2b 73 2a 31 30 2a 64 69  28 53 62 25 2c 33 29 3a  |+s*10*di(Sb%,3):|
0000cdd0  65 25 28 37 29 3d 65 25  28 36 29 2b 73 2a 6a 64  |e%(7)=e%(6)+s*jd|
0000cde0  25 28 33 29 3a 65 25 28  29 2b 3d 73 2a 60 62 25  |%(3):e%()+=s*`b%|
0000cdf0  3a 79 25 28 29 3d 79 25  28 29 2d 65 25 28 29 3a  |:y%()=y%()-e%():|
0000ce00  e7 53 62 25 3d 32 34 30  8c 0d 3c 72 0e 71 69 25  |.Sb%=240..<r.qi%|
0000ce10  28 29 3d 79 25 28 29 0d  3c 74 37 cc 3a e7 79 62  |()=y%().<t7.:.yb|
0000ce20  25 8c 3a f2 66 69 28 4e  62 25 2b 31 34 30 2b 28  |%.:.fi(Nb%+140+(|
0000ce30  31 30 30 30 2a 48 69 29  2a 28 53 62 25 2d 62 62  |1000*Hi)*(Sb%-bb|
0000ce40  25 29 2c 79 25 28 29 2c  71 69 25 28 29 29 0d 3c  |%),y%(),qi%()).<|
0000ce50  78 0e 71 69 25 28 29 3d  79 25 28 29 0d 3c 7a 05  |x.qi%()=y%().<z.|
0000ce60  cd 0d 3c 7c 0c cd 3a e7  ac 79 62 25 8c 0d 3c 7f  |..<|..:..yb%..<.|
0000ce70  c6 5a 69 25 3d 4a 63 25  3a 73 3d 35 30 30 2a 4a  |.Zi%=Jc%:s=500*J|
0000ce80  63 3a 79 25 28 31 29 3d  4f 62 25 2d 37 30 30 2b  |c:y%(1)=Ob%-700+|
0000ce90  73 2a 53 69 28 53 62 25  29 3a 65 25 28 31 29 3d  |s*Si(Sb%):e%(1)=|
0000cea0  30 3a 79 25 28 32 29 3d  79 25 28 31 29 2b 73 2a  |0:y%(2)=y%(1)+s*|
0000ceb0  28 32 37 37 2a a1 28 62  69 28 53 62 25 29 2f 36  |(277*.(bi(Sb%)/6|
0000cec0  2e 33 29 2d 32 37 37 29  3a 65 25 28 32 29 3d 65  |.3)-277):e%(2)=e|
0000ced0  25 28 31 29 2b 73 2a 28  32 37 37 2a a1 28 68 64  |%(1)+s*(277*.(hd|
0000cee0  25 2f 36 33 29 2d 32 37  37 29 3a 79 25 28 33 29  |%/63)-277):y%(3)|
0000cef0  3d 79 25 28 32 29 2b 73  2a 28 32 37 37 2a a1 28  |=y%(2)+s*(277*.(|
0000cf00  63 69 28 53 62 25 29 2f  36 2e 33 29 2d 32 37 37  |ci(Sb%)/6.3)-277|
0000cf10  29 3a 65 25 28 33 29 3d  65 25 28 32 29 2b 73 2a  |):e%(3)=e%(2)+s*|
0000cf20  28 32 37 37 2a a1 28 69  64 25 2f 36 33 29 2d 32  |(277*.(id%/63)-2|
0000cf30  37 37 29 0d 3c 88 9f 79  25 28 34 29 3d 79 25 28  |77).<..y%(4)=y%(|
0000cf40  33 29 2b 73 2a 28 32 37  37 2a a1 28 64 69 28 53  |3)+s*(277*.(di(S|
0000cf50  62 25 2c 30 29 2f 36 2e  33 29 2d 32 37 37 29 3a  |b%,0)/6.3)-277):|
0000cf60  65 25 28 34 29 3d 65 25  28 33 29 2b 73 2a 28 32  |e%(4)=e%(3)+s*(2|
0000cf70  37 37 2a a1 28 6a 64 25  28 30 29 2f 36 33 29 2d  |77*.(jd%(0)/63)-|
0000cf80  32 37 37 29 3a 79 25 28  35 29 3d 79 25 28 33 29  |277):y%(5)=y%(3)|
0000cf90  2b 73 2a 28 32 37 37 2a  a1 28 64 69 28 53 62 25  |+s*(277*.(di(Sb%|
0000cfa0  2c 31 29 2f 36 2e 33 29  2d 32 37 37 29 3a 65 25  |,1)/6.3)-277):e%|
0000cfb0  28 35 29 3d 65 25 28 33  29 2b 73 2a 28 32 37 37  |(5)=e%(3)+s*(277|
0000cfc0  2a a1 28 6a 64 25 28 31  29 2f 36 33 29 2d 32 37  |*.(jd%(1)/63)-27|
0000cfd0  37 29 0d 3c 8c d1 79 25  28 36 29 3d 79 25 28 35  |7).<..y%(6)=y%(5|
0000cfe0  29 2b 73 2a 28 32 37 37  2a a1 28 64 69 28 53 62  |)+s*(277*.(di(Sb|
0000cff0  25 2c 32 29 2f 36 2e 33  29 2d 32 37 37 29 3a 65  |%,2)/6.3)-277):e|
0000d000  25 28 36 29 3d 65 25 28  35 29 2b 73 2a 28 32 37  |%(6)=e%(5)+s*(27|
0000d010  37 2a a1 28 6a 64 25 28  32 29 2f 36 33 29 2d 32  |7*.(jd%(2)/63)-2|
0000d020  37 37 29 3a 79 25 28 37  29 3d 79 25 28 36 29 2b  |77):y%(7)=y%(6)+|
0000d030  73 2a 28 32 37 37 2a a1  28 64 69 28 53 62 25 2c  |s*(277*.(di(Sb%,|
0000d040  33 29 2f 36 2e 33 29 2d  32 37 37 29 3a 65 25 28  |3)/6.3)-277):e%(|
0000d050  37 29 3d 65 25 28 36 29  2b 73 2a 28 32 37 37 2a  |7)=e%(6)+s*(277*|
0000d060  a1 28 6a 64 25 28 33 29  2f 36 33 29 2d 32 37 37  |.(jd%(3)/63)-277|
0000d070  29 3a 65 25 28 29 3d 30  3a 65 25 28 29 2b 3d 73  |):e%()=0:e%()+=s|
0000d080  2a 28 4e 63 25 2b 63 64  25 29 3a 79 25 28 29 3d  |*(Nc%+cd%):y%()=|
0000d090  79 25 28 29 2d 65 25 28  29 3a e7 53 62 25 3d 32  |y%()-e%():.Sb%=2|
0000d0a0  34 30 8c 0d 3c 98 0e 71  69 25 28 29 3d 79 25 28  |40..<..qi%()=y%(|
0000d0b0  29 0d 3c 9a 37 cc 3a e7  48 63 25 8c 3a f2 66 69  |).<.7.:.Hc%.:.fi|
0000d0c0  28 4e 62 25 2b 31 34 30  2b 28 31 30 30 30 2a 48  |(Nb%+140+(1000*H|
0000d0d0  69 29 2a 28 53 62 25 2d  62 62 25 29 2c 79 25 28  |i)*(Sb%-bb%),y%(|
0000d0e0  29 2c 71 69 25 28 29 29  0d 3c 9e 0e 71 69 25 28  |),qi%()).<..qi%(|
0000d0f0  29 3d 79 25 28 29 0d 3c  a0 05 cd 0d 3c a2 05 cd  |)=y%().<....<...|
0000d100  0d 3c a4 1b cd 3a c8 99  32 36 32 33 34 36 2c 2c  |.<...:..262346,,|
0000d110  58 5f 25 b8 74 68 25 3a  ce 3a e1 0d 3c ae 42 dd  |X_%.th%:.:..<.B.|
0000d120  f2 51 69 28 4e 69 25 2c  78 25 2c 79 25 2c 65 69  |.Qi(Ni%,x%,y%,ei|
0000d130  25 2c 6c 68 25 2c f8 79  25 29 3a ea 72 69 3a e7  |%,lh%,.y%):.ri:.|
0000d140  28 78 25 2d 4e 62 25 29  3e 31 31 34 30 84 28 78  |(x%-Nb%)>1140.(x|
0000d150  25 2d 4e 62 25 29 3c 31  34 30 8c 3a e1 0d 3c b8  |%-Nb%)<140.:..<.|
0000d160  21 e7 78 25 2d 4e 62 25  3d 31 34 30 8c 72 69 3d  |!.x%-Nb%=140.ri=|
0000d170  30 8b 72 69 3d 28 31 30  30 30 2a 48 69 29 0d 3c  |0.ri=(1000*Hi).<|
0000d180  ba 2a 79 25 3d a4 73 69  28 79 25 2c 4f 62 25 29  |.*y%=.si(y%,Ob%)|
0000d190  3a 65 69 25 3d a4 73 69  28 65 69 25 2c 4f 62 25  |:ei%=.si(ei%,Ob%|
0000d1a0  29 3a e7 ac 6d 63 25 8c  0d 3c be 0a c8 8e 71 63  |):..mc%..<....qc|
0000d1b0  25 ca 0d 3c c0 2d c9 31  3a c8 99 32 36 32 33 37  |%..<.-.1:..26237|
0000d1c0  34 2c 4e 69 25 3a c8 8f  c8 90 78 25 2c 79 25 2c  |4,Ni%:....x%,y%,|
0000d1d0  a4 74 69 28 79 25 2c 4f  62 25 2c 6c 68 25 29 0d  |.ti(y%,Ob%,lh%).|
0000d1e0  3c c2 6d c9 32 3a c8 99  32 36 32 33 37 34 2c 4e  |<.m.2:..262374,N|
0000d1f0  69 25 3a 86 78 25 2d a4  74 69 28 79 25 2c 4f 62  |i%:.x%-.ti(y%,Ob|
0000d200  25 2c 6c 68 25 29 2c 79  25 2c 78 25 2b a4 74 69  |%,lh%),y%,x%+.ti|
0000d210  28 79 25 2c 4f 62 25 2c  6c 68 25 29 2c 79 25 3a  |(y%,Ob%,lh%),y%:|
0000d220  86 78 25 2c 79 25 2d a4  74 69 28 79 25 2c 4f 62  |.x%,y%-.ti(y%,Ob|
0000d230  25 2c 6c 68 25 29 2c 78  25 2c 79 25 2b a4 74 69  |%,lh%),x%,y%+.ti|
0000d240  28 79 25 2c 4f 62 25 2c  6c 68 25 29 0d 3c c4 2b  |(y%,Ob%,lh%).<.+|
0000d250  c9 33 3a c8 99 32 36 32  33 37 34 2c 4e 69 25 3a  |.3:..262374,Ni%:|
0000d260  86 78 25 2d 28 31 30 30  30 2a 48 69 29 2c 65 69  |.x%-(1000*Hi),ei|
0000d270  25 2c 78 25 2c 79 25 0d  3c c6 05 cb 0d 3c c8 65  |%,x%,y%.<....<.e|
0000d280  cc 3a c8 99 32 36 32 33  37 34 2c 4e 69 25 3a ec  |.:..262374,Ni%:.|
0000d290  78 25 2d 72 69 2c 4f 62  25 2d 36 39 39 3a ec 78  |x%-ri,Ob%-699:.x|
0000d2a0  25 2d 72 69 2c 65 69 25  3a f0 26 35 35 2c 78 25  |%-ri,ei%:.&55,x%|
0000d2b0  2c 79 25 3a ec 78 25 2c  79 25 3a ec 78 25 2c 4f  |,y%:.x%,y%:.x%,O|
0000d2c0  62 25 2d 36 39 39 3a f0  26 35 35 2c 78 25 2d 72  |b%-699:.&55,x%-r|
0000d2d0  69 2c 4f 62 25 2d 36 39  39 3a e7 71 63 25 3d 33  |i,Ob%-699:.qc%=3|
0000d2e0  8c 0d 3c d2 26 c8 99 32  36 32 33 37 34 2c 37 3a  |..<.&..262374,7:|
0000d2f0  86 78 25 2d 28 31 30 30  30 2a 48 69 29 2c 65 69  |.x%-(1000*Hi),ei|
0000d300  25 2c 78 25 2c 79 25 0d  3c d4 05 cd 0d 3c d6 07  |%,x%,y%.<....<..|
0000d310  cd 3a e1 0d 3c dc 32 dd  f2 66 69 28 78 25 2c 79  |.:..<.2..fi(x%,y|
0000d320  25 28 29 2c 65 69 25 28  29 29 3a ea 72 69 3a e7  |%(),ei%()):.ri:.|
0000d330  78 25 3d 4e 62 25 2b 31  34 30 8c 72 69 3d 30 8b  |x%=Nb%+140.ri=0.|
0000d340  72 69 3d 48 69 0d 3c e8  22 e7 28 78 25 2d 4e 62  |ri=Hi.<.".(x%-Nb|
0000d350  25 29 3e 31 31 34 30 84  28 78 25 2d 4e 62 25 29  |%)>1140.(x%-Nb%)|
0000d360  3c 31 34 30 8c 3a e1 0d  3c ea 14 e7 6e 63 25 8c  |<140.:..<...nc%.|
0000d370  75 69 25 3d 37 8b 75 69  25 3d 34 0d 3c ec 48 e3  |ui%=7.ui%=4.<.H.|
0000d380  4d 25 3d 31 b8 75 69 25  3a 79 25 28 4d 25 29 3d  |M%=1.ui%:y%(M%)=|
0000d390  a4 73 69 28 79 25 28 4d  25 29 2c 4f 62 25 29 3a  |.si(y%(M%),Ob%):|
0000d3a0  65 69 25 28 4d 25 29 3d  a4 73 69 28 65 69 25 28  |ei%(M%)=.si(ei%(|
0000d3b0  4d 25 29 2c 4f 62 25 29  3a ed 4d 25 3a e7 ac 6d  |M%),Ob%):.M%:..m|
0000d3c0  63 25 8c 0d 3c f6 0a c8  8e 71 63 25 ca 0d 3c f8  |c%..<....qc%..<.|
0000d3d0  0c c9 31 3a e7 6e 63 25  8c 0d 3c fc 93 c8 99 32  |..1:.nc%..<....2|
0000d3e0  36 32 33 37 34 2c 66 63  25 28 33 29 3a c8 8f c8  |62374,fc%(3):...|
0000d3f0  90 78 25 2c 79 25 28 37  29 2c a4 74 69 28 79 25  |.x%,y%(7),.ti(y%|
0000d400  28 37 29 2c 4f 62 25 2c  5a 69 25 29 3a c8 99 32  |(7),Ob%,Zi%):..2|
0000d410  36 32 33 37 34 2c 66 63  25 28 32 29 3a c8 8f c8  |62374,fc%(2):...|
0000d420  90 78 25 2c 79 25 28 36  29 2c a4 74 69 28 79 25  |.x%,y%(6),.ti(y%|
0000d430  28 36 29 2c 4f 62 25 2c  5a 69 25 29 3a c8 99 32  |(6),Ob%,Zi%):..2|
0000d440  36 32 33 37 34 2c 66 63  25 28 31 29 3a c8 8f c8  |62374,fc%(1):...|
0000d450  90 78 25 2c 79 25 28 35  29 2c a4 74 69 28 79 25  |.x%,y%(5),.ti(y%|
0000d460  28 35 29 2c 4f 62 25 2c  5a 69 25 29 0d 3d 02 35  |(5),Ob%,Zi%).=.5|
0000d470  cc 3a c8 99 32 36 32 33  37 34 2c 66 63 25 28 30  |.:..262374,fc%(0|
0000d480  29 3a c8 8f c8 90 78 25  2c 79 25 28 34 29 2c a4  |):....x%,y%(4),.|
0000d490  74 69 28 79 25 28 34 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(4),Ob%,Zi%|
0000d4a0  29 0d 3d 06 8c cd 3a c8  99 32 36 32 33 37 34 2c  |).=...:..262374,|
0000d4b0  6c 63 25 3a c8 8f c8 90  78 25 2c 79 25 28 33 29  |lc%:....x%,y%(3)|
0000d4c0  2c a4 74 69 28 79 25 28  33 29 2c 4f 62 25 2c 5a  |,.ti(y%(3),Ob%,Z|
0000d4d0  69 25 29 3a c8 99 32 36  32 33 37 34 2c 5a 63 25  |i%):..262374,Zc%|
0000d4e0  3a c8 8f c8 90 78 25 2c  79 25 28 32 29 2c a4 74  |:....x%,y%(2),.t|
0000d4f0  69 28 79 25 28 32 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(2),Ob%,Zi%)|
0000d500  3a c8 99 32 36 32 33 37  34 2c 51 63 25 3a c8 8f  |:..262374,Qc%:..|
0000d510  c8 90 78 25 2c 79 25 28  31 29 2c a4 74 69 28 79  |..x%,y%(1),.ti(y|
0000d520  25 28 31 29 2c 4f 62 25  2c 5a 69 25 29 0d 3d 0e  |%(1),Ob%,Zi%).=.|
0000d530  0c c9 32 3a e7 6e 63 25  8c 0d 3d 12 ce c8 99 32  |..2:.nc%..=....2|
0000d540  36 32 33 37 34 2c 66 63  25 28 33 29 3a 86 78 25  |62374,fc%(3):.x%|
0000d550  2d a4 74 69 28 79 25 28  37 29 2c 4f 62 25 2c 5a  |-.ti(y%(7),Ob%,Z|
0000d560  69 25 29 2c 79 25 28 37  29 2c 78 25 2b a4 74 69  |i%),y%(7),x%+.ti|
0000d570  28 79 25 28 37 29 2c 4f  62 25 2c 5a 69 25 29 2c  |(y%(7),Ob%,Zi%),|
0000d580  79 25 28 37 29 3a 86 78  25 2c 79 25 28 37 29 2d  |y%(7):.x%,y%(7)-|
0000d590  a4 74 69 28 79 25 28 37  29 2c 4f 62 25 2c 5a 69  |.ti(y%(7),Ob%,Zi|
0000d5a0  25 29 2c 78 25 2c 79 25  28 37 29 2b a4 74 69 28  |%),x%,y%(7)+.ti(|
0000d5b0  79 25 28 37 29 2c 4f 62  25 2c 5a 69 25 29 3a c8  |y%(7),Ob%,Zi%):.|
0000d5c0  99 32 36 32 33 37 34 2c  66 63 25 28 32 29 3a 86  |.262374,fc%(2):.|
0000d5d0  78 25 2d a4 74 69 28 79  25 28 36 29 2c 4f 62 25  |x%-.ti(y%(6),Ob%|
0000d5e0  2c 5a 69 25 29 2c 79 25  28 36 29 2c 78 25 2b a4  |,Zi%),y%(6),x%+.|
0000d5f0  74 69 28 79 25 28 36 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(6),Ob%,Zi%|
0000d600  29 2c 79 25 28 36 29 0d  3d 19 be 86 78 25 2c 79  |),y%(6).=...x%,y|
0000d610  25 28 36 29 2d a4 74 69  28 79 25 28 36 29 2c 4f  |%(6)-.ti(y%(6),O|
0000d620  62 25 2c 5a 69 25 29 2c  78 25 2c 79 25 28 36 29  |b%,Zi%),x%,y%(6)|
0000d630  2b a4 74 69 28 79 25 28  36 29 2c 4f 62 25 2c 5a  |+.ti(y%(6),Ob%,Z|
0000d640  69 25 29 3a c8 99 32 36  32 33 37 34 2c 66 63 25  |i%):..262374,fc%|
0000d650  28 31 29 3a 86 78 25 2d  a4 74 69 28 79 25 28 35  |(1):.x%-.ti(y%(5|
0000d660  29 2c 4f 62 25 2c 5a 69  25 29 2c 79 25 28 35 29  |),Ob%,Zi%),y%(5)|
0000d670  2c 78 25 2b a4 74 69 28  79 25 28 35 29 2c 4f 62  |,x%+.ti(y%(5),Ob|
0000d680  25 2c 5a 69 25 29 2c 79  25 28 35 29 3a 86 78 25  |%,Zi%),y%(5):.x%|
0000d690  2c 79 25 28 35 29 2d a4  74 69 28 79 25 28 35 29  |,y%(5)-.ti(y%(5)|
0000d6a0  2c 4f 62 25 2c 5a 69 25  29 2c 78 25 2c 79 25 28  |,Ob%,Zi%),x%,y%(|
0000d6b0  35 29 2b a4 74 69 28 79  25 28 35 29 2c 4f 62 25  |5)+.ti(y%(5),Ob%|
0000d6c0  2c 5a 69 25 29 0d 3d 1e  87 cc 3a c8 99 32 36 32  |,Zi%).=...:..262|
0000d6d0  33 37 34 2c 66 63 25 28  30 29 3a 86 78 25 2d a4  |374,fc%(0):.x%-.|
0000d6e0  74 69 28 79 25 28 34 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(4),Ob%,Zi%|
0000d6f0  29 2c 79 25 28 34 29 2c  78 25 2b a4 74 69 28 79  |),y%(4),x%+.ti(y|
0000d700  25 28 34 29 2c 4f 62 25  2c 5a 69 25 29 2c 79 25  |%(4),Ob%,Zi%),y%|
0000d710  28 34 29 3a 86 78 25 2c  79 25 28 34 29 2d a4 74  |(4):.x%,y%(4)-.t|
0000d720  69 28 79 25 28 34 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(4),Ob%,Zi%)|
0000d730  2c 78 25 2c 79 25 28 34  29 2b a4 74 69 28 79 25  |,x%,y%(4)+.ti(y%|
0000d740  28 34 29 2c 4f 62 25 2c  5a 69 25 29 0d 3d 24 ca  |(4),Ob%,Zi%).=$.|
0000d750  cd 3a c8 99 32 36 32 33  37 34 2c 6c 63 25 3a 86  |.:..262374,lc%:.|
0000d760  78 25 2d a4 74 69 28 79  25 28 33 29 2c 4f 62 25  |x%-.ti(y%(3),Ob%|
0000d770  2c 5a 69 25 29 2c 79 25  28 33 29 2c 78 25 2b a4  |,Zi%),y%(3),x%+.|
0000d780  74 69 28 79 25 28 33 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(3),Ob%,Zi%|
0000d790  29 2c 79 25 28 33 29 3a  86 78 25 2c 79 25 28 33  |),y%(3):.x%,y%(3|
0000d7a0  29 2d a4 74 69 28 79 25  28 33 29 2c 4f 62 25 2c  |)-.ti(y%(3),Ob%,|
0000d7b0  5a 69 25 29 2c 78 25 2c  79 25 28 33 29 2b a4 74  |Zi%),x%,y%(3)+.t|
0000d7c0  69 28 79 25 28 33 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(3),Ob%,Zi%)|
0000d7d0  3a c8 99 32 36 32 33 37  34 2c 5a 63 25 3a 86 78  |:..262374,Zc%:.x|
0000d7e0  25 2d a4 74 69 28 79 25  28 32 29 2c 4f 62 25 2c  |%-.ti(y%(2),Ob%,|
0000d7f0  5a 69 25 29 2c 79 25 28  32 29 2c 78 25 2b a4 74  |Zi%),y%(2),x%+.t|
0000d800  69 28 79 25 28 32 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(2),Ob%,Zi%)|
0000d810  2c 79 25 28 32 29 0d 3d  2d bb 86 78 25 2c 79 25  |,y%(2).=-..x%,y%|
0000d820  28 32 29 2d a4 74 69 28  79 25 28 32 29 2c 4f 62  |(2)-.ti(y%(2),Ob|
0000d830  25 2c 5a 69 25 29 2c 78  25 2c 79 25 28 32 29 2b  |%,Zi%),x%,y%(2)+|
0000d840  a4 74 69 28 79 25 28 32  29 2c 4f 62 25 2c 5a 69  |.ti(y%(2),Ob%,Zi|
0000d850  25 29 3a c8 99 32 36 32  33 37 34 2c 51 63 25 3a  |%):..262374,Qc%:|
0000d860  86 78 25 2d a4 74 69 28  79 25 28 31 29 2c 4f 62  |.x%-.ti(y%(1),Ob|
0000d870  25 2c 5a 69 25 29 2c 79  25 28 31 29 2c 78 25 2b  |%,Zi%),y%(1),x%+|
0000d880  a4 74 69 28 79 25 28 31  29 2c 4f 62 25 2c 5a 69  |.ti(y%(1),Ob%,Zi|
0000d890  25 29 2c 79 25 28 31 29  3a 86 78 25 2c 79 25 28  |%),y%(1):.x%,y%(|
0000d8a0  31 29 2d a4 74 69 28 79  25 28 31 29 2c 4f 62 25  |1)-.ti(y%(1),Ob%|
0000d8b0  2c 5a 69 25 29 2c 78 25  2c 79 25 28 31 29 2b a4  |,Zi%),x%,y%(1)+.|
0000d8c0  74 69 28 79 25 28 31 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(1),Ob%,Zi%|
0000d8d0  29 0d 3d 32 0c c9 33 3a  e7 6e 63 25 8c 0d 3d 36  |).=2..3:.nc%..=6|
0000d8e0  8d c8 99 32 36 32 33 37  34 2c 66 63 25 28 33 29  |...262374,fc%(3)|
0000d8f0  3a 86 78 25 2d 28 31 30  30 30 2a 72 69 29 2c 65  |:.x%-(1000*ri),e|
0000d900  69 25 28 37 29 2c 78 25  2c 79 25 28 37 29 3a c8  |i%(7),x%,y%(7):.|
0000d910  99 32 36 32 33 37 34 2c  66 63 25 28 32 29 3a 86  |.262374,fc%(2):.|
0000d920  78 25 2d 28 31 30 30 30  2a 72 69 29 2c 65 69 25  |x%-(1000*ri),ei%|
0000d930  28 36 29 2c 78 25 2c 79  25 28 36 29 3a c8 99 32  |(6),x%,y%(6):..2|
0000d940  36 32 33 37 34 2c 66 63  25 28 31 29 3a 86 78 25  |62374,fc%(1):.x%|
0000d950  2d 28 31 30 30 30 2a 72  69 29 2c 65 69 25 28 35  |-(1000*ri),ei%(5|
0000d960  29 2c 78 25 2c 79 25 28  35 29 0d 3d 3c 33 cc 3a  |),x%,y%(5).=<3.:|
0000d970  c8 99 32 36 32 33 37 34  2c 66 63 25 28 30 29 3a  |..262374,fc%(0):|
0000d980  86 78 25 2d 28 31 30 30  30 2a 72 69 29 2c 65 69  |.x%-(1000*ri),ei|
0000d990  25 28 34 29 2c 78 25 2c  79 25 28 34 29 0d 3d 40  |%(4),x%,y%(4).=@|
0000d9a0  86 cd 3a c8 99 32 36 32  33 37 34 2c 6c 63 25 3a  |..:..262374,lc%:|
0000d9b0  86 78 25 2d 28 31 30 30  30 2a 72 69 29 2c 65 69  |.x%-(1000*ri),ei|
0000d9c0  25 28 33 29 2c 78 25 2c  79 25 28 33 29 3a c8 99  |%(3),x%,y%(3):..|
0000d9d0  32 36 32 33 37 34 2c 5a  63 25 3a 86 78 25 2d 28  |262374,Zc%:.x%-(|
0000d9e0  31 30 30 30 2a 72 69 29  2c 65 69 25 28 32 29 2c  |1000*ri),ei%(2),|
0000d9f0  78 25 2c 79 25 28 32 29  3a c8 99 32 36 32 33 37  |x%,y%(2):..26237|
0000da00  34 2c 51 63 25 3a 86 78  25 2d 28 31 30 30 30 2a  |4,Qc%:.x%-(1000*|
0000da10  72 69 29 2c 65 69 25 28  31 29 2c 78 25 2c 79 25  |ri),ei%(1),x%,y%|
0000da20  28 31 29 0d 3d 48 05 cb  0d 3d 4a 0b cc 3a e7 6e  |(1).=H...=J..:.n|
0000da30  63 25 8c 0d 3d 4e c0 c8  99 32 36 32 33 37 34 2c  |c%..=N...262374,|
0000da40  66 63 25 28 33 29 3a ec  78 25 2d 28 31 30 30 30  |fc%(3):.x%-(1000|
0000da50  2a 72 69 29 2c 65 69 25  28 36 29 3a ec 78 25 2d  |*ri),ei%(6):.x%-|
0000da60  28 31 30 30 30 2a 72 69  29 2c 65 69 25 28 37 29  |(1000*ri),ei%(7)|
0000da70  3a f0 26 35 35 2c 78 25  2c 79 25 28 37 29 3a ec  |:.&55,x%,y%(7):.|
0000da80  78 25 2c 79 25 28 37 29  3a ec 78 25 2c 79 25 28  |x%,y%(7):.x%,y%(|
0000da90  36 29 3a f0 26 35 35 2c  78 25 2d 28 31 30 30 30  |6):.&55,x%-(1000|
0000daa0  2a 72 69 29 2c 65 69 25  28 36 29 3a c8 99 32 36  |*ri),ei%(6):..26|
0000dab0  32 33 37 34 2c 66 63 25  28 32 29 3a ec 78 25 2d  |2374,fc%(2):.x%-|
0000dac0  28 31 30 30 30 2a 72 69  29 2c 65 69 25 28 35 29  |(1000*ri),ei%(5)|
0000dad0  3a ec 78 25 2d 28 31 30  30 30 2a 72 69 29 2c 65  |:.x%-(1000*ri),e|
0000dae0  69 25 28 36 29 3a f0 26  35 35 2c 78 25 2c 79 25  |i%(6):.&55,x%,y%|
0000daf0  28 36 29 0d 3d 58 a5 ec  78 25 2c 79 25 28 36 29  |(6).=X..x%,y%(6)|
0000db00  3a ec 78 25 2c 79 25 28  35 29 3a f0 26 35 35 2c  |:.x%,y%(5):.&55,|
0000db10  78 25 2d 28 31 30 30 30  2a 72 69 29 2c 65 69 25  |x%-(1000*ri),ei%|
0000db20  28 35 29 3a c8 99 32 36  32 33 37 34 2c 66 63 25  |(5):..262374,fc%|
0000db30  28 31 29 3a ec 78 25 2d  28 31 30 30 30 2a 72 69  |(1):.x%-(1000*ri|
0000db40  29 2c 65 69 25 28 33 29  3a ec 78 25 2d 28 31 30  |),ei%(3):.x%-(10|
0000db50  30 30 2a 72 69 29 2c 65  69 25 28 35 29 3a f0 26  |00*ri),ei%(5):.&|
0000db60  35 35 2c 78 25 2c 79 25  28 35 29 3a ec 78 25 2c  |55,x%,y%(5):.x%,|
0000db70  79 25 28 35 29 3a ec 78  25 2c 79 25 28 33 29 3a  |y%(5):.x%,y%(3):|
0000db80  f0 26 35 35 2c 78 25 2d  28 31 30 30 30 2a 72 69  |.&55,x%-(1000*ri|
0000db90  29 2c 65 69 25 28 33 29  0d 3d 60 7a cc 3a c8 99  |),ei%(3).=`z.:..|
0000dba0  32 36 32 33 37 34 2c 66  63 25 28 30 29 3a ec 78  |262374,fc%(0):.x|
0000dbb0  25 2d 28 31 30 30 30 2a  72 69 29 2c 65 69 25 28  |%-(1000*ri),ei%(|
0000dbc0  33 29 3a ec 78 25 2d 28  31 30 30 30 2a 72 69 29  |3):.x%-(1000*ri)|
0000dbd0  2c 65 69 25 28 34 29 3a  f0 26 35 35 2c 78 25 2c  |,ei%(4):.&55,x%,|
0000dbe0  79 25 28 34 29 3a ec 78  25 2c 79 25 28 34 29 3a  |y%(4):.x%,y%(4):|
0000dbf0  ec 78 25 2c 79 25 28 33  29 3a f0 26 35 35 2c 78  |.x%,y%(3):.&55,x|
0000dc00  25 2d 28 31 30 30 30 2a  72 69 29 2c 65 69 25 28  |%-(1000*ri),ei%(|
0000dc10  33 29 0d 3d 68 bc cd 3a  c8 99 32 36 32 33 37 34  |3).=h..:..262374|
0000dc20  2c 6c 63 25 3a ec 78 25  2d 28 31 30 30 30 2a 72  |,lc%:.x%-(1000*r|
0000dc30  69 29 2c 65 69 25 28 32  29 3a ec 78 25 2d 28 31  |i),ei%(2):.x%-(1|
0000dc40  30 30 30 2a 72 69 29 2c  65 69 25 28 33 29 3a f0  |000*ri),ei%(3):.|
0000dc50  26 35 35 2c 78 25 2c 79  25 28 33 29 3a ec 78 25  |&55,x%,y%(3):.x%|
0000dc60  2c 79 25 28 33 29 3a ec  78 25 2c 79 25 28 32 29  |,y%(3):.x%,y%(2)|
0000dc70  3a f0 26 35 35 2c 78 25  2d 28 31 30 30 30 2a 72  |:.&55,x%-(1000*r|
0000dc80  69 29 2c 65 69 25 28 32  29 3a c8 99 32 36 32 33  |i),ei%(2):..2623|
0000dc90  37 34 2c 5a 63 25 3a ec  78 25 2d 28 31 30 30 30  |74,Zc%:.x%-(1000|
0000dca0  2a 72 69 29 2c 65 69 25  28 31 29 3a ec 78 25 2d  |*ri),ei%(1):.x%-|
0000dcb0  28 31 30 30 30 2a 72 69  29 2c 65 69 25 28 32 29  |(1000*ri),ei%(2)|
0000dcc0  3a f0 26 35 35 2c 78 25  2c 79 25 28 32 29 0d 3d  |:.&55,x%,y%(2).=|
0000dcd0  74 ad ec 78 25 2c 79 25  28 32 29 3a ec 78 25 2c  |t..x%,y%(2):.x%,|
0000dce0  79 25 28 31 29 3a f0 26  35 35 2c 78 25 2d 28 31  |y%(1):.&55,x%-(1|
0000dcf0  30 30 30 2a 72 69 29 2c  65 69 25 28 31 29 3a c8  |000*ri),ei%(1):.|
0000dd00  99 32 36 32 33 37 34 2c  51 63 25 3a ec 78 25 2d  |.262374,Qc%:.x%-|
0000dd10  28 31 30 30 30 2a 72 69  29 2c 4f 62 25 2d 36 39  |(1000*ri),Ob%-69|
0000dd20  39 3a ec 78 25 2d 28 31  30 30 30 2a 72 69 29 2c  |9:.x%-(1000*ri),|
0000dd30  65 69 25 28 31 29 3a f0  26 35 35 2c 78 25 2c 79  |ei%(1):.&55,x%,y|
0000dd40  25 28 31 29 3a ec 78 25  2c 79 25 28 31 29 3a ec  |%(1):.x%,y%(1):.|
0000dd50  78 25 2c 4f 62 25 2d 36  39 39 3a f0 26 35 35 2c  |x%,Ob%-699:.&55,|
0000dd60  78 25 2d 28 31 30 30 30  2a 72 69 29 2c 4f 62 25  |x%-(1000*ri),Ob%|
0000dd70  2d 36 39 39 3a c8 8e 71  63 25 ca 0d 3d 80 17 c9  |-699:..qc%..=...|
0000dd80  32 3a c8 99 32 36 32 33  37 34 2c 37 3a e7 6e 63  |2:..262374,7:.nc|
0000dd90  25 8c 0d 3d 86 75 86 78  25 2d a4 74 69 28 79 25  |%..=.u.x%-.ti(y%|
0000dda0  28 37 29 2c 4f 62 25 2c  5a 69 25 29 2c 79 25 28  |(7),Ob%,Zi%),y%(|
0000ddb0  37 29 2c 78 25 2b a4 74  69 28 79 25 28 37 29 2c  |7),x%+.ti(y%(7),|
0000ddc0  4f 62 25 2c 5a 69 25 29  2c 79 25 28 37 29 3a 86  |Ob%,Zi%),y%(7):.|
0000ddd0  78 25 2c 79 25 28 37 29  2d a4 74 69 28 79 25 28  |x%,y%(7)-.ti(y%(|
0000dde0  37 29 2c 4f 62 25 2c 5a  69 25 29 2c 78 25 2c 79  |7),Ob%,Zi%),x%,y|
0000ddf0  25 28 37 29 2b a4 74 69  28 79 25 28 37 29 2c 4f  |%(7)+.ti(y%(7),O|
0000de00  62 25 2c 5a 69 25 29 0d  3d 88 75 86 78 25 2d a4  |b%,Zi%).=.u.x%-.|
0000de10  74 69 28 79 25 28 36 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(6),Ob%,Zi%|
0000de20  29 2c 79 25 28 36 29 2c  78 25 2b a4 74 69 28 79  |),y%(6),x%+.ti(y|
0000de30  25 28 36 29 2c 4f 62 25  2c 5a 69 25 29 2c 79 25  |%(6),Ob%,Zi%),y%|
0000de40  28 36 29 3a 86 78 25 2c  79 25 28 36 29 2d a4 74  |(6):.x%,y%(6)-.t|
0000de50  69 28 79 25 28 36 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(6),Ob%,Zi%)|
0000de60  2c 78 25 2c 79 25 28 36  29 2b a4 74 69 28 79 25  |,x%,y%(6)+.ti(y%|
0000de70  28 36 29 2c 4f 62 25 2c  5a 69 25 29 0d 3d 8a 75  |(6),Ob%,Zi%).=.u|
0000de80  86 78 25 2d a4 74 69 28  79 25 28 35 29 2c 4f 62  |.x%-.ti(y%(5),Ob|
0000de90  25 2c 5a 69 25 29 2c 79  25 28 35 29 2c 78 25 2b  |%,Zi%),y%(5),x%+|
0000dea0  a4 74 69 28 79 25 28 35  29 2c 4f 62 25 2c 5a 69  |.ti(y%(5),Ob%,Zi|
0000deb0  25 29 2c 79 25 28 35 29  3a 86 78 25 2c 79 25 28  |%),y%(5):.x%,y%(|
0000dec0  35 29 2d a4 74 69 28 79  25 28 35 29 2c 4f 62 25  |5)-.ti(y%(5),Ob%|
0000ded0  2c 5a 69 25 29 2c 78 25  2c 79 25 28 35 29 2b a4  |,Zi%),x%,y%(5)+.|
0000dee0  74 69 28 79 25 28 35 29  2c 4f 62 25 2c 5a 69 25  |ti(y%(5),Ob%,Zi%|
0000def0  29 0d 3d 8c 77 cc 3a 86  78 25 2d a4 74 69 28 79  |).=.w.:.x%-.ti(y|
0000df00  25 28 34 29 2c 4f 62 25  2c 5a 69 25 29 2c 79 25  |%(4),Ob%,Zi%),y%|
0000df10  28 34 29 2c 78 25 2b a4  74 69 28 79 25 28 34 29  |(4),x%+.ti(y%(4)|
0000df20  2c 4f 62 25 2c 5a 69 25  29 2c 79 25 28 34 29 3a  |,Ob%,Zi%),y%(4):|
0000df30  86 78 25 2c 79 25 28 34  29 2d a4 74 69 28 79 25  |.x%,y%(4)-.ti(y%|
0000df40  28 34 29 2c 4f 62 25 2c  5a 69 25 29 2c 78 25 2c  |(4),Ob%,Zi%),x%,|
0000df50  79 25 28 34 29 2b a4 74  69 28 79 25 28 34 29 2c  |y%(4)+.ti(y%(4),|
0000df60  4f 62 25 2c 5a 69 25 29  0d 3d 90 77 cd 3a 86 78  |Ob%,Zi%).=.w.:.x|
0000df70  25 2d a4 74 69 28 79 25  28 33 29 2c 4f 62 25 2c  |%-.ti(y%(3),Ob%,|
0000df80  5a 69 25 29 2c 79 25 28  33 29 2c 78 25 2b a4 74  |Zi%),y%(3),x%+.t|
0000df90  69 28 79 25 28 33 29 2c  4f 62 25 2c 5a 69 25 29  |i(y%(3),Ob%,Zi%)|
0000dfa0  2c 79 25 28 33 29 3a 86  78 25 2c 79 25 28 33 29  |,y%(3):.x%,y%(3)|
0000dfb0  2d a4 74 69 28 79 25 28  33 29 2c 4f 62 25 2c 5a  |-.ti(y%(3),Ob%,Z|
0000dfc0  69 25 29 2c 78 25 2c 79  25 28 33 29 2b a4 74 69  |i%),x%,y%(3)+.ti|
0000dfd0  28 79 25 28 33 29 2c 4f  62 25 2c 5a 69 25 29 0d  |(y%(3),Ob%,Zi%).|
0000dfe0  3d 94 75 86 78 25 2d a4  74 69 28 79 25 28 32 29  |=.u.x%-.ti(y%(2)|
0000dff0  2c 4f 62 25 2c 5a 69 25  29 2c 79 25 28 32 29 2c  |,Ob%,Zi%),y%(2),|
0000e000  78 25 2b a4 74 69 28 79  25 28 32 29 2c 4f 62 25  |x%+.ti(y%(2),Ob%|
0000e010  2c 5a 69 25 29 2c 79 25  28 32 29 3a 86 78 25 2c  |,Zi%),y%(2):.x%,|
0000e020  79 25 28 32 29 2d a4 74  69 28 79 25 28 32 29 2c  |y%(2)-.ti(y%(2),|
0000e030  4f 62 25 2c 5a 69 25 29  2c 78 25 2c 79 25 28 32  |Ob%,Zi%),x%,y%(2|
0000e040  29 2b a4 74 69 28 79 25  28 32 29 2c 4f 62 25 2c  |)+.ti(y%(2),Ob%,|
0000e050  5a 69 25 29 0d 3d 96 75  86 78 25 2d a4 74 69 28  |Zi%).=.u.x%-.ti(|
0000e060  79 25 28 31 29 2c 4f 62  25 2c 5a 69 25 29 2c 79  |y%(1),Ob%,Zi%),y|
0000e070  25 28 31 29 2c 78 25 2b  a4 74 69 28 79 25 28 31  |%(1),x%+.ti(y%(1|
0000e080  29 2c 4f 62 25 2c 5a 69  25 29 2c 79 25 28 31 29  |),Ob%,Zi%),y%(1)|
0000e090  3a 86 78 25 2c 79 25 28  31 29 2d a4 74 69 28 79  |:.x%,y%(1)-.ti(y|
0000e0a0  25 28 31 29 2c 4f 62 25  2c 5a 69 25 29 2c 78 25  |%(1),Ob%,Zi%),x%|
0000e0b0  2c 79 25 28 31 29 2b a4  74 69 28 79 25 28 31 29  |,y%(1)+.ti(y%(1)|
0000e0c0  2c 4f 62 25 2c 5a 69 25  29 0d 3d 98 72 c9 33 3a  |,Ob%,Zi%).=.r.3:|
0000e0d0  c8 99 32 36 32 33 37 34  2c 37 3a 86 78 25 2d 28  |..262374,7:.x%-(|
0000e0e0  31 30 30 30 2a 72 69 29  2c 65 69 25 28 31 29 2c  |1000*ri),ei%(1),|
0000e0f0  78 25 2c 79 25 28 31 29  3a 86 78 25 2d 28 31 30  |x%,y%(1):.x%-(10|
0000e100  30 30 2a 72 69 29 2c 65  69 25 28 32 29 2c 78 25  |00*ri),ei%(2),x%|
0000e110  2c 79 25 28 32 29 3a 86  78 25 2d 28 31 30 30 30  |,y%(2):.x%-(1000|
0000e120  2a 72 69 29 2c 65 69 25  28 33 29 2c 78 25 2c 79  |*ri),ei%(3),x%,y|
0000e130  25 28 33 29 3a e7 ac 6e  63 25 8c 0d 3d a4 21 86  |%(3):..nc%..=.!.|
0000e140  78 25 2d 28 31 30 30 30  2a 72 69 29 2c 65 69 25  |x%-(1000*ri),ei%|
0000e150  28 34 29 2c 78 25 2c 79  25 28 34 29 0d 3d a6 5f  |(4),x%,y%(4).=._|
0000e160  cc 3a 86 78 25 2d 28 31  30 30 30 2a 72 69 29 2c  |.:.x%-(1000*ri),|
0000e170  65 69 25 28 35 29 2c 78  25 2c 79 25 28 35 29 3a  |ei%(5),x%,y%(5):|
0000e180  86 78 25 2d 28 31 30 30  30 2a 72 69 29 2c 65 69  |.x%-(1000*ri),ei|
0000e190  25 28 36 29 2c 78 25 2c  79 25 28 36 29 3a 86 78  |%(6),x%,y%(6):.x|
0000e1a0  25 2d 28 31 30 30 30 2a  72 69 29 2c 65 69 25 28  |%-(1000*ri),ei%(|
0000e1b0  37 29 2c 78 25 2c 79 25  28 37 29 0d 3d ae 05 cd  |7),x%,y%(7).=...|
0000e1c0  0d 3d b0 05 cb 0d 3d b2  07 cd 3a e1 0d 3d b8 33  |.=....=...:..=.3|
0000e1d0  dd f2 4a 62 3a ea 76 69  24 3a f2 7a 63 28 4d 61  |..Jb:.vi$:.zc(Ma|
0000e1e0  25 2c 32 32 2c 22 20 22  2b c3 28 54 62 25 2b 31  |%,22," "+.(Tb%+1|
0000e1f0  37 35 30 29 29 3a e7 6f  63 25 80 48 63 25 8c 0d  |750)):.oc%.Hc%..|
0000e200  3d c4 13 f2 7a 63 28 4d  61 25 2c 32 33 2c 22 20  |=...zc(Ma%,23," |
0000e210  22 29 0d 3d c6 0c cc 3a  c8 8e 68 62 25 ca 0d 3d  |").=...:..hb%..=|
0000e220  ca 2f c9 31 3a f2 7a 63  28 4d 61 25 2c 32 33 2c  |./.1:.zc(Ma%,23,|
0000e230  22 20 22 2b c0 c3 28 74  28 54 62 25 29 2d 32 37  |" "+..(t(Tb%)-27|
0000e240  33 2d 61 64 25 2f 31 30  29 2c 35 29 29 0d 3d cc  |3-ad%/10),5)).=.|
0000e250  2c c9 32 3a f2 7a 63 28  4d 61 25 2c 32 33 2c 22  |,.2:.zc(Ma%,23,"|
0000e260  20 22 2b c0 c3 28 52 69  28 54 62 25 29 2d 62 64  | "+..(Ri(Tb%)-bd|
0000e270  25 2f 31 30 29 2c 35 29  29 0d 3d ce 05 cb 0d 3d  |%/10),5)).=....=|
0000e280  d0 0f cd 3a e7 6f 63 25  80 79 62 25 8c 0d 3d d4  |...:.oc%.yb%..=.|
0000e290  0b 76 69 24 3d 22 20 22  0d 3d d6 0c cc 3a c8 8e  |.vi$=" ".=...:..|
0000e2a0  44 63 25 ca 0d 3d da 21  c9 31 3a 76 69 24 3d 22  |Dc%..=.!.1:vi$="|
0000e2b0  20 22 2b c0 c3 28 53 69  28 54 62 25 29 2d 63 64  | "+..(Si(Tb%)-cd|
0000e2c0  25 29 2c 36 29 0d 3d dc  21 c9 32 3a 76 69 24 3d  |%),6).=.!.2:vi$=|
0000e2d0  22 20 22 2b c0 c3 28 54  69 28 54 62 25 29 2d 64  |" "+..(Ti(Tb%)-d|
0000e2e0  64 25 29 2c 36 29 0d 3d  de 21 c9 33 3a e7 94 28  |d%),6).=.!.3:..(|
0000e2f0  55 69 28 54 62 25 2c 30  29 2d 65 64 25 28 30 29  |Ui(Tb%,0)-ed%(0)|
0000e300  29 3c 30 2e 30 31 8c 0d  3d e2 0f 76 69 24 3d 22  |)<0.01..=..vi$="|
0000e310  20 30 2e 30 30 22 0d 3d  e4 25 cc 3a 76 69 24 3d  | 0.00".=.%.:vi$=|
0000e320  22 20 22 2b c0 c3 28 55  69 28 54 62 25 2c 30 29  |" "+..(Ui(Tb%,0)|
0000e330  2d 65 64 25 28 30 29 29  2c 36 29 0d 3d e8 05 cd  |-ed%(0)),6).=...|
0000e340  0d 3d ea 1c c9 34 3a e7  94 28 59 69 28 54 62 25  |.=...4:..(Yi(Tb%|
0000e350  29 2d 66 64 25 29 3c 30  2e 30 31 8c 0d 3d ee 0f  |)-fd%)<0.01..=..|
0000e360  76 69 24 3d 22 20 30 2e  30 30 22 0d 3d f0 20 cc  |vi$=" 0.00".=. .|
0000e370  3a 76 69 24 3d 22 20 22  2b c0 c3 28 59 69 28 54  |:vi$=" "+..(Yi(T|
0000e380  62 25 29 2d 66 64 25 29  2c 36 29 0d 3d f4 05 cd  |b%)-fd%),6).=...|
0000e390  0d 3d f6 05 cb 0d 3d f8  17 cd 3a f2 7a 63 28 4d  |.=....=...:.zc(M|
0000e3a0  61 25 2c 32 34 2c 76 69  24 29 3a e1 0d 3e 00 74  |a%,24,vi$):..>.t|
0000e3b0  dd f2 77 69 28 78 25 2c  79 25 2c 78 69 25 2c 79  |..wi(x%,y%,xi%,y|
0000e3c0  69 25 2c 7a 69 25 2c 5f  69 25 2c 60 69 25 2c 73  |i%,zi%,_i%,`i%,s|
0000e3d0  2c 41 6a 25 2c 42 6a 25  2c 43 6a 2c 67 25 2c 44  |,Aj%,Bj%,Cj,g%,D|
0000e3e0  6a 25 2c 45 6a 25 2c 46  6a 25 2c 47 6a 25 2c 48  |j%,Ej%,Fj%,Gj%,H|
0000e3f0  6a 25 29 3a ea 48 62 24  3a ef 32 33 2c 36 2c 26  |j%):.Hb$:.23,6,&|
0000e400  33 33 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |33,0,0,0,0,0,0,0|
0000e410  3a e3 58 25 3d 30 b8 42  6a 25 3a e7 48 6a 25 8c  |:.X%=0.Bj%:.Hj%.|
0000e420  0d 3e 34 21 48 62 24 3d  c3 28 a8 28 28 78 69 25  |.>4!Hb$=.(.((xi%|
0000e430  2b 41 6a 25 2b 43 6a 2a  58 25 29 2f 44 6a 25 29  |+Aj%+Cj*X%)/Dj%)|
0000e440  29 0d 3e 36 2c cc 3a 48  62 24 3d c0 c3 28 28 78  |).>6,.:Hb$=..((x|
0000e450  69 25 2b 41 6a 25 2b 43  6a 2a 58 25 29 2f 44 6a  |i%+Aj%+Cj*X%)/Dj|
0000e460  25 2b 30 2e 30 30 31 29  2c 47 6a 25 29 0d 3e 3a  |%+0.001),Gj%).>:|
0000e470  22 cd 3a e7 28 78 69 25  2b 41 6a 25 2b 43 6a 2a  |".:.(xi%+Aj%+Cj*|
0000e480  58 25 29 3d 30 8c 3a 48  62 24 3d 22 20 30 22 0d  |X%)=0.:Hb$=" 0".|
0000e490  3e 3e 84 c8 99 32 36 32  32 37 38 2c 2c 48 62 24  |>>...262278,,Hb$|
0000e4a0  2c 25 31 30 30 30 30 2c  78 25 2b 79 69 25 2b 45  |,%10000,x%+yi%+E|
0000e4b0  6a 25 2b 5f 69 25 2a 73  2a 28 41 6a 25 2b 43 6a  |j%+_i%*s*(Aj%+Cj|
0000e4c0  2a 58 25 29 2c 79 25 2b  7a 69 25 2b 46 6a 25 3a  |*X%),y%+zi%+Fj%:|
0000e4d0  86 78 25 2b 79 69 25 2b  5f 69 25 2a 73 2a 28 41  |.x%+yi%+_i%*s*(A|
0000e4e0  6a 25 2b 43 6a 2a 58 25  29 2c 79 25 2b 7a 69 25  |j%+Cj*X%),y%+zi%|
0000e4f0  2d 31 30 2c 78 25 2b 79  69 25 2b 5f 69 25 2a 73  |-10,x%+yi%+_i%*s|
0000e500  2a 28 41 6a 25 2b 43 6a  2a 58 25 29 2c 79 25 2b  |*(Aj%+Cj*X%),y%+|
0000e510  7a 69 25 0d 3e 42 81 e7  67 25 80 ac 28 73 2a 28  |zi%.>B..g%..(s*(|
0000e520  41 6a 25 2b 43 6a 2a 58  25 29 3e 30 2e 39 39 35  |Aj%+Cj*X%)>0.995|
0000e530  84 73 2a 28 41 6a 25 2b  43 6a 2a 58 25 29 3c 30  |.s*(Aj%+Cj*X%)<0|
0000e540  2e 30 30 35 29 8c 3a f0  26 30 34 2c 78 25 2b 79  |.005).:.&04,x%+y|
0000e550  69 25 2b 5f 69 25 2a 73  2a 28 41 6a 25 2b 43 6a  |i%+_i%*s*(Aj%+Cj|
0000e560  2a 58 25 29 2c 79 25 2b  7a 69 25 3a f0 26 31 35  |*X%),y%+zi%:.&15|
0000e570  2c 78 25 2b 79 69 25 2b  5f 69 25 2a 73 2a 28 41  |,x%+yi%+_i%*s*(A|
0000e580  6a 25 2b 43 6a 2a 58 25  29 2c 79 25 2b 7a 69 25  |j%+Cj*X%),y%+zi%|
0000e590  2b 60 69 25 0d 3e 44 09  ed 58 25 3a e1 0d 3e 4a  |+`i%.>D..X%:..>J|
0000e5a0  78 dd f2 49 69 28 78 25  2c 79 25 2c 78 69 25 2c  |x..Ii(x%,y%,xi%,|
0000e5b0  79 69 25 2c 7a 69 25 2c  5f 69 25 2c 60 69 25 2c  |yi%,zi%,_i%,`i%,|
0000e5c0  73 2c 49 6a 25 2c 42 6a  25 2c 43 6a 2c 67 25 2c  |s,Ij%,Bj%,Cj,g%,|
0000e5d0  44 6a 25 2c 45 6a 25 2c  46 6a 25 2c 4a 6a 25 2c  |Dj%,Ej%,Fj%,Jj%,|
0000e5e0  48 6a 25 2c 4b 6a 25 29  3a ea 48 62 24 3a ef 32  |Hj%,Kj%):.Hb$:.2|
0000e5f0  33 2c 36 2c 26 33 33 2c  30 2c 30 2c 30 2c 30 2c  |3,6,&33,0,0,0,0,|
0000e600  30 2c 30 2c 30 3a e3 59  25 3d 30 b8 42 6a 25 3a  |0,0,0:.Y%=0.Bj%:|
0000e610  e7 48 6a 25 8c 0d 3e 80  25 48 62 24 3d 22 20 22  |.Hj%..>.%Hb$=" "|
0000e620  2b c3 28 a8 28 28 78 69  25 2b 49 6a 25 2b 43 6a  |+.(.((xi%+Ij%+Cj|
0000e630  2a 59 25 29 2f 44 6a 25  29 29 0d 3e 82 2c cc 3a  |*Y%)/Dj%)).>.,.:|
0000e640  e7 28 78 69 25 2b 49 6a  25 2b 43 6a 2a 59 25 29  |.(xi%+Ij%+Cj*Y%)|
0000e650  3e 3d 30 8c 4c 6a 3d 30  2e 30 30 31 8b 4c 6a 3d  |>=0.Lj=0.001.Lj=|
0000e660  2d 30 2e 30 30 31 0d 3e  86 44 48 62 24 3d 22 20  |-0.001.>.DHb$=" |
0000e670  22 2b c0 c3 28 28 78 69  25 2b 49 6a 25 2b 43 6a  |"+..((xi%+Ij%+Cj|
0000e680  2a 59 25 29 2f 44 6a 25  2b 4c 6a 29 2c a4 4a 6a  |*Y%)/Dj%+Lj),.Jj|
0000e690  28 28 78 69 25 2b 49 6a  25 2b 43 6a 2a 59 25 29  |((xi%+Ij%+Cj*Y%)|
0000e6a0  2f 44 6a 25 2c 4a 6a 25  29 29 0d 3e 88 28 cd 3a  |/Dj%,Jj%)).>.(.:|
0000e6b0  e7 94 28 78 69 25 2b 49  6a 25 2b 43 6a 2a 59 25  |..(xi%+Ij%+Cj*Y%|
0000e6c0  29 3c 3d 30 2e 30 30 31  8c 3a 48 62 24 3d 22 20  |)<=0.001.:Hb$=" |
0000e6d0  30 22 0d 3e 8c 0a e7 ac  4b 6a 25 8c 0d 3e 8e 70  |0".>....Kj%..>.p|
0000e6e0  ef 32 35 2c 31 38 38 2c  78 25 2b 79 69 25 2d 31  |.25,188,x%+yi%-1|
0000e6f0  33 3b 79 25 2b 7a 69 25  2b 46 6a 25 2b 60 69 25  |3;y%+zi%+Fj%+`i%|
0000e700  2a 73 2a 28 49 6a 25 2b  43 6a 2a 59 25 29 3b 3a  |*s*(Ij%+Cj*Y%);:|
0000e710  c8 99 32 36 32 32 37 38  2c 2c 48 62 24 2c 25 31  |..262278,,Hb$,%1|
0000e720  30 30 30 31 2c 78 25 2b  79 69 25 2b 45 6a 25 2c  |0001,x%+yi%+Ej%,|
0000e730  79 25 2b 7a 69 25 2b 46  6a 25 2b 60 69 25 2a 73  |y%+zi%+Fj%+`i%*s|
0000e740  2a 28 49 6a 25 2b 43 6a  2a 59 25 29 0d 3e 92 42  |*(Ij%+Cj*Y%).>.B|
0000e750  cc 3a c8 99 32 36 32 32  37 38 2c 2c 48 62 24 2c  |.:..262278,,Hb$,|
0000e760  25 31 30 30 30 30 2c 78  25 2b 79 69 25 2b 45 6a  |%10000,x%+yi%+Ej|
0000e770  25 2c 79 25 2b 7a 69 25  2b 46 6a 25 2b 60 69 25  |%,y%+zi%+Fj%+`i%|
0000e780  2a 73 2a 28 49 6a 25 2b  43 6a 2a 59 25 29 0d 3e  |*s*(Ij%+Cj*Y%).>|
0000e790  96 d4 cd 3a 86 78 25 2b  79 69 25 2d 31 30 2d 32  |...:.x%+yi%-10-2|
0000e7a0  30 2a 4b 6a 25 2c 79 25  2b 7a 69 25 2b 60 69 25  |0*Kj%,y%+zi%+`i%|
0000e7b0  2a 73 2a 28 49 6a 25 2b  43 6a 2a 59 25 29 2c 78  |*s*(Ij%+Cj*Y%),x|
0000e7c0  25 2b 79 69 25 2c 79 25  2b 7a 69 25 2b 60 69 25  |%+yi%,y%+zi%+`i%|
0000e7d0  2a 73 2a 28 49 6a 25 2b  43 6a 2a 59 25 29 3a e7  |*s*(Ij%+Cj*Y%):.|
0000e7e0  67 25 80 ac 28 94 28 73  2a 28 49 6a 25 2b 43 6a  |g%..(.(s*(Ij%+Cj|
0000e7f0  2a 59 25 29 29 3e 30 2e  39 39 35 84 94 28 73 2a  |*Y%))>0.995..(s*|
0000e800  28 49 6a 25 2b 43 6a 2a  59 25 29 29 3c 30 2e 30  |(Ij%+Cj*Y%))<0.0|
0000e810  30 35 29 8c 3a f0 26 30  34 2c 78 25 2b 79 69 25  |05).:.&04,x%+yi%|
0000e820  2c 79 25 2b 7a 69 25 2b  60 69 25 2a 73 2a 28 49  |,y%+zi%+`i%*s*(I|
0000e830  6a 25 2b 43 6a 2a 59 25  29 3a f0 26 31 35 2c 78  |j%+Cj*Y%):.&15,x|
0000e840  25 2b 79 69 25 2b 5f 69  25 2c 79 25 2b 7a 69 25  |%+yi%+_i%,y%+zi%|
0000e850  2b 60 69 25 2a 73 2a 28  49 6a 25 2b 43 6a 2a 59  |+`i%*s*(Ij%+Cj*Y|
0000e860  25 29 0d 3e 9c 09 ed 59  25 3a e1 0d 3e a8 e3 dd  |%).>...Y%:..>...|
0000e870  f2 48 5f 3a de 74 28 34  30 30 29 2c 52 69 28 34  |.H_:.t(400),Ri(4|
0000e880  30 30 29 3a de 61 69 28  34 30 30 29 2c 62 69 28  |00):.ai(400),bi(|
0000e890  34 30 30 29 2c 64 69 28  34 30 30 2c 33 29 2c 63  |400),di(400,3),c|
0000e8a0  69 28 34 30 30 29 3a de  53 69 28 34 30 30 29 2c  |i(400):.Si(400),|
0000e8b0  54 69 28 34 30 30 29 2c  55 69 28 34 30 30 2c 33  |Ti(400),Ui(400,3|
0000e8c0  29 2c 59 69 28 34 30 30  29 3a de 4d 6a 28 34 30  |),Yi(400):.Mj(40|
0000e8d0  30 29 2c 4e 6a 28 34 30  30 29 2c 4f 6a 28 34 30  |0),Nj(400),Oj(40|
0000e8e0  30 2c 33 29 2c 50 6a 28  34 30 30 29 3a de 51 6a  |0,3),Pj(400):.Qj|
0000e8f0  28 34 30 30 29 2c 52 6a  28 34 30 30 2c 33 29 2c  |(400),Rj(400,3),|
0000e900  53 6a 28 34 30 30 29 3a  de 67 69 28 31 36 30 2c  |Sj(400):.gi(160,|
0000e910  38 29 2c 68 69 28 31 36  30 2c 38 29 2c 69 69 28  |8),hi(160,8),ii(|
0000e920  31 36 30 2c 33 2c 38 29  2c 6a 69 28 31 36 30 2c  |160,3,8),ji(160,|
0000e930  38 29 3a de 54 6a 28 33  29 2c 65 64 25 28 33 29  |8):.Tj(3),ed%(3)|
0000e940  2c 66 63 25 28 33 29 2c  6a 64 25 28 33 29 0d 3e  |,fc%(3),jd%(3).>|
0000e950  bc d2 de 79 25 28 37 29  2c 65 69 25 28 37 29 2c  |...y%(7),ei%(7),|
0000e960  65 25 28 37 29 2c 71 69  25 28 37 29 3a de 55 6a  |e%(7),qi%(7):.Uj|
0000e970  28 37 29 2c 56 6a 28 37  29 2c 57 6a 28 37 29 2c  |(7),Vj(7),Wj(7),|
0000e980  58 6a 28 37 29 3a 53 62  25 3d 32 34 30 3a 74 28  |Xj(7):Sb%=240:t(|
0000e990  32 34 30 29 3d 32 38 36  2e 38 31 31 3a 43 64 25  |240)=286.811:Cd%|
0000e9a0  3d 31 3a de 42 64 24 28  34 29 2c 44 69 24 28 33  |=1:.Bd$(4),Di$(3|
0000e9b0  2c 34 29 3a f7 8d 60 40  47 3a e3 4e 25 3d 30 b8  |,4):..`@G:.N%=0.|
0000e9c0  34 3a f3 42 64 24 28 4e  25 29 3a ed 3a f7 8d 60  |4:.Bd$(N%):.:..`|
0000e9d0  42 47 3a e3 4d 25 3d 30  b8 34 3a e3 4e 25 3d 30  |BG:.M%=0.4:.N%=0|
0000e9e0  b8 33 3a f3 44 69 24 28  4e 25 2c 4d 25 29 3a ed  |.3:.Di$(N%,M%):.|
0000e9f0  4e 25 3a ed 4d 25 3a 56  62 25 3d a3 3a 6a 62 25  |N%:.M%:Vb%=.:jb%|
0000ea00  3d a3 3a 46 63 25 3d a3  3a 78 62 25 3d a3 3a 55  |=.:Fc%=.:xb%=.:U|
0000ea10  63 25 3d a3 3a 61 63 25  3d a3 3a 67 63 25 3d a3  |c%=.:ac%=.:gc%=.|
0000ea20  0d 3e d4 d5 6c 62 25 3d  b9 3a 48 63 25 3d b9 3a  |.>..lb%=.:Hc%=.:|
0000ea30  79 62 25 3d b9 3a 56 63  25 3d b9 3a 62 63 25 3d  |yb%=.:Vc%=.:bc%=|
0000ea40  b9 3a 68 63 25 3d b9 3a  58 62 25 3d 31 3a 54 62  |.:hc%=.:Xb%=1:Tb|
0000ea50  25 3d 32 34 30 3a 74 62  25 3d 31 31 3a 51 63 25  |%=240:tb%=11:Qc%|
0000ea60  3d 38 3a 41 63 25 3d 31  35 3a 5a 63 25 3d 31 33  |=8:Ac%=15:Zc%=13|
0000ea70  3a 66 63 25 28 30 29 3d  31 34 3a 66 63 25 28 31  |:fc%(0)=14:fc%(1|
0000ea80  29 3d 31 32 3a 66 63 25  28 32 29 3d 39 3a 66 63  |)=12:fc%(2)=9:fc|
0000ea90  25 28 33 29 3d 32 3a 6c  63 25 3d 31 30 3a 73 62  |%(3)=2:lc%=10:sb|
0000eaa0  25 3d 31 31 3a 73 62 25  3d 31 35 3a 4f 63 25 3d  |%=11:sb%=15:Oc%=|
0000eab0  30 3a de 5f 63 25 28 37  29 3a 6b 62 25 3d b9 3a  |0:._c%(7):kb%=.:|
0000eac0  47 63 25 3d b9 3a 69 62  25 3d a3 3a 45 63 25 3d  |Gc%=.:ib%=.:Ec%=|
0000ead0  a3 3a 6e 62 25 3d 33 3a  4a 63 25 3d 33 3a 7a 62  |.:nb%=3:Jc%=3:zb|
0000eae0  25 3d 33 3a 57 63 25 3d  33 3a 63 63 25 3d 33 3a  |%=3:Wc%=3:cc%=3:|
0000eaf0  69 63 25 3d 33 0d 3e e0  d7 70 62 25 3d 31 38 30  |ic%=3.>..pb%=180|
0000eb00  3a 72 62 25 3d 31 34 30  3a 6f 62 25 3d 31 38 30  |:rb%=140:ob%=180|
0000eb10  3a 71 62 25 3d 31 34 30  3a 5f 62 25 3d 31 30 30  |:qb%=140:_b%=100|
0000eb20  3a 60 62 25 3d 30 3a 5a  62 25 3d 33 34 30 3a 62  |:`b%=0:Zb%=340:b|
0000eb30  62 25 3d 32 34 30 3a 59  62 25 3d 33 34 30 3a 61  |b%=240:Yb%=340:a|
0000eb40  62 25 3d 32 34 30 3a 4c  63 25 3d 38 30 30 3a 58  |b%=240:Lc%=800:X|
0000eb50  63 25 3d 35 30 30 30 3a  64 63 25 3d 35 30 30 30  |c%=5000:dc%=5000|
0000eb60  3a 6a 63 25 3d 35 30 30  3a 4b 63 25 3d 38 30 30  |:jc%=500:Kc%=800|
0000eb70  3a 4e 63 25 3d 32 35 30  3a 59 63 25 3d 30 3a 65  |:Nc%=250:Yc%=0:e|
0000eb80  63 25 3d 30 3a 6b 63 25  3d 32 30 30 3a 4d 63 25  |c%=0:kc%=200:Mc%|
0000eb90  3d 32 35 30 3a 68 62 25  3d 31 3a 44 63 25 3d 31  |=250:hb%=1:Dc%=1|
0000eba0  3a 72 63 25 3d 33 3a 61  64 25 3d 30 3a 63 64 25  |:rc%=3:ad%=0:cd%|
0000ebb0  3d 30 3a 62 64 25 3d 30  3a 64 64 25 3d 30 3a 65  |=0:bd%=0:dd%=0:e|
0000ebc0  64 25 28 29 3d 30 3a 66  64 25 3d 30 0d 3e ee e1  |d%()=0:fd%=0.>..|
0000ebd0  67 64 25 3d 30 3a 68 64  25 3d 30 3a 6a 64 25 28  |gd%=0:hd%=0:jd%(|
0000ebe0  29 3d 30 3a 69 64 25 3d  30 3a 68 62 24 3d 22 53  |)=0:id%=0:hb$="S|
0000ebf0  75 72 66 61 63 65 20 74  65 6d 70 65 72 61 74 75  |urface temperatu|
0000ec00  72 65 20 28 b0 43 29 22  3a 44 63 24 3d 22 43 4f  |re (.C)":Dc$="CO|
0000ec10  32 20 63 6f 6e 63 2e 20  28 70 70 6d 76 29 22 3a  |2 conc. (ppmv)":|
0000ec20  6e 63 25 3d a3 3a 6f 63  25 3d a3 3a 6d 63 25 3d  |nc%=.:oc%=.:mc%=|
0000ec30  a3 3a 73 63 25 3d a3 3a  71 63 25 3d 32 3a f2 4a  |.:sc%=.:qc%=2:.J|
0000ec40  64 3a f2 74 63 28 5a 62  25 2b 31 37 35 30 2c 62  |d:.tc(Zb%+1750,b|
0000ec50  62 25 2b 31 37 35 30 2c  4b 64 25 2c 4c 64 25 2c  |b%+1750,Kd%,Ld%,|
0000ec60  4d 64 25 2c 4e 64 25 2c  4f 64 29 3a f2 74 63 28  |Md%,Nd%,Od):.tc(|
0000ec70  70 62 25 2c 72 62 25 2c  51 64 25 2c 76 63 25 2c  |pb%,rb%,Qd%,vc%,|
0000ec80  77 63 25 2c 78 63 25 2c  79 63 29 3a f2 74 63 28  |wc%,xc%,yc):.tc(|
0000ec90  4c 63 25 2c 4e 63 25 2c  53 64 25 2c 54 64 25 2c  |Lc%,Nc%,Sd%,Td%,|
0000eca0  55 64 25 2c 56 64 25 2c  57 64 29 3a e1 0d 3f 06  |Ud%,Vd%,Wd):..?.|
0000ecb0  32 dd f2 4c 5f 3a 53 69  28 29 3d 4d 6a 28 29 3a  |2..L_:Si()=Mj():|
0000ecc0  54 69 28 29 3d 4e 6a 28  29 3a 59 69 28 29 3d 50  |Ti()=Nj():Yi()=P|
0000ecd0  6a 28 29 3a 55 69 28 29  3d 4f 6a 28 29 3a e1 0d  |j():Ui()=Oj():..|
0000ece0  3f 14 dd dd f2 53 5f 3a  67 69 28 30 2c 38 29 3d  |?....S_:gi(0,8)=|
0000ecf0  30 3a 67 69 28 30 2c 30  29 3d 30 3a e3 4d 25 3d  |0:gi(0,0)=0:.M%=|
0000ed00  32 b8 38 3a 67 69 28 30  2c 30 29 2b 3d 67 69 28  |2.8:gi(0,0)+=gi(|
0000ed10  30 2c 4d 25 29 3a ed 3a  68 69 28 30 2c 38 29 3d  |0,M%):.:hi(0,8)=|
0000ed20  35 39 3a 68 69 28 30 2c  30 29 3d 30 3a e3 4d 25  |59:hi(0,0)=0:.M%|
0000ed30  3d 32 b8 38 3a 68 69 28  30 2c 30 29 2b 3d 68 69  |=2.8:hi(0,0)+=hi|
0000ed40  28 30 2c 4d 25 29 3a ed  3a 69 69 28 30 2c 31 2c  |(0,M%):.:ii(0,1,|
0000ed50  38 29 3d 32 39 38 3a 69  69 28 30 2c 31 2c 30 29  |8)=298:ii(0,1,0)|
0000ed60  3d 30 3a e3 4d 25 3d 32  b8 38 3a 69 69 28 30 2c  |=0:.M%=2.8:ii(0,|
0000ed70  31 2c 30 29 2b 3d 69 69  28 30 2c 31 2c 4d 25 29  |1,0)+=ii(0,1,M%)|
0000ed80  3a ed 3a 69 69 28 30 2c  32 2c 38 29 3d 33 36 33  |:.:ii(0,2,8)=363|
0000ed90  3a 69 69 28 30 2c 32 2c  30 29 3d 30 3a e3 4d 25  |:ii(0,2,0)=0:.M%|
0000eda0  3d 32 b8 38 3a 69 69 28  30 2c 32 2c 30 29 2b 3d  |=2.8:ii(0,2,0)+=|
0000edb0  69 69 28 30 2c 32 2c 4d  25 29 3a ed 0d 3f 40 e2  |ii(0,2,M%):..?@.|
0000edc0  69 69 28 30 2c 33 2c 38  29 3d 31 33 38 3a 69 69  |ii(0,3,8)=138:ii|
0000edd0  28 30 2c 33 2c 30 29 3d  30 3a e3 4d 25 3d 32 b8  |(0,3,0)=0:.M%=2.|
0000ede0  38 3a 69 69 28 30 2c 33  2c 30 29 2b 3d 69 69 28  |8:ii(0,3,0)+=ii(|
0000edf0  30 2c 33 2c 4d 25 29 3a  ed 3a 69 69 28 30 2c 30  |0,3,M%):.:ii(0,0|
0000ee00  2c 38 29 3d 69 69 28 30  2c 31 2c 38 29 2b 69 69  |,8)=ii(0,1,8)+ii|
0000ee10  28 30 2c 32 2c 38 29 2b  69 69 28 30 2c 33 2c 38  |(0,2,8)+ii(0,3,8|
0000ee20  29 3a 69 69 28 30 2c 30  2c 30 29 3d 69 69 28 30  |):ii(0,0,0)=ii(0|
0000ee30  2c 31 2c 30 29 2b 69 69  28 30 2c 32 2c 30 29 2b  |,1,0)+ii(0,2,0)+|
0000ee40  69 69 28 30 2c 33 2c 30  29 3a 6a 69 28 30 2c 38  |ii(0,3,0):ji(0,8|
0000ee50  29 3d 30 2e 38 3a 6a 69  28 30 2c 30 29 3d 30 3a  |)=0.8:ji(0,0)=0:|
0000ee60  e3 4d 25 3d 32 b8 38 3a  6a 69 28 30 2c 30 29 2b  |.M%=2.8:ji(0,0)+|
0000ee70  3d 6a 69 28 30 2c 4d 25  29 3a ed 3a e3 4e 25 3d  |=ji(0,M%):.:.N%=|
0000ee80  31 b8 31 36 30 3a 67 69  28 4e 25 2c 38 29 3d 31  |1.160:gi(N%,8)=1|
0000ee90  2e 30 31 2a 67 69 28 4e  25 2d 31 2c 38 29 0d 3f  |.01*gi(N%-1,8).?|
0000eea0  52 cc 67 69 28 4e 25 2c  30 29 3d 30 3a e3 4d 25  |R.gi(N%,0)=0:.M%|
0000eeb0  3d 32 b8 38 3a 67 69 28  4e 25 2c 30 29 2b 3d 67  |=2.8:gi(N%,0)+=g|
0000eec0  69 28 4e 25 2c 4d 25 29  3a ed 4d 25 3a 68 69 28  |i(N%,M%):.M%:hi(|
0000eed0  4e 25 2c 38 29 3d 31 2e  30 30 38 2a 68 69 28 4e  |N%,8)=1.008*hi(N|
0000eee0  25 2d 31 2c 38 29 3a 68  69 28 4e 25 2c 30 29 3d  |%-1,8):hi(N%,0)=|
0000eef0  30 3a e3 4d 25 3d 32 b8  38 3a 68 69 28 4e 25 2c  |0:.M%=2.8:hi(N%,|
0000ef00  30 29 2b 3d 68 69 28 4e  25 2c 4d 25 29 3a ed 4d  |0)+=hi(N%,M%):.M|
0000ef10  25 3a 69 69 28 4e 25 2c  31 2c 38 29 3d 59 6a 28  |%:ii(N%,1,8)=Yj(|
0000ef20  4e 25 2c 31 29 3a 69 69  28 4e 25 2c 31 2c 30 29  |N%,1):ii(N%,1,0)|
0000ef30  3d 30 3a e3 4d 25 3d 32  b8 38 3a 69 69 28 4e 25  |=0:.M%=2.8:ii(N%|
0000ef40  2c 31 2c 30 29 2b 3d 69  69 28 4e 25 2c 31 2c 4d  |,1,0)+=ii(N%,1,M|
0000ef50  25 29 3a ed 4d 25 3a 69  69 28 4e 25 2c 32 2c 38  |%):.M%:ii(N%,2,8|
0000ef60  29 3d 59 6a 28 4e 25 2c  32 29 0d 3f 5e d1 69 69  |)=Yj(N%,2).?^.ii|
0000ef70  28 4e 25 2c 32 2c 30 29  3d 30 3a e3 4d 25 3d 32  |(N%,2,0)=0:.M%=2|
0000ef80  b8 38 3a 69 69 28 4e 25  2c 32 2c 30 29 2b 3d 69  |.8:ii(N%,2,0)+=i|
0000ef90  69 28 4e 25 2c 32 2c 4d  25 29 3a ed 4d 25 3a 69  |i(N%,2,M%):.M%:i|
0000efa0  69 28 4e 25 2c 33 2c 38  29 3d 59 6a 28 4e 25 2c  |i(N%,3,8)=Yj(N%,|
0000efb0  33 29 3a 69 69 28 4e 25  2c 33 2c 30 29 3d 30 3a  |3):ii(N%,3,0)=0:|
0000efc0  e3 4d 25 3d 32 b8 38 3a  69 69 28 4e 25 2c 33 2c  |.M%=2.8:ii(N%,3,|
0000efd0  30 29 2b 3d 69 69 28 4e  25 2c 33 2c 4d 25 29 3a  |0)+=ii(N%,3,M%):|
0000efe0  ed 4d 25 3a 69 69 28 4e  25 2c 30 2c 38 29 3d 69  |.M%:ii(N%,0,8)=i|
0000eff0  69 28 4e 25 2c 31 2c 38  29 2b 69 69 28 4e 25 2c  |i(N%,1,8)+ii(N%,|
0000f000  32 2c 38 29 2b 69 69 28  4e 25 2c 33 2c 38 29 3a  |2,8)+ii(N%,3,8):|
0000f010  69 69 28 4e 25 2c 30 2c  30 29 3d 69 69 28 4e 25  |ii(N%,0,0)=ii(N%|
0000f020  2c 31 2c 30 29 2b 69 69  28 4e 25 2c 32 2c 30 29  |,1,0)+ii(N%,2,0)|
0000f030  2b 69 69 28 4e 25 2c 33  2c 30 29 0d 3f 68 4e 6a  |+ii(N%,3,0).?hNj|
0000f040  69 28 4e 25 2c 38 29 3d  31 2e 30 30 35 2a 6a 69  |i(N%,8)=1.005*ji|
0000f050  28 4e 25 2d 31 2c 38 29  3a 6a 69 28 4e 25 2c 30  |(N%-1,8):ji(N%,0|
0000f060  29 3d 30 3a e3 4d 25 3d  32 b8 38 3a 6a 69 28 4e  |)=0:.M%=2.8:ji(N|
0000f070  25 2c 30 29 2b 3d 6a 69  28 4e 25 2c 4d 25 29 3a  |%,0)+=ji(N%,M%):|
0000f080  ed 4d 25 3a ed 4e 25 3a  e1 0d 3f 72 ab dd f2 4a  |.M%:.N%:..?r...J|
0000f090  64 3a 51 64 25 3d 28 70  62 25 2d 72 62 25 29 3a  |d:Qd%=(pb%-rb%):|
0000f0a0  6e 62 3d 31 2f 51 64 25  3a 75 63 25 3d 28 5f 62  |nb=1/Qd%:uc%=(_b|
0000f0b0  25 2d 60 62 25 29 3a 7a  62 3d 31 2f 75 63 25 3a  |%-`b%):zb=1/uc%:|
0000f0c0  53 64 25 3d 28 4c 63 25  2d 4e 63 25 29 3a 4a 63  |Sd%=(Lc%-Nc%):Jc|
0000f0d0  3d 31 2f 53 64 25 3a 58  64 25 3d 28 58 63 25 2d  |=1/Sd%:Xd%=(Xc%-|
0000f0e0  59 63 25 29 3a 57 63 3d  31 2f 58 64 25 3a 59 64  |Yc%):Wc=1/Xd%:Yd|
0000f0f0  25 3d 28 64 63 25 2d 65  63 25 29 3a 63 63 3d 31  |%=(dc%-ec%):cc=1|
0000f100  2f 59 64 25 3a 5a 64 25  3d 28 6a 63 25 2d 6b 63  |/Yd%:Zd%=(jc%-kc|
0000f110  25 29 3a 69 63 3d 31 2f  5a 64 25 3a 4b 64 25 3d  |%):ic=1/Zd%:Kd%=|
0000f120  28 5a 62 25 2d 62 62 25  29 3a 48 69 3d 31 2f 4b  |(Zb%-bb%):Hi=1/K|
0000f130  64 25 3a e1 0d 3f 86 37  dd f2 74 63 28 69 68 25  |d%:..?.7..tc(ih%|
0000f140  2c 6a 68 25 2c 5a 6a 25  2c f8 61 6a 25 2c f8 62  |,jh%,Zj%,.aj%,.b|
0000f150  6a 25 2c f8 42 6a 25 2c  f8 43 6a 29 3a e7 5a 6a  |j%,.Bj%,.Cj):.Zj|
0000f160  25 3d 31 8c 3a 63 6a 3d  30 2e 31 0d 3f 8a 12 e7  |%=1.:cj=0.1.?...|
0000f170  5a 6a 25 3d 32 8c 3a 63  6a 3d 30 2e 32 0d 3f 8c  |Zj%=2.:cj=0.2.?.|
0000f180  1a e7 33 3c 3d 5a 6a 25  80 5a 6a 25 3c 3d 37 8c  |..3<=Zj%.Zj%<=7.|
0000f190  3a 63 6a 3d 30 2e 35 0d  3f 8e 19 e7 38 3c 3d 5a  |:cj=0.5.?...8<=Z|
0000f1a0  6a 25 80 5a 6a 25 3c 3d  31 35 8c 3a 63 6a 3d 31  |j%.Zj%<=15.:cj=1|
0000f1b0  0d 3f 90 1a e7 31 36 3c  3d 5a 6a 25 80 5a 6a 25  |.?...16<=Zj%.Zj%|
0000f1c0  3c 3d 33 30 8c 3a 63 6a  3d 32 0d 3f 92 1a e7 33  |<=30.:cj=2.?...3|
0000f1d0  31 3c 3d 5a 6a 25 80 5a  6a 25 3c 3d 37 35 8c 3a  |1<=Zj%.Zj%<=75.:|
0000f1e0  63 6a 3d 35 0d 3f 94 1c  e7 37 36 3c 3d 5a 6a 25  |cj=5.?...76<=Zj%|
0000f1f0  80 5a 6a 25 3c 3d 31 35  30 8c 3a 63 6a 3d 31 30  |.Zj%<=150.:cj=10|
0000f200  0d 3f 96 1d e7 31 35 31  3c 3d 5a 6a 25 80 5a 6a  |.?...151<=Zj%.Zj|
0000f210  25 3c 3d 33 30 30 8c 3a  63 6a 3d 32 30 0d 3f 98  |%<=300.:cj=20.?.|
0000f220  1d e7 33 30 31 3c 3d 5a  6a 25 80 5a 6a 25 3c 3d  |..301<=Zj%.Zj%<=|
0000f230  37 35 30 8c 3a 63 6a 3d  35 30 0d 3f 9a 1f e7 37  |750.:cj=50.?...7|
0000f240  35 31 3c 3d 5a 6a 25 80  5a 6a 25 3c 3d 31 35 30  |51<=Zj%.Zj%<=150|
0000f250  30 8c 3a 63 6a 3d 31 30  30 0d 3f 9c 20 e7 31 35  |0.:cj=100.?. .15|
0000f260  30 31 3c 3d 5a 6a 25 80  5a 6a 25 3c 3d 33 30 30  |01<=Zj%.Zj%<=300|
0000f270  30 8c 3a 63 6a 3d 32 30  30 0d 3f 9e 20 e7 33 30  |0.:cj=200.?. .30|
0000f280  30 31 3c 3d 5a 6a 25 80  5a 6a 25 3c 3d 37 35 30  |01<=Zj%.Zj%<=750|
0000f290  30 8c 3a 63 6a 3d 35 30  30 0d 3f a0 22 e7 37 35  |0.:cj=500.?.".75|
0000f2a0  30 31 3c 3d 5a 6a 25 80  5a 6a 25 3c 3d 31 30 30  |01<=Zj%.Zj%<=100|
0000f2b0  30 30 8c 3a 63 6a 3d 31  30 30 30 0d 3f a2 11 64  |00.:cj=1000.?..d|
0000f2c0  6a 25 3d 31 3a e7 63 6a  3e 3d 31 8c 0d 3f a6 14  |j%=1:.cj>=1..?..|
0000f2d0  e7 6a 68 25 83 63 6a 3d  30 8c 3a 64 6a 25 3d 30  |.jh%.cj=0.:dj%=0|
0000f2e0  0d 3f a8 2e cd 3a f2 65  6a 28 64 6a 25 2c 63 6a  |.?...:.ej(dj%,cj|
0000f2f0  2c 69 68 25 2c 6a 68 25  2c 5a 6a 25 2c 61 6a 25  |,ih%,jh%,Zj%,aj%|
0000f300  2c 62 6a 25 2c 42 6a 25  2c 43 6a 29 3a e1 0d 3f  |,bj%,Bj%,Cj):..?|
0000f310  b0 7e dd f2 65 6a 28 64  6a 25 2c 63 6a 2c 69 68  |.~..ej(dj%,cj,ih|
0000f320  25 2c 6a 68 25 2c 5a 6a  25 2c f8 61 6a 25 2c f8  |%,jh%,Zj%,.aj%,.|
0000f330  62 6a 25 2c f8 42 6a 25  2c f8 43 6a 29 3a 61 6a  |bj%,.Bj%,.Cj):aj|
0000f340  25 3d 69 68 25 2d 63 6a  2a 28 a8 28 69 68 25 2f  |%=ih%-cj*(.(ih%/|
0000f350  63 6a 29 29 3a 62 6a 25  3d 63 6a 2a 28 a8 28 6a  |cj)):bj%=cj*(.(j|
0000f360  68 25 2f 63 6a 29 2b 64  6a 25 29 2d 6a 68 25 3a  |h%/cj)+dj%)-jh%:|
0000f370  42 6a 25 3d 28 5a 6a 25  2d 61 6a 25 2d 62 6a 25  |Bj%=(Zj%-aj%-bj%|
0000f380  29 2f 63 6a 3a 43 6a 3d  63 6a 3a e1 0d 3f ce e2  |)/cj:Cj=cj:..?..|
0000f390  dd f2 49 5f 3a 6b 68 25  3d 8e 28 22 3c 43 4f 32  |..I_:kh%=.("<CO2|
0000f3a0  65 66 66 65 63 74 24 44  69 72 3e 2e 44 61 74 61  |effect$Dir>.Data|
0000f3b0  2e 47 43 5f 44 61 74 61  22 29 3a e3 4e 25 3d 30  |.GC_Data"):.N%=0|
0000f3c0  b8 34 30 30 3a e8 23 6b  68 25 2c 53 69 28 4e 25  |.400:.#kh%,Si(N%|
0000f3d0  29 3a e8 23 6b 68 25 2c  54 69 28 4e 25 29 3a e8  |):.#kh%,Ti(N%):.|
0000f3e0  23 6b 68 25 2c 55 69 28  4e 25 2c 30 29 3a e8 23  |#kh%,Ui(N%,0):.#|
0000f3f0  6b 68 25 2c 55 69 28 4e  25 2c 31 29 3a e8 23 6b  |kh%,Ui(N%,1):.#k|
0000f400  68 25 2c 55 69 28 4e 25  2c 32 29 3a e8 23 6b 68  |h%,Ui(N%,2):.#kh|
0000f410  25 2c 55 69 28 4e 25 2c  33 29 3a e8 23 6b 68 25  |%,Ui(N%,3):.#kh%|
0000f420  2c 59 69 28 4e 25 29 3a  e8 23 6b 68 25 2c 61 69  |,Yi(N%):.#kh%,ai|
0000f430  28 4e 25 29 3a e8 23 6b  68 25 2c 62 69 28 4e 25  |(N%):.#kh%,bi(N%|
0000f440  29 3a e8 23 6b 68 25 2c  64 69 28 4e 25 2c 30 29  |):.#kh%,di(N%,0)|
0000f450  3a e8 23 6b 68 25 2c 64  69 28 4e 25 2c 31 29 3a  |:.#kh%,di(N%,1):|
0000f460  e8 23 6b 68 25 2c 64 69  28 4e 25 2c 32 29 0d 3f  |.#kh%,di(N%,2).?|
0000f470  ee 60 e8 23 6b 68 25 2c  64 69 28 4e 25 2c 33 29  |.`.#kh%,di(N%,3)|
0000f480  3a e8 23 6b 68 25 2c 63  69 28 4e 25 29 3a e8 23  |:.#kh%,ci(N%):.#|
0000f490  6b 68 25 2c 52 69 28 4e  25 29 3a ed 4e 25 3a 4d  |kh%,Ri(N%):.N%:M|
0000f4a0  6a 28 29 3d 53 69 28 29  3a 4e 6a 28 29 3d 54 69  |j()=Si():Nj()=Ti|
0000f4b0  28 29 3a 50 6a 28 29 3d  59 69 28 29 3a 4f 6a 28  |():Pj()=Yi():Oj(|
0000f4c0  29 3d 55 69 28 29 3a d9  23 6b 68 25 3a e1 0d 40  |)=Ui():.#kh%:..@|
0000f4d0  08 0f dd f2 4a 5f 3a c8  8e 43 64 25 ca 0d 40 10  |....J_:..Cd%..@.|
0000f4e0  24 c9 30 3a e3 4e 25 3d  30 b8 32 34 30 3a 74 28  |$.0:.N%=0.240:t(|
0000f4f0  4e 25 29 3d a4 6b 69 28  52 69 28 4e 25 29 29 3a  |N%)=.ki(Ri(N%)):|
0000f500  ed 0d 40 14 24 c9 31 3a  e3 4e 25 3d 30 b8 32 34  |..@.$.1:.N%=0.24|
0000f510  30 3a 74 28 4e 25 29 3d  a4 6c 69 28 52 69 28 4e  |0:t(N%)=.li(Ri(N|
0000f520  25 29 29 3a ed 0d 40 18  24 c9 32 3a e3 4e 25 3d  |%)):..@.$.2:.N%=|
0000f530  30 b8 32 34 30 3a 74 28  4e 25 29 3d a4 6d 69 28  |0.240:t(N%)=.mi(|
0000f540  52 69 28 4e 25 29 29 3a  ed 0d 40 1c 24 c9 33 3a  |Ri(N%)):..@.$.3:|
0000f550  e3 4e 25 3d 30 b8 32 34  30 3a 74 28 4e 25 29 3d  |.N%=0.240:t(N%)=|
0000f560  a4 6e 69 28 52 69 28 4e  25 29 29 3a ed 0d 40 20  |.ni(Ri(N%)):..@ |
0000f570  07 cb 3a e1 0d 40 2c 6d  dd f2 4b 5f 3a 5a 66 25  |..:..@,m..K_:Zf%|
0000f580  3d b9 3a 41 67 25 3d a3  3a 6e 64 25 3d a3 3a 64  |=.:Ag%=.:nd%=.:d|
0000f590  66 25 3d a3 3a 68 66 25  3d a3 3a 78 64 25 3d b9  |f%=.:hf%=.:xd%=.|
0000f5a0  3a 6c 64 25 3d 30 3a 63  67 25 3d 31 35 35 3a de  |:ld%=0:cg%=155:.|
0000f5b0  42 60 24 28 37 2c 38 29  3a f7 8d 60 64 47 3a e3  |B`$(7,8):..`dG:.|
0000f5c0  4e 25 3d 31 b8 37 3a f3  42 60 24 28 4e 25 2c 30  |N%=1.7:.B`$(N%,0|
0000f5d0  29 3a ed 3a e3 4e 25 3d  31 b8 37 3a c8 8e 4e 25  |):.:.N%=1.7:..N%|
0000f5e0  ca 0d 40 40 1a c9 31 3a  66 6a 24 3d 22 3a 20 43  |..@@..1:fj$=": C|
0000f5f0  20 65 6d 69 73 73 69 6f  6e 73 22 0d 40 42 1c c9  | emissions".@B..|
0000f600  32 3a 66 6a 24 3d 22 3a  20 43 48 34 20 65 6d 69  |2:fj$=": CH4 emi|
0000f610  73 73 69 6f 6e 73 22 0d  40 44 1c c9 33 3a 66 6a  |ssions".@D..3:fj|
0000f620  24 3d 22 3a 20 4e 32 4f  20 65 6d 69 73 73 69 6f  |$=": N2O emissio|
0000f630  6e 73 22 0d 40 46 1f c9  34 3a 66 6a 24 3d 22 3a  |ns".@F..4:fj$=":|
0000f640  20 43 46 43 2d 31 31 20  65 6d 69 73 73 69 6f 6e  | CFC-11 emission|
0000f650  73 22 0d 40 48 1f c9 35  3a 66 6a 24 3d 22 3a 20  |s".@H..5:fj$=": |
0000f660  43 46 43 2d 31 32 20 65  6d 69 73 73 69 6f 6e 73  |CFC-12 emissions|
0000f670  22 0d 40 4a 20 c9 36 3a  66 6a 24 3d 22 3a 20 48  |".@J .6:fj$=": H|
0000f680  43 46 43 2d 32 32 20 65  6d 69 73 73 69 6f 6e 73  |CFC-22 emissions|
0000f690  22 0d 40 4c 20 c9 37 3a  66 6a 24 3d 22 3a 20 61  |".@L .7:fj$=": a|
0000f6a0  6c 6c 20 43 46 43 20 65  6d 69 73 73 69 6f 6e 73  |ll CFC emissions|
0000f6b0  22 0d 40 4e e3 cb 3a f7  8d 60 66 47 3a e3 4d 25  |".@N..:..`fG:.M%|
0000f6c0  3d 31 b8 38 3a f3 42 60  24 28 4e 25 2c 4d 25 29  |=1.8:.B`$(N%,M%)|
0000f6d0  3a 42 60 24 28 4e 25 2c  4d 25 29 3d 42 60 24 28  |:B`$(N%,M%)=B`$(|
0000f6e0  4e 25 2c 4d 25 29 2b 66  6a 24 3a ed 4d 25 3a ed  |N%,M%)+fj$:.M%:.|
0000f6f0  4e 25 3a 60 63 25 3d 32  35 30 3a 41 64 25 3d 30  |N%:`c%=250:Ad%=0|
0000f700  3a 43 67 25 3d 32 36 35  3a 71 64 25 3d 30 3a 62  |:Cg%=265:qd%=0:b|
0000f710  66 25 3d 32 30 39 30 3a  54 67 25 3d 31 39 39 30  |f%=2090:Tg%=1990|
0000f720  3a de 70 64 25 28 37 29  2c 71 64 25 28 37 29 2c  |:.pd%(7),qd%(7),|
0000f730  72 64 25 28 37 29 2c 67  6a 28 37 29 2c 73 64 25  |rd%(7),gj(7),sd%|
0000f740  28 37 29 2c 74 64 25 28  37 29 2c 75 64 25 28 37  |(7),td%(7),ud%(7|
0000f750  29 2c 76 64 28 37 29 3a  de 68 6a 25 28 33 2c 35  |),vd(7):.hj%(3,5|
0000f760  2c 31 30 29 3a de 69 6a  25 28 33 2c 35 2c 34 29  |,10):.ij%(3,5,4)|
0000f770  3a de 6a 6a 25 28 33 2c  35 2c 35 29 3a de 6b 6a  |:.jj%(3,5,5):.kj|
0000f780  25 28 33 2c 35 2c 32 29  3a de 6c 6a 25 28 33 2c  |%(3,5,2):.lj%(3,|
0000f790  35 2c 32 29 0d 40 72 d3  de 6d 6a 25 28 33 2c 35  |5,2).@r..mj%(3,5|
0000f7a0  2c 35 29 3a de 6e 6a 25  28 33 2c 35 2c 33 29 3a  |,5):.nj%(3,5,3):|
0000f7b0  f2 6f 6a 3a de 65 65 25  28 35 29 2c 67 65 25 28  |.oj:.ee%(5),ge%(|
0000f7c0  35 29 2c 69 65 25 28 35  29 2c 6b 65 25 28 35 29  |5),ie%(5),ke%(5)|
0000f7d0  2c 6d 65 25 28 35 29 3a  de 64 65 25 28 35 29 2c  |,me%(5):.de%(5),|
0000f7e0  66 65 25 28 35 29 2c 68  65 25 28 35 29 2c 6a 65  |fe%(5),he%(5),je|
0000f7f0  25 28 35 29 2c 6c 65 25  28 35 29 3a de 70 6a 28  |%(5),le%(5):.pj(|
0000f800  31 36 30 2c 33 29 3a de  71 6a 28 31 36 30 29 3a  |160,3):.qj(160):|
0000f810  de 72 6a 28 31 36 30 29  3a de 73 6a 28 31 36 30  |.rj(160):.sj(160|
0000f820  29 3a de 74 6a 28 31 36  30 29 3a de 75 6a 28 31  |):.tj(160):.uj(1|
0000f830  36 30 29 3a de 76 6a 28  31 36 30 29 3a de 4e 65  |60):.vj(160):.Ne|
0000f840  25 28 35 29 2c 50 65 25  28 35 29 2c 52 65 25 28  |%(5),Pe%(5),Re%(|
0000f850  35 29 2c 54 65 25 28 35  29 2c 56 65 25 28 35 29  |5),Te%(5),Ve%(5)|
0000f860  2c 5a 65 25 28 35 29 0d  40 9a dd de 4d 65 25 28  |,Ze%(5).@...Me%(|
0000f870  35 29 2c 4f 65 25 28 35  29 2c 51 65 25 28 35 29  |5),Oe%(5),Qe%(5)|
0000f880  2c 53 65 25 28 35 29 2c  55 65 25 28 35 29 2c 59  |,Se%(5),Ue%(5),Y|
0000f890  65 25 28 35 29 3a de 77  6a 28 31 36 30 29 3a de  |e%(5):.wj(160):.|
0000f8a0  78 6a 28 31 36 30 29 3a  de 79 6a 28 31 36 30 29  |xj(160):.yj(160)|
0000f8b0  3a de 7a 6a 28 31 36 30  29 3a de 7a 64 25 28 35  |:.zj(160):.zd%(5|
0000f8c0  29 2c 60 64 25 28 35 29  2c 42 65 25 28 35 29 2c  |),`d%(5),Be%(5),|
0000f8d0  44 65 25 28 35 29 2c 46  65 25 28 35 29 2c 4c 65  |De%(5),Fe%(5),Le|
0000f8e0  25 28 35 29 3a de 79 64  25 28 35 29 2c 5f 64 25  |%(5):.yd%(5),_d%|
0000f8f0  28 35 29 2c 41 65 25 28  35 29 2c 43 65 25 28 35  |(5),Ae%(5),Ce%(5|
0000f900  29 2c 45 65 25 28 35 29  2c 4b 65 25 28 35 29 3a  |),Ee%(5),Ke%(5):|
0000f910  de 48 65 25 28 35 2c 34  29 2c 47 65 25 28 35 2c  |.He%(5,4),Ge%(5,|
0000f920  34 29 3a de 5f 6a 28 35  2c 35 29 2c 60 6a 25 28  |4):._j(5,5),`j%(|
0000f930  35 29 3a de 75 66 28 31  36 30 2c 35 29 3a de 41  |5):.uf(160,5):.A|
0000f940  6b 28 35 29 0d 40 b4 de  de 76 66 28 31 36 30 2c  |k(5).@...vf(160,|
0000f950  34 29 3a de 41 66 25 28  35 29 2c 43 66 25 28 35  |4):.Af%(5),Cf%(5|
0000f960  29 2c 47 66 25 28 35 29  3a de 60 65 25 28 35 29  |),Gf%(5):.`e%(5)|
0000f970  2c 42 66 25 28 35 29 2c  46 66 25 28 35 29 3a de  |,Bf%(5),Ff%(5):.|
0000f980  42 6b 28 31 36 30 29 2c  43 6b 28 31 36 30 29 3a  |Bk(160),Ck(160):|
0000f990  de 49 66 25 28 35 29 2c  4b 66 25 28 35 29 2c 4f  |.If%(5),Kf%(5),O|
0000f9a0  66 25 28 35 29 3a de 48  66 25 28 35 29 2c 4a 66  |f%(5):.Hf%(5),Jf|
0000f9b0  25 28 35 29 2c 4e 66 25  28 35 29 3a de 44 6b 28  |%(5),Nf%(5):.Dk(|
0000f9c0  31 36 30 29 2c 45 6b 28  31 36 30 29 3a de 6f 65  |160),Ek(160):.oe|
0000f9d0  25 28 35 29 2c 71 65 25  28 35 29 2c 73 65 25 28  |%(5),qe%(5),se%(|
0000f9e0  35 29 2c 75 65 25 28 35  29 2c 77 65 25 28 35 29  |5),ue%(5),we%(5)|
0000f9f0  2c 5f 65 25 28 35 29 3a  de 6e 65 25 28 35 29 2c  |,_e%(5):.ne%(5),|
0000fa00  70 65 25 28 35 29 2c 72  65 25 28 35 29 2c 74 65  |pe%(5),re%(5),te|
0000fa10  25 28 35 29 2c 76 65 25  28 35 29 2c 7a 65 25 28  |%(5),ve%(5),ze%(|
0000fa20  35 29 0d 40 d2 a8 de 46  6b 28 35 2c 34 29 3a de  |5).@...Fk(5,4):.|
0000fa30  59 6a 28 31 36 30 2c 34  29 3a de 51 66 25 28 35  |Yj(160,4):.Qf%(5|
0000fa40  29 2c 53 66 25 28 35 29  2c 55 66 25 28 35 29 2c  |),Sf%(5),Uf%(5),|
0000fa50  59 66 25 28 35 29 3a de  50 66 25 28 35 29 2c 52  |Yf%(5):.Pf%(5),R|
0000fa60  66 25 28 35 29 2c 54 66  25 28 35 29 2c 58 66 25  |f%(5),Tf%(5),Xf%|
0000fa70  28 35 29 3a de 47 6b 28  31 36 30 29 3a de 48 6b  |(5):.Gk(160):.Hk|
0000fa80  28 31 36 30 29 3a de 49  6b 28 31 36 30 29 3a de  |(160):.Ik(160):.|
0000fa90  6c 66 25 28 35 29 2c 6e  66 25 28 35 29 2c 6a 66  |lf%(5),nf%(5),jf|
0000faa0  25 28 36 29 3a de 6b 66  25 28 35 29 2c 6d 66 25  |%(6):.kf%(5),mf%|
0000fab0  28 35 29 2c 69 66 25 28  36 29 3a de 4a 6b 28 31  |(5),if%(6):.Jk(1|
0000fac0  36 30 29 3a f2 72 66 28  30 29 0d 40 fe c9 75 66  |60):.rf(0).@..uf|
0000fad0  28 30 2c 31 29 3d 7a 64  25 28 30 29 3a 75 66 28  |(0,1)=zd%(0):uf(|
0000fae0  30 2c 32 29 3d 60 64 25  28 30 29 3a 75 66 28 30  |0,2)=`d%(0):uf(0|
0000faf0  2c 33 29 3d 42 65 25 28  30 29 3a 75 66 28 30 2c  |,3)=Be%(0):uf(0,|
0000fb00  34 29 3d 44 65 25 28 30  29 3a 75 66 28 30 2c 35  |4)=De%(0):uf(0,5|
0000fb10  29 3d 46 65 25 28 30 29  3a 60 6a 25 28 31 29 3d  |)=Fe%(0):`j%(1)=|
0000fb20  37 3a 60 6a 25 28 32 29  3d 38 3a 60 6a 25 28 33  |7:`j%(2)=8:`j%(3|
0000fb30  29 3d 31 34 3a 60 6a 25  28 34 29 3d 39 3a 60 6a  |)=14:`j%(4)=9:`j|
0000fb40  25 28 35 29 3d 31 30 3a  f7 8d 60 4e 47 3a f3 41  |%(5)=10:..`NG:.A|
0000fb50  6b 28 31 29 3a f3 41 6b  28 32 29 3a f3 41 6b 28  |k(1):.Ak(2):.Ak(|
0000fb60  33 29 3a f3 41 6b 28 34  29 3a f3 41 6b 28 35 29  |3):.Ak(4):.Ak(5)|
0000fb70  3a 4a 65 25 3d 30 3a 4b  6b 3d 38 2e 38 39 45 2d  |:Je%=0:Kk=8.89E-|
0000fb80  35 3a 4c 6b 3d 35 36 3a  58 65 25 3d 30 3a 57 65  |5:Lk=56:Xe%=0:We|
0000fb90  25 3d 30 0d 41 12 dd 70  6a 28 30 2c 30 29 3d 35  |%=0.A..pj(0,0)=5|
0000fba0  2e 38 30 45 39 3a 70 6a  28 30 2c 31 29 3d 34 2e  |.80E9:pj(0,1)=4.|
0000fbb0  32 32 45 39 3a 70 6a 28  30 2c 32 29 3d 31 2e 30  |22E9:pj(0,2)=1.0|
0000fbc0  35 45 39 3a 70 6a 28 30  2c 33 29 3d 30 2e 35 33  |5E9:pj(0,3)=0.53|
0000fbd0  45 39 3a 4d 6b 3d 30 2e  37 35 3a 4e 6b 3d 31 2e  |E9:Mk=0.75:Nk=1.|
0000fbe0  35 3a 4f 6b 3d 31 2e 35  3a 76 6a 3d 28 69 65 25  |5:Ok=1.5:vj=(ie%|
0000fbf0  28 30 29 2f 31 30 30 29  2a 28 31 30 30 2f 28 31  |(0)/100)*(100/(1|
0000fc00  30 30 2d 6b 65 25 28 30  29 29 29 2a 31 2e 32 37  |00-ke%(0)))*1.27|
0000fc10  45 2d 31 30 3a 63 65 25  3d 30 3a 59 6a 28 30 2c  |E-10:ce%=0:Yj(0,|
0000fc20  31 29 3d 6f 65 25 28 30  29 3a 59 6a 28 30 2c 32  |1)=oe%(0):Yj(0,2|
0000fc30  29 3d 71 65 25 28 30 29  3a 59 6a 28 30 2c 33 29  |)=qe%(0):Yj(0,3)|
0000fc40  3d 73 65 25 28 30 29 3a  59 6a 28 30 2c 34 29 3d  |=se%(0):Yj(0,4)=|
0000fc50  75 65 25 28 30 29 3a 59  6a 28 30 2c 31 29 3d 77  |ue%(0):Yj(0,1)=w|
0000fc60  65 25 28 30 29 2a 6f 65  25 28 30 29 2f 31 30 30  |e%(0)*oe%(0)/100|
0000fc70  0d 41 22 dc 59 6a 28 30  2c 32 29 3d 77 65 25 28  |.A".Yj(0,2)=we%(|
0000fc80  30 29 2a 71 65 25 28 30  29 2f 31 30 30 3a 59 6a  |0)*qe%(0)/100:Yj|
0000fc90  28 30 2c 33 29 3d 77 65  25 28 30 29 2a 73 65 25  |(0,3)=we%(0)*se%|
0000fca0  28 30 29 2f 31 30 30 3a  59 6a 28 30 2c 34 29 3d  |(0)/100:Yj(0,4)=|
0000fcb0  77 65 25 28 30 29 2a 75  65 25 28 30 29 2f 31 30  |we%(0)*ue%(0)/10|
0000fcc0  30 3a 79 65 25 3d 30 3a  50 6b 3d 36 2e 37 34 45  |0:ye%=0:Pk=6.74E|
0000fcd0  2d 38 3a 51 6b 3d 32 2e  35 39 45 2d 38 3a 52 6b  |-8:Qk=2.59E-8:Rk|
0000fce0  3d 31 2e 34 35 45 2d 36  3a 45 66 25 3d 30 3a 53  |=1.45E-6:Ef%=0:S|
0000fcf0  6b 3d 32 2e 36 37 45 2d  38 3a 54 6b 3d 33 2e 31  |k=2.67E-8:Tk=3.1|
0000fd00  34 45 2d 38 3a 4d 66 25  3d 30 3a 55 6b 3d 30 2e  |4E-8:Mf%=0:Uk=0.|
0000fd10  32 3a 56 6b 3d 30 2e 37  3a 57 6b 3d 36 33 3a 57  |2:Vk=0.7:Wk=63:W|
0000fd20  66 25 3d 30 3a f7 8d 60  54 47 3a e3 4e 25 3d 30  |f%=0:..`TG:.N%=0|
0000fd30  b8 35 3a f3 6c 66 25 28  4e 25 29 3a f3 6e 66 25  |.5:.lf%(N%):.nf%|
0000fd40  28 4e 25 29 3a ed 3a 70  66 25 3d 30 0d 41 4e d0  |(N%):.:pf%=0.AN.|
0000fd50  f2 74 66 28 4c 65 25 28  29 2c 75 66 28 29 2c 75  |.tf(Le%(),uf(),u|
0000fd60  66 28 29 2c 2d 31 29 3a  f2 74 66 28 4c 65 25 28  |f(),-1):.tf(Le%(|
0000fd70  29 2c 76 66 28 29 2c 76  66 28 29 2c 30 29 3a f2  |),vf(),vf(),0):.|
0000fd80  77 66 3a f2 78 66 3a f2  79 66 3a f2 7a 66 3a f2  |wf:.xf:.yf:.zf:.|
0000fd90  5f 66 3a f2 60 66 3a f2  6d 64 3a f2 6f 64 28 62  |_f:.`f:.md:.od(b|
0000fda0  66 25 2c 54 67 25 2c 55  67 25 2c 56 67 25 2c 57  |f%,Tg%,Ug%,Vg%,W|
0000fdb0  67 25 2c 58 67 25 2c 59  67 29 3a f2 6f 64 28 60  |g%,Xg%,Yg):.od(`|
0000fdc0  63 25 2c 41 64 25 2c 42  67 25 2c 73 64 25 2c 74  |c%,Ad%,Bg%,sd%,t|
0000fdd0  64 25 2c 75 64 25 2c 76  64 29 3a f2 6f 64 28 43  |d%,ud%,vd):.od(C|
0000fde0  67 25 2c 44 67 25 2c 45  67 25 2c 46 67 25 2c 47  |g%,Dg%,Eg%,Fg%,G|
0000fdf0  67 25 2c 48 67 25 2c 49  67 29 3a f2 6f 64 28 4a  |g%,Hg%,Ig):.od(J|
0000fe00  67 25 2c 4b 67 25 2c 4c  67 25 2c 4d 67 25 2c 4e  |g%,Kg%,Lg%,Mg%,N|
0000fe10  67 25 2c 4f 67 25 2c 50  67 29 3a e1 0d 41 70 2b  |g%,Og%,Pg):..Ap+|
0000fe20  dd f2 5f 68 28 78 25 2c  79 25 2c 73 68 25 29 3a  |.._h(x%,y%,sh%):|
0000fe30  ea 47 6a 25 2c 58 6b 25  2c 4c 69 25 2c 48 6a 25  |.Gj%,Xk%,Li%,Hj%|
0000fe40  3a c8 8e 73 68 25 ca 0d  41 7c 1f c9 41 60 25 28  |:..sh%..A|..A`%(|
0000fe50  31 29 3a f2 59 6b 28 78  25 2c 79 25 2c 51 63 25  |1):.Yk(x%,y%,Qc%|
0000fe60  2c 67 69 28 29 29 0d 41  7e 1f c9 41 60 25 28 32  |,gi()).A~..A`%(2|
0000fe70  29 3a f2 59 6b 28 78 25  2c 79 25 2c 5a 63 25 2c  |):.Yk(x%,y%,Zc%,|
0000fe80  68 69 28 29 29 0d 41 80  1f c9 41 60 25 28 33 29  |hi()).A...A`%(3)|
0000fe90  3a f2 59 6b 28 78 25 2c  79 25 2c 6c 63 25 2c 6a  |:.Yk(x%,y%,lc%,j|
0000fea0  69 28 29 29 0d 41 82 24  c9 41 60 25 28 34 29 3a  |i()).A.$.A`%(4):|
0000feb0  f2 5a 6b 28 78 25 2c 79  25 2c 66 63 25 28 31 29  |.Zk(x%,y%,fc%(1)|
0000fec0  2c 69 69 28 29 2c 31 29  0d 41 84 24 c9 41 60 25  |,ii(),1).A.$.A`%|
0000fed0  28 35 29 3a f2 5a 6b 28  78 25 2c 79 25 2c 66 63  |(5):.Zk(x%,y%,fc|
0000fee0  25 28 32 29 2c 69 69 28  29 2c 32 29 0d 41 86 24  |%(2),ii(),2).A.$|
0000fef0  c9 41 60 25 28 36 29 3a  f2 5a 6b 28 78 25 2c 79  |.A`%(6):.Zk(x%,y|
0000ff00  25 2c 66 63 25 28 33 29  2c 69 69 28 29 2c 33 29  |%,fc%(3),ii(),3)|
0000ff10  0d 41 88 24 c9 41 60 25  28 37 29 3a f2 5a 6b 28  |.A.$.A`%(7):.Zk(|
0000ff20  78 25 2c 79 25 2c 66 63  25 28 30 29 2c 69 69 28  |x%,y%,fc%(0),ii(|
0000ff30  29 2c 30 29 0d 41 8a ba  cb 3a c8 99 32 36 32 33  |),0).A...:..2623|
0000ff40  37 34 2c 37 3a c8 93 c8  90 78 25 2b 39 39 2c 79  |74,7:....x%+99,y|
0000ff50  25 2d 33 34 31 2c 35 30  32 2c 32 3a c8 93 c8 90  |%-341,502,2:....|
0000ff60  78 25 2b 39 39 2c 79 25  2d 33 34 31 2c 32 2c 33  |x%+99,y%-341,2,3|
0000ff70  30 32 3a c8 93 c8 90 78  25 2b 35 39 39 2c 79 25  |02:....x%+599,y%|
0000ff80  2d 33 34 31 2c 32 2c 33  30 32 3a c8 93 c8 90 78  |-341,2,302:....x|
0000ff90  25 2b 39 39 2c 79 25 2d  34 31 2c 35 30 32 2c 32  |%+99,y%-41,502,2|
0000ffa0  3a f2 61 6b 28 73 68 25  29 3a c8 99 32 36 32 32  |:.ak(sh%):..2622|
0000ffb0  38 32 2c 70 68 25 3a c8  99 32 36 32 32 37 38 2c  |82,ph%:..262278,|
0000ffc0  2c 22 59 65 61 72 22 2c  25 31 30 30 30 30 2c 78  |,"Year",%10000,x|
0000ffd0  25 2b 33 30 30 2c 79 25  2d 34 32 30 3a e7 46 61  |%+300,y%-420:.Fa|
0000ffe0  25 3d 26 41 33 84 46 61  25 3d 26 41 34 8c 0d 41  |%=&A3.Fa%=&A4..A|
0000fff0  a4 71 c8 99 32 36 32 32  38 32 2c 6f 68 25 3a c8  |.q..262282,oh%:.|
00010000  99 32 36 32 32 38 31 2c  2c 78 25 2b 33 30 2c 79  |.262281,,x%+30,y|
00010010  25 2d 33 30 30 b8 2c 41  68 25 2c 42 68 25 3a 43  |%-300.,Ah%,Bh%:C|
00010020  60 25 21 34 3d 36 35 35  33 36 3a 43 60 25 21 38  |`%!4=65536:C`%!8|
00010030  3d 2d 36 35 35 33 36 3a  c8 99 32 36 32 32 37 38  |=-65536:..262278|
00010040  2c 2c 62 6b 24 2c 25 30  31 30 30 31 30 30 30 30  |,,bk$,%010010000|
00010050  30 30 2c 41 68 25 2c 42  68 25 2c 2c 43 60 25 0d  |00,Ah%,Bh%,,C`%.|
00010060  41 ac 7b cd 3a c8 99 32  36 32 32 38 32 2c 6e 68  |A.{.:..262282,nh|
00010070  25 3a f2 77 69 28 78 25  2c 79 25 2c 54 67 25 2c  |%:.wi(x%,y%,Tg%,|
00010080  31 30 30 2c 2d 33 34 30  2c 35 30 30 2c 33 30 30  |100,-340,500,300|
00010090  2c 63 6b 2c 57 67 25 2c  58 67 25 2c 59 67 2c 64  |,ck,Wg%,Xg%,Yg,d|
000100a0  66 25 2c 31 2c 2d 33 30  2c 2d 33 35 2c 34 2c 2d  |f%,1,-30,-35,4,-|
000100b0  31 29 3a f2 64 6b 28 73  68 25 2c 47 6a 25 2c 4c  |1):.dk(sh%,Gj%,L|
000100c0  69 25 2c 48 6a 25 29 3a  58 6b 25 3d a4 58 6b 28  |i%,Hj%):Xk%=.Xk(|
000100d0  73 68 25 29 3a e7 5a 66  25 8c 0d 41 bc 47 f2 49  |sh%):.Zf%..A.G.I|
000100e0  69 28 78 25 2c 79 25 2c  41 64 25 2c 31 30 30 2c  |i(x%,y%,Ad%,100,|
000100f0  2d 33 34 30 2c 35 30 30  2c 33 30 30 2c 65 6b 2c  |-340,500,300,ek,|
00010100  74 64 25 2c 75 64 25 2c  76 64 2c 68 66 25 2c 31  |td%,ud%,vd,hf%,1|
00010110  2c 2d 37 35 2c 2d 37 2c  47 6a 25 2c 2d 31 2c 30  |,-75,-7,Gj%,-1,0|
00010120  29 0d 41 be 65 cc 3a f2  49 69 28 78 25 2c 79 25  |).A.e.:.Ii(x%,y%|
00010130  2c 71 64 25 28 58 6b 25  29 2c 31 30 30 2c 2d 33  |,qd%(Xk%),100,-3|
00010140  34 30 2c 35 30 30 2c 33  30 30 2c 67 6a 28 58 6b  |40,500,300,gj(Xk|
00010150  25 29 2c 74 64 25 28 58  6b 25 29 2c 75 64 25 28  |%),td%(Xk%),ud%(|
00010160  58 6b 25 29 2c 76 64 28  58 6b 25 29 2c 68 66 25  |Xk%),vd(Xk%),hf%|
00010170  2c 4c 69 25 2c 2d 37 35  2c 2d 37 2c 47 6a 25 2c  |,Li%,-75,-7,Gj%,|
00010180  48 6a 25 2c 30 29 0d 41  c2 07 cd 3a e1 0d 41 c8  |Hj%,0).A...:..A.|
00010190  58 dd f2 59 6b 28 78 25  2c 79 25 2c 4e 69 25 2c  |X..Yk(x%,y%,Ni%,|
000101a0  66 6b 28 29 29 3a ea 67  6b 2c 68 6b 2c 69 6b 3a  |fk()):.gk,hk,ik:|
000101b0  c8 99 32 36 32 33 37 34  2c 4e 69 25 3a 69 6b 3d  |..262374,Ni%:ik=|
000101c0  65 6b 2a 33 30 30 3a e7  66 6b 28 30 2c 6c 64 25  |ek*300:.fk(0,ld%|
000101d0  29 3e 30 8c 6a 6b 3d 66  6b 28 30 2c 6c 64 25 29  |)>0.jk=fk(0,ld%)|
000101e0  8b 6a 6b 3d 31 0d 41 d6  4e e3 4e 25 3d 31 b8 28  |.jk=1.A.N.N%=1.(|
000101f0  62 66 25 2d 31 39 39 30  29 3a 67 6b 3d 69 6b 2a  |bf%-1990):gk=ik*|
00010200  28 31 30 30 2a 66 6b 28  4e 25 2d 31 2c 6c 64 25  |(100*fk(N%-1,ld%|
00010210  29 2f 6a 6b 2d 41 64 25  29 3a e7 67 6b 3e 33 30  |)/jk-Ad%):.gk>30|
00010220  30 8c 67 6b 3d 33 30 30  8b e7 67 6b 3c 30 8c 67  |0.gk=300..gk<0.g|
00010230  6b 3d 30 0d 41 da 3b 68  6b 3d 69 6b 2a 28 31 30  |k=0.A.;hk=ik*(10|
00010240  30 2a 66 6b 28 4e 25 2c  6c 64 25 29 2f 6a 6b 2d  |0*fk(N%,ld%)/jk-|
00010250  41 64 25 29 3a e7 68 6b  3e 33 30 30 8c 68 6b 3d  |Ad%):.hk>300.hk=|
00010260  33 30 30 8b e7 68 6b 3c  30 8c 68 6b 3d 30 0d 41  |300..hk<0.hk=0.A|
00010270  dc 42 86 78 25 2b 31 30  30 2b 35 30 30 2a 63 6b  |.B.x%+100+500*ck|
00010280  2a 28 4e 25 2d 31 29 2c  79 25 2d 33 34 30 2b 67  |*(N%-1),y%-340+g|
00010290  6b 2c 78 25 2b 31 30 30  2b 35 30 30 2a 63 6b 2a  |k,x%+100+500*ck*|
000102a0  4e 25 2c 79 25 2d 33 34  30 2b 68 6b 3a ed 3a e1  |N%,y%-340+hk:.:.|
000102b0  0d 41 e4 64 dd f2 5a 6b  28 78 25 2c 79 25 2c 4e  |.A.d..Zk(x%,y%,N|
000102c0  69 25 2c 66 6b 28 29 2c  55 69 25 29 3a ea 67 6b  |i%,fk(),Ui%):.gk|
000102d0  2c 68 6b 2c 69 6b 3a c8  99 32 36 32 33 37 34 2c  |,hk,ik:..262374,|
000102e0  4e 69 25 3a 69 6b 3d 65  6b 2a 33 30 30 3a e7 66  |Ni%:ik=ek*300:.f|
000102f0  6b 28 30 2c 55 69 25 2c  6c 64 25 29 3e 30 8c 6a  |k(0,Ui%,ld%)>0.j|
00010300  6b 3d 66 6b 28 30 2c 55  69 25 2c 6c 64 25 29 8b  |k=fk(0,Ui%,ld%).|
00010310  6a 6b 3d 31 0d 41 f2 52  e3 4e 25 3d 31 b8 28 62  |jk=1.A.R.N%=1.(b|
00010320  66 25 2d 31 39 39 30 29  3a 67 6b 3d 69 6b 2a 28  |f%-1990):gk=ik*(|
00010330  31 30 30 2a 66 6b 28 4e  25 2d 31 2c 55 69 25 2c  |100*fk(N%-1,Ui%,|
00010340  6c 64 25 29 2f 6a 6b 2d  41 64 25 29 3a e7 67 6b  |ld%)/jk-Ad%):.gk|
00010350  3e 33 30 30 8c 67 6b 3d  33 30 30 8b e7 67 6b 3c  |>300.gk=300..gk<|
00010360  30 8c 67 6b 3d 30 0d 41  f6 3f 68 6b 3d 69 6b 2a  |0.gk=0.A.?hk=ik*|
00010370  28 31 30 30 2a 66 6b 28  4e 25 2c 55 69 25 2c 6c  |(100*fk(N%,Ui%,l|
00010380  64 25 29 2f 6a 6b 2d 41  64 25 29 3a e7 68 6b 3e  |d%)/jk-Ad%):.hk>|
00010390  33 30 30 8c 68 6b 3d 33  30 30 8b e7 68 6b 3c 30  |300.hk=300..hk<0|
000103a0  8c 68 6b 3d 30 0d 41 f8  42 86 78 25 2b 31 30 30  |.hk=0.A.B.x%+100|
000103b0  2b 35 30 30 2a 63 6b 2a  28 4e 25 2d 31 29 2c 79  |+500*ck*(N%-1),y|
000103c0  25 2d 33 34 30 2b 67 6b  2c 78 25 2b 31 30 30 2b  |%-340+gk,x%+100+|
000103d0  35 30 30 2a 63 6b 2a 4e  25 2c 79 25 2d 33 34 30  |500*ck*N%,y%-340|
000103e0  2b 68 6b 3a ed 3a e1 0d  42 00 13 dd f2 61 6b 28  |+hk:.:..B....ak(|
000103f0  6b 6b 25 29 3a e7 5a 66  25 8c 0d 42 08 1a 62 6b  |kk%):.Zf%..B..bk|
00010400  24 3d 22 25 20 6f 66 20  31 39 39 30 20 6c 65 76  |$="% of 1990 lev|
00010410  65 6c 73 22 0d 42 0a 0c  cc 3a c8 8e 73 68 25 ca  |els".B...:..sh%.|
00010420  0d 42 0e 22 c9 41 60 25  28 31 29 3a 62 6b 24 3d  |.B.".A`%(1):bk$=|
00010430  22 47 74 20 63 61 72 62  6f 6e 20 70 65 72 20 79  |"Gt carbon per y|
00010440  72 22 0d 42 10 23 c9 41  60 25 28 32 29 3a 62 6b  |r".B.#.A`%(2):bk|
00010450  24 3d 22 54 67 20 6d 65  74 68 61 6e 65 20 70 65  |$="Tg methane pe|
00010460  72 20 79 72 22 0d 42 12  24 c9 41 60 25 28 33 29  |r yr".B.$.A`%(3)|
00010470  3a 62 6b 24 3d 22 54 67  20 6e 69 74 72 6f 67 65  |:bk$="Tg nitroge|
00010480  6e 20 70 65 72 20 79 72  22 0d 42 14 22 c9 41 60  |n per yr".B.".A`|
00010490  25 28 34 29 3a 62 6b 24  3d 22 6b 74 20 43 46 43  |%(4):bk$="kt CFC|
000104a0  2d 31 31 20 70 65 72 20  79 72 22 0d 42 16 22 c9  |-11 per yr".B.".|
000104b0  41 60 25 28 35 29 3a 62  6b 24 3d 22 6b 74 20 43  |A`%(5):bk$="kt C|
000104c0  46 43 2d 31 32 20 70 65  72 20 79 72 22 0d 42 18  |FC-12 per yr".B.|
000104d0  23 c9 41 60 25 28 36 29  3a 62 6b 24 3d 22 6b 74  |#.A`%(6):bk$="kt|
000104e0  20 48 43 46 43 2d 32 32  20 70 65 72 20 79 72 22  | HCFC-22 per yr"|
000104f0  0d 42 1a 27 c9 41 60 25  28 37 29 3a 62 6b 24 3d  |.B.'.A`%(7):bk$=|
00010500  22 6b 74 20 68 61 6c 6f  63 61 72 62 6f 6e 73 20  |"kt halocarbons |
00010510  70 65 72 20 79 72 22 0d  42 1c 05 cb 0d 42 1e 07  |per yr".B....B..|
00010520  cd 3a e1 0d 42 24 22 dd  f2 64 6b 28 73 68 25 2c  |.:..B$"..dk(sh%,|
00010530  f8 47 6a 25 2c f8 4c 69  25 2c f8 48 6a 25 29 3a  |.Gj%,.Li%,.Hj%):|
00010540  e7 5a 66 25 8c 0d 42 2c  09 47 6a 25 3d 34 0d 42  |.Zf%..B,.Gj%=4.B|
00010550  2e 0c cc 3a c8 8e 73 68  25 ca 0d 42 32 20 c9 41  |...:..sh%..B2 .A|
00010560  60 25 28 31 29 3a 4c 69  25 3d 31 30 30 3a 48 6a  |`%(1):Li%=100:Hj|
00010570  25 3d 30 3a c8 8e 6c 64  25 ca 0d 42 36 12 c9 30  |%=0:..ld%..B6..0|
00010580  2c 31 2c 32 2c 38 3a 47  6a 25 3d 31 0d 42 38 14  |,1,2,8:Gj%=1.B8.|
00010590  c9 33 2c 34 2c 35 2c 36  2c 37 3a 47 6a 25 3d 32  |.3,4,5,6,7:Gj%=2|
000105a0  0d 42 3a 05 cb 0d 42 3c  1e c9 41 60 25 28 32 29  |.B:...B<..A`%(2)|
000105b0  3a 47 6a 25 3d 34 3a 4c  69 25 3d 31 3a 48 6a 25  |:Gj%=4:Li%=1:Hj%|
000105c0  3d 2d 31 0d 42 3e 20 c9  41 60 25 28 33 29 3a 4c  |=-1.B> .A`%(3):L|
000105d0  69 25 3d 31 30 30 3a 48  6a 25 3d 30 3a c8 8e 6c  |i%=100:Hj%=0:..l|
000105e0  64 25 ca 0d 42 42 0c c9  30 3a 47 6a 25 3d 31 0d  |d%..BB..0:Gj%=1.|
000105f0  42 44 1a c9 31 2c 32 2c  33 2c 34 2c 35 2c 36 2c  |BD..1,2,3,4,5,6,|
00010600  37 2c 38 3a 47 6a 25 3d  32 0d 42 46 05 cb 0d 42  |7,8:Gj%=2.BF...B|
00010610  48 1e c9 41 60 25 28 34  29 3a 47 6a 25 3d 34 3a  |H..A`%(4):Gj%=4:|
00010620  4c 69 25 3d 31 3a 48 6a  25 3d 2d 31 0d 42 4a 1e  |Li%=1:Hj%=-1.BJ.|
00010630  c9 41 60 25 28 35 29 3a  47 6a 25 3d 34 3a 4c 69  |.A`%(5):Gj%=4:Li|
00010640  25 3d 31 3a 48 6a 25 3d  2d 31 0d 42 4c 1e c9 41  |%=1:Hj%=-1.BL..A|
00010650  60 25 28 36 29 3a 47 6a  25 3d 34 3a 4c 69 25 3d  |`%(6):Gj%=4:Li%=|
00010660  31 3a 48 6a 25 3d 2d 31  0d 42 4e 1e c9 41 60 25  |1:Hj%=-1.BN..A`%|
00010670  28 37 29 3a 47 6a 25 3d  34 3a 4c 69 25 3d 31 3a  |(7):Gj%=4:Li%=1:|
00010680  48 6a 25 3d 2d 31 0d 42  50 05 cb 0d 42 52 07 cd  |Hj%=-1.BP...BR..|
00010690  3a e1 0d 42 58 22 dd f2  60 68 28 78 25 2c 79 25  |:..BX"..`h(x%,y%|
000106a0  2c 75 68 25 2c 77 68 25  29 3a ea 48 62 24 3a e7  |,uh%,wh%):.Hb$:.|
000106b0  5a 66 25 8c 0d 42 62 16  f2 6c 6b 28 78 25 2c 79  |Zf%..Bb..lk(x%,y|
000106c0  25 2c 75 68 25 2c 77 68  25 29 0d 42 64 18 cc 3a  |%,uh%,wh%).Bd..:|
000106d0  f2 6d 6b 28 78 25 2c 79  25 2c 75 68 25 2c 77 68  |.mk(x%,y%,uh%,wh|
000106e0  25 29 0d 42 68 b4 cd 3a  c8 99 32 36 32 33 37 34  |%).Bh..:..262374|
000106f0  2c 37 3a c8 93 c8 90 78  25 2b 31 31 34 2c 79 25  |,7:....x%+114,y%|
00010700  2d 32 36 32 2c 35 35 34  2c 32 3a c8 93 c8 90 78  |-262,554,2:....x|
00010710  25 2b 31 31 34 2c 79 25  2d 32 36 32 2c 32 2c 32  |%+114,y%-262,2,2|
00010720  32 34 3a c8 93 c8 90 78  25 2b 36 36 36 2c 79 25  |24:....x%+666,y%|
00010730  2d 32 36 32 2c 32 2c 32  32 34 3a c8 93 c8 90 78  |-262,2,224:....x|
00010740  25 2b 31 31 34 2c 79 25  2d 34 30 2c 35 35 34 2c  |%+114,y%-40,554,|
00010750  32 3a c8 99 32 36 32 32  38 32 2c 70 68 25 3a c8  |2:..262282,ph%:.|
00010760  99 32 36 32 32 37 38 2c  2c 22 59 65 61 72 22 2c  |.262278,,"Year",|
00010770  25 31 30 30 30 30 2c 78  25 2b 33 35 30 2c 79 25  |%10000,x%+350,y%|
00010780  2d 33 33 30 3a e7 46 61  25 3d 26 41 33 84 46 61  |-330:.Fa%=&A3.Fa|
00010790  25 3d 26 41 34 8c 0d 42  7e 3a e7 5a 66 25 8c 48  |%=&A4..B~:.Zf%.H|
000107a0  62 24 3d 22 25 20 67 65  6e 65 72 61 74 69 6f 6e  |b$="% generation|
000107b0  20 73 68 61 72 65 22 8b  48 62 24 3d 22 50 6f 77  | share".Hb$="Pow|
000107c0  65 72 20 28 54 57 68 20  2d 20 30 30 30 73 29 22  |er (TWh - 000s)"|
000107d0  0d 42 80 64 c8 99 32 36  32 32 38 31 2c 2c 78 25  |.B.d..262281,,x%|
000107e0  2b 33 35 2c 79 25 2d 33  30 30 b8 2c 41 68 25 2c  |+35,y%-300.,Ah%,|
000107f0  42 68 25 3a 43 60 25 21  34 3d 36 35 35 33 36 3a  |Bh%:C`%!4=65536:|
00010800  43 60 25 21 38 3d 2d 36  35 35 33 36 3a c8 99 32  |C`%!8=-65536:..2|
00010810  36 32 32 37 38 2c 2c 48  62 24 2c 25 30 31 30 30  |62278,,Hb$,%0100|
00010820  31 30 30 30 30 30 30 2c  41 68 25 2c 42 68 25 2c  |1000000,Ah%,Bh%,|
00010830  2c 43 60 25 0d 42 86 59  cd 3a c8 99 32 36 32 32  |,C`%.B.Y.:..2622|
00010840  38 32 2c 6f 68 25 3a f2  77 69 28 78 25 2c 79 25  |82,oh%:.wi(x%,y%|
00010850  2c 54 67 25 2c 31 31 36  2c 2d 32 36 30 2c 35 35  |,Tg%,116,-260,55|
00010860  30 2c 32 32 30 2c 63 6b  2c 57 67 25 2c 58 67 25  |0,220,ck,Wg%,Xg%|
00010870  2c 59 67 2c 64 66 25 2c  31 2c 2d 33 30 2c 2d 33  |,Yg,df%,1,-30,-3|
00010880  35 2c 34 2c 2d 31 29 3a  e7 5a 66 25 8c 0d 42 90  |5,4,-1):.Zf%..B.|
00010890  44 f2 49 69 28 78 25 2c  79 25 2c 41 64 25 2c 31  |D.Ii(x%,y%,Ad%,1|
000108a0  31 36 2c 2d 32 36 30 2c  35 35 30 2c 32 32 30 2c  |16,-260,550,220,|
000108b0  30 2e 30 31 2c 30 2c 35  2c 32 30 2c 68 66 25 2c  |0.01,0,5,20,hf%,|
000108c0  31 2c 2d 31 30 38 2c 2d  37 2c 34 2c 2d 31 2c 30  |1,-108,-7,4,-1,0|
000108d0  29 0d 42 92 49 cc 3a f2  49 69 28 78 25 2c 79 25  |).B.I.:.Ii(x%,y%|
000108e0  2c 44 67 25 2c 31 31 36  2c 2d 32 36 30 2c 35 35  |,Dg%,116,-260,55|
000108f0  30 2c 32 32 30 2c 6e 6b  2c 74 64 25 2c 75 64 25  |0,220,nk,td%,ud%|
00010900  2c 76 64 2c 68 66 25 2c  31 30 2c 2d 31 30 30 2c  |,vd,hf%,10,-100,|
00010910  2d 37 2c 34 2c 2d 31 2c  30 29 0d 42 96 07 cd 3a  |-7,4,-1,0).B...:|
00010920  e1 0d 42 9c 3d dd f2 6c  6b 28 78 25 2c 79 25 2c  |..B.=..lk(x%,y%,|
00010930  75 68 25 2c 77 68 25 29  3a ea 69 6b 2c 6f 6b 25  |uh%,wh%):.ik,ok%|
00010940  2c 70 6b 25 2c 79 28 29  3a de 79 28 35 29 3a e7  |,pk%,y():.y(5):.|
00010950  75 68 25 3e 4e 62 25 2b  36 36 36 8c 3a e1 0d 42  |uh%>Nb%+666.:..B|
00010960  a6 1d e7 75 68 25 3c 3d  4e 62 25 2b 31 31 36 8c  |...uh%<=Nb%+116.|
00010970  75 68 25 3d 4e 62 25 2b  31 31 36 0d 42 a8 13 e7  |uh%=Nb%+116.B...|
00010980  76 68 25 3c 4e 62 25 2b  31 31 36 8c 3a e1 0d 42  |vh%<Nb%+116.:..B|
00010990  aa 1e e7 76 68 25 3e 3d  4e 62 25 2b 36 36 36 8c  |...vh%>=Nb%+666.|
000109a0  3a 76 68 25 3d 4e 62 25  2b 36 36 36 0d 42 ac 91  |:vh%=Nb%+666.B..|
000109b0  69 6b 3d 32 2e 32 3a e3  4e 25 3d 28 75 68 25 2d  |ik=2.2:.N%=(uh%-|
000109c0  4e 62 25 2d 31 31 36 29  2f 28 35 35 30 2a 63 6b  |Nb%-116)/(550*ck|
000109d0  29 b8 28 76 68 25 2d 4e  62 25 2d 31 31 36 29 2f  |).(vh%-Nb%-116)/|
000109e0  28 35 35 30 2a 63 6b 29  2d 30 2e 39 39 39 3a e3  |(550*ck)-0.999:.|
000109f0  4d 25 3d 30 b8 34 3a 6f  6b 25 3d 78 25 2b 31 31  |M%=0.4:ok%=x%+11|
00010a00  36 2b 35 35 30 2a 63 6b  2a 4e 25 3a 70 6b 25 3d  |6+550*ck*N%:pk%=|
00010a10  78 25 2b 31 31 36 2b 35  35 30 2a 63 6b 2a 28 4e  |x%+116+550*ck*(N|
00010a20  25 2b 31 29 3a c8 99 32  36 32 33 37 34 2c 60 6a  |%+1):..262374,`j|
00010a30  25 28 4d 25 2b 31 29 3a  c8 8e 4d 25 ca 0d 42 b8  |%(M%+1):..M%..B.|
00010a40  28 c9 30 3a 79 28 30 29  3d 79 25 2d 32 36 30 3a  |(.0:y(0)=y%-260:|
00010a50  79 28 31 29 3d 79 28 30  29 2b 69 6b 2a 75 66 28  |y(1)=y(0)+ik*uf(|
00010a60  4e 25 2c 31 29 0d 42 ba  32 c9 31 3a 79 28 31 29  |N%,1).B.2.1:y(1)|
00010a70  3d 79 28 30 29 2b 69 6b  2a 75 66 28 4e 25 2c 31  |=y(0)+ik*uf(N%,1|
00010a80  29 3a 79 28 32 29 3d 79  28 31 29 2b 69 6b 2a 75  |):y(2)=y(1)+ik*u|
00010a90  66 28 4e 25 2c 32 29 0d  42 bc 32 c9 32 3a 79 28  |f(N%,2).B.2.2:y(|
00010aa0  32 29 3d 79 28 31 29 2b  69 6b 2a 75 66 28 4e 25  |2)=y(1)+ik*uf(N%|
00010ab0  2c 32 29 3a 79 28 33 29  3d 79 28 32 29 2b 69 6b  |,2):y(3)=y(2)+ik|
00010ac0  2a 75 66 28 4e 25 2c 33  29 0d 42 be 32 c9 33 3a  |*uf(N%,3).B.2.3:|
00010ad0  79 28 33 29 3d 79 28 32  29 2b 69 6b 2a 75 66 28  |y(3)=y(2)+ik*uf(|
00010ae0  4e 25 2c 33 29 3a 79 28  34 29 3d 79 28 33 29 2b  |N%,3):y(4)=y(3)+|
00010af0  69 6b 2a 75 66 28 4e 25  2c 34 29 0d 42 c0 32 c9  |ik*uf(N%,4).B.2.|
00010b00  34 3a 79 28 34 29 3d 79  28 33 29 2b 69 6b 2a 75  |4:y(4)=y(3)+ik*u|
00010b10  66 28 4e 25 2c 34 29 3a  79 28 35 29 3d 79 28 34  |f(N%,4):y(5)=y(4|
00010b20  29 2b 69 6b 2a 75 66 28  4e 25 2c 35 29 0d 42 c2  |)+ik*uf(N%,5).B.|
00010b30  1b cb 3a e7 94 28 79 28  4d 25 2b 31 29 2d 79 28  |..:..(y(M%+1)-y(|
00010b40  4d 25 29 29 3e 3d 31 8c  0d 42 c6 59 ec 6f 6b 25  |M%))>=1..B.Y.ok%|
00010b50  2c 79 28 4d 25 29 2b 31  3a ec 6f 6b 25 2c 79 28  |,y(M%)+1:.ok%,y(|
00010b60  4d 25 2b 31 29 3a f0 26  35 35 2c 70 6b 25 2c 79  |M%+1):.&55,pk%,y|
00010b70  28 4d 25 2b 31 29 3a ec  70 6b 25 2c 79 28 4d 25  |(M%+1):.pk%,y(M%|
00010b80  2b 31 29 3a ec 70 6b 25  2c 79 28 4d 25 29 2b 31  |+1):.pk%,y(M%)+1|
00010b90  3a f0 26 35 35 2c 6f 6b  25 2c 79 28 4d 25 29 2b  |:.&55,ok%,y(M%)+|
00010ba0  31 0d 42 ca 0f cd 3a ed  4d 25 3a ed 4e 25 3a e1  |1.B...:.M%:.N%:.|
00010bb0  0d 42 d4 48 dd f2 6d 6b  28 78 25 2c 79 25 2c 75  |.B.H..mk(x%,y%,u|
00010bc0  68 25 2c 77 68 25 29 3a  ea 69 6b 2c 6f 6b 25 2c  |h%,wh%):.ik,ok%,|
00010bd0  70 6b 25 2c 79 28 29 2c  71 6b 28 29 3a de 79 28  |pk%,y(),qk():.y(|
00010be0  35 29 2c 71 6b 28 35 29  3a e7 75 68 25 3e 4e 62  |5),qk(5):.uh%>Nb|
00010bf0  25 2b 36 36 36 8c 3a e1  0d 42 de 1d e7 75 68 25  |%+666.:..B...uh%|
00010c00  3c 3d 4e 62 25 2b 31 31  36 8c 75 68 25 3d 4e 62  |<=Nb%+116.uh%=Nb|
00010c10  25 2b 31 31 36 0d 42 e0  13 e7 76 68 25 3c 4e 62  |%+116.B...vh%<Nb|
00010c20  25 2b 31 31 36 8c 3a e1  0d 42 e2 1e e7 76 68 25  |%+116.:..B...vh%|
00010c30  3e 3d 4e 62 25 2b 36 36  36 8c 3a 76 68 25 3d 4e  |>=Nb%+666.:vh%=N|
00010c40  62 25 2b 36 36 36 0d 42  e4 ad 69 6b 3d 32 32 30  |b%+666.B..ik=220|
00010c50  2f 28 77 6a 28 30 29 2a  42 67 25 29 3a 72 6b 25  |/(wj(0)*Bg%):rk%|
00010c60  3d 32 32 30 2a 41 64 25  2f 42 67 25 3a e3 4e 25  |=220*Ad%/Bg%:.N%|
00010c70  3d 28 75 68 25 2d 4e 62  25 2d 31 31 36 29 2f 28  |=(uh%-Nb%-116)/(|
00010c80  35 35 30 2a 63 6b 29 b8  28 76 68 25 2d 4e 62 25  |550*ck).(vh%-Nb%|
00010c90  2d 31 31 36 29 2f 28 35  35 30 2a 63 6b 29 2d 30  |-116)/(550*ck)-0|
00010ca0  2e 39 39 39 3a e3 4d 25  3d 30 b8 34 3a 6f 6b 25  |.999:.M%=0.4:ok%|
00010cb0  3d 78 25 2b 31 31 36 2b  35 35 30 2a 63 6b 2a 4e  |=x%+116+550*ck*N|
00010cc0  25 3a 70 6b 25 3d 78 25  2b 31 31 36 2b 35 35 30  |%:pk%=x%+116+550|
00010cd0  2a 63 6b 2a 28 4e 25 2b  31 29 3a c8 99 32 36 32  |*ck*(N%+1):..262|
00010ce0  33 37 34 2c 60 6a 25 28  4d 25 2b 31 29 3a c8 8e  |374,`j%(M%+1):..|
00010cf0  4d 25 ca 0d 42 f2 33 c9  30 3a 79 28 30 29 3d 79  |M%..B.3.0:y(0)=y|
00010d00  25 2d 32 36 30 2d 72 6b  25 3a 79 28 31 29 3d 79  |%-260-rk%:y(1)=y|
00010d10  28 30 29 2b 69 6b 2a 77  6a 28 4e 25 29 2a 75 66  |(0)+ik*wj(N%)*uf|
00010d20  28 4e 25 2c 31 29 0d 42  f4 40 c9 31 3a 79 28 31  |(N%,1).B.@.1:y(1|
00010d30  29 3d 79 28 30 29 2b 69  6b 2a 77 6a 28 4e 25 29  |)=y(0)+ik*wj(N%)|
00010d40  2a 75 66 28 4e 25 2c 31  29 3a 79 28 32 29 3d 79  |*uf(N%,1):y(2)=y|
00010d50  28 31 29 2b 69 6b 2a 77  6a 28 4e 25 29 2a 75 66  |(1)+ik*wj(N%)*uf|
00010d60  28 4e 25 2c 32 29 0d 42  f6 40 c9 32 3a 79 28 32  |(N%,2).B.@.2:y(2|
00010d70  29 3d 79 28 31 29 2b 69  6b 2a 77 6a 28 4e 25 29  |)=y(1)+ik*wj(N%)|
00010d80  2a 75 66 28 4e 25 2c 32  29 3a 79 28 33 29 3d 79  |*uf(N%,2):y(3)=y|
00010d90  28 32 29 2b 69 6b 2a 77  6a 28 4e 25 29 2a 75 66  |(2)+ik*wj(N%)*uf|
00010da0  28 4e 25 2c 33 29 0d 42  f8 40 c9 33 3a 79 28 33  |(N%,3).B.@.3:y(3|
00010db0  29 3d 79 28 32 29 2b 69  6b 2a 77 6a 28 4e 25 29  |)=y(2)+ik*wj(N%)|
00010dc0  2a 75 66 28 4e 25 2c 33  29 3a 79 28 34 29 3d 79  |*uf(N%,3):y(4)=y|
00010dd0  28 33 29 2b 69 6b 2a 77  6a 28 4e 25 29 2a 75 66  |(3)+ik*wj(N%)*uf|
00010de0  28 4e 25 2c 34 29 0d 42  fa 40 c9 34 3a 79 28 34  |(N%,4).B.@.4:y(4|
00010df0  29 3d 79 28 33 29 2b 69  6b 2a 77 6a 28 4e 25 29  |)=y(3)+ik*wj(N%)|
00010e00  2a 75 66 28 4e 25 2c 34  29 3a 79 28 35 29 3d 79  |*uf(N%,4):y(5)=y|
00010e10  28 34 29 2b 69 6b 2a 77  6a 28 4e 25 29 2a 75 66  |(4)+ik*wj(N%)*uf|
00010e20  28 4e 25 2c 35 29 0d 42  fc 3e cb 3a 71 6b 28 4d  |(N%,5).B.>.:qk(M|
00010e30  25 29 3d 79 28 4d 25 29  3a 71 6b 28 4d 25 2b 31  |%)=y(M%):qk(M%+1|
00010e40  29 3d 79 28 4d 25 2b 31  29 3a e7 79 28 4d 25 29  |)=y(M%+1):.y(M%)|
00010e50  3e 79 25 2d 34 30 8c 3a  71 6b 28 4d 25 29 3d 79  |>y%-40.:qk(M%)=y|
00010e60  25 2d 34 30 0d 43 02 20  e7 79 28 4d 25 29 3c 3d  |%-40.C. .y(M%)<=|
00010e70  79 25 2d 32 36 30 8c 71  6b 28 4d 25 29 3d 79 25  |y%-260.qk(M%)=y%|
00010e80  2d 32 36 30 0d 43 04 22  e7 79 28 4d 25 2b 31 29  |-260.C.".y(M%+1)|
00010e90  3e 79 25 2d 34 30 8c 3a  71 6b 28 4d 25 2b 31 29  |>y%-40.:qk(M%+1)|
00010ea0  3d 79 25 2d 34 30 0d 43  06 24 e7 79 28 4d 25 2b  |=y%-40.C.$.y(M%+|
00010eb0  31 29 3c 79 25 2d 32 36  30 8c 3a 71 6b 28 4d 25  |1)<y%-260.:qk(M%|
00010ec0  2b 31 29 3d 79 25 2d 32  36 30 0d 43 08 19 e7 94  |+1)=y%-260.C....|
00010ed0  28 79 28 4d 25 2b 31 29  2d 79 28 4d 25 29 29 3e  |(y(M%+1)-y(M%))>|
00010ee0  3d 31 8c 0d 43 0a 5f ec  6f 6b 25 2c 71 6b 28 4d  |=1..C._.ok%,qk(M|
00010ef0  25 29 2b 31 3a ec 6f 6b  25 2c 71 6b 28 4d 25 2b  |%)+1:.ok%,qk(M%+|
00010f00  31 29 3a f0 26 35 35 2c  70 6b 25 2c 71 6b 28 4d  |1):.&55,pk%,qk(M|
00010f10  25 2b 31 29 3a ec 70 6b  25 2c 71 6b 28 4d 25 2b  |%+1):.pk%,qk(M%+|
00010f20  31 29 3a ec 70 6b 25 2c  71 6b 28 4d 25 29 2b 31  |1):.pk%,qk(M%)+1|
00010f30  3a f0 26 35 35 2c 6f 6b  25 2c 71 6b 28 4d 25 29  |:.&55,ok%,qk(M%)|
00010f40  2b 31 0d 43 0e 0f cd 3a  ed 4d 25 3a ed 4e 25 3a  |+1.C...:.M%:.N%:|
00010f50  e1 0d 43 18 c3 dd f2 41  69 28 78 25 2c 79 25 29  |..C....Ai(x%,y%)|
00010f60  3a ea 48 62 24 3a c8 99  32 36 32 33 37 34 2c 37  |:.Hb$:..262374,7|
00010f70  3a c8 93 c8 90 78 25 2b  31 35 36 2c 79 25 2d 32  |:....x%+156,y%-2|
00010f80  34 32 2c 36 30 34 2c 32  3a c8 93 c8 90 78 25 2b  |42,604,2:....x%+|
00010f90  31 35 36 2c 79 25 2d 32  34 32 2c 32 2c 32 30 34  |156,y%-242,2,204|
00010fa0  3a c8 93 c8 90 78 25 2b  37 35 38 2c 79 25 2d 32  |:....x%+758,y%-2|
00010fb0  34 32 2c 32 2c 32 30 34  3a c8 93 c8 90 78 25 2b  |42,2,204:....x%+|
00010fc0  31 35 36 2c 79 25 2d 34  30 2c 36 30 34 2c 32 3a  |156,y%-40,604,2:|
00010fd0  c8 99 32 36 32 32 38 32  2c 70 68 25 3a c8 99 32  |..262282,ph%:..2|
00010fe0  36 32 32 37 38 2c 2c 22  59 65 61 72 22 2c 25 31  |62278,,"Year",%1|
00010ff0  30 30 30 30 2c 78 25 2b  34 32 30 2c 79 25 2d 33  |0000,x%+420,y%-3|
00011000  31 30 3a e7 46 61 25 3d  26 41 33 84 46 61 25 3d  |10:.Fa%=&A3.Fa%=|
00011010  26 41 34 8c 0d 43 32 31  e7 5a 66 25 8c 48 62 24  |&A4..C21.Zf%.Hb$|
00011020  3d 22 25 20 6f 66 20 31  39 39 30 20 56 4d 54 22  |="% of 1990 VMT"|
00011030  8b 48 62 24 3d 22 56 4d  54 20 28 62 69 6c 6c 69  |.Hb$="VMT (billi|
00011040  6f 6e 73 29 22 0d 43 34  64 c8 99 32 36 32 32 38  |ons)".C4d..26228|
00011050  31 2c 2c 78 25 2b 35 30  2c 79 25 2d 32 35 30 b8  |1,,x%+50,y%-250.|
00011060  2c 41 68 25 2c 42 68 25  3a 43 60 25 21 34 3d 36  |,Ah%,Bh%:C`%!4=6|
00011070  35 35 33 36 3a 43 60 25  21 38 3d 2d 36 35 35 33  |5536:C`%!8=-6553|
00011080  36 3a c8 99 32 36 32 32  37 38 2c 2c 48 62 24 2c  |6:..262278,,Hb$,|
00011090  25 30 31 30 30 31 30 30  30 30 30 30 2c 41 68 25  |%01001000000,Ah%|
000110a0  2c 42 68 25 2c 2c 43 60  25 0d 43 3a 59 cd 3a c8  |,Bh%,,C`%.C:Y.:.|
000110b0  99 32 36 32 32 38 32 2c  6f 68 25 3a f2 77 69 28  |.262282,oh%:.wi(|
000110c0  78 25 2c 79 25 2c 54 67  25 2c 31 35 38 2c 2d 32  |x%,y%,Tg%,158,-2|
000110d0  34 30 2c 36 30 30 2c 32  30 30 2c 63 6b 2c 57 67  |40,600,200,ck,Wg|
000110e0  25 2c 58 67 25 2c 59 67  2c 64 66 25 2c 31 2c 2d  |%,Xg%,Yg,df%,1,-|
000110f0  33 30 2c 2d 33 35 2c 34  2c 2d 31 29 3a e7 5a 66  |30,-35,4,-1):.Zf|
00011100  25 8c 0d 43 44 46 f2 49  69 28 78 25 2c 79 25 2c  |%..CDF.Ii(x%,y%,|
00011110  41 64 25 2c 31 35 38 2c  2d 32 34 30 2c 36 30 30  |Ad%,158,-240,600|
00011120  2c 32 30 30 2c 65 6b 2c  74 64 25 2c 75 64 25 2c  |,200,ek,td%,ud%,|
00011130  76 64 2c 68 66 25 2c 31  2c 2d 31 30 30 2c 2d 37  |vd,hf%,1,-100,-7|
00011140  2c 34 2c 2d 31 2c 30 29  0d 43 46 48 cc 3a f2 49  |,4,-1,0).CFH.:.I|
00011150  69 28 78 25 2c 79 25 2c  4b 67 25 2c 31 35 38 2c  |i(x%,y%,Kg%,158,|
00011160  2d 32 34 30 2c 36 30 30  2c 32 30 30 2c 73 6b 2c  |-240,600,200,sk,|
00011170  4e 67 25 2c 4f 67 25 2c  50 67 2c 68 66 25 2c 31  |Ng%,Og%,Pg,hf%,1|
00011180  30 2c 2d 31 30 30 2c 2d  37 2c 31 2c 30 2c 30 29  |0,-100,-7,1,0,0)|
00011190  0d 43 4a 12 cd 3a f2 74  6b 28 78 25 2c 79 25 29  |.CJ..:.tk(x%,y%)|
000111a0  3a e1 0d 43 52 73 dd f2  74 6b 28 78 25 2c 79 25  |:..CRs..tk(x%,y%|
000111b0  29 3a ea 67 6b 2c 68 6b  3a c8 99 32 36 32 33 37  |):.gk,hk:..26237|
000111c0  34 2c 37 3a e3 4e 25 3d  31 b8 28 62 66 25 2d 31  |4,7:.N%=1.(bf%-1|
000111d0  39 39 30 29 3a 67 6b 3d  65 6b 2a 32 30 30 2a 28  |990):gk=ek*200*(|
000111e0  31 30 30 2a 70 6a 28 4e  25 2d 31 2c 30 29 2f 70  |100*pj(N%-1,0)/p|
000111f0  6a 28 30 2c 30 29 2d 41  64 25 29 3a e7 67 6b 3e  |j(0,0)-Ad%):.gk>|
00011200  32 30 30 8c 67 6b 3d 32  30 30 8b e7 67 6b 3c 30  |200.gk=200..gk<0|
00011210  8c 67 6b 3d 30 0d 43 60  42 68 6b 3d 65 6b 2a 32  |.gk=0.C`Bhk=ek*2|
00011220  30 30 2a 28 31 30 30 2a  70 6a 28 4e 25 2c 30 29  |00*(100*pj(N%,0)|
00011230  2f 70 6a 28 30 2c 30 29  2d 41 64 25 29 3a e7 68  |/pj(0,0)-Ad%):.h|
00011240  6b 3e 32 30 30 8c 68 6b  3d 32 30 30 8b e7 68 6b  |k>200.hk=200..hk|
00011250  3c 30 8c 68 6b 3d 30 0d  43 62 42 86 78 25 2b 31  |<0.hk=0.CbB.x%+1|
00011260  35 38 2b 36 30 30 2a 63  6b 2a 28 4e 25 2d 31 29  |58+600*ck*(N%-1)|
00011270  2c 79 25 2d 32 34 30 2b  67 6b 2c 78 25 2b 31 35  |,y%-240+gk,x%+15|
00011280  38 2b 36 30 30 2a 63 6b  2a 4e 25 2c 79 25 2d 32  |8+600*ck*N%,y%-2|
00011290  34 30 2b 68 6b 3a ed 3a  e1 0d 43 6a 27 dd f2 65  |40+hk:.:..Cj'..e|
000112a0  67 28 75 6b 25 28 29 29  3a e7 75 6b 25 28 30 29  |g(uk%()):.uk%(0)|
000112b0  3e 31 35 35 8c 3a 75 6b  25 28 30 29 3d 31 35 35  |>155.:uk%(0)=155|
000112c0  0d 43 72 29 e7 75 6b 25  28 30 29 2b 75 6b 25 28  |.Cr).uk%(0)+uk%(|
000112d0  31 29 3e 31 35 36 8c 3a  75 6b 25 28 31 29 3d 31  |1)>156.:uk%(1)=1|
000112e0  35 36 2d 75 6b 25 28 30  29 0d 43 74 37 e7 75 6b  |56-uk%(0).Ct7.uk|
000112f0  25 28 30 29 2b 75 6b 25  28 31 29 2b 75 6b 25 28  |%(0)+uk%(1)+uk%(|
00011300  32 29 3e 31 35 37 8c 3a  75 6b 25 28 32 29 3d 31  |2)>157.:uk%(2)=1|
00011310  35 37 2d 75 6b 25 28 30  29 2d 75 6b 25 28 31 29  |57-uk%(0)-uk%(1)|
00011320  0d 43 76 45 e7 75 6b 25  28 30 29 2b 75 6b 25 28  |.CvE.uk%(0)+uk%(|
00011330  31 29 2b 75 6b 25 28 32  29 2b 75 6b 25 28 33 29  |1)+uk%(2)+uk%(3)|
00011340  3e 31 35 38 8c 3a 75 6b  25 28 33 29 3d 31 35 38  |>158.:uk%(3)=158|
00011350  2d 75 6b 25 28 30 29 2d  75 6b 25 28 31 29 2d 75  |-uk%(0)-uk%(1)-u|
00011360  6b 25 28 32 29 0d 43 78  53 e7 75 6b 25 28 30 29  |k%(2).CxS.uk%(0)|
00011370  2b 75 6b 25 28 31 29 2b  75 6b 25 28 32 29 2b 75  |+uk%(1)+uk%(2)+u|
00011380  6b 25 28 33 29 2b 75 6b  25 28 34 29 3e 31 35 39  |k%(3)+uk%(4)>159|
00011390  8c 3a 75 6b 25 28 34 29  3d 31 35 39 2d 75 6b 25  |.:uk%(4)=159-uk%|
000113a0  28 30 29 2d 75 6b 25 28  31 29 2d 75 6b 25 28 32  |(0)-uk%(1)-uk%(2|
000113b0  29 2d 75 6b 25 28 33 29  0d 43 7a 61 e7 75 6b 25  |)-uk%(3).Cza.uk%|
000113c0  28 30 29 2b 75 6b 25 28  31 29 2b 75 6b 25 28 32  |(0)+uk%(1)+uk%(2|
000113d0  29 2b 75 6b 25 28 33 29  2b 75 6b 25 28 34 29 2b  |)+uk%(3)+uk%(4)+|
000113e0  75 6b 25 28 35 29 3e 31  36 30 8c 3a 75 6b 25 28  |uk%(5)>160.:uk%(|
000113f0  35 29 3d 31 36 30 2d 75  6b 25 28 30 29 2d 75 6b  |5)=160-uk%(0)-uk|
00011400  25 28 31 29 2d 75 6b 25  28 32 29 2d 75 6b 25 28  |%(1)-uk%(2)-uk%(|
00011410  33 29 2d 75 6b 25 28 34  29 0d 43 7c 05 e1 0d 43  |3)-uk%(4).C|...C|
00011420  80 24 dd f2 74 66 28 75  6b 25 28 29 2c 76 6b 28  |.$..tf(uk%(),vk(|
00011430  29 2c f8 76 6b 28 29 2c  77 6b 25 29 3a e7 77 6b  |),.vk(),wk%):.wk|
00011440  25 8c 0d 43 84 17 e3 4c  25 3d 31 b8 35 3a e7 75  |%..C...L%=1.5:.u|
00011450  6b 25 28 4c 25 29 3e 30  8c 0d 43 8c bc 5f 6a 28  |k%(L%)>0..C.._j(|
00011460  4c 25 2c 31 29 3d 28 7a  64 25 28 4c 25 29 2d 7a  |L%,1)=(zd%(L%)-z|
00011470  64 25 28 4c 25 2d 31 29  29 2f 75 6b 25 28 4c 25  |d%(L%-1))/uk%(L%|
00011480  29 3a 5f 6a 28 4c 25 2c  32 29 3d 28 60 64 25 28  |):_j(L%,2)=(`d%(|
00011490  4c 25 29 2d 60 64 25 28  4c 25 2d 31 29 29 2f 75  |L%)-`d%(L%-1))/u|
000114a0  6b 25 28 4c 25 29 3a 5f  6a 28 4c 25 2c 33 29 3d  |k%(L%):_j(L%,3)=|
000114b0  28 42 65 25 28 4c 25 29  2d 42 65 25 28 4c 25 2d  |(Be%(L%)-Be%(L%-|
000114c0  31 29 29 2f 75 6b 25 28  4c 25 29 3a 5f 6a 28 4c  |1))/uk%(L%):_j(L|
000114d0  25 2c 34 29 3d 28 44 65  25 28 4c 25 29 2d 44 65  |%,4)=(De%(L%)-De|
000114e0  25 28 4c 25 2d 31 29 29  2f 75 6b 25 28 4c 25 29  |%(L%-1))/uk%(L%)|
000114f0  3a 5f 6a 28 4c 25 2c 35  29 3d 28 46 65 25 28 4c  |:_j(L%,5)=(Fe%(L|
00011500  25 29 2d 46 65 25 28 4c  25 2d 31 29 29 2f 75 6b  |%)-Fe%(L%-1))/uk|
00011510  25 28 4c 25 29 0d 43 96  07 cd 3a ed 0d 43 9a 19  |%(L%).C...:..C..|
00011520  cc 3a e3 4c 25 3d 31 b8  35 3a e7 75 6b 25 28 4c  |.:.L%=1.5:.uk%(L|
00011530  25 29 3e 30 8c 0d 43 a4  a7 5f 6a 28 4c 25 2c 31  |%)>0..C.._j(L%,1|
00011540  29 3d 28 48 65 25 28 4c  25 2d 31 2c 31 29 2d 48  |)=(He%(L%-1,1)-H|
00011550  65 25 28 4c 25 2c 31 29  29 2f 75 6b 25 28 4c 25  |e%(L%,1))/uk%(L%|
00011560  29 3a 5f 6a 28 4c 25 2c  32 29 3d 28 48 65 25 28  |):_j(L%,2)=(He%(|
00011570  4c 25 2d 31 2c 32 29 2d  48 65 25 28 4c 25 2c 32  |L%-1,2)-He%(L%,2|
00011580  29 29 2f 75 6b 25 28 4c  25 29 3a 5f 6a 28 4c 25  |))/uk%(L%):_j(L%|
00011590  2c 33 29 3d 28 48 65 25  28 4c 25 2d 31 2c 33 29  |,3)=(He%(L%-1,3)|
000115a0  2d 48 65 25 28 4c 25 2c  33 29 29 2f 75 6b 25 28  |-He%(L%,3))/uk%(|
000115b0  4c 25 29 3a 5f 6a 28 4c  25 2c 34 29 3d 28 48 65  |L%):_j(L%,4)=(He|
000115c0  25 28 4c 25 2d 31 2c 34  29 2d 48 65 25 28 4c 25  |%(L%-1,4)-He%(L%|
000115d0  2c 34 29 29 2f 75 6b 25  28 4c 25 29 0d 43 ac 07  |,4))/uk%(L%).C..|
000115e0  cd 3a ed 0d 43 b0 cd cd  3a e3 4d 25 3d 31 b8 34  |.:..C...:.M%=1.4|
000115f0  2d 77 6b 25 3a e3 4e 25  3d 30 b8 75 6b 25 28 31  |-wk%:.N%=0.uk%(1|
00011600  29 2d 31 3a 76 6b 28 4e  25 2b 31 2c 4d 25 29 3d  |)-1:vk(N%+1,M%)=|
00011610  5f 6a 28 31 2c 4d 25 29  2b 76 6b 28 4e 25 2c 4d  |_j(1,M%)+vk(N%,M|
00011620  25 29 3a ed 4e 25 3a e3  4e 25 3d 75 6b 25 28 31  |%):.N%:.N%=uk%(1|
00011630  29 b8 75 6b 25 28 31 29  2b 75 6b 25 28 32 29 2d  |).uk%(1)+uk%(2)-|
00011640  31 3a 76 6b 28 4e 25 2b  31 2c 4d 25 29 3d 5f 6a  |1:vk(N%+1,M%)=_j|
00011650  28 32 2c 4d 25 29 2b 76  6b 28 4e 25 2c 4d 25 29  |(2,M%)+vk(N%,M%)|
00011660  3a ed 4e 25 3a e3 4e 25  3d 75 6b 25 28 31 29 2b  |:.N%:.N%=uk%(1)+|
00011670  75 6b 25 28 32 29 b8 75  6b 25 28 31 29 2b 75 6b  |uk%(2).uk%(1)+uk|
00011680  25 28 32 29 2b 75 6b 25  28 33 29 2d 31 3a 76 6b  |%(2)+uk%(3)-1:vk|
00011690  28 4e 25 2b 31 2c 4d 25  29 3d 5f 6a 28 33 2c 4d  |(N%+1,M%)=_j(3,M|
000116a0  25 29 2b 76 6b 28 4e 25  2c 4d 25 29 3a ed 4e 25  |%)+vk(N%,M%):.N%|
000116b0  0d 43 ba cb e3 4e 25 3d  75 6b 25 28 31 29 2b 75  |.C...N%=uk%(1)+u|
000116c0  6b 25 28 32 29 2b 75 6b  25 28 33 29 b8 75 6b 25  |k%(2)+uk%(3).uk%|
000116d0  28 31 29 2b 75 6b 25 28  32 29 2b 75 6b 25 28 33  |(1)+uk%(2)+uk%(3|
000116e0  29 2b 75 6b 25 28 34 29  2d 31 3a 76 6b 28 4e 25  |)+uk%(4)-1:vk(N%|
000116f0  2b 31 2c 4d 25 29 3d 5f  6a 28 34 2c 4d 25 29 2b  |+1,M%)=_j(4,M%)+|
00011700  76 6b 28 4e 25 2c 4d 25  29 3a ed 4e 25 3a e3 4e  |vk(N%,M%):.N%:.N|
00011710  25 3d 75 6b 25 28 31 29  2b 75 6b 25 28 32 29 2b  |%=uk%(1)+uk%(2)+|
00011720  75 6b 25 28 33 29 2b 75  6b 25 28 34 29 b8 75 6b  |uk%(3)+uk%(4).uk|
00011730  25 28 31 29 2b 75 6b 25  28 32 29 2b 75 6b 25 28  |%(1)+uk%(2)+uk%(|
00011740  33 29 2b 75 6b 25 28 34  29 2b 75 6b 25 28 35 29  |3)+uk%(4)+uk%(5)|
00011750  2d 31 3a 76 6b 28 4e 25  2b 31 2c 4d 25 29 3d 5f  |-1:vk(N%+1,M%)=_|
00011760  6a 28 35 2c 4d 25 29 2b  76 6b 28 4e 25 2c 4d 25  |j(5,M%)+vk(N%,M%|
00011770  29 3a ed 4e 25 3a ed 4d  25 3a e1 0d 43 c4 23 dd  |):.N%:.M%:..C.#.|
00011780  f2 78 6b 28 75 6b 25 28  29 29 3a e3 4c 25 3d 31  |.xk(uk%()):.L%=1|
00011790  b8 35 3a e7 75 6b 25 28  4c 25 29 3e 30 8c 0d 43  |.5:.uk%(L%)>0..C|
000117a0  ce c0 46 6b 28 4c 25 2c  31 29 3d 28 77 65 25 28  |..Fk(L%,1)=(we%(|
000117b0  4c 25 29 2a 6f 65 25 28  4c 25 29 2f 31 30 30 2d  |L%)*oe%(L%)/100-|
000117c0  77 65 25 28 4c 25 2d 31  29 2a 6f 65 25 28 4c 25  |we%(L%-1)*oe%(L%|
000117d0  2d 31 29 2f 31 30 30 29  2f 75 6b 25 28 4c 25 29  |-1)/100)/uk%(L%)|
000117e0  3a 46 6b 28 4c 25 2c 32  29 3d 28 77 65 25 28 4c  |:Fk(L%,2)=(we%(L|
000117f0  25 29 2a 71 65 25 28 4c  25 29 2f 31 30 30 2d 77  |%)*qe%(L%)/100-w|
00011800  65 25 28 4c 25 2d 31 29  2a 71 65 25 28 4c 25 2d  |e%(L%-1)*qe%(L%-|
00011810  31 29 2f 31 30 30 29 2f  75 6b 25 28 4c 25 29 3a  |1)/100)/uk%(L%):|
00011820  46 6b 28 4c 25 2c 33 29  3d 28 77 65 25 28 4c 25  |Fk(L%,3)=(we%(L%|
00011830  29 2a 73 65 25 28 4c 25  29 2f 31 30 30 2d 77 65  |)*se%(L%)/100-we|
00011840  25 28 4c 25 2d 31 29 2a  73 65 25 28 4c 25 2d 31  |%(L%-1)*se%(L%-1|
00011850  29 2f 31 30 30 29 2f 75  6b 25 28 4c 25 29 0d 43  |)/100)/uk%(L%).C|
00011860  d4 42 46 6b 28 4c 25 2c  34 29 3d 28 77 65 25 28  |.BFk(L%,4)=(we%(|
00011870  4c 25 29 2a 75 65 25 28  4c 25 29 2f 31 30 30 2d  |L%)*ue%(L%)/100-|
00011880  77 65 25 28 4c 25 2d 31  29 2a 75 65 25 28 4c 25  |we%(L%-1)*ue%(L%|
00011890  2d 31 29 2f 31 30 30 29  2f 75 6b 25 28 4c 25 29  |-1)/100)/uk%(L%)|
000118a0  0d 43 d6 cb cd 3a ed 3a  e3 4d 25 3d 31 b8 34 3a  |.C...:.:.M%=1.4:|
000118b0  e3 4e 25 3d 30 b8 75 6b  25 28 31 29 2d 31 3a 59  |.N%=0.uk%(1)-1:Y|
000118c0  6a 28 4e 25 2b 31 2c 4d  25 29 3d 46 6b 28 31 2c  |j(N%+1,M%)=Fk(1,|
000118d0  4d 25 29 2b 59 6a 28 4e  25 2c 4d 25 29 3a ed 4e  |M%)+Yj(N%,M%):.N|
000118e0  25 3a e3 4e 25 3d 75 6b  25 28 31 29 b8 75 6b 25  |%:.N%=uk%(1).uk%|
000118f0  28 31 29 2b 75 6b 25 28  32 29 2d 31 3a 59 6a 28  |(1)+uk%(2)-1:Yj(|
00011900  4e 25 2b 31 2c 4d 25 29  3d 46 6b 28 32 2c 4d 25  |N%+1,M%)=Fk(2,M%|
00011910  29 2b 59 6a 28 4e 25 2c  4d 25 29 3a ed 4e 25 3a  |)+Yj(N%,M%):.N%:|
00011920  e3 4e 25 3d 75 6b 25 28  31 29 2b 75 6b 25 28 32  |.N%=uk%(1)+uk%(2|
00011930  29 b8 75 6b 25 28 31 29  2b 75 6b 25 28 32 29 2b  |).uk%(1)+uk%(2)+|
00011940  75 6b 25 28 33 29 2d 31  3a 59 6a 28 4e 25 2b 31  |uk%(3)-1:Yj(N%+1|
00011950  2c 4d 25 29 3d 46 6b 28  33 2c 4d 25 29 2b 59 6a  |,M%)=Fk(3,M%)+Yj|
00011960  28 4e 25 2c 4d 25 29 3a  ed 4e 25 0d 43 e2 cb e3  |(N%,M%):.N%.C...|
00011970  4e 25 3d 75 6b 25 28 31  29 2b 75 6b 25 28 32 29  |N%=uk%(1)+uk%(2)|
00011980  2b 75 6b 25 28 33 29 b8  75 6b 25 28 31 29 2b 75  |+uk%(3).uk%(1)+u|
00011990  6b 25 28 32 29 2b 75 6b  25 28 33 29 2b 75 6b 25  |k%(2)+uk%(3)+uk%|
000119a0  28 34 29 2d 31 3a 59 6a  28 4e 25 2b 31 2c 4d 25  |(4)-1:Yj(N%+1,M%|
000119b0  29 3d 46 6b 28 34 2c 4d  25 29 2b 59 6a 28 4e 25  |)=Fk(4,M%)+Yj(N%|
000119c0  2c 4d 25 29 3a ed 4e 25  3a e3 4e 25 3d 75 6b 25  |,M%):.N%:.N%=uk%|
000119d0  28 31 29 2b 75 6b 25 28  32 29 2b 75 6b 25 28 33  |(1)+uk%(2)+uk%(3|
000119e0  29 2b 75 6b 25 28 34 29  b8 75 6b 25 28 31 29 2b  |)+uk%(4).uk%(1)+|
000119f0  75 6b 25 28 32 29 2b 75  6b 25 28 33 29 2b 75 6b  |uk%(2)+uk%(3)+uk|
00011a00  25 28 34 29 2b 75 6b 25  28 35 29 2d 31 3a 59 6a  |%(4)+uk%(5)-1:Yj|
00011a10  28 4e 25 2b 31 2c 4d 25  29 3d 46 6b 28 35 2c 4d  |(N%+1,M%)=Fk(5,M|
00011a20  25 29 2b 59 6a 28 4e 25  2c 4d 25 29 3a ed 4e 25  |%)+Yj(N%,M%):.N%|
00011a30  3a ed 4d 25 3a e1 0d 43  ec a2 dd f2 79 6b 28 75  |:.M%:..C....yk(u|
00011a40  6b 25 28 29 2c 7a 6b 25  28 29 2c f8 5f 6b 28 29  |k%(),zk%(),._k()|
00011a50  29 3a e3 4e 25 3d 30 b8  75 6b 25 28 31 29 2d 31  |):.N%=0.uk%(1)-1|
00011a60  3a 5f 6b 28 4e 25 29 3d  7a 6b 25 28 30 29 2b 4e  |:_k(N%)=zk%(0)+N|
00011a70  25 2a 28 7a 6b 25 28 31  29 2d 7a 6b 25 28 30 29  |%*(zk%(1)-zk%(0)|
00011a80  29 2f 75 6b 25 28 31 29  3a ed 3a e3 4e 25 3d 75  |)/uk%(1):.:.N%=u|
00011a90  6b 25 28 31 29 b8 75 6b  25 28 31 29 2b 75 6b 25  |k%(1).uk%(1)+uk%|
00011aa0  28 32 29 2d 31 3a 5f 6b  28 4e 25 29 3d 7a 6b 25  |(2)-1:_k(N%)=zk%|
00011ab0  28 31 29 2b 28 4e 25 2d  75 6b 25 28 31 29 29 2a  |(1)+(N%-uk%(1))*|
00011ac0  28 7a 6b 25 28 32 29 2d  7a 6b 25 28 31 29 29 2f  |(zk%(2)-zk%(1))/|
00011ad0  75 6b 25 28 32 29 3a ed  0d 43 f6 e2 e3 4e 25 3d  |uk%(2):..C...N%=|
00011ae0  75 6b 25 28 31 29 2b 75  6b 25 28 32 29 b8 75 6b  |uk%(1)+uk%(2).uk|
00011af0  25 28 31 29 2b 75 6b 25  28 32 29 2b 75 6b 25 28  |%(1)+uk%(2)+uk%(|
00011b00  33 29 2d 31 3a 5f 6b 28  4e 25 29 3d 7a 6b 25 28  |3)-1:_k(N%)=zk%(|
00011b10  32 29 2b 28 4e 25 2d 28  75 6b 25 28 31 29 2b 75  |2)+(N%-(uk%(1)+u|
00011b20  6b 25 28 32 29 29 29 2a  28 7a 6b 25 28 33 29 2d  |k%(2)))*(zk%(3)-|
00011b30  7a 6b 25 28 32 29 29 2f  75 6b 25 28 33 29 3a ed  |zk%(2))/uk%(3):.|
00011b40  3a e3 4e 25 3d 75 6b 25  28 31 29 2b 75 6b 25 28  |:.N%=uk%(1)+uk%(|
00011b50  32 29 2b 75 6b 25 28 33  29 b8 75 6b 25 28 31 29  |2)+uk%(3).uk%(1)|
00011b60  2b 75 6b 25 28 32 29 2b  75 6b 25 28 33 29 2b 75  |+uk%(2)+uk%(3)+u|
00011b70  6b 25 28 34 29 2d 31 3a  5f 6b 28 4e 25 29 3d 7a  |k%(4)-1:_k(N%)=z|
00011b80  6b 25 28 33 29 2b 28 4e  25 2d 28 75 6b 25 28 31  |k%(3)+(N%-(uk%(1|
00011b90  29 2b 75 6b 25 28 32 29  2b 75 6b 25 28 33 29 29  |)+uk%(2)+uk%(3))|
00011ba0  29 2a 28 7a 6b 25 28 34  29 2d 7a 6b 25 28 33 29  |)*(zk%(4)-zk%(3)|
00011bb0  29 2f 75 6b 25 28 34 29  3a ed 0d 43 fa 92 e3 4e  |)/uk%(4):..C...N|
00011bc0  25 3d 75 6b 25 28 31 29  2b 75 6b 25 28 32 29 2b  |%=uk%(1)+uk%(2)+|
00011bd0  75 6b 25 28 33 29 2b 75  6b 25 28 34 29 b8 75 6b  |uk%(3)+uk%(4).uk|
00011be0  25 28 31 29 2b 75 6b 25  28 32 29 2b 75 6b 25 28  |%(1)+uk%(2)+uk%(|
00011bf0  33 29 2b 75 6b 25 28 34  29 2b 75 6b 25 28 35 29  |3)+uk%(4)+uk%(5)|
00011c00  3a 5f 6b 28 4e 25 29 3d  7a 6b 25 28 34 29 2b 28  |:_k(N%)=zk%(4)+(|
00011c10  4e 25 2d 28 75 6b 25 28  31 29 2b 75 6b 25 28 32  |N%-(uk%(1)+uk%(2|
00011c20  29 2b 75 6b 25 28 33 29  2b 75 6b 25 28 34 29 29  |)+uk%(3)+uk%(4))|
00011c30  29 2a 28 7a 6b 25 28 35  29 2d 7a 6b 25 28 34 29  |)*(zk%(5)-zk%(4)|
00011c40  29 2f 75 6b 25 28 35 29  3a ed 3a e1 0d 44 00 e5  |)/uk%(5):.:..D..|
00011c50  dd f2 60 6b 28 75 6b 25  28 29 2c 7a 6b 25 28 29  |..`k(uk%(),zk%()|
00011c60  2c f8 5f 6b 28 29 29 3a  e3 4e 25 3d 30 b8 75 6b  |,._k()):.N%=0.uk|
00011c70  25 28 30 29 2d 31 3a 5f  6b 28 4e 25 29 3d 7a 6b  |%(0)-1:_k(N%)=zk|
00011c80  25 28 30 29 3a ed 3a e3  4e 25 3d 75 6b 25 28 30  |%(0):.:.N%=uk%(0|
00011c90  29 b8 75 6b 25 28 30 29  2b 75 6b 25 28 31 29 2d  |).uk%(0)+uk%(1)-|
00011ca0  31 3a 5f 6b 28 4e 25 29  3d 7a 6b 25 28 31 29 3a  |1:_k(N%)=zk%(1):|
00011cb0  ed 3a e3 4e 25 3d 75 6b  25 28 30 29 2b 75 6b 25  |.:.N%=uk%(0)+uk%|
00011cc0  28 31 29 b8 75 6b 25 28  30 29 2b 75 6b 25 28 31  |(1).uk%(0)+uk%(1|
00011cd0  29 2b 75 6b 25 28 32 29  2d 31 3a 5f 6b 28 4e 25  |)+uk%(2)-1:_k(N%|
00011ce0  29 3d 7a 6b 25 28 32 29  3a ed 3a e3 4e 25 3d 75  |)=zk%(2):.:.N%=u|
00011cf0  6b 25 28 30 29 2b 75 6b  25 28 31 29 2b 75 6b 25  |k%(0)+uk%(1)+uk%|
00011d00  28 32 29 b8 75 6b 25 28  30 29 2b 75 6b 25 28 31  |(2).uk%(0)+uk%(1|
00011d10  29 2b 75 6b 25 28 32 29  2b 75 6b 25 28 33 29 2d  |)+uk%(2)+uk%(3)-|
00011d20  31 3a 5f 6b 28 4e 25 29  3d 7a 6b 25 28 33 29 3a  |1:_k(N%)=zk%(3):|
00011d30  ed 0d 44 0e bb e3 4e 25  3d 75 6b 25 28 30 29 2b  |..D...N%=uk%(0)+|
00011d40  75 6b 25 28 31 29 2b 75  6b 25 28 32 29 2b 75 6b  |uk%(1)+uk%(2)+uk|
00011d50  25 28 33 29 b8 75 6b 25  28 30 29 2b 75 6b 25 28  |%(3).uk%(0)+uk%(|
00011d60  31 29 2b 75 6b 25 28 32  29 2b 75 6b 25 28 33 29  |1)+uk%(2)+uk%(3)|
00011d70  2b 75 6b 25 28 34 29 2d  31 3a 5f 6b 28 4e 25 29  |+uk%(4)-1:_k(N%)|
00011d80  3d 7a 6b 25 28 34 29 3a  ed 3a e3 4e 25 3d 75 6b  |=zk%(4):.:.N%=uk|
00011d90  25 28 30 29 2b 75 6b 25  28 31 29 2b 75 6b 25 28  |%(0)+uk%(1)+uk%(|
00011da0  32 29 2b 75 6b 25 28 33  29 2b 75 6b 25 28 34 29  |2)+uk%(3)+uk%(4)|
00011db0  b8 75 6b 25 28 30 29 2b  75 6b 25 28 31 29 2b 75  |.uk%(0)+uk%(1)+u|
00011dc0  6b 25 28 32 29 2b 75 6b  25 28 33 29 2b 75 6b 25  |k%(2)+uk%(3)+uk%|
00011dd0  28 34 29 2b 75 6b 25 28  35 29 3a 5f 6b 28 4e 25  |(4)+uk%(5):_k(N%|
00011de0  29 3d 7a 6b 25 28 35 29  3a ed 3a e1 0d 44 16 c8  |)=zk%(5):.:..D..|
00011df0  dd f2 6d 64 3a 55 67 25  3d 62 66 25 2d 54 67 25  |..md:Ug%=bf%-Tg%|
00011e00  3a 63 6b 3d 31 2f 55 67  25 3a 42 67 25 3d 60 63  |:ck=1/Ug%:Bg%=`c|
00011e10  25 2d 41 64 25 3a 65 6b  3d 31 2f 42 67 25 3a 43  |%-Ad%:ek=1/Bg%:C|
00011e20  67 25 3d 31 30 2a 77 6a  28 30 29 2a 31 45 2d 33  |g%=10*wj(0)*1E-3|
00011e30  2a 60 63 25 2f 31 30 30  3a 44 67 25 3d 31 30 2a  |*`c%/100:Dg%=10*|
00011e40  77 6a 28 30 29 2a 31 45  2d 33 2a 41 64 25 2f 31  |wj(0)*1E-3*Ad%/1|
00011e50  30 30 3a 45 67 25 3d 43  67 25 2d 44 67 25 3a 6e  |00:Eg%=Cg%-Dg%:n|
00011e60  6b 3d 31 2f 45 67 25 3a  4a 67 25 3d 31 30 2a 70  |k=1/Eg%:Jg%=10*p|
00011e70  6a 28 30 2c 30 29 2a 31  45 2d 39 2a 60 63 25 2f  |j(0,0)*1E-9*`c%/|
00011e80  31 30 30 3a 4b 67 25 3d  31 30 2a 70 6a 28 30 2c  |100:Kg%=10*pj(0,|
00011e90  30 29 2a 31 45 2d 39 2a  41 64 25 2f 31 30 30 3a  |0)*1E-9*Ad%/100:|
00011ea0  4c 67 25 3d 4a 67 25 2d  4b 67 25 3a 73 6b 3d 31  |Lg%=Jg%-Kg%:sk=1|
00011eb0  2f 4c 67 25 0d 44 2e df  70 64 25 28 31 29 3d 31  |/Lg%.D..pd%(1)=1|
00011ec0  30 30 2a 67 69 28 30 2c  6c 64 25 29 2a 60 63 25  |00*gi(0,ld%)*`c%|
00011ed0  2f 31 30 30 3a 71 64 25  28 31 29 3d 31 30 30 2a  |/100:qd%(1)=100*|
00011ee0  67 69 28 30 2c 6c 64 25  29 2a 41 64 25 2f 31 30  |gi(0,ld%)*Ad%/10|
00011ef0  30 3a 70 64 25 28 32 29  3d 68 69 28 30 2c 6c 64  |0:pd%(2)=hi(0,ld|
00011f00  25 29 2a 60 63 25 2f 31  30 30 3a 71 64 25 28 32  |%)*`c%/100:qd%(2|
00011f10  29 3d 68 69 28 30 2c 6c  64 25 29 2a 41 64 25 2f  |)=hi(0,ld%)*Ad%/|
00011f20  31 30 30 3a 70 64 25 28  33 29 3d 31 30 30 2a 6a  |100:pd%(3)=100*j|
00011f30  69 28 30 2c 6c 64 25 29  2a 60 63 25 2f 31 30 30  |i(0,ld%)*`c%/100|
00011f40  3a 71 64 25 28 33 29 3d  31 30 30 2a 6a 69 28 30  |:qd%(3)=100*ji(0|
00011f50  2c 6c 64 25 29 2a 41 64  25 2f 31 30 30 3a 70 64  |,ld%)*Ad%/100:pd|
00011f60  25 28 34 29 3d 69 69 28  30 2c 31 2c 6c 64 25 29  |%(4)=ii(0,1,ld%)|
00011f70  2a 60 63 25 2f 31 30 30  3a 71 64 25 28 34 29 3d  |*`c%/100:qd%(4)=|
00011f80  69 69 28 30 2c 31 2c 6c  64 25 29 2a 41 64 25 2f  |ii(0,1,ld%)*Ad%/|
00011f90  31 30 30 0d 44 36 db 70  64 25 28 35 29 3d 69 69  |100.D6.pd%(5)=ii|
00011fa0  28 30 2c 32 2c 6c 64 25  29 2a 60 63 25 2f 31 30  |(0,2,ld%)*`c%/10|
00011fb0  30 3a 71 64 25 28 35 29  3d 69 69 28 30 2c 32 2c  |0:qd%(5)=ii(0,2,|
00011fc0  6c 64 25 29 2a 41 64 25  2f 31 30 30 3a 70 64 25  |ld%)*Ad%/100:pd%|
00011fd0  28 36 29 3d 69 69 28 30  2c 33 2c 6c 64 25 29 2a  |(6)=ii(0,3,ld%)*|
00011fe0  60 63 25 2f 31 30 30 3a  71 64 25 28 36 29 3d 69  |`c%/100:qd%(6)=i|
00011ff0  69 28 30 2c 33 2c 6c 64  25 29 2a 41 64 25 2f 31  |i(0,3,ld%)*Ad%/1|
00012000  30 30 3a 70 64 25 28 37  29 3d 69 69 28 30 2c 30  |00:pd%(7)=ii(0,0|
00012010  2c 6c 64 25 29 2a 60 63  25 2f 31 30 30 3a 71 64  |,ld%)*`c%/100:qd|
00012020  25 28 37 29 3d 69 69 28  30 2c 30 2c 6c 64 25 29  |%(7)=ii(0,0,ld%)|
00012030  2a 41 64 25 2f 31 30 30  3a e3 4e 25 3d 31 b8 37  |*Ad%/100:.N%=1.7|
00012040  3a 72 64 25 28 4e 25 29  3d 70 64 25 28 4e 25 29  |:rd%(N%)=pd%(N%)|
00012050  2d 71 64 25 28 4e 25 29  3a e7 72 64 25 28 4e 25  |-qd%(N%):.rd%(N%|
00012060  29 3d 30 8c 3a 72 64 25  28 4e 25 29 3d 31 0d 44  |)=0.:rd%(N%)=1.D|
00012070  42 18 67 6a 28 4e 25 29  3d 31 2f 72 64 25 28 4e  |B.gj(N%)=1/rd%(N|
00012080  25 29 3a ed 3a e1 0d 44  4a 3d dd f2 6f 64 28 69  |%):.:..DJ=..od(i|
00012090  68 25 2c 6a 68 25 2c 5a  6a 25 2c f8 61 6a 25 2c  |h%,jh%,Zj%,.aj%,|
000120a0  f8 62 6a 25 2c f8 42 6a  25 2c f8 43 6a 29 3a e7  |.bj%,.Bj%,.Cj):.|
000120b0  31 3c 3d 5a 6a 25 80 5a  6a 25 3c 3d 36 8c 3a 63  |1<=Zj%.Zj%<=6.:c|
000120c0  6a 3d 31 0d 44 54 19 e7  37 3c 3d 5a 6a 25 80 5a  |j=1.DT..7<=Zj%.Z|
000120d0  6a 25 3c 3d 31 35 8c 3a  63 6a 3d 32 0d 44 56 1a  |j%<=15.:cj=2.DV.|
000120e0  e7 31 35 3c 3d 5a 6a 25  80 5a 6a 25 3c 3d 33 35  |.15<=Zj%.Zj%<=35|
000120f0  8c 3a 63 6a 3d 35 0d 44  58 1b e7 33 36 3c 3d 5a  |.:cj=5.DX..36<=Z|
00012100  6a 25 80 5a 6a 25 3c 3d  37 30 8c 3a 63 6a 3d 31  |j%.Zj%<=70.:cj=1|
00012110  30 0d 44 5a 1c e7 37 31  3c 3d 5a 6a 25 80 5a 6a  |0.DZ..71<=Zj%.Zj|
00012120  25 3c 3d 31 35 30 8c 3a  63 6a 3d 32 30 0d 44 5c  |%<=150.:cj=20.D\|
00012130  1d e7 31 35 31 3c 3d 5a  6a 25 80 5a 6a 25 3c 3d  |..151<=Zj%.Zj%<=|
00012140  33 35 30 8c 3a 63 6a 3d  35 30 0d 44 5e 1e e7 33  |350.:cj=50.D^..3|
00012150  35 31 3c 3d 5a 6a 25 80  5a 6a 25 3c 3d 37 30 30  |51<=Zj%.Zj%<=700|
00012160  8c 3a 63 6a 3d 31 30 30  0d 44 60 1f e7 37 30 31  |.:cj=100.D`..701|
00012170  3c 3d 5a 6a 25 80 5a 6a  25 3c 3d 31 35 30 30 8c  |<=Zj%.Zj%<=1500.|
00012180  3a 63 6a 3d 32 30 30 0d  44 62 20 e7 31 35 30 31  |:cj=200.Db .1501|
00012190  3c 3d 5a 6a 25 80 5a 6a  25 3c 3d 33 35 30 30 8c  |<=Zj%.Zj%<=3500.|
000121a0  3a 63 6a 3d 35 30 30 0d  44 64 21 e7 33 35 30 31  |:cj=500.Dd!.3501|
000121b0  3c 3d 5a 6a 25 80 5a 6a  25 3c 3d 37 30 30 30 8c  |<=Zj%.Zj%<=7000.|
000121c0  3a 63 6a 3d 31 30 30 30  0d 44 66 22 e7 37 30 30  |:cj=1000.Df".700|
000121d0  31 3c 3d 5a 6a 25 80 5a  6a 25 3c 3d 31 35 30 30  |1<=Zj%.Zj%<=1500|
000121e0  30 8c 3a 63 6a 3d 32 30  30 30 0d 44 68 23 e7 31  |0.:cj=2000.Dh#.1|
000121f0  35 30 30 31 3c 3d 5a 6a  25 80 5a 6a 25 3c 3d 33  |5001<=Zj%.Zj%<=3|
00012200  35 30 30 30 8c 3a 63 6a  3d 35 30 30 30 0d 44 6a  |5000.:cj=5000.Dj|
00012210  24 e7 33 35 30 30 31 3c  3d 5a 6a 25 80 5a 6a 25  |$.35001<=Zj%.Zj%|
00012220  3c 3d 37 30 30 30 30 8c  3a 63 6a 3d 31 30 30 30  |<=70000.:cj=1000|
00012230  30 0d 44 6c 25 e7 37 30  30 30 31 3c 3d 5a 6a 25  |0.Dl%.70001<=Zj%|
00012240  80 5a 6a 25 3c 3d 31 35  30 30 30 30 8c 3a 63 6a  |.Zj%<=150000.:cj|
00012250  3d 32 30 30 30 30 0d 44  6e 26 e7 31 35 30 30 30  |=20000.Dn&.15000|
00012260  31 3c 3d 5a 6a 25 80 5a  6a 25 3c 3d 33 35 30 30  |1<=Zj%.Zj%<=3500|
00012270  30 30 8c 3a 63 6a 3d 35  30 30 30 30 0d 44 70 28  |00.:cj=50000.Dp(|
00012280  e7 33 35 30 30 30 31 3c  3d 5a 6a 25 80 5a 6a 25  |.350001<=Zj%.Zj%|
00012290  3c 3d 31 30 30 30 30 30  30 8c 3a 63 6a 3d 31 30  |<=1000000.:cj=10|
000122a0  30 30 30 30 0d 44 72 11  64 6a 25 3d 31 3a e7 63  |0000.Dr.dj%=1:.c|
000122b0  6a 3e 3d 31 8c 0d 44 76  14 e7 6a 68 25 83 63 6a  |j>=1..Dv..jh%.cj|
000122c0  3d 30 8c 3a 64 6a 25 3d  30 0d 44 78 2e cd 3a f2  |=0.:dj%=0.Dx..:.|
000122d0  65 6a 28 64 6a 25 2c 63  6a 2c 69 68 25 2c 6a 68  |ej(dj%,cj,ih%,jh|
000122e0  25 2c 5a 6a 25 2c 61 6a  25 2c 62 6a 25 2c 42 6a  |%,Zj%,aj%,bj%,Bj|
000122f0  25 2c 43 6a 29 3a e1 0d  44 80 d9 dd f2 4d 5f 3a  |%,Cj):..D....M_:|
00012300  67 69 28 30 2c 31 29 3d  30 3a e3 4d 25 3d 31 b8  |gi(0,1)=0:.M%=1.|
00012310  35 3a 67 69 28 30 2c 31  29 2b 3d 41 6b 28 4d 25  |5:gi(0,1)+=Ak(M%|
00012320  29 2a 28 75 66 28 30 2c  4d 25 29 2f 31 30 30 29  |)*(uf(0,M%)/100)|
00012330  2a 77 6a 28 30 29 3a ed  4d 25 3a e3 4e 25 3d 31  |*wj(0):.M%:.N%=1|
00012340  b8 31 36 30 3a 67 69 28  4e 25 2c 31 29 3d 30 3a  |.160:gi(N%,1)=0:|
00012350  e3 4d 25 3d 31 b8 35 3a  67 69 28 4e 25 2c 31 29  |.M%=1.5:gi(N%,1)|
00012360  2b 3d 41 6b 28 4d 25 29  2a 28 75 66 28 4e 25 2c  |+=Ak(M%)*(uf(N%,|
00012370  4d 25 29 2f 31 30 30 29  2a 77 6a 28 4e 25 29 3a  |M%)/100)*wj(N%):|
00012380  ed 4d 25 3a ed 4e 25 3a  e3 4e 25 3d 30 b8 31 36  |.M%:.N%:.N%=0.16|
00012390  30 3a 68 69 28 4e 25 2c  31 29 3d 32 34 2a 67 69  |0:hi(N%,1)=24*gi|
000123a0  28 4e 25 2c 31 29 2f 67  69 28 30 2c 31 29 3a 6a  |(N%,1)/gi(0,1):j|
000123b0  69 28 4e 25 2c 31 29 3d  30 2e 31 2a 67 69 28 4e  |i(N%,1)=0.1*gi(N|
000123c0  25 2c 31 29 2f 67 69 28  30 2c 31 29 3a ed 3a e1  |%,1)/gi(0,1):.:.|
000123d0  0d 44 be 92 dd f2 66 67  3a e3 4e 25 3d 31 b8 35  |.D....fg:.N%=1.5|
000123e0  3a 4f 65 25 28 4e 25 29  3d 31 30 30 2a a8 28 28  |:Oe%(N%)=100*.((|
000123f0  2d 31 2f 31 30 30 30 30  29 2a 28 47 65 25 28 4e  |-1/10000)*(Ge%(N|
00012400  25 2c 31 29 2a 79 64 25  28 4e 25 29 2b 47 65 25  |%,1)*yd%(N%)+Ge%|
00012410  28 4e 25 2c 32 29 2a 5f  64 25 28 4e 25 29 2b 47  |(N%,2)*_d%(N%)+G|
00012420  65 25 28 4e 25 2c 33 29  2a 41 65 25 28 4e 25 29  |e%(N%,3)*Ae%(N%)|
00012430  2b 47 65 25 28 4e 25 2c  34 29 2a 43 65 25 28 4e  |+Ge%(N%,4)*Ce%(N|
00012440  25 29 29 2a 4d 65 25 28  4e 25 29 29 3a 50 65 25  |%))*Me%(N%)):Pe%|
00012450  28 4e 25 29 3d 4f 65 25  28 4e 25 29 3a ed 4e 25  |(N%)=Oe%(N%):.N%|
00012460  3a e1 0d 44 d2 57 dd f2  61 65 28 41 6c 25 29 3a  |:..D.W..ae(Al%):|
00012470  51 65 25 28 41 6c 25 29  3d 55 65 25 28 41 6c 25  |Qe%(Al%)=Ue%(Al%|
00012480  29 3a 51 65 25 28 41 6c  25 29 3d 51 65 25 28 41  |):Qe%(Al%)=Qe%(A|
00012490  6c 25 29 2d 4d 65 25 28  41 6c 25 29 3a 51 65 25  |l%)-Me%(Al%):Qe%|
000124a0  28 41 6c 25 29 3d 51 65  25 28 41 6c 25 29 2d 4f  |(Al%)=Qe%(Al%)-O|
000124b0  65 25 28 41 6c 25 29 3a  e1 0d 44 e0 62 dd f2 77  |e%(Al%):..D.b..w|
000124c0  66 3a f2 79 6b 28 5a 65  25 28 29 2c 4e 65 25 28  |f:.yk(Ze%(),Ne%(|
000124d0  29 2c 77 6a 28 29 29 3a  f2 79 6b 28 5a 65 25 28  |),wj()):.yk(Ze%(|
000124e0  29 2c 50 65 25 28 29 2c  78 6a 28 29 29 3a f2 79  |),Pe%(),xj()):.y|
000124f0  6b 28 5a 65 25 28 29 2c  54 65 25 28 29 2c 79 6a  |k(Ze%(),Te%(),yj|
00012500  28 29 29 3a f2 79 6b 28  5a 65 25 28 29 2c 56 65  |()):.yk(Ze%(),Ve|
00012510  25 28 29 2c 7a 6a 28 29  29 3a e1 0d 44 f4 d2 dd  |%(),zj()):..D...|
00012520  f2 4e 5f 3a e3 4e 25 3d  30 b8 31 36 30 3a 67 69  |.N_:.N%=0.160:gi|
00012530  28 4e 25 2c 32 29 3d 4b  6b 2a 28 28 31 30 30 2d  |(N%,2)=Kk*((100-|
00012540  79 6a 28 4e 25 29 29 2f  31 30 30 29 2a 28 7a 6a  |yj(N%))/100)*(zj|
00012550  28 4e 25 29 2d 77 6a 28  4e 25 29 2d 78 6a 28 4e  |(N%)-wj(N%)-xj(N|
00012560  25 29 29 3a ed 3a e3 4e  25 3d 30 b8 31 36 30 3a  |%)):.:.N%=0.160:|
00012570  68 69 28 4e 25 2c 32 29  3d 4c 6b 2a 67 69 28 4e  |hi(N%,2)=Lk*gi(N|
00012580  25 2c 32 29 2f 67 69 28  30 2c 32 29 3a ed 3a e3  |%,2)/gi(0,2):.:.|
00012590  4e 25 3d 30 b8 31 36 30  3a 67 69 28 4e 25 2c 32  |N%=0.160:gi(N%,2|
000125a0  29 3d 67 69 28 4e 25 2c  32 29 2b 67 69 28 4e 25  |)=gi(N%,2)+gi(N%|
000125b0  2c 31 29 3a 68 69 28 4e  25 2c 32 29 3d 68 69 28  |,1):hi(N%,2)=hi(|
000125c0  4e 25 2c 32 29 2b 68 69  28 4e 25 2c 31 29 3a 6a  |N%,2)+hi(N%,1):j|
000125d0  69 28 4e 25 2c 32 29 3d  6a 69 28 4e 25 2c 32 29  |i(N%,2)=ji(N%,2)|
000125e0  2b 6a 69 28 4e 25 2c 31  29 3a ed 3a e1 0d 45 36  |+ji(N%,1):.:..E6|
000125f0  c7 dd f2 78 66 3a f2 60  6b 28 67 65 25 28 29 2c  |...xf:.`k(ge%(),|
00012600  65 65 25 28 29 2c 72 6a  28 29 29 3a f2 79 6b 28  |ee%(),rj()):.yk(|
00012610  67 65 25 28 29 2c 6d 65  25 28 29 2c 75 6a 28 29  |ge%(),me%(),uj()|
00012620  29 3a e3 4e 25 3d 31 b8  31 36 30 3a 70 6a 28 4e  |):.N%=1.160:pj(N|
00012630  25 2c 31 29 3d 28 31 2d  28 75 6a 28 4e 25 29 2d  |%,1)=(1-(uj(N%)-|
00012640  75 6a 28 4e 25 2d 31 29  29 2f 31 30 30 29 2a 28  |uj(N%-1))/100)*(|
00012650  31 2b 72 6a 28 4e 25 2d  31 29 2f 31 30 30 29 2a  |1+rj(N%-1)/100)*|
00012660  70 6a 28 4e 25 2d 31 2c  31 29 3a 70 6a 28 4e 25  |pj(N%-1,1):pj(N%|
00012670  2c 32 29 3d 28 31 2b 72  6a 28 4e 25 2d 31 29 2f  |,2)=(1+rj(N%-1)/|
00012680  31 30 30 29 2a 70 6a 28  4e 25 2d 31 2c 32 29 3a  |100)*pj(N%-1,2):|
00012690  70 6a 28 4e 25 2c 33 29  3d 28 31 2b 72 6a 28 4e  |pj(N%,3)=(1+rj(N|
000126a0  25 2d 31 29 2f 31 30 30  29 2a 70 6a 28 4e 25 2d  |%-1)/100)*pj(N%-|
000126b0  31 2c 33 29 0d 45 4c 2b  70 6a 28 4e 25 2c 30 29  |1,3).EL+pj(N%,0)|
000126c0  3d 70 6a 28 4e 25 2c 31  29 2b 70 6a 28 4e 25 2c  |=pj(N%,1)+pj(N%,|
000126d0  32 29 2b 70 6a 28 4e 25  2c 33 29 3a ed 3a e1 0d  |2)+pj(N%,3):.:..|
000126e0  45 56 bb dd f2 4f 5f 3a  ea 4c 69 3a f2 79 6b 28  |EV...O_:.Li:.yk(|
000126f0  67 65 25 28 29 2c 69 65  25 28 29 2c 73 6a 28 29  |ge%(),ie%(),sj()|
00012700  29 3a f2 79 6b 28 67 65  25 28 29 2c 6b 65 25 28  |):.yk(ge%(),ke%(|
00012710  29 2c 74 6a 28 29 29 3a  71 6a 28 30 29 3d 31 3a  |),tj()):qj(0)=1:|
00012720  e3 4e 25 3d 31 b8 31 36  30 3a 71 6a 28 4e 25 29  |.N%=1.160:qj(N%)|
00012730  3d 30 2e 39 2a 71 6a 28  4e 25 2d 31 29 3a ed 3a  |=0.9*qj(N%-1):.:|
00012740  e3 4e 25 3d 30 b8 31 36  30 3a 76 6a 28 4e 25 29  |.N%=0.160:vj(N%)|
00012750  3d 28 31 2d 74 6a 28 4e  25 29 2f 31 30 30 29 2a  |=(1-tj(N%)/100)*|
00012760  28 28 28 31 2d 71 6a 28  4e 25 29 29 2a 31 30 30  |(((1-qj(N%))*100|
00012770  2f 73 6a 28 4e 25 29 2b  71 6a 28 4e 25 29 2a 31  |/sj(N%)+qj(N%)*1|
00012780  30 30 2f 69 65 25 28 30  29 29 29 2a 76 6a 3a ed  |00/ie%(0)))*vj:.|
00012790  3a e3 4e 25 3d 30 b8 31  36 30 0d 45 ca 84 67 69  |:.N%=0.160.E..gi|
000127a0  28 4e 25 2c 33 29 3d 28  70 6a 28 4e 25 2c 31 29  |(N%,3)=(pj(N%,1)|
000127b0  2a 4d 6b 2b 70 6a 28 4e  25 2c 32 29 2a 4e 6b 2b  |*Mk+pj(N%,2)*Nk+|
000127c0  70 6a 28 4e 25 2c 33 29  2a 4f 6b 29 2a 76 6a 28  |pj(N%,3)*Ok)*vj(|
000127d0  4e 25 29 3a ed 3a e3 4e  25 3d 30 b8 31 36 30 3a  |N%):.:.N%=0.160:|
000127e0  e7 74 6a 28 4e 25 29 3c  39 39 2e 39 8c 4c 69 3d  |.tj(N%)<99.9.Li=|
000127f0  28 67 69 28 4e 25 2c 33  29 2f 67 69 28 30 2c 33  |(gi(N%,3)/gi(0,3|
00012800  29 29 2a 30 2e 38 32 2f  28 31 2d 74 6a 28 4e 25  |))*0.82/(1-tj(N%|
00012810  29 2f 31 30 30 29 8b 4c  69 3d 31 30 30 30 0d 45  |)/100).Li=1000.E|
00012820  d6 26 68 69 28 4e 25 2c  33 29 3d 4c 69 2a 31 31  |.&hi(N%,3)=Li*11|
00012830  3a 6a 69 28 4e 25 2c 33  29 3d 4c 69 2a 30 2e 33  |:ji(N%,3)=Li*0.3|
00012840  3a ed 3a e1 0d 45 e2 15  dd f2 79 66 3a f2 78 6b  |:.:..E....yf:.xk|
00012850  28 5f 65 25 28 29 29 3a  e1 0d 45 f0 36 dd f2 7a  |(_e%()):..E.6..z|
00012860  66 3a f2 79 6b 28 47 66  25 28 29 2c 41 66 25 28  |f:.yk(Gf%(),Af%(|
00012870  29 2c 42 6b 28 29 29 3a  f2 79 6b 28 47 66 25 28  |),Bk()):.yk(Gf%(|
00012880  29 2c 43 66 25 28 29 2c  43 6b 28 29 29 3a e1 0d  |),Cf%(),Ck()):..|
00012890  46 00 c7 dd f2 50 5f 3a  ea 4c 69 25 3a 4c 69 25  |F....P_:.Li%:Li%|
000128a0  3d 30 3a e3 4d 25 3d 30  b8 32 34 3a 4c 69 25 2b  |=0:.M%=0.24:Li%+|
000128b0  3d 28 32 35 2d 4d 25 29  3a ed 3a e3 4e 25 3d 30  |=(25-M%):.:.N%=0|
000128c0  b8 31 36 30 3a 67 69 28  4e 25 2c 35 29 3d 42 6b  |.160:gi(N%,5)=Bk|
000128d0  28 4e 25 29 2a 31 45 36  2a 50 6b 3a 68 69 28 4e  |(N%)*1E6*Pk:hi(N|
000128e0  25 2c 35 29 3d 42 6b 28  4e 25 29 2a 31 45 36 2a  |%,5)=Bk(N%)*1E6*|
000128f0  52 6b 3a 6a 69 28 4e 25  2c 35 29 3d 42 6b 28 4e  |Rk:ji(N%,5)=Bk(N|
00012900  25 29 2a 31 45 36 2a 51  6b 3a ed 3a e3 4d 25 3d  |%)*1E6*Qk:.:.M%=|
00012910  30 b8 32 34 3a e3 4e 25  3d 30 b8 31 36 30 2d 4d  |0.24:.N%=0.160-M|
00012920  25 3a 67 69 28 4e 25 2b  4d 25 2c 35 29 2d 3d 43  |%:gi(N%+M%,5)-=C|
00012930  6b 28 4e 25 29 2a 31 45  36 2a 28 50 6b 2f 32 29  |k(N%)*1E6*(Pk/2)|
00012940  2a 28 32 35 2d 4d 25 29  2f 4c 69 25 3a ed 4e 25  |*(25-M%)/Li%:.N%|
00012950  3a ed 4d 25 3a e1 0d 46  3a 36 dd f2 5f 66 3a f2  |:.M%:..F:6.._f:.|
00012960  79 6b 28 4f 66 25 28 29  2c 49 66 25 28 29 2c 44  |yk(Of%(),If%(),D|
00012970  6b 28 29 29 3a f2 79 6b  28 4f 66 25 28 29 2c 4b  |k()):.yk(Of%(),K|
00012980  66 25 28 29 2c 45 6b 28  29 29 3a e1 0d 46 4a 50  |f%(),Ek()):..FJP|
00012990  dd f2 51 5f 3a e3 4e 25  3d 30 b8 31 36 30 3a 68  |..Q_:.N%=0.160:h|
000129a0  69 28 4e 25 2c 36 29 3d  44 6b 28 4e 25 29 2a 31  |i(N%,6)=Dk(N%)*1|
000129b0  45 36 2a 53 6b 3a ed 3a  e3 4e 25 3d 30 b8 31 36  |E6*Sk:.:.N%=0.16|
000129c0  30 3a 6a 69 28 4e 25 2c  36 29 3d 45 6b 28 4e 25  |0:ji(N%,6)=Ek(N%|
000129d0  29 2a 31 45 36 2a 54 6b  3a ed 3a e1 0d 46 78 4c  |)*1E6*Tk:.:..FxL|
000129e0  dd f2 60 66 3a f2 79 6b  28 59 66 25 28 29 2c 51  |..`f:.yk(Yf%(),Q|
000129f0  66 25 28 29 2c 47 6b 28  29 29 3a f2 79 6b 28 59  |f%(),Gk()):.yk(Y|
00012a00  66 25 28 29 2c 53 66 25  28 29 2c 48 6b 28 29 29  |f%(),Sf%(),Hk())|
00012a10  3a f2 79 6b 28 59 66 25  28 29 2c 55 66 25 28 29  |:.yk(Yf%(),Uf%()|
00012a20  2c 49 6b 28 29 29 3a e1  0d 46 8a 61 dd f2 52 5f  |,Ik()):..F.a..R_|
00012a30  3a e3 4e 25 3d 30 b8 31  36 30 3a 67 69 28 4e 25  |:.N%=0.160:gi(N%|
00012a40  2c 37 29 3d 28 47 6b 28  4e 25 29 2f 31 30 30 29  |,7)=(Gk(N%)/100)|
00012a50  2a 55 6b 3a 6a 69 28 4e  25 2c 37 29 3d 28 48 6b  |*Uk:ji(N%,7)=(Hk|
00012a60  28 4e 25 29 2f 31 30 30  29 2a 56 6b 3a 68 69 28  |(N%)/100)*Vk:hi(|
00012a70  4e 25 2c 37 29 3d 28 49  6b 28 4e 25 29 2f 31 30  |N%,7)=(Ik(N%)/10|
00012a80  30 29 2a 57 6b 3a ed 3a  e1 0d 46 b6 20 dd f2 54  |0)*Wk:.:..F. ..T|
00012a90  5f 3a e7 6a 66 25 28 31  29 8c 3a f2 42 6c 28 67  |_:.jf%(1).:.Bl(g|
00012aa0  69 28 29 2c 67 69 28 29  29 0d 46 c2 1b e7 6a 66  |i(),gi()).F...jf|
00012ab0  25 28 32 29 8c 3a f2 42  6c 28 68 69 28 29 2c 68  |%(2).:.Bl(hi(),h|
00012ac0  69 28 29 29 0d 46 c4 1b  e7 6a 66 25 28 33 29 8c  |i()).F...jf%(3).|
00012ad0  3a f2 42 6c 28 6a 69 28  29 2c 6a 69 28 29 29 0d  |:.Bl(ji(),ji()).|
00012ae0  46 c6 1d e7 6a 66 25 28  34 29 8c 3a f2 43 6c 28  |F...jf%(4).:.Cl(|
00012af0  69 69 28 29 2c 69 69 28  29 2c 31 29 0d 46 c8 1d  |ii(),ii(),1).F..|
00012b00  e7 6a 66 25 28 35 29 8c  3a f2 43 6c 28 69 69 28  |.jf%(5).:.Cl(ii(|
00012b10  29 2c 69 69 28 29 2c 32  29 0d 46 ca 1d e7 6a 66  |),ii(),2).F...jf|
00012b20  25 28 36 29 8c 3a f2 43  6c 28 69 69 28 29 2c 69  |%(6).:.Cl(ii(),i|
00012b30  69 28 29 2c 33 29 0d 46  cc 57 f2 60 6b 28 6e 66  |i(),3).F.W.`k(nf|
00012b40  25 28 29 2c 6c 66 25 28  29 2c 4a 6b 28 29 29 3a  |%(),lf%(),Jk()):|
00012b50  e7 6a 66 25 28 31 29 8c  3a e3 4e 25 3d 31 b8 31  |.jf%(1).:.N%=1.1|
00012b60  36 30 3a 67 69 28 4e 25  2c 30 29 3d 28 28 31 30  |60:gi(N%,0)=((10|
00012b70  30 2b 4a 6b 28 4e 25 2d  31 29 29 2f 31 30 30 29  |0+Jk(N%-1))/100)|
00012b80  2a 67 69 28 4e 25 2d 31  2c 30 29 3a ed 0d 46 d8  |*gi(N%-1,0):..F.|
00012b90  41 e7 6a 66 25 28 32 29  8c 3a e3 4e 25 3d 31 b8  |A.jf%(2).:.N%=1.|
00012ba0  31 36 30 3a 68 69 28 4e  25 2c 30 29 3d 28 28 31  |160:hi(N%,0)=((1|
00012bb0  30 30 2b 4a 6b 28 4e 25  2d 31 29 29 2f 31 30 30  |00+Jk(N%-1))/100|
00012bc0  29 2a 68 69 28 4e 25 2d  31 2c 30 29 3a ed 0d 46  |)*hi(N%-1,0):..F|
00012bd0  da 41 e7 6a 66 25 28 33  29 8c 3a e3 4e 25 3d 31  |.A.jf%(3).:.N%=1|
00012be0  b8 31 36 30 3a 6a 69 28  4e 25 2c 30 29 3d 28 28  |.160:ji(N%,0)=((|
00012bf0  31 30 30 2b 4a 6b 28 4e  25 2d 31 29 29 2f 31 30  |100+Jk(N%-1))/10|
00012c00  30 29 2a 6a 69 28 4e 25  2d 31 2c 30 29 3a ed 0d  |0)*ji(N%-1,0):..|
00012c10  46 dc 45 e7 6a 66 25 28  34 29 8c 3a e3 4e 25 3d  |F.E.jf%(4).:.N%=|
00012c20  31 b8 31 36 30 3a 69 69  28 4e 25 2c 31 2c 30 29  |1.160:ii(N%,1,0)|
00012c30  3d 28 28 31 30 30 2b 4a  6b 28 4e 25 2d 31 29 29  |=((100+Jk(N%-1))|
00012c40  2f 31 30 30 29 2a 69 69  28 4e 25 2d 31 2c 31 2c  |/100)*ii(N%-1,1,|
00012c50  30 29 3a ed 0d 46 de 45  e7 6a 66 25 28 35 29 8c  |0):..F.E.jf%(5).|
00012c60  3a e3 4e 25 3d 31 b8 31  36 30 3a 69 69 28 4e 25  |:.N%=1.160:ii(N%|
00012c70  2c 32 2c 30 29 3d 28 28  31 30 30 2b 4a 6b 28 4e  |,2,0)=((100+Jk(N|
00012c80  25 2d 31 29 29 2f 31 30  30 29 2a 69 69 28 4e 25  |%-1))/100)*ii(N%|
00012c90  2d 31 2c 32 2c 30 29 3a  ed 0d 46 e0 45 e7 6a 66  |-1,2,0):..F.E.jf|
00012ca0  25 28 36 29 8c 3a e3 4e  25 3d 31 b8 31 36 30 3a  |%(6).:.N%=1.160:|
00012cb0  69 69 28 4e 25 2c 33 2c  30 29 3d 28 28 31 30 30  |ii(N%,3,0)=((100|
00012cc0  2b 4a 6b 28 4e 25 2d 31  29 29 2f 31 30 30 29 2a  |+Jk(N%-1))/100)*|
00012cd0  69 69 28 4e 25 2d 31 2c  33 2c 30 29 3a ed 0d 46  |ii(N%-1,3,0):..F|
00012ce0  e2 3d e3 4e 25 3d 31 b8  31 36 30 3a 69 69 28 4e  |.=.N%=1.160:ii(N|
00012cf0  25 2c 30 2c 30 29 3d 69  69 28 4e 25 2c 31 2c 30  |%,0,0)=ii(N%,1,0|
00012d00  29 2b 69 69 28 4e 25 2c  32 2c 30 29 2b 69 69 28  |)+ii(N%,2,0)+ii(|
00012d10  4e 25 2c 33 2c 30 29 3a  ed 3a e1 0d 46 ea 3c dd  |N%,3,0):.:..F.<.|
00012d20  f2 42 6c 28 44 6c 28 29  2c f8 44 6c 28 29 29 3a  |.Bl(Dl(),.Dl()):|
00012d30  e3 4e 25 3d 31 b8 31 36  30 3a e3 4d 25 3d 30 b8  |.N%=1.160:.M%=0.|
00012d40  38 3a 44 6c 28 4e 25 2c  4d 25 29 3d 30 3a ed 4d  |8:Dl(N%,M%)=0:.M|
00012d50  25 3a ed 4e 25 3a e1 0d  47 00 44 dd f2 43 6c 28  |%:.N%:..G.D..Cl(|
00012d60  44 6c 28 29 2c f8 44 6c  28 29 2c 45 6c 25 29 3a  |Dl(),.Dl(),El%):|
00012d70  e3 4e 25 3d 31 b8 31 36  30 3a e3 4d 25 3d 30 b8  |.N%=1.160:.M%=0.|
00012d80  38 3a 44 6c 28 4e 25 2c  45 6c 25 2c 4d 25 29 3d  |8:Dl(N%,El%,M%)=|
00012d90  30 3a ed 4d 25 3a ed 4e  25 3a e1 0d 47 16 e1 dd  |0:.M%:.N%:..G...|
00012da0  f2 72 66 28 46 6c 25 29  3a e3 4d 25 3d 30 b8 35  |.rf(Fl%):.M%=0.5|
00012db0  3a 7a 64 25 28 4d 25 29  3d 68 6a 25 28 46 6c 25  |:zd%(M%)=hj%(Fl%|
00012dc0  2c 4d 25 2c 30 29 3a 60  64 25 28 4d 25 29 3d 68  |,M%,0):`d%(M%)=h|
00012dd0  6a 25 28 46 6c 25 2c 4d  25 2c 31 29 3a 42 65 25  |j%(Fl%,M%,1):Be%|
00012de0  28 4d 25 29 3d 68 6a 25  28 46 6c 25 2c 4d 25 2c  |(M%)=hj%(Fl%,M%,|
00012df0  32 29 3a 44 65 25 28 4d  25 29 3d 68 6a 25 28 46  |2):De%(M%)=hj%(F|
00012e00  6c 25 2c 4d 25 2c 33 29  3a 46 65 25 28 4d 25 29  |l%,M%,3):Fe%(M%)|
00012e10  3d 68 6a 25 28 46 6c 25  2c 4d 25 2c 34 29 3a 4c  |=hj%(Fl%,M%,4):L|
00012e20  65 25 28 4d 25 29 3d 68  6a 25 28 46 6c 25 2c 4d  |e%(M%)=hj%(Fl%,M|
00012e30  25 2c 35 29 3a 48 65 25  28 4d 25 2c 31 29 3d 68  |%,5):He%(M%,1)=h|
00012e40  6a 25 28 46 6c 25 2c 4d  25 2c 36 29 3a 48 65 25  |j%(Fl%,M%,6):He%|
00012e50  28 4d 25 2c 32 29 3d 68  6a 25 28 46 6c 25 2c 4d  |(M%,2)=hj%(Fl%,M|
00012e60  25 2c 37 29 3a 48 65 25  28 4d 25 2c 33 29 3d 68  |%,7):He%(M%,3)=h|
00012e70  6a 25 28 46 6c 25 2c 4d  25 2c 38 29 0d 47 32 e1  |j%(Fl%,M%,8).G2.|
00012e80  48 65 25 28 4d 25 2c 34  29 3d 68 6a 25 28 46 6c  |He%(M%,4)=hj%(Fl|
00012e90  25 2c 4d 25 2c 39 29 3a  65 65 25 28 4d 25 29 3d  |%,M%,9):ee%(M%)=|
00012ea0  69 6a 25 28 46 6c 25 2c  4d 25 2c 30 29 3a 69 65  |ij%(Fl%,M%,0):ie|
00012eb0  25 28 4d 25 29 3d 69 6a  25 28 46 6c 25 2c 4d 25  |%(M%)=ij%(Fl%,M%|
00012ec0  2c 31 29 3a 6b 65 25 28  4d 25 29 3d 69 6a 25 28  |,1):ke%(M%)=ij%(|
00012ed0  46 6c 25 2c 4d 25 2c 32  29 3a 6d 65 25 28 4d 25  |Fl%,M%,2):me%(M%|
00012ee0  29 3d 69 6a 25 28 46 6c  25 2c 4d 25 2c 33 29 3a  |)=ij%(Fl%,M%,3):|
00012ef0  67 65 25 28 4d 25 29 3d  69 6a 25 28 46 6c 25 2c  |ge%(M%)=ij%(Fl%,|
00012f00  4d 25 2c 34 29 3a 4e 65  25 28 4d 25 29 3d 6a 6a  |M%,4):Ne%(M%)=jj|
00012f10  25 28 46 6c 25 2c 4d 25  2c 30 29 3a 50 65 25 28  |%(Fl%,M%,0):Pe%(|
00012f20  4d 25 29 3d 6a 6a 25 28  46 6c 25 2c 4d 25 2c 31  |M%)=jj%(Fl%,M%,1|
00012f30  29 3a 52 65 25 28 4d 25  29 3d 6a 6a 25 28 46 6c  |):Re%(M%)=jj%(Fl|
00012f40  25 2c 4d 25 2c 32 29 3a  54 65 25 28 4d 25 29 3d  |%,M%,2):Te%(M%)=|
00012f50  6a 6a 25 28 46 6c 25 2c  4d 25 2c 33 29 0d 47 4a  |jj%(Fl%,M%,3).GJ|
00012f60  df 56 65 25 28 4d 25 29  3d 6a 6a 25 28 46 6c 25  |.Ve%(M%)=jj%(Fl%|
00012f70  2c 4d 25 2c 34 29 3a 5a  65 25 28 4d 25 29 3d 6a  |,M%,4):Ze%(M%)=j|
00012f80  6a 25 28 46 6c 25 2c 4d  25 2c 35 29 3a 41 66 25  |j%(Fl%,M%,5):Af%|
00012f90  28 4d 25 29 3d 6b 6a 25  28 46 6c 25 2c 4d 25 2c  |(M%)=kj%(Fl%,M%,|
00012fa0  30 29 3a 43 66 25 28 4d  25 29 3d 6b 6a 25 28 46  |0):Cf%(M%)=kj%(F|
00012fb0  6c 25 2c 4d 25 2c 31 29  3a 47 66 25 28 4d 25 29  |l%,M%,1):Gf%(M%)|
00012fc0  3d 6b 6a 25 28 46 6c 25  2c 4d 25 2c 32 29 3a 49  |=kj%(Fl%,M%,2):I|
00012fd0  66 25 28 4d 25 29 3d 6c  6a 25 28 46 6c 25 2c 4d  |f%(M%)=lj%(Fl%,M|
00012fe0  25 2c 30 29 3a 4b 66 25  28 4d 25 29 3d 6c 6a 25  |%,0):Kf%(M%)=lj%|
00012ff0  28 46 6c 25 2c 4d 25 2c  31 29 3a 4f 66 25 28 4d  |(Fl%,M%,1):Of%(M|
00013000  25 29 3d 6c 6a 25 28 46  6c 25 2c 4d 25 2c 32 29  |%)=lj%(Fl%,M%,2)|
00013010  3a 6f 65 25 28 4d 25 29  3d 6d 6a 25 28 46 6c 25  |:oe%(M%)=mj%(Fl%|
00013020  2c 4d 25 2c 30 29 3a 71  65 25 28 4d 25 29 3d 6d  |,M%,0):qe%(M%)=m|
00013030  6a 25 28 46 6c 25 2c 4d  25 2c 31 29 0d 47 64 b7  |j%(Fl%,M%,1).Gd.|
00013040  73 65 25 28 4d 25 29 3d  6d 6a 25 28 46 6c 25 2c  |se%(M%)=mj%(Fl%,|
00013050  4d 25 2c 32 29 3a 75 65  25 28 4d 25 29 3d 6d 6a  |M%,2):ue%(M%)=mj|
00013060  25 28 46 6c 25 2c 4d 25  2c 33 29 3a 77 65 25 28  |%(Fl%,M%,3):we%(|
00013070  4d 25 29 3d 6d 6a 25 28  46 6c 25 2c 4d 25 2c 34  |M%)=mj%(Fl%,M%,4|
00013080  29 3a 5f 65 25 28 4d 25  29 3d 6d 6a 25 28 46 6c  |):_e%(M%)=mj%(Fl|
00013090  25 2c 4d 25 2c 35 29 3a  51 66 25 28 4d 25 29 3d  |%,M%,5):Qf%(M%)=|
000130a0  6e 6a 25 28 46 6c 25 2c  4d 25 2c 30 29 3a 53 66  |nj%(Fl%,M%,0):Sf|
000130b0  25 28 4d 25 29 3d 6e 6a  25 28 46 6c 25 2c 4d 25  |%(M%)=nj%(Fl%,M%|
000130c0  2c 31 29 3a 55 66 25 28  4d 25 29 3d 6e 6a 25 28  |,1):Uf%(M%)=nj%(|
000130d0  46 6c 25 2c 4d 25 2c 32  29 3a 59 66 25 28 4d 25  |Fl%,M%,2):Yf%(M%|
000130e0  29 3d 6e 6a 25 28 46 6c  25 2c 4d 25 2c 33 29 3a  |)=nj%(Fl%,M%,3):|
000130f0  ed 3a e1 0d 47 7e e5 dd  f2 6f 6a 3a 6b 68 25 3d  |.:..G~...oj:kh%=|
00013100  8e 28 22 3c 43 4f 32 65  66 66 65 63 74 24 44 69  |.("<CO2effect$Di|
00013110  72 3e 2e 44 61 74 61 2e  53 5f 44 61 74 61 22 29  |r>.Data.S_Data")|
00013120  3a e3 4e 25 3d 30 b8 33  3a e3 4d 25 3d 30 b8 35  |:.N%=0.3:.M%=0.5|
00013130  3a e3 4f 25 3d 30 b8 39  3a e8 23 6b 68 25 2c 68  |:.O%=0.9:.#kh%,h|
00013140  6a 25 28 4e 25 2c 4d 25  2c 4f 25 29 3a ed 4f 25  |j%(N%,M%,O%):.O%|
00013150  3a ed 4d 25 3a e3 4d 25  3d 30 b8 35 3a e3 4f 25  |:.M%:.M%=0.5:.O%|
00013160  3d 30 b8 34 3a e8 23 6b  68 25 2c 69 6a 25 28 4e  |=0.4:.#kh%,ij%(N|
00013170  25 2c 4d 25 2c 4f 25 29  3a ed 4f 25 3a ed 4d 25  |%,M%,O%):.O%:.M%|
00013180  3a e3 4d 25 3d 30 b8 35  3a e3 4f 25 3d 30 b8 35  |:.M%=0.5:.O%=0.5|
00013190  3a e8 23 6b 68 25 2c 6a  6a 25 28 4e 25 2c 4d 25  |:.#kh%,jj%(N%,M%|
000131a0  2c 4f 25 29 3a ed 4f 25  3a ed 4d 25 3a e3 4d 25  |,O%):.O%:.M%:.M%|
000131b0  3d 30 b8 35 3a e3 4f 25  3d 30 b8 32 3a e8 23 6b  |=0.5:.O%=0.2:.#k|
000131c0  68 25 2c 6b 6a 25 28 4e  25 2c 4d 25 2c 4f 25 29  |h%,kj%(N%,M%,O%)|
000131d0  3a ed 4f 25 3a ed 4d 25  0d 47 96 93 e3 4d 25 3d  |:.O%:.M%.G...M%=|
000131e0  30 b8 35 3a e3 4f 25 3d  30 b8 32 3a e8 23 6b 68  |0.5:.O%=0.2:.#kh|
000131f0  25 2c 6c 6a 25 28 4e 25  2c 4d 25 2c 4f 25 29 3a  |%,lj%(N%,M%,O%):|
00013200  ed 4f 25 3a ed 4d 25 3a  e3 4d 25 3d 30 b8 35 3a  |.O%:.M%:.M%=0.5:|
00013210  e3 4f 25 3d 30 b8 35 3a  e8 23 6b 68 25 2c 6d 6a  |.O%=0.5:.#kh%,mj|
00013220  25 28 4e 25 2c 4d 25 2c  4f 25 29 3a ed 4f 25 3a  |%(N%,M%,O%):.O%:|
00013230  ed 4d 25 3a e3 4d 25 3d  30 b8 35 3a e3 4f 25 3d  |.M%:.M%=0.5:.O%=|
00013240  30 b8 33 3a e8 23 6b 68  25 2c 6e 6a 25 28 4e 25  |0.3:.#kh%,nj%(N%|
00013250  2c 4d 25 2c 4f 25 29 3a  ed 4f 25 3a ed 4d 25 3a  |,M%,O%):.O%:.M%:|
00013260  ed 4e 25 3a d9 23 6b 68  25 3a e1 0d 47 ae 33 dc  |.N%:.#kh%:..G.3.|
00013270  20 43 4f 32 65 66 66 65  63 74 2c 33 2c 30 2c 4b  | CO2effect,3,0,K|
00013280  61 25 2c 49 6e 66 6f 2c  30 2c 2d 31 2c 50 61 75  |a%,Info,0,-1,Pau|
00013290  73 65 2c 26 38 30 2c 2d  31 2c 51 75 69 74 0d 47  |se,&80,-1,Quit.G|
000132a0  b0 87 dc 20 43 6f 6c 6f  75 72 2c 31 36 2c 30 2c  |... Colour,16,0,|
000132b0  2d 31 2c 30 2c 30 2c 2d  31 2c 31 2c 30 2c 2d 31  |-1,0,0,-1,1,0,-1|
000132c0  2c 32 2c 30 2c 2d 31 2c  33 2c 30 2c 2d 31 2c 34  |,2,0,-1,3,0,-1,4|
000132d0  2c 30 2c 2d 31 2c 35 2c  30 2c 2d 31 2c 36 2c 30  |,0,-1,5,0,-1,6,0|
000132e0  2c 2d 31 2c 37 2c 30 2c  2d 31 2c 38 2c 30 2c 2d  |,-1,7,0,-1,8,0,-|
000132f0  31 2c 39 2c 30 2c 2d 31  2c 31 30 2c 30 2c 2d 31  |1,9,0,-1,10,0,-1|
00013300  2c 31 31 2c 30 2c 2d 31  2c 31 32 2c 30 2c 2d 31  |,11,0,-1,12,0,-1|
00013310  2c 31 33 2c 30 2c 2d 31  2c 31 34 2c 26 38 30 2c  |,13,0,-1,14,&80,|
00013320  2d 31 2c 31 35 0d 47 b2  34 dc 20 43 4f 32 65 66  |-1,15.G.4. CO2ef|
00013330  66 65 63 74 2c 33 2c 30  2c 4b 60 25 2c 4d 69 73  |fect,3,0,K`%,Mis|
00013340  63 2c 30 2c 49 60 25 2c  53 61 76 65 2c 26 38 30  |c,0,I`%,Save,&80|
00013350  2c 2d 31 2c 54 6f 6f 6c  73 0d 47 b4 2b dc 20 53  |,-1,Tools.G.+. S|
00013360  61 76 65 2c 32 2c 30 2c  6a 61 25 2c 47 72 61 70  |ave,2,0,ja%,Grap|
00013370  68 2c 26 38 30 2c 4a 60  25 2c 50 61 72 61 6d 65  |h,&80,J`%,Parame|
00013380  74 65 72 73 0d 47 b6 34  dc 20 50 61 72 61 6d 65  |ters.G.4. Parame|
00013390  74 65 72 73 2c 32 2c 30  2c 6c 61 25 2c 54 65 78  |ters,2,0,la%,Tex|
000133a0  74 46 69 6c 65 2c 26 38  30 2c 6e 61 25 2c 43 4f  |tFile,&80,na%,CO|
000133b0  32 65 66 66 46 69 6c 65  0d 47 b8 19 dc 20 4d 69  |2effFile.G... Mi|
000133c0  73 63 2c 31 2c 26 38 30  2c 4b 61 25 2c 49 6e 66  |sc,1,&80,Ka%,Inf|
000133d0  6f 0d 47 ba 45 dc 20 54  65 6d 70 20 4d 6f 64 65  |o.G.E. Temp Mode|
000133e0  6c 2c 34 2c 30 2c 2d 31  2c 68 69 67 68 20 45 42  |l,4,0,-1,high EB|
000133f0  4d 2c 30 2c 2d 31 2c 61  76 20 45 42 4d 2c 30 2c  |M,0,-1,av EBM,0,|
00013400  2d 31 2c 6c 6f 77 20 45  42 4d 2c 26 38 30 2c 2d  |-1,low EBM,&80,-|
00013410  31 2c 55 73 65 72 0d 47  bc 04 0d 47 c0 42 dc 20  |1,User.G...G.B. |
00013420  30 44 20 48 69 67 68 20  45 2e 42 2e 2c 30 44 20  |0D High E.B.,0D |
00013430  41 76 65 72 61 67 65 20  45 2e 42 2e 2c 30 44 20  |Average E.B.,0D |
00013440  4c 6f 77 20 45 2e 42 2e  2c 55 73 65 72 2d 64 65  |Low E.B.,User-de|
00013450  66 69 6e 65 64 20 6d 6f  64 65 6c 2e 0d 47 c2 57  |fined model..G.W|
00013460  dc 20 5a 65 72 6f 20 64  69 6d 65 6e 73 69 6f 6e  |. Zero dimension|
00013470  61 6c 2c 20 65 6e 65 72  67 79 20 62 61 6c 61 6e  |al, energy balan|
00013480  63 65 20 6d 6f 64 65 6c  2e 2c 53 63 61 6c 65 64  |ce model.,Scaled|
00013490  20 74 6f 20 68 69 67 68  20 47 43 4d 2c 20 74 65  | to high GCM, te|
000134a0  6d 70 65 72 61 74 75 72  65 20 65 73 74 69 6d 61  |mperature estima|
000134b0  74 65 2e 0d 47 c4 5d dc  20 5a 65 72 6f 20 64 69  |te..G.]. Zero di|
000134c0  6d 65 6e 73 69 6f 6e 61  6c 2c 20 65 6e 65 72 67  |mensional, energ|
000134d0  79 20 62 61 6c 61 6e 63  65 20 6d 6f 64 65 6c 2e  |y balance model.|
000134e0  2c 53 63 61 6c 65 64 20  74 6f 20 62 65 73 74 20  |,Scaled to best |
000134f0  28 61 76 65 72 61 67 65  29 2c 20 74 65 6d 70 65  |(average), tempe|
00013500  72 61 74 75 72 65 20 65  73 74 69 6d 61 74 65 2e  |rature estimate.|
00013510  0d 47 c6 56 dc 20 5a 65  72 6f 20 64 69 6d 65 6e  |.G.V. Zero dimen|
00013520  73 69 6f 6e 61 6c 2c 20  65 6e 65 72 67 79 20 62  |sional, energy b|
00013530  61 6c 61 6e 63 65 20 6d  6f 64 65 6c 2e 2c 53 63  |alance model.,Sc|
00013540  61 6c 65 64 20 74 6f 20  6c 6f 77 20 47 43 4d 2c  |aled to low GCM,|
00013550  20 74 65 6d 70 65 72 61  74 75 72 65 20 65 73 74  | temperature est|
00013560  69 6d 61 74 65 2e 0d 47  c8 09 dc 20 2c 2c 2c 0d  |imate..G... ,,,.|
00013570  47 ca 04 0d 47 ce 32 dc  20 30 2e 30 30 30 32 38  |G...G.2. 0.00028|
00013580  37 2c 30 2e 30 30 30 31  31 38 2c 30 2e 30 30 30  |7,0.000118,0.000|
00013590  32 31 31 2c 30 2e 30 30  30 30 34 33 2c 30 2e 30  |211,0.000043,0.0|
000135a0  30 30 30 30 35 0d 47 d0  04 0d 47 d4 09 dc 20 31  |00005.G...G... 1|
000135b0  2c 30 0d 47 d6 0a dc 20  31 2c 31 30 0d 47 d8 0a  |,0.G... 1,10.G..|
000135c0  dc 20 31 2c 32 35 0d 47  da 0a dc 20 31 2c 32 35  |. 1,25.G... 1,25|
000135d0  0d 47 dc 0a dc 20 31 2c  35 30 0d 47 de 0a dc 20  |.G... 1,50.G... |
000135e0  31 2c 35 30 0d 47 e0 04  0d 47 e4 b6 dc 20 54 6f  |1,50.G...G... To|
000135f0  74 61 6c 20 63 61 72 62  6f 6e 20 65 6d 69 73 73  |tal carbon emiss|
00013600  69 6f 6e 73 2c 54 6f 74  61 6c 20 6d 65 74 68 61  |ions,Total metha|
00013610  6e 65 20 65 6d 69 73 73  69 6f 6e 73 2c 54 6f 74  |ne emissions,Tot|
00013620  61 6c 20 6e 69 74 72 6f  75 73 20 6f 78 69 64 65  |al nitrous oxide|
00013630  20 65 6d 69 73 73 69 6f  6e 73 2c 54 6f 74 61 6c  | emissions,Total|
00013640  20 43 46 43 2d 31 31 20  65 6d 69 73 73 69 6f 6e  | CFC-11 emission|
00013650  73 2c 54 6f 74 61 6c 20  43 46 43 2d 31 32 20 65  |s,Total CFC-12 e|
00013660  6d 69 73 73 69 6f 6e 73  2c 54 6f 74 61 6c 20 48  |missions,Total H|
00013670  43 46 43 2d 32 32 20 65  6d 69 73 73 69 6f 6e 73  |CFC-22 emissions|
00013680  2c 54 6f 74 61 6c 20 63  6f 6d 62 69 6e 65 64 20  |,Total combined |
00013690  43 46 43 20 65 6d 69 73  73 69 6f 6e 73 2c 0d 47  |CFC emissions,.G|
000136a0  e6 63 dc 20 45 6c 65 63  74 72 69 63 69 74 79 2c  |.c. Electricity,|
000136b0  45 6e 65 72 67 79 20 75  73 65 2c 54 72 61 6e 73  |Energy use,Trans|
000136c0  70 6f 72 74 2c 43 46 43  20 75 73 65 2c 44 65 66  |port,CFC use,Def|
000136d0  6f 72 65 73 74 61 74 69  6f 6e 2c 41 67 72 69 63  |orestation,Agric|
000136e0  75 6c 74 75 72 65 2c 4d  69 73 63 20 73 6f 75 72  |ulture,Misc sour|
000136f0  63 65 73 2c 4f 74 68 65  72 20 73 6f 75 72 63 65  |ces,Other source|
00013700  73 0d 47 e8 04 0d 47 ea  68 dd a4 4c 61 28 47 6c  |s.G...G.h..La(Gl|
00013710  25 2c 48 6c 25 2c 49 6c  25 2c 45 60 24 2c 4a 6c  |%,Hl%,Il%,E`$,Jl|
00013720  25 29 3a 24 45 60 25 3d  45 60 24 3a c8 99 32 36  |%):$E`%=E`$:..26|
00013730  32 33 36 33 2c 2c 58 5f  25 2c 47 6c 25 2c 48 6c  |2363,,X_%,Gl%,Hl|
00013740  25 2c 49 6c 25 2c 45 60  25 2c 30 3a 58 5f 25 21  |%,Il%,E`%,0:X_%!|
00013750  36 34 3d 4a 6c 25 3a c8  99 32 36 32 33 33 37 2c  |64=Jl%:..262337,|
00013760  2c 58 5f 25 b8 73 68 25  3a 3d 73 68 25 0d 47 f8  |,X_%.sh%:=sh%.G.|
00013770  7f dd a4 4a 61 28 4b 6c  25 2c 4c 6c 25 2c 4d 6c  |...Ja(Kl%,Ll%,Ml|
00013780  25 2c 4e 6c 25 2c 4f 6c  25 2c 4f 68 25 2c 43 69  |%,Nl%,Ol%,Oh%,Ci|
00013790  24 2c 50 6c 25 2c 51 6c  25 2c 52 6c 25 29 3a 21  |$,Pl%,Ql%,Rl%):!|
000137a0  58 5f 25 3d 4b 6c 25 3a  58 5f 25 21 34 3d 4c 6c  |X_%=Kl%:X_%!4=Ll|
000137b0  25 3a 58 5f 25 21 38 3d  4d 6c 25 3a 58 5f 25 21  |%:X_%!8=Ml%:X_%!|
000137c0  31 32 3d 4c 6c 25 2b 4e  6c 25 3a 58 5f 25 21 31  |12=Ll%+Nl%:X_%!1|
000137d0  36 3d 4d 6c 25 2b 4f 6c  25 3a 58 5f 25 21 32 30  |6=Ml%+Ol%:X_%!20|
000137e0  3d 4f 68 25 3a e7 50 6c  25 3d 30 8c 0d 48 08 11  |=Oh%:.Pl%=0..H..|
000137f0  24 28 58 5f 25 2b 32 34  29 3d 43 69 24 0d 48 0a  |$(X_%+24)=Ci$.H.|
00013800  26 cc 3a 58 5f 25 21 32  34 3d 50 6c 25 3a 58 5f  |&.:X_%!24=Pl%:X_|
00013810  25 21 32 38 3d 51 6c 25  3a 58 5f 25 21 33 32 3d  |%!28=Ql%:X_%!32=|
00013820  52 6c 25 0d 48 12 1c cd  3a c8 99 32 36 32 33 33  |Rl%.H...:..26233|
00013830  38 2c 2c 58 5f 25 b8 53  6c 25 3a 3d 53 6c 25 0d  |8,,X_%.Sl%:=Sl%.|
00013840  48 1a 33 dd a4 54 6c 28  61 24 29 3a c8 95 a7 61  |H.3..Tl(a$):...a|
00013850  24 2c 22 2e 22 29 3a 61  24 3d c1 61 24 2c a7 61  |$,"."):a$=.a$,.a|
00013860  24 2c 22 2e 22 29 2b 31  29 3a ce 3a 3d 61 24 2b  |$,".")+1):.:=a$+|
00013870  bd 30 0d 48 26 34 dd a4  48 62 28 55 6c 25 29 3a  |.0.H&4..Hb(Ul%):|
00013880  ea 61 24 3a c8 95 3f 55  6c 25 3c 3e 30 3a 61 24  |.a$:..?Ul%<>0:a$|
00013890  2b 3d bd 28 3f 55 6c 25  29 3a 55 6c 25 2b 3d 31  |+=.(?Ul%):Ul%+=1|
000138a0  3a ce 3a 3d 61 24 0d 48  34 1e dd a4 57 68 3a ea  |:.:=a$.H4...Wh:.|
000138b0  43 69 24 3a 56 6c 24 3d  22 22 3a c8 8e 58 5f 25  |Ci$:Vl$="":..X_%|
000138c0  21 33 32 ca 0d 48 3c 15  c9 4b 61 25 3a 56 6c 24  |!32..H<..Ka%:Vl$|
000138d0  3d 22 69 66 5f 62 5f 77  22 0d 48 3e 12 c9 4d 61  |="if_b_w".H>..Ma|
000138e0  25 3a 56 6c 24 3d 22 6d  5f 77 22 0d 48 40 12 c9  |%:Vl$="m_w".H@..|
000138f0  50 61 25 3a 56 6c 24 3d  22 73 5f 77 22 0d 48 42  |Pa%:Vl$="s_w".HB|
00013900  16 c9 51 61 25 3a 56 6c  24 3d 22 4c 48 79 5f 64  |..Qa%:Vl$="LHy_d|
00013910  5f 77 22 0d 48 44 16 c9  53 61 25 3a 56 6c 24 3d  |_w".HD..Sa%:Vl$=|
00013920  22 52 48 79 5f 64 5f 77  22 0d 48 46 13 c9 55 61  |"RHy_d_w".HF..Ua|
00013930  25 3a 56 6c 24 3d 22 63  66 5f 77 22 0d 48 48 14  |%:Vl$="cf_w".HH.|
00013940  c9 56 61 25 3a 56 6c 24  3d 22 74 5f 64 5f 77 22  |.Va%:Vl$="t_d_w"|
00013950  0d 48 4a 12 c9 57 61 25  3a 56 6c 24 3d 22 74 5f  |.HJ..Wa%:Vl$="t_|
00013960  77 22 0d 48 4c 15 c9 59  61 25 3a 56 6c 24 3d 22  |w".HL..Ya%:Vl$="|
00013970  78 61 5f 65 5f 77 22 0d  48 4e 15 c9 5a 61 25 3a  |xa_e_w".HN..Za%:|
00013980  56 6c 24 3d 22 79 61 5f  65 5f 77 22 0d 48 50 3f  |Vl$="ya_e_w".HP?|
00013990  c9 41 60 25 28 31 29 2c  41 60 25 28 32 29 2c 41  |.A`%(1),A`%(2),A|
000139a0  60 25 28 33 29 2c 41 60  25 28 34 29 2c 41 60 25  |`%(3),A`%(4),A`%|
000139b0  28 35 29 2c 41 60 25 28  36 29 2c 41 60 25 28 37  |(5),A`%(6),A`%(7|
000139c0  29 3a 56 6c 24 3d 22 65  5f 77 22 0d 48 52 14 c9  |):Vl$="e_w".HR..|
000139d0  61 61 25 3a 56 6c 24 3d  22 65 5f 67 5f 77 22 0d  |aa%:Vl$="e_g_w".|
000139e0  48 54 13 c9 62 61 25 3a  56 6c 24 3d 22 74 72 5f  |HT..ba%:Vl$="tr_|
000139f0  77 22 0d 48 56 12 c9 63  61 25 3a 56 6c 24 3d 22  |w".HV..ca%:Vl$="|
00013a00  66 5f 77 22 0d 48 58 13  c9 64 61 25 3a 56 6c 24  |f_w".HX..da%:Vl$|
00013a10  3d 22 74 6d 5f 77 22 0d  48 5a 12 c9 65 61 25 3a  |="tm_w".HZ..ea%:|
00013a20  56 6c 24 3d 22 61 5f 77  22 0d 48 5c 14 c9 66 61  |Vl$="a_w".H\..fa|
00013a30  25 3a 56 6c 24 3d 22 63  66 63 5f 77 22 0d 48 5e  |%:Vl$="cfc_w".H^|
00013a40  13 c9 67 61 25 3a 56 6c  24 3d 22 6d 73 5f 77 22  |..ga%:Vl$="ms_w"|
00013a50  0d 48 60 14 c9 68 61 25  3a 56 6c 24 3d 22 65 5f  |.H`..ha%:Vl$="e_|
00013a60  75 5f 77 22 0d 48 62 14  c9 69 61 25 3a 56 6c 24  |u_w".Hb..ia%:Vl$|
00013a70  3d 22 73 5f 65 5f 77 22  0d 48 64 15 c9 6a 61 25  |="s_e_w".Hd..ja%|
00013a80  3a 56 6c 24 3d 22 64 66  5f 73 5f 77 22 0d 48 66  |:Vl$="df_s_w".Hf|
00013a90  17 c9 6c 61 25 3a 56 6c  24 3d 22 70 5f 74 66 5f  |..la%:Vl$="p_tf_|
00013aa0  73 5f 77 22 0d 48 68 17  c9 6e 61 25 3a 56 6c 24  |s_w".Hh..na%:Vl$|
00013ab0  3d 22 70 5f 70 66 5f 73  5f 77 22 0d 48 6a 30 cb  |="p_pf_s_w".Hj0.|
00013ac0  3a 43 69 24 3d a4 57 6c  28 56 6c 24 2b c3 28 58  |:Ci$=.Wl(Vl$+.(X|
00013ad0  5f 25 21 33 36 29 29 3a  e7 43 69 24 3d 22 22 8c  |_%!36)):.Ci$="".|
00013ae0  43 69 24 3d a4 57 6c 28  22 22 29 0d 48 70 08 3d  |Ci$=.Wl("").Hp.=|
00013af0  43 69 24 0d 48 74 1d dd  a4 57 6c 28 58 6c 24 29  |Ci$.Ht...Wl(Xl$)|
00013b00  3a 3d a4 59 6c 28 58 6c  24 2c 22 22 2c 22 22 29  |:=.Yl(Xl$,"","")|
00013b10  0d 48 7a 51 dd a4 59 6c  28 58 6c 24 2c 5a 6c 24  |.HzQ..Yl(Xl$,Zl$|
00013b20  2c 61 6c 24 29 3a ea 46  25 2c 4c 25 3a c8 99 33  |,al$):.F%,L%:..3|
00013b30  39 38 35 39 34 2c 61 68  25 2c 58 6c 24 2c 70 60  |98594,ah%,Xl$,p`|
00013b40  25 2c 32 35 36 2c 5a 6c  24 2c 61 6c 24 b8 2c 2c  |%,256,Zl$,al$.,,|
00013b50  2c 4c 25 3b 46 25 3a e7  46 25 80 31 8c 4c 25 3d  |,L%;F%:.F%.1.L%=|
00013b60  30 0d 48 82 13 70 60 25  3f 4c 25 3d 31 33 3a 3d  |0.H..p`%?L%=13:=|
00013b70  24 70 60 25 0d 48 88 a7  dd a4 67 62 28 73 68 25  |$p`%.H....gb(sh%|
00013b80  2c 53 6c 25 2c 4c 6c 25  2c 4d 6c 25 2c 4e 6c 25  |,Sl%,Ll%,Ml%,Nl%|
00013b90  2c 4f 6c 25 2c 62 6c 25  2c 63 6c 25 2c 64 6c 25  |,Ol%,bl%,cl%,dl%|
00013ba0  29 3a 21 58 5f 25 3d 73  68 25 3a 58 5f 25 21 34  |):!X_%=sh%:X_%!4|
00013bb0  3d 53 6c 25 3a c8 99 32  36 32 33 34 30 2c 2c 58  |=Sl%:..262340,,X|
00013bc0  5f 25 3a 65 6c 25 3d a4  4a 61 28 73 68 25 2c 4c  |_%:el%=.Ja(sh%,L|
00013bd0  6c 25 2c 4d 6c 25 2c 4e  6c 25 2c 4f 6c 25 2c 62  |l%,Ml%,Nl%,Ol%,b|
00013be0  6c 25 2c 22 22 2c 63 6c  25 2c 64 6c 25 2c 32 31  |l%,"",cl%,dl%,21|
00013bf0  29 3a c8 99 32 36 32 33  35 33 2c 73 68 25 2c 4c  |):..262353,sh%,L|
00013c00  6c 25 2c 4d 6c 25 2c 4c  6c 25 2b 4e 6c 25 2c 4d  |l%,Ml%,Ll%+Nl%,M|
00013c10  6c 25 2b 4f 6c 25 3a 3d  65 6c 25 0d 48 98 48 dd  |l%+Ol%:=el%.H.H.|
00013c20  a4 66 6c 28 73 68 25 2c  67 6c 25 29 3a 21 58 5f  |.fl(sh%,gl%):!X_|
00013c30  25 3d 73 68 25 3a 58 5f  25 21 34 3d 67 6c 25 3a  |%=sh%:X_%!4=gl%:|
00013c40  c8 99 32 36 32 33 35 30  2c 2c 58 5f 25 3a 68 6c  |..262350,,X_%:hl|
00013c50  25 3d bb 28 24 28 58 5f  25 21 32 38 29 29 3a 3d  |%=.($(X_%!28)):=|
00013c60  68 6c 25 0d 48 a6 4b dd  a4 69 6c 28 73 68 25 2c  |hl%.H.K..il(sh%,|
00013c70  67 6c 25 29 3a 21 58 5f  25 3d 73 68 25 3a 58 5f  |gl%):!X_%=sh%:X_|
00013c80  25 21 34 3d 67 6c 25 3a  c8 99 32 36 32 33 35 30  |%!4=gl%:..262350|
00013c90  2c 2c 58 5f 25 3a 68 6c  25 3d 31 30 2a bb 28 24  |,,X_%:hl%=10*.($|
00013ca0  28 58 5f 25 21 32 38 29  29 3a 3d 68 6c 25 0d 48  |(X_%!28)):=hl%.H|
00013cb0  b4 28 dd a4 73 69 28 73  69 2c 6a 6c 25 29 3a e7  |.(..si(si,jl%):.|
00013cc0  73 69 3e 6a 6c 25 2d 32  30 30 8c 3a 73 69 3d 6a  |si>jl%-200.:si=j|
00013cd0  6c 25 2d 32 30 30 0d 48  b8 1b e7 73 69 3c 6a 6c  |l%-200.H...si<jl|
00013ce0  25 2d 37 30 30 8c 3a 73  69 3d 6a 6c 25 2d 37 30  |%-700.:si=jl%-70|
00013cf0  30 0d 48 ba 07 3d 73 69  0d 48 be 35 dd a4 74 69  |0.H..=si.H.5..ti|
00013d00  28 73 69 25 2c 6a 6c 25  2c 73 25 29 3a e7 73 69  |(si%,jl%,s%):.si|
00013d10  25 3e 3d 6a 6c 25 2d 32  30 30 84 73 69 25 3c 3d  |%>=jl%-200.si%<=|
00013d20  6a 6c 25 2d 37 30 30 8c  3a 73 25 3d 30 0d 48 c2  |jl%-700.:s%=0.H.|
00013d30  07 3d 73 25 0d 48 c6 38  dd a4 6b 6c 28 6c 6c 2c  |.=s%.H.8..kl(ll,|
00013d40  78 69 2c 6d 6c 2c 6e 6c  29 3a 6f 6c 25 3d 30 3a  |xi,ml,nl):ol%=0:|
00013d50  e7 6c 6c 3e 3d 6e 6c 80  6c 6c 3c 3d 6d 6c 80 6c  |.ll>=nl.ll<=ml.l|
00013d60  6c 3e 78 69 8c 3a 6f 6c  25 3d 2d 31 0d 48 cc 08  |l>xi.:ol%=-1.H..|
00013d70  3d 6f 6c 25 0d 48 d0 38  dd a4 70 6c 28 6c 6c 2c  |=ol%.H.8..pl(ll,|
00013d80  78 69 2c 6d 6c 2c 6e 6c  29 3a 6f 6c 25 3d 30 3a  |xi,ml,nl):ol%=0:|
00013d90  e7 78 69 3e 3d 6e 6c 80  78 69 3c 3d 6d 6c 80 78  |.xi>=nl.xi<=ml.x|
00013da0  69 3c 6c 6c 8c 3a 6f 6c  25 3d 2d 31 0d 48 d6 08  |i<ll.:ol%=-1.H..|
00013db0  3d 6f 6c 25 0d 48 da 2f  dd a4 52 67 3a 6f 6c 25  |=ol%.H./..Rg:ol%|
00013dc0  3d 30 3a e7 a4 6b 6c 28  61 66 25 2c 31 39 39 30  |=0:..kl(af%,1990|
00013dd0  2c 32 31 35 30 2c 31 39  39 30 29 8c 3a 6f 6c 25  |,2150,1990).:ol%|
00013de0  3d 2d 31 0d 48 e0 08 3d  6f 6c 25 0d 48 e4 47 dd  |=-1.H..=ol%.H.G.|
00013df0  a4 61 67 3a 6f 6c 25 3d  30 3a e7 a4 6b 6c 28 65  |.ag:ol%=0:..kl(e|
00013e00  66 25 2c 66 66 25 2c 35  30 30 30 2c 2d 31 30 30  |f%,ff%,5000,-100|
00013e10  30 29 80 a4 70 6c 28 65  66 25 2c 66 66 25 2c 35  |0)..pl(ef%,ff%,5|
00013e20  30 30 30 2c 2d 31 30 30  30 29 8c 3a 6f 6c 25 3d  |000,-1000).:ol%=|
00013e30  2d 31 0d 48 ea 08 3d 6f  6c 25 0d 48 ee 7d dd a4  |-1.H..=ol%.H.}..|
00013e40  64 67 3a e7 a4 6b 6c 28  79 64 25 28 49 65 25 29  |dg:..kl(yd%(Ie%)|
00013e50  2c 2d 31 2c 31 30 30 2c  30 29 80 a4 6b 6c 28 5f  |,-1,100,0)..kl(_|
00013e60  64 25 28 49 65 25 29 2c  2d 31 2c 31 30 30 2c 30  |d%(Ie%),-1,100,0|
00013e70  29 80 a4 6b 6c 28 41 65  25 28 49 65 25 29 2c 2d  |)..kl(Ae%(Ie%),-|
00013e80  31 2c 31 30 30 2c 30 29  80 a4 6b 6c 28 43 65 25  |1,100,0)..kl(Ce%|
00013e90  28 49 65 25 29 2c 2d 31  2c 31 30 30 2c 30 29 80  |(Ie%),-1,100,0).|
00013ea0  a4 6b 6c 28 45 65 25 28  49 65 25 29 2c 2d 31 2c  |.kl(Ee%(Ie%),-1,|
00013eb0  31 30 30 2c 30 29 8c 0d  48 f4 2b e7 a4 6b 6c 28  |100,0)..H.+..kl(|
00013ec0  49 65 25 2c 2d 31 2c 35  2c 30 29 80 a4 6b 6c 28  |Ie%,-1,5,0)..kl(|
00013ed0  4b 65 25 28 49 65 25 29  2c 30 2c 63 67 25 2c 31  |Ke%(Ie%),0,cg%,1|
00013ee0  29 8c 0d 48 f8 0a 6f 6c  25 3d 2d 31 0d 48 fa 05  |)..H..ol%=-1.H..|
00013ef0  cd 0d 48 fb 0b cc 3a 6f  6c 25 3d 30 0d 48 fe 3f  |..H...:ol%=0.H.?|
00013f00  cd 3a e7 79 64 25 28 49  65 25 29 2b 5f 64 25 28  |.:.yd%(Ie%)+_d%(|
00013f10  49 65 25 29 2b 41 65 25  28 49 65 25 29 2b 43 65  |Ie%)+Ae%(Ie%)+Ce|
00013f20  25 28 49 65 25 29 2b 45  65 25 28 49 65 25 29 3c  |%(Ie%)+Ee%(Ie%)<|
00013f30  3e 31 30 30 8c 3a 6f 6c  25 3d 30 0d 49 00 08 3d  |>100.:ol%=0.I..=|
00013f40  6f 6c 25 0d 49 04 5b dd  a4 71 67 3a 6f 6c 25 3d  |ol%.I.[..qg:ol%=|
00013f50  30 3a e7 a4 6b 6c 28 4d  65 25 28 57 65 25 29 2c  |0:..kl(Me%(We%),|
00013f60  2d 31 2c 39 39 39 39 30  30 2c 30 29 80 a4 6b 6c  |-1,999900,0)..kl|
00013f70  28 53 65 25 28 57 65 25  29 2c 2d 31 2c 31 30 30  |(Se%(We%),-1,100|
00013f80  2c 30 29 80 a4 6b 6c 28  55 65 25 28 57 65 25 29  |,0)..kl(Ue%(We%)|
00013f90  2c 2d 31 2c 39 39 39 39  30 30 2c 30 29 8c 0d 49  |,-1,999900,0)..I|
00013fa0  0a 32 e7 a4 6b 6c 28 57  65 25 2c 2d 31 2c 35 2c  |.2..kl(We%,-1,5,|
00013fb0  30 29 80 a4 6b 6c 28 59  65 25 28 57 65 25 29 2c  |0)..kl(Ye%(We%),|
00013fc0  30 2c 63 67 25 2c 30 29  8c 3a 6f 6c 25 3d 2d 31  |0,cg%,0).:ol%=-1|
00013fd0  0d 49 0c 0a cd 3a 3d 6f  6c 25 0d 49 12 70 dd a4  |.I...:=ol%.I.p..|
00013fe0  68 67 3a 6f 6c 25 3d 30  3a e7 a4 6b 6c 28 64 65  |hg:ol%=0:..kl(de|
00013ff0  25 28 62 65 25 29 2c 2d  31 30 31 2c 31 30 2c 2d  |%(be%),-101,10,-|
00014000  31 30 30 29 80 a4 6b 6c  28 68 65 25 28 62 65 25  |100)..kl(he%(be%|
00014010  29 2c 2d 31 2c 31 30 30  2c 30 29 80 a4 6b 6c 28  |),-1,100,0)..kl(|
00014020  6a 65 25 28 62 65 25 29  2c 2d 31 2c 31 30 30 2c  |je%(be%),-1,100,|
00014030  30 29 80 a4 6b 6c 28 6c  65 25 28 62 65 25 29 2c  |0)..kl(le%(be%),|
00014040  2d 31 2c 31 30 30 2c 30  29 8c 0d 49 18 33 e7 a4  |-1,100,0)..I.3..|
00014050  6b 6c 28 62 65 25 2c 2d  31 2c 35 2c 30 29 80 a4  |kl(be%,-1,5,0)..|
00014060  6b 6c 28 66 65 25 28 62  65 25 29 2c 2d 31 2c 63  |kl(fe%(be%),-1,c|
00014070  67 25 2c 30 29 8c 3a 6f  6c 25 3d 2d 31 0d 49 1a  |g%,0).:ol%=-1.I.|
00014080  0a cd 3a 3d 6f 6c 25 0d  49 20 7c dd a4 6a 67 3a  |..:=ol%.I |..jg:|
00014090  e7 a4 6b 6c 28 6e 65 25  28 78 65 25 29 2c 2d 31  |..kl(ne%(xe%),-1|
000140a0  2c 31 30 30 2c 30 29 80  a4 6b 6c 28 70 65 25 28  |,100,0)..kl(pe%(|
000140b0  78 65 25 29 2c 2d 31 2c  31 30 30 2c 30 29 80 a4  |xe%),-1,100,0)..|
000140c0  6b 6c 28 72 65 25 28 78  65 25 29 2c 2d 31 2c 31  |kl(re%(xe%),-1,1|
000140d0  30 30 2c 30 29 80 a4 6b  6c 28 74 65 25 28 78 65  |00,0)..kl(te%(xe|
000140e0  25 29 2c 2d 31 2c 31 30  30 2c 30 29 80 a4 6b 6c  |%),-1,100,0)..kl|
000140f0  28 7a 65 25 28 78 65 25  29 2c 30 2c 63 67 25 2c  |(ze%(xe%),0,cg%,|
00014100  31 29 8c 0d 49 25 0b cc  3a 6f 6c 25 3d 30 0d 49  |1)..I%..:ol%=0.I|
00014110  28 36 cd 3a e7 6e 65 25  28 78 65 25 29 2b 70 65  |(6.:.ne%(xe%)+pe|
00014120  25 28 78 65 25 29 2b 72  65 25 28 78 65 25 29 2b  |%(xe%)+re%(xe%)+|
00014130  74 65 25 28 78 65 25 29  3c 3e 31 30 30 8c 3a 6f  |te%(xe%)<>100.:o|
00014140  6c 25 3d 30 0d 49 2a 08  3d 6f 6c 25 0d 49 2e 3e  |l%=0.I*.=ol%.I.>|
00014150  dd a4 6c 67 3a 6f 6c 25  3d 30 3a e7 a4 6b 6c 28  |..lg:ol%=0:..kl(|
00014160  60 65 25 28 44 66 25 29  2c 2d 31 2c 39 39 39 2c  |`e%(Df%),-1,999,|
00014170  30 29 80 a4 6b 6c 28 42  66 25 28 44 66 25 29 2c  |0)..kl(Bf%(Df%),|
00014180  2d 31 2c 39 39 39 2c 30  29 8c 0d 49 34 39 e7 28  |-1,999,0)..I49.(|
00014190  a4 6b 6c 28 44 66 25 2c  30 2c 35 2c 30 29 80 a4  |.kl(Df%,0,5,0)..|
000141a0  6b 6c 28 46 66 25 28 44  66 25 29 2c 30 2c 63 67  |kl(Ff%(Df%),0,cg|
000141b0  25 2c 30 29 29 84 44 66  25 3d 30 8c 3a 6f 6c 25  |%,0)).Df%=0.:ol%|
000141c0  3d 2d 31 0d 49 36 0a cd  3a 3d 6f 6c 25 0d 49 3c  |=-1.I6..:=ol%.I<|
000141d0  40 dd a4 6d 67 3a 6f 6c  25 3d 30 3a e7 a4 6b 6c  |@..mg:ol%=0:..kl|
000141e0  28 48 66 25 28 4c 66 25  29 2c 2d 31 2c 35 30 30  |(Hf%(Lf%),-1,500|
000141f0  30 30 2c 30 29 80 a4 6b  6c 28 4a 66 25 28 4c 66  |00,0)..kl(Jf%(Lf|
00014200  25 29 2c 2d 31 2c 39 39  39 2c 30 29 8c 0d 49 42  |%),-1,999,0)..IB|
00014210  39 e7 28 a4 6b 6c 28 4c  66 25 2c 30 2c 35 2c 30  |9.(.kl(Lf%,0,5,0|
00014220  29 80 a4 6b 6c 28 4e 66  25 28 4c 66 25 29 2c 30  |)..kl(Nf%(Lf%),0|
00014230  2c 63 67 25 2c 30 29 29  84 4c 66 25 3d 30 8c 3a  |,cg%,0)).Lf%=0.:|
00014240  6f 6c 25 3d 2d 31 0d 49  44 0a cd 3a 3d 6f 6c 25  |ol%=-1.ID..:=ol%|
00014250  0d 49 4a 55 dd a4 6f 67  3a 6f 6c 25 3d 30 3a e7  |.IJU..og:ol%=0:.|
00014260  a4 6b 6c 28 50 66 25 28  56 66 25 29 2c 2d 31 2c  |.kl(Pf%(Vf%),-1,|
00014270  39 39 39 2c 30 29 84 a4  6b 6c 28 52 66 25 28 56  |999,0)..kl(Rf%(V|
00014280  66 25 29 2c 2d 31 2c 39  39 39 2c 30 29 84 a4 6b  |f%),-1,999,0)..k|
00014290  6c 28 54 66 25 28 56 66  25 29 2c 2d 31 2c 39 39  |l(Tf%(Vf%),-1,99|
000142a0  39 2c 30 29 8c 0d 49 50  31 e7 a4 6b 6c 28 56 66  |9,0)..IP1..kl(Vf|
000142b0  25 2c 30 2c 35 2c 30 29  80 a4 6b 6c 28 58 66 25  |%,0,5,0)..kl(Xf%|
000142c0  28 56 66 25 29 2c 30 2c  63 67 25 2c 30 29 8c 3a  |(Vf%),0,cg%,0).:|
000142d0  6f 6c 25 3d 2d 31 0d 49  52 0a cd 3a 3d 6f 6c 25  |ol%=-1.IR..:=ol%|
000142e0  0d 49 58 2b dd a4 73 67  3a 6f 6c 25 3d 30 3a e7  |.IX+..sg:ol%=0:.|
000142f0  a4 6b 6c 28 6b 66 25 28  6f 66 25 29 2c 2d 31 30  |.kl(kf%(of%),-10|
00014300  31 2c 31 30 2c 2d 31 30  30 29 8c 0d 49 5e 32 e7  |1,10,-100)..I^2.|
00014310  a4 6b 6c 28 6f 66 25 2c  30 2c 35 2c 30 29 80 a4  |.kl(of%,0,5,0)..|
00014320  6b 6c 28 6d 66 25 28 6f  66 25 29 2c 2d 31 2c 63  |kl(mf%(of%),-1,c|
00014330  67 25 2c 30 29 8c 3a 6f  6c 25 3d 2d 31 0d 49 60  |g%,0).:ol%=-1.I`|
00014340  0a cd 3a 3d 6f 6c 25 0d  49 66 2e dd a4 4a 6a 28  |..:=ol%.If...Jj(|
00014350  68 6c 2c 4a 6a 25 29 3a  e7 2d 31 30 30 30 3c 68  |hl,Jj%):.-1000<h|
00014360  6c 80 68 6c 3c 3d 2d 31  30 30 8c 3a 71 6c 25 3d  |l.hl<=-100.:ql%=|
00014370  35 2b 4a 6a 25 0d 49 6a  1f e7 2d 31 30 30 3c 68  |5+Jj%.Ij..-100<h|
00014380  6c 80 68 6c 3c 3d 2d 31  30 8c 3a 71 6c 25 3d 34  |l.hl<=-10.:ql%=4|
00014390  2b 4a 6a 25 0d 49 6c 1b  e7 2d 31 30 3c 68 6c 80  |+Jj%.Il..-10<hl.|
000143a0  68 6c 3c 30 8c 3a 71 6c  25 3d 33 2b 4a 6a 25 0d  |hl<0.:ql%=3+Jj%.|
000143b0  49 6e 1b e7 30 3c 3d 68  6c 80 68 6c 3c 31 30 8c  |In..0<=hl.hl<10.|
000143c0  3a 71 6c 25 3d 32 2b 4a  6a 25 0d 49 70 1d e7 31  |:ql%=2+Jj%.Ip..1|
000143d0  30 3c 3d 68 6c 80 68 6c  3c 31 30 30 8c 3a 71 6c  |0<=hl.hl<100.:ql|
000143e0  25 3d 33 2b 4a 6a 25 0d  49 72 1f e7 31 30 30 3c  |%=3+Jj%.Ir..100<|
000143f0  3d 68 6c 80 68 6c 3c 31  30 30 30 8c 3a 71 6c 25  |=hl.hl<1000.:ql%|
00014400  3d 34 2b 4a 6a 25 0d 49  74 21 e7 31 30 30 30 3c  |=4+Jj%.It!.1000<|
00014410  3d 68 6c 80 68 6c 3c 31  30 30 30 30 8c 3a 71 6c  |=hl.hl<10000.:ql|
00014420  25 3d 35 2b 4a 6a 25 0d  49 76 23 e7 31 30 30 30  |%=5+Jj%.Iv#.1000|
00014430  30 3c 3d 68 6c 80 68 6c  3c 31 30 30 30 30 30 8c  |0<=hl.hl<100000.|
00014440  3a 71 6c 25 3d 36 2b 4a  6a 25 0d 49 78 25 e7 31  |:ql%=6+Jj%.Ix%.1|
00014450  30 30 30 30 30 3c 3d 68  6c 80 68 6c 3c 31 30 30  |00000<=hl.hl<100|
00014460  30 30 30 30 8c 3a 71 6c  25 3d 37 2b 4a 6a 25 0d  |0000.:ql%=7+Jj%.|
00014470  49 7a 08 3d 71 6c 25 0d  49 7e 41 dd a4 4a 68 28  |Iz.=ql%.I~A..Jh(|
00014480  56 6c 25 2c 67 6c 25 29  3a ea 68 6c 25 3a 68 6c  |Vl%,gl%):.hl%:hl|
00014490  25 3d a4 66 6c 28 56 6c  25 2c 67 6c 25 29 3a e7  |%=.fl(Vl%,gl%):.|
000144a0  2d 31 30 30 30 3c 68 6c  80 68 6c 3c 3d 2d 31 30  |-1000<hl.hl<=-10|
000144b0  30 8c 3a 72 6c 25 3d 34  0d 49 86 1b e7 2d 31 30  |0.:rl%=4.I...-10|
000144c0  30 3c 68 6c 80 68 6c 3c  3d 2d 31 30 8c 3a 72 6c  |0<hl.hl<=-10.:rl|
000144d0  25 3d 33 0d 49 88 17 e7  2d 31 30 3c 68 6c 80 68  |%=3.I...-10<hl.h|
000144e0  6c 3c 30 8c 3a 72 6c 25  3d 32 0d 49 8a 19 e7 30  |l<0.:rl%=2.I...0|
000144f0  3c 3d 68 6c 25 80 68 6c  25 3c 31 30 8c 3a 72 6c  |<=hl%.hl%<10.:rl|
00014500  25 3d 31 0d 49 8c 1b e7  31 30 3c 3d 68 6c 25 80  |%=1.I...10<=hl%.|
00014510  68 6c 25 3c 31 30 30 8c  3a 72 6c 25 3d 32 0d 49  |hl%<100.:rl%=2.I|
00014520  8e 1d e7 31 30 30 3c 3d  68 6c 25 80 68 6c 25 3c  |...100<=hl%.hl%<|
00014530  31 30 30 30 8c 3a 72 6c  25 3d 33 0d 49 90 1f e7  |1000.:rl%=3.I...|
00014540  31 30 30 30 3c 3d 68 6c  25 80 68 6c 25 3c 31 30  |1000<=hl%.hl%<10|
00014550  30 30 30 8c 3a 72 6c 25  3d 34 0d 49 92 21 e7 31  |000.:rl%=4.I.!.1|
00014560  30 30 30 30 3c 3d 68 6c  25 80 68 6c 25 3c 31 30  |0000<=hl%.hl%<10|
00014570  30 30 30 30 8c 3a 72 6c  25 3d 35 0d 49 94 23 e7  |0000.:rl%=5.I.#.|
00014580  31 30 30 30 30 30 3c 3d  68 6c 25 80 68 6c 25 3c  |100000<=hl%.hl%<|
00014590  31 30 30 30 30 30 30 8c  3a 72 6c 25 3d 36 0d 49  |1000000.:rl%=6.I|
000145a0  96 08 3d 72 6c 25 0d 49  9a 14 dd a4 58 6b 28 73  |..=rl%.I....Xk(s|
000145b0  68 25 29 3a c8 8e 73 68  25 ca 0d 49 a2 10 c9 41  |h%):..sh%..I...A|
000145c0  60 25 28 31 29 3a 6e 25  3d 31 0d 49 a4 10 c9 41  |`%(1):n%=1.I...A|
000145d0  60 25 28 32 29 3a 6e 25  3d 32 0d 49 a6 10 c9 41  |`%(2):n%=2.I...A|
000145e0  60 25 28 33 29 3a 6e 25  3d 33 0d 49 a8 10 c9 41  |`%(3):n%=3.I...A|
000145f0  60 25 28 34 29 3a 6e 25  3d 34 0d 49 aa 10 c9 41  |`%(4):n%=4.I...A|
00014600  60 25 28 35 29 3a 6e 25  3d 35 0d 49 ac 10 c9 41  |`%(5):n%=5.I...A|
00014610  60 25 28 36 29 3a 6e 25  3d 36 0d 49 ae 10 c9 41  |`%(6):n%=6.I...A|
00014620  60 25 28 37 29 3a 6e 25  3d 37 0d 49 b0 09 cb 3a  |`%(7):n%=7.I...:|
00014630  3d 6e 25 0d 49 b6 43 dd  a4 73 6c 28 4e 69 25 29  |=n%.I.C..sl(Ni%)|
00014640  3a c8 99 32 36 32 33 37  33 2c 2c 4d 60 25 3a 74  |:..262373,,M`%:t|
00014650  6c 25 3d 21 28 4d 60 25  2b 34 2a 4e 69 25 29 3a  |l%=!(M`%+4*Ni%):|
00014660  74 6c 25 3d 74 6c 25 80  26 46 46 46 46 46 46 30  |tl%=tl%.&FFFFFF0|
00014670  30 3a 3d 74 6c 25 0d 49  cc 62 dd a4 6e 62 28 70  |0:=tl%.I.b..nb(p|
00014680  25 29 3a ea 72 6c 25 2c  75 60 24 2c 75 6c 24 3a  |%):.rl%,u`$,ul$:|
00014690  75 60 24 3d 22 20 20 20  20 20 20 20 20 20 20 22  |u`$="          "|
000146a0  3a 72 6c 25 3d a9 28 c3  28 70 25 29 29 3a 72 6c  |:rl%=.(.(p%)):rl|
000146b0  25 3d 39 2d 72 6c 25 3a  75 6c 24 3d c0 75 60 24  |%=9-rl%:ul$=.u`$|
000146c0  2c 72 6c 25 29 3a 48 62  24 3d 75 6c 24 2b c3 28  |,rl%):Hb$=ul$+.(|
000146d0  70 25 29 3a 3d 48 62 24  0d 49 e2 3a dd a4 6b 69  |p%):=Hb$.I.:..ki|
000146e0  28 52 69 29 3a 76 6c 3d  b6 28 b6 28 28 32 33 39  |(Ri):vl=.(.((239|
000146f0  2e 37 35 2b 31 2e 39 33  33 2a 52 69 29 2f 28 30  |.75+1.933*Ri)/(0|
00014700  2e 36 32 2a 35 2e 36 37  45 2d 38 29 29 29 3a 3d  |.62*5.67E-8))):=|
00014710  76 6c 0d 49 ee 38 dd a4  6c 69 28 52 69 29 3a 76  |vl.I.8..li(Ri):v|
00014720  6c 3d b6 28 b6 28 28 32  33 39 2e 37 35 2b 31 2e  |l=.(.((239.75+1.|
00014730  33 2a 52 69 29 2f 28 30  2e 36 32 2a 35 2e 36 37  |3*Ri)/(0.62*5.67|
00014740  45 2d 38 29 29 29 3a 3d  76 6c 0d 49 fa 3a dd a4  |E-8))):=vl.I.:..|
00014750  6d 69 28 52 69 29 3a 76  6c 3d b6 28 b6 28 28 32  |mi(Ri):vl=.(.((2|
00014760  33 39 2e 37 35 2b 30 2e  38 38 35 2a 52 69 29 2f  |39.75+0.885*Ri)/|
00014770  28 30 2e 36 32 2a 35 2e  36 37 45 2d 38 29 29 29  |(0.62*5.67E-8)))|
00014780  3a 3d 76 6c 0d 4a 06 60  dd f2 49 64 28 f8 48 68  |:=vl.J.`..Id(.Hh|
00014790  25 2c f8 47 68 25 2c 77  6c 25 2c 78 6c 25 29 3a  |%,.Gh%,wl%,xl%):|
000147a0  48 68 25 3d a4 66 6c 28  56 61 25 2c 31 33 29 2d  |Hh%=.fl(Va%,13)-|
000147b0  31 37 35 30 3a e7 48 68  25 3e 77 6c 25 84 48 68  |1750:.Hh%>wl%.Hh|
000147c0  25 3c 3d 78 6c 25 8c 3a  48 68 25 3d 77 6c 25 3a  |%<=xl%.:Hh%=wl%:|
000147d0  f2 66 62 28 56 61 25 2c  31 33 2c 48 68 25 2b 31  |.fb(Va%,13,Hh%+1|
000147e0  37 35 30 29 0d 4a 0c 48  47 68 25 3d a4 66 6c 28  |750).J.HGh%=.fl(|
000147f0  56 61 25 2c 31 37 29 2d  31 37 35 30 3a e7 47 68  |Va%,17)-1750:.Gh|
00014800  25 3e 3d 77 6c 25 84 47  68 25 3c 78 6c 25 8c 3a  |%>=wl%.Gh%<xl%.:|
00014810  47 68 25 3d 78 6c 25 3a  f2 66 62 28 56 61 25 2c  |Gh%=xl%:.fb(Va%,|
00014820  31 37 2c 47 68 25 2b 31  37 35 30 29 0d 4a 10 0e  |17,Gh%+1750).J..|
00014830  e7 47 68 25 3e 3d 48 68  25 8c 0d 4a 12 3d 48 68  |.Gh%>=Hh%..J.=Hh|
00014840  25 3d 77 6c 25 3a 47 68  25 3d 78 6c 25 3a f2 66  |%=wl%:Gh%=xl%:.f|
00014850  62 28 56 61 25 2c 31 33  2c 48 68 25 2b 31 37 35  |b(Va%,13,Hh%+175|
00014860  30 29 3a f2 66 62 28 56  61 25 2c 31 37 2c 47 68  |0):.fb(Va%,17,Gh|
00014870  25 2b 31 37 35 30 29 0d  4a 16 45 cd 3a e7 28 48  |%+1750).J.E.:.(H|
00014880  68 25 3c 3e 33 34 30 80  48 68 25 3c 3e 33 35 30  |h%<>340.Hh%<>350|
00014890  80 48 68 25 3c 3e 34 30  30 29 84 28 47 68 25 3c  |.Hh%<>400).(Gh%<|
000148a0  3e 30 80 47 68 25 3c 3e  31 30 30 80 47 68 25 3c  |>0.Gh%<>100.Gh%<|
000148b0  3e 32 34 30 29 8c 3a 57  62 25 3d 30 0d 4a 1a 05  |>240).:Wb%=0.J..|
000148c0  e1 0d 4a 1e 46 dd f2 50  64 28 f8 46 68 25 2c f8  |..J.F..Pd(.Fh%,.|
000148d0  48 68 25 2c f8 47 68 25  2c 77 6c 25 2c 78 6c 25  |Hh%,.Gh%,wl%,xl%|
000148e0  29 3a 46 68 25 3d a4 66  6c 28 51 61 25 2c 31 34  |):Fh%=.fl(Qa%,14|
000148f0  29 3a e7 46 68 25 3e 3d  32 35 84 46 68 25 3c 3d  |):.Fh%>=25.Fh%<=|
00014900  30 8c 46 68 25 3d 33 0d  4a 24 2e 48 68 25 3d a4  |0.Fh%=3.J$.Hh%=.|
00014910  69 6c 28 51 61 25 2c 31  39 29 3a e7 48 68 25 3e  |il(Qa%,19):.Hh%>|
00014920  77 6c 25 84 48 68 25 3c  3d 78 6c 25 8c 3a 48 68  |wl%.Hh%<=xl%.:Hh|
00014930  25 3d 77 6c 25 0d 4a 28  2e 47 68 25 3d a4 69 6c  |%=wl%.J(.Gh%=.il|
00014940  28 51 61 25 2c 32 33 29  3a e7 47 68 25 3e 3d 77  |(Qa%,23):.Gh%>=w|
00014950  6c 25 84 47 68 25 3c 78  6c 25 8c 3a 47 68 25 3d  |l%.Gh%<xl%.:Gh%=|
00014960  78 6c 25 0d 4a 2c 16 f2  79 6c 28 46 68 25 2c 48  |xl%.J,..yl(Fh%,H|
00014970  68 25 2c 47 68 25 29 3a  e1 0d 4a 32 46 dd f2 52  |h%,Gh%):..J2F..R|
00014980  64 28 f8 46 68 25 2c f8  48 68 25 2c f8 47 68 25  |d(.Fh%,.Hh%,.Gh%|
00014990  2c 77 6c 25 2c 78 6c 25  29 3a 46 68 25 3d a4 66  |,wl%,xl%):Fh%=.f|
000149a0  6c 28 53 61 25 2c 31 34  29 3a e7 46 68 25 3e 3d  |l(Sa%,14):.Fh%>=|
000149b0  32 35 84 46 68 25 3c 3d  30 8c 46 68 25 3d 33 0d  |25.Fh%<=0.Fh%=3.|
000149c0  4a 38 26 48 68 25 3d a4  66 6c 28 53 61 25 2c 31  |J8&Hh%=.fl(Sa%,1|
000149d0  39 29 3a e7 48 68 25 3e  77 6c 25 84 48 68 25 3c  |9):.Hh%>wl%.Hh%<|
000149e0  3d 78 6c 25 8c 0d 4a 3c  1b 48 68 25 3d 77 6c 25  |=xl%..J<.Hh%=wl%|
000149f0  3a f2 66 62 28 53 61 25  2c 31 39 2c 48 68 25 29  |:.fb(Sa%,19,Hh%)|
00014a00  0d 4a 40 28 cd 3a 47 68  25 3d a4 66 6c 28 53 61  |.J@(.:Gh%=.fl(Sa|
00014a10  25 2c 32 33 29 3a e7 47  68 25 3e 3d 77 6c 25 84  |%,23):.Gh%>=wl%.|
00014a20  47 68 25 3c 78 6c 25 8c  0d 4a 46 1b 47 68 25 3d  |Gh%<xl%..JF.Gh%=|
00014a30  78 6c 25 3a f2 66 62 28  53 61 25 2c 32 33 2c 47  |xl%:.fb(Sa%,23,G|
00014a40  68 25 29 0d 4a 4a 10 cd  3a e7 47 68 25 3e 3d 48  |h%).JJ..:.Gh%>=H|
00014a50  68 25 8c 0d 4a 4e 33 48  68 25 3d 77 6c 25 3a 47  |h%..JN3Hh%=wl%:G|
00014a60  68 25 3d 78 6c 25 3a f2  66 62 28 53 61 25 2c 31  |h%=xl%:.fb(Sa%,1|
00014a70  39 2c 48 68 25 29 3a f2  66 62 28 53 61 25 2c 32  |9,Hh%):.fb(Sa%,2|
00014a80  33 2c 47 68 25 29 0d 4a  52 07 cd 3a e1 0d 4a 58  |3,Gh%).JR..:..JX|
00014a90  2e dd f2 42 63 28 73 68  25 2c 67 6c 25 2c 7a 6c  |...Bc(sh%,gl%,zl|
00014aa0  25 29 3a e7 7a 6c 25 3c  31 30 30 30 8c 48 62 24  |%):.zl%<1000.Hb$|
00014ab0  3d c0 c3 28 7a 6c 25 29  2c 33 29 0d 4a 5c 1f e7  |=..(zl%),3).J\..|
00014ac0  7a 6c 25 3c 31 30 30 8c  48 62 24 3d 22 20 22 2b  |zl%<100.Hb$=" "+|
00014ad0  c0 c3 28 7a 6c 25 29 2c  32 29 0d 4a 5e 1f e7 7a  |..(zl%),2).J^..z|
00014ae0  6c 25 3c 31 30 8c 48 62  24 3d 22 20 30 22 2b c0  |l%<10.Hb$=" 0"+.|
00014af0  c3 28 7a 6c 25 29 2c 31  29 0d 4a 60 63 21 58 5f  |.(zl%),1).J`c!X_|
00014b00  25 3d 73 68 25 3a 58 5f  25 21 34 3d 67 6c 25 3a  |%=sh%:X_%!4=gl%:|
00014b10  c8 99 32 36 32 33 35 30  2c 2c 58 5f 25 3a 24 28  |..262350,,X_%:$(|
00014b20  58 5f 25 21 32 38 29 3d  c0 48 62 24 2c 32 29 2b  |X_%!28)=.Hb$,2)+|
00014b30  22 2e 22 2b c2 48 62 24  2c 31 29 3a 58 5f 25 21  |"."+.Hb$,1):X_%!|
00014b40  38 3d 30 3a 58 5f 25 21  31 32 3d 30 3a c8 99 32  |8=0:X_%!12=0:..2|
00014b50  36 32 33 34 39 2c 2c 58  5f 25 3a e1 0d 4a 6e 48  |62349,,X_%:..JnH|
00014b60  dd f2 5f 6c 28 73 68 25  2c 67 6c 25 29 3a 21 58  |.._l(sh%,gl%):!X|
00014b70  5f 25 3d 73 68 25 3a 58  5f 25 21 34 3d 67 6c 25  |_%=sh%:X_%!4=gl%|
00014b80  3a c8 99 32 36 32 33 35  30 2c 2c 58 5f 25 3a 68  |:..262350,,X_%:h|
00014b90  6c 25 3d 31 30 2a bb 28  24 28 58 5f 25 21 32 38  |l%=10*.($(X_%!28|
00014ba0  29 29 3a e1 0d 4a 7a 47  dd f2 79 6c 28 46 68 25  |)):..JzG..yl(Fh%|
00014bb0  2c 48 68 25 2c 47 68 25  29 3a f2 66 62 28 51 61  |,Hh%,Gh%):.fb(Qa|
00014bc0  25 2c 31 34 2c 6d 62 25  29 3a f2 42 63 28 51 61  |%,14,mb%):.Bc(Qa|
00014bd0  25 2c 31 39 2c 6f 62 25  29 3a f2 42 63 28 51 61  |%,19,ob%):.Bc(Qa|
00014be0  25 2c 32 33 2c 71 62 25  29 3a e1 0d 4a 86 47 dd  |%,23,qb%):..J.G.|
00014bf0  f2 60 6c 28 46 68 25 2c  48 68 25 2c 47 68 25 29  |.`l(Fh%,Hh%,Gh%)|
00014c00  3a f2 66 62 28 53 61 25  2c 31 34 2c 46 68 25 29  |:.fb(Sa%,14,Fh%)|
00014c10  3a f2 66 62 28 53 61 25  2c 31 39 2c 48 68 25 29  |:.fb(Sa%,19,Hh%)|
00014c20  3a f2 66 62 28 53 61 25  2c 32 33 2c 47 68 25 29  |:.fb(Sa%,23,Gh%)|
00014c30  3a e1 0d 4a 92 0f dd f2  4b 62 3a c8 8e 44 63 25  |:..J....Kb:..Dc%|
00014c40  ca 0d 4a 96 3d c9 31 3a  41 6d 24 3d 22 43 4f 32  |..J.=.1:Am$="CO2|
00014c50  22 3a 42 6d 24 3d 22 28  70 70 6d 76 29 22 3a 49  |":Bm$="(ppmv)":I|
00014c60  63 25 3d 4a 63 25 3a 4b  63 25 3d 4c 63 25 3a 4d  |c%=Jc%:Kc%=Lc%:M|
00014c70  63 25 3d 4e 63 25 3a 4f  63 25 3d 51 63 25 0d 4a  |c%=Nc%:Oc%=Qc%.J|
00014c80  9a 3d c9 32 3a 41 6d 24  3d 22 43 48 34 22 3a 42  |.=.2:Am$="CH4":B|
00014c90  6d 24 3d 22 28 70 70 62  76 29 22 3a 49 63 25 3d  |m$="(ppbv)":Ic%=|
00014ca0  57 63 25 3a 4b 63 25 3d  58 63 25 3a 4d 63 25 3d  |Wc%:Kc%=Xc%:Mc%=|
00014cb0  59 63 25 3a 4f 63 25 3d  5a 63 25 0d 4a 9e 40 c9  |Yc%:Oc%=Zc%.J.@.|
00014cc0  33 3a 41 6d 24 3d 22 43  46 43 22 3a 42 6d 24 3d  |3:Am$="CFC":Bm$=|
00014cd0  22 28 70 70 74 76 29 22  3a 49 63 25 3d 63 63 25  |"(pptv)":Ic%=cc%|
00014ce0  3a 4b 63 25 3d 64 63 25  3a 4d 63 25 3d 65 63 25  |:Kc%=dc%:Mc%=ec%|
00014cf0  3a 4f 63 25 3d 66 63 25  28 30 29 0d 4a a2 3d c9  |:Oc%=fc%(0).J.=.|
00014d00  34 3a 41 6d 24 3d 22 4e  32 4f 22 3a 42 6d 24 3d  |4:Am$="N2O":Bm$=|
00014d10  22 28 70 70 6d 76 29 22  3a 49 63 25 3d 69 63 25  |"(ppmv)":Ic%=ic%|
00014d20  3a 4b 63 25 3d 6a 63 25  3a 4d 63 25 3d 6b 63 25  |:Kc%=jc%:Mc%=kc%|
00014d30  3a 4f 63 25 3d 6c 63 25  0d 4a a6 5c cb 3a f2 7a  |:Oc%=lc%.J.\.:.z|
00014d40  63 28 53 61 25 2c 31 37  2c 22 43 6f 6e 63 2e 20  |c(Sa%,17,"Conc. |
00014d50  22 2b 42 6d 24 29 3a f2  77 64 28 53 61 25 2c 54  |"+Bm$):.wd(Sa%,T|
00014d60  61 25 2c 41 6d 24 2b 22  20 64 69 73 70 6c 61 79  |a%,Am$+" display|
00014d70  20 70 61 72 61 6d 65 74  65 72 73 22 29 3a f2 43  | parameters"):.C|
00014d80  63 28 53 61 25 2c 31 31  2c 4f 63 25 29 3a c8 8e  |c(Sa%,11,Oc%):..|
00014d90  68 62 25 ca 0d 4a b0 1e  c9 31 3a 6d 62 25 3d 6e  |hb%..J...1:mb%=n|
00014da0  62 25 3a 6f 62 25 3d 70  62 25 3a 71 62 25 3d 72  |b%:ob%=pb%:qb%=r|
00014db0  62 25 0d 4a b4 1e c9 32  3a 6d 62 25 3d 7a 62 25  |b%.J...2:mb%=zb%|
00014dc0  3a 6f 62 25 3d 5f 62 25  3a 71 62 25 3d 60 62 25  |:ob%=_b%:qb%=`b%|
00014dd0  0d 4a b8 12 cb 3a e7 ac  28 6f 63 25 80 79 62 25  |.J...:..(oc%.yb%|
00014de0  29 8c 0d 4a bc 0a c8 8e  72 63 25 ca 0d 4a be 37  |)..J....rc%..J.7|
00014df0  c9 31 2c 32 3a 44 63 24  3d 22 45 78 63 65 73 73  |.1,2:Dc$="Excess|
00014e00  20 22 2b 41 6d 24 2b 22  20 22 2b 42 6d 24 3a f2  | "+Am$+" "+Bm$:.|
00014e10  7a 63 28 4d 61 25 2c 32  38 2c 44 63 24 2b 22 20  |zc(Ma%,28,Dc$+" |
00014e20  3a 22 29 0d 4a c4 35 c9  33 3a 44 63 24 3d 41 6d  |:").J.5.3:Dc$=Am|
00014e30  24 2b 22 20 63 6f 6e 63  2e 20 22 2b 42 6d 24 3a  |$+" conc. "+Bm$:|
00014e40  f2 7a 63 28 4d 61 25 2c  32 38 2c 22 20 22 2b 44  |.zc(Ma%,28," "+D|
00014e50  63 24 2b 22 20 3a 22 29  0d 4a ca 05 cb 0d 4a cc  |c$+" :").J....J.|
00014e60  15 cc 3a f2 7a 63 28 4d  61 25 2c 32 38 2c 22 20  |..:.zc(Ma%,28," |
00014e70  22 29 0d 4a d0 23 cd 3a  f2 60 6c 28 49 63 25 2c  |").J.#.:.`l(Ic%,|
00014e80  4b 63 25 2c 4d 63 25 29  3a e7 ac 28 6f 63 25 80  |Kc%,Mc%):..(oc%.|
00014e90  48 63 25 29 8c 0d 4a d6  0a c8 8e 68 62 25 ca 0d  |Hc%)..J....hb%..|
00014ea0  4a d8 0d c9 31 3a c8 8e  72 63 25 ca 0d 4a de 48  |J...1:..rc%..J.H|
00014eb0  c9 31 2c 32 3a 68 62 24  3d 22 45 78 63 65 73 73  |.1,2:hb$="Excess|
00014ec0  20 54 65 6d 70 65 72 61  74 75 72 65 20 28 b0 43  | Temperature (.C|
00014ed0  29 22 3a f2 7a 63 28 4d  61 25 2c 32 37 2c 22 45  |)":.zc(Ma%,27,"E|
00014ee0  78 63 65 73 73 20 74 65  6d 70 2e 20 28 b0 43 29  |xcess temp. (.C)|
00014ef0  20 3a 22 29 0d 4a e4 47  c9 33 3a 68 62 24 3d 22  | :").J.G.3:hb$="|
00014f00  53 75 72 66 61 63 65 20  54 65 6d 70 65 72 61 74  |Surface Temperat|
00014f10  75 72 65 20 28 b0 43 29  22 3a f2 7a 63 28 4d 61  |ure (.C)":.zc(Ma|
00014f20  25 2c 32 37 2c 22 20 54  65 6d 70 65 72 61 74 75  |%,27," Temperatu|
00014f30  72 65 20 28 b0 43 29 20  3a 22 29 0d 4a ea 59 cb  |re (.C) :").J.Y.|
00014f40  3a f2 7a 63 28 51 61 25  2c 31 37 2c 22 53 63 61  |:.zc(Qa%,17,"Sca|
00014f50  6c 65 20 28 b0 43 29 22  29 3a f2 77 64 28 51 61  |le (.C)"):.wd(Qa|
00014f60  25 2c 52 61 25 2c 22 54  65 6d 70 65 72 61 74 75  |%,Ra%,"Temperatu|
00014f70  72 65 20 64 69 73 70 6c  61 79 22 29 3a 73 62 25  |re display"):sb%|
00014f80  3d 74 62 25 3a f2 43 63  28 51 61 25 2c 31 31 2c  |=tb%:.Cc(Qa%,11,|
00014f90  73 62 25 29 0d 4a f2 0d  c9 32 3a c8 8e 72 63 25  |sb%).J...2:..rc%|
00014fa0  ca 0d 4a f8 46 c9 31 2c  32 3a 68 62 24 3d 22 45  |..J.F.1,2:hb$="E|
00014fb0  78 63 65 73 73 20 46 6f  72 63 69 6e 67 20 28 57  |xcess Forcing (W|
00014fc0  6d 2d 32 29 22 3a f2 7a  63 28 4d 61 25 2c 32 37  |m-2)":.zc(Ma%,27|
00014fd0  2c 22 20 46 6f 72 63 69  6e 67 20 28 57 6d 2d 32  |," Forcing (Wm-2|
00014fe0  29 20 20 20 3a 22 29 0d  4a fe 47 c9 33 3a 68 62  |)   :").J.G.3:hb|
00014ff0  24 3d 22 52 61 64 69 61  74 69 76 65 20 46 6f 72  |$="Radiative For|
00015000  63 69 6e 67 20 28 57 6d  2d 32 29 22 3a f2 7a 63  |cing (Wm-2)":.zc|
00015010  28 4d 61 25 2c 32 37 2c  22 20 46 6f 72 63 69 6e  |(Ma%,27," Forcin|
00015020  67 20 28 57 6d 2d 32 29  20 20 20 3a 22 29 0d 4b  |g (Wm-2)   :").K|
00015030  04 61 cb 3a f2 7a 63 28  51 61 25 2c 31 37 2c 22  |.a.:.zc(Qa%,17,"|
00015040  53 63 61 6c 65 20 28 57  6d 2d 32 29 22 29 3a f2  |Scale (Wm-2)"):.|
00015050  77 64 28 51 61 25 2c 52  61 25 2c 22 52 61 64 69  |wd(Qa%,Ra%,"Radi|
00015060  61 74 69 76 65 20 66 6f  72 63 69 6e 67 20 64 69  |ative forcing di|
00015070  73 70 6c 61 79 22 29 3a  73 62 25 3d 41 63 25 3a  |splay"):sb%=Ac%:|
00015080  f2 43 63 28 51 61 25 2c  31 31 2c 73 62 25 29 0d  |.Cc(Qa%,11,sb%).|
00015090  4b 0c 16 cb 3a f2 79 6c  28 6d 62 25 2c 6f 62 25  |K...:.yl(mb%,ob%|
000150a0  2c 71 62 25 29 0d 4b 10  15 cc 3a f2 7a 63 28 4d  |,qb%).K...:.zc(M|
000150b0  61 25 2c 32 37 2c 22 20  22 29 0d 4b 14 07 cd 3a  |a%,27," ").K...:|
000150c0  e1 0d 4b 1a 56 dd f2 48  64 28 56 6c 25 2c 43 6d  |..K.V..Hd(Vl%,Cm|
000150d0  25 2c 44 6d 25 2c 68 6c  25 2c f8 68 6c 25 2c 45  |%,Dm%,hl%,.hl%,E|
000150e0  6d 25 2c 46 6d 25 2c 47  6d 25 2c 48 6d 25 29 3a  |m%,Fm%,Gm%,Hm%):|
000150f0  f2 51 62 28 56 6c 25 2c  44 6d 25 29 3a e7 68 6c  |.Qb(Vl%,Dm%):.hl|
00015100  25 3c 3d 45 6d 25 2d 46  6d 25 8c 3a 68 6c 25 3d  |%<=Em%-Fm%.:hl%=|
00015110  68 6c 25 2b 46 6d 25 0d  4b 24 0a c8 8e 48 6d 25  |hl%+Fm%.K$...Hm%|
00015120  ca 0d 4b 26 1b c9 31 3a  f2 66 62 28 56 6c 25 2c  |..K&..1:.fb(Vl%,|
00015130  43 6d 25 2c 68 6c 25 2b  47 6d 25 29 0d 4b 2a 1c  |Cm%,hl%+Gm%).K*.|
00015140  c9 31 30 3a f2 42 63 28  56 6c 25 2c 43 6d 25 2c  |.10:.Bc(Vl%,Cm%,|
00015150  68 6c 25 2b 47 6d 25 29  0d 4b 2e 14 cb 3a f2 51  |hl%+Gm%).K...:.Q|
00015160  62 28 56 6c 25 2c 44 6d  25 29 3a e1 0d 4b 36 56  |b(Vl%,Dm%):..K6V|
00015170  dd f2 47 64 28 56 6c 25  2c 43 6d 25 2c 49 6d 25  |..Gd(Vl%,Cm%,Im%|
00015180  2c 68 6c 25 2c f8 68 6c  25 2c 45 6d 25 2c 46 6d  |,hl%,.hl%,Em%,Fm|
00015190  25 2c 47 6d 25 2c 48 6d  25 29 3a f2 51 62 28 56  |%,Gm%,Hm%):.Qb(V|
000151a0  6c 25 2c 49 6d 25 29 3a  e7 68 6c 25 3e 3d 45 6d  |l%,Im%):.hl%>=Em|
000151b0  25 2b 46 6d 25 8c 3a 68  6c 25 3d 68 6c 25 2d 46  |%+Fm%.:hl%=hl%-F|
000151c0  6d 25 0d 4b 40 0a c8 8e  48 6d 25 ca 0d 4b 42 1b  |m%.K@...Hm%..KB.|
000151d0  c9 31 3a f2 66 62 28 56  6c 25 2c 43 6d 25 2c 68  |.1:.fb(Vl%,Cm%,h|
000151e0  6c 25 2b 47 6d 25 29 0d  4b 46 1c c9 31 30 3a f2  |l%+Gm%).KF..10:.|
000151f0  42 63 28 56 6c 25 2c 43  6d 25 2c 68 6c 25 2b 47  |Bc(Vl%,Cm%,hl%+G|
00015200  6d 25 29 0d 4b 4a 14 cb  3a f2 51 62 28 56 6c 25  |m%).KJ..:.Qb(Vl%|
00015210  2c 49 6d 25 29 3a e1 0d  4b 52 3c dd f2 49 68 28  |,Im%):..KR<..Ih(|
00015220  77 25 2c 4a 6d 25 2c f8  6c 6c 25 2c 78 69 25 2c  |w%,Jm%,.ll%,xi%,|
00015230  6d 6c 25 2c 6e 6c 25 2c  4b 6d 25 2c 4c 6d 25 2c  |ml%,nl%,Km%,Lm%,|
00015240  4d 6d 25 2c 44 6a 25 2c  47 6d 25 29 3a c8 8e 44  |Mm%,Dj%,Gm%):..D|
00015250  6a 25 ca 0d 4b 5a 1a c9  31 3a 6c 6c 25 3d a4 66  |j%..KZ..1:ll%=.f|
00015260  6c 28 77 25 2c 4a 6d 25  29 2d 47 6d 25 0d 4b 5c  |l(w%,Jm%)-Gm%.K\|
00015270  1a c9 32 3a 6c 6c 25 3d  a4 69 6c 28 77 25 2c 4a  |..2:ll%=.il(w%,J|
00015280  6d 25 29 2d 47 6d 25 0d  4b 5e 3b cb 3a e7 6c 6c  |m%)-Gm%.K^;.:.ll|
00015290  25 3c 3d 6d 6c 25 80 6c  6c 25 3e 3d 6e 6c 25 80  |%<=ml%.ll%>=nl%.|
000152a0  6c 6c 25 3e 78 69 25 8c  3a c8 99 32 36 32 33 35  |ll%>xi%.:..26235|
000152b0  34 2c 4c 6d 25 2c 4b 6d  25 2c 2c 2c 2d 31 2c 4d  |4,Lm%,Km%,,,-1,M|
000152c0  6d 25 0d 4b 62 05 e1 0d  4b 66 3c dd f2 4b 68 28  |m%.Kb...Kf<..Kh(|
000152d0  77 25 2c 4a 6d 25 2c 6c  6c 25 2c f8 78 69 25 2c  |w%,Jm%,ll%,.xi%,|
000152e0  6d 6c 25 2c 6e 6c 25 2c  4b 6d 25 2c 4c 6d 25 2c  |ml%,nl%,Km%,Lm%,|
000152f0  4d 6d 25 2c 44 6a 25 2c  47 6d 25 29 3a c8 8e 44  |Mm%,Dj%,Gm%):..D|
00015300  6a 25 ca 0d 4b 6e 1a c9  31 3a 78 69 25 3d a4 66  |j%..Kn..1:xi%=.f|
00015310  6c 28 77 25 2c 4a 6d 25  29 2d 47 6d 25 0d 4b 70  |l(w%,Jm%)-Gm%.Kp|
00015320  1a c9 32 3a 78 69 25 3d  a4 69 6c 28 77 25 2c 4a  |..2:xi%=.il(w%,J|
00015330  6d 25 29 2d 47 6d 25 0d  4b 72 3b cb 3a e7 78 69  |m%)-Gm%.Kr;.:.xi|
00015340  25 3c 3d 6d 6c 25 80 78  69 25 3e 3d 6e 6c 25 80  |%<=ml%.xi%>=nl%.|
00015350  78 69 25 3c 6c 6c 25 8c  3a c8 99 32 36 32 33 35  |xi%<ll%.:..26235|
00015360  34 2c 4c 6d 25 2c 4b 6d  25 2c 2c 2c 2d 31 2c 4d  |4,Lm%,Km%,,,-1,M|
00015370  6d 25 0d 4b 76 05 e1 0d  4b 7a 19 dd f2 51 67 3a  |m%.Kv...Kz...Qg:|
00015380  61 66 25 3d a4 66 6c 28  59 61 25 2c 34 29 3a e1  |af%=.fl(Ya%,4):.|
00015390  0d 4b 86 28 dd f2 5a 67  3a 65 66 25 3d a4 66 6c  |.K.(..Zg:ef%=.fl|
000153a0  28 5a 61 25 2c 33 29 3a  66 66 25 3d a4 66 6c 28  |(Za%,3):ff%=.fl(|
000153b0  5a 61 25 2c 38 29 3a e1  0d 4b 92 97 dd f2 78 64  |Za%,8):..K....xd|
000153c0  3a 79 64 25 28 49 65 25  29 3d a4 66 6c 28 61 61  |:yd%(Ie%)=.fl(aa|
000153d0  25 2c 35 29 3a 5f 64 25  28 49 65 25 29 3d a4 66  |%,5):_d%(Ie%)=.f|
000153e0  6c 28 61 61 25 2c 31 30  29 3a 41 65 25 28 49 65  |l(aa%,10):Ae%(Ie|
000153f0  25 29 3d a4 66 6c 28 61  61 25 2c 31 35 29 3a 43  |%)=.fl(aa%,15):C|
00015400  65 25 28 49 65 25 29 3d  a4 66 6c 28 61 61 25 2c  |e%(Ie%)=.fl(aa%,|
00015410  32 30 29 3a 45 65 25 28  49 65 25 29 3d a4 66 6c  |20):Ee%(Ie%)=.fl|
00015420  28 61 61 25 2c 32 35 29  3a 49 65 25 3d a4 66 6c  |(aa%,25):Ie%=.fl|
00015430  28 61 61 25 2c 33 30 29  3a 4b 65 25 28 49 65 25  |(aa%,30):Ke%(Ie%|
00015440  29 3d a4 66 6c 28 61 61  25 2c 34 31 29 3a e1 0d  |)=.fl(aa%,41):..|
00015450  4b a0 6d dd f2 70 67 3a  4d 65 25 28 57 65 25 29  |K.m..pg:Me%(We%)|
00015460  3d a4 66 6c 28 68 61 25  2c 32 29 3a 53 65 25 28  |=.fl(ha%,2):Se%(|
00015470  57 65 25 29 3d a4 66 6c  28 68 61 25 2c 31 35 29  |We%)=.fl(ha%,15)|
00015480  3a 55 65 25 28 57 65 25  29 3d a4 66 6c 28 68 61  |:Ue%(We%)=.fl(ha|
00015490  25 2c 32 31 29 3a 57 65  25 3d a4 66 6c 28 68 61  |%,21):We%=.fl(ha|
000154a0  25 2c 32 36 29 3a 59 65  25 28 57 65 25 29 3d a4  |%,26):Ye%(We%)=.|
000154b0  66 6c 28 68 61 25 2c 33  30 29 3a e1 0d 4b ac 81  |fl(ha%,30):..K..|
000154c0  dd f2 67 67 3a 64 65 25  28 62 65 25 29 3d a4 66  |..gg:de%(be%)=.f|
000154d0  6c 28 62 61 25 2c 33 29  3a 68 65 25 28 62 65 25  |l(ba%,3):he%(be%|
000154e0  29 3d a4 66 6c 28 62 61  25 2c 38 29 3a 6a 65 25  |)=.fl(ba%,8):je%|
000154f0  28 62 65 25 29 3d a4 66  6c 28 62 61 25 2c 31 33  |(be%)=.fl(ba%,13|
00015500  29 3a 6c 65 25 28 62 65  25 29 3d a4 66 6c 28 62  |):le%(be%)=.fl(b|
00015510  61 25 2c 31 38 29 3a 62  65 25 3d a4 66 6c 28 62  |a%,18):be%=.fl(b|
00015520  61 25 2c 32 33 29 3a 66  65 25 28 62 65 25 29 3d  |a%,23):fe%(be%)=|
00015530  a4 66 6c 28 62 61 25 2c  32 37 29 3a e1 0d 4b ba  |.fl(ba%,27):..K.|
00015540  81 dd f2 69 67 3a 6e 65  25 28 78 65 25 29 3d a4  |...ig:ne%(xe%)=.|
00015550  66 6c 28 66 61 25 2c 34  29 3a 70 65 25 28 78 65  |fl(fa%,4):pe%(xe|
00015560  25 29 3d a4 66 6c 28 66  61 25 2c 39 29 3a 72 65  |%)=.fl(fa%,9):re|
00015570  25 28 78 65 25 29 3d a4  66 6c 28 66 61 25 2c 31  |%(xe%)=.fl(fa%,1|
00015580  34 29 3a 74 65 25 28 78  65 25 29 3d a4 66 6c 28  |4):te%(xe%)=.fl(|
00015590  66 61 25 2c 32 30 29 3a  78 65 25 3d a4 66 6c 28  |fa%,20):xe%=.fl(|
000155a0  66 61 25 2c 32 35 29 3a  7a 65 25 28 78 65 25 29  |fa%,25):ze%(xe%)|
000155b0  3d a4 66 6c 28 66 61 25  2c 32 39 29 3a e1 0d 4b  |=.fl(fa%,29):..K|
000155c0  c8 57 dd f2 6b 67 3a 60  65 25 28 44 66 25 29 3d  |.W..kg:`e%(Df%)=|
000155d0  a4 66 6c 28 63 61 25 2c  33 29 3a 42 66 25 28 44  |.fl(ca%,3):Bf%(D|
000155e0  66 25 29 3d a4 66 6c 28  63 61 25 2c 38 29 3a 44  |f%)=.fl(ca%,8):D|
000155f0  66 25 3d a4 66 6c 28 63  61 25 2c 31 32 29 3a 46  |f%=.fl(ca%,12):F|
00015600  66 25 28 44 66 25 29 3d  a4 66 6c 28 63 61 25 2c  |f%(Df%)=.fl(ca%,|
00015610  31 36 29 3a e1 0d 4b d6  57 dd f2 78 60 3a 48 66  |16):..K.W..x`:Hf|
00015620  25 28 4c 66 25 29 3d a4  66 6c 28 65 61 25 2c 33  |%(Lf%)=.fl(ea%,3|
00015630  29 3a 4a 66 25 28 4c 66  25 29 3d a4 66 6c 28 65  |):Jf%(Lf%)=.fl(e|
00015640  61 25 2c 38 29 3a 4c 66  25 3d a4 66 6c 28 65 61  |a%,8):Lf%=.fl(ea|
00015650  25 2c 31 32 29 3a 4e 66  25 28 4c 66 25 29 3d a4  |%,12):Nf%(Lf%)=.|
00015660  66 6c 28 65 61 25 2c 31  36 29 3a e1 0d 4b e4 6d  |fl(ea%,16):..K.m|
00015670  dd f2 6e 67 3a 50 66 25  28 56 66 25 29 3d a4 66  |..ng:Pf%(Vf%)=.f|
00015680  6c 28 67 61 25 2c 34 29  3a 52 66 25 28 56 66 25  |l(ga%,4):Rf%(Vf%|
00015690  29 3d a4 66 6c 28 67 61  25 2c 31 30 29 3a 54 66  |)=.fl(ga%,10):Tf|
000156a0  25 28 56 66 25 29 3d a4  66 6c 28 67 61 25 2c 31  |%(Vf%)=.fl(ga%,1|
000156b0  36 29 3a 56 66 25 3d a4  66 6c 28 67 61 25 2c 32  |6):Vf%=.fl(ga%,2|
000156c0  31 29 3a 58 66 25 28 56  66 25 29 3d a4 66 6c 28  |1):Xf%(Vf%)=.fl(|
000156d0  67 61 25 2c 32 35 29 3a  e1 0d 4b f2 44 dd f2 72  |ga%,25):..K.D..r|
000156e0  67 3a 6b 66 25 28 6f 66  25 29 3d a4 66 6c 28 69  |g:kf%(of%)=.fl(i|
000156f0  61 25 2c 31 36 29 3a 6f  66 25 3d a4 66 6c 28 69  |a%,16):of%=.fl(i|
00015700  61 25 2c 32 31 29 3a 6d  66 25 28 6f 66 25 29 3d  |a%,21):mf%(of%)=|
00015710  a4 66 6c 28 69 61 25 2c  32 35 29 3a e1 0d 4c 00  |.fl(ia%,25):..L.|
00015720  12 dd f2 53 67 3a 62 66  25 3d 61 66 25 3a e1 0d  |...Sg:bf%=af%:..|
00015730  4c 0c 1a dd f2 62 67 3a  60 63 25 3d 65 66 25 3a  |L....bg:`c%=ef%:|
00015740  41 64 25 3d 66 66 25 3a  e1 0d 4c 7c 36 dd f2 74  |Ad%=ff%:..L|6..t|
00015750  67 3a 6a 66 25 28 29 3d  69 66 25 28 29 3a 6c 66  |g:jf%()=if%():lf|
00015760  25 28 29 3d 6b 66 25 28  29 3a 70 66 25 3d 6f 66  |%()=kf%():pf%=of|
00015770  25 3a 6e 66 25 28 29 3d  6d 66 25 28 29 3a e1 0d  |%:nf%()=mf%():..|
00015780  4c 8a 58 dd f2 53 68 3a  c8 99 32 36 33 38 37 32  |L.X..Sh:..263872|
00015790  3a 6b 68 25 3d ae 28 24  50 60 25 29 3a d5 23 6b  |:kh%=.($P`%):.#k|
000157a0  68 25 2c 22 44 72 61 77  22 3b 3a f2 4e 6d 28 32  |h%,"Draw";:.Nm(2|
000157b0  30 31 29 3a f2 4e 6d 28  30 29 3a d5 23 6b 68 25  |01):.Nm(0):.#kh%|
000157c0  2c 22 43 4f 32 65 66 66  65 63 74 20 20 20 22 3b  |,"CO2effect   ";|
000157d0  3a c8 8e 45 61 25 ca 0d  4c a2 59 c9 4d 61 25 3a  |:..Ea%..L.Y.Ma%:|
000157e0  4f 6d 25 3d 31 32 38 30  3a 50 6d 25 3d 39 36 30  |Om%=1280:Pm%=960|
000157f0  3a 51 6d 25 3d 30 3a 52  6d 25 3d 30 3a f2 4e 6d  |:Qm%=0:Rm%=0:.Nm|
00015800  28 51 6d 25 29 3a f2 4e  6d 28 52 6d 25 29 3a f2  |(Qm%):.Nm(Rm%):.|
00015810  4e 6d 28 32 35 36 2a 4f  6d 25 29 3a f2 4e 6d 28  |Nm(256*Om%):.Nm(|
00015820  32 35 36 2a 50 6d 25 29  3a f2 53 6d 3a f2 54 6d  |256*Pm%):.Sm:.Tm|
00015830  0d 4c ac 54 c9 61 61 25  3a 4f 6d 25 3d 37 30 36  |.L.T.aa%:Om%=706|
00015840  3a 50 6d 25 3d 33 34 34  3a 51 6d 25 3d 30 3a 52  |:Pm%=344:Qm%=0:R|
00015850  6d 25 3d 30 3a f2 4e 6d  28 51 6d 25 29 3a f2 4e  |m%=0:.Nm(Qm%):.N|
00015860  6d 28 52 6d 25 29 3a f2  4e 6d 28 32 35 36 2a 4f  |m(Rm%):.Nm(256*O|
00015870  6d 25 29 3a f2 4e 6d 28  32 35 36 2a 50 6d 25 29  |m%):.Nm(256*Pm%)|
00015880  3a f2 53 6d 0d 4c b6 54  c9 62 61 25 3a 4f 6d 25  |:.Sm.L.T.ba%:Om%|
00015890  3d 37 39 38 3a 50 6d 25  3d 33 30 30 3a 51 6d 25  |=798:Pm%=300:Qm%|
000158a0  3d 30 3a 52 6d 25 3d 30  3a f2 4e 6d 28 51 6d 25  |=0:Rm%=0:.Nm(Qm%|
000158b0  29 3a f2 4e 6d 28 52 6d  25 29 3a f2 4e 6d 28 32  |):.Nm(Rm%):.Nm(2|
000158c0  35 36 2a 4f 6d 25 29 3a  f2 4e 6d 28 32 35 36 2a  |56*Om%):.Nm(256*|
000158d0  50 6d 25 29 3a f2 53 6d  0d 4c c0 85 c9 41 60 25  |Pm%):.Sm.L...A`%|
000158e0  28 31 29 2c 41 60 25 28  32 29 2c 41 60 25 28 33  |(1),A`%(2),A`%(3|
000158f0  29 2c 41 60 25 28 34 29  2c 41 60 25 28 35 29 2c  |),A`%(4),A`%(5),|
00015900  41 60 25 28 36 29 2c 41  60 25 28 37 29 3a 4f 6d  |A`%(6),A`%(7):Om|
00015910  25 3d 36 34 30 3a 50 6d  25 3d 34 36 30 3a 51 6d  |%=640:Pm%=460:Qm|
00015920  25 3d 30 3a 52 6d 25 3d  30 3a f2 4e 6d 28 51 6d  |%=0:Rm%=0:.Nm(Qm|
00015930  25 29 3a f2 4e 6d 28 52  6d 25 29 3a f2 4e 6d 28  |%):.Nm(Rm%):.Nm(|
00015940  32 35 36 2a 4f 6d 25 29  3a f2 4e 6d 28 32 35 36  |256*Om%):.Nm(256|
00015950  2a 50 6d 25 29 3a f2 53  6d 3a f2 55 6d 0d 4c ca  |*Pm%):.Sm:.Um.L.|
00015960  2e cb 3a d9 23 6b 68 25  3a ff 22 53 65 74 54 79  |..:.#kh%:."SetTy|
00015970  70 65 20 22 2b 24 50 60  25 2b 22 20 41 46 46 22  |pe "+$P`%+" AFF"|
00015980  3a c8 99 32 36 33 38 37  33 3a e1 0d 4c d6 39 dd  |:..263873:..L.9.|
00015990  f2 4e 6d 28 48 6a 25 29  3a ea 56 6d 25 3a 21 55  |.Nm(Hj%):.Vm%:!U|
000159a0  60 25 3d 48 6a 25 3a e3  56 6d 25 3d 30 b8 33 3a  |`%=Hj%:.Vm%=0.3:|
000159b0  d5 23 6b 68 25 2c 3f 28  55 60 25 2b 56 6d 25 29  |.#kh%,?(U`%+Vm%)|
000159c0  3a ed 3a e1 0d 4c e6 45  dd f2 53 6d 3a f2 4e 6d  |:.:..L.E..Sm:.Nm|
000159d0  28 30 29 3a f2 4e 6d 28  32 34 29 3a d5 23 6b 68  |(0):.Nm(24):.#kh|
000159e0  25 2c 31 3a d5 23 6b 68  25 2c 22 54 72 69 6e 69  |%,1:.#kh%,"Trini|
000159f0  74 79 2e 4d 65 64 69 75  6d 22 3b 3a d5 23 6b 68  |ty.Medium";:.#kh|
00015a00  25 2c bd 28 30 29 3b 3a  e1 0d 4c fc 1c dd f2 54  |%,.(0);:..L....T|
00015a10  6d 3a ea 46 69 25 3a 57  6d 25 3d 71 63 25 3a e7  |m:.Fi%:Wm%=qc%:.|
00015a20  ac 6f 63 25 8c 0d 4d 0c  0f e7 68 62 25 3d 31 80  |.oc%..M...hb%=1.|
00015a30  6c 62 25 8c 0d 4d 0e 61  f2 58 6d 28 74 28 29 2c  |lb%..M.a.Xm(t(),|
00015a40  6e 62 2c 72 62 25 2c 61  64 25 2c 6e 62 25 2c a4  |nb,rb%,ad%,nb%,.|
00015a50  73 6c 28 74 62 25 29 2c  31 30 2c 32 37 33 29 3a  |sl(tb%),10,273):|
00015a60  e7 6d 63 25 8c 3a 57 6d  25 3d 71 63 25 2b 33 3a  |.mc%.:Wm%=qc%+3:|
00015a70  f2 58 6d 28 74 28 29 2c  6e 62 2c 72 62 25 2c 61  |.Xm(t(),nb,rb%,a|
00015a80  64 25 2c 6e 62 25 2c a4  73 6c 28 37 29 2c 31 30  |d%,nb%,.sl(7),10|
00015a90  2c 32 37 33 29 0d 4d 12  11 cd 3a e7 68 62 25 3d  |,273).M...:.hb%=|
00015aa0  32 80 79 62 25 8c 0d 4d  16 5f f2 58 6d 28 52 69  |2.yb%..M._.Xm(Ri|
00015ab0  28 29 2c 7a 62 2c 60 62  25 2c 62 64 25 2c 7a 62  |(),zb,`b%,bd%,zb|
00015ac0  25 2c a4 73 6c 28 41 63  25 29 2c 31 30 2c 30 29  |%,.sl(Ac%),10,0)|
00015ad0  3a e7 6d 63 25 8c 3a 57  6d 25 3d 71 63 25 2b 33  |:.mc%.:Wm%=qc%+3|
00015ae0  3a f2 58 6d 28 52 69 28  29 2c 7a 62 2c 60 62 25  |:.Xm(Ri(),zb,`b%|
00015af0  2c 62 64 25 2c 7a 62 25  2c a4 73 6c 28 37 29 2c  |,bd%,zb%,.sl(7),|
00015b00  31 30 2c 30 29 0d 4d 1a  11 cd 3a e7 44 63 25 3d  |10,0).M...:.Dc%=|
00015b10  31 80 48 63 25 8c 0d 4d  1e 5d f2 58 6d 28 53 69  |1.Hc%..M.].Xm(Si|
00015b20  28 29 2c 4a 63 2c 4e 63  25 2c 63 64 25 2c 4a 63  |(),Jc,Nc%,cd%,Jc|
00015b30  25 2c a4 73 6c 28 51 63  25 29 2c 31 2c 30 29 3a  |%,.sl(Qc%),1,0):|
00015b40  e7 6d 63 25 8c 3a 57 6d  25 3d 71 63 25 2b 33 3a  |.mc%.:Wm%=qc%+3:|
00015b50  f2 58 6d 28 53 69 28 29  2c 4a 63 2c 4e 63 25 2c  |.Xm(Si(),Jc,Nc%,|
00015b60  63 64 25 2c 4a 63 25 2c  a4 73 6c 28 37 29 2c 31  |cd%,Jc%,.sl(7),1|
00015b70  2c 30 29 0d 4d 22 11 cd  3a e7 44 63 25 3d 32 80  |,0).M"..:.Dc%=2.|
00015b80  56 63 25 8c 0d 4d 26 5d  f2 58 6d 28 54 69 28 29  |Vc%..M&].Xm(Ti()|
00015b90  2c 57 63 2c 59 63 25 2c  64 64 25 2c 57 63 25 2c  |,Wc,Yc%,dd%,Wc%,|
00015ba0  a4 73 6c 28 5a 63 25 29  2c 31 2c 30 29 3a e7 6d  |.sl(Zc%),1,0):.m|
00015bb0  63 25 8c 3a 57 6d 25 3d  71 63 25 2b 33 3a f2 58  |c%.:Wm%=qc%+3:.X|
00015bc0  6d 28 54 69 28 29 2c 57  63 2c 59 63 25 2c 64 64  |m(Ti(),Wc,Yc%,dd|
00015bd0  25 2c 57 63 25 2c a4 73  6c 28 37 29 2c 31 2c 30  |%,Wc%,.sl(7),1,0|
00015be0  29 0d 4d 2a 11 cd 3a e7  44 63 25 3d 33 80 62 63  |).M*..:.Dc%=3.bc|
00015bf0  25 8c 0d 4d 2e 0a e7 ac  6e 63 25 8c 0d 4d 30 6c  |%..M....nc%..M0l|
00015c00  f2 59 6d 28 55 69 28 29  2c 63 63 2c 65 63 25 28  |.Ym(Ui(),cc,ec%(|
00015c10  30 29 2c 65 64 25 28 30  29 2c 63 63 25 2c a4 73  |0),ed%(0),cc%,.s|
00015c20  6c 28 66 63 25 28 30 29  29 2c 31 2c 30 29 3a e7  |l(fc%(0)),1,0):.|
00015c30  6d 63 25 8c 3a 57 6d 25  3d 71 63 25 2b 33 3a f2  |mc%.:Wm%=qc%+3:.|
00015c40  59 6d 28 55 69 28 29 2c  63 63 2c 65 63 25 28 30  |Ym(Ui(),cc,ec%(0|
00015c50  29 2c 65 64 25 28 30 29  2c 63 63 25 2c a4 73 6c  |),ed%(0),cc%,.sl|
00015c60  28 37 29 2c 31 2c 30 29  0d 4d 34 6e cc 3a f2 59  |(7),1,0).M4n.:.Y|
00015c70  6d 28 55 69 28 29 2c 63  63 2c 65 63 25 28 31 29  |m(Ui(),cc,ec%(1)|
00015c80  2c 65 64 25 28 31 29 2c  63 63 25 2c a4 73 6c 28  |,ed%(1),cc%,.sl(|
00015c90  66 63 25 28 31 29 29 2c  31 2c 31 29 3a e7 6d 63  |fc%(1)),1,1):.mc|
00015ca0  25 8c 3a 57 6d 25 3d 71  63 25 2b 33 3a f2 59 6d  |%.:Wm%=qc%+3:.Ym|
00015cb0  28 55 69 28 29 2c 63 63  2c 65 63 25 28 31 29 2c  |(Ui(),cc,ec%(1),|
00015cc0  65 64 25 28 31 29 2c 63  63 25 2c a4 73 6c 28 37  |ed%(1),cc%,.sl(7|
00015cd0  29 2c 31 2c 31 29 0d 4d  3a 6c f2 59 6d 28 55 69  |),1,1).M:l.Ym(Ui|
00015ce0  28 29 2c 63 63 2c 65 63  25 28 32 29 2c 65 64 25  |(),cc,ec%(2),ed%|
00015cf0  28 32 29 2c 63 63 25 2c  a4 73 6c 28 66 63 25 28  |(2),cc%,.sl(fc%(|
00015d00  32 29 29 2c 31 2c 32 29  3a e7 6d 63 25 8c 3a 57  |2)),1,2):.mc%.:W|
00015d10  6d 25 3d 71 63 25 2b 33  3a f2 59 6d 28 55 69 28  |m%=qc%+3:.Ym(Ui(|
00015d20  29 2c 63 63 2c 65 63 25  28 32 29 2c 65 64 25 28  |),cc,ec%(2),ed%(|
00015d30  32 29 2c 63 63 25 2c a4  73 6c 28 37 29 2c 31 2c  |2),cc%,.sl(7),1,|
00015d40  32 29 0d 4d 3e 6c f2 59  6d 28 55 69 28 29 2c 63  |2).M>l.Ym(Ui(),c|
00015d50  63 2c 65 63 25 28 33 29  2c 65 64 25 28 33 29 2c  |c,ec%(3),ed%(3),|
00015d60  63 63 25 2c a4 73 6c 28  66 63 25 28 33 29 29 2c  |cc%,.sl(fc%(3)),|
00015d70  31 2c 33 29 3a e7 6d 63  25 8c 3a 57 6d 25 3d 71  |1,3):.mc%.:Wm%=q|
00015d80  63 25 2b 33 3a f2 59 6d  28 55 69 28 29 2c 63 63  |c%+3:.Ym(Ui(),cc|
00015d90  2c 65 63 25 28 33 29 2c  65 64 25 28 33 29 2c 63  |,ec%(3),ed%(3),c|
00015da0  63 25 2c a4 73 6c 28 37  29 2c 31 2c 33 29 0d 4d  |c%,.sl(7),1,3).M|
00015db0  42 05 cd 0d 4d 44 11 cd  3a e7 44 63 25 3d 34 80  |B...MD..:.Dc%=4.|
00015dc0  68 63 25 8c 0d 4d 48 5d  f2 58 6d 28 59 69 28 29  |hc%..MH].Xm(Yi()|
00015dd0  2c 69 63 2c 6b 63 25 2c  66 64 25 2c 69 63 25 2c  |,ic,kc%,fd%,ic%,|
00015de0  a4 73 6c 28 6c 63 25 29  2c 31 2c 30 29 3a e7 6d  |.sl(lc%),1,0):.m|
00015df0  63 25 8c 3a 57 6d 25 3d  71 63 25 2b 33 3a f2 58  |c%.:Wm%=qc%+3:.X|
00015e00  6d 28 59 69 28 29 2c 69  63 2c 6b 63 25 2c 66 64  |m(Yi(),ic,kc%,fd|
00015e10  25 2c 69 63 25 2c a4 73  6c 28 37 29 2c 31 2c 30  |%,ic%,.sl(7),1,0|
00015e20  29 0d 4d 4c 05 cd 0d 4d  4e 10 cc 3a e7 79 62 25  |).ML...MN..:.yb%|
00015e30  80 ac 48 63 25 8c 0d 4d  52 0a e7 ac 6e 63 25 8c  |..Hc%..MR...nc%.|
00015e40  0d 4d 54 16 f2 5a 6d 28  a4 73 6c 28 66 63 25 28  |.MT..Zm(.sl(fc%(|
00015e50  30 29 29 2c 34 29 0d 4d  56 3e cc 3a f2 5a 6d 28  |0)),4).MV>.:.Zm(|
00015e60  a4 73 6c 28 66 63 25 28  33 29 29 2c 37 29 3a f2  |.sl(fc%(3)),7):.|
00015e70  5a 6d 28 a4 73 6c 28 66  63 25 28 32 29 29 2c 36  |Zm(.sl(fc%(2)),6|
00015e80  29 3a f2 5a 6d 28 a4 73  6c 28 66 63 25 28 31 29  |):.Zm(.sl(fc%(1)|
00015e90  29 2c 35 29 0d 4d 5a 3b  cd 3a f2 5a 6d 28 a4 73  |),5).MZ;.:.Zm(.s|
00015ea0  6c 28 6c 63 25 29 2c 33  29 3a f2 5a 6d 28 a4 73  |l(lc%),3):.Zm(.s|
00015eb0  6c 28 5a 63 25 29 2c 32  29 3a f2 5a 6d 28 a4 73  |l(Zc%),2):.Zm(.s|
00015ec0  6c 28 51 63 25 29 2c 31  29 3a e7 6d 63 25 8c 0d  |l(Qc%),1):.mc%..|
00015ed0  4d 60 14 57 6d 25 3d 71  63 25 2b 33 3a e7 ac 6e  |M`.Wm%=qc%+3:..n|
00015ee0  63 25 8c 0d 4d 64 11 f2  5a 6d 28 a4 73 6c 28 37  |c%..Md..Zm(.sl(7|
00015ef0  29 2c 34 29 0d 4d 66 2f  cc 3a f2 5a 6d 28 a4 73  |),4).Mf/.:.Zm(.s|
00015f00  6c 28 37 29 2c 37 29 3a  f2 5a 6d 28 a4 73 6c 28  |l(7),7):.Zm(.sl(|
00015f10  37 29 2c 36 29 3a f2 5a  6d 28 a4 73 6c 28 37 29  |7),6):.Zm(.sl(7)|
00015f20  2c 35 29 0d 4d 6a 2f cd  3a f2 5a 6d 28 a4 73 6c  |,5).Mj/.:.Zm(.sl|
00015f30  28 37 29 2c 33 29 3a f2  5a 6d 28 a4 73 6c 28 37  |(7),3):.Zm(.sl(7|
00015f40  29 2c 32 29 3a f2 5a 6d  28 a4 73 6c 28 37 29 2c  |),2):.Zm(.sl(7),|
00015f50  31 29 0d 4d 6e 05 cd 0d  4d 70 10 cd 3a e7 48 63  |1).Mn...Mp..:.Hc|
00015f60  25 80 ac 79 62 25 8c 0d  4d 74 0a e7 ac 6e 63 25  |%..yb%..Mt...nc%|
00015f70  8c 0d 4d 76 16 f2 61 6d  28 a4 73 6c 28 66 63 25  |..Mv..am(.sl(fc%|
00015f80  28 30 29 29 2c 34 29 0d  4d 78 3e cc 3a f2 61 6d  |(0)),4).Mx>.:.am|
00015f90  28 a4 73 6c 28 66 63 25  28 33 29 29 2c 37 29 3a  |(.sl(fc%(3)),7):|
00015fa0  f2 61 6d 28 a4 73 6c 28  66 63 25 28 32 29 29 2c  |.am(.sl(fc%(2)),|
00015fb0  36 29 3a f2 61 6d 28 a4  73 6c 28 66 63 25 28 31  |6):.am(.sl(fc%(1|
00015fc0  29 29 2c 35 29 0d 4d 7c  3b cd 3a f2 61 6d 28 a4  |)),5).M|;.:.am(.|
00015fd0  73 6c 28 6c 63 25 29 2c  33 29 3a f2 61 6d 28 a4  |sl(lc%),3):.am(.|
00015fe0  73 6c 28 5a 63 25 29 2c  32 29 3a f2 61 6d 28 a4  |sl(Zc%),2):.am(.|
00015ff0  73 6c 28 51 63 25 29 2c  31 29 3a e7 6d 63 25 8c  |sl(Qc%),1):.mc%.|
00016000  0d 4d 82 14 57 6d 25 3d  71 63 25 2b 33 3a e7 ac  |.M..Wm%=qc%+3:..|
00016010  6e 63 25 8c 0d 4d 86 11  f2 61 6d 28 a4 73 6c 28  |nc%..M...am(.sl(|
00016020  37 29 2c 34 29 0d 4d 88  2f cc 3a f2 61 6d 28 a4  |7),4).M./.:.am(.|
00016030  73 6c 28 37 29 2c 37 29  3a f2 61 6d 28 a4 73 6c  |sl(7),7):.am(.sl|
00016040  28 37 29 2c 36 29 3a f2  61 6d 28 a4 73 6c 28 37  |(7),6):.am(.sl(7|
00016050  29 2c 35 29 0d 4d 8c 2f  cd 3a f2 61 6d 28 a4 73  |),5).M./.:.am(.s|
00016060  6c 28 37 29 2c 33 29 3a  f2 61 6d 28 a4 73 6c 28  |l(7),3):.am(.sl(|
00016070  37 29 2c 32 29 3a f2 61  6d 28 a4 73 6c 28 37 29  |7),2):.am(.sl(7)|
00016080  2c 31 29 0d 4d 90 05 cd  0d 4d 92 05 cd 0d 4d 94  |,1).M....M....M.|
00016090  bc cd 3a f2 62 6d 28 32  2c 32 36 2c 4f 6d 25 2c  |..:.bm(2,26,Om%,|
000160a0  50 6d 25 2c 51 6d 25 2c  52 6d 25 29 3a f2 63 6d  |Pm%,Qm%,Rm%):.cm|
000160b0  28 2d 31 2c 26 30 30 30  30 30 30 30 30 2c 31 2c  |(-1,&00000000,1,|
000160c0  26 30 29 3a f2 64 6d 28  32 2c 31 34 30 2c 31 36  |&0):.dm(2,140,16|
000160d0  30 2b 31 30 30 29 3a f2  64 6d 28 38 2c 31 34 30  |0+100):.dm(8,140|
000160e0  2c 31 36 30 2b 36 30 30  29 3a f2 64 6d 28 38 2c  |,160+600):.dm(8,|
000160f0  31 31 34 30 2c 31 36 30  2b 36 30 30 29 3a f2 64  |1140,160+600):.d|
00016100  6d 28 38 2c 31 31 34 30  2c 31 36 30 2b 31 30 30  |m(8,1140,160+100|
00016110  29 3a f2 64 6d 28 38 2c  31 34 30 2c 31 36 30 2b  |):.dm(8,140,160+|
00016120  31 30 30 29 3a f2 64 6d  28 30 2c 30 2c 30 29 3a  |100):.dm(0,0,0):|
00016130  f2 62 6d 28 31 2c 31 35  2c 4f 6d 25 2c 50 6d 25  |.bm(1,15,Om%,Pm%|
00016140  2c 51 6d 25 2c 52 6d 25  29 0d 4d b4 4a f2 65 6d  |,Qm%,Rm%).M.J.em|
00016150  28 26 30 30 30 30 30 30  30 30 2c 26 46 46 46 46  |(&00000000,&FFFF|
00016160  46 46 30 30 2c 31 2c 31  36 2c 31 36 2c 35 39 30  |FF00,1,16,16,590|
00016170  2c 31 36 30 2b 31 30 2c  22 59 65 61 72 22 2c 30  |,160+10,"Year",0|
00016180  29 3a e7 46 61 25 3d 26  41 33 84 46 61 25 3d 26  |):.Fa%=&A3.Fa%=&|
00016190  41 34 8c 0d 4d ba 09 e7  6b 62 25 8c 0d 4d c0 82  |A4..M...kb%..M..|
000161a0  66 6d 25 3d a8 28 28 a9  28 68 62 24 29 29 2f 34  |fm%=.((.(hb$))/4|
000161b0  29 2b 31 3a f2 62 6d 28  31 32 2c 32 30 2b 66 6d  |)+1:.bm(12,20+fm|
000161c0  25 2c 4f 6d 25 2c 50 6d  25 2c 51 6d 25 2c 52 6d  |%,Om%,Pm%,Qm%,Rm|
000161d0  25 29 3a 43 60 25 21 34  3d 36 35 35 33 36 3a 43  |%):C`%!4=65536:C|
000161e0  60 25 21 38 3d 2d 36 35  35 33 36 3a f2 65 6d 28  |`%!8=-65536:.em(|
000161f0  26 30 30 30 30 30 30 30  30 2c 26 46 46 46 46 46  |&00000000,&FFFFF|
00016200  46 30 30 2c 31 2c 31 34  2c 31 34 2c 33 30 2c 31  |F00,1,14,14,30,1|
00016210  36 30 2b 31 39 35 2c 68  62 24 2c 2d 31 29 0d 4d  |60+195,hb$,-1).M|
00016220  cc 0b cd 3a e7 47 63 25  8c 0d 4d d4 84 66 6d 25  |...:.Gc%..M..fm%|
00016230  3d a8 28 28 a9 28 44 63  24 29 29 2f 34 29 2b 31  |=.((.(Dc$))/4)+1|
00016240  3a f2 62 6d 28 31 32 2c  32 30 2b 66 6d 25 2c 4f  |:.bm(12,20+fm%,O|
00016250  6d 25 2c 50 6d 25 2c 51  6d 25 2c 52 6d 25 29 3a  |m%,Pm%,Qm%,Rm%):|
00016260  43 60 25 21 34 3d 2d 36  35 35 33 36 3a 43 60 25  |C`%!4=-65536:C`%|
00016270  21 38 3d 36 35 35 33 36  3a f2 65 6d 28 26 30 30  |!8=65536:.em(&00|
00016280  30 30 30 30 30 30 2c 26  46 46 46 46 46 46 30 30  |000000,&FFFFFF00|
00016290  2c 31 2c 31 34 2c 31 34  2c 31 32 35 30 2c 31 36  |,1,14,14,1250,16|
000162a0  30 2b 35 30 30 2c 44 63  24 2c 2d 31 29 0d 4d e0  |0+500,Dc$,-1).M.|
000162b0  05 cd 0d 4d e4 6c cd 3a  f2 67 6d 28 78 25 2c 79  |...M.l.:.gm(x%,y|
000162c0  25 2c 31 37 35 30 2b 62  62 25 2c 31 34 30 2c 31  |%,1750+bb%,140,1|
000162d0  36 30 2b 31 30 30 2c 31  30 30 30 2c 35 30 30 2c  |60+100,1000,500,|
000162e0  31 35 2c 30 2e 35 2c 30  2e 32 35 2c 48 69 2c 4d  |15,0.5,0.25,Hi,M|
000162f0  64 25 2c 4e 64 25 2c 4f  64 2c 31 2c 2d 33 30 2c  |d%,Nd%,Od,1,-30,|
00016300  2d 34 30 2c 31 32 2c 34  2c 2d 31 2c 56 62 25 29  |-40,12,4,-1,Vb%)|
00016310  3a e7 ac 28 6f 63 25 80  ac 79 62 25 29 8c 0d 4d  |:..(oc%..yb%)..M|
00016320  fc 0a c8 8e 68 62 25 ca  0d 4d fe 62 c9 31 3a e7  |....hb%..M.b.1:.|
00016330  6c 62 25 8c 3a f2 68 6d  28 78 25 2c 79 25 2c 72  |lb%.:.hm(x%,y%,r|
00016340  62 25 2c 31 34 30 2c 31  36 30 2b 31 30 30 2c 31  |b%,140,160+100,1|
00016350  30 30 30 2c 35 30 30 2c  31 35 2c 30 2e 35 2c 30  |000,500,15,0.5,0|
00016360  2e 32 35 2c 6e 62 2c 77  63 25 2c 78 63 25 2c 79  |.25,nb,wc%,xc%,y|
00016370  63 2c 31 30 2c 2d 31 30  30 2c 2d 37 2c 31 32 2c  |c,10,-100,-7,12,|
00016380  32 2c 30 2c 30 2c 6a 62  25 29 0d 4e 02 62 c9 32  |2,0,0,jb%).N.b.2|
00016390  3a e7 79 62 25 8c 3a f2  68 6d 28 78 25 2c 79 25  |:.yb%.:.hm(x%,y%|
000163a0  2c 60 62 25 2c 31 34 30  2c 31 36 30 2b 31 30 30  |,`b%,140,160+100|
000163b0  2c 31 30 30 30 2c 35 30  30 2c 31 35 2c 30 2e 35  |,1000,500,15,0.5|
000163c0  2c 30 2e 32 35 2c 7a 62  2c 77 63 25 2c 78 63 25  |,0.25,zb,wc%,xc%|
000163d0  2c 79 63 2c 31 30 2c 2d  31 30 30 2c 2d 37 2c 31  |,yc,10,-100,-7,1|
000163e0  32 2c 32 2c 30 2c 30 2c  78 62 25 29 0d 4e 06 05  |2,2,0,0,xb%).N..|
000163f0  cb 0d 4e 08 13 cd 3a e7  ac 28 6f 63 25 80 ac 48  |..N...:..(oc%..H|
00016400  63 25 29 8c 0d 4e 16 0a  c8 8e 44 63 25 ca 0d 4e  |c%)..N....Dc%..N|
00016410  18 64 c9 31 3a e7 48 63  25 8c 3a f2 68 6d 28 78  |.d.1:.Hc%.:.hm(x|
00016420  25 2c 79 25 2c 4e 63 25  2c 31 31 34 30 2c 31 36  |%,y%,Nc%,1140,16|
00016430  30 2b 31 30 30 2c 2d 31  30 30 30 2c 35 30 30 2c  |0+100,-1000,500,|
00016440  31 35 2c 30 2e 35 2c 30  2e 32 35 2c 4a 63 2c 55  |15,0.5,0.25,Jc,U|
00016450  64 25 2c 56 64 25 2c 57  64 2c 31 2c 2d 31 30 30  |d%,Vd%,Wd,1,-100|
00016460  2c 2d 37 2c 31 32 2c 31  2c 30 2c 2d 31 2c 46 63  |,-7,12,1,0,-1,Fc|
00016470  25 29 0d 4e 1c 65 c9 32  3a e7 56 63 25 8c 3a f2  |%).N.e.2:.Vc%.:.|
00016480  68 6d 28 78 25 2c 79 25  2c 59 63 25 2c 31 31 34  |hm(x%,y%,Yc%,114|
00016490  30 2c 31 36 30 2b 31 30  30 2c 2d 31 30 30 30 2c  |0,160+100,-1000,|
000164a0  35 30 30 2c 31 35 2c 30  2e 35 2c 30 2e 32 35 2c  |500,15,0.5,0.25,|
000164b0  57 63 2c 55 64 25 2c 56  64 25 2c 57 64 2c 31 2c  |Wc,Ud%,Vd%,Wd,1,|
000164c0  2d 31 30 30 2c 2d 37 2c  31 32 2c 31 2c 2d 31 2c  |-100,-7,12,1,-1,|
000164d0  2d 31 2c 55 63 25 29 0d  4e 20 67 c9 33 2c 35 3a  |-1,Uc%).N g.3,5:|
000164e0  e7 62 63 25 8c 3a f2 68  6d 28 78 25 2c 79 25 2c  |.bc%.:.hm(x%,y%,|
000164f0  65 63 25 2c 31 31 34 30  2c 31 36 30 2b 31 30 30  |ec%,1140,160+100|
00016500  2c 2d 31 30 30 30 2c 35  30 30 2c 31 35 2c 30 2e  |,-1000,500,15,0.|
00016510  35 2c 30 2e 32 35 2c 63  63 2c 55 64 25 2c 56 64  |5,0.25,cc,Ud%,Vd|
00016520  25 2c 57 64 2c 31 2c 2d  31 30 30 2c 2d 37 2c 31  |%,Wd,1,-100,-7,1|
00016530  32 2c 31 2c 2d 31 2c 2d  31 2c 61 63 25 29 0d 4e  |2,1,-1,-1,ac%).N|
00016540  24 65 c9 34 3a e7 68 63  25 8c 3a f2 68 6d 28 78  |$e.4:.hc%.:.hm(x|
00016550  25 2c 79 25 2c 6b 63 25  2c 31 31 34 30 2c 31 36  |%,y%,kc%,1140,16|
00016560  30 2b 31 30 30 2c 2d 31  30 30 30 2c 35 30 30 2c  |0+100,-1000,500,|
00016570  31 35 2c 30 2e 35 2c 30  2e 32 35 2c 69 63 2c 55  |15,0.5,0.25,ic,U|
00016580  64 25 2c 56 64 25 2c 57  64 2c 31 2c 2d 31 30 30  |d%,Vd%,Wd,1,-100|
00016590  2c 2d 37 2c 31 32 2c 31  2c 2d 31 2c 2d 31 2c 67  |,-7,12,1,-1,-1,g|
000165a0  63 25 29 0d 4e 28 05 cb  0d 4e 2a 12 cd 3a 46 69  |c%).N(...N*..:Fi|
000165b0  25 3d 30 3a e7 ac 6f 63  25 8c 0d 4e 34 0a c8 8e  |%=0:..oc%..N4...|
000165c0  68 62 25 ca 0d 4e 36 2e  c9 31 3a e7 6c 62 25 8c  |hb%..N6..1:.lb%.|
000165d0  3a f2 69 6d 28 46 69 25  2c 74 62 25 2c 22 54 65  |:.im(Fi%,tb%,"Te|
000165e0  6d 70 65 72 61 74 75 72  65 22 29 3a 46 69 25 2b  |mperature"):Fi%+|
000165f0  3d 33 0d 4e 38 34 c9 32  3a e7 79 62 25 8c 3a f2  |=3.N84.2:.yb%.:.|
00016600  69 6d 28 46 69 25 2c 41  63 25 2c 22 52 61 64 69  |im(Fi%,Ac%,"Radi|
00016610  61 74 69 76 65 20 66 6f  72 63 69 6e 67 22 29 3a  |ative forcing"):|
00016620  46 69 25 2b 3d 33 0d 4e  3a 0c cb 3a c8 8e 44 63  |Fi%+=3.N:..:..Dc|
00016630  25 ca 0d 4e 3e 34 c9 31  3a e7 48 63 25 8c 3a f2  |%..N>4.1:.Hc%.:.|
00016640  69 6d 28 46 69 25 2c 51  63 25 2c 22 43 4f 32 20  |im(Fi%,Qc%,"CO2 |
00016650  63 6f 6e 63 65 6e 74 72  61 74 69 6f 6e 22 29 3a  |concentration"):|
00016660  46 69 25 2b 3d 31 0d 4e  40 34 c9 32 3a e7 56 63  |Fi%+=1.N@4.2:.Vc|
00016670  25 8c 3a f2 69 6d 28 46  69 25 2c 5a 63 25 2c 22  |%.:.im(Fi%,Zc%,"|
00016680  43 48 34 20 63 6f 6e 63  65 6e 74 72 61 74 69 6f  |CH4 concentratio|
00016690  6e 22 29 3a 46 69 25 2b  3d 31 0d 4e 42 34 c9 34  |n"):Fi%+=1.NB4.4|
000166a0  3a e7 68 63 25 8c 3a f2  69 6d 28 46 69 25 2c 6c  |:.hc%.:.im(Fi%,l|
000166b0  63 25 2c 22 4e 32 4f 20  63 6f 6e 63 65 6e 74 72  |c%,"N2O concentr|
000166c0  61 74 69 6f 6e 22 29 3a  46 69 25 2b 3d 31 0d 4e  |ation"):Fi%+=1.N|
000166d0  44 0c c9 33 3a e7 62 63  25 8c 0d 4e 48 0a e7 ac  |D..3:.bc%..NH...|
000166e0  6e 63 25 8c 0d 4e 4a 2f  f2 69 6d 28 46 69 25 2c  |nc%..NJ/.im(Fi%,|
000166f0  66 63 25 28 30 29 2c 22  43 46 43 73 20 63 6f 6e  |fc%(0),"CFCs con|
00016700  63 65 6e 74 72 61 74 69  6f 6e 22 29 3a 46 69 25  |centration"):Fi%|
00016710  2b 3d 31 0d 4e 4c 90 cc  3a f2 69 6d 28 46 69 25  |+=1.NL..:.im(Fi%|
00016720  2c 66 63 25 28 31 29 2c  22 43 46 43 2d 31 31 20  |,fc%(1),"CFC-11 |
00016730  63 6f 6e 63 65 6e 74 72  61 74 69 6f 6e 22 29 3a  |concentration"):|
00016740  46 69 25 2b 3d 31 3a f2  69 6d 28 46 69 25 2c 66  |Fi%+=1:.im(Fi%,f|
00016750  63 25 28 32 29 2c 22 43  46 43 2d 31 32 20 63 6f  |c%(2),"CFC-12 co|
00016760  6e 63 65 6e 74 72 61 74  69 6f 6e 22 29 3a 46 69  |ncentration"):Fi|
00016770  25 2b 3d 31 3a f2 69 6d  28 46 69 25 2c 66 63 25  |%+=1:.im(Fi%,fc%|
00016780  28 33 29 2c 22 48 43 46  43 2d 32 32 20 63 6f 6e  |(3),"HCFC-22 con|
00016790  63 65 6e 74 72 61 74 69  6f 6e 22 29 3a 46 69 25  |centration"):Fi%|
000167a0  2b 3d 31 0d 4e 54 05 cd  0d 4e 56 05 cd 0d 4e 58  |+=1.NT...NV...NX|
000167b0  05 cb 0d 4e 5a 5a cc 3a  f2 69 6d 28 46 69 25 2c  |...NZZ.:.im(Fi%,|
000167c0  51 63 25 2c 22 43 4f 32  22 29 3a 46 69 25 2b 3d  |Qc%,"CO2"):Fi%+=|
000167d0  31 3a f2 69 6d 28 46 69  25 2c 5a 63 25 2c 22 43  |1:.im(Fi%,Zc%,"C|
000167e0  48 34 22 29 3a 46 69 25  2b 3d 31 3a f2 69 6d 28  |H4"):Fi%+=1:.im(|
000167f0  46 69 25 2c 6c 63 25 2c  22 4e 32 4f 22 29 3a 46  |Fi%,lc%,"N2O"):F|
00016800  69 25 2b 3d 31 3a e7 ac  6e 63 25 8c 0d 4e 64 21  |i%+=1:..nc%..Nd!|
00016810  f2 69 6d 28 46 69 25 2c  66 63 25 28 30 29 2c 22  |.im(Fi%,fc%(0),"|
00016820  43 46 43 73 22 29 3a 46  69 25 2b 3d 31 0d 4e 66  |CFCs"):Fi%+=1.Nf|
00016830  66 cc 3a f2 69 6d 28 46  69 25 2c 66 63 25 28 31  |f.:.im(Fi%,fc%(1|
00016840  29 2c 22 43 46 43 2d 31  31 22 29 3a 46 69 25 2b  |),"CFC-11"):Fi%+|
00016850  3d 31 3a f2 69 6d 28 46  69 25 2c 66 63 25 28 32  |=1:.im(Fi%,fc%(2|
00016860  29 2c 22 43 46 43 2d 31  32 22 29 3a 46 69 25 2b  |),"CFC-12"):Fi%+|
00016870  3d 31 3a f2 69 6d 28 46  69 25 2c 66 63 25 28 33  |=1:.im(Fi%,fc%(3|
00016880  29 2c 22 48 43 46 43 2d  32 32 22 29 3a 46 69 25  |),"HCFC-22"):Fi%|
00016890  2b 3d 31 0d 4e 6e 05 cd  0d 4e 70 07 cd 3a e1 0d  |+=1.Nn...Np..:..|
000168a0  4e 76 e5 dd f2 69 6d 28  6e 25 2c 63 25 2c 48 62  |Nv...im(n%,c%,Hb|
000168b0  24 29 3a ea 4d 69 25 2c  4e 69 25 2c 78 25 2c 79  |$):.Mi%,Ni%,x%,y|
000168c0  25 3a 4d 69 25 3d 6e 25  83 33 3a 4e 69 25 3d a8  |%:Mi%=n%.3:Ni%=.|
000168d0  28 6e 25 2f 33 29 3a 78  25 3d 31 34 30 2b 4e 69  |(n%/3):x%=140+Ni|
000168e0  25 2a 34 30 30 3a 79 25  3d 31 31 30 2d 4d 69 25  |%*400:y%=110-Mi%|
000168f0  2a 34 30 3a f2 62 6d 28  32 2c 32 36 2c 4f 6d 25  |*40:.bm(2,26,Om%|
00016900  2c 50 6d 25 2c 51 6d 25  2c 52 6d 25 29 3a f2 63  |,Pm%,Qm%,Rm%):.c|
00016910  6d 28 a4 73 6c 28 63 25  29 2c 26 30 30 30 30 30  |m(.sl(c%),&00000|
00016920  30 30 30 2c 30 2e 32 35  2c 26 38 29 3a f2 64 6d  |000,0.25,&8):.dm|
00016930  28 32 2c 78 25 2c 79 25  29 3a f2 64 6d 28 38 2c  |(2,x%,y%):.dm(8,|
00016940  78 25 2c 79 25 2b 32 30  29 3a f2 64 6d 28 38 2c  |x%,y%+20):.dm(8,|
00016950  78 25 2b 32 30 2c 79 25  2b 32 30 29 3a f2 64 6d  |x%+20,y%+20):.dm|
00016960  28 38 2c 78 25 2b 32 30  2c 79 25 29 3a f2 64 6d  |(8,x%+20,y%):.dm|
00016970  28 38 2c 78 25 2c 79 25  29 3a f2 64 6d 28 30 2c  |(8,x%,y%):.dm(0,|
00016980  30 2c 30 29 0d 4e 9a 67  66 6d 25 3d a8 28 28 a9  |0,0).N.gfm%=.((.|
00016990  28 48 62 24 29 29 2f 34  29 2b 31 3a f2 62 6d 28  |(Hb$))/4)+1:.bm(|
000169a0  31 2c 31 33 2b 66 6d 25  2c 4f 6d 25 2c 50 6d 25  |1,13+fm%,Om%,Pm%|
000169b0  2c 51 6d 25 2c 52 6d 25  29 3a f2 65 6d 28 26 30  |,Qm%,Rm%):.em(&0|
000169c0  30 30 30 30 30 30 30 2c  26 46 46 46 46 46 46 30  |0000000,&FFFFFF0|
000169d0  30 2c 31 2c 31 34 2c 31  34 2c 78 25 2b 34 30 2c  |0,1,14,14,x%+40,|
000169e0  79 25 2c 48 62 24 2c 30  29 3a e1 0d 4e a8 52 dd  |y%,Hb$,0):..N.R.|
000169f0  f2 55 6d 3a ea 48 62 24  2c 72 6c 25 2c 6a 6d 25  |.Um:.Hb$,rl%,jm%|
00016a00  2c 66 6d 25 2c 47 6a 25  2c 4c 69 25 2c 58 6b 25  |,fm%,Gj%,Li%,Xk%|
00016a10  2c 48 6a 25 3a 58 6b 25  3d a4 58 6b 28 45 61 25  |,Hj%:Xk%=.Xk(Ea%|
00016a20  29 3a f2 64 6b 28 45 61  25 2c 47 6a 25 2c 4c 69  |):.dk(Ea%,Gj%,Li|
00016a30  25 2c 48 6a 25 29 3a c8  8e 45 61 25 ca 0d 4e ba  |%,Hj%):..Ea%..N.|
00016a40  24 c9 41 60 25 28 31 29  3a f2 6b 6d 28 78 25 2c  |$.A`%(1):.km(x%,|
00016a50  79 25 2c a4 73 6c 28 51  63 25 29 2c 67 69 28 29  |y%,.sl(Qc%),gi()|
00016a60  29 0d 4e bc 24 c9 41 60  25 28 32 29 3a f2 6b 6d  |).N.$.A`%(2):.km|
00016a70  28 78 25 2c 79 25 2c a4  73 6c 28 5a 63 25 29 2c  |(x%,y%,.sl(Zc%),|
00016a80  68 69 28 29 29 0d 4e be  24 c9 41 60 25 28 33 29  |hi()).N.$.A`%(3)|
00016a90  3a f2 6b 6d 28 78 25 2c  79 25 2c a4 73 6c 28 6c  |:.km(x%,y%,.sl(l|
00016aa0  63 25 29 2c 6a 69 28 29  29 0d 4e c0 29 c9 41 60  |c%),ji()).N.).A`|
00016ab0  25 28 34 29 3a f2 6c 6d  28 78 25 2c 79 25 2c a4  |%(4):.lm(x%,y%,.|
00016ac0  73 6c 28 66 63 25 28 31  29 29 2c 69 69 28 29 2c  |sl(fc%(1)),ii(),|
00016ad0  31 29 0d 4e c2 29 c9 41  60 25 28 35 29 3a f2 6c  |1).N.).A`%(5):.l|
00016ae0  6d 28 78 25 2c 79 25 2c  a4 73 6c 28 66 63 25 28  |m(x%,y%,.sl(fc%(|
00016af0  32 29 29 2c 69 69 28 29  2c 32 29 0d 4e c4 29 c9  |2)),ii(),2).N.).|
00016b00  41 60 25 28 36 29 3a f2  6c 6d 28 78 25 2c 79 25  |A`%(6):.lm(x%,y%|
00016b10  2c a4 73 6c 28 66 63 25  28 33 29 29 2c 69 69 28  |,.sl(fc%(3)),ii(|
00016b20  29 2c 33 29 0d 4e c6 29  c9 41 60 25 28 37 29 3a  |),3).N.).A`%(7):|
00016b30  f2 6c 6d 28 78 25 2c 79  25 2c a4 73 6c 28 66 63  |.lm(x%,y%,.sl(fc|
00016b40  25 28 30 29 29 2c 69 69  28 29 2c 30 29 0d 4e c8  |%(0)),ii(),0).N.|
00016b50  d1 cb 3a 66 6d 25 3d a8  28 28 a9 28 42 60 24 28  |..:fm%=.((.(B`$(|
00016b60  58 6b 25 2c 6c 64 25 29  29 29 2f 34 29 2b 31 3a  |Xk%,ld%)))/4)+1:|
00016b70  f2 62 6d 28 31 2c 31 33  2b 66 6d 25 2c 4f 6d 25  |.bm(1,13+fm%,Om%|
00016b80  2c 50 6d 25 2c 51 6d 25  2c 52 6d 25 29 3a f2 65  |,Pm%,Qm%,Rm%):.e|
00016b90  6d 28 26 30 30 30 30 30  30 30 30 2c 26 46 46 46  |m(&00000000,&FFF|
00016ba0  46 46 46 30 30 2c 31 2c  31 36 2c 31 36 2c 33 35  |FFF00,1,16,16,35|
00016bb0  30 2d 28 35 30 30 2f 35  38 29 2a a9 28 42 60 24  |0-(500/58)*.(B`$|
00016bc0  28 58 6b 25 2c 6c 64 25  29 29 2c 34 32 30 2c 42  |(Xk%,ld%)),420,B|
00016bd0  60 24 28 58 6b 25 2c 6c  64 25 29 2c 30 29 3a f2  |`$(Xk%,ld%),0):.|
00016be0  62 6d 28 32 2c 32 37 2c  4f 6d 25 2c 50 6d 25 2c  |bm(2,27,Om%,Pm%,|
00016bf0  51 6d 25 2c 52 6d 25 29  3a f2 63 6d 28 2d 31 2c  |Qm%,Rm%):.cm(-1,|
00016c00  26 30 30 30 30 30 30 30  30 2c 31 2c 26 30 29 3a  |&00000000,1,&0):|
00016c10  f2 64 6d 28 32 2c 31 30  30 2c 31 30 30 29 0d 4e  |.dm(2,100,100).N|
00016c20  e8 b2 f2 64 6d 28 38 2c  31 30 30 2c 34 30 30 29  |...dm(8,100,400)|
00016c30  3a f2 64 6d 28 38 2c 36  30 30 2c 34 30 30 29 3a  |:.dm(8,600,400):|
00016c40  f2 64 6d 28 38 2c 36 30  30 2c 31 30 30 29 3a f2  |.dm(8,600,100):.|
00016c50  64 6d 28 38 2c 31 30 30  2c 31 30 30 29 3a f2 64  |dm(8,100,100):.d|
00016c60  6d 28 35 2c 30 2c 30 29  3a f2 64 6d 28 30 2c 30  |m(5,0,0):.dm(0,0|
00016c70  2c 30 29 3a f2 62 6d 28  31 2c 31 35 2c 4f 6d 25  |,0):.bm(1,15,Om%|
00016c80  2c 50 6d 25 2c 51 6d 25  2c 52 6d 25 29 3a f2 65  |,Pm%,Qm%,Rm%):.e|
00016c90  6d 28 26 30 30 30 30 30  30 30 30 2c 26 46 46 46  |m(&00000000,&FFF|
00016ca0  46 46 46 30 30 2c 31 2c  31 34 2c 31 34 2c 33 30  |FFF00,1,14,14,30|
00016cb0  30 2c 32 30 2c 22 59 65  61 72 22 2c 30 29 3a e7  |0,20,"Year",0):.|
00016cc0  46 61 25 3d 26 41 33 84  46 61 25 3d 26 41 34 8c  |Fa%=&A3.Fa%=&A4.|
00016cd0  0d 4e fe 90 f2 61 6b 28  45 61 25 29 3a 66 6d 25  |.N...ak(Ea%):fm%|
00016ce0  3d a8 28 28 a9 28 62 6b  24 29 29 2f 34 29 2b 31  |=.((.(bk$))/4)+1|
00016cf0  3a f2 62 6d 28 31 32 2c  32 30 2b 66 6d 25 2c 4f  |:.bm(12,20+fm%,O|
00016d00  6d 25 2c 50 6d 25 2c 51  6d 25 2c 52 6d 25 29 3a  |m%,Pm%,Qm%,Rm%):|
00016d10  43 60 25 21 34 3d 36 35  35 33 36 3a 43 60 25 21  |C`%!4=65536:C`%!|
00016d20  38 3d 2d 36 35 35 33 36  3a f2 65 6d 28 26 30 30  |8=-65536:.em(&00|
00016d30  30 30 30 30 30 30 2c 26  46 46 46 46 46 46 30 30  |000000,&FFFFFF00|
00016d40  2c 31 2c 31 32 2c 31 32  2c 32 35 2c 32 33 30 2d  |,1,12,12,25,230-|
00016d50  35 2a a9 28 62 6b 24 29  2c 62 6b 24 2c 2d 31 29  |5*.(bk$),bk$,-1)|
00016d60  0d 4f 10 5a cd 3a f2 67  6d 28 78 25 2c 79 25 2c  |.O.Z.:.gm(x%,y%,|
00016d70  54 67 25 2c 31 30 30 2c  31 30 30 2c 35 30 30 2c  |Tg%,100,100,500,|
00016d80  33 30 30 2c 31 30 2c 30  2e 35 2c 30 2e 32 35 2c  |300,10,0.5,0.25,|
00016d90  63 6b 2c 57 67 25 2c 58  67 25 2c 59 67 2c 31 2c  |ck,Wg%,Xg%,Yg,1,|
00016da0  2d 32 35 2c 2d 33 32 2c  31 30 2c 34 2c 2d 31 2c  |-25,-32,10,4,-1,|
00016db0  64 66 25 29 3a e7 5a 66  25 8c 0d 4f 26 55 f2 68  |df%):.Zf%..O&U.h|
00016dc0  6d 28 78 25 2c 79 25 2c  41 64 25 2c 31 30 30 2c  |m(x%,y%,Ad%,100,|
00016dd0  31 30 30 2c 35 30 30 2c  33 30 30 2c 31 30 2c 30  |100,500,300,10,0|
00016de0  2e 35 2c 30 2e 32 35 2c  65 6b 2c 74 64 25 2c 75  |.5,0.25,ek,td%,u|
00016df0  64 25 2c 76 64 2c 31 2c  2d 37 35 2c 2d 37 2c 31  |d%,vd,1,-75,-7,1|
00016e00  30 2c 47 6a 25 2c 2d 31  2c 30 2c 68 66 25 29 0d  |0,Gj%,-1,0,hf%).|
00016e10  4f 28 73 cc 3a f2 68 6d  28 78 25 2c 79 25 2c 71  |O(s.:.hm(x%,y%,q|
00016e20  64 25 28 58 6b 25 29 2c  31 30 30 2c 31 30 30 2c  |d%(Xk%),100,100,|
00016e30  35 30 30 2c 33 30 30 2c  31 30 2c 30 2e 35 2c 30  |500,300,10,0.5,0|
00016e40  2e 32 35 2c 67 6a 28 58  6b 25 29 2c 74 64 25 28  |.25,gj(Xk%),td%(|
00016e50  58 6b 25 29 2c 75 64 25  28 58 6b 25 29 2c 76 64  |Xk%),ud%(Xk%),vd|
00016e60  28 58 6b 25 29 2c 4c 69  25 2c 2d 37 35 2c 2d 37  |(Xk%),Li%,-75,-7|
00016e70  2c 31 30 2c 47 6a 25 2c  48 6a 25 2c 30 2c 68 66  |,10,Gj%,Hj%,0,hf|
00016e80  25 29 0d 4f 2c 07 cd 3a  e1 0d 4f 34 47 dd f2 58  |%).O,..:..O4G..X|
00016e90  6d 28 79 28 29 2c 73 2c  6a 68 25 2c 65 25 2c 73  |m(y(),s,jh%,e%,s|
00016ea0  25 2c 4e 69 25 2c 44 6a  25 2c 4c 6a 25 29 3a ea  |%,Ni%,Dj%,Lj%):.|
00016eb0  6d 6d 25 2c 63 68 3a e7  6d 63 25 80 57 6d 25 3c  |mm%,ch:.mc%.Wm%<|
00016ec0  34 8c 6d 6d 25 3d 4e 69  25 8b 6d 6d 25 3d 2d 31  |4.mm%=Ni%.mm%=-1|
00016ed0  0d 4f 42 0a e7 ac 6d 63  25 8c 0d 4f 48 0a c8 8e  |.OB...mc%..OH...|
00016ee0  57 6d 25 ca 0d 4f 4a 2f  c9 31 3a f2 62 6d 28 32  |Wm%..OJ/.1:.bm(2|
00016ef0  2c 31 31 2b 31 35 2a 28  54 62 25 2d 62 62 25 2b  |,11+15*(Tb%-bb%+|
00016f00  31 29 2c 4f 6d 25 2c 50  6d 25 2c 51 6d 25 2c 52  |1),Om%,Pm%,Qm%,R|
00016f10  6d 25 29 0d 4f 4c 2f c9  32 3a f2 62 6d 28 32 2c  |m%).OL/.2:.bm(2,|
00016f20  31 31 2b 31 32 2a 28 54  62 25 2d 62 62 25 2b 31  |11+12*(Tb%-bb%+1|
00016f30  29 2c 4f 6d 25 2c 50 6d  25 2c 51 6d 25 2c 52 6d  |),Om%,Pm%,Qm%,Rm|
00016f40  25 29 0d 4f 4e 2e c9 33  3a f2 62 6d 28 32 2c 31  |%).ON..3:.bm(2,1|
00016f50  34 2b 33 2a 28 54 62 25  2d 62 62 25 2b 31 29 2c  |4+3*(Tb%-bb%+1),|
00016f60  4f 6d 25 2c 50 6d 25 2c  51 6d 25 2c 52 6d 25 29  |Om%,Pm%,Qm%,Rm%)|
00016f70  0d 4f 50 05 cb 0d 4f 52  0c cc 3a c8 8e 57 6d 25  |.OP...OR..:..Wm%|
00016f80  ca 0d 4f 56 33 c9 31 2c  32 2c 33 3a f2 62 6d 28  |..OV3.1,2,3:.bm(|
00016f90  32 2c 31 31 2b 31 35 2a  28 54 62 25 2d 62 62 25  |2,11+15*(Tb%-bb%|
00016fa0  2b 31 29 2c 4f 6d 25 2c  50 6d 25 2c 51 6d 25 2c  |+1),Om%,Pm%,Qm%,|
00016fb0  52 6d 25 29 0d 4f 58 08  c9 34 3a e1 0d 4f 5a 2f  |Rm%).OX..4:..OZ/|
00016fc0  c9 35 3a f2 62 6d 28 32  2c 31 31 2b 31 32 2a 28  |.5:.bm(2,11+12*(|
00016fd0  54 62 25 2d 62 62 25 2b  31 29 2c 4f 6d 25 2c 50  |Tb%-bb%+1),Om%,P|
00016fe0  6d 25 2c 51 6d 25 2c 52  6d 25 29 0d 4f 5c 2e c9  |m%,Qm%,Rm%).O\..|
00016ff0  36 3a f2 62 6d 28 32 2c  31 34 2b 33 2a 28 54 62  |6:.bm(2,14+3*(Tb|
00017000  25 2d 62 62 25 2b 31 29  2c 4f 6d 25 2c 50 6d 25  |%-bb%+1),Om%,Pm%|
00017010  2c 51 6d 25 2c 52 6d 25  29 0d 4f 5e 05 cb 0d 4f  |,Qm%,Rm%).O^...O|
00017020  60 81 cd 3a f2 63 6d 28  6d 6d 25 2c 4e 69 25 2c  |`..:.cm(mm%,Ni%,|
00017030  30 2e 32 35 2c 26 30 29  3a e3 6e 6d 25 3d 62 62  |0.25,&0):.nm%=bb|
00017040  25 b8 54 62 25 3a 6f 6d  3d 31 34 30 2b 28 31 30  |%.Tb%:om=140+(10|
00017050  30 30 2a 48 69 29 2a 28  6e 6d 25 2d 62 62 25 29  |00*Hi)*(nm%-bb%)|
00017060  3a 55 6a 3d 31 36 30 2b  31 30 30 2b 44 6a 25 2a  |:Uj=160+100+Dj%*|
00017070  35 30 30 2a 73 2a 28 79  28 6e 6d 25 29 2d 4c 6a  |500*s*(y(nm%)-Lj|
00017080  25 2d 28 6a 68 25 2b 65  25 29 2f 44 6a 25 29 3a  |%-(jh%+e%)/Dj%):|
00017090  e7 6e 6d 25 3d 62 62 25  8c 3a 56 6a 3d 55 6a 0d  |.nm%=bb%.:Vj=Uj.|
000170a0  4f 70 3a f2 70 6d 28 6f  6d 2c 55 6a 2c 32 36 31  |Op:.pm(om,Uj,261|
000170b0  2c 56 6a 2c 32 36 31 2c  73 25 2c 55 6a 2c 63 68  |,Vj,261,s%,Uj,ch|
000170c0  29 3a 56 6a 3d 55 6a 3a  ed 6e 6d 25 3a f2 64 6d  |):Vj=Uj:.nm%:.dm|
000170d0  28 30 2c 30 2c 30 29 3a  e1 0d 4f 7e 47 dd f2 59  |(0,0,0):..O~G..Y|
000170e0  6d 28 79 28 29 2c 73 2c  6a 68 25 2c 65 25 2c 73  |m(y(),s,jh%,e%,s|
000170f0  25 2c 4e 69 25 2c 44 6a  25 2c 59 6a 25 29 3a ea  |%,Ni%,Dj%,Yj%):.|
00017100  6d 6d 25 2c 63 68 3a e7  6d 63 25 80 57 6d 25 3c  |mm%,ch:.mc%.Wm%<|
00017110  34 8c 6d 6d 25 3d 4e 69  25 8b 6d 6d 25 3d 2d 31  |4.mm%=Ni%.mm%=-1|
00017120  0d 4f 8c 0a e7 ac 6d 63  25 8c 0d 4f 92 0a c8 8e  |.O....mc%..O....|
00017130  57 6d 25 ca 0d 4f 94 2f  c9 31 3a f2 62 6d 28 32  |Wm%..O./.1:.bm(2|
00017140  2c 31 31 2b 31 35 2a 28  54 62 25 2d 62 62 25 2b  |,11+15*(Tb%-bb%+|
00017150  31 29 2c 4f 6d 25 2c 50  6d 25 2c 51 6d 25 2c 52  |1),Om%,Pm%,Qm%,R|
00017160  6d 25 29 0d 4f 96 2f c9  32 3a f2 62 6d 28 32 2c  |m%).O./.2:.bm(2,|
00017170  31 31 2b 31 32 2a 28 54  62 25 2d 62 62 25 2b 31  |11+12*(Tb%-bb%+1|
00017180  29 2c 4f 6d 25 2c 50 6d  25 2c 51 6d 25 2c 52 6d  |),Om%,Pm%,Qm%,Rm|
00017190  25 29 0d 4f 98 2e c9 33  3a f2 62 6d 28 32 2c 31  |%).O...3:.bm(2,1|
000171a0  34 2b 33 2a 28 54 62 25  2d 62 62 25 2b 31 29 2c  |4+3*(Tb%-bb%+1),|
000171b0  4f 6d 25 2c 50 6d 25 2c  51 6d 25 2c 52 6d 25 29  |Om%,Pm%,Qm%,Rm%)|
000171c0  0d 4f 9a 05 cb 0d 4f 9c  0c cc 3a c8 8e 57 6d 25  |.O....O...:..Wm%|
000171d0  ca 0d 4f a0 33 c9 31 2c  32 2c 33 3a f2 62 6d 28  |..O.3.1,2,3:.bm(|
000171e0  32 2c 31 31 2b 31 35 2a  28 54 62 25 2d 62 62 25  |2,11+15*(Tb%-bb%|
000171f0  2b 31 29 2c 4f 6d 25 2c  50 6d 25 2c 51 6d 25 2c  |+1),Om%,Pm%,Qm%,|
00017200  52 6d 25 29 0d 4f a2 08  c9 34 3a e1 0d 4f a4 2f  |Rm%).O...4:..O./|
00017210  c9 35 3a f2 62 6d 28 32  2c 31 31 2b 31 32 2a 28  |.5:.bm(2,11+12*(|
00017220  54 62 25 2d 62 62 25 2b  31 29 2c 4f 6d 25 2c 50  |Tb%-bb%+1),Om%,P|
00017230  6d 25 2c 51 6d 25 2c 52  6d 25 29 0d 4f a6 2e c9  |m%,Qm%,Rm%).O...|
00017240  36 3a f2 62 6d 28 32 2c  31 34 2b 33 2a 28 54 62  |6:.bm(2,14+3*(Tb|
00017250  25 2d 62 62 25 2b 31 29  2c 4f 6d 25 2c 50 6d 25  |%-bb%+1),Om%,Pm%|
00017260  2c 51 6d 25 2c 52 6d 25  29 0d 4f a8 05 cb 0d 4f  |,Qm%,Rm%).O....O|
00017270  aa 81 cd 3a f2 63 6d 28  6d 6d 25 2c 4e 69 25 2c  |...:.cm(mm%,Ni%,|
00017280  30 2e 32 35 2c 26 30 29  3a e3 6e 6d 25 3d 62 62  |0.25,&0):.nm%=bb|
00017290  25 b8 54 62 25 3a 6f 6d  3d 31 34 30 2b 28 31 30  |%.Tb%:om=140+(10|
000172a0  30 30 2a 48 69 29 2a 28  6e 6d 25 2d 62 62 25 29  |00*Hi)*(nm%-bb%)|
000172b0  3a 55 6a 3d 31 36 30 2b  31 30 30 2b 44 6a 25 2a  |:Uj=160+100+Dj%*|
000172c0  35 30 30 2a 73 2a 28 79  28 6e 6d 25 2c 59 6a 25  |500*s*(y(nm%,Yj%|
000172d0  29 2d 28 6a 68 25 2b 65  25 29 2f 44 6a 25 29 3a  |)-(jh%+e%)/Dj%):|
000172e0  e7 6e 6d 25 3d 62 62 25  8c 3a 56 6a 3d 55 6a 0d  |.nm%=bb%.:Vj=Uj.|
000172f0  4f ba 3a f2 70 6d 28 6f  6d 2c 55 6a 2c 32 36 31  |O.:.pm(om,Uj,261|
00017300  2c 56 6a 2c 32 36 31 2c  73 25 2c 55 6a 2c 63 68  |,Vj,261,s%,Uj,ch|
00017310  29 3a 56 6a 3d 55 6a 3a  ed 6e 6d 25 3a f2 64 6d  |):Vj=Uj:.nm%:.dm|
00017320  28 30 2c 30 2c 30 29 3a  e1 0d 4f ca 31 dd f2 5a  |(0,0,0):..O.1..Z|
00017330  6d 28 4e 69 25 2c 6e 25  29 3a ea 73 2c 6d 6d 25  |m(Ni%,n%):.s,mm%|
00017340  3a e7 6d 63 25 80 57 6d  25 3c 34 8c 6d 6d 25 3d  |:.mc%.Wm%<4.mm%=|
00017350  4e 69 25 8b 6d 6d 25 3d  2d 31 0d 4f d6 13 73 3d  |Ni%.mm%=-1.O..s=|
00017360  35 30 30 2a 7a 62 3a e7  ac 6d 63 25 8c 0d 4f de  |500*zb:..mc%..O.|
00017370  0a c8 8e 57 6d 25 ca 0d  4f e0 2f c9 31 3a f2 62  |...Wm%..O./.1:.b|
00017380  6d 28 32 2c 31 31 2b 31  35 2a 28 54 62 25 2d 62  |m(2,11+15*(Tb%-b|
00017390  62 25 2b 31 29 2c 4f 6d  25 2c 50 6d 25 2c 51 6d  |b%+1),Om%,Pm%,Qm|
000173a0  25 2c 52 6d 25 29 0d 4f  e2 2f c9 32 3a f2 62 6d  |%,Rm%).O./.2:.bm|
000173b0  28 32 2c 31 31 2b 31 32  2a 28 54 62 25 2d 62 62  |(2,11+12*(Tb%-bb|
000173c0  25 2b 31 29 2c 4f 6d 25  2c 50 6d 25 2c 51 6d 25  |%+1),Om%,Pm%,Qm%|
000173d0  2c 52 6d 25 29 0d 4f e4  2e c9 33 3a f2 62 6d 28  |,Rm%).O...3:.bm(|
000173e0  32 2c 31 34 2b 33 2a 28  54 62 25 2d 62 62 25 2b  |2,14+3*(Tb%-bb%+|
000173f0  31 29 2c 4f 6d 25 2c 50  6d 25 2c 51 6d 25 2c 52  |1),Om%,Pm%,Qm%,R|
00017400  6d 25 29 0d 4f e6 05 cb  0d 4f e8 0c cc 3a c8 8e  |m%).O....O...:..|
00017410  57 6d 25 ca 0d 4f ec 33  c9 31 2c 32 2c 33 3a f2  |Wm%..O.3.1,2,3:.|
00017420  62 6d 28 32 2c 31 31 2b  31 35 2a 28 54 62 25 2d  |bm(2,11+15*(Tb%-|
00017430  62 62 25 2b 31 29 2c 4f  6d 25 2c 50 6d 25 2c 51  |bb%+1),Om%,Pm%,Q|
00017440  6d 25 2c 52 6d 25 29 0d  4f ee 08 c9 34 3a e1 0d  |m%,Rm%).O...4:..|
00017450  4f f0 2f c9 35 3a f2 62  6d 28 32 2c 31 31 2b 31  |O./.5:.bm(2,11+1|
00017460  32 2a 28 54 62 25 2d 62  62 25 2b 31 29 2c 4f 6d  |2*(Tb%-bb%+1),Om|
00017470  25 2c 50 6d 25 2c 51 6d  25 2c 52 6d 25 29 0d 4f  |%,Pm%,Qm%,Rm%).O|
00017480  f2 2e c9 36 3a f2 62 6d  28 32 2c 31 34 2b 33 2a  |...6:.bm(2,14+3*|
00017490  28 54 62 25 2d 62 62 25  2b 31 29 2c 4f 6d 25 2c  |(Tb%-bb%+1),Om%,|
000174a0  50 6d 25 2c 51 6d 25 2c  52 6d 25 29 0d 4f f4 05  |Pm%,Qm%,Rm%).O..|
000174b0  cb 0d 4f f6 ab cd 3a f2  63 6d 28 6d 6d 25 2c 4e  |..O...:.cm(mm%,N|
000174c0  69 25 2c 30 2e 32 35 2c  26 30 29 3a e3 6e 6d 25  |i%,0.25,&0):.nm%|
000174d0  3d 62 62 25 b8 54 62 25  3a 6f 6d 3d 31 34 30 2b  |=bb%.Tb%:om=140+|
000174e0  28 31 30 30 30 2a 48 69  29 2a 28 6e 6d 25 2d 62  |(1000*Hi)*(nm%-b|
000174f0  62 25 29 3a 55 6a 28 30  29 3d 32 36 30 3a 57 6a  |b%):Uj(0)=260:Wj|
00017500  28 30 29 3d 30 3a 55 6a  28 31 29 3d 55 6a 28 30  |(0)=0:Uj(1)=Uj(0|
00017510  29 2b 73 2a 31 30 2a 61  69 28 6e 6d 25 29 3a 57  |)+s*10*ai(nm%):W|
00017520  6a 28 31 29 3d 73 2a 67  64 25 3a e7 6e 25 3e 31  |j(1)=s*gd%:.n%>1|
00017530  8c 3a 55 6a 28 32 29 3d  55 6a 28 31 29 2b 73 2a  |.:Uj(2)=Uj(1)+s*|
00017540  31 30 2a 62 69 28 6e 6d  25 29 3a 57 6a 28 32 29  |10*bi(nm%):Wj(2)|
00017550  3d 57 6a 28 31 29 2b 73  2a 68 64 25 0d 50 08 35  |=Wj(1)+s*hd%.P.5|
00017560  e7 6e 25 3e 32 8c 3a 55  6a 28 33 29 3d 55 6a 28  |.n%>2.:Uj(3)=Uj(|
00017570  32 29 2b 73 2a 31 30 2a  63 69 28 6e 6d 25 29 3a  |2)+s*10*ci(nm%):|
00017580  57 6a 28 33 29 3d 57 6a  28 32 29 2b 73 2a 69 64  |Wj(3)=Wj(2)+s*id|
00017590  25 0d 50 0a 3a e7 6e 25  3e 33 8c 3a 55 6a 28 34  |%.P.:.n%>3.:Uj(4|
000175a0  29 3d 55 6a 28 33 29 2b  73 2a 31 30 2a 64 69 28  |)=Uj(3)+s*10*di(|
000175b0  6e 6d 25 2c 30 29 3a 57  6a 28 34 29 3d 57 6a 28  |nm%,0):Wj(4)=Wj(|
000175c0  33 29 2b 73 2a 6a 64 25  28 30 29 0d 50 0c 28 e7  |3)+s*jd%(0).P.(.|
000175d0  6e 25 3e 34 8c 3a e7 6e  63 25 8c 3a 55 6a 28 34  |n%>4.:.nc%.:Uj(4|
000175e0  29 3d 55 6a 28 33 29 3a  57 6a 28 34 29 3d 57 6a  |)=Uj(3):Wj(4)=Wj|
000175f0  28 33 29 0d 50 0e 3a e7  6e 25 3e 34 8c 3a 55 6a  |(3).P.:.n%>4.:Uj|
00017600  28 35 29 3d 55 6a 28 33  29 2b 73 2a 31 30 2a 64  |(5)=Uj(3)+s*10*d|
00017610  69 28 6e 6d 25 2c 31 29  3a 57 6a 28 35 29 3d 57  |i(nm%,1):Wj(5)=W|
00017620  6a 28 33 29 2b 73 2a 6a  64 25 28 31 29 0d 50 10  |j(3)+s*jd%(1).P.|
00017630  3a e7 6e 25 3e 35 8c 3a  55 6a 28 36 29 3d 55 6a  |:.n%>5.:Uj(6)=Uj|
00017640  28 35 29 2b 73 2a 31 30  2a 64 69 28 6e 6d 25 2c  |(5)+s*10*di(nm%,|
00017650  32 29 3a 57 6a 28 36 29  3d 57 6a 28 35 29 2b 73  |2):Wj(6)=Wj(5)+s|
00017660  2a 6a 64 25 28 32 29 0d  50 12 3a e7 6e 25 3e 36  |*jd%(2).P.:.n%>6|
00017670  8c 3a 55 6a 28 37 29 3d  55 6a 28 36 29 2b 73 2a  |.:Uj(7)=Uj(6)+s*|
00017680  31 30 2a 64 69 28 6e 6d  25 2c 33 29 3a 57 6a 28  |10*di(nm%,3):Wj(|
00017690  37 29 3d 57 6a 28 36 29  2b 73 2a 6a 64 25 28 33  |7)=Wj(6)+s*jd%(3|
000176a0  29 0d 50 14 32 57 6a 28  29 2b 3d 73 2a 60 62 25  |).P.2Wj()+=s*`b%|
000176b0  3a 55 6a 28 29 3d 55 6a  28 29 2d 57 6a 28 29 3a  |:Uj()=Uj()-Wj():|
000176c0  e7 6e 6d 25 3d 62 62 25  8c 3a 56 6a 28 29 3d 55  |.nm%=bb%.:Vj()=U|
000176d0  6a 28 29 0d 50 1a 5b f2  70 6d 28 6f 6d 2c 55 6a  |j().P.[.pm(om,Uj|
000176e0  28 6e 25 29 2c 55 6a 28  6e 25 2d 31 29 2c 56 6a  |(n%),Uj(n%-1),Vj|
000176f0  28 6e 25 29 2c 56 6a 28  6e 25 2d 31 29 2c 7a 62  |(n%),Vj(n%-1),zb|
00017700  25 2c 55 6a 28 6e 25 29  2c 55 6a 28 6e 25 2d 31  |%,Uj(n%),Uj(n%-1|
00017710  29 29 3a 56 6a 28 29 3d  55 6a 28 29 3a ed 6e 6d  |)):Vj()=Uj():.nm|
00017720  25 3a f2 64 6d 28 30 2c  30 2c 30 29 3a e1 0d 50  |%:.dm(0,0,0):..P|
00017730  26 31 dd f2 61 6d 28 4e  69 25 2c 6e 25 29 3a ea  |&1..am(Ni%,n%):.|
00017740  73 2c 6d 6d 25 3a e7 6d  63 25 80 57 6d 25 3c 34  |s,mm%:.mc%.Wm%<4|
00017750  8c 6d 6d 25 3d 4e 69 25  8b 6d 6d 25 3d 2d 31 0d  |.mm%=Ni%.mm%=-1.|
00017760  50 32 13 73 3d 35 30 30  2a 4a 63 3a e7 ac 6d 63  |P2.s=500*Jc:..mc|
00017770  25 8c 0d 50 3a 0a c8 8e  57 6d 25 ca 0d 50 3c 2f  |%..P:...Wm%..P</|
00017780  c9 31 3a f2 62 6d 28 32  2c 31 31 2b 31 35 2a 28  |.1:.bm(2,11+15*(|
00017790  54 62 25 2d 62 62 25 2b  31 29 2c 4f 6d 25 2c 50  |Tb%-bb%+1),Om%,P|
000177a0  6d 25 2c 51 6d 25 2c 52  6d 25 29 0d 50 3e 2f c9  |m%,Qm%,Rm%).P>/.|
000177b0  32 3a f2 62 6d 28 32 2c  31 31 2b 31 32 2a 28 54  |2:.bm(2,11+12*(T|
000177c0  62 25 2d 62 62 25 2b 31  29 2c 4f 6d 25 2c 50 6d  |b%-bb%+1),Om%,Pm|
000177d0  25 2c 51 6d 25 2c 52 6d  25 29 0d 50 40 2e c9 33  |%,Qm%,Rm%).P@..3|
000177e0  3a f2 62 6d 28 32 2c 31  34 2b 33 2a 28 54 62 25  |:.bm(2,14+3*(Tb%|
000177f0  2d 62 62 25 2b 31 29 2c  4f 6d 25 2c 50 6d 25 2c  |-bb%+1),Om%,Pm%,|
00017800  51 6d 25 2c 52 6d 25 29  0d 50 42 05 cb 0d 50 44  |Qm%,Rm%).PB...PD|
00017810  0c cc 3a c8 8e 57 6d 25  ca 0d 50 48 33 c9 31 2c  |..:..Wm%..PH3.1,|
00017820  32 2c 33 3a f2 62 6d 28  32 2c 31 31 2b 31 35 2a  |2,3:.bm(2,11+15*|
00017830  28 54 62 25 2d 62 62 25  2b 31 29 2c 4f 6d 25 2c  |(Tb%-bb%+1),Om%,|
00017840  50 6d 25 2c 51 6d 25 2c  52 6d 25 29 0d 50 4a 08  |Pm%,Qm%,Rm%).PJ.|
00017850  c9 34 3a e1 0d 50 4c 2f  c9 35 3a f2 62 6d 28 32  |.4:..PL/.5:.bm(2|
00017860  2c 31 31 2b 31 32 2a 28  54 62 25 2d 62 62 25 2b  |,11+12*(Tb%-bb%+|
00017870  31 29 2c 4f 6d 25 2c 50  6d 25 2c 51 6d 25 2c 52  |1),Om%,Pm%,Qm%,R|
00017880  6d 25 29 0d 50 4e 2e c9  36 3a f2 62 6d 28 32 2c  |m%).PN..6:.bm(2,|
00017890  31 34 2b 33 2a 28 54 62  25 2d 62 62 25 2b 31 29  |14+3*(Tb%-bb%+1)|
000178a0  2c 4f 6d 25 2c 50 6d 25  2c 51 6d 25 2c 52 6d 25  |,Om%,Pm%,Qm%,Rm%|
000178b0  29 0d 50 50 05 cb 0d 50  52 c2 cd 3a f2 63 6d 28  |).PP...PR..:.cm(|
000178c0  6d 6d 25 2c 4e 69 25 2c  30 2e 32 35 2c 26 30 29  |mm%,Ni%,0.25,&0)|
000178d0  3a e3 6e 6d 25 3d 62 62  25 b8 54 62 25 3a 6f 6d  |:.nm%=bb%.Tb%:om|
000178e0  3d 31 34 30 2b 28 31 30  30 30 2a 48 69 29 2a 28  |=140+(1000*Hi)*(|
000178f0  6e 6d 25 2d 62 62 25 29  3a 55 6a 28 30 29 3d 32  |nm%-bb%):Uj(0)=2|
00017900  36 30 3a 57 6a 28 30 29  3d 30 3a 55 6a 28 31 29  |60:Wj(0)=0:Uj(1)|
00017910  3d 55 6a 28 30 29 2b 73  2a 53 69 28 6e 6d 25 29  |=Uj(0)+s*Si(nm%)|
00017920  3a 57 6a 28 31 29 3d 30  3a e7 6e 25 3e 31 8c 3a  |:Wj(1)=0:.n%>1.:|
00017930  55 6a 28 32 29 3d 55 6a  28 31 29 2b 73 2a 28 32  |Uj(2)=Uj(1)+s*(2|
00017940  37 37 2a a1 28 62 69 28  6e 6d 25 29 2f 36 2e 33  |77*.(bi(nm%)/6.3|
00017950  29 2d 32 37 37 29 3a 57  6a 28 32 29 3d 57 6a 28  |)-277):Wj(2)=Wj(|
00017960  31 29 2b 73 2a 28 32 37  37 2a a1 28 68 64 25 2f  |1)+s*(277*.(hd%/|
00017970  36 33 29 2d 32 37 37 29  0d 50 64 53 e7 6e 25 3e  |63)-277).PdS.n%>|
00017980  32 8c 3a 55 6a 28 33 29  3d 55 6a 28 32 29 2b 73  |2.:Uj(3)=Uj(2)+s|
00017990  2a 28 32 37 37 2a a1 28  63 69 28 6e 6d 25 29 2f  |*(277*.(ci(nm%)/|
000179a0  36 2e 33 29 2d 32 37 37  29 3a 57 6a 28 33 29 3d  |6.3)-277):Wj(3)=|
000179b0  57 6a 28 32 29 2b 73 2a  28 32 37 37 2a a1 28 69  |Wj(2)+s*(277*.(i|
000179c0  64 25 2f 36 33 29 2d 32  37 37 29 0d 50 66 58 e7  |d%/63)-277).PfX.|
000179d0  6e 25 3e 33 8c 3a 55 6a  28 34 29 3d 55 6a 28 33  |n%>3.:Uj(4)=Uj(3|
000179e0  29 2b 73 2a 28 32 37 37  2a a1 28 64 69 28 6e 6d  |)+s*(277*.(di(nm|
000179f0  25 2c 30 29 2f 36 2e 33  29 2d 32 37 37 29 3a 57  |%,0)/6.3)-277):W|
00017a00  6a 28 34 29 3d 57 6a 28  33 29 2b 73 2a 28 32 37  |j(4)=Wj(3)+s*(27|
00017a10  37 2a a1 28 6a 64 25 28  30 29 2f 36 33 29 2d 32  |7*.(jd%(0)/63)-2|
00017a20  37 37 29 0d 50 68 28 e7  6e 25 3e 34 8c 3a e7 6e  |77).Ph(.n%>4.:.n|
00017a30  63 25 8c 3a 55 6a 28 34  29 3d 55 6a 28 33 29 3a  |c%.:Uj(4)=Uj(3):|
00017a40  57 6a 28 34 29 3d 57 6a  28 33 29 0d 50 6a 58 e7  |Wj(4)=Wj(3).PjX.|
00017a50  6e 25 3e 34 8c 3a 55 6a  28 35 29 3d 55 6a 28 33  |n%>4.:Uj(5)=Uj(3|
00017a60  29 2b 73 2a 28 32 37 37  2a a1 28 64 69 28 6e 6d  |)+s*(277*.(di(nm|
00017a70  25 2c 31 29 2f 36 2e 33  29 2d 32 37 37 29 3a 57  |%,1)/6.3)-277):W|
00017a80  6a 28 35 29 3d 57 6a 28  33 29 2b 73 2a 28 32 37  |j(5)=Wj(3)+s*(27|
00017a90  37 2a a1 28 6a 64 25 28  31 29 2f 36 33 29 2d 32  |7*.(jd%(1)/63)-2|
00017aa0  37 37 29 0d 50 6c 58 e7  6e 25 3e 35 8c 3a 55 6a  |77).PlX.n%>5.:Uj|
00017ab0  28 36 29 3d 55 6a 28 35  29 2b 73 2a 28 32 37 37  |(6)=Uj(5)+s*(277|
00017ac0  2a a1 28 64 69 28 6e 6d  25 2c 32 29 2f 36 2e 33  |*.(di(nm%,2)/6.3|
00017ad0  29 2d 32 37 37 29 3a 57  6a 28 36 29 3d 57 6a 28  |)-277):Wj(6)=Wj(|
00017ae0  35 29 2b 73 2a 28 32 37  37 2a a1 28 6a 64 25 28  |5)+s*(277*.(jd%(|
00017af0  32 29 2f 36 33 29 2d 32  37 37 29 0d 50 6e 58 e7  |2)/63)-277).PnX.|
00017b00  6e 25 3e 36 8c 3a 55 6a  28 37 29 3d 55 6a 28 36  |n%>6.:Uj(7)=Uj(6|
00017b10  29 2b 73 2a 28 32 37 37  2a a1 28 64 69 28 6e 6d  |)+s*(277*.(di(nm|
00017b20  25 2c 33 29 2f 36 2e 33  29 2d 32 37 37 29 3a 57  |%,3)/6.3)-277):W|
00017b30  6a 28 37 29 3d 57 6a 28  36 29 2b 73 2a 28 32 37  |j(7)=Wj(6)+s*(27|
00017b40  37 2a a1 28 6a 64 25 28  33 29 2f 36 33 29 2d 32  |7*.(jd%(3)/63)-2|
00017b50  37 37 29 0d 50 70 38 65  25 28 29 2b 3d 73 2a 28  |77).Pp8e%()+=s*(|
00017b60  4e 63 25 2b 63 64 25 29  3a 55 6a 28 29 3d 55 6a  |Nc%+cd%):Uj()=Uj|
00017b70  28 29 2d 57 6a 28 29 3a  e7 6e 6d 25 3d 62 62 25  |()-Wj():.nm%=bb%|
00017b80  8c 3a 56 6a 28 29 3d 55  6a 28 29 0d 50 76 5b f2  |.:Vj()=Uj().Pv[.|
00017b90  70 6d 28 6f 6d 2c 55 6a  28 6e 25 29 2c 55 6a 28  |pm(om,Uj(n%),Uj(|
00017ba0  6e 25 2d 31 29 2c 56 6a  28 6e 25 29 2c 56 6a 28  |n%-1),Vj(n%),Vj(|
00017bb0  6e 25 2d 31 29 2c 4a 63  25 2c 55 6a 28 6e 25 29  |n%-1),Jc%,Uj(n%)|
00017bc0  2c 55 6a 28 6e 25 2d 31  29 29 3a 56 6a 28 29 3d  |,Uj(n%-1)):Vj()=|
00017bd0  55 6a 28 29 3a ed 6e 6d  25 3a f2 64 6d 28 30 2c  |Uj():.nm%:.dm(0,|
00017be0  30 2c 30 29 3a e1 0d 50  82 4b dd f2 70 6d 28 6f  |0,0):..P.K..pm(o|
00017bf0  6d 2c 71 6d 2c 72 6d 2c  73 6d 2c 74 6d 2c 6c 68  |m,qm,rm,sm,tm,lh|
00017c00  25 2c f8 71 6d 2c f8 72  6d 29 3a ea 72 69 3a e7  |%,.qm,.rm):.ri:.|
00017c10  94 28 6f 6d 2d 31 34 30  29 3c 30 2e 30 30 31 8c  |.(om-140)<0.001.|
00017c20  72 69 3d 30 8b 72 69 3d  28 31 30 30 30 2a 48 69  |ri=0.ri=(1000*Hi|
00017c30  29 0d 50 8c 46 71 6d 3d  a4 73 69 28 71 6d 2c 39  |).P.Fqm=.si(qm,9|
00017c40  36 30 29 3a 72 6d 3d a4  73 69 28 72 6d 2c 39 36  |60):rm=.si(rm,96|
00017c50  30 29 3a 73 6d 3d a4 73  69 28 73 6d 2c 39 36 30  |0):sm=.si(sm,960|
00017c60  29 3a 74 6d 3d a4 73 69  28 74 6d 2c 39 36 30 29  |):tm=.si(tm,960)|
00017c70  3a e7 ac 6d 63 25 8c 0d  50 92 0a c8 8e 57 6d 25  |:..mc%..P....Wm%|
00017c80  ca 0d 50 94 ba c9 31 3a  f2 64 6d 28 32 2c 6f 6d  |..P...1:.dm(2,om|
00017c90  2d a4 74 69 28 71 6d 2c  39 36 30 2c 6c 68 25 29  |-.ti(qm,960,lh%)|
00017ca0  2c 71 6d 2d a4 74 69 28  71 6d 2c 39 36 30 2c 6c  |,qm-.ti(qm,960,l|
00017cb0  68 25 29 29 3a f2 64 6d  28 38 2c 6f 6d 2b a4 74  |h%)):.dm(8,om+.t|
00017cc0  69 28 71 6d 2c 39 36 30  2c 6c 68 25 29 2c 71 6d  |i(qm,960,lh%),qm|
00017cd0  2d a4 74 69 28 71 6d 2c  39 36 30 2c 6c 68 25 29  |-.ti(qm,960,lh%)|
00017ce0  29 3a f2 64 6d 28 38 2c  6f 6d 2b a4 74 69 28 71  |):.dm(8,om+.ti(q|
00017cf0  6d 2c 39 36 30 2c 6c 68  25 29 2c 71 6d 2b a4 74  |m,960,lh%),qm+.t|
00017d00  69 28 71 6d 2c 39 36 30  2c 6c 68 25 29 29 3a f2  |i(qm,960,lh%)):.|
00017d10  64 6d 28 38 2c 6f 6d 2d  a4 74 69 28 71 6d 2c 39  |dm(8,om-.ti(qm,9|
00017d20  36 30 2c 6c 68 25 29 2c  71 6d 2b a4 74 69 28 71  |60,lh%),qm+.ti(q|
00017d30  6d 2c 39 36 30 2c 6c 68  25 29 29 0d 50 9e 30 f2  |m,960,lh%)).P.0.|
00017d40  64 6d 28 38 2c 6f 6d 2d  a4 74 69 28 71 6d 2c 39  |dm(8,om-.ti(qm,9|
00017d50  36 30 2c 6c 68 25 29 2c  71 6d 2d a4 74 69 28 71  |60,lh%),qm-.ti(q|
00017d60  6d 2c 39 36 30 2c 6c 68  25 29 29 0d 50 a0 7a c9  |m,960,lh%)).P.z.|
00017d70  32 3a f2 64 6d 28 32 2c  6f 6d 2d a4 74 69 28 71  |2:.dm(2,om-.ti(q|
00017d80  6d 2c 39 36 30 2c 6c 68  25 29 2c 71 6d 29 3a f2  |m,960,lh%),qm):.|
00017d90  64 6d 28 38 2c 6f 6d 2b  a4 74 69 28 71 6d 2c 39  |dm(8,om+.ti(qm,9|
00017da0  36 30 2c 6c 68 25 29 2c  71 6d 29 3a f2 64 6d 28  |60,lh%),qm):.dm(|
00017db0  32 2c 6f 6d 2c 71 6d 2d  a4 74 69 28 71 6d 2c 39  |2,om,qm-.ti(qm,9|
00017dc0  36 30 2c 6c 68 25 29 29  3a f2 64 6d 28 38 2c 6f  |60,lh%)):.dm(8,o|
00017dd0  6d 2c 71 6d 2b a4 74 69  28 71 6d 2c 39 36 30 2c  |m,qm+.ti(qm,960,|
00017de0  6c 68 25 29 29 0d 50 aa  1d c9 33 3a e7 6e 6d 25  |lh%)).P...3:.nm%|
00017df0  3d 62 62 25 8c 3a f2 64  6d 28 32 2c 6f 6d 2c 71  |=bb%.:.dm(2,om,q|
00017e00  6d 29 0d 50 ae 10 f2 64  6d 28 38 2c 6f 6d 2c 71  |m).P...dm(8,om,q|
00017e10  6d 29 0d 50 b0 05 cb 0d  50 b2 0c cc 3a c8 8e 57  |m).P....P...:..W|
00017e20  6d 25 ca 0d 50 b6 54 c9  31 2c 32 2c 33 3a f2 64  |m%..P.T.1,2,3:.d|
00017e30  6d 28 32 2c 6f 6d 2d 72  69 2c 74 6d 29 3a f2 64  |m(2,om-ri,tm):.d|
00017e40  6d 28 38 2c 6f 6d 2d 72  69 2c 73 6d 29 3a f2 64  |m(8,om-ri,sm):.d|
00017e50  6d 28 38 2c 6f 6d 2c 71  6d 29 3a f2 64 6d 28 38  |m(8,om,qm):.dm(8|
00017e60  2c 6f 6d 2c 72 6d 29 3a  f2 64 6d 28 32 2c 6f 6d  |,om,rm):.dm(2,om|
00017e70  2d 72 69 2c 74 6d 29 0d  50 be 06 c9 34 0d 50 c0  |-ri,tm).P...4.P.|
00017e80  7a c9 35 3a f2 64 6d 28  32 2c 6f 6d 2d a4 74 69  |z.5:.dm(2,om-.ti|
00017e90  28 71 6d 2c 39 36 30 2c  6c 68 25 29 2c 71 6d 29  |(qm,960,lh%),qm)|
00017ea0  3a f2 64 6d 28 38 2c 6f  6d 2b a4 74 69 28 71 6d  |:.dm(8,om+.ti(qm|
00017eb0  2c 39 36 30 2c 6c 68 25  29 2c 71 6d 29 3a f2 64  |,960,lh%),qm):.d|
00017ec0  6d 28 32 2c 6f 6d 2c 71  6d 2d a4 74 69 28 71 6d  |m(2,om,qm-.ti(qm|
00017ed0  2c 39 36 30 2c 6c 68 25  29 29 3a f2 64 6d 28 38  |,960,lh%)):.dm(8|
00017ee0  2c 6f 6d 2c 71 6d 2b a4  74 69 28 71 6d 2c 39 36  |,om,qm+.ti(qm,96|
00017ef0  30 2c 6c 68 25 29 29 0d  50 ca 1d c9 36 3a e7 6e  |0,lh%)).P...6:.n|
00017f00  6d 25 3d 62 62 25 8c 3a  f2 64 6d 28 32 2c 6f 6d  |m%=bb%.:.dm(2,om|
00017f10  2c 71 6d 29 0d 50 ce 10  f2 64 6d 28 38 2c 6f 6d  |,qm).P...dm(8,om|
00017f20  2c 71 6d 29 0d 50 d0 05  cb 0d 50 d2 07 cd 3a e1  |,qm).P....P...:.|
00017f30  0d 50 d8 43 dd f2 75 6d  28 6f 6d 2c 55 6a 2c 56  |.P.C..um(om,Uj,V|
00017f40  6a 2c 6c 68 25 2c 76 6d  25 2c f8 79 29 3a ea 72  |j,lh%,vm%,.y):.r|
00017f50  69 3a e7 94 28 78 2d 31  34 30 29 3c 30 2e 30 30  |i:..(x-140)<0.00|
00017f60  31 8c 72 69 3d 30 8b 72  69 3d 28 31 30 30 30 2a  |1.ri=0.ri=(1000*|
00017f70  48 69 29 0d 50 e2 14 e7  6e 63 25 8c 75 69 25 3d  |Hi).P...nc%.ui%=|
00017f80  37 8b 75 69 25 3d 34 0d  50 e4 44 e3 4d 25 3d 31  |7.ui%=4.P.D.M%=1|
00017f90  b8 75 69 25 3a 55 6a 28  4d 25 29 3d a4 73 69 28  |.ui%:Uj(M%)=.si(|
00017fa0  55 6a 28 4d 25 29 2c 39  36 30 29 3a 77 6d 2d 78  |Uj(M%),960):wm-x|
00017fb0  6d 28 4d 25 29 3d a4 73  69 28 56 6a 28 4d 25 29  |m(M%)=.si(Vj(M%)|
00017fc0  2c 39 36 30 29 3a ed 4d  25 3a e1 0d 50 f4 82 dd  |,960):.M%:..P...|
00017fd0  f2 6b 6d 28 78 25 2c 79  25 2c 4e 69 25 2c 66 6b  |.km(x%,y%,Ni%,fk|
00017fe0  28 29 29 3a ea 68 6b 2c  69 6b 3a f2 62 6d 28 32  |()):.hk,ik:.bm(2|
00017ff0  2c 31 34 2b 33 2a 28 62  66 25 2d 31 39 39 30 29  |,14+3*(bf%-1990)|
00018000  2c 4f 6d 25 2c 50 6d 25  2c 51 6d 25 2c 52 6d 25  |,Om%,Pm%,Qm%,Rm%|
00018010  29 3a f2 63 6d 28 2d 31  2c 4e 69 25 2c 30 2e 35  |):.cm(-1,Ni%,0.5|
00018020  2c 26 30 29 3a 69 6b 3d  65 6b 2a 33 30 30 3a e7  |,&0):ik=ek*300:.|
00018030  66 6b 28 30 2c 6c 64 25  29 3e 30 8c 6a 6b 3d 66  |fk(0,ld%)>0.jk=f|
00018040  6b 28 30 2c 6c 64 25 29  8b 6a 6b 3d 31 0d 51 0c  |k(0,ld%).jk=1.Q.|
00018050  77 f2 64 6d 28 32 2c 31  30 30 2c 31 30 30 2b 69  |w.dm(2,100,100+i|
00018060  6b 2a 28 31 30 30 2a 66  6b 28 30 2c 6c 64 25 29  |k*(100*fk(0,ld%)|
00018070  2f 6a 6b 2d 41 64 25 29  29 3a e3 6e 6d 25 3d 31  |/jk-Ad%)):.nm%=1|
00018080  b8 28 62 66 25 2d 31 39  39 30 29 3a 68 6b 3d 69  |.(bf%-1990):hk=i|
00018090  6b 2a 28 31 30 30 2a 66  6b 28 6e 6d 25 2c 6c 64  |k*(100*fk(nm%,ld|
000180a0  25 29 2f 6a 6b 2d 41 64  25 29 3a e7 68 6b 3e 33  |%)/jk-Ad%):.hk>3|
000180b0  30 30 8c 68 6b 3d 33 30  30 8b e7 68 6b 3c 30 8c  |00.hk=300..hk<0.|
000180c0  68 6b 3d 30 0d 51 14 2f  f2 64 6d 28 38 2c 31 30  |hk=0.Q./.dm(8,10|
000180d0  30 2b 35 30 30 2a 63 6b  2a 6e 6d 25 2c 31 30 30  |0+500*ck*nm%,100|
000180e0  2b 68 6b 29 3a ed 3a f2  64 6d 28 30 2c 30 2c 30  |+hk):.:.dm(0,0,0|
000180f0  29 3a e1 0d 51 20 91 dd  f2 6c 6d 28 78 25 2c 79  |):..Q ...lm(x%,y|
00018100  25 2c 4e 69 25 2c 66 6b  28 29 2c 55 69 25 29 3a  |%,Ni%,fk(),Ui%):|
00018110  ea 67 6b 2c 68 6b 2c 69  6b 3a f2 62 6d 28 32 2c  |.gk,hk,ik:.bm(2,|
00018120  31 34 2b 33 2a 28 62 66  25 2d 31 39 39 30 29 2c  |14+3*(bf%-1990),|
00018130  4f 6d 25 2c 50 6d 25 2c  51 6d 25 2c 52 6d 25 29  |Om%,Pm%,Qm%,Rm%)|
00018140  3a f2 63 6d 28 2d 31 2c  4e 69 25 2c 30 2e 35 2c  |:.cm(-1,Ni%,0.5,|
00018150  26 30 29 3a 69 6b 3d 65  6b 2a 33 30 30 3a e7 66  |&0):ik=ek*300:.f|
00018160  6b 28 30 2c 55 69 25 2c  6c 64 25 29 3e 30 8c 6a  |k(0,Ui%,ld%)>0.j|
00018170  6b 3d 66 6b 28 30 2c 55  69 25 2c 6c 64 25 29 8b  |k=fk(0,Ui%,ld%).|
00018180  6a 6b 3d 31 0d 51 38 7f  f2 64 6d 28 32 2c 31 30  |jk=1.Q8..dm(2,10|
00018190  30 2c 31 30 30 2b 69 6b  2a 28 31 30 30 2a 66 6b  |0,100+ik*(100*fk|
000181a0  28 30 2c 55 69 25 2c 6c  64 25 29 2f 6a 6b 2d 41  |(0,Ui%,ld%)/jk-A|
000181b0  64 25 29 29 3a e3 6e 6d  25 3d 31 b8 28 62 66 25  |d%)):.nm%=1.(bf%|
000181c0  2d 31 39 39 30 29 3a 68  6b 3d 69 6b 2a 28 31 30  |-1990):hk=ik*(10|
000181d0  30 2a 66 6b 28 6e 6d 25  2c 55 69 25 2c 6c 64 25  |0*fk(nm%,Ui%,ld%|
000181e0  29 2f 6a 6b 2d 41 64 25  29 3a e7 68 6b 3e 33 30  |)/jk-Ad%):.hk>30|
000181f0  30 8c 68 6b 3d 33 30 30  8b e7 68 6b 3c 30 8c 68  |0.hk=300..hk<0.h|
00018200  6b 3d 30 0d 51 40 2f f2  64 6d 28 38 2c 31 30 30  |k=0.Q@/.dm(8,100|
00018210  2b 35 30 30 2a 63 6b 2a  6e 6d 25 2c 31 30 30 2b  |+500*ck*nm%,100+|
00018220  68 6b 29 3a ed 3a f2 64  6d 28 30 2c 30 2c 30 29  |hk):.:.dm(0,0,0)|
00018230  3a e1 0d 51 4c c6 dd f2  67 6d 28 78 25 2c 79 25  |:..QL...gm(x%,y%|
00018240  2c 78 69 25 2c 79 69 25  2c 7a 69 25 2c 5f 69 25  |,xi%,yi%,zi%,_i%|
00018250  2c 60 69 25 2c 79 6d 25  2c 7a 6d 2c 5f 6d 2c 73  |,`i%,ym%,zm,_m,s|
00018260  2c 41 6a 25 2c 42 6a 25  2c 43 6a 2c 44 6a 25 2c  |,Aj%,Bj%,Cj,Dj%,|
00018270  45 6a 25 2c 46 6a 25 2c  60 6d 25 2c 47 6a 25 2c  |Ej%,Fj%,`m%,Gj%,|
00018280  48 6a 25 2c 4b 69 25 29  3a ea 48 62 24 3a f2 62  |Hj%,Ki%):.Hb$:.b|
00018290  6d 28 32 2c 31 31 2b 36  2a 28 42 6a 25 2b 31 29  |m(2,11+6*(Bj%+1)|
000182a0  2c 4f 6d 25 2c 50 6d 25  2c 51 6d 25 2c 52 6d 25  |,Om%,Pm%,Qm%,Rm%|
000182b0  29 3a f2 63 6d 28 2d 31  2c 26 30 30 30 30 30 30  |):.cm(-1,&000000|
000182c0  30 30 2c 7a 6d 2c 26 30  29 3a e3 58 25 3d 30 b8  |00,zm,&0):.X%=0.|
000182d0  42 6a 25 3a f2 64 6d 28  32 2c 79 69 25 2b 5f 69  |Bj%:.dm(2,yi%+_i|
000182e0  25 2a 73 2a 28 41 6a 25  2b 43 6a 2a 58 25 29 2c  |%*s*(Aj%+Cj*X%),|
000182f0  7a 69 25 2d 79 6d 25 29  0d 51 94 39 f2 64 6d 28  |zi%-ym%).Q.9.dm(|
00018300  38 2c 79 69 25 2b 5f 69  25 2a 73 2a 28 41 6a 25  |8,yi%+_i%*s*(Aj%|
00018310  2b 43 6a 2a 58 25 29 2c  7a 69 25 29 3a ed 58 25  |+Cj*X%),zi%):.X%|
00018320  3a f2 64 6d 28 30 2c 30  2c 30 29 3a e7 4b 69 25  |:.dm(0,0,0):.Ki%|
00018330  8c 0d 51 a0 bc f2 62 6d  28 32 2c 31 34 2b 36 2a  |..Q...bm(2,14+6*|
00018340  28 42 6a 25 2b 31 29 2c  4f 6d 25 2c 50 6d 25 2c  |(Bj%+1),Om%,Pm%,|
00018350  51 6d 25 2c 52 6d 25 29  3a f2 63 6d 28 2d 31 2c  |Qm%,Rm%):.cm(-1,|
00018360  26 30 30 30 30 30 30 30  30 2c 5f 6d 2c 26 38 30  |&00000000,_m,&80|
00018370  29 3a f2 4e 6d 28 32 35  36 2a 35 29 3a f2 4e 6d  |):.Nm(256*5):.Nm|
00018380  28 31 29 3a f2 4e 6d 28  32 35 36 2a 35 29 3a e3  |(1):.Nm(256*5):.|
00018390  58 25 3d 30 b8 42 6a 25  3a f2 64 6d 28 32 2c 79  |X%=0.Bj%:.dm(2,y|
000183a0  69 25 2b 5f 69 25 2a 73  2a 28 41 6a 25 2b 43 6a  |i%+_i%*s*(Aj%+Cj|
000183b0  2a 58 25 29 2c 7a 69 25  29 3a f2 64 6d 28 38 2c  |*X%),zi%):.dm(8,|
000183c0  79 69 25 2b 5f 69 25 2a  73 2a 28 41 6a 25 2b 43  |yi%+_i%*s*(Aj%+C|
000183d0  6a 2a 58 25 29 2c 7a 69  25 2b 60 69 25 29 3a ed  |j*X%),zi%+`i%):.|
000183e0  58 25 3a f2 64 6d 28 30  2c 30 2c 30 29 0d 51 c0  |X%:.dm(0,0,0).Q.|
000183f0  98 cd 3a e3 58 25 3d 30  b8 42 6a 25 3a 48 62 24  |..:.X%=0.Bj%:Hb$|
00018400  3d c3 28 a8 28 28 78 69  25 2b 41 6a 25 2b 43 6a  |=.(.((xi%+Aj%+Cj|
00018410  2a 58 25 29 2f 44 6a 25  29 29 3a f2 62 6d 28 31  |*X%)/Dj%)):.bm(1|
00018420  2c 31 35 2c 4f 6d 25 2c  50 6d 25 2c 51 6d 25 2c  |,15,Om%,Pm%,Qm%,|
00018430  52 6d 25 29 3a f2 65 6d  28 26 30 30 30 30 30 30  |Rm%):.em(&000000|
00018440  30 30 2c 26 46 46 46 46  46 46 30 30 2c 31 2c 60  |00,&FFFFFF00,1,`|
00018450  6d 25 2c 60 6d 25 2c 79  69 25 2b 45 6a 25 2b 5f  |m%,`m%,yi%+Ej%+_|
00018460  69 25 2a 73 2a 28 41 6a  25 2b 43 6a 2a 58 25 29  |i%*s*(Aj%+Cj*X%)|
00018470  2c 7a 69 25 2b 46 6a 25  2c 48 62 24 2c 30 29 3a  |,zi%+Fj%,Hb$,0):|
00018480  ed 58 25 3a e1 0d 51 da  d4 dd f2 68 6d 28 78 25  |.X%:..Q....hm(x%|
00018490  2c 79 25 2c 78 69 25 2c  79 69 25 2c 7a 69 25 2c  |,y%,xi%,yi%,zi%,|
000184a0  5f 69 25 2c 60 69 25 2c  79 6d 25 2c 7a 6d 2c 5f  |_i%,`i%,ym%,zm,_|
000184b0  6d 2c 73 2c 49 6a 25 2c  42 6a 25 2c 43 6a 2c 44  |m,s,Ij%,Bj%,Cj,D|
000184c0  6a 25 2c 45 6a 25 2c 46  6a 25 2c 60 6d 25 2c 4a  |j%,Ej%,Fj%,`m%,J|
000184d0  6a 25 2c 48 6a 25 2c 4b  6a 25 2c 4b 69 25 29 3a  |j%,Hj%,Kj%,Ki%):|
000184e0  ea 48 62 24 3a f2 62 6d  28 32 2c 31 31 2b 36 2a  |.Hb$:.bm(2,11+6*|
000184f0  28 42 6a 25 2b 31 29 2c  4f 6d 25 2c 50 6d 25 2c  |(Bj%+1),Om%,Pm%,|
00018500  51 6d 25 2c 52 6d 25 29  3a f2 63 6d 28 2d 31 2c  |Qm%,Rm%):.cm(-1,|
00018510  26 30 30 30 30 30 30 30  30 2c 7a 6d 2c 26 30 29  |&00000000,zm,&0)|
00018520  3a e3 59 25 3d 30 b8 42  6a 25 3a f2 64 6d 28 32  |:.Y%=0.Bj%:.dm(2|
00018530  2c 79 69 25 2d 79 6d 25  2d 32 2a 79 6d 25 2a 4b  |,yi%-ym%-2*ym%*K|
00018540  6a 25 2c 7a 69 25 2b 60  69 25 2a 73 2a 28 49 6a  |j%,zi%+`i%*s*(Ij|
00018550  25 2b 43 6a 2a 59 25 29  29 0d 52 24 37 f2 64 6d  |%+Cj*Y%)).R$7.dm|
00018560  28 38 2c 79 69 25 2c 7a  69 25 2b 60 69 25 2a 73  |(8,yi%,zi%+`i%*s|
00018570  2a 28 49 6a 25 2b 43 6a  2a 59 25 29 29 3a ed 3a  |*(Ij%+Cj*Y%)):.:|
00018580  f2 64 6d 28 30 2c 30 2c  30 29 3a e7 4b 69 25 8c  |.dm(0,0,0):.Ki%.|
00018590  0d 52 30 ba f2 62 6d 28  32 2c 31 34 2b 36 2a 28  |.R0..bm(2,14+6*(|
000185a0  42 6a 25 2b 31 29 2c 4f  6d 25 2c 50 6d 25 2c 51  |Bj%+1),Om%,Pm%,Q|
000185b0  6d 25 2c 52 6d 25 29 3a  f2 63 6d 28 2d 31 2c 26  |m%,Rm%):.cm(-1,&|
000185c0  30 30 30 30 30 30 30 30  2c 5f 6d 2c 26 38 30 29  |00000000,_m,&80)|
000185d0  3a f2 4e 6d 28 32 35 36  2a 35 29 3a f2 4e 6d 28  |:.Nm(256*5):.Nm(|
000185e0  31 29 3a f2 4e 6d 28 32  35 36 2a 35 29 3a e3 59  |1):.Nm(256*5):.Y|
000185f0  25 3d 30 b8 42 6a 25 3a  f2 64 6d 28 32 2c 79 69  |%=0.Bj%:.dm(2,yi|
00018600  25 2c 7a 69 25 2b 60 69  25 2a 73 2a 28 49 6a 25  |%,zi%+`i%*s*(Ij%|
00018610  2b 43 6a 2a 59 25 29 29  3a f2 64 6d 28 38 2c 79  |+Cj*Y%)):.dm(8,y|
00018620  69 25 2b 5f 69 25 2c 7a  69 25 2b 60 69 25 2a 73  |i%+_i%,zi%+`i%*s|
00018630  2a 28 49 6a 25 2b 43 6a  2a 59 25 29 29 3a ed 3a  |*(Ij%+Cj*Y%)):.:|
00018640  f2 64 6d 28 30 2c 30 2c  30 29 0d 52 50 15 cd 3a  |.dm(0,0,0).RP..:|
00018650  e3 59 25 3d 30 b8 42 6a  25 3a e7 48 6a 25 8c 0d  |.Y%=0.Bj%:.Hj%..|
00018660  52 5c 25 48 62 24 3d 22  20 22 2b c3 28 a8 28 28  |R\%Hb$=" "+.(.((|
00018670  78 69 25 2b 49 6a 25 2b  43 6a 2a 59 25 29 2f 44  |xi%+Ij%+Cj*Y%)/D|
00018680  6a 25 29 29 0d 52 5e 2c  cc 3a e7 28 78 69 25 2b  |j%)).R^,.:.(xi%+|
00018690  49 6a 25 2b 43 6a 2a 59  25 29 3e 3d 30 8c 4c 6a  |Ij%+Cj*Y%)>=0.Lj|
000186a0  3d 30 2e 30 30 31 8b 4c  6a 3d 2d 30 2e 30 30 31  |=0.001.Lj=-0.001|
000186b0  0d 52 62 44 48 62 24 3d  22 20 22 2b c0 c3 28 28  |.RbDHb$=" "+..((|
000186c0  78 69 25 2b 49 6a 25 2b  43 6a 2a 59 25 29 2f 44  |xi%+Ij%+Cj*Y%)/D|
000186d0  6a 25 2b 4c 6a 29 2c a4  4a 6a 28 28 78 69 25 2b  |j%+Lj),.Jj((xi%+|
000186e0  49 6a 25 2b 43 6a 2a 59  25 29 2f 44 6a 25 2c 4a  |Ij%+Cj*Y%)/Dj%,J|
000186f0  6a 25 29 29 0d 52 64 28  cd 3a e7 94 28 78 69 25  |j%)).Rd(.:..(xi%|
00018700  2b 49 6a 25 2b 43 6a 2a  59 25 29 3c 3d 30 2e 30  |+Ij%+Cj*Y%)<=0.0|
00018710  30 31 8c 3a 48 62 24 3d  22 30 20 22 0d 52 68 1d  |01.:Hb$="0 ".Rh.|
00018720  66 6d 25 3d a8 28 28 a9  28 48 62 24 29 29 2f 34  |fm%=.((.(Hb$))/4|
00018730  29 2b 31 3a e7 48 6a 25  8c 0d 52 6c 30 45 6a 25  |)+1:.Hj%..Rl0Ej%|
00018740  3d 28 4b 6a 25 2b 31 29  2a 28 2d 32 2a 79 6d 25  |=(Kj%+1)*(-2*ym%|
00018750  2d 60 6d 25 2a a9 28 48  62 24 29 29 2d 31 2e 32  |-`m%*.(Hb$))-1.2|
00018760  35 2a 4b 6a 25 2a 79 6d  25 0d 52 6e 38 cc 3a 45  |5*Kj%*ym%.Rn8.:E|
00018770  6a 25 3d 28 4b 6a 25 2b  31 29 2a 28 2d 32 2a 79  |j%=(Kj%+1)*(-2*y|
00018780  6d 25 2d 60 6d 25 2a a9  28 48 62 24 29 2b 60 6d  |m%-`m%*.(Hb$)+`m|
00018790  25 2f 32 29 2d 31 2e 32  35 2a 4b 6a 25 2a 79 6d  |%/2)-1.25*Kj%*ym|
000187a0  25 0d 52 72 70 cd 3a f2  62 6d 28 31 2c 31 33 2b  |%.Rrp.:.bm(1,13+|
000187b0  66 6d 25 2c 4f 6d 25 2c  50 6d 25 2c 51 6d 25 2c  |fm%,Om%,Pm%,Qm%,|
000187c0  52 6d 25 29 3a f2 65 6d  28 26 30 30 30 30 30 30  |Rm%):.em(&000000|
000187d0  30 30 2c 26 46 46 46 46  46 46 30 30 2c 31 2c 60  |00,&FFFFFF00,1,`|
000187e0  6d 25 2c 60 6d 25 2c 79  69 25 2b 45 6a 25 2c 7a  |m%,`m%,yi%+Ej%,z|
000187f0  69 25 2b 46 6a 25 2b 60  69 25 2a 73 2a 28 49 6a  |i%+Fj%+`i%*s*(Ij|
00018800  25 2b 43 6a 2a 59 25 29  2c 48 62 24 2c 30 29 3a  |%+Cj*Y%),Hb$,0):|
00018810  ed 0d 52 7e 07 cb 3a e1  0d 52 84 28 dd f2 64 6d  |..R~..:..R.(..dm|
00018820  28 41 6e 25 2c 78 2c 79  29 3a f2 4e 6d 28 41 6e  |(An%,x,y):.Nm(An|
00018830  25 29 3a e7 41 6e 25 3d  32 84 41 6e 25 3d 38 8c  |%):.An%=2.An%=8.|
00018840  0d 52 94 19 f2 4e 6d 28  32 35 36 2a 78 29 3a f2  |.R...Nm(256*x):.|
00018850  4e 6d 28 32 35 36 2a 79  29 0d 52 98 07 cd 3a e1  |Nm(256*y).R...:.|
00018860  0d 52 9e 3c dd f2 65 6d  28 42 6e 25 2c 43 6e 25  |.R.<..em(Bn%,Cn%|
00018870  2c 44 6e 25 2c 45 6e 25  2c 46 6e 25 2c 47 6e 25  |,Dn%,En%,Fn%,Gn%|
00018880  2c 48 6e 25 2c 48 62 24  2c 49 6e 25 29 3a ea 72  |,Hn%,Hb$,In%):.r|
00018890  6c 25 2c 6a 6d 25 3a e7  49 6e 25 8c 0d 52 ac 4f  |l%,jm%:.In%..R.O|
000188a0  f2 4e 6d 28 43 60 25 21  30 29 3a f2 4e 6d 28 43  |.Nm(C`%!0):.Nm(C|
000188b0  60 25 21 34 29 3a f2 4e  6d 28 43 60 25 21 38 29  |`%!4):.Nm(C`%!8)|
000188c0  3a f2 4e 6d 28 43 60 25  21 31 32 29 3a f2 4e 6d  |:.Nm(C`%!12):.Nm|
000188d0  28 43 60 25 21 31 36 29  3a f2 4e 6d 28 43 60 25  |(C`%!16):.Nm(C`%|
000188e0  21 32 30 29 3a f2 4e 6d  28 30 29 0d 52 ba 93 cd  |!20):.Nm(0).R...|
000188f0  3a f2 4e 6d 28 42 6e 25  29 3a f2 4e 6d 28 43 6e  |:.Nm(Bn%):.Nm(Cn|
00018900  25 29 3a f2 4e 6d 28 44  6e 25 29 3a f2 4e 6d 28  |%):.Nm(Dn%):.Nm(|
00018910  36 34 30 2a 45 6e 25 29  3a f2 4e 6d 28 36 34 30  |640*En%):.Nm(640|
00018920  2a 46 6e 25 29 3a f2 4e  6d 28 32 35 36 2a 47 6e  |*Fn%):.Nm(256*Gn|
00018930  25 29 3a f2 4e 6d 28 32  35 36 2a 48 6e 25 29 3a  |%):.Nm(256*Hn%):|
00018940  d5 23 6b 68 25 2c 48 62  24 3b 3a 72 6c 25 3d a9  |.#kh%,Hb$;:rl%=.|
00018950  28 48 62 24 29 3a 6a 6d  25 3d 72 6c 25 83 34 3a  |(Hb$):jm%=rl%.4:|
00018960  c8 95 6a 6d 25 3c 34 3a  d5 23 6b 68 25 2c bd 28  |..jm%<4:.#kh%,.(|
00018970  30 29 3b 3a 6a 6d 25 2b  3d 31 3a ce 3a e1 0d 52  |0);:jm%+=1:.:..R|
00018980  dc 6b dd f2 62 6d 28 4a  6e 25 2c 6c 68 25 2c 4b  |.k..bm(Jn%,lh%,K|
00018990  6e 25 2c 4c 6e 25 2c 4d  6e 25 2c 4e 6e 25 29 3a  |n%,Ln%,Mn%,Nn%):|
000189a0  f2 4e 6d 28 4a 6e 25 29  3a f2 4e 6d 28 34 2a 6c  |.Nm(Jn%):.Nm(4*l|
000189b0  68 25 29 3a f2 4e 6d 28  32 35 36 2a 4d 6e 25 29  |h%):.Nm(256*Mn%)|
000189c0  3a f2 4e 6d 28 32 35 36  2a 4e 6e 25 29 3a f2 4e  |:.Nm(256*Nn%):.N|
000189d0  6d 28 32 35 36 2a 4b 6e  25 29 3a f2 4e 6d 28 32  |m(256*Kn%):.Nm(2|
000189e0  35 36 2a 4c 6e 25 29 3a  e1 0d 52 ee 41 dd f2 63  |56*Ln%):..R.A..c|
000189f0  6d 28 4f 6e 25 2c 50 6e  25 2c 51 6e 2c 43 61 25  |m(On%,Pn%,Qn,Ca%|
00018a00  29 3a f2 4e 6d 28 4f 6e  25 29 3a f2 4e 6d 28 50  |):.Nm(On%):.Nm(P|
00018a10  6e 25 29 3a f2 4e 6d 28  36 34 30 2a 51 6e 29 3a  |n%):.Nm(640*Qn):|
00018a20  f2 4e 6d 28 43 61 25 29  3a e1 0d 53 02 63 dd f2  |.Nm(Ca%):..S.c..|
00018a30  50 62 28 73 68 25 2c 47  62 25 29 3a 21 58 5f 25  |Pb(sh%,Gb%):!X_%|
00018a40  3d 73 68 25 3a 58 5f 25  21 34 3d 47 62 25 3a c8  |=sh%:X_%!4=Gb%:.|
00018a50  99 32 36 32 33 35 30 2c  2c 58 5f 25 3a 58 5f 25  |.262350,,X_%:X_%|
00018a60  21 38 3d 26 30 30 32 30  30 30 30 30 3a 58 5f 25  |!8=&00200000:X_%|
00018a70  21 31 32 3d 26 30 30 32  30 30 30 30 30 3a c8 99  |!12=&00200000:..|
00018a80  32 36 32 33 34 39 2c 2c  58 5f 25 3a e1 0d 53 14  |262349,,X_%:..S.|
00018a90  5b dd f2 52 62 28 73 68  25 2c 47 62 25 29 3a 21  |[..Rb(sh%,Gb%):!|
00018aa0  58 5f 25 3d 73 68 25 3a  58 5f 25 21 34 3d 47 62  |X_%=sh%:X_%!4=Gb|
00018ab0  25 3a c8 99 32 36 32 33  35 30 2c 2c 58 5f 25 3a  |%:..262350,,X_%:|
00018ac0  58 5f 25 21 38 3d 30 3a  58 5f 25 21 31 32 3d 26  |X_%!8=0:X_%!12=&|
00018ad0  30 30 32 30 30 30 30 30  3a c8 99 32 36 32 33 34  |00200000:..26234|
00018ae0  39 2c 2c 58 5f 25 3a e1  0d 53 26 5b dd f2 51 62  |9,,X_%:..S&[..Qb|
00018af0  28 73 68 25 2c 47 62 25  29 3a 21 58 5f 25 3d 73  |(sh%,Gb%):!X_%=s|
00018b00  68 25 3a 58 5f 25 21 34  3d 47 62 25 3a c8 99 32  |h%:X_%!4=Gb%:..2|
00018b10  36 32 33 35 30 2c 2c 58  5f 25 3a 58 5f 25 21 38  |62350,,X_%:X_%!8|
00018b20  3d 26 30 30 32 30 30 30  30 30 3a 58 5f 25 21 31  |=&00200000:X_%!1|
00018b30  32 3d 30 3a c8 99 32 36  32 33 34 39 2c 2c 58 5f  |2=0:..262349,,X_|
00018b40  25 3a e1 0d 53 38 75 dd  f2 43 63 28 73 68 25 2c  |%:..S8u..Cc(sh%,|
00018b50  67 6c 25 2c 4e 69 25 29  3a 21 58 5f 25 3d 73 68  |gl%,Ni%):!X_%=sh|
00018b60  25 3a 58 5f 25 21 34 3d  67 6c 25 3a c8 99 32 36  |%:X_%!4=gl%:..26|
00018b70  32 33 35 30 2c 2c 58 5f  25 3a 58 5f 25 21 38 3d  |2350,,X_%:X_%!8=|
00018b80  26 30 30 30 30 30 30 30  30 3a 58 5f 25 21 31 31  |&00000000:X_%!11|
00018b90  3d 31 36 2a 4e 69 25 3a  58 5f 25 21 31 32 3d 26  |=16*Ni%:X_%!12=&|
00018ba0  46 30 30 30 30 30 30 30  3a c8 99 32 36 32 33 34  |F0000000:..26234|
00018bb0  39 2c 2c 58 5f 25 3a e1  0d 53 46 72 dd f2 52 6e  |9,,X_%:..SFr..Rn|
00018bc0  28 73 68 25 2c 67 6c 25  2c 4e 69 25 29 3a 21 58  |(sh%,gl%,Ni%):!X|
00018bd0  5f 25 3d 73 68 25 3a 58  5f 25 21 34 3d 67 6c 25  |_%=sh%:X_%!4=gl%|
00018be0  3a c8 99 32 36 32 33 35  30 2c 2c 58 5f 25 3a 58  |:..262350,,X_%:X|
00018bf0  5f 25 21 38 3d 26 30 30  30 30 30 30 30 30 3a 58  |_%!8=&00000000:X|
00018c00  5f 25 21 31 32 3d 26 30  46 30 30 30 30 30 30 3a  |_%!12=&0F000000:|
00018c10  58 5f 25 21 31 31 3d 4e  69 25 3a c8 99 32 36 32  |X_%!11=Ni%:..262|
00018c20  33 34 39 2c 2c 58 5f 25  3a e1 0d 53 56 68 dd f2  |349,,X_%:..SVh..|
00018c30  66 62 28 73 68 25 2c 67  6c 25 2c 48 62 25 29 3a  |fb(sh%,gl%,Hb%):|
00018c40  21 58 5f 25 3d 73 68 25  3a 58 5f 25 21 34 3d 67  |!X_%=sh%:X_%!4=g|
00018c50  6c 25 3a c8 99 32 36 32  33 35 30 2c 2c 58 5f 25  |l%:..262350,,X_%|
00018c60  3a 24 28 58 5f 25 21 32  38 29 3d c3 28 48 62 25  |:$(X_%!28)=.(Hb%|
00018c70  29 3a 58 5f 25 21 38 3d  30 3a 58 5f 25 21 31 32  |):X_%!8=0:X_%!12|
00018c80  3d 30 3a c8 99 32 36 32  33 34 39 2c 2c 58 5f 25  |=0:..262349,,X_%|
00018c90  3a e1 0d 53 6a 65 dd f2  7a 63 28 73 68 25 2c 67  |:..Sje..zc(sh%,g|
00018ca0  6c 25 2c 48 62 24 29 3a  21 58 5f 25 3d 73 68 25  |l%,Hb$):!X_%=sh%|
00018cb0  3a 58 5f 25 21 34 3d 67  6c 25 3a c8 99 32 36 32  |:X_%!4=gl%:..262|
00018cc0  33 35 30 2c 2c 58 5f 25  3a 24 28 58 5f 25 21 32  |350,,X_%:$(X_%!2|
00018cd0  38 29 3d 48 62 24 3a 58  5f 25 21 38 3d 30 3a 58  |8)=Hb$:X_%!8=0:X|
00018ce0  5f 25 21 31 32 3d 30 3a  c8 99 32 36 32 33 34 39  |_%!12=0:..262349|
00018cf0  2c 2c 58 5f 25 3a e1 0d  53 7e 45 dd f2 53 6e 28  |,,X_%:..S~E..Sn(|
00018d00  73 68 25 2c 67 6c 25 29  3a 21 58 5f 25 3d 73 68  |sh%,gl%):!X_%=sh|
00018d10  25 3a 58 5f 25 21 34 3d  67 6c 25 3a c8 99 32 36  |%:X_%!4=gl%:..26|
00018d20  32 33 35 30 2c 2c 58 5f  25 3a 68 6c 25 3d bb 28  |2350,,X_%:hl%=.(|
00018d30  24 28 58 5f 25 21 32 38  29 29 3a e1 0d 53 8a 47  |$(X_%!28)):..S.G|
00018d40  dd f2 75 67 28 73 68 25  2c 67 6c 25 2c 44 64 25  |..ug(sh%,gl%,Dd%|
00018d50  29 3a 21 58 5f 25 3d 73  68 25 3a 58 5f 25 21 34  |):!X_%=sh%:X_%!4|
00018d60  3d 67 6c 25 3a c8 99 32  36 32 33 35 30 2c 2c 58  |=gl%:..262350,,X|
00018d70  5f 25 3a 24 44 64 25 3d  24 28 58 5f 25 21 32 38  |_%:$Dd%=$(X_%!28|
00018d80  29 3a e1 0d 53 9a 48 dd  f2 52 68 28 73 68 25 2c  |):..S.H..Rh(sh%,|
00018d90  67 6c 25 2c 44 64 25 2c  54 6e 25 29 3a 21 58 5f  |gl%,Dd%,Tn%):!X_|
00018da0  25 3d 73 68 25 3a 58 5f  25 21 34 3d 67 6c 25 3a  |%=sh%:X_%!4=gl%:|
00018db0  c8 99 32 36 32 33 35 30  2c 2c 58 5f 25 3a 24 28  |..262350,,X_%:$(|
00018dc0  54 6e 25 29 3d 24 44 64  25 3a e1 0d 53 aa 54 dd  |Tn%)=$Dd%:..S.T.|
00018dd0  f2 77 61 28 55 6e 25 2c  56 6e 25 29 3a ea 4f 68  |.wa(Un%,Vn%):.Oh|
00018de0  25 3a 4f 68 25 3d 21 28  55 6e 25 2b 32 38 2b 32  |%:Oh%=!(Un%+28+2|
00018df0  34 2a 56 6e 25 29 3a 4f  68 25 3d 4f 68 25 84 26  |4*Vn%):Oh%=Oh%.&|
00018e00  30 30 30 30 30 30 30 31  3a 21 28 55 6e 25 2b 32  |00000001:!(Un%+2|
00018e10  38 2b 32 34 2a 56 6e 25  29 3d 4f 68 25 3a e1 0d  |8+24*Vn%)=Oh%:..|
00018e20  53 be 54 dd f2 78 61 28  55 6e 25 2c 56 6e 25 29  |S.T..xa(Un%,Vn%)|
00018e30  3a ea 4f 68 25 3a 4f 68  25 3d 21 28 55 6e 25 2b  |:.Oh%:Oh%=!(Un%+|
00018e40  32 38 2b 32 34 2a 56 6e  25 29 3a 4f 68 25 3d 4f  |28+24*Vn%):Oh%=O|
00018e50  68 25 80 26 46 46 46 46  46 46 46 45 3a 21 28 55  |h%.&FFFFFFFE:!(U|
00018e60  6e 25 2b 32 38 2b 32 34  2a 56 6e 25 29 3d 4f 68  |n%+28+24*Vn%)=Oh|
00018e70  25 3a e1 0d 53 d2 54 dd  f2 71 61 28 55 6e 25 2c  |%:..S.T..qa(Un%,|
00018e80  56 6e 25 29 3a ea 4f 68  25 3a 4f 68 25 3d 21 28  |Vn%):.Oh%:Oh%=!(|
00018e90  55 6e 25 2b 33 36 2b 32  34 2a 56 6e 25 29 3a 4f  |Un%+36+24*Vn%):O|
00018ea0  68 25 3d 4f 68 25 84 26  30 30 34 30 30 30 30 30  |h%=Oh%.&00400000|
00018eb0  3a 21 28 55 6e 25 2b 33  36 2b 32 34 2a 56 6e 25  |:!(Un%+36+24*Vn%|
00018ec0  29 3d 4f 68 25 3a e1 0d  53 e6 54 dd f2 7a 67 28  |)=Oh%:..S.T..zg(|
00018ed0  55 6e 25 2c 56 6e 25 29  3a ea 4f 68 25 3a 4f 68  |Un%,Vn%):.Oh%:Oh|
00018ee0  25 3d 21 28 55 6e 25 2b  33 36 2b 32 34 2a 56 6e  |%=!(Un%+36+24*Vn|
00018ef0  25 29 3a 4f 68 25 3d 4f  68 25 80 26 46 46 42 46  |%):Oh%=Oh%.&FFBF|
00018f00  46 46 46 46 3a 21 28 55  6e 25 2b 33 36 2b 32 34  |FFFF:!(Un%+36+24|
00018f10  2a 56 6e 25 29 3d 4f 68  25 3a e1 0d 53 fa 79 dd  |*Vn%)=Oh%:..S.y.|
00018f20  f2 78 67 28 55 6e 25 2c  57 6e 25 2c 58 6e 25 2c  |.xg(Un%,Wn%,Xn%,|
00018f30  59 6e 25 29 3a c8 99 32  36 32 33 35 31 2c 2c 58  |Yn%):..262351,,X|
00018f40  5f 25 3a 58 5f 25 21 30  3d 58 5f 25 21 31 32 3a  |_%:X_%!0=X_%!12:|
00018f50  c8 99 32 36 32 33 34 37  2c 2c 58 5f 25 3a 4e 62  |..262347,,X_%:Nb|
00018f60  25 3d 58 5f 25 21 34 2d  58 5f 25 21 32 30 3a 4f  |%=X_%!4-X_%!20:O|
00018f70  62 25 3d 58 5f 25 21 31  36 2d 58 5f 25 21 32 34  |b%=X_%!16-X_%!24|
00018f80  3a c8 99 32 36 32 33 35  31 2c 2c 58 5f 25 3a e7  |:..262351,,X_%:.|
00018f90  59 6e 25 8c 0d 54 0c 1f  43 68 25 3d 58 5f 25 21  |Yn%..T..Ch%=X_%!|
00018fa0  30 2b 57 6e 25 3a 44 68  25 3d 58 5f 25 21 34 2b  |0+Wn%:Dh%=X_%!4+|
00018fb0  58 6e 25 0d 54 10 4e cc  3a 44 68 25 3d 58 5f 25  |Xn%.T.N.:Dh%=X_%|
00018fc0  21 34 2b 58 6e 25 3a 58  5f 25 21 30 3d 58 5f 25  |!4+Xn%:X_%!0=X_%|
00018fd0  21 31 32 3a 58 5f 25 21  34 3d 58 5f 25 21 31 36  |!12:X_%!4=X_%!16|
00018fe0  3a c8 99 32 36 32 33 35  30 2c 2c 58 5f 25 3a 43  |:..262350,,X_%:C|
00018ff0  68 25 3d 4e 62 25 2b 58  5f 25 21 31 36 2b 57 6e  |h%=Nb%+X_%!16+Wn|
00019000  25 0d 54 1c 1d cd 3a c8  99 32 36 32 33 35 36 2c  |%.T...:..262356,|
00019010  2c 55 6e 25 2c 43 68 25  2c 44 68 25 3a e1 0d 54  |,Un%,Ch%,Dh%:..T|
00019020  24 b3 dd f2 70 61 28 55  6e 25 29 3a f3 5a 6e 24  |$...pa(Un%):.Zn$|
00019030  2c 61 6e 25 3a 24 55 6e  25 3d 5a 6e 24 3a 62 6e  |,an%:$Un%=Zn$:bn|
00019040  25 3d 28 a9 28 5a 6e 24  29 2d 32 29 2a 31 36 3a  |%=(.(Zn$)-2)*16:|
00019050  55 6e 25 21 31 32 3d 26  37 30 32 30 37 3a 55 6e  |Un%!12=&70207:Un|
00019060  25 21 32 30 3d 34 34 3a  55 6e 25 21 32 34 3d 30  |%!20=44:Un%!24=0|
00019070  3a 55 6c 25 3d 55 6e 25  2b 32 38 3a e3 69 25 3d  |:Ul%=Un%+28:.i%=|
00019080  31 b8 61 6e 25 3a f3 63  6e 25 2c 64 6e 25 2c 56  |1.an%:.cn%,dn%,V|
00019090  6e 24 3a 21 55 6c 25 3d  63 6e 25 3a 55 6c 25 21  |n$:!Ul%=cn%:Ul%!|
000190a0  34 3d 64 6e 25 3a 55 6c  25 21 38 3d 26 37 30 30  |4=dn%:Ul%!8=&700|
000190b0  30 30 32 31 3a e7 55 6e  25 3d 47 60 25 8c 55 6c  |0021:.Un%=G`%.Ul|
000190c0  25 21 31 31 3d 26 37 2b  31 36 2a 28 69 25 2d 31  |%!11=&7+16*(i%-1|
000190d0  29 0d 54 38 31 24 28 55  6c 25 2b 31 32 29 3d 56  |).T81$(Ul%+12)=V|
000190e0  6e 24 3a 61 25 3d 28 a9  28 56 6e 24 29 2b 31 29  |n$:a%=(.(Vn$)+1)|
000190f0  2a 31 36 3a e7 61 25 3e  62 6e 25 20 62 6e 25 3d  |*16:.a%>bn% bn%=|
00019100  61 25 0d 54 3e 1c 55 6c  25 2b 3d 32 34 3a ed 69  |a%.T>.Ul%+=24:.i|
00019110  25 3a 55 6e 25 21 31 36  3d 62 6e 25 3a e1 0d 54  |%:Un%!16=bn%:..T|
00019120  48 46 dd f2 55 68 3a ea  63 68 24 3a 65 6e 25 3d  |HF..Uh:.ch$:en%=|
00019130  52 60 25 3a c8 99 32 36  33 38 37 32 3a 6b 68 25  |R`%:..263872:kh%|
00019140  3d 8e 28 24 65 6e 25 29  3a e8 23 6b 68 25 2c 63  |=.($en%):.#kh%,c|
00019150  68 24 3a e7 63 68 24 3d  22 43 4f 32 65 66 66 65  |h$:.ch$="CO2effe|
00019160  63 74 22 8c 0d 54 5e e5  e3 4d 25 3d 30 b8 35 3a  |ct"..T^..M%=0.5:|
00019170  e8 23 6b 68 25 2c 7a 64  25 28 4d 25 29 3a e8 23  |.#kh%,zd%(M%):.#|
00019180  6b 68 25 2c 60 64 25 28  4d 25 29 3a e8 23 6b 68  |kh%,`d%(M%):.#kh|
00019190  25 2c 42 65 25 28 4d 25  29 3a e8 23 6b 68 25 2c  |%,Be%(M%):.#kh%,|
000191a0  44 65 25 28 4d 25 29 3a  e8 23 6b 68 25 2c 46 65  |De%(M%):.#kh%,Fe|
000191b0  25 28 4d 25 29 3a e8 23  6b 68 25 2c 4c 65 25 28  |%(M%):.#kh%,Le%(|
000191c0  4d 25 29 3a e8 23 6b 68  25 2c 48 65 25 28 4d 25  |M%):.#kh%,He%(M%|
000191d0  2c 31 29 3a e8 23 6b 68  25 2c 48 65 25 28 4d 25  |,1):.#kh%,He%(M%|
000191e0  2c 32 29 3a e8 23 6b 68  25 2c 48 65 25 28 4d 25  |,2):.#kh%,He%(M%|
000191f0  2c 33 29 3a e8 23 6b 68  25 2c 48 65 25 28 4d 25  |,3):.#kh%,He%(M%|
00019200  2c 34 29 3a e8 23 6b 68  25 2c 65 65 25 28 4d 25  |,4):.#kh%,ee%(M%|
00019210  29 3a e8 23 6b 68 25 2c  69 65 25 28 4d 25 29 3a  |):.#kh%,ie%(M%):|
00019220  e8 23 6b 68 25 2c 6b 65  25 28 4d 25 29 3a e8 23  |.#kh%,ke%(M%):.#|
00019230  6b 68 25 2c 6d 65 25 28  4d 25 29 3a e8 23 6b 68  |kh%,me%(M%):.#kh|
00019240  25 2c 67 65 25 28 4d 25  29 0d 54 84 e3 e8 23 6b  |%,ge%(M%).T...#k|
00019250  68 25 2c 4e 65 25 28 4d  25 29 3a e8 23 6b 68 25  |h%,Ne%(M%):.#kh%|
00019260  2c 50 65 25 28 4d 25 29  3a e8 23 6b 68 25 2c 52  |,Pe%(M%):.#kh%,R|
00019270  65 25 28 4d 25 29 3a e8  23 6b 68 25 2c 54 65 25  |e%(M%):.#kh%,Te%|
00019280  28 4d 25 29 3a e8 23 6b  68 25 2c 56 65 25 28 4d  |(M%):.#kh%,Ve%(M|
00019290  25 29 3a e8 23 6b 68 25  2c 5a 65 25 28 4d 25 29  |%):.#kh%,Ze%(M%)|
000192a0  3a e8 23 6b 68 25 2c 41  66 25 28 4d 25 29 3a e8  |:.#kh%,Af%(M%):.|
000192b0  23 6b 68 25 2c 43 66 25  28 4d 25 29 3a e8 23 6b  |#kh%,Cf%(M%):.#k|
000192c0  68 25 2c 47 66 25 28 4d  25 29 3a e8 23 6b 68 25  |h%,Gf%(M%):.#kh%|
000192d0  2c 49 66 25 28 4d 25 29  3a e8 23 6b 68 25 2c 4b  |,If%(M%):.#kh%,K|
000192e0  66 25 28 4d 25 29 3a e8  23 6b 68 25 2c 4f 66 25  |f%(M%):.#kh%,Of%|
000192f0  28 4d 25 29 3a e8 23 6b  68 25 2c 6f 65 25 28 4d  |(M%):.#kh%,oe%(M|
00019300  25 29 3a e8 23 6b 68 25  2c 71 65 25 28 4d 25 29  |%):.#kh%,qe%(M%)|
00019310  3a e8 23 6b 68 25 2c 73  65 25 28 4d 25 29 3a e8  |:.#kh%,se%(M%):.|
00019320  23 6b 68 25 2c 75 65 25  28 4d 25 29 0d 54 aa 59  |#kh%,ue%(M%).T.Y|
00019330  e8 23 6b 68 25 2c 77 65  25 28 4d 25 29 3a e8 23  |.#kh%,we%(M%):.#|
00019340  6b 68 25 2c 5f 65 25 28  4d 25 29 3a e8 23 6b 68  |kh%,_e%(M%):.#kh|
00019350  25 2c 51 66 25 28 4d 25  29 3a e8 23 6b 68 25 2c  |%,Qf%(M%):.#kh%,|
00019360  53 66 25 28 4d 25 29 3a  e8 23 6b 68 25 2c 55 66  |Sf%(M%):.#kh%,Uf|
00019370  25 28 4d 25 29 3a e8 23  6b 68 25 2c 59 66 25 28  |%(M%):.#kh%,Yf%(|
00019380  4d 25 29 3a ed 0d 54 ba  16 cd 3a d9 23 6b 68 25  |M%):..T...:.#kh%|
00019390  3a c8 99 32 36 33 38 37  33 3a e1 0d 54 c4 d9 dd  |:..263873:..T...|
000193a0  f2 54 68 3a c8 99 32 36  33 38 37 32 3a 6b 68 25  |.Th:..263872:kh%|
000193b0  3d ae 28 24 51 60 25 29  3a f1 23 6b 68 25 2c 22  |=.($Q`%):.#kh%,"|
000193c0  43 4f 32 65 66 66 65 63  74 22 3a e3 4d 25 3d 30  |CO2effect":.M%=0|
000193d0  b8 35 3a f1 23 6b 68 25  2c 7a 64 25 28 4d 25 29  |.5:.#kh%,zd%(M%)|
000193e0  3a f1 23 6b 68 25 2c 60  64 25 28 4d 25 29 3a f1  |:.#kh%,`d%(M%):.|
000193f0  23 6b 68 25 2c 42 65 25  28 4d 25 29 3a f1 23 6b  |#kh%,Be%(M%):.#k|
00019400  68 25 2c 44 65 25 28 4d  25 29 3a f1 23 6b 68 25  |h%,De%(M%):.#kh%|
00019410  2c 46 65 25 28 4d 25 29  3a f1 23 6b 68 25 2c 4c  |,Fe%(M%):.#kh%,L|
00019420  65 25 28 4d 25 29 3a f1  23 6b 68 25 2c 48 65 25  |e%(M%):.#kh%,He%|
00019430  28 4d 25 2c 31 29 3a f1  23 6b 68 25 2c 48 65 25  |(M%,1):.#kh%,He%|
00019440  28 4d 25 2c 32 29 3a f1  23 6b 68 25 2c 48 65 25  |(M%,2):.#kh%,He%|
00019450  28 4d 25 2c 33 29 3a f1  23 6b 68 25 2c 48 65 25  |(M%,3):.#kh%,He%|
00019460  28 4d 25 2c 34 29 3a f1  23 6b 68 25 2c 65 65 25  |(M%,4):.#kh%,ee%|
00019470  28 4d 25 29 0d 54 f0 e3  f1 23 6b 68 25 2c 69 65  |(M%).T...#kh%,ie|
00019480  25 28 4d 25 29 3a f1 23  6b 68 25 2c 6b 65 25 28  |%(M%):.#kh%,ke%(|
00019490  4d 25 29 3a f1 23 6b 68  25 2c 6d 65 25 28 4d 25  |M%):.#kh%,me%(M%|
000194a0  29 3a f1 23 6b 68 25 2c  67 65 25 28 4d 25 29 3a  |):.#kh%,ge%(M%):|
000194b0  f1 23 6b 68 25 2c 4e 65  25 28 4d 25 29 3a f1 23  |.#kh%,Ne%(M%):.#|
000194c0  6b 68 25 2c 50 65 25 28  4d 25 29 3a f1 23 6b 68  |kh%,Pe%(M%):.#kh|
000194d0  25 2c 52 65 25 28 4d 25  29 3a f1 23 6b 68 25 2c  |%,Re%(M%):.#kh%,|
000194e0  54 65 25 28 4d 25 29 3a  f1 23 6b 68 25 2c 56 65  |Te%(M%):.#kh%,Ve|
000194f0  25 28 4d 25 29 3a f1 23  6b 68 25 2c 5a 65 25 28  |%(M%):.#kh%,Ze%(|
00019500  4d 25 29 3a f1 23 6b 68  25 2c 41 66 25 28 4d 25  |M%):.#kh%,Af%(M%|
00019510  29 3a f1 23 6b 68 25 2c  43 66 25 28 4d 25 29 3a  |):.#kh%,Cf%(M%):|
00019520  f1 23 6b 68 25 2c 47 66  25 28 4d 25 29 3a f1 23  |.#kh%,Gf%(M%):.#|
00019530  6b 68 25 2c 49 66 25 28  4d 25 29 3a f1 23 6b 68  |kh%,If%(M%):.#kh|
00019540  25 2c 4b 66 25 28 4d 25  29 3a f1 23 6b 68 25 2c  |%,Kf%(M%):.#kh%,|
00019550  4f 66 25 28 4d 25 29 0d  55 18 ba f1 23 6b 68 25  |Of%(M%).U...#kh%|
00019560  2c 6f 65 25 28 4d 25 29  3a f1 23 6b 68 25 2c 71  |,oe%(M%):.#kh%,q|
00019570  65 25 28 4d 25 29 3a f1  23 6b 68 25 2c 73 65 25  |e%(M%):.#kh%,se%|
00019580  28 4d 25 29 3a f1 23 6b  68 25 2c 75 65 25 28 4d  |(M%):.#kh%,ue%(M|
00019590  25 29 3a f1 23 6b 68 25  2c 77 65 25 28 4d 25 29  |%):.#kh%,we%(M%)|
000195a0  3a f1 23 6b 68 25 2c 5f  65 25 28 4d 25 29 3a f1  |:.#kh%,_e%(M%):.|
000195b0  23 6b 68 25 2c 51 66 25  28 4d 25 29 3a f1 23 6b  |#kh%,Qf%(M%):.#k|
000195c0  68 25 2c 53 66 25 28 4d  25 29 3a f1 23 6b 68 25  |h%,Sf%(M%):.#kh%|
000195d0  2c 55 66 25 28 4d 25 29  3a f1 23 6b 68 25 2c 59  |,Uf%(M%):.#kh%,Y|
000195e0  66 25 28 4d 25 29 3a ed  3a d9 23 6b 68 25 3a ff  |f%(M%):.:.#kh%:.|
000195f0  22 53 65 74 54 79 70 65  20 22 2b 24 51 60 25 2b  |"SetType "+$Q`%+|
00019600  22 20 30 37 37 22 3a c8  99 32 36 33 38 37 33 3a  |" 077":..263873:|
00019610  e1 0d 55 3a 47 dd f2 45  64 28 73 68 25 2c 67 6c  |..U:G..Ed(sh%,gl|
00019620  25 2c 44 64 25 29 3a 21  58 5f 25 3d 73 68 25 3a  |%,Dd%):!X_%=sh%:|
00019630  58 5f 25 21 34 3d 67 6c  25 3a c8 99 32 36 32 33  |X_%!4=gl%:..2623|
00019640  35 30 2c 2c 58 5f 25 3a  24 44 64 25 3d 24 28 58  |50,,X_%:$Dd%=$(X|
00019650  5f 25 21 32 38 29 3a e1  0d 55 4a e3 dd f2 76 67  |_%!28):..UJ...vg|
00019660  28 73 68 25 2c 67 6c 25  29 3a ea 4e 62 25 2c 4f  |(sh%,gl%):.Nb%,O|
00019670  62 25 3a 66 6e 25 3d b9  3a 21 58 5f 25 3d 73 68  |b%:fn%=.:!X_%=sh|
00019680  25 3a c8 99 32 36 32 33  34 37 2c 2c 58 5f 25 3a  |%:..262347,,X_%:|
00019690  4e 62 25 3d 58 5f 25 21  34 2d 58 5f 25 21 32 30  |Nb%=X_%!4-X_%!20|
000196a0  3a 4f 62 25 3d 58 5f 25  21 31 36 2d 58 5f 25 21  |:Ob%=X_%!16-X_%!|
000196b0  32 34 3a 58 5f 25 21 34  3d 67 6c 25 3a c8 99 32  |24:X_%!4=gl%:..2|
000196c0  36 32 33 35 30 2c 2c 58  5f 25 3a 58 5f 25 21 34  |62350,,X_%:X_%!4|
000196d0  3d 35 3a 58 5f 25 21 38  3d 4e 62 25 2b 58 5f 25  |=5:X_%!8=Nb%+X_%|
000196e0  21 38 3a 58 5f 25 21 31  32 3d 4f 62 25 2b 58 5f  |!8:X_%!12=Ob%+X_|
000196f0  25 21 31 32 3a 58 5f 25  21 31 36 3d 4e 62 25 2b  |%!12:X_%!16=Nb%+|
00019700  58 5f 25 21 31 36 3a 58  5f 25 21 32 30 3d 4f 62  |X_%!16:X_%!20=Ob|
00019710  25 2b 58 5f 25 21 32 30  3a 58 5f 25 21 32 34 3d  |%+X_%!20:X_%!24=|
00019720  30 3a 58 5f 25 21 32 38  3d 30 3a 58 5f 25 21 33  |0:X_%!28=0:X_%!3|
00019730  32 3d 26 37 46 46 46 46  46 46 46 0d 55 6c 24 58  |2=&7FFFFFFF.Ul$X|
00019740  5f 25 21 33 36 3d 26 37  46 46 46 46 46 46 46 3a  |_%!36=&7FFFFFFF:|
00019750  c8 99 32 36 32 33 35 32  2c 2c 58 5f 25 3a e1 0d  |..262352,,X_%:..|
00019760  55 74 21 dd f2 60 61 3a  ea 67 6e 25 3a c8 99 32  |Ut!..`a:.gn%:..2|
00019770  36 32 33 35 36 2c 2c 2d  31 3a c8 8e 54 60 25 ca  |62356,,-1:..T`%.|
00019780  0d 55 86 1a c9 26 30 37  37 3a 44 64 25 3d 51 60  |.U...&077:Dd%=Q`|
00019790  25 3a 67 6e 25 3d 31 31  31 30 0d 55 88 1b c9 26  |%:gn%=1110.U...&|
000197a0  41 46 46 3a 44 64 25 3d  50 60 25 3a 67 6e 25 3d  |AFF:Dd%=P`%:gn%=|
000197b0  33 32 37 36 38 0d 55 8a  1a c9 26 46 46 46 3a 44  |32768.U...&FFF:D|
000197c0  64 25 3d 53 60 25 3a 67  6e 25 3d 34 30 39 36 0d  |d%=S`%:gn%=4096.|
000197d0  55 8c ae cb 3a c8 99 32  36 32 33 35 31 2c 2c 58  |U...:..262351,,X|
000197e0  5f 25 3a 58 5f 25 21 32  30 3d 58 5f 25 21 31 32  |_%:X_%!20=X_%!12|
000197f0  3a 58 5f 25 21 32 34 3d  58 5f 25 21 31 36 3a 58  |:X_%!24=X_%!16:X|
00019800  5f 25 21 32 38 3d 58 5f  25 21 30 3a 58 5f 25 21  |_%!28=X_%!0:X_%!|
00019810  33 32 3d 58 5f 25 21 34  3a 58 5f 25 21 30 3d 36  |32=X_%!4:X_%!0=6|
00019820  34 3a 58 5f 25 21 31 32  3d 30 3a 58 5f 25 21 31  |4:X_%!12=0:X_%!1|
00019830  36 3d 31 3a 58 5f 25 21  33 36 3d 67 6e 25 3a 58  |6=1:X_%!36=gn%:X|
00019840  5f 25 21 34 30 3d 54 60  25 3a 24 28 58 5f 25 2b  |_%!40=T`%:$(X_%+|
00019850  34 34 29 3d a4 54 6c 28  24 44 64 25 29 3a c8 99  |44)=.Tl($Dd%):..|
00019860  32 36 32 33 37 35 2c 31  38 2c 58 5f 25 2c 58 5f  |262375,18,X_%,X_|
00019870  25 21 32 30 2c 58 5f 25  21 32 34 3a e1 0d 55 aa  |%!20,X_%!24:..U.|
00019880  15 dd f2 46 64 3a e7 a7  24 44 64 25 2c 22 2e 22  |...Fd:..$Dd%,"."|
00019890  29 8c 0d 55 ae 0a c8 8e  54 60 25 ca 0d 55 b0 23  |)..U....T`%..U.#|
000198a0  c9 26 30 37 37 3a f2 4c  61 28 6e 61 25 29 3a c8  |.&077:.La(na%):.|
000198b0  99 32 36 32 33 35 36 2c  2c 2d 31 3a f2 54 68 0d  |.262356,,-1:.Th.|
000198c0  55 b6 23 c9 26 41 46 46  3a f2 4c 61 28 6a 61 25  |U.#.&AFF:.La(ja%|
000198d0  29 3a c8 99 32 36 32 33  35 36 2c 2c 2d 31 3a f2  |):..262356,,-1:.|
000198e0  53 68 0d 55 bc 23 c9 26  46 46 46 3a f2 4c 61 28  |Sh.U.#.&FFF:.La(|
000198f0  6c 61 25 29 3a c8 99 32  36 32 33 35 36 2c 2c 2d  |la%):..262356,,-|
00019900  31 3a f2 51 68 0d 55 c2  0f cb 3a e7 45 61 25 3d  |1:.Qh.U...:.Ea%=|
00019910  4d 61 25 8c 0d 55 c6 41  77 60 25 3d a3 3a 78 60  |Ma%..U.Aw`%=.:x`|
00019920  25 3d a3 3a 79 60 25 3d  b9 3a 7a 60 25 3d b9 3a  |%=.:y`%=.:z`%=.:|
00019930  75 61 25 3d 4d 61 25 3a  c8 99 32 36 32 33 35 33  |ua%=Ma%:..262353|
00019940  2c 4d 61 25 2c 30 2c 2d  38 30 30 2c 31 32 38 30  |,Ma%,0,-800,1280|
00019950  2c 2d 31 35 30 0d 55 cc  05 cd 0d 55 ce 3b cc 3a  |,-150.U....U.;.:|
00019960  f2 44 62 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |.Db("To save, dr|
00019970  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
00019980  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
00019990  72 22 2c 31 29 0d 55 d2  07 cd 3a e1 0d 55 d8 e4  |r",1).U...:..U..|
000199a0  dd f2 51 68 3a c8 99 32  36 33 38 37 32 3a 6b 68  |..Qh:..263872:kh|
000199b0  25 3d ae 28 24 53 60 25  29 3a d5 23 6b 68 25 2c  |%=.($S`%):.#kh%,|
000199c0  22 22 3a d5 23 6b 68 25  2c 22 22 3a d5 23 6b 68  |"":.#kh%,"":.#kh|
000199d0  25 2c 22 20 20 20 20 20  20 20 20 20 20 20 50 61  |%,"           Pa|
000199e0  72 61 6d 65 74 65 72 20  6c 69 73 74 20 66 6f 72  |rameter list for|
000199f0  20 43 4f 32 65 66 66 65  63 74 20 67 6c 6f 62 61  | CO2effect globa|
00019a00  6c 20 77 61 72 6d 69 6e  67 20 73 69 6d 6c 75 6c  |l warming simlul|
00019a10  61 74 69 6f 6e 20 20 20  20 20 20 20 20 20 20 20  |ation           |
00019a20  22 3a d5 23 6b 68 25 2c  22 20 20 20 20 20 20 20  |":.#kh%,"       |
00019a30  20 20 20 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |    ============|
00019a40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00019a60  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 20 20 20 20 20  |===========     |
00019a70  20 20 20 20 20 20 22 3a  d5 23 6b 68 25 2c 22 22  |      ":.#kh%,""|
00019a80  0d 55 ec b9 d5 23 6b 68  25 2c 22 22 3a d5 23 6b  |.U...#kh%,"":.#k|
00019a90  68 25 2c 22 50 68 61 73  65 20 6e 75 6d 62 65 72  |h%,"Phase number|
00019aa0  20 20 20 20 20 20 20 3a  22 3b 3a e3 68 6e 25 3d  |       :";:.hn%=|
00019ab0  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 68 6e  |0.5:.#kh%,.nb(hn|
00019ac0  25 29 3b 3a ed 68 6e 25  3a d5 23 6b 68 25 2c 22  |%);:.hn%:.#kh%,"|
00019ad0  22 3a d5 23 6b 68 25 2c  22 22 3a d5 23 6b 68 25  |":.#kh%,"":.#kh%|
00019ae0  2c 22 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |,"--------------|
00019af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00019b20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 22  |---------------"|
00019b30  3a d5 23 6b 68 25 2c 22  22 0d 55 fa e1 d5 23 6b  |:.#kh%,"".U...#k|
00019b40  68 25 2c 22 25 20 63 6f  61 6c 20 67 65 6e 65 72  |h%,"% coal gener|
00019b50  61 74 69 6f 6e 20 20 3a  22 3b 3a e3 68 6e 25 3d  |ation  :";:.hn%=|
00019b60  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 7a 64  |0.5:.#kh%,.nb(zd|
00019b70  25 28 68 6e 25 29 29 3b  3a ed 68 6e 25 3a d5 23  |%(hn%));:.hn%:.#|
00019b80  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 25 20  |kh%,"":.#kh%,"% |
00019b90  67 61 73 20 67 65 6e 65  72 61 74 69 6f 6e 20 20  |gas generation  |
00019ba0  20 3a 22 3b 3a e3 68 6e  25 3d 30 b8 35 3a d5 23  | :";:.hn%=0.5:.#|
00019bb0  6b 68 25 2c a4 6e 62 28  60 64 25 28 68 6e 25 29  |kh%,.nb(`d%(hn%)|
00019bc0  29 3b 3a ed 68 6e 25 3a  d5 23 6b 68 25 2c 22 22  |);:.hn%:.#kh%,""|
00019bd0  3a d5 23 6b 68 25 2c 22  25 20 6f 69 6c 20 67 65  |:.#kh%,"% oil ge|
00019be0  6e 65 72 61 74 69 6f 6e  20 20 20 3a 22 3b 3a e3  |neration   :";:.|
00019bf0  68 6e 25 3d 30 b8 35 3a  d5 23 6b 68 25 2c a4 6e  |hn%=0.5:.#kh%,.n|
00019c00  62 28 42 65 25 28 68 6e  25 29 29 3b 3a ed 68 6e  |b(Be%(hn%));:.hn|
00019c10  25 3a d5 23 6b 68 25 2c  22 22 0d 56 00 a0 d5 23  |%:.#kh%,"".V...#|
00019c20  6b 68 25 2c 22 25 20 6e  75 63 6c 65 61 72 20 67  |kh%,"% nuclear g|
00019c30  65 6e 2e 20 20 20 20 20  3a 22 3b 3a e3 68 6e 25  |en.     :";:.hn%|
00019c40  3d 30 b8 35 3a d5 23 6b  68 25 2c a4 6e 62 28 44  |=0.5:.#kh%,.nb(D|
00019c50  65 25 28 68 6e 25 29 29  3b 3a ed 68 6e 25 3a d5  |e%(hn%));:.hn%:.|
00019c60  23 6b 68 25 2c 22 22 3a  d5 23 6b 68 25 2c 22 25  |#kh%,"":.#kh%,"%|
00019c70  20 72 65 6e 65 77 61 62  6c 65 73 20 67 65 6e 2e  | renewables gen.|
00019c80  20 20 3a 22 3b 3a e3 68  6e 25 3d 30 b8 35 3a d5  |  :";:.hn%=0.5:.|
00019c90  23 6b 68 25 2c a4 6e 62  28 46 65 25 28 68 6e 25  |#kh%,.nb(Fe%(hn%|
00019ca0  29 29 3b 3a ed 68 6e 25  3a d5 23 6b 68 25 2c 22  |));:.hn%:.#kh%,"|
00019cb0  22 3a d5 23 6b 68 25 2c  22 22 0d 56 06 a2 d5 23  |":.#kh%,"".V...#|
00019cc0  6b 68 25 2c 22 50 68 61  73 65 20 69 6e 20 6f 76  |kh%,"Phase in ov|
00019cd0  65 72 20 28 79 72 73 29  3a 22 3b 3a e3 68 6e 25  |er (yrs):";:.hn%|
00019ce0  3d 30 b8 35 3a d5 23 6b  68 25 2c a4 6e 62 28 4c  |=0.5:.#kh%,.nb(L|
00019cf0  65 25 28 68 6e 25 29 29  3b 3a ed 68 6e 25 3a d5  |e%(hn%));:.hn%:.|
00019d00  23 6b 68 25 2c 22 22 3a  d5 23 6b 68 25 2c 22 22  |#kh%,"":.#kh%,""|
00019d10  3a d5 23 6b 68 25 2c 22  43 6f 61 6c 20 43 48 50  |:.#kh%,"Coal CHP|
00019d20  3f 20 20 20 20 20 20 20  20 20 20 3a 22 3b 3a e3  |?          :";:.|
00019d30  68 6e 25 3d 30 b8 35 3a  d5 23 6b 68 25 2c a4 6e  |hn%=0.5:.#kh%,.n|
00019d40  62 28 48 65 25 28 68 6e  25 2c 31 29 29 3b 3a ed  |b(He%(hn%,1));:.|
00019d50  68 6e 25 3a d5 23 6b 68  25 2c 22 22 0d 56 0c 9b  |hn%:.#kh%,"".V..|
00019d60  d5 23 6b 68 25 2c 22 47  61 73 20 43 48 50 3f 20  |.#kh%,"Gas CHP? |
00019d70  20 20 20 20 20 20 20 20  20 20 3a 22 3b 3a e3 68  |          :";:.h|
00019d80  6e 25 3d 30 b8 35 3a d5  23 6b 68 25 2c a4 6e 62  |n%=0.5:.#kh%,.nb|
00019d90  28 48 65 25 28 68 6e 25  2c 32 29 29 3b 3a ed 68  |(He%(hn%,2));:.h|
00019da0  6e 25 3a d5 23 6b 68 25  2c 22 22 3a d5 23 6b 68  |n%:.#kh%,"":.#kh|
00019db0  25 2c 22 4f 69 6c 20 43  48 50 3f 20 20 20 20 20  |%,"Oil CHP?     |
00019dc0  20 20 20 20 20 20 3a 22  3b 3a e3 68 6e 25 3d 30  |      :";:.hn%=0|
00019dd0  b8 35 3a d5 23 6b 68 25  2c a4 6e 62 28 48 65 25  |.5:.#kh%,.nb(He%|
00019de0  28 68 6e 25 2c 33 29 29  3b 3a ed 68 6e 25 3a d5  |(hn%,3));:.hn%:.|
00019df0  23 6b 68 25 2c 22 22 0d  56 10 d2 d5 23 6b 68 25  |#kh%,"".V...#kh%|
00019e00  2c 22 4e 75 63 6c 65 61  72 20 43 48 50 3f 20 20  |,"Nuclear CHP?  |
00019e10  20 20 20 20 20 3a 22 3b  3a e3 68 6e 25 3d 30 b8  |     :";:.hn%=0.|
00019e20  35 3a d5 23 6b 68 25 2c  a4 6e 62 28 48 65 25 28  |5:.#kh%,.nb(He%(|
00019e30  68 6e 25 2c 34 29 29 3b  3a ed 68 6e 25 3a d5 23  |hn%,4));:.hn%:.#|
00019e40  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 28 27  |kh%,"":.#kh%,"('|
00019e50  2d 31 27 3d 59 65 73 3b  20 27 30 27 3d 4e 6f 29  |-1'=Yes; '0'=No)|
00019e60  22 3a d5 23 6b 68 25 2c  22 22 3a d5 23 6b 68 25  |":.#kh%,"":.#kh%|
00019e70  2c 22 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |,"--------------|
00019e80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00019eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 22  |---------------"|
00019ec0  3a d5 23 6b 68 25 2c 22  22 0d 56 1e e1 d5 23 6b  |:.#kh%,"".V...#k|
00019ed0  68 25 2c 22 47 72 6f 77  74 68 20 69 6e 20 56 4d  |h%,"Growth in VM|
00019ee0  54 20 28 25 29 20 20 3a  22 3b 3a e3 68 6e 25 3d  |T (%)  :";:.hn%=|
00019ef0  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 65 65  |0.5:.#kh%,.nb(ee|
00019f00  25 28 68 6e 25 29 29 3b  3a ed 68 6e 25 3a d5 23  |%(hn%));:.hn%:.#|
00019f10  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 45 66  |kh%,"":.#kh%,"Ef|
00019f20  66 69 63 69 65 6e 63 79  20 28 25 29 20 20 20 20  |ficiency (%)    |
00019f30  20 3a 22 3b 3a e3 68 6e  25 3d 30 b8 35 3a d5 23  | :";:.hn%=0.5:.#|
00019f40  6b 68 25 2c a4 6e 62 28  69 65 25 28 68 6e 25 29  |kh%,.nb(ie%(hn%)|
00019f50  29 3b 3a ed 68 6e 25 3a  d5 23 6b 68 25 2c 22 22  |);:.hn%:.#kh%,""|
00019f60  3a d5 23 6b 68 25 2c 22  25 20 62 69 6f 20 66 75  |:.#kh%,"% bio fu|
00019f70  65 6c 73 20 75 73 65 64  20 20 20 3a 22 3b 3a e3  |els used   :";:.|
00019f80  68 6e 25 3d 30 b8 35 3a  d5 23 6b 68 25 2c a4 6e  |hn%=0.5:.#kh%,.n|
00019f90  62 28 6b 65 25 28 68 6e  25 29 29 3b 3a ed 68 6e  |b(ke%(hn%));:.hn|
00019fa0  25 3a d5 23 6b 68 25 2c  22 22 0d 56 24 a9 d5 23  |%:.#kh%,"".V$..#|
00019fb0  6b 68 25 2c 22 25 20 63  61 72 20 66 69 6c 6c 69  |kh%,"% car filli|
00019fc0  6e 67 20 20 20 20 20 20  3a 22 3b 3a e3 68 6e 25  |ng      :";:.hn%|
00019fd0  3d 30 b8 35 3a d5 23 6b  68 25 2c a4 6e 62 28 6d  |=0.5:.#kh%,.nb(m|
00019fe0  65 25 28 68 6e 25 29 29  3b 3a ed 68 6e 25 3a d5  |e%(hn%));:.hn%:.|
00019ff0  23 6b 68 25 2c 22 22 3a  d5 23 6b 68 25 2c 22 22  |#kh%,"":.#kh%,""|
0001a000  3a d5 23 6b 68 25 2c 22  50 68 61 73 65 20 69 6e  |:.#kh%,"Phase in|
0001a010  20 6f 76 65 72 20 28 79  72 73 29 3a 22 3b 3a e3  | over (yrs):";:.|
0001a020  68 6e 25 3d 30 b8 35 3a  d5 23 6b 68 25 2c a4 6e  |hn%=0.5:.#kh%,.n|
0001a030  62 28 67 65 25 28 68 6e  25 29 29 3b 3a ed 68 6e  |b(ge%(hn%));:.hn|
0001a040  25 3a d5 23 6b 68 25 2c  22 22 3a d5 23 6b 68 25  |%:.#kh%,"":.#kh%|
0001a050  2c 22 22 0d 56 2e ac d5  23 6b 68 25 2c 22 2d 2d  |,"".V...#kh%,"--|
0001a060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0001a0a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 22 3a d5 23 6b  |-----------":.#k|
0001a0b0  68 25 2c 22 22 3a d5 23  6b 68 25 2c 22 50 6f 77  |h%,"":.#kh%,"Pow|
0001a0c0  65 72 3b 20 65 6c 65 63  74 72 69 63 69 74 79 20  |er; electricity |
0001a0d0  3a 22 3b 3a e3 68 6e 25  3d 30 b8 35 3a d5 23 6b  |:";:.hn%=0.5:.#k|
0001a0e0  68 25 2c a4 6e 62 28 4e  65 25 28 68 6e 25 29 29  |h%,.nb(Ne%(hn%))|
0001a0f0  3b 3a ed 68 6e 25 3a d5  23 6b 68 25 2c 22 22 0d  |;:.hn%:.#kh%,"".|
0001a100  56 36 e1 d5 23 6b 68 25  2c 22 50 6f 77 65 72 3b  |V6..#kh%,"Power;|
0001a110  20 43 48 50 20 20 20 20  20 20 20 20 20 3a 22 3b  | CHP         :";|
0001a120  3a e3 68 6e 25 3d 30 b8  35 3a d5 23 6b 68 25 2c  |:.hn%=0.5:.#kh%,|
0001a130  a4 6e 62 28 50 65 25 28  68 6e 25 29 29 3b 3a ed  |.nb(Pe%(hn%));:.|
0001a140  68 6e 25 3a d5 23 6b 68  25 2c 22 22 3a d5 23 6b  |hn%:.#kh%,"":.#k|
0001a150  68 25 2c 22 52 65 6d 61  69 6e 69 6e 67 20 70 6f  |h%,"Remaining po|
0001a160  77 65 72 20 20 20 20 3a  22 3b 3a e3 68 6e 25 3d  |wer    :";:.hn%=|
0001a170  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 52 65  |0.5:.#kh%,.nb(Re|
0001a180  25 28 68 6e 25 29 29 3b  3a ed 68 6e 25 3a d5 23  |%(hn%));:.hn%:.#|
0001a190  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 25 20  |kh%,"":.#kh%,"% |
0001a1a0  62 69 6f 20 66 75 65 6c  73 20 75 73 65 64 20 20  |bio fuels used  |
0001a1b0  20 3a 22 3b 3a e3 68 6e  25 3d 30 b8 35 3a d5 23  | :";:.hn%=0.5:.#|
0001a1c0  6b 68 25 2c a4 6e 62 28  54 65 25 28 68 6e 25 29  |kh%,.nb(Te%(hn%)|
0001a1d0  29 3b 3a ed 68 6e 25 3a  d5 23 6b 68 25 2c 22 22  |);:.hn%:.#kh%,""|
0001a1e0  0d 56 3c d0 d5 23 6b 68  25 2c 22 54 6f 74 61 6c  |.V<..#kh%,"Total|
0001a1f0  20 70 6f 77 65 72 20 20  20 20 20 20 20 20 3a 22  | power        :"|
0001a200  3b 3a e3 68 6e 25 3d 30  b8 35 3a d5 23 6b 68 25  |;:.hn%=0.5:.#kh%|
0001a210  2c a4 6e 62 28 56 65 25  28 68 6e 25 29 29 3b 3a  |,.nb(Ve%(hn%));:|
0001a220  ed 68 6e 25 3a d5 23 6b  68 25 2c 22 22 3a d5 23  |.hn%:.#kh%,"":.#|
0001a230  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 50 68  |kh%,"":.#kh%,"Ph|
0001a240  61 73 65 20 69 6e 20 6f  76 65 72 20 28 79 72 73  |ase in over (yrs|
0001a250  29 3a 22 3b 3a e3 68 6e  25 3d 30 b8 35 3a d5 23  |):";:.hn%=0.5:.#|
0001a260  6b 68 25 2c a4 6e 62 28  5a 65 25 28 68 6e 25 29  |kh%,.nb(Ze%(hn%)|
0001a270  29 3b 3a ed 68 6e 25 3a  d5 23 6b 68 25 2c 22 22  |);:.hn%:.#kh%,""|
0001a280  3a d5 23 6b 68 25 2c 22  22 3a d5 23 6b 68 25 2c  |:.#kh%,"":.#kh%,|
0001a290  22 50 6f 77 65 72 20 69  6e 20 54 57 68 20 70 65  |"Power in TWh pe|
0001a2a0  72 20 79 65 61 72 22 3a  d5 23 6b 68 25 2c 22 22  |r year":.#kh%,""|
0001a2b0  0d 56 4a ac d5 23 6b 68  25 2c 22 2d 2d 2d 2d 2d  |.VJ..#kh%,"-----|
0001a2c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0001a300  2d 2d 2d 2d 2d 2d 2d 2d  22 3a d5 23 6b 68 25 2c  |--------":.#kh%,|
0001a310  22 22 3a d5 23 6b 68 25  2c 22 44 65 66 6f 72 65  |"":.#kh%,"Defore|
0001a320  73 74 61 74 6f 6e 20 72  61 74 65 20 20 3a 22 3b  |staton rate  :";|
0001a330  3a e3 68 6e 25 3d 30 b8  35 3a d5 23 6b 68 25 2c  |:.hn%=0.5:.#kh%,|
0001a340  a4 6e 62 28 41 66 25 28  68 6e 25 29 29 3b 3a ed  |.nb(Af%(hn%));:.|
0001a350  68 6e 25 3a d5 23 6b 68  25 2c 22 22 0d 56 52 df  |hn%:.#kh%,"".VR.|
0001a360  d5 23 6b 68 25 2c 22 52  65 66 6f 72 65 73 74 61  |.#kh%,"Reforesta|
0001a370  74 6f 6e 20 72 61 74 65  20 20 3a 22 3b 3a e3 68  |ton rate  :";:.h|
0001a380  6e 25 3d 30 b8 35 3a d5  23 6b 68 25 2c a4 6e 62  |n%=0.5:.#kh%,.nb|
0001a390  28 43 66 25 28 68 6e 25  29 29 3b 3a ed 68 6e 25  |(Cf%(hn%));:.hn%|
0001a3a0  3a d5 23 6b 68 25 2c 22  22 3a d5 23 6b 68 25 2c  |:.#kh%,"":.#kh%,|
0001a3b0  22 22 3a d5 23 6b 68 25  2c 22 50 68 61 73 65 20  |"":.#kh%,"Phase |
0001a3c0  69 6e 20 6f 76 65 72 20  28 79 72 73 29 3a 22 3b  |in over (yrs):";|
0001a3d0  3a e3 68 6e 25 3d 30 b8  35 3a d5 23 6b 68 25 2c  |:.hn%=0.5:.#kh%,|
0001a3e0  a4 6e 62 28 47 66 25 28  68 6e 25 29 29 3b 3a ed  |.nb(Gf%(hn%));:.|
0001a3f0  68 6e 25 3a d5 23 6b 68  25 2c 22 22 3a d5 23 6b  |hn%:.#kh%,"":.#k|
0001a400  68 25 2c 22 22 3a d5 23  6b 68 25 2c 22 52 61 74  |h%,"":.#kh%,"Rat|
0001a410  65 20 69 6e 20 6d 69 6c  6c 69 6f 6e 20 6f 66 20  |e in million of |
0001a420  68 65 63 74 61 72 65 73  20 70 65 72 20 79 65 61  |hectares per yea|
0001a430  72 22 3a d5 23 6b 68 25  2c 22 22 0d 56 60 ac d5  |r":.#kh%,"".V`..|
0001a440  23 6b 68 25 2c 22 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |#kh%,"----------|
0001a450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0001a490  2d 2d 2d 22 3a d5 23 6b  68 25 2c 22 22 3a d5 23  |---":.#kh%,"":.#|
0001a4a0  6b 68 25 2c 22 4e 75 6d  62 65 72 20 6f 66 20 6c  |kh%,"Number of l|
0001a4b0  69 76 65 73 74 6f 63 6b  3a 22 3b 3a e3 68 6e 25  |ivestock:";:.hn%|
0001a4c0  3d 30 b8 35 3a d5 23 6b  68 25 2c a4 6e 62 28 49  |=0.5:.#kh%,.nb(I|
0001a4d0  66 25 28 68 6e 25 29 29  3b 3a ed 68 6e 25 3a d5  |f%(hn%));:.hn%:.|
0001a4e0  23 6b 68 25 2c 22 22 0d  56 68 d1 d5 23 6b 68 25  |#kh%,"".Vh..#kh%|
0001a4f0  2c 22 46 65 72 74 69 6c  69 7a 65 72 20 75 73 65  |,"Fertilizer use|
0001a500  64 20 20 20 20 3a 22 3b  3a e3 68 6e 25 3d 30 b8  |d    :";:.hn%=0.|
0001a510  35 3a d5 23 6b 68 25 2c  a4 6e 62 28 4b 66 25 28  |5:.#kh%,.nb(Kf%(|
0001a520  68 6e 25 29 29 3b 3a ed  68 6e 25 3a d5 23 6b 68  |hn%));:.hn%:.#kh|
0001a530  25 2c 22 22 3a d5 23 6b  68 25 2c 22 22 3a d5 23  |%,"":.#kh%,"":.#|
0001a540  6b 68 25 2c 22 50 68 61  73 65 20 69 6e 20 6f 76  |kh%,"Phase in ov|
0001a550  65 72 20 28 79 72 73 29  3a 22 3b 3a e3 68 6e 25  |er (yrs):";:.hn%|
0001a560  3d 30 b8 35 3a d5 23 6b  68 25 2c a4 6e 62 28 4f  |=0.5:.#kh%,.nb(O|
0001a570  66 25 28 68 6e 25 29 29  3b 3a ed 68 6e 25 3a d5  |f%(hn%));:.hn%:.|
0001a580  23 6b 68 25 2c 22 22 3a  d5 23 6b 68 25 2c 22 22  |#kh%,"":.#kh%,""|
0001a590  3a d5 23 6b 68 25 2c 22  4e 75 6d 62 65 72 20 6f  |:.#kh%,"Number o|
0001a5a0  66 20 6c 69 76 65 73 74  6f 63 6b 20 69 6e 20 6d  |f livestock in m|
0001a5b0  69 6c 6c 69 6f 6e 73 22  0d 56 72 ac d5 23 6b 68  |illions".Vr..#kh|
0001a5c0  25 2c 22 4d 61 73 73 20  6f 66 20 66 65 72 74 69  |%,"Mass of ferti|
0001a5d0  6c 69 7a 65 72 20 6d 61  6e 75 66 61 63 74 75 72  |lizer manufactur|
0001a5e0  65 64 2f 75 73 65 64 20  69 6e 20 6d 69 6c 6c 69  |ed/used in milli|
0001a5f0  6f 6e 73 20 6f 66 20 74  6f 6e 73 22 3a d5 23 6b  |ons of tons":.#k|
0001a600  68 25 2c 22 22 3a d5 23  6b 68 25 2c 22 2d 2d 2d  |h%,"":.#kh%,"---|
0001a610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0001a650  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 22 3a d5 23 6b 68  |----------":.#kh|
0001a660  25 2c 22 22 0d 56 7e e1  d5 23 6b 68 25 2c 22 25  |%,"".V~..#kh%,"%|
0001a670  20 6f 66 20 43 46 43 2d  31 31 20 20 20 20 20 20  | of CFC-11      |
0001a680  20 20 3a 22 3b 3a e3 68  6e 25 3d 30 b8 35 3a d5  |  :";:.hn%=0.5:.|
0001a690  23 6b 68 25 2c a4 6e 62  28 6f 65 25 28 68 6e 25  |#kh%,.nb(oe%(hn%|
0001a6a0  29 29 3b 3a ed 68 6e 25  3a d5 23 6b 68 25 2c 22  |));:.hn%:.#kh%,"|
0001a6b0  22 3a d5 23 6b 68 25 2c  22 25 20 6f 66 20 43 46  |":.#kh%,"% of CF|
0001a6c0  43 2d 31 32 20 20 20 20  20 20 20 20 3a 22 3b 3a  |C-12        :";:|
0001a6d0  e3 68 6e 25 3d 30 b8 35  3a d5 23 6b 68 25 2c a4  |.hn%=0.5:.#kh%,.|
0001a6e0  6e 62 28 71 65 25 28 68  6e 25 29 29 3b 3a ed 68  |nb(qe%(hn%));:.h|
0001a6f0  6e 25 3a d5 23 6b 68 25  2c 22 22 3a d5 23 6b 68  |n%:.#kh%,"":.#kh|
0001a700  25 2c 22 25 20 6f 66 20  48 43 46 43 2d 32 32 20  |%,"% of HCFC-22 |
0001a710  20 20 20 20 20 20 3a 22  3b 3a e3 68 6e 25 3d 30  |      :";:.hn%=0|
0001a720  b8 35 3a d5 23 6b 68 25  2c a4 6e 62 28 73 65 25  |.5:.#kh%,.nb(se%|
0001a730  28 68 6e 25 29 29 3b 3a  ed 68 6e 25 3a d5 23 6b  |(hn%));:.hn%:.#k|
0001a740  68 25 2c 22 22 0d 56 84  a0 d5 23 6b 68 25 2c 22  |h%,"".V...#kh%,"|
0001a750  25 20 6f 66 20 61 6c 74  65 72 6e 61 74 69 76 65  |% of alternative|
0001a760  73 20 20 3a 22 3b 3a e3  68 6e 25 3d 30 b8 35 3a  |s  :";:.hn%=0.5:|
0001a770  d5 23 6b 68 25 2c a4 6e  62 28 75 65 25 28 68 6e  |.#kh%,.nb(ue%(hn|
0001a780  25 29 29 3b 3a ed 68 6e  25 3a d5 23 6b 68 25 2c  |%));:.hn%:.#kh%,|
0001a790  22 22 3a d5 23 6b 68 25  2c 22 54 6f 74 61 6c 20  |"":.#kh%,"Total |
0001a7a0  6d 61 73 73 20 72 65 6c  65 61 73 65 64 3a 22 3b  |mass released:";|
0001a7b0  3a e3 68 6e 25 3d 30 b8  35 3a d5 23 6b 68 25 2c  |:.hn%=0.5:.#kh%,|
0001a7c0  a4 6e 62 28 77 65 25 28  68 6e 25 29 29 3b 3a ed  |.nb(we%(hn%));:.|
0001a7d0  68 6e 25 3a d5 23 6b 68  25 2c 22 22 3a d5 23 6b  |hn%:.#kh%,"":.#k|
0001a7e0  68 25 2c 22 22 0d 56 8a  a8 d5 23 6b 68 25 2c 22  |h%,"".V...#kh%,"|
0001a7f0  50 68 61 73 65 20 69 6e  20 6f 76 65 72 20 28 79  |Phase in over (y|
0001a800  72 73 29 3a 22 3b 3a e3  68 6e 25 3d 30 b8 35 3a  |rs):";:.hn%=0.5:|
0001a810  d5 23 6b 68 25 2c a4 6e  62 28 5f 65 25 28 68 6e  |.#kh%,.nb(_e%(hn|
0001a820  25 29 29 3b 3a ed 68 6e  25 3a d5 23 6b 68 25 2c  |%));:.hn%:.#kh%,|
0001a830  22 22 3a d5 23 6b 68 25  2c 22 22 3a d5 23 6b 68  |"":.#kh%,"":.#kh|
0001a840  25 2c 22 54 6f 74 61 6c  20 6d 61 73 73 20 6f 66  |%,"Total mass of|
0001a850  20 43 46 43 2f 61 6c 74  65 72 6e 61 74 69 76 65  | CFC/alternative|
0001a860  73 20 6d 61 6e 75 66 61  63 74 75 72 65 64 2f 72  |s manufactured/r|
0001a870  65 6c 65 61 73 65 64 20  69 6e 20 6b 69 6c 6f 74  |eleased in kilot|
0001a880  6f 6e 73 22 3a d5 23 6b  68 25 2c 22 22 0d 56 94  |ons":.#kh%,"".V.|
0001a890  ac d5 23 6b 68 25 2c 22  2d 2d 2d 2d 2d 2d 2d 2d  |..#kh%,"--------|
0001a8a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0001a8e0  2d 2d 2d 2d 2d 22 3a d5  23 6b 68 25 2c 22 22 3a  |-----":.#kh%,"":|
0001a8f0  d5 23 6b 68 25 2c 22 25  20 63 65 6d 65 6e 74 20  |.#kh%,"% cement |
0001a900  65 6d 69 73 73 69 6f 6e  73 20 3a 22 3b 3a e3 68  |emissions :";:.h|
0001a910  6e 25 3d 30 b8 35 3a d5  23 6b 68 25 2c a4 6e 62  |n%=0.5:.#kh%,.nb|
0001a920  28 51 66 25 28 68 6e 25  29 29 3b 3a ed 68 6e 25  |(Qf%(hn%));:.hn%|
0001a930  3a d5 23 6b 68 25 2c 22  22 0d 56 9c a0 d5 23 6b  |:.#kh%,"".V...#k|
0001a940  68 25 2c 22 25 20 61 63  69 64 20 65 6d 69 73 73  |h%,"% acid emiss|
0001a950  69 6f 6e 73 20 20 20 3a  22 3b 3a e3 68 6e 25 3d  |ions   :";:.hn%=|
0001a960  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 53 66  |0.5:.#kh%,.nb(Sf|
0001a970  25 28 68 6e 25 29 29 3b  3a ed 68 6e 25 3a d5 23  |%(hn%));:.hn%:.#|
0001a980  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 25 20  |kh%,"":.#kh%,"% |
0001a990  73 65 77 61 67 65 20 65  6d 69 73 73 69 6f 6e 73  |sewage emissions|
0001a9a0  20 3a 22 3b 3a e3 68 6e  25 3d 30 b8 35 3a d5 23  | :";:.hn%=0.5:.#|
0001a9b0  6b 68 25 2c a4 6e 62 28  55 66 25 28 68 6e 25 29  |kh%,.nb(Uf%(hn%)|
0001a9c0  29 3b 3a ed 68 6e 25 3a  d5 23 6b 68 25 2c 22 22  |);:.hn%:.#kh%,""|
0001a9d0  3a d5 23 6b 68 25 2c 22  22 0d 56 a2 ab d5 23 6b  |:.#kh%,"".V...#k|
0001a9e0  68 25 2c 22 50 68 61 73  65 20 69 6e 20 6f 76 65  |h%,"Phase in ove|
0001a9f0  72 20 28 79 72 73 29 3a  22 3b 3a e3 68 6e 25 3d  |r (yrs):";:.hn%=|
0001aa00  30 b8 35 3a d5 23 6b 68  25 2c a4 6e 62 28 59 66  |0.5:.#kh%,.nb(Yf|
0001aa10  25 28 68 6e 25 29 29 3b  3a ed 68 6e 25 3a d5 23  |%(hn%));:.hn%:.#|
0001aa20  6b 68 25 2c 22 22 3a d5  23 6b 68 25 2c 22 22 3a  |kh%,"":.#kh%,"":|
0001aa30  d5 23 6b 68 25 2c 22 45  6d 69 73 73 69 6f 6e 73  |.#kh%,"Emissions|
0001aa40  20 69 6e 20 70 65 72 63  65 6e 74 20 6f 66 20 31  | in percent of 1|
0001aa50  39 39 30 20 6c 65 76 65  6c 73 22 3a d9 23 6b 68  |990 levels":.#kh|
0001aa60  25 3a ff 22 53 65 74 54  79 70 65 20 22 2b 24 53  |%:."SetType "+$S|
0001aa70  60 25 2b 22 20 46 46 46  22 3a c8 99 32 36 33 38  |`%+" FFF":..2638|
0001aa80  37 33 3a e1 0d 56 b2 51  dd f2 69 6e 28 73 68 25  |73:..V.Q..in(sh%|
0001aa90  2c f8 4e 62 25 2c f8 4f  62 25 29 3a 21 58 5f 25  |,.Nb%,.Ob%):!X_%|
0001aaa0  3d 73 68 25 3a c8 99 32  36 32 33 34 37 2c 2c 58  |=sh%:..262347,,X|
0001aab0  5f 25 3a 4e 62 25 3d 58  5f 25 34 2d 58 5f 25 21  |_%:Nb%=X_%4-X_%!|
0001aac0  32 30 3a 4f 62 25 3d 58  5f 25 21 38 2d 58 5f 25  |20:Ob%=X_%!8-X_%|
0001aad0  21 32 34 3a e1 0d 56 c0  34 dd f2 49 62 28 73 68  |!24:..V.4..Ib(sh|
0001aae0  25 29 3a 21 58 5f 25 3d  73 68 25 3a c8 99 32 36  |%):!X_%=sh%:..26|
0001aaf0  32 33 34 37 2c 2c 58 5f  25 3a c8 99 32 36 32 33  |2347,,X_%:..2623|
0001ab00  34 31 2c 2c 58 5f 25 3a  e1 0d 56 cc 26 dd f2 4c  |41,,X_%:..V.&..L|
0001ab10  61 28 73 68 25 29 3a 21  58 5f 25 3d 73 68 25 3a  |a(sh%):!X_%=sh%:|
0001ab20  c8 99 32 36 32 33 34 32  2c 2c 58 5f 25 3a e1 0d  |..262342,,X_%:..|
0001ab30  56 d6 97 dd f2 6a 6e 3a  c8 99 32 36 32 33 35 31  |V....jn:..262351|
0001ab40  2c 2c 6b 6e 25 3a 6c 6e  25 3d 21 6b 6e 25 3a 6d  |,,kn%:ln%=!kn%:m|
0001ab50  6e 25 3d 6b 6e 25 21 34  3a 6e 6e 25 3d 58 5f 25  |n%=kn%!4:nn%=X_%|
0001ab60  21 31 32 2d 58 5f 25 21  34 3a 6f 6e 25 3d 58 5f  |!12-X_%!4:on%=X_|
0001ab70  25 21 31 36 2d 58 5f 25  21 38 3a 58 5f 25 21 34  |%!16-X_%!8:X_%!4|
0001ab80  3d 6c 6e 25 2d 30 2e 35  2a 6e 6e 25 3a 58 5f 25  |=ln%-0.5*nn%:X_%|
0001ab90  21 31 32 3d 6c 6e 25 2b  30 2e 35 2a 6e 6e 25 3a  |!12=ln%+0.5*nn%:|
0001aba0  58 5f 25 21 38 3d 6d 6e  25 2d 30 2e 35 2a 6f 6e  |X_%!8=mn%-0.5*on|
0001abb0  25 3a 58 5f 25 21 31 36  3d 6d 6e 25 2b 30 2e 35  |%:X_%!16=mn%+0.5|
0001abc0  2a 6f 6e 25 3a e1 0d 56  ec 4b dd f2 77 64 28 73  |*on%:..V.K..wd(s|
0001abd0  68 25 2c 70 6e 25 2c 5a  6e 24 29 3a 24 28 70 6e  |h%,pn%,Zn$):$(pn|
0001abe0  25 29 3d 5a 6e 24 3a 58  5f 25 21 30 3d 73 68 25  |%)=Zn$:X_%!0=sh%|
0001abf0  3a c8 99 32 36 32 33 34  37 2c 2c 58 5f 25 3a e7  |:..262347,,X_%:.|
0001ac00  28 58 5f 25 21 33 32 80  28 31 3c 3c 31 36 29 29  |(X_%!32.(1<<16))|
0001ac10  8c 0d 56 f6 33 c8 99 32  36 32 33 35 33 2c 2d 31  |..V.3..262353,-1|
0001ac20  2c 58 5f 25 21 34 2c 28  58 5f 25 21 31 36 29 2b  |,X_%!4,(X_%!16)+|
0001ac30  34 2c 58 5f 25 21 31 32  2c 28 58 5f 25 21 31 36  |4,X_%!12,(X_%!16|
0001ac40  29 2b 33 36 0d 56 f8 07  cd 3a e1 0d 56 fe 40 dd  |)+36.V...:..V.@.|
0001ac50  f2 71 6e 3a f2 4c 61 28  56 61 25 29 3a f2 4c 61  |.qn:.La(Va%):.La|
0001ac60  28 51 61 25 29 3a f2 4c  61 28 53 61 25 29 3a f2  |(Qa%):.La(Sa%):.|
0001ac70  4c 61 28 50 61 25 29 3a  f2 4c 61 28 55 61 25 29  |La(Pa%):.La(Ua%)|
0001ac80  3a f2 4c 61 28 4c 61 25  29 3a e1 0d 57 10 52 dd  |:.La(La%):..W.R.|
0001ac90  f2 71 66 3a f2 4c 61 28  61 61 25 29 3a f2 4c 61  |.qf:.La(aa%):.La|
0001aca0  28 68 61 25 29 3a f2 4c  61 28 62 61 25 29 3a f2  |(ha%):.La(ba%):.|
0001acb0  4c 61 28 66 61 25 29 3a  f2 4c 61 28 63 61 25 29  |La(fa%):.La(ca%)|
0001acc0  3a f2 4c 61 28 65 61 25  29 3a f2 4c 61 28 67 61  |:.La(ea%):.La(ga|
0001acd0  25 29 3a f2 4c 61 28 69  61 25 29 3a e1 0d ff     |%):.La(ia%):...|
0001acdf