Home » Archimedes archive » Acorn User » AU 1994-11.adf » !CO2_CO2Effect » !CO2effect/!RunImage
!CO2effect/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-11.adf » !CO2_CO2Effect |
| Filename: | !CO2effect/!RunImage |
| Read OK: | ✔ |
| File size: | 1ACDF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10016PROCA_:PROCB_:PROCC_:PROCD_:PROCE_:PROCF_("<CO2effect$Dir>.HelpText"):SYS263872:PROCG_:PROCH_:PROCI_:PROCJ_:PROCK_:PROCL_:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:SYS263873:WHILENOTU_%:PROCV_:ENDWHILE:PROCW_:END
10076DEFPROCC_:DIMX_% 2560:DIMY_% 144,Z_% 518,a_% 1206,b_% 440,c_% 434,d_% 750,e_% 449,f_% 412,g_% 946,h_% 197,i_% 263:DIMj_% 738,k_% 673,l_% 484,m_% 261,n_% 495,o_% 683,p_% 693,q_% 820,r_% 807,s_% 269,t_% 269,u_% 269
10088DIMv_% 40,w_% 40,x_% 40,y_% 40,z_% 40,__% 40,`_% 40:DIMA`%(7),B`%(7):DIMC`% 24:DIMD`% 255:FORN%=0TO255:?(D`%+N%)=0:NEXT:DIME`% 11:DIMF`% 99,G`% 411,H`% 99,I`% 75,J`% 75,K`% 51,L`% 123:DIMM`% 79:DIMN`% 11:$N`%="ptr_default":DIMO`% 11:$O`%="ptr_menu"
10122DIMP`% 255:$P`%="DrawFile":DIMQ`% 255:$Q`%="Parameters":DIMR`% 255:$R`%="":DIMS`% 255:$S`%="TextFile":T`%=&AFF:DIMU`% 3:DIMV`% 15,W`% 1:DIMX`% 6:$X`%="R2;A~ ":DIMY`% 0:$Y`%="":DIMZ`% 20,a`% 20,b`% 20,c`% 20:DIMd`% 0:$d`%=""
10146DIMe`% 20:$e`%="Sslowoff,slowon":DIMf`% 20:$f`%="Sfastoff,faston":g`%=7:h`%=8:i`%=9:j`%=11:k`%=18:DIMl`% 0:$l`%="":DIMm`% 20:$m`%="Soneoff,oneon":DIMn`% 20:$n`%="Salloff,allon":o`$="":DIMp`% 256:U_%=FALSE:q`%=FALSE:r`%=FALSE:s`%=FALSE:t`%=TRUE:u`%=FALSE:v`%=TRUE
10166w`%=TRUE:x`%=TRUE:y`%=FALSE:z`%=FALSE:_`%=FALSE:``%=FALSE:Aa%=FALSE:Ba%=FALSE:Ca%=1:Da%=0:Ea%=0:DIMFa% 4:SYS6,129,0,&FFTO,Fa%:Ga$="CO2effect":SYS262336,200,&4B534154,Ga$:ONERRORPROCHa(REPORT$+" at line "+STR$ERL):PROCW_
10196Ia%=FNJa(-1,0,0,68,68,&3002,"!CO2effect",0,0,0):ENDPROC
10202DEFPROCD_:SYS262361,,"<CO2effect$Dir>.Templates":Ka%=FNLa(Y_%,Y_%+144,-1,"Info",1):Ma%=FNLa(Z_%,Z_%+518,D`%,"Main",Na%):Oa%=X_%!72:Pa%=FNLa(a_%,a_%+1206,-1,"Saves",Na%):Qa%=FNLa(b_%,b_%+440,-1,"LHy_d",Na%):Ra%=X_%!72
10224Sa%=FNLa(c_%,c_%+434,-1,"RHy_d",Na%):Ta%=X_%!72:Ua%=FNLa(d_%,d_%+750,-1,"Configure",Na%):La%=FNLa(e_%,e_%+449,-1,"Colours",Na%):Va%=FNLa(f_%,f_%+412,-1,"Time",Na%):Wa%=FNLa(g_%,g_%+946,-1,"Tools",Na%):Xa%=X_%!72
10234Ya%=FNLa(h_%,h_%+197,-1,"Time_emiss",Na%):Za%=FNLa(i_%,i_%+263,-1,"Per_emiss",Na%):A`%(1)=FNLa(v_%,v_%+40,-1,"Emissions",1):B`%(1)=X_%!72:A`%(2)=FNLa(w_%,w_%+40,-1,"Emissions",1):B`%(2)=X_%!72
10242A`%(3)=FNLa(x_%,x_%+40,-1,"Emissions",1):B`%(3)=X_%!72:A`%(4)=FNLa(y_%,y_%+40,-1,"Emissions",1):B`%(4)=X_%!72:A`%(5)=FNLa(z_%,z_%+40,-1,"Emissions",1):B`%(5)=X_%!72:A`%(6)=FNLa(__%,__%+40,-1,"Emissions",1):B`%(6)=X_%!72
10250A`%(7)=FNLa(`_%,`_%+40,-1,"Emissions",1):B`%(7)=X_%!72:aa%=FNLa(j_%,j_%+738,-1,"Elec_gen",Na%):ba%=FNLa(k_%,k_%+673,-1,"Transport",Na%):ca%=FNLa(l_%,l_%+484,-1,"Forest",Na%):da%=FNLa(m_%,m_%+261,-1,"TempModel",Na%)
10260ea%=FNLa(n_%,n_%+495,-1,"Agricul",Na%):fa%=FNLa(o_%,o_%+683,-1,"CFC",Na%):ga%=FNLa(p_%,p_%+693,-1,"Misc",Na%):ha%=FNLa(q_%,q_%+820,-1,"Energy_use",Na%):ia%=FNLa(r_%,r_%+807,-1,"Set_emiss",Na%)
10270ja%=FNLa(s_%,s_%+269,-1,"Draw_save",Na%):ka%=X_%!140:la%=FNLa(t_%,t_%+269,-1,"p_tf_s",Na%):ma%=X_%!140:na%=FNLa(u_%,u_%+269,-1,"p_cf_s",Na%):oa%=X_%!140:SYS262362:ENDPROC
10282DEFPROCE_:RESTORE18350:PROCpa(F`%):RESTORE18352:PROCpa(G`%):RESTORE18354:PROCpa(H`%):RESTORE18356:PROCpa(I`%):RESTORE18358:PROCpa(J`%):RESTORE18360:PROCpa(K`%):RESTORE18362:PROCpa(L`%):PROCqa(L`%,3):ENDPROC
10310DEFPROCV_:SYS66TOra:SYS262369,0,X_%,ra+Da%TOsa%:CASEsa%OF
10322WHEN0:IFr`%THEN:PROCta
10326IFBa%THEN:PROCBa
10328IFz`%THEN
10330z`%=FALSE:CASEua%OF
10334WHENMa%:y`%=TRUE:SYS262353,Ma%,0,-960,1280,-150
10336WHENaa%:SYS262353,aa%,0,-344,706,0
10338ENDCASE
10340ENDIF
10342WHEN1:PROCva(!X_%)
10344WHEN2:CASEX_%!0OF
10348WHENWa%:PROCwa(H`%,2):``%=TRUE
10350ENDCASE:SYS262341,,X_%
10354WHEN3:CASEX_%!0OF
10358WHENWa%:PROCxa(H`%,2):``%=FALSE
10360WHENMa%
10362ENDCASE:SYS262342,,X_%
10366WHEN4:CASEX_%!0OF
10370WHENQa%,Sa%,La%,da%:Ba%=FALSE:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1
10374ENDCASE
10376WHEN5:CASEX_%!0OF
10380WHENja%,la%,na%:PROCya
10382WHENQa%,Sa%,La%,da%:Ba%=TRUE
10384ENDCASE
10386WHEN6:za%=X_%!12:PROC_a(X_%!8,X_%!12,X_%!16)
10390WHEN7:IF_`%THENPROC_`ELSEPROC`a
10394WHEN8:PROCAb(!X_%,X_%!4,X_%!24)
10398WHEN9:PROCBb
10402WHEN17,18:PROCCb(X_%)
10406WHEN19:PROCDb("Transfer failed - receiver died",1)
10410ENDCASE:ENDPROC
10416DEFPROC_a(Eb%,Fb%,Gb%):LOCALHb$:IFFb%<>-2ANDFb%<>ja%ANDAa%THEN:PROCLa(ja%):Aa%=FALSE
10426CASEFb%OF
10432WHEN-2:CASEEb%OF
10436WHEN1,4:PROCIb(Ma%):PROCJb:PROCKb
10444ENDCASE:IFAa%THEN:PROCLa(ja%):Aa%=FALSE
10450WHENMa%:IFEb%<>2ANDGb%=-1THEN
10456SYS262354,Ma%,-1,0,0,-1,-1:Ea%=Ma%:Aa%=TRUE
10460ENDIF:IFAa%THEN:PROCLa(ja%):Aa%=FALSE
10464CASEEb%OF
10468WHEN256,1024:CASEGb%OF
10472
10476WHEN-1:_`%=TRUE:SYS262351,,X_%:Lb%=X_%!0:Mb%=X_%!4:!X_%=Ma%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=6:X_%!8=Lb%:X_%!12=Mb%:X_%!16=Lb%:X_%!20=Mb%:X_%!24=Nb%+140:X_%!28=Ob%-700:X_%!32=Nb%+1140:X_%!36=Ob%-200
10504IFLb%<Nb%+140ORLb%>Nb%+1140ORMb%<Ob%-700ORMb%>Ob%-200THEN
10506SYS262352,,0
10508ELSE:SYS262352,,X_%
10512ENDIF
10514ENDCASE
10516WHEN1,4:CASEGb%OF
10520
10524WHEN1:IFNOTr`%ANDNOTs`%ANDt`%THEN
10528PROCPb(Ma%,1):r`%=TRUE:s`%=TRUE:t`%=FALSE
10532ENDIF
10538WHEN2:IFs`%THEN
10542r`%=NOTr`%:PROCQb(Ma%,2):IFr`%THENPROCxa(F`%,1)ELSEPROCwa(F`%,1)
10546ENDIF
10552WHEN3:IFs`%=TRUETHEN
10556r`%=FALSE:s`%=FALSE:PROCQb(Ma%,3):PROCRb(Ma%,1):PROCRb(Ma%,2):PROCQb(Ma%,3):w`%=TRUE:SYS262353,Ma%,0,-960,1280,-150
10562ENDIF
10568WHEN4:u`%=NOTu`%:PROCQb(Ma%,4):SYS262353,Ma%,0,-960,1280,-150
10580WHEN5:r`%=FALSE:s`%=FALSE:u`%=FALSE:t`%=TRUE:PROCQb(Ma%,5):PROCRb(Ma%,1):PROCRb(Ma%,2):PROCRb(Ma%,4):SYS263872:Sb%=240:Tb%=240:PROCL_:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:SYS263873:SYS262353,Ma%,0,-960,1280,-150:PROCJb
10606WHEN6:PROCQb(Ma%,6):Ub%=Vb%:IFUb%THENPROCPb(Va%,5)
10614Wb%=Xb%:PROCIb(Va%):CASEXb%OF
10620WHEN0:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):Yb%=Zb%:ab%=bb%
10626WHEN1:PROCPb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):Yb%=340:ab%=240
10632WHEN2:PROCPb(Va%,9):PROCRb(Va%,8):PROCRb(Va%,10):Yb%=350:ab%=100
10638WHEN3:PROCPb(Va%,10):PROCRb(Va%,8):PROCRb(Va%,9):Yb%=400:ab%=0
10644ENDCASE:cb%=400:db%=0:eb%=5:PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750)
10656WHEN7,g`%:v`%=NOTv`%:X_%!0=Ma%:X_%!4=g`%:SYS262350,,X_%:IFNOTv`%THEN
10664Da%=900:g`%=FNgb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,e`%)
10668ELSE:Da%=0:g`%=FNgb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,f`%)
10674ENDIF
10680WHEN8:PROCQb(Ma%,h`%):PROCIb(Qa%):CASEhb%OF
10688WHEN1:ib%=jb%:kb%=lb%:mb%=nb%:ob%=pb%:qb%=rb%:sb%=tb%:ub%=250:vb%=0:wb%=1
10696WHEN2:ib%=xb%:kb%=yb%:mb%=zb%:ob%=_b%:qb%=`b%:sb%=Ac%:ub%=500:vb%=0:wb%=1
10704ENDCASE:PROCfb(Qa%,14,mb%):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):PROCCc(Qa%,11,sb%):IFib%THENPROCPb(Qa%,5)ELSEPROCRb(Qa%,5)
10716IFkb%THENPROCPb(Qa%,8)ELSEPROCRb(Qa%,8)
10718
10722WHEN9:PROCQb(Ma%,9):PROCIb(Sa%):CASEDc%OF
10730WHEN1:Ec%=Fc%:Gc%=Hc%:Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%:Rc%=5000:Sc%=0:Tc%=10
10738WHEN2:Ec%=Uc%:Gc%=Vc%:Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%:Rc%=10000:Sc%=0:Tc%=50
10746WHEN3:Ec%=ac%:Gc%=bc%:Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0):Rc%=10000:Sc%=0:Tc%=50
10754WHEN4:Ec%=gc%:Gc%=hc%:Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%:Rc%=1000:Sc%=0:Tc%=10
10762ENDCASE:PROCfb(Sa%,14,Ic%):PROCfb(Sa%,19,Kc%):PROCfb(Sa%,23,Mc%):PROCCc(Sa%,11,Oc%):IFEc%THEN:PROCPb(Sa%,5)ELSEPROCRb(Sa%,5)
10774IFGc%THEN:PROCPb(Sa%,8)ELSEPROCRb(Sa%,8)
10776
10780WHEN10:PROCQb(Ma%,10):PROCIb(Ua%):IFmc%THENPROCPb(Ua%,4)ELSEPROCRb(Ua%,4)
10788IFnc%THENPROCPb(Ua%,28)ELSEPROCRb(Ua%,28)
10790IFoc%THENPROCPb(Ua%,30)ELSEPROCRb(Ua%,30)
10792CASEqc%OF
10794WHEN1:PROCPb(Ua%,7):PROCRb(Ua%,8):PROCRb(Ua%,9)
10796WHEN2:PROCPb(Ua%,8):PROCRb(Ua%,7):PROCRb(Ua%,9)
10798WHEN3:PROCPb(Ua%,9):PROCRb(Ua%,7):PROCRb(Ua%,8)
10800ENDCASE:CASEhb%OF
10804WHEN1:PROCPb(Ua%,11)
10806WHEN2:IFNOToc%THEN:PROCPb(Ua%,12)
10808ENDCASE:CASEDc%OF
10812WHEN1:IFNOToc%THEN:PROCPb(Ua%,16)
10814WHEN2:PROCPb(Ua%,17)
10816WHEN3:PROCPb(Ua%,18)
10818WHEN4:PROCPb(Ua%,19)
10820ENDCASE:CASErc%OF
10824WHEN1:PROCPb(Ua%,23)
10826WHEN2:PROCPb(Ua%,25)
10828WHEN3:PROCPb(Ua%,27)
10830ENDCASE
10836WHEN11,j`%:sc%=NOTsc%:IFsc%THEN
10842oc%=TRUE:mc%=TRUE:qc%=3:X_%!0=Ma%:X_%!4=j`%:SYS262350,,X_%:j`%=FNgb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,m`%):yb%=TRUE:Hc%=FALSE:hb%=2:Dc%=1:lb%=FALSE:Vc%=FALSE:hc%=FALSE:bc%=FALSE:PROCPb(Ua%,12):PROCRb(Ua%,11)
10856PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
10866$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):PROCzc(Qa%,17,"Scale (Wm-2)"):PROCKb:PROCJb:Dc$=" ":PROCLa(Qa%):PROCPb(Ua%,4):PROCPb(Ua%,7)
10882PROCRb(Ua%,8):PROCRb(Ua%,9):PROCPb(Ua%,30)
10886ELSE:oc%=FALSE:mc%=FALSE:X_%!0=Ma%:X_%!4=j`%:SYS262350,,X_%:j`%=FNgb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,n`%):PROCPb(Ua%,12):PROCPb(Ua%,16):yb%=TRUE:Hc%=TRUE:PROCKb:PROCJb:PROCRb(Ua%,4):PROCRb(Ua%,30)
10906ENDIF:w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
10916WHEN12:PROCQb(Ma%,12):PROCIb(La%):_c%(1)=Qc%:PROCCc(La%,3,_c%(1)):_c%(2)=Zc%:PROCCc(La%,6,_c%(2)):_c%(3)=lc%:PROCCc(La%,9,_c%(3)):_c%(4)=fc%(0):PROCCc(La%,12,_c%(4)):_c%(5)=fc%(1):PROCCc(La%,15,_c%(5)):_c%(6)=fc%(2):PROCCc(La%,18,_c%(6))
10934_c%(7)=fc%(3):PROCCc(La%,21,_c%(7))
10940WHEN13:PROCQb(Ma%,13):PROCIb(Wa%):``%=TRUE:IF`c%=100ANDAd%=0THEN:PROCPb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23)
10948IF`c%=250ANDAd%=0THEN:PROCPb(Wa%,22):PROCRb(Wa%,21):PROCRb(Wa%,23)
10950IF`c%=1000ANDAd%=0THEN:PROCPb(Wa%,23):PROCRb(Wa%,21):PROCRb(Wa%,22)
10952IFEb%=4THEN:PROCLa(Ma%)
10954PROCwa(H`%,2)
10960WHEN14:PROCQb(Ma%,14):PROCzc(da%,2,Bd$(Cd%)):PROCIb(da%)
10972WHEN17:PROCQb(Ma%,17):Ea%=Ma%:T`%=&AFF:Dd%=P`%:PROCEd(ja%,1,P`%):PROCFd
10984WHEN18:IFFa%=&A3ORFa%=&A4THEN
10990PROCQb(Ma%,18):OSCLI"If ""<Help$Dir>""="""" Then Filer_Run Resources:$.Apps.!Help"
10994ENDIF
10996ENDCASE
10998ENDCASE
11004WHENVa%:CASEEb%OF
11008WHEN1,4:CASEGb%OF
11012WHEN5,6:PROCQb(Va%,5):Ub%=NOTUb%
11016WHEN8:Wb%=1:Yb%=340:ab%=240:PROCPb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750)
11024WHEN9:Wb%=2:Yb%=350:ab%=100:PROCPb(Va%,9):PROCRb(Va%,8):PROCRb(Va%,10):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750)
11032WHEN10:Wb%=3:Yb%=400:ab%=0:PROCPb(Va%,10):PROCRb(Va%,8):PROCRb(Va%,9):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750)
11040WHEN14:Wb%=0:PROCGd(Va%,13,14,Yb%,Yb%,db%,eb%,1750,1)
11044WHEN15:Wb%=0:PROCHd(Va%,13,15,Yb%,Yb%,cb%,eb%,1750,1)
11048WHEN18:Wb%=0:PROCGd(Va%,17,18,ab%,ab%,db%,eb%,1750,1)
11052WHEN19:Wb%=0:PROCHd(Va%,17,19,ab%,ab%,cb%,eb%,1750,1)
11056WHEN13,17:Wb%=0
11058WHEN20:PROCQb(Va%,20):IFEb%=4THEN:PROCLa(Va%)
11062WHEN21:PROCQb(Va%,21):IFNOTs`%THEN
11068IFWb%=0THEN:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10)
11070PROCId(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):IFt`%THEN:Tb%=240
11080ENDIF:CASEEb%OF
11084WHEN1:SYS262353,Ma%,0,-960,1280,-150
11088WHEN4:PROCLa(Va%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
11096ENDCASE
11098ENDCASE
11100ENDCASE
11106WHENQa%:CASEEb%OF
11110WHEN1,4:CASEGb%OF
11114WHEN5,6:PROCQb(Qa%,5):ib%=NOTib%
11116WHEN8,9:PROCQb(Qa%,8):kb%=NOTkb%
11118WHEN15:PROCGd(Qa%,14,15,mb%,mb%,1,1,0,1)
11120WHEN16:PROCHd(Qa%,14,16,mb%,mb%,25,1,0,1)
11122WHEN20:PROCGd(Qa%,19,20,ob%,ob%,vb%,wb%,0,10)
11124WHEN21:PROCHd(Qa%,19,21,ob%,ob%,ub%,wb%,0,10)
11126WHEN24:PROCGd(Qa%,23,24,qb%,qb%,vb%,wb%,0,10)
11128WHEN25:PROCHd(Qa%,23,25,qb%,qb%,ub%,wb%,0,10)
11130WHEN26:PROCQb(Qa%,26):IFEb%=4THEN:PROCLa(Qa%)
11134WHEN27:PROCQb(Qa%,27):IFNOTs`%THEN
11138PROCPd(mb%,ob%,qb%,ub%,vb%):CASEhb%OF
11142WHEN1:jb%=ib%:lb%=kb%:nb%=mb%:pb%=ob%:rb%=qb%:tb%=sb%:PROCJd:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc)
11150WHEN2:xb%=ib%:yb%=kb%:zb%=mb%:_b%=ob%:`b%=qb%:Ac%=sb%:PROCJd:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc)
11158ENDCASE
11160ENDIF:CASEEb%OF
11164WHEN1:SYS262353,Ma%,0,-960,1280,-150
11168WHEN4:PROCLa(Qa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
11176ENDCASE
11178ENDCASE
11180ENDCASE
11186WHENSa%:CASEEb%OF
11190WHEN1,4:CASEGb%OF
11194WHEN5,6:PROCQb(Sa%,5):Ec%=NOTEc%
11196WHEN8,9:PROCQb(Sa%,8):Gc%=NOTGc%
11198WHEN15:PROCGd(Sa%,14,15,Ic%,Ic%,1,1,0,1)
11200WHEN16:PROCHd(Sa%,14,16,Ic%,Ic%,25,1,0,1)
11202WHEN20:PROCGd(Sa%,19,20,Kc%,Kc%,Sc%,Tc%,0,1)
11204WHEN21:PROCHd(Sa%,19,21,Kc%,Kc%,Rc%,Tc%,0,1)
11206WHEN24:PROCGd(Sa%,23,24,Mc%,Mc%,Sc%,Tc%,0,1)
11208WHEN25:PROCHd(Sa%,23,25,Mc%,Mc%,Rc%,Tc%,0,1)
11210WHEN26:PROCQb(Sa%,26):IFEb%=4THEN:PROCLa(Sa%)
11214WHEN27:PROCQb(Sa%,27):IFNOTs`%THEN
11218PROCRd(Ic%,Kc%,Mc%,Rc%,Sc%):CASEDc%OF
11222WHEN1:Fc%=Ec%:Hc%=Gc%:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:Qc%=Oc%:PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd)
11230WHEN2:Uc%=Ec%:Vc%=Gc%:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:Zc%=Oc%:PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd)
11238WHEN3:ac%=Ec%:bc%=Gc%:cc%=Ic%:dc%=Kc%:ec%=Mc%:fc%(0)=Oc%:PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd)
11246WHEN4:gc%=Ec%:hc%=Gc%:ic%=Ic%:jc%=Kc%:kc%=Mc%:lc%=Oc%:PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd)
11254ENDCASE
11256ENDIF:CASEEb%OF
11260WHEN1:SYS262353,Ma%,0,-960,1280,-150
11264WHEN4:PROCLa(Sa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
11272ENDCASE
11274ENDCASE
11276ENDCASE
11282WHENUa%:CASEEb%OF
11286WHEN2
11288WHEN1,4:CASEGb%OF
11292WHEN4,5:PROCQb(Ua%,4):mc%=NOTmc%
11296WHEN7:qc%=1:PROCPb(Ua%,7):PROCRb(Ua%,8):PROCRb(Ua%,9)
11300WHEN8:qc%=2:PROCPb(Ua%,8):PROCRb(Ua%,7):PROCRb(Ua%,9)
11304WHEN9:qc%=3:PROCPb(Ua%,9):PROCRb(Ua%,7):PROCRb(Ua%,8)
11308WHEN11:IFNOToc%THEN
11312hb%=1:PROCPb(Ua%,11):PROCRb(Ua%,12):lb%=kb%:jb%=ib%:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):$b`%="Stempoff,tempon":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
11324PROCzc(Qa%,17,"Scale (�C)"):PROCKb:PROCJb
11328ENDIF
11330WHEN12,13:hb%=2:PROCPb(Ua%,12):PROCRb(Ua%,11):yb%=kb%:xb%=ib%:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%:h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
11344PROCzc(Qa%,17,"Scale (Wm-2)"):IFoc%THEN
11348PROCRb(Ua%,16):yb%=TRUE:Hc%=FALSE:hb$="Radiative Forcing (Wm-2)":Dc$=" ":Gc%=FALSE
11354ENDIF:PROCKb:PROCJb
11358WHEN16:Dc%=1:PROCPb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):Hc%=Gc%:Fc%=Ec%:$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
11370PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):IFoc%THEN
11374PROCRb(Ua%,12):yb%=FALSE:Hc%=TRUE:hb$=" ":Dc$="CO2 conc. (ppmv)":kb%=FALSE
11380ENDIF:PROCKb:PROCJb
11384WHEN17:IFNOToc%THEN
11388Dc%=2:PROCPb(Ua%,17):PROCRb(Ua%,16):PROCRb(Ua%,18):PROCRb(Ua%,19):Vc%=Gc%:Uc%=Ec%:$a`%="Sch4_off,ch4_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
11398PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb
11402ENDIF
11404WHEN18:IFNOToc%THEN
11408Dc%=3:PROCPb(Ua%,18):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,19):bc%=Gc%:ac%=Ec%:$a`%="Scfc_off,cfc_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
11418PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb
11422ENDIF
11424WHEN19:IFNOToc%THEN
11428Dc%=4:PROCPb(Ua%,19):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):hc%=Gc%:gc%=Ec%:$a`%="Sn2o_off,n2o_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
11438PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd):PROCKb:PROCJb
11442ENDIF
11444WHEN23,24:rc%=1:CASECd%OF
11450WHEN0:ad%=157:rb%=0:pb%=Qd%
11452WHEN1:ad%=153:rb%=0:pb%=Qd%
11454WHEN2:ad%=150:rb%=0:pb%=Qd%
11456WHEN3:ad%=0:rb%=0:pb%=Qd%
11458ENDCASE:bd%=24:`b%=0:_b%=uc%:cd%=353:Nc%=0:Lc%=Sd%:dd%=1717:Yc%=0:Xc%=Xd%:ed%(0)=818:ed%(1)=255:ed%(2)=453:ed%(3)=110:ec%=0:dc%=Yd%:fd%=310:kc%=0:jc%=Zd%:gd%=15:hd%=4:id%=1:jd%(0)=3:jd%(1)=1:jd%(2)=1:jd%(3)=1:PROCKb:PROCJb
11476WHEN25,26:rc%=2:CASECd%OF
11482WHEN0:ad%=144:rb%=0:pb%=Qd%
11484WHEN1:ad%=144:rb%=0:pb%=Qd%
11486WHEN2:ad%=144:rb%=0:pb%=Qd%
11488WHEN4:ad%=0:rb%=0:pb%=Qd%
11490ENDCASE:bd%=0:`b%=0:_b%=uc%:cd%=280:Nc%=0:Lc%=Sd%:dd%=790:Yc%=0:Xc%=Xd%:ed%()=0:ec%=0:dc%=Yd%:fd%=285:kc%=0:jc%=Zd%:gd%=0:hd%=0:jd%()=0:id%=0:PROCKb:PROCJb
11506WHEN27,32:rc%=3:ad%=0:rb%=130+ad%:pb%=130+ad%+Qd%:bd%=0:`b%=bd%:_b%=bd%+uc%:cd%=0:Nc%=cd%:Lc%=cd%+Sd%:dd%=0:Yc%=dd%:Xc%=dd%+Xd%:ed%()=0:ec%=ed%(0):dc%=ed%(0)+Yd%:fd%=0:kc%=fd%:jc%=fd%+Zd%:gd%=0:hd%=0:jd%()=0:id%=0:PROCKb:PROCJb
11526WHEN28,29:nc%=NOTnc%:PROCQb(Ua%,28)
11530WHEN30,31:oc%=NOToc%:PROCQb(Ua%,30):IFoc%THEN
11536yb%=TRUE:Hc%=FALSE:hb%=2:kd%=1:lb%=FALSE:Vc%=FALSE:hc%=FALSE:bc%=FALSE:PROCPb(Ua%,12):PROCRb(Ua%,11):PROCRb(Ua%,16):PROCRb(Ua%,17):PROCRb(Ua%,18):PROCRb(Ua%,19):PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:SYS262350,,X_%
11552h`%=FNgb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%):$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:SYS262350,,X_%:i`%=FNgb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):PROCKb:Dc$=" "
11564PROCLa(Qa%)
11566ELSE:yb%=TRUE:Hc%=TRUE:nc%=FALSE:PROCPb(Ua%,12):PROCPb(Ua%,16):PROCRb(Ua%,28):PROCKb
11574ENDIF
11576ENDCASE:IFEb%=4THEN
11580SYS262353,Ma%,0,-960,1280,-150
11584ENDIF
11586ENDCASE
11592WHENLa%:CASEEb%OF
11596WHEN1,4:CASEGb%OF
11600WHEN24:IFEb%=4THEN:PROCLa(La%)
11604WHEN25:Qc%=_c%(1):Zc%=_c%(2):lc%=_c%(3):fc%(0)=_c%(4):fc%(1)=_c%(5):fc%(2)=_c%(6):fc%(3)=_c%(7):IFEb%=4THEN:PROCLa(La%)
11610w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
11614ENDCASE
11616ENDCASE
11622WHENWa%:CASEEb%OF
11626WHEN1:CASEGb%OF
11630WHEN1,2,4,5,6,7:PROCQb(Wa%,Gb%):IFld%>0THEN:PROCRb(Wa%,ld%-1)
11634IFld%=Gb%+1THENld%=0ELSEld%=Gb%+1
11636PROCmd:IFnd%THENHb$=" *"ELSEHb$=""
11640FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):SYS262353,A`%(N%),0,-420,640,0:NEXT
11650ENDCASE
11652WHEN4:CASEGb%OF
11656WHEN0:PROCQb(Wa%,0):xd%=TRUE:PROCIb(aa%):yd%()=zd%():_d%()=`d%():Ae%()=Be%():Ce%()=De%():Ee%()=Fe%():Ge%()=He%():Ie%=Je%:Ke%()=Le%():PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%))
11666PROCfb(aa%,30,Ie%):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,3+5*N%)ELSEPROCRb(aa%,3+5*N%):NEXT
11670PROCQb(Wa%,0)
11672WHEN1:PROCQb(Wa%,1):PROCIb(ha%):Me%()=Ne%():Oe%()=Pe%():Qe%()=Re%():Se%()=Te%():Ue%()=Ve%():We%=Xe%:Ye%()=Ze%():FORN%=0TO5:PROCae(N%):NEXT:PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%))
11684PROCfb(ha%,26,We%):PROCfb(ha%,30,Ye%(We%)):PROCQb(Wa%,1)
11688WHEN2:PROCQb(Wa%,2):PROCIb(ba%):be%=ce%:de%()=ee%():fe%()=ge%():he%()=ie%():je%()=ke%():le%()=me%():PROCfb(ba%,23,be%):PROCfb(ba%,27,fe%(be%)):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCQb(Wa%,2)
11702WHEN3:PROCQb(Wa%,3):PROCIb(fa%):ne%()=oe%():pe%()=qe%():re%()=se%():te%()=ue%():ve%()=we%():xe%=ye%:ze%()=_e%():PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%))
11712PROCfb(fa%,25,xe%):PROCfb(fa%,29,ze%(xe%)):PROCQb(Wa%,3)
11716WHEN4:PROCQb(Wa%,4):PROCIb(ca%):`e%()=Af%():Bf%()=Cf%():Df%=Ef%:Ff%()=Gf%():PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,12,Df%):PROCfb(ca%,16,Ff%(Df%)):PROCQb(Wa%,4)
11730WHEN5:PROCQb(Wa%,5):PROCIb(ea%):Hf%()=If%():Jf%()=Kf%():Lf%=Mf%:Nf%()=Of%():PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,12,Lf%):PROCfb(ea%,16,Nf%(Lf%)):PROCQb(Wa%,5)
11744WHEN6:PROCQb(Wa%,6):PROCIb(ga%):Pf%()=Qf%():Rf%()=Sf%():Tf%()=Uf%():Vf%=Wf%:Xf%()=Yf%():PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,21,Vf%):PROCfb(ga%,25,Nf%(Vf%)):PROCQb(Wa%,6)
11758ENDCASE
11760ENDCASE:CASEEb%OF
11764WHEN1,4:CASEGb%OF
11768WHEN9,10,11,12,13,14,15:IFnd%THENHb$=" *"ELSEHb$=""
11772PROCQb(Wa%,Gb%):PROCIb(A`%(Gb%-8)):PROCwd(A`%(Gb%-8),B`%(Gb%-8),B`$(Gb%-8,ld%)+Hb$)
11776WHEN17:PROCQb(Wa%,17):FORN%=1TO7:PROCLa(A`%(N%)):NEXT
11780WHEN18,k`%:Zf%=NOTZf%:X_%!0=Wa%:X_%!4=k`%:SYS262350,,X_%:IFZf%THEN
11788$c`%="Sabs_off,abs_on":k`%=FNgb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%)
11792ELSE:$c`%="Sper_off,per_on":k`%=FNgb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%)
11800ENDIF
11802WHEN8:PROCQb(Wa%,8):PROCIb(Ya%):af%=bf%:cf%=5:PROCfb(Ya%,4,af%)
11810WHEN19:df%=NOTdf%:IFdf%THENPROCPb(Wa%,19)ELSEPROCRb(Wa%,19)
11816WHEN20:PROCQb(Wa%,20):PROCIb(Za%):ef%=`c%:ff%=Ad%:gf%=10:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%)
11824WHEN16:hf%=NOThf%:IFhf%THENPROCPb(Wa%,16)ELSEPROCRb(Wa%,16)
11830WHEN21:PROCPb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23):`c%=100:Ad%=0:ef%=100:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%)
11838WHEN22:PROCPb(Wa%,22):PROCRb(Wa%,21):PROCRb(Wa%,23):`c%=250:Ad%=0:ef%=250:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%)
11846WHEN23:PROCPb(Wa%,23):PROCRb(Wa%,21):PROCRb(Wa%,22):`c%=1000:Ad%=0:ef%=1000:ff%=0:PROCfb(Za%,3,ef%):PROCfb(Za%,8,ff%)
11854WHEN26:PROCQb(Wa%,26):PROCIb(Ma%):IFEb%=4THEN:PROCLa(Wa%):PROCxa(H`%,2):``%=FALSE
11860WHEN27:PROCQb(Wa%,27):PROCIb(ia%):if%()=jf%():kf%()=lf%():mf%()=nf%():of%=pf%:PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%)):PROCfb(ia%,21,of%):FORN%=1TO6:IFif%(N%)THENPROCPb(ia%,2*N%)ELSEPROCRb(ia%,2*N%):NEXTN%
11872WHEN28,29,30,31:PROCQb(Wa%,Gb%):PROCqf:PROCrf(Gb%-28):nd%=TRUE:PROCsf:PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd
11898WHEN24:IFNOTAg%ANDNOTr`%ANDNOTs`%THEN
11902SYS263872:PROCPb(Wa%,24):Ag%=TRUE:PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_:PROCS_:PROCT_:nd%=FALSE:PROCsf:SYS263873:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:PROCRb(Wa%,24):Ag%=FALSE
11916ENDIF
11918WHEN25:IFld%>0THEN:PROCRb(Wa%,ld%-1)
11922PROCQb(Wa%,25):ld%=0:PROCmd:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):SYS262353,A`%(N%),0,-420,640,0:PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):NEXT
11936ENDCASE:CASEGb%OF
11940WHENk`%,21,22,23:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):IFNOTZf%THEN
11948PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT
11954ENDIF
11956ENDCASE:CASEGb%OF
11960WHEN16,19,21,22,23,k`%:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:IFNOT(Zf%AND(Gb%=21ORGb%=22ORGb%=23))THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0
11968ENDCASE
11970ENDCASE
11976WHENYa%:CASEEb%OF
11980WHEN1,4:CASEGb%OF
11984WHEN5:PROCGd(Ya%,4,5,af%,af%,1995,cf%,0,1)
11986WHEN6:PROCHd(Ya%,4,6,af%,af%,2150,cf%,0,1)
11988WHEN7:IFEb%=4THEN:PROCLa(Ya%)
11990WHEN8:PROCQg:IFFNRgTHEN
11996PROCSg:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):IFEb%=4THEN:PROCLa(Ya%)
12002FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0
12008ENDIF
12010ENDCASE
12012ENDCASE
12018WHENZa%:CASEEb%OF
12022WHEN1,4:CASEGb%OF
12026WHEN5:PROCGd(Za%,3,5,ef%,ef%,-1000,gf%,0,1)
12028WHEN6:PROCHd(Za%,3,6,ef%,ef%,5000,gf%,0,1)
12030WHEN10:PROCGd(Za%,8,10,ff%,ff%,-1000,gf%,0,1)
12032WHEN11:PROCHd(Za%,8,11,ff%,ff%,5000,gf%,0,1)
12034WHEN13:IFEb%=4THEN:PROCLa(Za%)
12036WHEN14:PROCZg:IFFNagTHEN
12042PROCRb(Wa%,21):PROCRb(Wa%,22):PROCRb(Wa%,23):PROCbg:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):IFNOTZf%THEN:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT
12056IFEb%=4THEN:PROCLa(Za%)
12058FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:IFNOTZf%THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0
12064ENDIF
12066ENDCASE
12068ENDCASE
12074WHENaa%:CASEEb%OF
12078WHEN1,4:IFIe%>0THEN
12082CASEGb%OF
12084WHEN6:PROCGd(aa%,5,6,yd%(Ie%),yd%(Ie%),0,1,0,1)
12086WHEN7:PROCHd(aa%,5,7,yd%(Ie%),yd%(Ie%),100,1,0,1)
12088WHEN11:PROCGd(aa%,10,11,_d%(Ie%),_d%(Ie%),0,1,0,1)
12090WHEN12:PROCHd(aa%,10,12,_d%(Ie%),_d%(Ie%),100,1,0,1)
12092WHEN16:PROCGd(aa%,15,16,Ae%(Ie%),Ae%(Ie%),0,1,0,1)
12094WHEN17:PROCHd(aa%,15,17,Ae%(Ie%),Ae%(Ie%),100,1,0,1)
12096WHEN21:PROCGd(aa%,20,21,Ce%(Ie%),Ce%(Ie%),0,1,0,1)
12098WHEN22:PROCHd(aa%,20,22,Ce%(Ie%),Ce%(Ie%),100,1,0,1)
12100WHEN26:PROCGd(aa%,25,26,Ee%(Ie%),Ee%(Ie%),0,1,0,1)
12102WHEN27:PROCHd(aa%,25,27,Ee%(Ie%),Ee%(Ie%),100,1,0,1)
12104WHEN42:PROCGd(aa%,41,42,Ke%(Ie%),Ke%(Ie%),1,5,0,1)
12106WHEN43:PROCHd(aa%,41,43,Ke%(Ie%),Ke%(Ie%),cg%,5,0,1)
12108WHEN8,13,18,23:PROCQb(aa%,Gb%):Ge%(Ie%,(Gb%-3)/5)=NOTGe%(Ie%,(Gb%-3)/5)
12114ENDIF
12116ENDCASE:CASEGb%OF
12120WHEN31:IFIe%>0THEN:PROCxd
12124IFFNdgORIe%=0THEN
12126PROCGd(aa%,30,31,Ie%,Ie%,0,1,0,1):PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%)):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,5*N%+3)ELSEPROCRb(aa%,5*N%+3)
12134NEXT
12136ENDIF
12138WHEN32:IFIe%>0THEN:PROCxd
12142IFFNdgORIe%=0THEN
12144PROCHd(aa%,30,32,Ie%,Ie%,5,1,0,1):PROCfb(aa%,5,yd%(Ie%)):PROCfb(aa%,10,_d%(Ie%)):PROCfb(aa%,15,Ae%(Ie%)):PROCfb(aa%,20,Ce%(Ie%)):PROCfb(aa%,25,Ee%(Ie%)):PROCfb(aa%,41,Ke%(Ie%)):FORN%=1TO4:IFGe%(Ie%,N%)THENPROCPb(aa%,5*N%+3)ELSEPROCRb(aa%,5*N%+3)
12152NEXT
12154ENDIF
12156WHEN35:IFEb%=4THEN:PROCLa(aa%)
12158WHEN36,37:IFIe%>0THEN:PROCxd
12162IFFNdgTHEN
12164IFGb%=37ANDEb%=4THEN:PROCLa(aa%)
12166nd%=TRUE:PROCsf:PROCeg(Le%()):PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCfg:PROCwf:FORN%=0TO5:PROCae(N%):NEXT:Re%()=Qe%():PROCfb(ha%,8,Pe%(We%)):PROCfb(ha%,12,Re%(We%)):SYS262353,aa%,0,-344,706,0
12184ENDIF
12186ENDCASE
12188ENDCASE
12194WHENba%:CASEEb%OF
12198WHEN1,4:IFbe%>0THEN
12202CASEGb%OF
12204WHEN5:PROCGd(ba%,3,5,de%(be%),de%(be%),-100,1,0,1)
12206WHEN6:PROCHd(ba%,3,6,de%(be%),de%(be%),10,1,0,1)
12208WHEN10:PROCGd(ba%,8,10,he%(be%),he%(be%),0,1,0,1)
12210WHEN11:PROCHd(ba%,8,11,he%(be%),he%(be%),100,1,0,1)
12212WHEN15:PROCGd(ba%,13,15,je%(be%),je%(be%),0,1,0,1)
12214WHEN16:PROCHd(ba%,13,16,je%(be%),je%(be%),100,1,0,1)
12216WHEN20:PROCGd(ba%,18,20,le%(be%),le%(be%),0,1,0,1)
12218WHEN21:PROCHd(ba%,18,21,le%(be%),le%(be%),100,1,0,1)
12220WHEN29:PROCGd(ba%,27,29,fe%(be%),fe%(be%),1,5,0,1)
12222WHEN30:PROCHd(ba%,27,30,fe%(be%),fe%(be%),cg%,5,0,1)
12224ENDCASE
12226ENDIF:CASEGb%OF
12230WHEN24:IFbe%>0THEN:PROCgg
12234IFFNhgORbe%=0THEN
12236PROCGd(ba%,23,24,be%,be%,0,1,0,1):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCfb(ba%,27,fe%(be%))
12242ENDIF
12244WHEN25:IFbe%>0THEN:PROCgg
12248IFFNhgORbe%=0THEN
12250PROCHd(ba%,23,25,be%,be%,5,1,0,1):PROCfb(ba%,3,de%(be%)):PROCfb(ba%,8,he%(be%)):PROCfb(ba%,13,je%(be%)):PROCfb(ba%,18,le%(be%)):PROCfb(ba%,27,fe%(be%))
12256ENDIF
12258WHEN32:IFEb%=4THEN:PROCLa(ba%)
12260WHEN33,34:IFbe%>0THEN:PROCgg
12264IFFNhgTHEN
12266IFGb%=34ANDEb%=4THEN:PROCLa(ba%)
12268nd%=TRUE:PROCsf:PROCeg(ge%()):PROCxf:SYS262353,ba%,0,-300,798,0
12274ENDIF
12276ENDCASE
12278ENDCASE
12284WHENfa%:CASEEb%OF
12288WHEN1,4:IFxe%>0THEN
12292CASEGb%OF
12294WHEN6:PROCGd(fa%,4,6,ne%(xe%),ne%(xe%),0,1,0,1)
12296WHEN7:PROCHd(fa%,4,7,ne%(xe%),ne%(xe%),100,1,0,1)
12298WHEN11:PROCGd(fa%,9,11,pe%(xe%),pe%(xe%),0,1,0,1)
12300WHEN12:PROCHd(fa%,9,12,pe%(xe%),pe%(xe%),100,1,0,1)
12302WHEN16:PROCGd(fa%,14,16,re%(xe%),re%(xe%),0,1,0,1)
12304WHEN17:PROCHd(fa%,14,17,re%(xe%),re%(xe%),100,1,0,1)
12306WHEN22:PROCGd(fa%,20,22,te%(xe%),te%(xe%),0,1,0,1)
12308WHEN23:PROCHd(fa%,20,23,te%(xe%),te%(xe%),100,1,0,1)
12310WHEN31:PROCGd(fa%,29,31,ze%(xe%),ze%(xe%),1,5,0,1)
12312WHEN32:PROCHd(fa%,29,32,ze%(xe%),ze%(xe%),cg%,5,0,1)
12314WHEN41:PROCGd(fa%,37,41,ve%(xe%),ve%(xe%),0,10,0,1)
12316WHEN42:PROCHd(fa%,37,42,ve%(xe%),ve%(xe%),9990,10,0,1)
12318ENDCASE
12320ENDIF:CASEGb%OF
12324WHEN26:IFxe%>0THEN:PROCig
12328IFFNjgORxe%=0THEN
12330PROCGd(fa%,25,26,xe%,xe%,0,1,0,1):PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%)):PROCfb(fa%,29,ze%(xe%))
12334ENDIF
12336WHEN27:IFxe%>0THEN:PROCig
12340IFFNjgORxe%=0THEN
12342PROCHd(fa%,25,27,xe%,xe%,5,1,0,1):PROCfb(fa%,4,ne%(xe%)):PROCfb(fa%,9,pe%(xe%)):PROCfb(fa%,14,re%(xe%)):PROCfb(fa%,20,te%(xe%)):PROCfb(fa%,37,ve%(xe%)):PROCfb(fa%,29,ze%(xe%))
12346ENDIF
12348WHEN34:IFEb%=4THEN:PROCLa(fa%)
12350WHEN35:IFxe%>0THEN:PROCig
12354IFFNjgORxe%=0THEN
12356IFEb%=4THEN:PROCLa(fa%)
12358nd%=TRUE:PROCsf:PROCeg(_e%()):PROCyf
12362ENDIF
12364ENDCASE
12366ENDCASE
12372WHENca%:CASEEb%OF
12376WHEN1,4:IFDf%>0THEN
12380CASEGb%OF
12382WHEN4:PROCGd(ca%,3,4,`e%(Df%),`e%(Df%),0,1,0,1)
12384WHEN5:PROCHd(ca%,3,5,`e%(Df%),`e%(Df%),999,1,0,1)
12386WHEN9:PROCGd(ca%,8,9,Bf%(Df%),Bf%(Df%),0,1,0,1)
12388WHEN10:PROCHd(ca%,8,10,Bf%(Df%),Bf%(Df%),999,1,0,1)
12390WHEN18:PROCGd(ca%,16,18,Ff%(Df%),Ff%(Df%),1,5,0,1)
12392WHEN19:PROCHd(ca%,16,19,Ff%(Df%),Ff%(Df%),cg%,5,0,1)
12394ENDCASE
12396ENDIF:CASEGb%OF
12400WHEN13:IFDf%>0THEN:PROCkg
12404IFFNlgORDf%=0THEN
12406PROCGd(ca%,12,13,Df%,Df%,0,1,0,1):PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,16,Ff%(Df%))
12410ENDIF
12412WHEN14:IFDf%>0THEN:PROCkg
12416IFFNlgORDf%=0THEN
12418PROCHd(ca%,12,14,Df%,Df%,5,1,0,1):PROCfb(ca%,3,`e%(Df%)):PROCfb(ca%,8,Bf%(Df%)):PROCfb(ca%,16,Ff%(Df%))
12422ENDIF
12424WHEN21:IFEb%=4THEN:PROCLa(ca%)
12426WHEN22:IFDf%>0THEN:PROCkg
12430IFFNlgTHEN
12432IFEb%=4THEN:PROCLa(ca%)
12434nd%=TRUE:PROCsf:PROCeg(Gf%()):PROCzf
12438ENDIF
12440ENDCASE
12442ENDCASE
12448WHENea%:CASEEb%OF
12452WHEN1,4:IFLf%>0THEN
12456CASEGb%OF
12458WHEN4:PROCGd(ea%,3,4,Hf%(Lf%),Hf%(Lf%),0,50,0,1)
12460WHEN5:PROCHd(ea%,3,5,Hf%(Lf%),Hf%(Lf%),50000,50,0,1)
12462WHEN9:PROCGd(ea%,8,9,Jf%(Lf%),Jf%(Lf%),0,1,0,1)
12464WHEN10:PROCHd(ea%,8,10,Jf%(Lf%),Jf%(Lf%),999,1,0,1)
12466WHEN18:PROCGd(ea%,16,18,Nf%(Lf%),Nf%(Lf%),1,5,0,1)
12468WHEN19:PROCHd(ea%,16,19,Nf%(Lf%),Nf%(Lf%),cg%,5,0,1)
12470ENDCASE
12472ENDIF:CASEGb%OF
12476WHEN13:IFLf%>0THEN:PROCx`
12480IFFNmgORLf%=0THEN
12482PROCGd(ea%,12,13,Lf%,Lf%,0,1,0,1):PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,16,Nf%(Lf%))
12486ENDIF
12488WHEN14:IFLf%>0THEN:PROCx`
12492IFFNmgORLf%=0THEN
12494PROCHd(ea%,12,14,Lf%,Lf%,5,1,0,1):PROCfb(ea%,3,Hf%(Lf%)):PROCfb(ea%,8,Jf%(Lf%)):PROCfb(ea%,16,Nf%(Lf%))
12498ENDIF
12500WHEN21:IFEb%=4THEN:PROCLa(ea%)
12502WHEN22:IFLf%>0THEN:PROCx`
12506IFFNmgTHEN
12508IFEb%=4THEN:PROCLa(ea%)
12512nd%=TRUE:PROCsf:PROCeg(Of%()):PROC_f
12516ENDIF
12518ENDCASE
12520ENDCASE
12526WHENga%:CASEEb%OF
12530WHEN1,4:IFVf%>0THEN
12534CASEGb%OF
12536WHEN6:PROCGd(ga%,4,6,Pf%(Vf%),Pf%(Vf%),0,1,0,1)
12538WHEN7:PROCHd(ga%,4,7,Pf%(Vf%),Pf%(Vf%),999,1,0,1)
12540WHEN12:PROCGd(ga%,10,12,Rf%(Vf%),Rf%(Vf%),0,1,0,1)
12542WHEN13:PROCHd(ga%,10,13,Rf%(Vf%),Rf%(Vf%),999,1,0,1)
12544WHEN18:PROCGd(ga%,16,18,Tf%(Vf%),Tf%(Vf%),0,1,0,1)
12546WHEN19:PROCHd(ga%,16,19,Tf%(Vf%),Tf%(Vf%),999,1,0,1)
12548WHEN27:PROCGd(ga%,25,27,Xf%(Vf%),Xf%(Vf%),1,5,0,1)
12550WHEN28:PROCHd(ga%,25,28,Xf%(Vf%),Xf%(Vf%),cg%,5,0,1)
12552ENDCASE
12554ENDIF:CASEGb%OF
12558WHEN22:IFVf%>0THEN:PROCng
12562IFFNogORVf%=0THEN
12564PROCGd(ga%,21,22,Vf%,Vf%,0,1,0,1):PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,25,Xf%(Vf%))
12568ENDIF
12570WHEN23:IFVf%>0THEN:PROCng
12574IFFNogORVf%=0THEN
12576PROCHd(ga%,21,23,Vf%,Vf%,5,1,0,1):PROCfb(ga%,4,Pf%(Vf%)):PROCfb(ga%,10,Rf%(Vf%)):PROCfb(ga%,16,Tf%(Vf%)):PROCfb(ga%,25,Xf%(Vf%))
12580ENDIF
12582WHEN30:IFEb%=4THEN:PROCLa(ga%)
12584WHEN31:IFVf%>0THEN:PROCng
12588IFFNogORVf%=0THEN
12590IFEb%=4THEN:PROCLa(ga%)
12592nd%=TRUE:PROCsf:PROCeg(Yf%()):PROC`f
12596ENDIF
12598ENDCASE
12600ENDCASE
12606WHENha%:CASEEb%OF
12610WHEN1,4:IFWe%>0THEN
12614CASEGb%OF
12616WHEN4:PROCGd(ha%,2,4,Me%(We%),Me%(We%),0,100,0,1)
12618WHEN5:PROCHd(ha%,2,5,Me%(We%),Me%(We%),999900,100,0,1)
12620WHEN17:PROCGd(ha%,15,17,Se%(We%),Se%(We%),0,1,0,1)
12622WHEN18:PROCHd(ha%,15,18,Se%(We%),Se%(We%),100,1,0,1)
12624WHEN23:PROCGd(ha%,21,23,Ue%(We%),Ue%(We%),0,100,0,1)
12626WHEN24:PROCHd(ha%,21,24,Ue%(We%),Ue%(We%),999900,100,0,1)
12628WHEN32:PROCGd(ha%,30,32,Ye%(We%),Ye%(We%),1,5,0,1)
12630WHEN33:PROCHd(ha%,30,33,Ye%(We%),Ye%(We%),cg%,5,0,1)
12632ENDCASE
12634ENDIF:CASEGb%OF
12638WHEN4,5,23,24:PROCae(We%):PROCfb(ha%,12,Qe%(We%))
12642WHEN27:IFWe%>0THEN:PROCpg
12646IFFNqgORWe%=0THEN
12648PROCGd(ha%,26,27,We%,We%,0,1,0,1):PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%)):PROCfb(ha%,30,Ye%(We%))
12654ENDIF
12656WHEN28:IFWe%>0THEN:PROCpg
12660IFFNqgORWe%=0THEN
12662PROCHd(ha%,26,28,We%,We%,5,1,0,1):PROCfb(ha%,2,Me%(We%)):PROCfb(ha%,8,Oe%(We%)):PROCfb(ha%,12,Qe%(We%)):PROCfb(ha%,15,Se%(We%)):PROCfb(ha%,21,Ue%(We%)):PROCfb(ha%,30,Ye%(We%))
12668ENDIF
12670WHEN35:IFEb%=4THEN:PROCLa(ha%)
12672WHEN36:IFWe%>0THEN:PROCpg
12676IFFNqgTHEN
12678IFEb%=4THEN:PROCLa(ha%)
12680nd%=TRUE:PROCsf:PROCeg(Ze%()):PROCwf
12684ENDIF
12686ENDCASE
12688ENDCASE
12694WHENia%:CASEEb%OF
12698WHEN1,4:CASEGb%OF
12702WHEN2,4,6,8,10,12:if%(Gb%/2)=NOTif%(Gb%/2):PROCQb(ia%,Gb%)
12706WHEN3,5,7,9,11,13:if%((Gb%-1)/2)=NOTif%((Gb%-1)/2):PROCQb(ia%,Gb%-1)
12710ENDCASE:IFof%>-1THEN
12716CASEGb%OF
12718WHEN18:PROCGd(ia%,16,18,kf%(of%),kf%(of%),-100,1,0,1)
12720WHEN19:PROCHd(ia%,16,19,kf%(of%),kf%(of%),10,1,0,1)
12722WHEN27:PROCGd(ia%,25,27,mf%(of%),mf%(of%),1,5,0,1)
12724WHEN28:PROCHd(ia%,25,28,mf%(of%),mf%(of%),cg%,5,0,1)
12726ENDCASE
12728ENDIF:CASEGb%OF
12732WHEN22:IFof%>-1THEN:PROCrg
12736IFFNsgTHEN
12738PROCGd(ia%,21,22,of%,of%,0,1,0,1):PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%))
12742ENDIF
12744WHEN23:IFof%>-1THEN:PROCrg
12748IFFNsgTHEN
12750PROCHd(ia%,21,23,of%,of%,5,1,0,1):PROCfb(ia%,16,kf%(of%)):PROCfb(ia%,25,mf%(of%))
12754ENDIF
12756WHEN30:IFEb%=4THEN:PROCLa(ia%)
12758WHEN31,32:IFof%>-1THEN:PROCrg
12762IFFNsgTHEN
12764IFEb%=4ANDGb%=32THEN:PROCLa(ia%)
12766SYS263872:PROCtg:PROCeg(nf%()):IFNOT(jf%(1)ANDjf%(2)ANDjf%(3)ANDjf%(4)ANDjf%(5)ANDjf%(6))THEN
12772PROCM_:PROCN_:PROCO_:PROCP_:PROCQ_:PROCR_
12774ENDIF:PROCS_:PROCT_:SYS263873:FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT
12782ENDIF
12784ENDCASE
12786ENDCASE
12792WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):CASEEb%OF
12796WHEN1,4:Ea%=Fb%
12798ENDCASE
12804WHENja%:CASEEb%OF
12808WHEN64:CASEGb%OF
12812WHEN2:T`%=&AFF:PROCug(ja%,1,P`%):PROCvg(ja%,2)
12814ENDCASE
12816WHEN1,4:CASEGb%OF
12820WHEN0:PROCEd(ja%,1,P`%):PROCFd
12822ENDCASE
12824ENDCASE
12830WHENna%:CASEEb%OF
12834WHEN64:CASEGb%OF
12838WHEN2:T`%=&077:PROCug(na%,1,Q`%):PROCvg(na%,2)
12840ENDCASE
12842WHEN1,4:CASEGb%OF
12846WHEN0:PROCEd(na%,1,Q`%):PROCFd
12848ENDCASE
12850ENDCASE
12856WHENla%:CASEEb%OF
12860WHEN64:CASEGb%OF
12864WHEN2:T`%=&FFF:PROCug(la%,1,S`%):PROCvg(la%,2)
12866ENDCASE
12868WHEN1,4:CASEGb%OF
12872WHEN0:PROCEd(la%,1,S`%):PROCFd
12874ENDCASE
12876ENDCASE
12878ENDCASE:CASEEb%OF
12886WHEN2:Ea%=Fb%:CASEFb%OF
12892WHEN-2:SYS262356,,F`%,X_%!0-64,228
12896WHENQa%:CASEGb%OF
12900WHEN12:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,sb%):PROCxg(G`%,0,0,0)
12906ENDCASE
12908WHENSa%:CASEGb%OF
12912WHEN12:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,Oc%):PROCxg(G`%,0,0,0)
12918ENDCASE
12920WHENLa%:CASEGb%OF
12924WHEN4,7,10,13,16,19,22:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_c%((Gb%-1)/3)):PROCxg(G`%,0,0,0):yg%=Gb%
12932ENDCASE
12934WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:CASEFb%OF
12938WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):PROCzg(I`%,0):PROCqa(I`%,1)
12944WHENfa%,ca%,ea%,ga%,ha%,ia%:PROCqa(I`%,0):PROCzg(I`%,1)
12948WHENaa%,ba%:PROCqa(I`%,0):PROCzg(I`%,1)
12954WHENMa%:IFNOTs`%THENPROCzg(I`%,0)ELSEPROCqa(I`%,0)
12958PROCzg(I`%,1)
12960ENDCASE:PROCxg(H`%,-64,0,-1):IF``%THENPROCwa(H`%,2)ELSEPROCxa(H`%,2)
12966WHENda%:CASEGb%OF
12970WHEN3:FORwg%=0TO3:PROCxa(L`%,wg%):NEXT:PROCwa(L`%,Cd%):PROCxg(L`%,0,0,0)
12976ENDCASE
12978ENDCASE
12980ENDCASE:ENDPROC
12986DEFPROCBb:_g%=!X_%:`g%=X_%!4:SYS262351,,X_%:Ah%=!X_%:Bh%=X_%!4:Eb%=X_%!8:CASEza%OF
13000WHEN-2:CASE_g%OF
13004WHEN1:IFs`%THEN
13008r`%=NOTr`%:PROCQb(Ma%,2):IFr`%THENPROCxa(F`%,1)ELSEPROCwa(F`%,1)
13012IFEb%=1THEN:SYS262356,,F`%,X_%!0-64,228
13014ENDIF
13016WHEN2:U_%=TRUE:PROCW_
13020ENDCASE
13022WHENQa%:CASE_g%OF
13026WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(Qa%,11,_g%):sb%=_g%:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh%
13036ENDCASE
13038WHENSa%:CASE_g%OF
13042WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(Sa%,11,_g%):Oc%=_g%:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh%
13052ENDCASE
13054WHENLa%:CASE_g%OF
13058WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:PROCCc(La%,yg%-1,_g%)
13062ENDCASE:CASEyg%OF
13066WHEN4,7,10,13,16,19,22:_c%((yg%-1)/3)=_g%
13070ENDCASE:FORwg%=0TO15:PROCxa(G`%,wg%):NEXT:PROCwa(G`%,_g%):IFEb%=1THEN:SYS262356,,G`%,Ch%,Dh%
13076WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:CASE_g%OF
13080WHEN2:``%=NOT``%:IF``%THEN
13086PROCwa(H`%,2):PROCIb(Wa%)
13088ELSE:PROCxa(H`%,2):PROCLa(Wa%)
13092ENDIF:IFEb%=1THEN:SYS262356,,H`%,Ch%,Dh%
13096ENDCASE
13098WHENda%:CASE_g%OF
13102WHEN0,1,2,3:IFNOTs`%THEN
13106Cd%=_g%:FORwg%=0TO3:PROCxa(L`%,wg%):NEXT:PROCwa(L`%,Cd%):PROCzc(da%,2,Bd$(Cd%)):PROCJ_:SYS262353,da%,192,-380,588,-132:SYS262353,Ma%,0,-960,1280,-150
13118ENDIF:IFEb%=1THEN:SYS262356,,L`%,Ch%,Dh%
13122ENDCASE
13124ENDCASE:ENDPROC
13130DEFPROCAb(Fb%,Gb%,Eh%):LOCALFh%,Gh%,Hh:CASEFb%OF
13144
13148WHENMa%:CASEEh%OF
13152WHEN&183:Ea%=Ma%:PROCIb(ja%):SYS262354,ja%,1,0,0,-1,LEN($P`%)
13162ENDCASE
13168WHENVa%:CASEEh%OF
13172WHEN&18E:Wb%=0:CASEGb%OF
13176WHEN13:PROCIh(Va%,13,Yb%,ab%,cb%,db%,17,Va%,FNJh(Va%,17),1,1750)
13178WHEN17:PROCKh(Va%,17,Yb%,ab%,cb%,db%,17,-1,4,1,1750)
13180ENDCASE
13182WHEN&18F:Wb%=0:CASEGb%OF
13186WHEN13:PROCIh(Va%,13,Yb%,ab%,cb%,db%,13,-1,4,1,1750)
13188WHEN17:PROCKh(Va%,17,Yb%,ab%,cb%,db%,13,Va%,FNJh(Va%,13),1,1750)
13190ENDCASE
13192WHEN13:IFNOTs`%THEN
13196IFWb%=0THEN:PROCRb(Va%,8):PROCRb(Va%,9):PROCRb(Va%,10)
13198PROCId(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):IFt`%THEN:Tb%=240
13208ENDIF:PROCLa(Va%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
13216WHEN&1B:PROCLa(Va%)
13218ENDCASE
13224WHENQa%:CASEEh%OF
13228WHEN&18E:CASEGb%OF
13232WHEN14:PROCIh(Qa%,14,mb%,0,25,0,19,Qa%,FNJh(Qa%,19),1,0)
13234WHEN19:PROCIh(Qa%,19,ob%,qb%,ub%,vb%,23,Qa%,FNJh(Qa%,23),10,0)
13236WHEN23:PROCKh(Qa%,23,ob%,qb%,ub%,vb%,23,-1,-1,10,0)
13238ENDCASE
13240WHEN&18F:CASEGb%OF
13244WHEN14:PROCIh(Qa%,14,mb%,0,25,0,14,-1,2,1,0)
13246WHEN19:PROCIh(Qa%,19,ob%,qb%,ub%,vb%,14,Qa%,FNJh(Qa%,14),10,0)
13248WHEN23:PROCKh(Qa%,23,ob%,qb%,ub%,vb%,19,Qa%,FNJh(Qa%,19),10,0)
13250ENDCASE
13252WHEN13:IFNOTs`%THEN
13256PROCPd(mb%,ob%,qb%,ub%,vb%):CASEhb%OF
13260WHEN1:nb%=mb%:pb%=ob%:rb%=qb%:PROCJd:PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc)
13266WHEN2:zb%=mb%:_b%=ob%:`b%=qb%:PROCJd:PROCtc(_b%,`b%,uc%,vc%,wc%,xc%,yc)
13272ENDCASE
13274ENDIF:PROCLa(Qa%):w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
13282WHEN&1B:PROCLh(Qa%)
13286ENDCASE
13292WHENSa%:CASEEh%OF
13296WHEN&18E:CASEGb%OF
13300WHEN14:PROCIh(Sa%,14,Ic%,0,25,0,19,Sa%,FNJh(Sa%,19),1,0)
13302WHEN19:PROCIh(Sa%,19,Kc%,Mc%,Rc%,Sc%,23,Sa%,FNJh(Sa%,23),1,0)
13304WHEN23:PROCKh(Sa%,23,Kc%,Mc%,Rc%,Sc%,23,-1,-1,1,0)
13306ENDCASE
13308WHEN&18F:CASEGb%OF
13312WHEN14:PROCIh(Sa%,14,Ic%,0,25,0,14,-1,2,1,0)
13314WHEN19:PROCIh(Sa%,19,Kc%,Mc%,Rc%,Sc%,14,Sa%,FNJh(Sa%,14),1,0)
13316WHEN23:PROCKh(Sa%,23,Kc%,Mc%,Rc%,Sc%,19,Sa%,FNJh(Sa%,19),1,0)
13318ENDCASE
13320WHEN13:IFNOTs`%THEN
13324PROCRd(Ic%,Kc%,Mc%,Rc%,Sc%):CASEDc%OF
13328WHEN1:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:PROCJd:PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd)
13334WHEN2:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:PROCJd:PROCtc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd)
13340WHEN3:cc%=Ic%:dc%=Kc%:ec%=Mc%:PROCJd:PROCtc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd)
13346WHEN4:ic%=Ic%:jc%=Kc%:kc%=Mc%:PROCJd:PROCtc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd)
13352ENDCASE
13354ENDIF:PROCLa(Sa%):SYS262353,Ma%,0,-960,1280,-150
13360WHEN&1B:PROCLa(Sa%)
13364ENDCASE
13370WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):CASEEh%OF
13374WHEN&183:Ea%=Fb%:PROCIb(ja%):SYS262354,ja%,1,0,0,-1,LEN($P`%)
13384ENDCASE
13390WHENYa%:CASEEh%OF
13394WHEN&18E,&18F:PROCIh(Ya%,4,Ic%,1995,2150,1990,4,-1,4,1,0)
13396WHEN13:PROCQg:IFFNRgTHEN
13402PROCLa(Ya%):PROCSg:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:SYS262353,aa%,0,-344,706,0
13416ENDIF
13418WHEN&1B:PROCLa(Ya%)
13420ENDCASE
13426WHENZa%:CASEEh%OF
13430WHEN&18E:CASEGb%OF
13434WHEN3:PROCIh(Za%,3,ef%,ff%,5000,-1000,8,Za%,FNJh(Za%,8),1,0)
13436WHEN8:PROCKh(Za%,8,ef%,ff%,5000,-1000,8,-1,1,1,0)
13438ENDCASE
13440WHEN&18F:CASEGb%OF
13444WHEN3:PROCIh(Za%,3,ef%,ff%,5000,-1000,3,-1,1,1,0)
13446WHEN8:PROCKh(Za%,8,ef%,ff%,5000,-1000,3,Za%,FNJh(Za%,3),1,0)
13448ENDCASE
13450WHEN13:PROCZg:IFFNagTHEN
13456PROCLa(Za%):PROCbg:PROCmd:PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):IFNOTZf%THEN:FORN%=1TO7:PROCod(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):NEXT
13470FORN%=1TO7:SYS262353,A`%(N%),0,-420,640,0:NEXT:SYS262353,ba%,0,-300,798,0:SYS262353,ba%,0,-300,798,0:IFNOTZf%THEN:xd%=FALSE:z`%=TRUE:ua%=aa%:SYS262353,aa%,0,-344,706,0
13478ENDIF
13480WHEN&1B:PROCLa(Za%)
13482ENDCASE
13488WHENaa%:CASEEh%OF
13492WHEN&183
13502WHEN&18E:CASEGb%OF
13506WHEN5:PROCIh(aa%,5,yd%(Ie%),-1,100,0,10,aa%,FNJh(aa%,10),1,0)
13508WHEN10:PROCIh(aa%,10,_d%(Ie%),-1,100,0,15,aa%,FNJh(aa%,15),1,0)
13510WHEN15:PROCIh(aa%,15,Ae%(Ie%),-1,100,0,20,aa%,FNJh(aa%,20),1,0)
13512WHEN20:PROCIh(aa%,20,Ce%(Ie%),-1,100,0,25,aa%,FNJh(aa%,25),1,0)
13514WHEN25:PROCIh(aa%,25,Ee%(Ie%),-1,100,0,30,aa%,FNJh(aa%,30),1,0)
13516WHEN30:PROCIh(aa%,30,Ie%,-1,5,0,41,aa%,FNJh(aa%,41),1,0)
13518WHEN41:PROCIh(aa%,41,Ke%(Ie%),0,cg%,0,41,-1,1,1,0):IFIe%=0THEN:PROCIh(aa%,41,Ke%(Ie%),-1,cg%,0,41,-1,1,1,0)
13522ENDCASE
13524WHEN&18F:CASEGb%OF
13528WHEN5:PROCIh(aa%,5,yd%(Ie%),-1,100,0,5,-1,1,1,0)
13530WHEN10:PROCIh(aa%,10,_d%(Ie%),-1,100,0,5,aa%,FNJh(aa%,5),1,0)
13532WHEN15:PROCIh(aa%,15,Ae%(Ie%),-1,100,0,10,aa%,FNJh(aa%,10),1,0)
13534WHEN20:PROCIh(aa%,20,Ce%(Ie%),-1,100,0,15,aa%,FNJh(aa%,15),1,0)
13536WHEN25:PROCIh(aa%,25,Ee%(Ie%),-1,100,0,20,aa%,FNJh(aa%,20),1,0)
13538WHEN30:PROCIh(aa%,30,Ie%,-1,5,0,25,aa%,FNJh(aa%,25),1,0)
13540WHEN41:PROCIh(aa%,41,Ke%(Ie%),0,cg%,0,30,aa%,FNJh(aa%,30),1,0):IFIe%=0THEN:PROCIh(aa%,41,Ke%(Ie%),-1,cg%,0,30,aa%,FNJh(aa%,30),1,0)
13544ENDCASE
13546WHEN13:IFIe%>0THEN:PROCxd
13550IFFNdgTHEN
13552PROCLa(aa%):nd%=TRUE:PROCsf:PROCeg(Le%()):PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):SYS262353,aa%,0,-344,706,0
13564ENDIF
13566WHEN&1B:PROCLa(aa%)
13568ENDCASE
13574WHENha%:CASEEh%OF
13578WHEN&18E:CASEGb%OF
13582WHEN2:PROCIh(ha%,2,Me%(We%),-1,999900,0,15,ha%,FNJh(ha%,15),1,0)
13584WHEN15:PROCIh(ha%,15,Se%(We%),-1,100,0,21,ha%,FNJh(ha%,21),1,0)
13586WHEN21:PROCIh(ha%,21,Ue%(We%),-1,999900,0,26,ha%,FNJh(ha%,26),1,0)
13588WHEN26:PROCIh(ha%,26,We%,-1,5,0,30,ha%,FNJh(ha%,30),1,0)
13590WHEN30:PROCIh(ha%,30,Ye%(We%),0,cg%,0,30,-1,1,1,0):IFWe%=0THEN:PROCIh(ha%,30,Ye%(We%),-1,cg%,0,30,-1,1,1,0)
13594ENDCASE
13596WHEN&18F:CASEGb%OF
13600WHEN2:PROCIh(ha%,2,Me%(We%),-1,999900,0,2,-1,1,1,0)
13602WHEN15:PROCIh(ha%,15,Se%(We%),-1,100,0,2,ha%,FNJh(ha%,2),1,0)
13604WHEN21:PROCIh(ha%,21,Ue%(We%),-1,999900,0,15,ha%,FNJh(ha%,15),1,0)
13606WHEN26:PROCIh(ha%,26,We%,-1,5,0,21,ha%,FNJh(ha%,21),1,0)
13608WHEN30:PROCIh(ha%,30,Ye%(We%),0,cg%,0,26,ha%,FNJh(ha%,26),1,0):IFWe%=0THEN:PROCIh(ha%,30,Ye%(We%),-1,cg%,0,26,ha%,FNJh(ha%,26),1,0)
13612ENDCASE
13614WHEN13:IFWe%>0THEN:PROCpg
13618IFFNqgTHEN
13620PROCLa(ha%):nd%=TRUE:PROCsf:FORN%=0TO5:PROCae(N%):NEXT:PROCfb(ha%,12,Qe%(We%)):PROCeg(Ze%()):PROCwf
13630ENDIF
13632WHEN&1B:PROCLa(ha%)
13634ENDCASE
13640WHENba%:CASEEh%OF
13644WHEN&183
13654WHEN&18E:CASEGb%OF
13658WHEN3:PROCIh(ba%,3,de%(be%),-101,10,-100,8,ba%,FNJh(ba%,8),1,0)
13660WHEN8:PROCIh(ba%,8,he%(be%),-1,100,0,13,ba%,FNJh(ba%,13),1,0)
13662WHEN13:PROCIh(ba%,13,je%(be%),-1,100,0,18,ba%,FNJh(ba%,18),1,0)
13664WHEN18:PROCIh(ba%,18,le%(be%),-1,100,0,23,ba%,FNJh(ba%,8),1,0)
13666WHEN23:PROCIh(ba%,23,be%,-1,5,0,27,ba%,FNJh(ba%,23),1,0)
13668WHEN27:PROCIh(ba%,27,fe%(be%),0,cg%,0,27,-1,FNJh(ba%,27),1,0):IFbe%=0THEN:PROCIh(ba%,27,fe%(be%),-1,cg%,0,27,-1,1,1,0)
13672ENDCASE
13674WHEN&18F:CASEGb%OF
13678WHEN3:PROCIh(ba%,3,de%(be%),-101,10,-100,3,-1,1,1,0)
13680WHEN8:PROCIh(ba%,8,he%(be%),-1,100,0,3,ba%,FNJh(ba%,3),1,0)
13682WHEN13:PROCIh(ba%,13,je%(be%),-1,100,0,8,ba%,FNJh(ba%,8),1,0)
13684WHEN18:PROCIh(ba%,18,le%(be%),-1,100,0,13,ba%,FNJh(ba%,13),1,0)
13686WHEN23:PROCIh(ba%,23,be%,-1,5,0,18,ba%,FNJh(ba%,18),1,0)
13688WHEN27:PROCIh(ba%,27,fe%(be%),0,cg%,0,23,ba%,FNJh(ba%,23),1,0):IFbe%=0THEN:PROCIh(ba%,27,fe%(be%),-1,cg%,0,23,ba%,FNJh(ba%,23),1,0)
13692ENDCASE
13694WHEN13:IFbe%>0THEN:PROCgg
13698IFFNhgTHEN
13700PROCLa(ba%):nd%=TRUE:PROCsf:PROCeg(ge%()):PROCxf:SYS262353,ba%,0,-300,798,0
13708ENDIF
13710WHEN&1B:PROCLa(ba%)
13712ENDCASE
13718WHENfa%:CASEEh%OF
13722WHEN&18E:CASEGb%OF
13726WHEN4:PROCIh(fa%,4,ne%(xe%),-1,100,0,9,fa%,FNJh(fa%,9),1,0)
13728WHEN9:PROCIh(fa%,9,pe%(xe%),-1,100,0,14,fa%,FNJh(fa%,14),1,0)
13730WHEN14:PROCIh(fa%,14,re%(xe%),-1,100,0,20,fa%,FNJh(fa%,20),1,0)
13732WHEN20:PROCIh(fa%,20,te%(xe%),-1,100,0,37,fa%,FNJh(fa%,37),1,0)
13734WHEN37:PROCIh(fa%,37,ve%(xe%),-1,9990,0,25,fa%,FNJh(fa%,25),1,0)
13736WHEN25:PROCIh(fa%,25,xe%,-1,5,0,29,fa%,FNJh(fa%,29),1,0)
13738WHEN29:PROCIh(fa%,29,ze%(xe%),0,cg%,0,29,-1,1,1,0):IFxe%=0THEN:PROCIh(fa%,29,ze%(xe%),-1,cg%,0,29,-1,1,1,0)
13742ENDCASE
13744WHEN&18F:CASEGb%OF
13748WHEN4:PROCIh(fa%,4,ne%(xe%),-1,100,0,4,-1,1,1,0)
13750WHEN9:PROCIh(fa%,9,pe%(xe%),-1,100,0,4,fa%,FNJh(fa%,4),1,0)
13752WHEN14:PROCIh(fa%,14,re%(xe%),-1,100,0,9,fa%,FNJh(fa%,9),1,0)
13754WHEN20:PROCIh(fa%,20,te%(xe%),-1,100,0,14,fa%,FNJh(fa%,14),1,0)
13756WHEN37:PROCIh(fa%,37,ve%(xe%),-1,9990,0,20,fa%,FNJh(fa%,20),1,0)
13758WHEN25:PROCIh(fa%,25,xe%,-1,5,0,37,fa%,FNJh(fa%,37),1,0)
13760WHEN29:PROCIh(fa%,29,ze%(xe%),0,cg%,0,25,fa%,FNJh(fa%,25),1,0):IFxe%=0THEN:PROCIh(fa%,29,ze%(xe%),-1,cg%,0,25,fa%,FNJh(fa%,25),1,0)
13764ENDCASE
13766WHEN13:IFxe%>0THEN:PROCig
13770IFFNjgORxe%=0THEN
13772PROCLa(fa%):nd%=TRUE:PROCsf:PROCeg(_e%()):PROCyf
13778ENDIF
13780WHEN&1B:PROCLa(fa%)
13782ENDCASE
13788WHENca%:CASEEh%OF
13792WHEN&18E:CASEGb%OF
13796WHEN3:PROCIh(ca%,3,`e%(Df%),-1,100,0,8,ca%,FNJh(ca%,8),1,0)
13798WHEN8:PROCIh(ca%,8,Bf%(Df%),-1,100,0,12,ca%,FNJh(ca%,12),1,0)
13800WHEN12:PROCIh(ca%,12,Df%,-1,5,0,16,ca%,FNJh(ca%,16),1,0)
13802WHEN16:PROCIh(ca%,16,Ff%(Df%),0,cg%,0,16,-1,1,1,0):IFDf%=0THEN:PROCIh(ca%,16,Ff%(Df%),-1,cg%,0,16,-1,1,1,0)
13806ENDCASE
13808WHEN&18F:CASEGb%OF
13812WHEN3:PROCIh(ca%,3,`e%(Df%),-1,100,0,3,-1,1,1,0)
13814WHEN8:PROCIh(ca%,8,Bf%(Df%),-1,100,0,3,ca%,FNJh(ca%,3),1,0)
13816WHEN12:PROCIh(ca%,12,Df%,-1,5,0,8,ca%,FNJh(ca%,8),1,0)
13818WHEN16:PROCIh(ca%,16,Ff%(Df%),0,cg%,0,12,ca%,FNJh(ca%,12),1,0):IFDf%=0THEN:PROCIh(ca%,16,Ff%(Df%),-1,cg%,0,12,ca%,FNJh(ca%,12),1,0)
13822ENDCASE
13824WHEN13:IFDf%>0THEN:PROCkg
13828IFFNlgTHEN
13830PROCLa(ca%):nd%=TRUE:PROCsf:PROCeg(Gf%()):PROCzf
13836ENDIF
13838WHEN&1B:PROCLa(ca%)
13840ENDCASE
13846WHENea%:CASEEh%OF
13850WHEN&18E:CASEGb%OF
13854WHEN3:PROCIh(ea%,3,Hf%(Lf%),-1,50000,0,8,ea%,FNJh(ea%,8),1,0)
13856WHEN8:PROCIh(ea%,8,Jf%(Lf%),-1,50000,0,12,ea%,FNJh(ea%,12),1,0)
13858WHEN12:PROCIh(ea%,12,Lf%,-1,5,0,16,ea%,FNJh(ea%,16),1,0)
13860WHEN16:PROCIh(ea%,16,Nf%(Lf%),0,cg%,0,16,-1,1,1,0):IFLf%=0THEN:PROCIh(ea%,16,Nf%(Lf%),-1,cg%,0,16,-1,1,1,0)
13864ENDCASE
13866WHEN&18F:CASEGb%OF
13870WHEN3:PROCIh(ea%,3,Hf%(Lf%),-1,50000,0,3,-1,1,1,0)
13872WHEN8:PROCIh(ea%,8,Jf%(Lf%),-1,50000,0,3,ea%,FNJh(ea%,3),1,0)
13874WHEN12:PROCIh(ea%,12,Lf%,-1,5,0,8,ea%,FNJh(ea%,8),1,0)
13876WHEN16:PROCIh(ea%,16,Nf%(Lf%),0,cg%,0,12,ea%,FNJh(ea%,12),1,0):IFLf%=0THEN:PROCIh(ea%,16,Nf%(Lf%),-1,cg%,0,12,ea%,FNJh(ea%,12),1,0)
13880ENDCASE
13882WHEN13:IFLf%>0THEN:PROCx`
13886IFFNmgTHEN
13888PROCLa(ea%):nd%=TRUE:PROCsf:PROCeg(Of%()):PROC_f
13894ENDIF
13896WHEN&18B:PROCLa(ea%)
13898ENDCASE
13904WHENga%:CASEEh%OF
13908WHEN&18E:CASEGb%OF
13912WHEN4:PROCIh(ga%,4,Pf%(Vf%),-1,999,0,10,ga%,FNJh(ga%,10),1,0)
13914WHEN10:PROCIh(ga%,10,Rf%(Vf%),-1,999,0,16,ga%,FNJh(ga%,16),1,0)
13916WHEN16:PROCIh(ga%,16,Tf%(Vf%),-1,999,0,21,ga%,FNJh(ga%,21),1,0)
13918WHEN21:PROCIh(ga%,21,Vf%,-1,5,0,25,ga%,FNJh(ga%,25),1,0)
13920WHEN25:PROCIh(ga%,25,Xf%(Vf%),0,cg%,0,25,-1,1,1,0):IFVf%=0THEN:PROCIh(ga%,25,Xf%(Vf%),-1,cg%,0,25,-1,1,1,0)
13924ENDCASE
13926WHEN&18F:CASEGb%OF
13930WHEN4:PROCIh(ga%,4,Pf%(Vf%),-1,999,0,4,-1,1,1,0)
13932WHEN10:PROCIh(ga%,10,Rf%(Vf%),-1,999,0,4,ga%,FNJh(ga%,4),1,0)
13934WHEN16:PROCIh(ga%,16,Tf%(Vf%),-1,999,0,10,ga%,FNJh(ga%,10),1,0)
13936WHEN21:PROCIh(ga%,21,Vf%,-1,5,0,16,ga%,FNJh(ga%,16),1,0)
13938WHEN25:PROCIh(ga%,25,Xf%(Vf%),0,cg%,0,21,ga%,FNJh(ga%,21),1,0):IFVf%=0THEN:PROCIh(ga%,25,Xf%(Vf%),-1,cg%,0,21,ga%,FNJh(ga%,21),1,0)
13942ENDCASE
13944WHEN13:IFVf%>0THEN:PROCng
13948IFFNogORVf%=0THEN
13950PROCLa(ga%):nd%=TRUE:PROCsf:PROCeg(Yf%()):PROC`f
13956ENDIF
13958WHEN&18E:PROCLa(ga%)
13960ENDCASE
13966WHENia%:CASEEh%OF
13970WHEN&18E:CASEGb%OF
13974WHEN16:PROCIh(ia%,16,kf%(of%),-101,10,-100,21,ia%,FNJh(ia%,21),1,0)
13976WHEN21:PROCIh(ia%,21,of%,-1,5,0,25,ia%,FNJh(ia%,25),1,0)
13978WHEN25:PROCIh(ia%,25,mf%(of%),0,cg%,0,25,-1,1,1,0):IFof%=0THEN:PROCIh(ia%,25,mf%(of%),-1,cg%,0,25,-1,1,1,0)
13982ENDCASE
13984WHEN&18F:CASEGb%OF
13988WHEN16:PROCIh(ia%,16,kf%(of%),-101,10,-100,16,-1,1,1,0)
13990WHEN21:PROCIh(ia%,21,of%,-1,5,0,16,ia%,FNJh(ia%,16),1,0)
13992WHEN25:PROCIh(ia%,25,mf%(of%),0,cg%,0,21,ia%,FNJh(ia%,21),1,0):IFof%=0THEN:PROCIh(ia%,25,mf%(of%),-1,cg%,0,21,ia%,FNJh(ia%,21),1,0)
13996ENDCASE
13998WHEN13:IFof%>-1THEN:PROCrg
14002IFFNsgTHEN
14004PROCLa(ia%):PROCtg:PROCeg(nf%())
14008ENDIF
14010WHEN&18E:PROCLa(ia%)
14012ENDCASE
14018WHENja%:CASEEh%OF
14022WHEN13:CASEGb%OF
14026WHEN1:PROCEd(ja%,1,P`%):PROCFd
14028ENDCASE
14030ENDCASE
14036WHENla%:CASEEh%OF
14040WHEN13:CASEGb%OF
14044WHEN1:PROCEd(la%,1,S`%):PROCFd
14046ENDCASE
14048ENDCASE
14054WHENna%:CASEEh%OF
14058WHEN13:CASEGb%OF
14062WHEN1:PROCEd(na%,1,Q`%):PROCFd
14064ENDCASE
14066ENDCASE
14068ENDCASE:ENDPROC
14074DEFPROCya:CASEX_%!0OF
14082WHENja%:SYS262354,X_%!0,1,0,0,-1,LEN($P`%)
14084WHENla%:SYS262354,X_%!0,1,0,0,-1,LEN($S`%)
14086WHENna%:SYS262354,X_%!0,1,0,0,-1,LEN($Q`%)
14088ENDCASE:ENDPROC
14094DEFPROCW_:SYS262362:SYS263873:SYS262377,36,,N`%,&1,0,0,0,0:PROCMh:SYS262365:END:ENDPROC
14110DEFPROCBa:SYS262351,,X_%:CASEX_%!12OF
14120WHENQa%,Sa%:CASEX_%!16OF
14124WHEN12:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2
14128OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1
14132ENDCASE
14134WHENLa%:CASEX_%!16OF
14138WHEN4,7,10,13,16,19,22:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2
14142OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1
14146ENDCASE
14148WHENda%:CASEX_%!16OF
14152WHEN3:IFCa%=1THEN:SYS262377,36,,O`%,&2,4,4,0,0:Ca%=2
14156OTHERWISE:IFCa%=2THEN:SYS262377,36,,N`%,&1,0,0,0,0:Ca%=1
14160ENDCASE
14162ENDCASE:ENDPROC
14168DEFPROCHa(Nh$):!X_%=255:$(X_%+4)=Nh$+CHR$0:SYS262367,X_%,1,Ga$:ENDPROC
14178DEFPROCDb(Nh$,Oh%):E`$=Ga$:IFOh%AND16THENE`$="Message from "+E`$
14184!X_%=255:$(X_%+4)=Nh$+CHR$0:SYS262367,X_%,Oh%,E`$TO,Ph%:ENDPROC
14192DEFPROCCb(X_%):CASEX_%!16OF
14196WHEN0:U_%=TRUE
14198WHEN2:CASET`%OF
14202WHEN&FFF:$S`%=FNHb(X_%+44):PROCLa(la%):PROCQh:PROCRh(la%,2,S`%,ma%)
14208WHEN&AFF:$P`%=FNHb(X_%+44):PROCLa(ja%):PROCSh:PROCRh(ja%,2,P`%,ka%)
14214WHEN&077:$Q`%=FNHb(X_%+44):PROCLa(na%):PROCTh:PROCRh(na%,2,Q`%,oa%)
14220ENDCASE:IFEa%=Ma%THEN
14224w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-960,1280,-150
14230ENDIF
14232WHEN3:T`%=X_%!40:CASET`%OF
14238WHEN&077:$R`%=FNHb(X_%+44):PROCUh:PROCqf:nd%=TRUE:PROCsf:PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd
14248ENDCASE
14250WHEN&502:PROCVh(FNWh,X_%!8,X_%!4)
14254WHEN&400C1:X_%!0=Ma%:SYS262339,,X_%:PROCMh:PROCG_:SYS46,256+9,Na%:PROCB_:PROCD_
14266ENDCASE:ENDPROC
14272DEFPROCVh(Xh$,Yh%,Zh%):IFLEN(Xh$)>0THEN
14276X_%!0=256:X_%!12=Yh%:X_%!16=&503:$(X_%+20)=Xh$+CHR$0:SYS262375,17,X_%,Zh%
14286ENDIF:ENDPROC
14292DEFPROCF_(E`$):SYS267520,,E`$:SYS30,6,,,17+LEN(E`$)TO,,ah%:$(ah%+16)=E`$:SYS267521,ah%,ah%+16:ENDPROC
14306DEFPROC_`:LOCALbh%,ch%:dh%=!X_%:eh%=X_%!8:fh%=X_%!4:gh%=X_%!12:IFeh%<dh%THEN:ch%=eh%:eh%=dh%:dh%=ch%
14316IFgh%<fh%THEN:ch%=gh%:gh%=fh%:fh%=ch%
14318IF((eh%-dh%)/1000)*(Yb%-ab%)<10OR((gh%-fh%)/500)*(ob%-qb%)<0.1OR((gh%-fh%)/500)*(Kc%-Mc%)<15THEN:_`%=FALSE:ENDPROC
14320Xb%=0:bb%=bb%+Kd%*(dh%-Nb%-140)/1000:Zb%=Zb%+Kd%*(eh%-Nb%-1140)/1000:Yb%=Zb%:ab%=bb%:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):SYS262353,Ma%,0,-960,1280,-150:CASEhb%OF
14340WHEN1:PROChh(pb%,rb%,Qd%,ob%,qb%):pb%=ob%:rb%=qb%
14344WHEN2:PROChh(_b%,`b%,uc%,ob%,qb%):_b%=ob%:`b%=qb%
14348ENDCASE:CASEDc%OF
14352WHEN1:PROChh(Lc%,Nc%,Sd%,Kc%,Mc%):Lc%=Kc%:Nc%=Mc%
14356WHEN2:PROChh(Xc%,Yc%,Xd%,Kc%,Mc%):Xc%=Kc%:Yc%=Mc%
14360WHEN3:PROChh(jc%,kc%,Zd%,Kc%,Mc%):jc%=Kc%:kc%=Mc%
14364WHEN4:PROChh(dc%,ec%,Yd%,Kc%,Mc%):dc%=Kc%:ec%=Mc%
14368ENDCASE:PROCJd:PROCtc(ob%,qb%,ob%-qb%,vc%,wc%,xc%,yc):PROCtc(Kc%,Mc%,Kc%-Mc%,Td%,Ud%,Vd%,Wd):PROCfb(Va%,13,Yb%+1750):PROCfb(Va%,17,ab%+1750):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):PROCfb(Sa%,19,Kc%):PROCfb(Sa%,23,Mc%):_`%=FALSE:ENDPROC
14388DEFPROChh(ih%,jh%,r%,RETURNHh%,RETURNGh%):Gh%=jh%+r%*(fh%-Ob%+700)/500:Hh%=ih%+r%*(gh%-Ob%+200)/500:ENDPROC
14398DEFPROCsf:LOCALHb$:IFnd%THENHb$=" *"ELSEHb$=""
14404PROCwd(Ma%,Oa%,"CO2effect Global Warming Simulation"+Hb$):FORN%=1TO7:PROCwd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):NEXT:ENDPROC
14418DEFPROCA_:kh%=OPENIN"<CO2effect$Dir>.Sprites22":lh%=EXT#kh%+4:CLOSE#kh%:DIMNa% lh%+256:ENDPROC
14436DEFPROCB_:SYS53,-1,5TO,,mh%:CASEmh%OF
14446WHEN2:kh%=OPENIN"<CO2effect$Dir>.Sprites"
14448WHEN1:kh%=OPENIN"<CO2effect$Dir>.Sprites22"
14450ENDCASE:!Na%=lh%+256:Na%!8=16:SYS46,256+9,Na%:CASEmh%OF
14458WHEN2:SYS46,256+10,Na%,"<CO2effect$Dir>.Sprites"
14460WHEN1:SYS46,256+10,Na%,"<CO2effect$Dir>.Sprites22"
14462ENDCASE:ENDPROC
14468DEFPROCG_:SYS262273,,"Trinity.Medium",10*16,10*16TOnh%:SYS262273,,"Trinity.Medium",12*16,12*16TOoh%:SYS262273,,"Trinity.Medium",14*16,14*16TOph%:SYS262273,,"Trinity.Medium",16*16,16*16TOqh%:!C`%=0:C`%!4=65536:C`%!8=-65536:C`%!12=0
14484C`%!16=0:C`%!20=0:ENDPROC
14490DEFPROCMh:SYS262274,nh%:SYS262274,oh%:SYS262274,ph%:SYS262274,qh%:FORN%=0TO255:rh%=?(D`%+N%):WHILErh%>0:SYS262274,N%:rh%-=1:ENDWHILE:NEXTN%:ENDPROC
14524DEFPROCva(sh%):SYS262344,,X_%TOth%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:CASEsh%OF
14534WHENMa%:WHILEth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:IFy`%THEN:uh%=Nb%+140:vh%=Nb%+1140
14544IFNOTu`%ANDw`%THEN:PROCyh(Nb%,Ob%,uh%,vh%,wh%,xh%)
14548IFx`%THEN:PROCzh(Nb%,Ob%)
14550SYS262346,,X_%TOth%:ENDWHILE:w`%=TRUE:x`%=TRUE
14556WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):WHILEth%:PROC_h(Nb%,Ob%,sh%):SYS262346,,X_%TOth%:ENDWHILE
14566WHENaa%:WHILEth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:IFxh%>Ob%-340ANDxd%THEN:PROC`h(Nb%,Ob%,uh%,wh%)
14574SYS262346,,X_%TOth%:ENDWHILE:xd%=TRUE
14580WHENba%:WHILEth%:PROCAi(Nb%,Ob%):SYS262346,,X_%TOth%:ENDWHILE
14590WHENda%:WHILEth%:PROCBi(Nb%,Ob%):SYS262346,,X_%TOth%:ENDWHILE
14600ENDCASE:y`%=FALSE:ENDPROC
14608DEFPROCBi(Nb%,Ob%):LOCALCi%:SYS262282,ph%:FORCi%=0TO3:SYS262278,,Di$(Ci%,Cd%),%10000,Nb%+220,Ob%-180-50*Ci%:NEXT:ENDPROC
14628DEFPROCzh(Nb%,Ob%):LOCALEi%,Fi%:SYS262374,1:RECTANGLEFILLNb%,Ob%-960,140,800:RECTANGLEFILLNb%+1140,Ob%-960,140,800:RECTANGLEFILLNb%+140,Ob%-960,1000,100:RECTANGLEFILLNb%+140,Ob%-200,1000,200:SYS262374,7:SYS262387,,1,7:RECTANGLEFILLNb%+139,Ob%-701,1002,2:RECTANGLEFILLNb%+139,Ob%-701,2,502
14664RECTANGLEFILLNb%+1140,Ob%-701,2,502:RECTANGLEFILLNb%+139,Ob%-200,1002,2:SYS262282,qh%:SYS262278,,"Year",%10000,Nb%+590,Ob%-780:IFFa%=&A3ORFa%=&A4THEN
14678SYS262282,ph%:SYS262281,,Nb%+40,Ob%-625TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:IFkb%THEN:SYS262278,,hb$,%01001000000,Ah%,Bh%,,C`%
14686SYS262281,,Nb%+1240,Ob%-320TO,Ah%,Bh%:C`%!4=-65536:C`%!8=65536:IFGc%THEN:SYS262278,,Dc$,%01001000000,Ah%,Bh%,,C`%
14692ENDIF:SYS262282,oh%:PROCGi(bb%,Vb%,Hi):IFNOT(oc%ANDNOTyb%)THEN
14710CASEhb%OF
14712WHEN1:IFlb%THEN:PROCIi(Nb%,Ob%,rb%,140,-700,1000,500,nb,wc%,xc%,yc,jb%,10,-100,-7,2,0,0)
14716WHEN2:IFyb%THEN:PROCIi(Nb%,Ob%,`b%,140,-700,1000,500,zb,wc%,xc%,yc,xb%,10,-100,-7,2,0,0)
14720ENDCASE
14722ENDIF:IFNOT(oc%ANDNOTHc%)THEN
14732CASEDc%OF
14734WHEN1:IFHc%THEN:PROCIi(Nb%,Ob%,Nc%,1140,-700,-1000,500,Jc,Ud%,Vd%,Wd,Fc%,1,13,-7,1,0,-1)
14738WHEN2:IFVc%THEN:PROCIi(Nb%,Ob%,Yc%,1140,-700,-1000,500,Wc,Ud%,Vd%,Wd,Uc%,1,13,-7,2,-1,-1)
14742WHEN3,5:IFbc%THEN:PROCIi(Nb%,Ob%,ec%,1140,-700,-1000,500,cc,Ud%,Vd%,Wd,ac%,1,13,-7,2,-1,-1)
14746WHEN4:IFhc%THEN:PROCIi(Nb%,Ob%,kc%,1140,-700,-1000,500,ic,Ud%,Vd%,Wd,gc%,1,13,-7,2,-1,-1)
14750ENDCASE
14752ENDIF:Fi%=0:IFNOToc%THEN
14762CASEhb%OF
14764WHEN1:IFlb%THEN:PROCJi(Nb%,Ob%,Fi%,tb%,"Temperature"):Fi%+=3
14766WHEN2:IFyb%THEN:PROCJi(Nb%,Ob%,Fi%,Ac%,"Radiative forcing"):Fi%+=3
14768ENDCASE:CASEDc%OF
14772WHEN1:IFHc%THEN:PROCJi(Nb%,Ob%,Fi%,Qc%,"CO2 concentration"):Fi%+=1
14774WHEN2:IFVc%THEN:PROCJi(Nb%,Ob%,Fi%,Zc%,"CH4 concentration"):Fi%+=1
14776WHEN4:IFhc%THEN:PROCJi(Nb%,Ob%,Fi%,lc%,"N2O concentration"):Fi%+=1
14778WHEN3:IFbc%THEN
14782IFNOTnc%THEN
14784PROCJi(Nb%,Ob%,Fi%,fc%(0),"CFCs concentration"):Fi%+=1
14786ELSE:PROCJi(Nb%,Ob%,Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1
14794ENDIF
14796ENDIF
14798ENDCASE
14800ELSE:PROCJi(Nb%,Ob%,Fi%,Qc%,"CO2"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,Zc%,"CH4"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,lc%,"N2O"):Fi%+=1:IFNOTnc%THEN
14810PROCJi(Nb%,Ob%,Fi%,fc%(0),"CFCs"):Fi%+=1
14812ELSE:PROCJi(Nb%,Ob%,Fi%,fc%(1),"CFC-11"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(2),"CFC-12"):Fi%+=1:PROCJi(Nb%,Ob%,Fi%,fc%(3),"HCFC-22"):Fi%+=1
14820ENDIF
14822ENDIF:ENDPROC
14828DEFPROCGi(jh%,Ki%,Li):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORX%=0TONd%:Hb$=LEFT$(STR$(1750+bb%+Md%+Od*X%+0.001),4):SYS262278,,Hb$,%10000,Nb%+140-30+1000*Li*(Md%+Od*X%),Ob%-740:LINENb%+140+1000*Li*(Md%+Od*X%),Ob%-700,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-715
14842IFVb%THEN:PLOT&04,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700:PLOT&15,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-200
14844NEXT:ENDPROC
14850DEFPROCJi(Nb%,Ob%,n%,c%,Hb$):LOCALMi%,Ni%,x%,y%:Mi%=n%MOD3:Ni%=INT(n%/3):x%=140+Ni%*400:y%=-850-Mi%*40:SYS262374,7:RECTANGLEFILLNb%+x%,Ob%+y%,20,20:SYS262374,c%:RECTANGLEFILLNb%+x%+2,Ob%+y%+2,16,16:SYS262282,ph%:SYS262278,,Hb$,%10000,Nb%+x%+40,Ob%+y%:ENDPROC
14880DEFPROCyh(Nb%,Ob%,uh%,vh%,wh%,xh%):LOCALx%,y%,s,e,Oi%,Pi%:IFuh%>Nb%+140+Tb%*(1000*Hi)ORvh%<Nb%+140THEN:ENDPROC
14892IFuh%<=Nb%+140THENuh%=Nb%+140
14894IFvh%>=Nb%+140+(Tb%-bb%)*(1000*Hi)THEN:vh%=Nb%+141+(Tb%-bb%)*(1000*Hi)
14896IFwh%>Ob%-200ORxh%<Ob%-700THEN:ENDPROC
14898IFNOToc%THEN
14902IFhb%=1ANDlb%THEN
14904FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*nb*(t(N%)-273-(rb%+ad%)/10):IFN%=bb%THEN:Oi%=y%
14912PROCQi(tb%,x%,y%,Oi%,nb%,y%):Oi%=y%:NEXTN%
14918ENDIF:IFhb%=2ANDyb%THEN
14922FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*zb*(Ri(N%)-(`b%+bd%)/10):IFN%=bb%THEN:Oi%=y%
14930PROCQi(Ac%,x%,y%,Oi%,zb%,y%):Oi%=y%:NEXTN%
14936ENDIF:IFDc%=1ANDHc%THEN
14940FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Jc*(Si(N%)-(Nc%+cd%)):IFN%=bb%THEN:Pi%=y%
14948PROCQi(Qc%,x%,y%,Pi%,Jc%,y%):Pi%=y%:NEXTN%
14954ENDIF:IFDc%=2ANDVc%THEN
14958FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Wc*(Ti(N%)-(Yc%+dd%)):IFN%=bb%THEN:Pi%=y%
14966PROCQi(Zc%,x%,y%,Pi%,Wc%,y%):Pi%=y%:NEXTN%
14972ENDIF:IFDc%=3ANDbc%THEN
14976IFNOTnc%THEN
14978FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,0)-(ec%+ed%(0))):IFN%=bb%THEN:Pi%=y%
14986PROCQi(fc%(0),x%,y%,Pi%,cc%,y%):Pi%=y%:NEXTN%
14992ELSE:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,1)-(ec%+ed%(1))):IFN%=bb%THEN:Vi%=y%
15002PROCQi(fc%(1),x%,y%,Vi%,cc%,y%):Vi%=y%:NEXTN%:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,2)-(ec%+ed%(2))):IFN%=bb%THEN:Wi%=y%
15016PROCQi(fc%(2),x%,y%,Wi%,cc%,y%):Wi%=y%:NEXTN%:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,3)-(ec%+ed%(3))):IFN%=bb%THEN:Xi%=y%
15030PROCQi(fc%(3),x%,y%,Xi%,cc%,y%):Xi%=y%:NEXTN%
15036ENDIF
15038ENDIF:IFDc%=4ANDhc%THEN
15042FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*ic*(Yi(N%)-(kc%+fd%)):IFN%=bb%THEN:Pi%=y%
15050PROCQi(lc%,x%,y%,Pi%,ic%,y%):Pi%=y%:NEXTN%
15056ENDIF
15058ELSE:IFyb%ANDNOTHc%THEN
15061Zi%=zb%:y%=Ob%-700:s=500*zb:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*10*ai(N%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(N%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(N%):e%(3)=e%(2)+s*id%
15074y%(4)=y%(3)+s*10*di(N%,0):e%(4)=e%(3)+s*jd%(0):y%(5)=y%(3)+s*10*di(N%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(N%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(N%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%()
15086IFN%=bb%THEN:ei%()=y%()
15088PROCfi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():NEXT
15094ENDIF:IFHc%ANDNOTyb%THEN
15097Zi%=Jc%:y%=Ob%-700:s=500*Jc:FORN%=(uh%-Nb%-140)/(1000*Hi)+bb%TO(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*Si(N%):e%(1)=0:y%(2)=y%(1)+s*(277*EXP(bi(N%)/6.3)-277):e%(2)=e%(1)+s*(277*EXP(hd%/63)-277)
15110y%(3)=y%(2)+s*(277*EXP(ci(N%)/6.3)-277):e%(3)=e%(2)+s*(277*EXP(id%/63)-277):y%(4)=y%(3)+s*(277*EXP(di(N%,0)/6.3)-277):e%(4)=e%(3)+s*(277*EXP(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*EXP(di(N%,1)/6.3)-277):e%(5)=e%(3)+s*(277*EXP(jd%(1)/63)-277)
15116y%(6)=y%(5)+s*(277*EXP(di(N%,2)/6.3)-277):e%(6)=e%(5)+s*(277*EXP(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*EXP(di(N%,3)/6.3)-277):e%(7)=e%(6)+s*(277*EXP(jd%(3)/63)-277):e%()+=s*(Nc%+cd%):y%()=y%()-e%():IFN%=bb%THEN:ei%()=y%()
15126PROCfi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():NEXT
15132ENDIF
15134ENDIF:ENDPROC
15140DEFPROCta:IFSb%>240THEN
15174FORN%=Sb%TO400:Si(N%)=Si(N%)+(353.93/750)*gi(Sb%-240,0)*(0.3+0.001*(200-(N%-Sb%))+0.5*EXP(-(N%-Sb%)/(25-15*EXP(-(N%-Sb%)/20)))):Ti(N%)=Ti(N%)+(1717/4900)*(hi(Sb%-240,0)+155)*EXP(-(N%-Sb%)/10.5)
15180Ui(N%,1)=Ui(N%,1)+(255/6254)*ii(Sb%-240,1,0)*EXP(-(N%-Sb%)/55):Ui(N%,2)=Ui(N%,2)+(453/9777)*ii(Sb%-240,2,0)*EXP(-(N%-Sb%)/116):Ui(N%,3)=Ui(N%,3)+(110/1344)*ii(Sb%-240,3,0)*EXP(-(N%-Sb%)/15.8):Ui(N%,0)=Ui(N%,1)+Ui(N%,2)+Ui(N%,3)
15188Yi(N%)=Yi(N%)+(309.68/1500)*ji(Sb%-240,0)*EXP(-(N%-Sb%)/132):NEXTN%
15192ENDIF:ai(Sb%)=6.3*LN(Si(Sb%)/277):bi(Sb%)=0.036*(SQR(Ti(Sb%))-SQR(790)):di(Sb%,1)=0.22*Ui(Sb%,1)/1000:di(Sb%,2)=0.28*Ui(Sb%,2)/1000:di(Sb%,3)=0.189*Ui(Sb%,3)/1000:di(Sb%,0)=di(Sb%,1)+di(Sb%,2)+di(Sb%,3)
15212ci(Sb%)=0.14*(SQR(Yi(Sb%))-SQR(285.00)):Ri(Sb%)=ai(Sb%)+bi(Sb%)+di(Sb%,0)+ci(Sb%):CASECd%OF
15222WHEN0:t(Sb%)=FNki(Ri(Sb%))
15224WHEN1:t(Sb%)=FNli(Ri(Sb%))
15226WHEN2:t(Sb%)=FNmi(Ri(Sb%))
15228WHEN3:t(Sb%)=FNni(Ri(Sb%))
15230ENDCASE:Tb%=Sb%:IFNOTu`%THENPROCoi
15240PROCJb:IFSb%=Zb%THEN
15248r`%=FALSE:s`%=FALSE:PROCRb(Ma%,1):PROCRb(Ma%,2):Sb%=240:w`%=TRUE:SYS262353,Ma%,0,-960,1280,-150:ENDPROC
15262ENDIF:Sb%+=1:ENDPROC
15270DEFPROCoi:LOCALy%,s,e%,Li,pi%:Li=1000*Hi:pi%=1:IFnb%>LiORzb%>LiORJc%>LiORWc%>LiORic%>LiORcc%>LiTHEN:pi%=2
15284!X_%=Ma%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=140+Li*(Sb%-bb%-pi%):X_%!12=140+Li*(Sb%-bb%+pi%):X_%!8=-700:X_%!16=-200:SYS262345,,X_%TOth%:WHILEth%:IFNOToc%THEN
15302CASEhb%OF
15304WHEN1:y%=Ob%-700+5000*nb*(t(Sb%)-273-(rb%+ad%)/10):IFSb%=240THEN
15310Oi%=y%
15312ELSE:IFlb%THEN:PROCQi(tb%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,nb%,y%)
15316Oi%=y%
15318ENDIF
15320WHEN2:y%=Ob%-700+5000*zb*(Ri(Sb%)-(`b%+bd%)/10):IFSb%=240THEN
15326Oi%=y%
15328ELSE:IFyb%THEN:PROCQi(Ac%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,zb%,y%)
15332Oi%=y%
15334ENDIF
15336ENDCASE:CASEDc%OF
15340WHEN1:y%=Ob%-700+500*Jc*(Si(Sb%)-(Nc%+cd%)):IFSb%=240THEN
15346Pi%=y%
15348ELSE:IFHc%THEN:PROCQi(Qc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Jc%,y%)
15352Pi%=y%
15354ENDIF
15356WHEN2:y%=Ob%-700+500*Wc*(Ti(Sb%)-(Yc%+dd%)):IFSb%=240THEN
15362Pi%=y%
15364ELSE:IFVc%THEN:PROCQi(Zc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Wc%,y%)
15368Pi%=y%
15370ENDIF
15372WHEN3:IFNOTnc%THEN
15376y%=Ob%-700+500*cc*(Ui(Sb%,0)-(ec%+ed%(0))):IFSb%=240THEN
15380Pi%=y%
15382ELSE:IFbc%THEN:PROCQi(fc%(0),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,cc%,y%)
15386Pi%=y%
15388ENDIF
15390ELSE:y%=Ob%-700+500*cc*(Ui(Sb%,1)-(ec%+ed%(1))):IFSb%=240THEN
15396Vi%=y%
15398ELSE:IFbc%THEN:PROCQi(fc%(1),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Vi%,cc%,y%)
15402Vi%=y%
15404ENDIF:y%=Ob%-700+500*cc*(Ui(Sb%,2)-(ec%+ed%(2))):IFSb%=240THEN
15410Wi%=y%
15412ELSE:IFbc%THEN:PROCQi(fc%(2),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Wi%,cc%,y%)
15416Wi%=y%
15418ENDIF:y%=Ob%-700+500*cc*(Ui(Sb%,3)-(ec%+ed%(3))):IFSb%=240THEN
15424Xi%=y%
15426ELSE:IFbc%THEN:PROCQi(fc%(3),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Xi%,cc%,y%)
15430Xi%=y%
15432ENDIF
15434ENDIF
15436WHEN4:y%=Ob%-700+500*ic*(Yi(Sb%)-(kc%+fd%)):IFSb%=240THEN:Pi%=y%
15442IFhc%THEN:PROCQi(lc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,ic%,y%)
15444Pi%=y%
15446ENDCASE
15448ELSE:IFNOTHc%THEN
15451Zi%=zb%:s=500*zb:y%(1)=Ob%-700+s*10*ai(Sb%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(Sb%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(Sb%):e%(3)=e%(2)+s*id%:y%(4)=y%(3)+s*10*di(Sb%,0):e%(4)=e%(3)+s*jd%(0)
15462y%(5)=y%(3)+s*10*di(Sb%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(Sb%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(Sb%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%():IFSb%=240THEN
15474qi%()=y%()
15476ELSE:IFyb%THEN:PROCfi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%())
15480qi%()=y%()
15482ENDIF
15484ENDIF:IFNOTyb%THEN
15487Zi%=Jc%:s=500*Jc:y%(1)=Ob%-700+s*Si(Sb%):e%(1)=0:y%(2)=y%(1)+s*(277*EXP(bi(Sb%)/6.3)-277):e%(2)=e%(1)+s*(277*EXP(hd%/63)-277):y%(3)=y%(2)+s*(277*EXP(ci(Sb%)/6.3)-277):e%(3)=e%(2)+s*(277*EXP(id%/63)-277)
15496y%(4)=y%(3)+s*(277*EXP(di(Sb%,0)/6.3)-277):e%(4)=e%(3)+s*(277*EXP(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*EXP(di(Sb%,1)/6.3)-277):e%(5)=e%(3)+s*(277*EXP(jd%(1)/63)-277)
15500y%(6)=y%(5)+s*(277*EXP(di(Sb%,2)/6.3)-277):e%(6)=e%(5)+s*(277*EXP(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*EXP(di(Sb%,3)/6.3)-277):e%(7)=e%(6)+s*(277*EXP(jd%(3)/63)-277):e%()=0:e%()+=s*(Nc%+cd%):y%()=y%()-e%():IFSb%=240THEN
15512qi%()=y%()
15514ELSE:IFHc%THEN:PROCfi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%())
15518qi%()=y%()
15520ENDIF
15522ENDIF
15524ENDIF:SYS262346,,X_%TOth%:ENDWHILE:ENDPROC
15534DEFPROCQi(Ni%,x%,y%,ei%,lh%,RETURNy%):LOCALri:IF(x%-Nb%)>1140OR(x%-Nb%)<140THEN:ENDPROC
15544IFx%-Nb%=140THENri=0ELSEri=(1000*Hi)
15546y%=FNsi(y%,Ob%):ei%=FNsi(ei%,Ob%):IFNOTmc%THEN
15550CASEqc%OF
15552WHEN1:SYS262374,Ni%:CIRCLEFILLx%,y%,FNti(y%,Ob%,lh%)
15554WHEN2:SYS262374,Ni%:LINEx%-FNti(y%,Ob%,lh%),y%,x%+FNti(y%,Ob%,lh%),y%:LINEx%,y%-FNti(y%,Ob%,lh%),x%,y%+FNti(y%,Ob%,lh%)
15556WHEN3:SYS262374,Ni%:LINEx%-(1000*Hi),ei%,x%,y%
15558ENDCASE
15560ELSE:SYS262374,Ni%:MOVEx%-ri,Ob%-699:MOVEx%-ri,ei%:PLOT&55,x%,y%:MOVEx%,y%:MOVEx%,Ob%-699:PLOT&55,x%-ri,Ob%-699:IFqc%=3THEN
15570SYS262374,7:LINEx%-(1000*Hi),ei%,x%,y%
15572ENDIF
15574ENDIF:ENDPROC
15580DEFPROCfi(x%,y%(),ei%()):LOCALri:IFx%=Nb%+140THENri=0ELSEri=Hi
15592IF(x%-Nb%)>1140OR(x%-Nb%)<140THEN:ENDPROC
15594IFnc%THENui%=7ELSEui%=4
15596FORM%=1TOui%:y%(M%)=FNsi(y%(M%),Ob%):ei%(M%)=FNsi(ei%(M%),Ob%):NEXTM%:IFNOTmc%THEN
15606CASEqc%OF
15608WHEN1:IFnc%THEN
15612SYS262374,fc%(3):CIRCLEFILLx%,y%(7),FNti(y%(7),Ob%,Zi%):SYS262374,fc%(2):CIRCLEFILLx%,y%(6),FNti(y%(6),Ob%,Zi%):SYS262374,fc%(1):CIRCLEFILLx%,y%(5),FNti(y%(5),Ob%,Zi%)
15618ELSE:SYS262374,fc%(0):CIRCLEFILLx%,y%(4),FNti(y%(4),Ob%,Zi%)
15622ENDIF:SYS262374,lc%:CIRCLEFILLx%,y%(3),FNti(y%(3),Ob%,Zi%):SYS262374,Zc%:CIRCLEFILLx%,y%(2),FNti(y%(2),Ob%,Zi%):SYS262374,Qc%:CIRCLEFILLx%,y%(1),FNti(y%(1),Ob%,Zi%)
15630WHEN2:IFnc%THEN
15634SYS262374,fc%(3):LINEx%-FNti(y%(7),Ob%,Zi%),y%(7),x%+FNti(y%(7),Ob%,Zi%),y%(7):LINEx%,y%(7)-FNti(y%(7),Ob%,Zi%),x%,y%(7)+FNti(y%(7),Ob%,Zi%):SYS262374,fc%(2):LINEx%-FNti(y%(6),Ob%,Zi%),y%(6),x%+FNti(y%(6),Ob%,Zi%),y%(6)
15641LINEx%,y%(6)-FNti(y%(6),Ob%,Zi%),x%,y%(6)+FNti(y%(6),Ob%,Zi%):SYS262374,fc%(1):LINEx%-FNti(y%(5),Ob%,Zi%),y%(5),x%+FNti(y%(5),Ob%,Zi%),y%(5):LINEx%,y%(5)-FNti(y%(5),Ob%,Zi%),x%,y%(5)+FNti(y%(5),Ob%,Zi%)
15646ELSE:SYS262374,fc%(0):LINEx%-FNti(y%(4),Ob%,Zi%),y%(4),x%+FNti(y%(4),Ob%,Zi%),y%(4):LINEx%,y%(4)-FNti(y%(4),Ob%,Zi%),x%,y%(4)+FNti(y%(4),Ob%,Zi%)
15652ENDIF:SYS262374,lc%:LINEx%-FNti(y%(3),Ob%,Zi%),y%(3),x%+FNti(y%(3),Ob%,Zi%),y%(3):LINEx%,y%(3)-FNti(y%(3),Ob%,Zi%),x%,y%(3)+FNti(y%(3),Ob%,Zi%):SYS262374,Zc%:LINEx%-FNti(y%(2),Ob%,Zi%),y%(2),x%+FNti(y%(2),Ob%,Zi%),y%(2)
15661LINEx%,y%(2)-FNti(y%(2),Ob%,Zi%),x%,y%(2)+FNti(y%(2),Ob%,Zi%):SYS262374,Qc%:LINEx%-FNti(y%(1),Ob%,Zi%),y%(1),x%+FNti(y%(1),Ob%,Zi%),y%(1):LINEx%,y%(1)-FNti(y%(1),Ob%,Zi%),x%,y%(1)+FNti(y%(1),Ob%,Zi%)
15666WHEN3:IFnc%THEN
15670SYS262374,fc%(3):LINEx%-(1000*ri),ei%(7),x%,y%(7):SYS262374,fc%(2):LINEx%-(1000*ri),ei%(6),x%,y%(6):SYS262374,fc%(1):LINEx%-(1000*ri),ei%(5),x%,y%(5)
15676ELSE:SYS262374,fc%(0):LINEx%-(1000*ri),ei%(4),x%,y%(4)
15680ENDIF:SYS262374,lc%:LINEx%-(1000*ri),ei%(3),x%,y%(3):SYS262374,Zc%:LINEx%-(1000*ri),ei%(2),x%,y%(2):SYS262374,Qc%:LINEx%-(1000*ri),ei%(1),x%,y%(1)
15688ENDCASE
15690ELSE:IFnc%THEN
15694SYS262374,fc%(3):MOVEx%-(1000*ri),ei%(6):MOVEx%-(1000*ri),ei%(7):PLOT&55,x%,y%(7):MOVEx%,y%(7):MOVEx%,y%(6):PLOT&55,x%-(1000*ri),ei%(6):SYS262374,fc%(2):MOVEx%-(1000*ri),ei%(5):MOVEx%-(1000*ri),ei%(6):PLOT&55,x%,y%(6)
15704MOVEx%,y%(6):MOVEx%,y%(5):PLOT&55,x%-(1000*ri),ei%(5):SYS262374,fc%(1):MOVEx%-(1000*ri),ei%(3):MOVEx%-(1000*ri),ei%(5):PLOT&55,x%,y%(5):MOVEx%,y%(5):MOVEx%,y%(3):PLOT&55,x%-(1000*ri),ei%(3)
15712ELSE:SYS262374,fc%(0):MOVEx%-(1000*ri),ei%(3):MOVEx%-(1000*ri),ei%(4):PLOT&55,x%,y%(4):MOVEx%,y%(4):MOVEx%,y%(3):PLOT&55,x%-(1000*ri),ei%(3)
15720ENDIF:SYS262374,lc%:MOVEx%-(1000*ri),ei%(2):MOVEx%-(1000*ri),ei%(3):PLOT&55,x%,y%(3):MOVEx%,y%(3):MOVEx%,y%(2):PLOT&55,x%-(1000*ri),ei%(2):SYS262374,Zc%:MOVEx%-(1000*ri),ei%(1):MOVEx%-(1000*ri),ei%(2):PLOT&55,x%,y%(2)
15732MOVEx%,y%(2):MOVEx%,y%(1):PLOT&55,x%-(1000*ri),ei%(1):SYS262374,Qc%:MOVEx%-(1000*ri),Ob%-699:MOVEx%-(1000*ri),ei%(1):PLOT&55,x%,y%(1):MOVEx%,y%(1):MOVEx%,Ob%-699:PLOT&55,x%-(1000*ri),Ob%-699:CASEqc%OF
15744WHEN2:SYS262374,7:IFnc%THEN
15750LINEx%-FNti(y%(7),Ob%,Zi%),y%(7),x%+FNti(y%(7),Ob%,Zi%),y%(7):LINEx%,y%(7)-FNti(y%(7),Ob%,Zi%),x%,y%(7)+FNti(y%(7),Ob%,Zi%)
15752LINEx%-FNti(y%(6),Ob%,Zi%),y%(6),x%+FNti(y%(6),Ob%,Zi%),y%(6):LINEx%,y%(6)-FNti(y%(6),Ob%,Zi%),x%,y%(6)+FNti(y%(6),Ob%,Zi%)
15754LINEx%-FNti(y%(5),Ob%,Zi%),y%(5),x%+FNti(y%(5),Ob%,Zi%),y%(5):LINEx%,y%(5)-FNti(y%(5),Ob%,Zi%),x%,y%(5)+FNti(y%(5),Ob%,Zi%)
15756ELSE:LINEx%-FNti(y%(4),Ob%,Zi%),y%(4),x%+FNti(y%(4),Ob%,Zi%),y%(4):LINEx%,y%(4)-FNti(y%(4),Ob%,Zi%),x%,y%(4)+FNti(y%(4),Ob%,Zi%)
15760ENDIF:LINEx%-FNti(y%(3),Ob%,Zi%),y%(3),x%+FNti(y%(3),Ob%,Zi%),y%(3):LINEx%,y%(3)-FNti(y%(3),Ob%,Zi%),x%,y%(3)+FNti(y%(3),Ob%,Zi%)
15764LINEx%-FNti(y%(2),Ob%,Zi%),y%(2),x%+FNti(y%(2),Ob%,Zi%),y%(2):LINEx%,y%(2)-FNti(y%(2),Ob%,Zi%),x%,y%(2)+FNti(y%(2),Ob%,Zi%)
15766LINEx%-FNti(y%(1),Ob%,Zi%),y%(1),x%+FNti(y%(1),Ob%,Zi%),y%(1):LINEx%,y%(1)-FNti(y%(1),Ob%,Zi%),x%,y%(1)+FNti(y%(1),Ob%,Zi%)
15768WHEN3:SYS262374,7:LINEx%-(1000*ri),ei%(1),x%,y%(1):LINEx%-(1000*ri),ei%(2),x%,y%(2):LINEx%-(1000*ri),ei%(3),x%,y%(3):IFNOTnc%THEN
15780LINEx%-(1000*ri),ei%(4),x%,y%(4)
15782ELSE:LINEx%-(1000*ri),ei%(5),x%,y%(5):LINEx%-(1000*ri),ei%(6),x%,y%(6):LINEx%-(1000*ri),ei%(7),x%,y%(7)
15790ENDIF
15792ENDCASE
15794ENDIF:ENDPROC
15800DEFPROCJb:LOCALvi$:PROCzc(Ma%,22," "+STR$(Tb%+1750)):IFoc%ANDHc%THEN
15812PROCzc(Ma%,23," ")
15814ELSE:CASEhb%OF
15818WHEN1:PROCzc(Ma%,23," "+LEFT$(STR$(t(Tb%)-273-ad%/10),5))
15820WHEN2:PROCzc(Ma%,23," "+LEFT$(STR$(Ri(Tb%)-bd%/10),5))
15822ENDCASE
15824ENDIF:IFoc%ANDyb%THEN
15828vi$=" "
15830ELSE:CASEDc%OF
15834WHEN1:vi$=" "+LEFT$(STR$(Si(Tb%)-cd%),6)
15836WHEN2:vi$=" "+LEFT$(STR$(Ti(Tb%)-dd%),6)
15838WHEN3:IFABS(Ui(Tb%,0)-ed%(0))<0.01THEN
15842vi$=" 0.00"
15844ELSE:vi$=" "+LEFT$(STR$(Ui(Tb%,0)-ed%(0)),6)
15848ENDIF
15850WHEN4:IFABS(Yi(Tb%)-fd%)<0.01THEN
15854vi$=" 0.00"
15856ELSE:vi$=" "+LEFT$(STR$(Yi(Tb%)-fd%),6)
15860ENDIF
15862ENDCASE
15864ENDIF:PROCzc(Ma%,24,vi$):ENDPROC
15872DEFPROCwi(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Aj%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Gj%,Hj%):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORX%=0TOBj%:IFHj%THEN
15924Hb$=STR$(INT((xi%+Aj%+Cj*X%)/Dj%))
15926ELSE:Hb$=LEFT$(STR$((xi%+Aj%+Cj*X%)/Dj%+0.001),Gj%)
15930ENDIF:IF(xi%+Aj%+Cj*X%)=0THEN:Hb$=" 0"
15934SYS262278,,Hb$,%10000,x%+yi%+Ej%+_i%*s*(Aj%+Cj*X%),y%+zi%+Fj%:LINEx%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%-10,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%
15938IFg%ANDNOT(s*(Aj%+Cj*X%)>0.995ORs*(Aj%+Cj*X%)<0.005)THEN:PLOT&04,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%:PLOT&15,x%+yi%+_i%*s*(Aj%+Cj*X%),y%+zi%+`i%
15940NEXTX%:ENDPROC
15946DEFPROCIi(x%,y%,xi%,yi%,zi%,_i%,`i%,s,Ij%,Bj%,Cj,g%,Dj%,Ej%,Fj%,Jj%,Hj%,Kj%):LOCALHb$:VDU23,6,&33,0,0,0,0,0,0,0:FORY%=0TOBj%:IFHj%THEN
16000Hb$=" "+STR$(INT((xi%+Ij%+Cj*Y%)/Dj%))
16002ELSE:IF(xi%+Ij%+Cj*Y%)>=0THENLj=0.001ELSELj=-0.001
16006Hb$=" "+LEFT$(STR$((xi%+Ij%+Cj*Y%)/Dj%+Lj),FNJj((xi%+Ij%+Cj*Y%)/Dj%,Jj%))
16008ENDIF:IFABS(xi%+Ij%+Cj*Y%)<=0.001THEN:Hb$=" 0"
16012IFNOTKj%THEN
16014VDU25,188,x%+yi%-13;y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%);:SYS262278,,Hb$,%10001,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%)
16018ELSE:SYS262278,,Hb$,%10000,x%+yi%+Ej%,y%+zi%+Fj%+`i%*s*(Ij%+Cj*Y%)
16022ENDIF:LINEx%+yi%-10-20*Kj%,y%+zi%+`i%*s*(Ij%+Cj*Y%),x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):IFg%ANDNOT(ABS(s*(Ij%+Cj*Y%))>0.995ORABS(s*(Ij%+Cj*Y%))<0.005)THEN:PLOT&04,x%+yi%,y%+zi%+`i%*s*(Ij%+Cj*Y%):PLOT&15,x%+yi%+_i%,y%+zi%+`i%*s*(Ij%+Cj*Y%)
16028NEXTY%:ENDPROC
16040DEFPROCH_:DIMt(400),Ri(400):DIMai(400),bi(400),di(400,3),ci(400):DIMSi(400),Ti(400),Ui(400,3),Yi(400):DIMMj(400),Nj(400),Oj(400,3),Pj(400):DIMQj(400),Rj(400,3),Sj(400):DIMgi(160,8),hi(160,8),ii(160,3,8),ji(160,8):DIMTj(3),ed%(3),fc%(3),jd%(3)
16060DIMy%(7),ei%(7),e%(7),qi%(7):DIMUj(7),Vj(7),Wj(7),Xj(7):Sb%=240:t(240)=286.811:Cd%=1:DIMBd$(4),Di$(3,4):RESTORE18368:FORN%=0TO4:READBd$(N%):NEXT:RESTORE18370:FORM%=0TO4:FORN%=0TO3:READDi$(N%,M%):NEXTN%:NEXTM%:Vb%=FALSE:jb%=FALSE:Fc%=FALSE:xb%=FALSE:Uc%=FALSE:ac%=FALSE:gc%=FALSE
16084lb%=TRUE:Hc%=TRUE:yb%=TRUE:Vc%=TRUE:bc%=TRUE:hc%=TRUE:Xb%=1:Tb%=240:tb%=11:Qc%=8:Ac%=15:Zc%=13:fc%(0)=14:fc%(1)=12:fc%(2)=9:fc%(3)=2:lc%=10:sb%=11:sb%=15:Oc%=0:DIM_c%(7):kb%=TRUE:Gc%=TRUE:ib%=FALSE:Ec%=FALSE:nb%=3:Jc%=3:zb%=3:Wc%=3:cc%=3:ic%=3
16096pb%=180:rb%=140:ob%=180:qb%=140:_b%=100:`b%=0:Zb%=340:bb%=240:Yb%=340:ab%=240:Lc%=800:Xc%=5000:dc%=5000:jc%=500:Kc%=800:Nc%=250:Yc%=0:ec%=0:kc%=200:Mc%=250:hb%=1:Dc%=1:rc%=3:ad%=0:cd%=0:bd%=0:dd%=0:ed%()=0:fd%=0
16110gd%=0:hd%=0:jd%()=0:id%=0:hb$="Surface temperature (�C)":Dc$="CO2 conc. (ppmv)":nc%=FALSE:oc%=FALSE:mc%=FALSE:sc%=FALSE:qc%=2:PROCJd:PROCtc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):PROCtc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):PROCtc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):ENDPROC
16134DEFPROCL_:Si()=Mj():Ti()=Nj():Yi()=Pj():Ui()=Oj():ENDPROC
16148DEFPROCS_:gi(0,8)=0:gi(0,0)=0:FORM%=2TO8:gi(0,0)+=gi(0,M%):NEXT:hi(0,8)=59:hi(0,0)=0:FORM%=2TO8:hi(0,0)+=hi(0,M%):NEXT:ii(0,1,8)=298:ii(0,1,0)=0:FORM%=2TO8:ii(0,1,0)+=ii(0,1,M%):NEXT:ii(0,2,8)=363:ii(0,2,0)=0:FORM%=2TO8:ii(0,2,0)+=ii(0,2,M%):NEXT
16192ii(0,3,8)=138:ii(0,3,0)=0:FORM%=2TO8:ii(0,3,0)+=ii(0,3,M%):NEXT:ii(0,0,8)=ii(0,1,8)+ii(0,2,8)+ii(0,3,8):ii(0,0,0)=ii(0,1,0)+ii(0,2,0)+ii(0,3,0):ji(0,8)=0.8:ji(0,0)=0:FORM%=2TO8:ji(0,0)+=ji(0,M%):NEXT:FORN%=1TO160:gi(N%,8)=1.01*gi(N%-1,8)
16210gi(N%,0)=0:FORM%=2TO8:gi(N%,0)+=gi(N%,M%):NEXTM%:hi(N%,8)=1.008*hi(N%-1,8):hi(N%,0)=0:FORM%=2TO8:hi(N%,0)+=hi(N%,M%):NEXTM%:ii(N%,1,8)=Yj(N%,1):ii(N%,1,0)=0:FORM%=2TO8:ii(N%,1,0)+=ii(N%,1,M%):NEXTM%:ii(N%,2,8)=Yj(N%,2)
16222ii(N%,2,0)=0:FORM%=2TO8:ii(N%,2,0)+=ii(N%,2,M%):NEXTM%:ii(N%,3,8)=Yj(N%,3):ii(N%,3,0)=0:FORM%=2TO8:ii(N%,3,0)+=ii(N%,3,M%):NEXTM%:ii(N%,0,8)=ii(N%,1,8)+ii(N%,2,8)+ii(N%,3,8):ii(N%,0,0)=ii(N%,1,0)+ii(N%,2,0)+ii(N%,3,0)
16232ji(N%,8)=1.005*ji(N%-1,8):ji(N%,0)=0:FORM%=2TO8:ji(N%,0)+=ji(N%,M%):NEXTM%:NEXTN%:ENDPROC
16242DEFPROCJd:Qd%=(pb%-rb%):nb=1/Qd%:uc%=(_b%-`b%):zb=1/uc%:Sd%=(Lc%-Nc%):Jc=1/Sd%:Xd%=(Xc%-Yc%):Wc=1/Xd%:Yd%=(dc%-ec%):cc=1/Yd%:Zd%=(jc%-kc%):ic=1/Zd%:Kd%=(Zb%-bb%):Hi=1/Kd%:ENDPROC
16262DEFPROCtc(ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):IFZj%=1THEN:cj=0.1
16266IFZj%=2THEN:cj=0.2
16268IF3<=Zj%ANDZj%<=7THEN:cj=0.5
16270IF8<=Zj%ANDZj%<=15THEN:cj=1
16272IF16<=Zj%ANDZj%<=30THEN:cj=2
16274IF31<=Zj%ANDZj%<=75THEN:cj=5
16276IF76<=Zj%ANDZj%<=150THEN:cj=10
16278IF151<=Zj%ANDZj%<=300THEN:cj=20
16280IF301<=Zj%ANDZj%<=750THEN:cj=50
16282IF751<=Zj%ANDZj%<=1500THEN:cj=100
16284IF1501<=Zj%ANDZj%<=3000THEN:cj=200
16286IF3001<=Zj%ANDZj%<=7500THEN:cj=500
16288IF7501<=Zj%ANDZj%<=10000THEN:cj=1000
16290dj%=1:IFcj>=1THEN
16294IFjh%MODcj=0THEN:dj%=0
16296ENDIF:PROCej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):ENDPROC
16304DEFPROCej(dj%,cj,ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):aj%=ih%-cj*(INT(ih%/cj)):bj%=cj*(INT(jh%/cj)+dj%)-jh%:Bj%=(Zj%-aj%-bj%)/cj:Cj=cj:ENDPROC
16334DEFPROCI_:kh%=OPENIN("<CO2effect$Dir>.Data.GC_Data"):FORN%=0TO400:INPUT#kh%,Si(N%):INPUT#kh%,Ti(N%):INPUT#kh%,Ui(N%,0):INPUT#kh%,Ui(N%,1):INPUT#kh%,Ui(N%,2):INPUT#kh%,Ui(N%,3):INPUT#kh%,Yi(N%):INPUT#kh%,ai(N%):INPUT#kh%,bi(N%):INPUT#kh%,di(N%,0):INPUT#kh%,di(N%,1):INPUT#kh%,di(N%,2)
16366INPUT#kh%,di(N%,3):INPUT#kh%,ci(N%):INPUT#kh%,Ri(N%):NEXTN%:Mj()=Si():Nj()=Ti():Pj()=Yi():Oj()=Ui():CLOSE#kh%:ENDPROC
16392DEFPROCJ_:CASECd%OF
16400WHEN0:FORN%=0TO240:t(N%)=FNki(Ri(N%)):NEXT
16404WHEN1:FORN%=0TO240:t(N%)=FNli(Ri(N%)):NEXT
16408WHEN2:FORN%=0TO240:t(N%)=FNmi(Ri(N%)):NEXT
16412WHEN3:FORN%=0TO240:t(N%)=FNni(Ri(N%)):NEXT
16416ENDCASE:ENDPROC
16428DEFPROCK_:Zf%=TRUE:Ag%=FALSE:nd%=FALSE:df%=FALSE:hf%=FALSE:xd%=TRUE:ld%=0:cg%=155:DIMB`$(7,8):RESTORE18404:FORN%=1TO7:READB`$(N%,0):NEXT:FORN%=1TO7:CASEN%OF
16448WHEN1:fj$=": C emissions"
16450WHEN2:fj$=": CH4 emissions"
16452WHEN3:fj$=": N2O emissions"
16454WHEN4:fj$=": CFC-11 emissions"
16456WHEN5:fj$=": CFC-12 emissions"
16458WHEN6:fj$=": HCFC-22 emissions"
16460WHEN7:fj$=": all CFC emissions"
16462ENDCASE:RESTORE18406:FORM%=1TO8:READB`$(N%,M%):B`$(N%,M%)=B`$(N%,M%)+fj$:NEXTM%:NEXTN%:`c%=250:Ad%=0:Cg%=265:qd%=0:bf%=2090:Tg%=1990:DIMpd%(7),qd%(7),rd%(7),gj(7),sd%(7),td%(7),ud%(7),vd(7):DIMhj%(3,5,10):DIMij%(3,5,4):DIMjj%(3,5,5):DIMkj%(3,5,2):DIMlj%(3,5,2)
16498DIMmj%(3,5,5):DIMnj%(3,5,3):PROCoj:DIMee%(5),ge%(5),ie%(5),ke%(5),me%(5):DIMde%(5),fe%(5),he%(5),je%(5),le%(5):DIMpj(160,3):DIMqj(160):DIMrj(160):DIMsj(160):DIMtj(160):DIMuj(160):DIMvj(160):DIMNe%(5),Pe%(5),Re%(5),Te%(5),Ve%(5),Ze%(5)
16538DIMMe%(5),Oe%(5),Qe%(5),Se%(5),Ue%(5),Ye%(5):DIMwj(160):DIMxj(160):DIMyj(160):DIMzj(160):DIMzd%(5),`d%(5),Be%(5),De%(5),Fe%(5),Le%(5):DIMyd%(5),_d%(5),Ae%(5),Ce%(5),Ee%(5),Ke%(5):DIMHe%(5,4),Ge%(5,4):DIM_j(5,5),`j%(5):DIMuf(160,5):DIMAk(5)
16564DIMvf(160,4):DIMAf%(5),Cf%(5),Gf%(5):DIM`e%(5),Bf%(5),Ff%(5):DIMBk(160),Ck(160):DIMIf%(5),Kf%(5),Of%(5):DIMHf%(5),Jf%(5),Nf%(5):DIMDk(160),Ek(160):DIMoe%(5),qe%(5),se%(5),ue%(5),we%(5),_e%(5):DIMne%(5),pe%(5),re%(5),te%(5),ve%(5),ze%(5)
16594DIMFk(5,4):DIMYj(160,4):DIMQf%(5),Sf%(5),Uf%(5),Yf%(5):DIMPf%(5),Rf%(5),Tf%(5),Xf%(5):DIMGk(160):DIMHk(160):DIMIk(160):DIMlf%(5),nf%(5),jf%(6):DIMkf%(5),mf%(5),if%(6):DIMJk(160):PROCrf(0)
16638uf(0,1)=zd%(0):uf(0,2)=`d%(0):uf(0,3)=Be%(0):uf(0,4)=De%(0):uf(0,5)=Fe%(0):`j%(1)=7:`j%(2)=8:`j%(3)=14:`j%(4)=9:`j%(5)=10:RESTORE18382:READAk(1):READAk(2):READAk(3):READAk(4):READAk(5):Je%=0:Kk=8.89E-5:Lk=56:Xe%=0:We%=0
16658pj(0,0)=5.80E9:pj(0,1)=4.22E9:pj(0,2)=1.05E9:pj(0,3)=0.53E9:Mk=0.75:Nk=1.5:Ok=1.5:vj=(ie%(0)/100)*(100/(100-ke%(0)))*1.27E-10:ce%=0:Yj(0,1)=oe%(0):Yj(0,2)=qe%(0):Yj(0,3)=se%(0):Yj(0,4)=ue%(0):Yj(0,1)=we%(0)*oe%(0)/100
16674Yj(0,2)=we%(0)*qe%(0)/100:Yj(0,3)=we%(0)*se%(0)/100:Yj(0,4)=we%(0)*ue%(0)/100:ye%=0:Pk=6.74E-8:Qk=2.59E-8:Rk=1.45E-6:Ef%=0:Sk=2.67E-8:Tk=3.14E-8:Mf%=0:Uk=0.2:Vk=0.7:Wk=63:Wf%=0:RESTORE18388:FORN%=0TO5:READlf%(N%):READnf%(N%):NEXT:pf%=0
16718PROCtf(Le%(),uf(),uf(),-1):PROCtf(Le%(),vf(),vf(),0):PROCwf:PROCxf:PROCyf:PROCzf:PROC_f:PROC`f:PROCmd:PROCod(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):PROCod(`c%,Ad%,Bg%,sd%,td%,ud%,vd):PROCod(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):PROCod(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):ENDPROC
16752DEFPROC_h(x%,y%,sh%):LOCALGj%,Xk%,Li%,Hj%:CASEsh%OF
16764WHENA`%(1):PROCYk(x%,y%,Qc%,gi())
16766WHENA`%(2):PROCYk(x%,y%,Zc%,hi())
16768WHENA`%(3):PROCYk(x%,y%,lc%,ji())
16770WHENA`%(4):PROCZk(x%,y%,fc%(1),ii(),1)
16772WHENA`%(5):PROCZk(x%,y%,fc%(2),ii(),2)
16774WHENA`%(6):PROCZk(x%,y%,fc%(3),ii(),3)
16776WHENA`%(7):PROCZk(x%,y%,fc%(0),ii(),0)
16778ENDCASE:SYS262374,7:RECTANGLEFILLx%+99,y%-341,502,2:RECTANGLEFILLx%+99,y%-341,2,302:RECTANGLEFILLx%+599,y%-341,2,302:RECTANGLEFILLx%+99,y%-41,502,2:PROCak(sh%):SYS262282,ph%:SYS262278,,"Year",%10000,x%+300,y%-420:IFFa%=&A3ORFa%=&A4THEN
16804SYS262282,oh%:SYS262281,,x%+30,y%-300TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,bk$,%01001000000,Ah%,Bh%,,C`%
16812ENDIF:SYS262282,nh%:PROCwi(x%,y%,Tg%,100,-340,500,300,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):PROCdk(sh%,Gj%,Li%,Hj%):Xk%=FNXk(sh%):IFZf%THEN
16828PROCIi(x%,y%,Ad%,100,-340,500,300,ek,td%,ud%,vd,hf%,1,-75,-7,Gj%,-1,0)
16830ELSE:PROCIi(x%,y%,qd%(Xk%),100,-340,500,300,gj(Xk%),td%(Xk%),ud%(Xk%),vd(Xk%),hf%,Li%,-75,-7,Gj%,Hj%,0)
16834ENDIF:ENDPROC
16840DEFPROCYk(x%,y%,Ni%,fk()):LOCALgk,hk,ik:SYS262374,Ni%:ik=ek*300:IFfk(0,ld%)>0THENjk=fk(0,ld%)ELSEjk=1
16854FORN%=1TO(bf%-1990):gk=ik*(100*fk(N%-1,ld%)/jk-Ad%):IFgk>300THENgk=300ELSEIFgk<0THENgk=0
16858hk=ik*(100*fk(N%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0
16860LINEx%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:NEXT:ENDPROC
16868DEFPROCZk(x%,y%,Ni%,fk(),Ui%):LOCALgk,hk,ik:SYS262374,Ni%:ik=ek*300:IFfk(0,Ui%,ld%)>0THENjk=fk(0,Ui%,ld%)ELSEjk=1
16882FORN%=1TO(bf%-1990):gk=ik*(100*fk(N%-1,Ui%,ld%)/jk-Ad%):IFgk>300THENgk=300ELSEIFgk<0THENgk=0
16886hk=ik*(100*fk(N%,Ui%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0
16888LINEx%+100+500*ck*(N%-1),y%-340+gk,x%+100+500*ck*N%,y%-340+hk:NEXT:ENDPROC
16896DEFPROCak(kk%):IFZf%THEN
16904bk$="% of 1990 levels"
16906ELSE:CASEsh%OF
16910WHENA`%(1):bk$="Gt carbon per yr"
16912WHENA`%(2):bk$="Tg methane per yr"
16914WHENA`%(3):bk$="Tg nitrogen per yr"
16916WHENA`%(4):bk$="kt CFC-11 per yr"
16918WHENA`%(5):bk$="kt CFC-12 per yr"
16920WHENA`%(6):bk$="kt HCFC-22 per yr"
16922WHENA`%(7):bk$="kt halocarbons per yr"
16924ENDCASE
16926ENDIF:ENDPROC
16932DEFPROCdk(sh%,RETURNGj%,RETURNLi%,RETURNHj%):IFZf%THEN
16940Gj%=4
16942ELSE:CASEsh%OF
16946WHENA`%(1):Li%=100:Hj%=0:CASEld%OF
16950WHEN0,1,2,8:Gj%=1
16952WHEN3,4,5,6,7:Gj%=2
16954ENDCASE
16956WHENA`%(2):Gj%=4:Li%=1:Hj%=-1
16958WHENA`%(3):Li%=100:Hj%=0:CASEld%OF
16962WHEN0:Gj%=1
16964WHEN1,2,3,4,5,6,7,8:Gj%=2
16966ENDCASE
16968WHENA`%(4):Gj%=4:Li%=1:Hj%=-1
16970WHENA`%(5):Gj%=4:Li%=1:Hj%=-1
16972WHENA`%(6):Gj%=4:Li%=1:Hj%=-1
16974WHENA`%(7):Gj%=4:Li%=1:Hj%=-1
16976ENDCASE
16978ENDIF:ENDPROC
16984DEFPROC`h(x%,y%,uh%,wh%):LOCALHb$:IFZf%THEN
16994PROClk(x%,y%,uh%,wh%)
16996ELSE:PROCmk(x%,y%,uh%,wh%)
17000ENDIF:SYS262374,7:RECTANGLEFILLx%+114,y%-262,554,2:RECTANGLEFILLx%+114,y%-262,2,224:RECTANGLEFILLx%+666,y%-262,2,224:RECTANGLEFILLx%+114,y%-40,554,2:SYS262282,ph%:SYS262278,,"Year",%10000,x%+350,y%-330:IFFa%=&A3ORFa%=&A4THEN
17022IFZf%THENHb$="% generation share"ELSEHb$="Power (TWh - 000s)"
17024SYS262281,,x%+35,y%-300TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,Hb$,%01001000000,Ah%,Bh%,,C`%
17030ENDIF:SYS262282,oh%:PROCwi(x%,y%,Tg%,116,-260,550,220,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):IFZf%THEN
17040PROCIi(x%,y%,Ad%,116,-260,550,220,0.01,0,5,20,hf%,1,-108,-7,4,-1,0)
17042ELSE:PROCIi(x%,y%,Dg%,116,-260,550,220,nk,td%,ud%,vd,hf%,10,-100,-7,4,-1,0)
17046ENDIF:ENDPROC
17052DEFPROClk(x%,y%,uh%,wh%):LOCALik,ok%,pk%,y():DIMy(5):IFuh%>Nb%+666THEN:ENDPROC
17062IFuh%<=Nb%+116THENuh%=Nb%+116
17064IFvh%<Nb%+116THEN:ENDPROC
17066IFvh%>=Nb%+666THEN:vh%=Nb%+666
17068ik=2.2:FORN%=(uh%-Nb%-116)/(550*ck)TO(vh%-Nb%-116)/(550*ck)-0.999:FORM%=0TO4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):SYS262374,`j%(M%+1):CASEM%OF
17080WHEN0:y(0)=y%-260:y(1)=y(0)+ik*uf(N%,1)
17082WHEN1:y(1)=y(0)+ik*uf(N%,1):y(2)=y(1)+ik*uf(N%,2)
17084WHEN2:y(2)=y(1)+ik*uf(N%,2):y(3)=y(2)+ik*uf(N%,3)
17086WHEN3:y(3)=y(2)+ik*uf(N%,3):y(4)=y(3)+ik*uf(N%,4)
17088WHEN4:y(4)=y(3)+ik*uf(N%,4):y(5)=y(4)+ik*uf(N%,5)
17090ENDCASE:IFABS(y(M%+1)-y(M%))>=1THEN
17094MOVEok%,y(M%)+1:MOVEok%,y(M%+1):PLOT&55,pk%,y(M%+1):MOVEpk%,y(M%+1):MOVEpk%,y(M%)+1:PLOT&55,ok%,y(M%)+1
17098ENDIF:NEXTM%:NEXTN%:ENDPROC
17108DEFPROCmk(x%,y%,uh%,wh%):LOCALik,ok%,pk%,y(),qk():DIMy(5),qk(5):IFuh%>Nb%+666THEN:ENDPROC
17118IFuh%<=Nb%+116THENuh%=Nb%+116
17120IFvh%<Nb%+116THEN:ENDPROC
17122IFvh%>=Nb%+666THEN:vh%=Nb%+666
17124ik=220/(wj(0)*Bg%):rk%=220*Ad%/Bg%:FORN%=(uh%-Nb%-116)/(550*ck)TO(vh%-Nb%-116)/(550*ck)-0.999:FORM%=0TO4:ok%=x%+116+550*ck*N%:pk%=x%+116+550*ck*(N%+1):SYS262374,`j%(M%+1):CASEM%OF
17138WHEN0:y(0)=y%-260-rk%:y(1)=y(0)+ik*wj(N%)*uf(N%,1)
17140WHEN1:y(1)=y(0)+ik*wj(N%)*uf(N%,1):y(2)=y(1)+ik*wj(N%)*uf(N%,2)
17142WHEN2:y(2)=y(1)+ik*wj(N%)*uf(N%,2):y(3)=y(2)+ik*wj(N%)*uf(N%,3)
17144WHEN3:y(3)=y(2)+ik*wj(N%)*uf(N%,3):y(4)=y(3)+ik*wj(N%)*uf(N%,4)
17146WHEN4:y(4)=y(3)+ik*wj(N%)*uf(N%,4):y(5)=y(4)+ik*wj(N%)*uf(N%,5)
17148ENDCASE:qk(M%)=y(M%):qk(M%+1)=y(M%+1):IFy(M%)>y%-40THEN:qk(M%)=y%-40
17154IFy(M%)<=y%-260THENqk(M%)=y%-260
17156IFy(M%+1)>y%-40THEN:qk(M%+1)=y%-40
17158IFy(M%+1)<y%-260THEN:qk(M%+1)=y%-260
17160IFABS(y(M%+1)-y(M%))>=1THEN
17162MOVEok%,qk(M%)+1:MOVEok%,qk(M%+1):PLOT&55,pk%,qk(M%+1):MOVEpk%,qk(M%+1):MOVEpk%,qk(M%)+1:PLOT&55,ok%,qk(M%)+1
17166ENDIF:NEXTM%:NEXTN%:ENDPROC
17176DEFPROCAi(x%,y%):LOCALHb$:SYS262374,7:RECTANGLEFILLx%+156,y%-242,604,2:RECTANGLEFILLx%+156,y%-242,2,204:RECTANGLEFILLx%+758,y%-242,2,204:RECTANGLEFILLx%+156,y%-40,604,2:SYS262282,ph%:SYS262278,,"Year",%10000,x%+420,y%-310:IFFa%=&A3ORFa%=&A4THEN
17202IFZf%THENHb$="% of 1990 VMT"ELSEHb$="VMT (billions)"
17204SYS262281,,x%+50,y%-250TO,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:SYS262278,,Hb$,%01001000000,Ah%,Bh%,,C`%
17210ENDIF:SYS262282,oh%:PROCwi(x%,y%,Tg%,158,-240,600,200,ck,Wg%,Xg%,Yg,df%,1,-30,-35,4,-1):IFZf%THEN
17220PROCIi(x%,y%,Ad%,158,-240,600,200,ek,td%,ud%,vd,hf%,1,-100,-7,4,-1,0)
17222ELSE:PROCIi(x%,y%,Kg%,158,-240,600,200,sk,Ng%,Og%,Pg,hf%,10,-100,-7,1,0,0)
17226ENDIF:PROCtk(x%,y%):ENDPROC
17234DEFPROCtk(x%,y%):LOCALgk,hk:SYS262374,7:FORN%=1TO(bf%-1990):gk=ek*200*(100*pj(N%-1,0)/pj(0,0)-Ad%):IFgk>200THENgk=200ELSEIFgk<0THENgk=0
17248hk=ek*200*(100*pj(N%,0)/pj(0,0)-Ad%):IFhk>200THENhk=200ELSEIFhk<0THENhk=0
17250LINEx%+158+600*ck*(N%-1),y%-240+gk,x%+158+600*ck*N%,y%-240+hk:NEXT:ENDPROC
17258DEFPROCeg(uk%()):IFuk%(0)>155THEN:uk%(0)=155
17266IFuk%(0)+uk%(1)>156THEN:uk%(1)=156-uk%(0)
17268IFuk%(0)+uk%(1)+uk%(2)>157THEN:uk%(2)=157-uk%(0)-uk%(1)
17270IFuk%(0)+uk%(1)+uk%(2)+uk%(3)>158THEN:uk%(3)=158-uk%(0)-uk%(1)-uk%(2)
17272IFuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)>159THEN:uk%(4)=159-uk%(0)-uk%(1)-uk%(2)-uk%(3)
17274IFuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)>160THEN:uk%(5)=160-uk%(0)-uk%(1)-uk%(2)-uk%(3)-uk%(4)
17276ENDPROC
17280DEFPROCtf(uk%(),vk(),RETURNvk(),wk%):IFwk%THEN
17284FORL%=1TO5:IFuk%(L%)>0THEN
17292_j(L%,1)=(zd%(L%)-zd%(L%-1))/uk%(L%):_j(L%,2)=(`d%(L%)-`d%(L%-1))/uk%(L%):_j(L%,3)=(Be%(L%)-Be%(L%-1))/uk%(L%):_j(L%,4)=(De%(L%)-De%(L%-1))/uk%(L%):_j(L%,5)=(Fe%(L%)-Fe%(L%-1))/uk%(L%)
17302ENDIF:NEXT
17306ELSE:FORL%=1TO5:IFuk%(L%)>0THEN
17316_j(L%,1)=(He%(L%-1,1)-He%(L%,1))/uk%(L%):_j(L%,2)=(He%(L%-1,2)-He%(L%,2))/uk%(L%):_j(L%,3)=(He%(L%-1,3)-He%(L%,3))/uk%(L%):_j(L%,4)=(He%(L%-1,4)-He%(L%,4))/uk%(L%)
17324ENDIF:NEXT
17328ENDIF:FORM%=1TO4-wk%:FORN%=0TOuk%(1)-1:vk(N%+1,M%)=_j(1,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:vk(N%+1,M%)=_j(2,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:vk(N%+1,M%)=_j(3,M%)+vk(N%,M%):NEXTN%
17338FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:vk(N%+1,M%)=_j(4,M%)+vk(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:vk(N%+1,M%)=_j(5,M%)+vk(N%,M%):NEXTN%:NEXTM%:ENDPROC
17348DEFPROCxk(uk%()):FORL%=1TO5:IFuk%(L%)>0THEN
17358Fk(L%,1)=(we%(L%)*oe%(L%)/100-we%(L%-1)*oe%(L%-1)/100)/uk%(L%):Fk(L%,2)=(we%(L%)*qe%(L%)/100-we%(L%-1)*qe%(L%-1)/100)/uk%(L%):Fk(L%,3)=(we%(L%)*se%(L%)/100-we%(L%-1)*se%(L%-1)/100)/uk%(L%)
17364Fk(L%,4)=(we%(L%)*ue%(L%)/100-we%(L%-1)*ue%(L%-1)/100)/uk%(L%)
17366ENDIF:NEXT:FORM%=1TO4:FORN%=0TOuk%(1)-1:Yj(N%+1,M%)=Fk(1,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:Yj(N%+1,M%)=Fk(2,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:Yj(N%+1,M%)=Fk(3,M%)+Yj(N%,M%):NEXTN%
17378FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:Yj(N%+1,M%)=Fk(4,M%)+Yj(N%,M%):NEXTN%:FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5)-1:Yj(N%+1,M%)=Fk(5,M%)+Yj(N%,M%):NEXTN%:NEXTM%:ENDPROC
17388DEFPROCyk(uk%(),zk%(),RETURN_k()):FORN%=0TOuk%(1)-1:_k(N%)=zk%(0)+N%*(zk%(1)-zk%(0))/uk%(1):NEXT:FORN%=uk%(1)TOuk%(1)+uk%(2)-1:_k(N%)=zk%(1)+(N%-uk%(1))*(zk%(2)-zk%(1))/uk%(2):NEXT
17398FORN%=uk%(1)+uk%(2)TOuk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(2)+(N%-(uk%(1)+uk%(2)))*(zk%(3)-zk%(2))/uk%(3):NEXT:FORN%=uk%(1)+uk%(2)+uk%(3)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)-1:_k(N%)=zk%(3)+(N%-(uk%(1)+uk%(2)+uk%(3)))*(zk%(4)-zk%(3))/uk%(4):NEXT
17402FORN%=uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5):_k(N%)=zk%(4)+(N%-(uk%(1)+uk%(2)+uk%(3)+uk%(4)))*(zk%(5)-zk%(4))/uk%(5):NEXT:ENDPROC
17408DEFPROC`k(uk%(),zk%(),RETURN_k()):FORN%=0TOuk%(0)-1:_k(N%)=zk%(0):NEXT:FORN%=uk%(0)TOuk%(0)+uk%(1)-1:_k(N%)=zk%(1):NEXT:FORN%=uk%(0)+uk%(1)TOuk%(0)+uk%(1)+uk%(2)-1:_k(N%)=zk%(2):NEXT:FORN%=uk%(0)+uk%(1)+uk%(2)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)-1:_k(N%)=zk%(3):NEXT
17422FORN%=uk%(0)+uk%(1)+uk%(2)+uk%(3)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)-1:_k(N%)=zk%(4):NEXT:FORN%=uk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)TOuk%(0)+uk%(1)+uk%(2)+uk%(3)+uk%(4)+uk%(5):_k(N%)=zk%(5):NEXT:ENDPROC
17430DEFPROCmd:Ug%=bf%-Tg%:ck=1/Ug%:Bg%=`c%-Ad%:ek=1/Bg%:Cg%=10*wj(0)*1E-3*`c%/100:Dg%=10*wj(0)*1E-3*Ad%/100:Eg%=Cg%-Dg%:nk=1/Eg%:Jg%=10*pj(0,0)*1E-9*`c%/100:Kg%=10*pj(0,0)*1E-9*Ad%/100:Lg%=Jg%-Kg%:sk=1/Lg%
17454pd%(1)=100*gi(0,ld%)*`c%/100:qd%(1)=100*gi(0,ld%)*Ad%/100:pd%(2)=hi(0,ld%)*`c%/100:qd%(2)=hi(0,ld%)*Ad%/100:pd%(3)=100*ji(0,ld%)*`c%/100:qd%(3)=100*ji(0,ld%)*Ad%/100:pd%(4)=ii(0,1,ld%)*`c%/100:qd%(4)=ii(0,1,ld%)*Ad%/100
17462pd%(5)=ii(0,2,ld%)*`c%/100:qd%(5)=ii(0,2,ld%)*Ad%/100:pd%(6)=ii(0,3,ld%)*`c%/100:qd%(6)=ii(0,3,ld%)*Ad%/100:pd%(7)=ii(0,0,ld%)*`c%/100:qd%(7)=ii(0,0,ld%)*Ad%/100:FORN%=1TO7:rd%(N%)=pd%(N%)-qd%(N%):IFrd%(N%)=0THEN:rd%(N%)=1
17474gj(N%)=1/rd%(N%):NEXT:ENDPROC
17482DEFPROCod(ih%,jh%,Zj%,RETURNaj%,RETURNbj%,RETURNBj%,RETURNCj):IF1<=Zj%ANDZj%<=6THEN:cj=1
17492IF7<=Zj%ANDZj%<=15THEN:cj=2
17494IF15<=Zj%ANDZj%<=35THEN:cj=5
17496IF36<=Zj%ANDZj%<=70THEN:cj=10
17498IF71<=Zj%ANDZj%<=150THEN:cj=20
17500IF151<=Zj%ANDZj%<=350THEN:cj=50
17502IF351<=Zj%ANDZj%<=700THEN:cj=100
17504IF701<=Zj%ANDZj%<=1500THEN:cj=200
17506IF1501<=Zj%ANDZj%<=3500THEN:cj=500
17508IF3501<=Zj%ANDZj%<=7000THEN:cj=1000
17510IF7001<=Zj%ANDZj%<=15000THEN:cj=2000
17512IF15001<=Zj%ANDZj%<=35000THEN:cj=5000
17514IF35001<=Zj%ANDZj%<=70000THEN:cj=10000
17516IF70001<=Zj%ANDZj%<=150000THEN:cj=20000
17518IF150001<=Zj%ANDZj%<=350000THEN:cj=50000
17520IF350001<=Zj%ANDZj%<=1000000THEN:cj=100000
17522dj%=1:IFcj>=1THEN
17526IFjh%MODcj=0THEN:dj%=0
17528ENDIF:PROCej(dj%,cj,ih%,jh%,Zj%,aj%,bj%,Bj%,Cj):ENDPROC
17536DEFPROCM_:gi(0,1)=0:FORM%=1TO5:gi(0,1)+=Ak(M%)*(uf(0,M%)/100)*wj(0):NEXTM%:FORN%=1TO160:gi(N%,1)=0:FORM%=1TO5:gi(N%,1)+=Ak(M%)*(uf(N%,M%)/100)*wj(N%):NEXTM%:NEXTN%:FORN%=0TO160:hi(N%,1)=24*gi(N%,1)/gi(0,1):ji(N%,1)=0.1*gi(N%,1)/gi(0,1):NEXT:ENDPROC
17598DEFPROCfg:FORN%=1TO5:Oe%(N%)=100*INT((-1/10000)*(Ge%(N%,1)*yd%(N%)+Ge%(N%,2)*_d%(N%)+Ge%(N%,3)*Ae%(N%)+Ge%(N%,4)*Ce%(N%))*Me%(N%)):Pe%(N%)=Oe%(N%):NEXTN%:ENDPROC
17618DEFPROCae(Al%):Qe%(Al%)=Ue%(Al%):Qe%(Al%)=Qe%(Al%)-Me%(Al%):Qe%(Al%)=Qe%(Al%)-Oe%(Al%):ENDPROC
17632DEFPROCwf:PROCyk(Ze%(),Ne%(),wj()):PROCyk(Ze%(),Pe%(),xj()):PROCyk(Ze%(),Te%(),yj()):PROCyk(Ze%(),Ve%(),zj()):ENDPROC
17652DEFPROCN_:FORN%=0TO160:gi(N%,2)=Kk*((100-yj(N%))/100)*(zj(N%)-wj(N%)-xj(N%)):NEXT:FORN%=0TO160:hi(N%,2)=Lk*gi(N%,2)/gi(0,2):NEXT:FORN%=0TO160:gi(N%,2)=gi(N%,2)+gi(N%,1):hi(N%,2)=hi(N%,2)+hi(N%,1):ji(N%,2)=ji(N%,2)+ji(N%,1):NEXT:ENDPROC
17718DEFPROCxf:PROC`k(ge%(),ee%(),rj()):PROCyk(ge%(),me%(),uj()):FORN%=1TO160:pj(N%,1)=(1-(uj(N%)-uj(N%-1))/100)*(1+rj(N%-1)/100)*pj(N%-1,1):pj(N%,2)=(1+rj(N%-1)/100)*pj(N%-1,2):pj(N%,3)=(1+rj(N%-1)/100)*pj(N%-1,3)
17740pj(N%,0)=pj(N%,1)+pj(N%,2)+pj(N%,3):NEXT:ENDPROC
17750DEFPROCO_:LOCALLi:PROCyk(ge%(),ie%(),sj()):PROCyk(ge%(),ke%(),tj()):qj(0)=1:FORN%=1TO160:qj(N%)=0.9*qj(N%-1):NEXT:FORN%=0TO160:vj(N%)=(1-tj(N%)/100)*(((1-qj(N%))*100/sj(N%)+qj(N%)*100/ie%(0)))*vj:NEXT:FORN%=0TO160
17866gi(N%,3)=(pj(N%,1)*Mk+pj(N%,2)*Nk+pj(N%,3)*Ok)*vj(N%):NEXT:FORN%=0TO160:IFtj(N%)<99.9THENLi=(gi(N%,3)/gi(0,3))*0.82/(1-tj(N%)/100)ELSELi=1000
17878hi(N%,3)=Li*11:ji(N%,3)=Li*0.3:NEXT:ENDPROC
17890DEFPROCyf:PROCxk(_e%()):ENDPROC
17904DEFPROCzf:PROCyk(Gf%(),Af%(),Bk()):PROCyk(Gf%(),Cf%(),Ck()):ENDPROC
17920DEFPROCP_:LOCALLi%:Li%=0:FORM%=0TO24:Li%+=(25-M%):NEXT:FORN%=0TO160:gi(N%,5)=Bk(N%)*1E6*Pk:hi(N%,5)=Bk(N%)*1E6*Rk:ji(N%,5)=Bk(N%)*1E6*Qk:NEXT:FORM%=0TO24:FORN%=0TO160-M%:gi(N%+M%,5)-=Ck(N%)*1E6*(Pk/2)*(25-M%)/Li%:NEXTN%:NEXTM%:ENDPROC
17978DEFPROC_f:PROCyk(Of%(),If%(),Dk()):PROCyk(Of%(),Kf%(),Ek()):ENDPROC
17994DEFPROCQ_:FORN%=0TO160:hi(N%,6)=Dk(N%)*1E6*Sk:NEXT:FORN%=0TO160:ji(N%,6)=Ek(N%)*1E6*Tk:NEXT:ENDPROC
18040DEFPROC`f:PROCyk(Yf%(),Qf%(),Gk()):PROCyk(Yf%(),Sf%(),Hk()):PROCyk(Yf%(),Uf%(),Ik()):ENDPROC
18058DEFPROCR_:FORN%=0TO160:gi(N%,7)=(Gk(N%)/100)*Uk:ji(N%,7)=(Hk(N%)/100)*Vk:hi(N%,7)=(Ik(N%)/100)*Wk:NEXT:ENDPROC
18102DEFPROCT_:IFjf%(1)THEN:PROCBl(gi(),gi())
18114IFjf%(2)THEN:PROCBl(hi(),hi())
18116IFjf%(3)THEN:PROCBl(ji(),ji())
18118IFjf%(4)THEN:PROCCl(ii(),ii(),1)
18120IFjf%(5)THEN:PROCCl(ii(),ii(),2)
18122IFjf%(6)THEN:PROCCl(ii(),ii(),3)
18124PROC`k(nf%(),lf%(),Jk()):IFjf%(1)THEN:FORN%=1TO160:gi(N%,0)=((100+Jk(N%-1))/100)*gi(N%-1,0):NEXT
18136IFjf%(2)THEN:FORN%=1TO160:hi(N%,0)=((100+Jk(N%-1))/100)*hi(N%-1,0):NEXT
18138IFjf%(3)THEN:FORN%=1TO160:ji(N%,0)=((100+Jk(N%-1))/100)*ji(N%-1,0):NEXT
18140IFjf%(4)THEN:FORN%=1TO160:ii(N%,1,0)=((100+Jk(N%-1))/100)*ii(N%-1,1,0):NEXT
18142IFjf%(5)THEN:FORN%=1TO160:ii(N%,2,0)=((100+Jk(N%-1))/100)*ii(N%-1,2,0):NEXT
18144IFjf%(6)THEN:FORN%=1TO160:ii(N%,3,0)=((100+Jk(N%-1))/100)*ii(N%-1,3,0):NEXT
18146FORN%=1TO160:ii(N%,0,0)=ii(N%,1,0)+ii(N%,2,0)+ii(N%,3,0):NEXT:ENDPROC
18154DEFPROCBl(Dl(),RETURNDl()):FORN%=1TO160:FORM%=0TO8:Dl(N%,M%)=0:NEXTM%:NEXTN%:ENDPROC
18176DEFPROCCl(Dl(),RETURNDl(),El%):FORN%=1TO160:FORM%=0TO8:Dl(N%,El%,M%)=0:NEXTM%:NEXTN%:ENDPROC
18198DEFPROCrf(Fl%):FORM%=0TO5:zd%(M%)=hj%(Fl%,M%,0):`d%(M%)=hj%(Fl%,M%,1):Be%(M%)=hj%(Fl%,M%,2):De%(M%)=hj%(Fl%,M%,3):Fe%(M%)=hj%(Fl%,M%,4):Le%(M%)=hj%(Fl%,M%,5):He%(M%,1)=hj%(Fl%,M%,6):He%(M%,2)=hj%(Fl%,M%,7):He%(M%,3)=hj%(Fl%,M%,8)
18226He%(M%,4)=hj%(Fl%,M%,9):ee%(M%)=ij%(Fl%,M%,0):ie%(M%)=ij%(Fl%,M%,1):ke%(M%)=ij%(Fl%,M%,2):me%(M%)=ij%(Fl%,M%,3):ge%(M%)=ij%(Fl%,M%,4):Ne%(M%)=jj%(Fl%,M%,0):Pe%(M%)=jj%(Fl%,M%,1):Re%(M%)=jj%(Fl%,M%,2):Te%(M%)=jj%(Fl%,M%,3)
18250Ve%(M%)=jj%(Fl%,M%,4):Ze%(M%)=jj%(Fl%,M%,5):Af%(M%)=kj%(Fl%,M%,0):Cf%(M%)=kj%(Fl%,M%,1):Gf%(M%)=kj%(Fl%,M%,2):If%(M%)=lj%(Fl%,M%,0):Kf%(M%)=lj%(Fl%,M%,1):Of%(M%)=lj%(Fl%,M%,2):oe%(M%)=mj%(Fl%,M%,0):qe%(M%)=mj%(Fl%,M%,1)
18276se%(M%)=mj%(Fl%,M%,2):ue%(M%)=mj%(Fl%,M%,3):we%(M%)=mj%(Fl%,M%,4):_e%(M%)=mj%(Fl%,M%,5):Qf%(M%)=nj%(Fl%,M%,0):Sf%(M%)=nj%(Fl%,M%,1):Uf%(M%)=nj%(Fl%,M%,2):Yf%(M%)=nj%(Fl%,M%,3):NEXT:ENDPROC
18302DEFPROCoj:kh%=OPENIN("<CO2effect$Dir>.Data.S_Data"):FORN%=0TO3:FORM%=0TO5:FORO%=0TO9:INPUT#kh%,hj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO4:INPUT#kh%,ij%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO5:INPUT#kh%,jj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO2:INPUT#kh%,kj%(N%,M%,O%):NEXTO%:NEXTM%
18326FORM%=0TO5:FORO%=0TO2:INPUT#kh%,lj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO5:INPUT#kh%,mj%(N%,M%,O%):NEXTO%:NEXTM%:FORM%=0TO5:FORO%=0TO3:INPUT#kh%,nj%(N%,M%,O%):NEXTO%:NEXTM%:NEXTN%:CLOSE#kh%:ENDPROC
18350DATA CO2effect,3,0,Ka%,Info,0,-1,Pause,&80,-1,Quit
18352DATA Colour,16,0,-1,0,0,-1,1,0,-1,2,0,-1,3,0,-1,4,0,-1,5,0,-1,6,0,-1,7,0,-1,8,0,-1,9,0,-1,10,0,-1,11,0,-1,12,0,-1,13,0,-1,14,&80,-1,15
18354DATA CO2effect,3,0,K`%,Misc,0,I`%,Save,&80,-1,Tools
18356DATA Save,2,0,ja%,Graph,&80,J`%,Parameters
18358DATA Parameters,2,0,la%,TextFile,&80,na%,CO2effFile
18360DATA Misc,1,&80,Ka%,Info
18362DATA Temp Model,4,0,-1,high EBM,0,-1,av EBM,0,-1,low EBM,&80,-1,User
18364
18368DATA 0D High E.B.,0D Average E.B.,0D Low E.B.,User-defined model.
18370DATA Zero dimensional, energy balance model.,Scaled to high GCM, temperature estimate.
18372DATA Zero dimensional, energy balance model.,Scaled to best (average), temperature estimate.
18374DATA Zero dimensional, energy balance model.,Scaled to low GCM, temperature estimate.
18376DATA ,,,
18378
18382DATA 0.000287,0.000118,0.000211,0.000043,0.000005
18384
18388DATA 1,0
18390DATA 1,10
18392DATA 1,25
18394DATA 1,25
18396DATA 1,50
18398DATA 1,50
18400
18404DATA Total carbon emissions,Total methane emissions,Total nitrous oxide emissions,Total CFC-11 emissions,Total CFC-12 emissions,Total HCFC-22 emissions,Total combined CFC emissions,
18406DATA Electricity,Energy use,Transport,CFC use,Deforestation,Agriculture,Misc sources,Other sources
18408
18410DEFFNLa(Gl%,Hl%,Il%,E`$,Jl%):$E`%=E`$:SYS262363,,X_%,Gl%,Hl%,Il%,E`%,0:X_%!64=Jl%:SYS262337,,X_%TOsh%:=sh%
18424DEFFNJa(Kl%,Ll%,Ml%,Nl%,Ol%,Oh%,Ci$,Pl%,Ql%,Rl%):!X_%=Kl%:X_%!4=Ll%:X_%!8=Ml%:X_%!12=Ll%+Nl%:X_%!16=Ml%+Ol%:X_%!20=Oh%:IFPl%=0THEN
18440$(X_%+24)=Ci$
18442ELSE:X_%!24=Pl%:X_%!28=Ql%:X_%!32=Rl%
18450ENDIF:SYS262338,,X_%TOSl%:=Sl%
18458DEFFNTl(a$):WHILEINSTR(a$,"."):a$=MID$(a$,INSTR(a$,".")+1):ENDWHILE:=a$+CHR$0
18470DEFFNHb(Ul%):LOCALa$:WHILE?Ul%<>0:a$+=CHR$(?Ul%):Ul%+=1:ENDWHILE:=a$
18484DEFFNWh:LOCALCi$:Vl$="":CASEX_%!32OF
18492WHENKa%:Vl$="if_b_w"
18494WHENMa%:Vl$="m_w"
18496WHENPa%:Vl$="s_w"
18498WHENQa%:Vl$="LHy_d_w"
18500WHENSa%:Vl$="RHy_d_w"
18502WHENUa%:Vl$="cf_w"
18504WHENVa%:Vl$="t_d_w"
18506WHENWa%:Vl$="t_w"
18508WHENYa%:Vl$="xa_e_w"
18510WHENZa%:Vl$="ya_e_w"
18512WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Vl$="e_w"
18514WHENaa%:Vl$="e_g_w"
18516WHENba%:Vl$="tr_w"
18518WHENca%:Vl$="f_w"
18520WHENda%:Vl$="tm_w"
18522WHENea%:Vl$="a_w"
18524WHENfa%:Vl$="cfc_w"
18526WHENga%:Vl$="ms_w"
18528WHENha%:Vl$="e_u_w"
18530WHENia%:Vl$="s_e_w"
18532WHENja%:Vl$="df_s_w"
18534WHENla%:Vl$="p_tf_s_w"
18536WHENna%:Vl$="p_pf_s_w"
18538ENDCASE:Ci$=FNWl(Vl$+STR$(X_%!36)):IFCi$=""THENCi$=FNWl("")
18544=Ci$
18548DEFFNWl(Xl$):=FNYl(Xl$,"","")
18554DEFFNYl(Xl$,Zl$,al$):LOCALF%,L%:SYS398594,ah%,Xl$,p`%,256,Zl$,al$TO,,,L%;F%:IFF%AND1THENL%=0
18562p`%?L%=13:=$p`%
18568DEFFNgb(sh%,Sl%,Ll%,Ml%,Nl%,Ol%,bl%,cl%,dl%):!X_%=sh%:X_%!4=Sl%:SYS262340,,X_%:el%=FNJa(sh%,Ll%,Ml%,Nl%,Ol%,bl%,"",cl%,dl%,21):SYS262353,sh%,Ll%,Ml%,Ll%+Nl%,Ml%+Ol%:=el%
18584DEFFNfl(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=VAL($(X_%!28)):=hl%
18598DEFFNil(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=10*VAL($(X_%!28)):=hl%
18612DEFFNsi(si,jl%):IFsi>jl%-200THEN:si=jl%-200
18616IFsi<jl%-700THEN:si=jl%-700
18618=si
18622DEFFNti(si%,jl%,s%):IFsi%>=jl%-200ORsi%<=jl%-700THEN:s%=0
18626=s%
18630DEFFNkl(ll,xi,ml,nl):ol%=0:IFll>=nlANDll<=mlANDll>xiTHEN:ol%=-1
18636=ol%
18640DEFFNpl(ll,xi,ml,nl):ol%=0:IFxi>=nlANDxi<=mlANDxi<llTHEN:ol%=-1
18646=ol%
18650DEFFNRg:ol%=0:IFFNkl(af%,1990,2150,1990)THEN:ol%=-1
18656=ol%
18660DEFFNag:ol%=0:IFFNkl(ef%,ff%,5000,-1000)ANDFNpl(ef%,ff%,5000,-1000)THEN:ol%=-1
18666=ol%
18670DEFFNdg:IFFNkl(yd%(Ie%),-1,100,0)ANDFNkl(_d%(Ie%),-1,100,0)ANDFNkl(Ae%(Ie%),-1,100,0)ANDFNkl(Ce%(Ie%),-1,100,0)ANDFNkl(Ee%(Ie%),-1,100,0)THEN
18676IFFNkl(Ie%,-1,5,0)ANDFNkl(Ke%(Ie%),0,cg%,1)THEN
18680ol%=-1
18682ENDIF
18683ELSE:ol%=0
18686ENDIF:IFyd%(Ie%)+_d%(Ie%)+Ae%(Ie%)+Ce%(Ie%)+Ee%(Ie%)<>100THEN:ol%=0
18688=ol%
18692DEFFNqg:ol%=0:IFFNkl(Me%(We%),-1,999900,0)ANDFNkl(Se%(We%),-1,100,0)ANDFNkl(Ue%(We%),-1,999900,0)THEN
18698IFFNkl(We%,-1,5,0)ANDFNkl(Ye%(We%),0,cg%,0)THEN:ol%=-1
18700ENDIF:=ol%
18706DEFFNhg:ol%=0:IFFNkl(de%(be%),-101,10,-100)ANDFNkl(he%(be%),-1,100,0)ANDFNkl(je%(be%),-1,100,0)ANDFNkl(le%(be%),-1,100,0)THEN
18712IFFNkl(be%,-1,5,0)ANDFNkl(fe%(be%),-1,cg%,0)THEN:ol%=-1
18714ENDIF:=ol%
18720DEFFNjg:IFFNkl(ne%(xe%),-1,100,0)ANDFNkl(pe%(xe%),-1,100,0)ANDFNkl(re%(xe%),-1,100,0)ANDFNkl(te%(xe%),-1,100,0)ANDFNkl(ze%(xe%),0,cg%,1)THEN
18725ELSE:ol%=0
18728ENDIF:IFne%(xe%)+pe%(xe%)+re%(xe%)+te%(xe%)<>100THEN:ol%=0
18730=ol%
18734DEFFNlg:ol%=0:IFFNkl(`e%(Df%),-1,999,0)ANDFNkl(Bf%(Df%),-1,999,0)THEN
18740IF(FNkl(Df%,0,5,0)ANDFNkl(Ff%(Df%),0,cg%,0))ORDf%=0THEN:ol%=-1
18742ENDIF:=ol%
18748DEFFNmg:ol%=0:IFFNkl(Hf%(Lf%),-1,50000,0)ANDFNkl(Jf%(Lf%),-1,999,0)THEN
18754IF(FNkl(Lf%,0,5,0)ANDFNkl(Nf%(Lf%),0,cg%,0))ORLf%=0THEN:ol%=-1
18756ENDIF:=ol%
18762DEFFNog:ol%=0:IFFNkl(Pf%(Vf%),-1,999,0)ORFNkl(Rf%(Vf%),-1,999,0)ORFNkl(Tf%(Vf%),-1,999,0)THEN
18768IFFNkl(Vf%,0,5,0)ANDFNkl(Xf%(Vf%),0,cg%,0)THEN:ol%=-1
18770ENDIF:=ol%
18776DEFFNsg:ol%=0:IFFNkl(kf%(of%),-101,10,-100)THEN
18782IFFNkl(of%,0,5,0)ANDFNkl(mf%(of%),-1,cg%,0)THEN:ol%=-1
18784ENDIF:=ol%
18790DEFFNJj(hl,Jj%):IF-1000<hlANDhl<=-100THEN:ql%=5+Jj%
18794IF-100<hlANDhl<=-10THEN:ql%=4+Jj%
18796IF-10<hlANDhl<0THEN:ql%=3+Jj%
18798IF0<=hlANDhl<10THEN:ql%=2+Jj%
18800IF10<=hlANDhl<100THEN:ql%=3+Jj%
18802IF100<=hlANDhl<1000THEN:ql%=4+Jj%
18804IF1000<=hlANDhl<10000THEN:ql%=5+Jj%
18806IF10000<=hlANDhl<100000THEN:ql%=6+Jj%
18808IF100000<=hlANDhl<1000000THEN:ql%=7+Jj%
18810=ql%
18814DEFFNJh(Vl%,gl%):LOCALhl%:hl%=FNfl(Vl%,gl%):IF-1000<hlANDhl<=-100THEN:rl%=4
18822IF-100<hlANDhl<=-10THEN:rl%=3
18824IF-10<hlANDhl<0THEN:rl%=2
18826IF0<=hl%ANDhl%<10THEN:rl%=1
18828IF10<=hl%ANDhl%<100THEN:rl%=2
18830IF100<=hl%ANDhl%<1000THEN:rl%=3
18832IF1000<=hl%ANDhl%<10000THEN:rl%=4
18834IF10000<=hl%ANDhl%<100000THEN:rl%=5
18836IF100000<=hl%ANDhl%<1000000THEN:rl%=6
18838=rl%
18842DEFFNXk(sh%):CASEsh%OF
18850WHENA`%(1):n%=1
18852WHENA`%(2):n%=2
18854WHENA`%(3):n%=3
18856WHENA`%(4):n%=4
18858WHENA`%(5):n%=5
18860WHENA`%(6):n%=6
18862WHENA`%(7):n%=7
18864ENDCASE:=n%
18870DEFFNsl(Ni%):SYS262373,,M`%:tl%=!(M`%+4*Ni%):tl%=tl%AND&FFFFFF00:=tl%
18892DEFFNnb(p%):LOCALrl%,u`$,ul$:u`$=" ":rl%=LEN(STR$(p%)):rl%=9-rl%:ul$=LEFT$(u`$,rl%):Hb$=ul$+STR$(p%):=Hb$
18914DEFFNki(Ri):vl=SQR(SQR((239.75+1.933*Ri)/(0.62*5.67E-8))):=vl
18926DEFFNli(Ri):vl=SQR(SQR((239.75+1.3*Ri)/(0.62*5.67E-8))):=vl
18938DEFFNmi(Ri):vl=SQR(SQR((239.75+0.885*Ri)/(0.62*5.67E-8))):=vl
18950DEFPROCId(RETURNHh%,RETURNGh%,wl%,xl%):Hh%=FNfl(Va%,13)-1750:IFHh%>wl%ORHh%<=xl%THEN:Hh%=wl%:PROCfb(Va%,13,Hh%+1750)
18956Gh%=FNfl(Va%,17)-1750:IFGh%>=wl%ORGh%<xl%THEN:Gh%=xl%:PROCfb(Va%,17,Gh%+1750)
18960IFGh%>=Hh%THEN
18962Hh%=wl%:Gh%=xl%:PROCfb(Va%,13,Hh%+1750):PROCfb(Va%,17,Gh%+1750)
18966ENDIF:IF(Hh%<>340ANDHh%<>350ANDHh%<>400)OR(Gh%<>0ANDGh%<>100ANDGh%<>240)THEN:Wb%=0
18970ENDPROC
18974DEFPROCPd(RETURNFh%,RETURNHh%,RETURNGh%,wl%,xl%):Fh%=FNfl(Qa%,14):IFFh%>=25ORFh%<=0THENFh%=3
18980Hh%=FNil(Qa%,19):IFHh%>wl%ORHh%<=xl%THEN:Hh%=wl%
18984Gh%=FNil(Qa%,23):IFGh%>=wl%ORGh%<xl%THEN:Gh%=xl%
18988PROCyl(Fh%,Hh%,Gh%):ENDPROC
18994DEFPROCRd(RETURNFh%,RETURNHh%,RETURNGh%,wl%,xl%):Fh%=FNfl(Sa%,14):IFFh%>=25ORFh%<=0THENFh%=3
19000Hh%=FNfl(Sa%,19):IFHh%>wl%ORHh%<=xl%THEN
19004Hh%=wl%:PROCfb(Sa%,19,Hh%)
19008ENDIF:Gh%=FNfl(Sa%,23):IFGh%>=wl%ORGh%<xl%THEN
19014Gh%=xl%:PROCfb(Sa%,23,Gh%)
19018ENDIF:IFGh%>=Hh%THEN
19022Hh%=wl%:Gh%=xl%:PROCfb(Sa%,19,Hh%):PROCfb(Sa%,23,Gh%)
19026ENDIF:ENDPROC
19032DEFPROCBc(sh%,gl%,zl%):IFzl%<1000THENHb$=LEFT$(STR$(zl%),3)
19036IFzl%<100THENHb$=" "+LEFT$(STR$(zl%),2)
19038IFzl%<10THENHb$=" 0"+LEFT$(STR$(zl%),1)
19040!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=LEFT$(Hb$,2)+"."+RIGHT$(Hb$,1):X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC
19054DEFPROC_l(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=10*VAL($(X_%!28)):ENDPROC
19066DEFPROCyl(Fh%,Hh%,Gh%):PROCfb(Qa%,14,mb%):PROCBc(Qa%,19,ob%):PROCBc(Qa%,23,qb%):ENDPROC
19078DEFPROC`l(Fh%,Hh%,Gh%):PROCfb(Sa%,14,Fh%):PROCfb(Sa%,19,Hh%):PROCfb(Sa%,23,Gh%):ENDPROC
19090DEFPROCKb:CASEDc%OF
19094WHEN1:Am$="CO2":Bm$="(ppmv)":Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%
19098WHEN2:Am$="CH4":Bm$="(ppbv)":Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%
19102WHEN3:Am$="CFC":Bm$="(pptv)":Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0)
19106WHEN4:Am$="N2O":Bm$="(ppmv)":Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%
19110ENDCASE:PROCzc(Sa%,17,"Conc. "+Bm$):PROCwd(Sa%,Ta%,Am$+" display parameters"):PROCCc(Sa%,11,Oc%):CASEhb%OF
19120WHEN1:mb%=nb%:ob%=pb%:qb%=rb%
19124WHEN2:mb%=zb%:ob%=_b%:qb%=`b%
19128ENDCASE:IFNOT(oc%ANDyb%)THEN
19132CASErc%OF
19134WHEN1,2:Dc$="Excess "+Am$+" "+Bm$:PROCzc(Ma%,28,Dc$+" :")
19140WHEN3:Dc$=Am$+" conc. "+Bm$:PROCzc(Ma%,28," "+Dc$+" :")
19146ENDCASE
19148ELSE:PROCzc(Ma%,28," ")
19152ENDIF:PROC`l(Ic%,Kc%,Mc%):IFNOT(oc%ANDHc%)THEN
19158CASEhb%OF
19160WHEN1:CASErc%OF
19166WHEN1,2:hb$="Excess Temperature (�C)":PROCzc(Ma%,27,"Excess temp. (�C) :")
19172WHEN3:hb$="Surface Temperature (�C)":PROCzc(Ma%,27," Temperature (�C) :")
19178ENDCASE:PROCzc(Qa%,17,"Scale (�C)"):PROCwd(Qa%,Ra%,"Temperature display"):sb%=tb%:PROCCc(Qa%,11,sb%)
19186WHEN2:CASErc%OF
19192WHEN1,2:hb$="Excess Forcing (Wm-2)":PROCzc(Ma%,27," Forcing (Wm-2) :")
19198WHEN3:hb$="Radiative Forcing (Wm-2)":PROCzc(Ma%,27," Forcing (Wm-2) :")
19204ENDCASE:PROCzc(Qa%,17,"Scale (Wm-2)"):PROCwd(Qa%,Ra%,"Radiative forcing display"):sb%=Ac%:PROCCc(Qa%,11,sb%)
19212ENDCASE:PROCyl(mb%,ob%,qb%)
19216ELSE:PROCzc(Ma%,27," ")
19220ENDIF:ENDPROC
19226DEFPROCHd(Vl%,Cm%,Dm%,hl%,RETURNhl%,Em%,Fm%,Gm%,Hm%):PROCQb(Vl%,Dm%):IFhl%<=Em%-Fm%THEN:hl%=hl%+Fm%
19236CASEHm%OF
19238WHEN1:PROCfb(Vl%,Cm%,hl%+Gm%)
19242WHEN10:PROCBc(Vl%,Cm%,hl%+Gm%)
19246ENDCASE:PROCQb(Vl%,Dm%):ENDPROC
19254DEFPROCGd(Vl%,Cm%,Im%,hl%,RETURNhl%,Em%,Fm%,Gm%,Hm%):PROCQb(Vl%,Im%):IFhl%>=Em%+Fm%THEN:hl%=hl%-Fm%
19264CASEHm%OF
19266WHEN1:PROCfb(Vl%,Cm%,hl%+Gm%)
19270WHEN10:PROCBc(Vl%,Cm%,hl%+Gm%)
19274ENDCASE:PROCQb(Vl%,Im%):ENDPROC
19282DEFPROCIh(w%,Jm%,RETURNll%,xi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):CASEDj%OF
19290WHEN1:ll%=FNfl(w%,Jm%)-Gm%
19292WHEN2:ll%=FNil(w%,Jm%)-Gm%
19294ENDCASE:IFll%<=ml%ANDll%>=nl%ANDll%>xi%THEN:SYS262354,Lm%,Km%,,,-1,Mm%
19298ENDPROC
19302DEFPROCKh(w%,Jm%,ll%,RETURNxi%,ml%,nl%,Km%,Lm%,Mm%,Dj%,Gm%):CASEDj%OF
19310WHEN1:xi%=FNfl(w%,Jm%)-Gm%
19312WHEN2:xi%=FNil(w%,Jm%)-Gm%
19314ENDCASE:IFxi%<=ml%ANDxi%>=nl%ANDxi%<ll%THEN:SYS262354,Lm%,Km%,,,-1,Mm%
19318ENDPROC
19322DEFPROCQg:af%=FNfl(Ya%,4):ENDPROC
19334DEFPROCZg:ef%=FNfl(Za%,3):ff%=FNfl(Za%,8):ENDPROC
19346DEFPROCxd:yd%(Ie%)=FNfl(aa%,5):_d%(Ie%)=FNfl(aa%,10):Ae%(Ie%)=FNfl(aa%,15):Ce%(Ie%)=FNfl(aa%,20):Ee%(Ie%)=FNfl(aa%,25):Ie%=FNfl(aa%,30):Ke%(Ie%)=FNfl(aa%,41):ENDPROC
19360DEFPROCpg:Me%(We%)=FNfl(ha%,2):Se%(We%)=FNfl(ha%,15):Ue%(We%)=FNfl(ha%,21):We%=FNfl(ha%,26):Ye%(We%)=FNfl(ha%,30):ENDPROC
19372DEFPROCgg:de%(be%)=FNfl(ba%,3):he%(be%)=FNfl(ba%,8):je%(be%)=FNfl(ba%,13):le%(be%)=FNfl(ba%,18):be%=FNfl(ba%,23):fe%(be%)=FNfl(ba%,27):ENDPROC
19386DEFPROCig:ne%(xe%)=FNfl(fa%,4):pe%(xe%)=FNfl(fa%,9):re%(xe%)=FNfl(fa%,14):te%(xe%)=FNfl(fa%,20):xe%=FNfl(fa%,25):ze%(xe%)=FNfl(fa%,29):ENDPROC
19400DEFPROCkg:`e%(Df%)=FNfl(ca%,3):Bf%(Df%)=FNfl(ca%,8):Df%=FNfl(ca%,12):Ff%(Df%)=FNfl(ca%,16):ENDPROC
19414DEFPROCx`:Hf%(Lf%)=FNfl(ea%,3):Jf%(Lf%)=FNfl(ea%,8):Lf%=FNfl(ea%,12):Nf%(Lf%)=FNfl(ea%,16):ENDPROC
19428DEFPROCng:Pf%(Vf%)=FNfl(ga%,4):Rf%(Vf%)=FNfl(ga%,10):Tf%(Vf%)=FNfl(ga%,16):Vf%=FNfl(ga%,21):Xf%(Vf%)=FNfl(ga%,25):ENDPROC
19442DEFPROCrg:kf%(of%)=FNfl(ia%,16):of%=FNfl(ia%,21):mf%(of%)=FNfl(ia%,25):ENDPROC
19456DEFPROCSg:bf%=af%:ENDPROC
19468DEFPROCbg:`c%=ef%:Ad%=ff%:ENDPROC
19580DEFPROCtg:jf%()=if%():lf%()=kf%():pf%=of%:nf%()=mf%():ENDPROC
19594DEFPROCSh:SYS263872:kh%=OPENOUT($P`%):BPUT#kh%,"Draw";:PROCNm(201):PROCNm(0):BPUT#kh%,"CO2effect ";:CASEEa%OF
19618WHENMa%:Om%=1280:Pm%=960:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm:PROCTm
19628WHENaa%:Om%=706:Pm%=344:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm
19638WHENba%:Om%=798:Pm%=300:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm
19648WHENA`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):Om%=640:Pm%=460:Qm%=0:Rm%=0:PROCNm(Qm%):PROCNm(Rm%):PROCNm(256*Om%):PROCNm(256*Pm%):PROCSm:PROCUm
19658ENDCASE:CLOSE#kh%:OSCLI"SetType "+$P`%+" AFF":SYS263873:ENDPROC
19670DEFPROCNm(Hj%):LOCALVm%:!U`%=Hj%:FORVm%=0TO3:BPUT#kh%,?(U`%+Vm%):NEXT:ENDPROC
19686DEFPROCSm:PROCNm(0):PROCNm(24):BPUT#kh%,1:BPUT#kh%,"Trinity.Medium";:BPUT#kh%,CHR$(0);:ENDPROC
19708DEFPROCTm:LOCALFi%:Wm%=qc%:IFNOToc%THEN
19724IFhb%=1ANDlb%THEN
19726PROCXm(t(),nb,rb%,ad%,nb%,FNsl(tb%),10,273):IFmc%THEN:Wm%=qc%+3:PROCXm(t(),nb,rb%,ad%,nb%,FNsl(7),10,273)
19730ENDIF:IFhb%=2ANDyb%THEN
19734PROCXm(Ri(),zb,`b%,bd%,zb%,FNsl(Ac%),10,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Ri(),zb,`b%,bd%,zb%,FNsl(7),10,0)
19738ENDIF:IFDc%=1ANDHc%THEN
19742PROCXm(Si(),Jc,Nc%,cd%,Jc%,FNsl(Qc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Si(),Jc,Nc%,cd%,Jc%,FNsl(7),1,0)
19746ENDIF:IFDc%=2ANDVc%THEN
19750PROCXm(Ti(),Wc,Yc%,dd%,Wc%,FNsl(Zc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Ti(),Wc,Yc%,dd%,Wc%,FNsl(7),1,0)
19754ENDIF:IFDc%=3ANDbc%THEN
19758IFNOTnc%THEN
19760PROCYm(Ui(),cc,ec%(0),ed%(0),cc%,FNsl(fc%(0)),1,0):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(0),ed%(0),cc%,FNsl(7),1,0)
19764ELSE:PROCYm(Ui(),cc,ec%(1),ed%(1),cc%,FNsl(fc%(1)),1,1):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(1),ed%(1),cc%,FNsl(7),1,1)
19770PROCYm(Ui(),cc,ec%(2),ed%(2),cc%,FNsl(fc%(2)),1,2):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(2),ed%(2),cc%,FNsl(7),1,2)
19774PROCYm(Ui(),cc,ec%(3),ed%(3),cc%,FNsl(fc%(3)),1,3):IFmc%THEN:Wm%=qc%+3:PROCYm(Ui(),cc,ec%(3),ed%(3),cc%,FNsl(7),1,3)
19778ENDIF
19780ENDIF:IFDc%=4ANDhc%THEN
19784PROCXm(Yi(),ic,kc%,fd%,ic%,FNsl(lc%),1,0):IFmc%THEN:Wm%=qc%+3:PROCXm(Yi(),ic,kc%,fd%,ic%,FNsl(7),1,0)
19788ENDIF
19790ELSE:IFyb%ANDNOTHc%THEN
19794IFNOTnc%THEN
19796PROCZm(FNsl(fc%(0)),4)
19798ELSE:PROCZm(FNsl(fc%(3)),7):PROCZm(FNsl(fc%(2)),6):PROCZm(FNsl(fc%(1)),5)
19802ENDIF:PROCZm(FNsl(lc%),3):PROCZm(FNsl(Zc%),2):PROCZm(FNsl(Qc%),1):IFmc%THEN
19808Wm%=qc%+3:IFNOTnc%THEN
19812PROCZm(FNsl(7),4)
19814ELSE:PROCZm(FNsl(7),7):PROCZm(FNsl(7),6):PROCZm(FNsl(7),5)
19818ENDIF:PROCZm(FNsl(7),3):PROCZm(FNsl(7),2):PROCZm(FNsl(7),1)
19822ENDIF
19824ENDIF:IFHc%ANDNOTyb%THEN
19828IFNOTnc%THEN
19830PROCam(FNsl(fc%(0)),4)
19832ELSE:PROCam(FNsl(fc%(3)),7):PROCam(FNsl(fc%(2)),6):PROCam(FNsl(fc%(1)),5)
19836ENDIF:PROCam(FNsl(lc%),3):PROCam(FNsl(Zc%),2):PROCam(FNsl(Qc%),1):IFmc%THEN
19842Wm%=qc%+3:IFNOTnc%THEN
19846PROCam(FNsl(7),4)
19848ELSE:PROCam(FNsl(7),7):PROCam(FNsl(7),6):PROCam(FNsl(7),5)
19852ENDIF:PROCam(FNsl(7),3):PROCam(FNsl(7),2):PROCam(FNsl(7),1)
19856ENDIF
19858ENDIF
19860ENDIF:PROCbm(2,26,Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,1,&0):PROCdm(2,140,160+100):PROCdm(8,140,160+600):PROCdm(8,1140,160+600):PROCdm(8,1140,160+100):PROCdm(8,140,160+100):PROCdm(0,0,0):PROCbm(1,15,Om%,Pm%,Qm%,Rm%)
19892PROCem(&00000000,&FFFFFF00,1,16,16,590,160+10,"Year",0):IFFa%=&A3ORFa%=&A4THEN
19898IFkb%THEN
19904fm%=INT((LEN(hb$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:PROCem(&00000000,&FFFFFF00,1,14,14,30,160+195,hb$,-1)
19916ENDIF:IFGc%THEN
19924fm%=INT((LEN(Dc$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=-65536:C`%!8=65536:PROCem(&00000000,&FFFFFF00,1,14,14,1250,160+500,Dc$,-1)
19936ENDIF
19940ENDIF:PROCgm(x%,y%,1750+bb%,140,160+100,1000,500,15,0.5,0.25,Hi,Md%,Nd%,Od,1,-30,-40,12,4,-1,Vb%):IFNOT(oc%ANDNOTyb%)THEN
19964CASEhb%OF
19966WHEN1:IFlb%THEN:PROChm(x%,y%,rb%,140,160+100,1000,500,15,0.5,0.25,nb,wc%,xc%,yc,10,-100,-7,12,2,0,0,jb%)
19970WHEN2:IFyb%THEN:PROChm(x%,y%,`b%,140,160+100,1000,500,15,0.5,0.25,zb,wc%,xc%,yc,10,-100,-7,12,2,0,0,xb%)
19974ENDCASE
19976ENDIF:IFNOT(oc%ANDNOTHc%)THEN
19990CASEDc%OF
19992WHEN1:IFHc%THEN:PROChm(x%,y%,Nc%,1140,160+100,-1000,500,15,0.5,0.25,Jc,Ud%,Vd%,Wd,1,-100,-7,12,1,0,-1,Fc%)
19996WHEN2:IFVc%THEN:PROChm(x%,y%,Yc%,1140,160+100,-1000,500,15,0.5,0.25,Wc,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,Uc%)
20000WHEN3,5:IFbc%THEN:PROChm(x%,y%,ec%,1140,160+100,-1000,500,15,0.5,0.25,cc,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,ac%)
20004WHEN4:IFhc%THEN:PROChm(x%,y%,kc%,1140,160+100,-1000,500,15,0.5,0.25,ic,Ud%,Vd%,Wd,1,-100,-7,12,1,-1,-1,gc%)
20008ENDCASE
20010ENDIF:Fi%=0:IFNOToc%THEN
20020CASEhb%OF
20022WHEN1:IFlb%THEN:PROCim(Fi%,tb%,"Temperature"):Fi%+=3
20024WHEN2:IFyb%THEN:PROCim(Fi%,Ac%,"Radiative forcing"):Fi%+=3
20026ENDCASE:CASEDc%OF
20030WHEN1:IFHc%THEN:PROCim(Fi%,Qc%,"CO2 concentration"):Fi%+=1
20032WHEN2:IFVc%THEN:PROCim(Fi%,Zc%,"CH4 concentration"):Fi%+=1
20034WHEN4:IFhc%THEN:PROCim(Fi%,lc%,"N2O concentration"):Fi%+=1
20036WHEN3:IFbc%THEN
20040IFNOTnc%THEN
20042PROCim(Fi%,fc%(0),"CFCs concentration"):Fi%+=1
20044ELSE:PROCim(Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:PROCim(Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:PROCim(Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1
20052ENDIF
20054ENDIF
20056ENDCASE
20058ELSE:PROCim(Fi%,Qc%,"CO2"):Fi%+=1:PROCim(Fi%,Zc%,"CH4"):Fi%+=1:PROCim(Fi%,lc%,"N2O"):Fi%+=1:IFNOTnc%THEN
20068PROCim(Fi%,fc%(0),"CFCs"):Fi%+=1
20070ELSE:PROCim(Fi%,fc%(1),"CFC-11"):Fi%+=1:PROCim(Fi%,fc%(2),"CFC-12"):Fi%+=1:PROCim(Fi%,fc%(3),"HCFC-22"):Fi%+=1
20078ENDIF
20080ENDIF:ENDPROC
20086DEFPROCim(n%,c%,Hb$):LOCALMi%,Ni%,x%,y%:Mi%=n%MOD3:Ni%=INT(n%/3):x%=140+Ni%*400:y%=110-Mi%*40:PROCbm(2,26,Om%,Pm%,Qm%,Rm%):PROCcm(FNsl(c%),&00000000,0.25,&8):PROCdm(2,x%,y%):PROCdm(8,x%,y%+20):PROCdm(8,x%+20,y%+20):PROCdm(8,x%+20,y%):PROCdm(8,x%,y%):PROCdm(0,0,0)
20122fm%=INT((LEN(Hb$))/4)+1:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,14,14,x%+40,y%,Hb$,0):ENDPROC
20136DEFPROCUm:LOCALHb$,rl%,jm%,fm%,Gj%,Li%,Xk%,Hj%:Xk%=FNXk(Ea%):PROCdk(Ea%,Gj%,Li%,Hj%):CASEEa%OF
20154WHENA`%(1):PROCkm(x%,y%,FNsl(Qc%),gi())
20156WHENA`%(2):PROCkm(x%,y%,FNsl(Zc%),hi())
20158WHENA`%(3):PROCkm(x%,y%,FNsl(lc%),ji())
20160WHENA`%(4):PROClm(x%,y%,FNsl(fc%(1)),ii(),1)
20162WHENA`%(5):PROClm(x%,y%,FNsl(fc%(2)),ii(),2)
20164WHENA`%(6):PROClm(x%,y%,FNsl(fc%(3)),ii(),3)
20166WHENA`%(7):PROClm(x%,y%,FNsl(fc%(0)),ii(),0)
20168ENDCASE:fm%=INT((LEN(B`$(Xk%,ld%)))/4)+1:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,16,16,350-(500/58)*LEN(B`$(Xk%,ld%)),420,B`$(Xk%,ld%),0):PROCbm(2,27,Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,1,&0):PROCdm(2,100,100)
20200PROCdm(8,100,400):PROCdm(8,600,400):PROCdm(8,600,100):PROCdm(8,100,100):PROCdm(5,0,0):PROCdm(0,0,0):PROCbm(1,15,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,14,14,300,20,"Year",0):IFFa%=&A3ORFa%=&A4THEN
20222PROCak(Ea%):fm%=INT((LEN(bk$))/4)+1:PROCbm(12,20+fm%,Om%,Pm%,Qm%,Rm%):C`%!4=65536:C`%!8=-65536:PROCem(&00000000,&FFFFFF00,1,12,12,25,230-5*LEN(bk$),bk$,-1)
20240ENDIF:PROCgm(x%,y%,Tg%,100,100,500,300,10,0.5,0.25,ck,Wg%,Xg%,Yg,1,-25,-32,10,4,-1,df%):IFZf%THEN
20262PROChm(x%,y%,Ad%,100,100,500,300,10,0.5,0.25,ek,td%,ud%,vd,1,-75,-7,10,Gj%,-1,0,hf%)
20264ELSE:PROChm(x%,y%,qd%(Xk%),100,100,500,300,10,0.5,0.25,gj(Xk%),td%(Xk%),ud%(Xk%),vd(Xk%),Li%,-75,-7,10,Gj%,Hj%,0,hf%)
20268ENDIF:ENDPROC
20276DEFPROCXm(y(),s,jh%,e%,s%,Ni%,Dj%,Lj%):LOCALmm%,ch:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1
20290IFNOTmc%THEN
20296CASEWm%OF
20298WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20300WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20302WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20304ENDCASE
20306ELSE:CASEWm%OF
20310WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20312WHEN4:ENDPROC
20314WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20316WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20318ENDCASE
20320ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%)-Lj%-(jh%+e%)/Dj%):IFnm%=bb%THEN:Vj=Uj
20336PROCpm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:NEXTnm%:PROCdm(0,0,0):ENDPROC
20350DEFPROCYm(y(),s,jh%,e%,s%,Ni%,Dj%,Yj%):LOCALmm%,ch:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1
20364IFNOTmc%THEN
20370CASEWm%OF
20372WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20374WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20376WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20378ENDCASE
20380ELSE:CASEWm%OF
20384WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20386WHEN4:ENDPROC
20388WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20390WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20392ENDCASE
20394ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj=160+100+Dj%*500*s*(y(nm%,Yj%)-(jh%+e%)/Dj%):IFnm%=bb%THEN:Vj=Uj
20410PROCpm(om,Uj,261,Vj,261,s%,Uj,ch):Vj=Uj:NEXTnm%:PROCdm(0,0,0):ENDPROC
20426DEFPROCZm(Ni%,n%):LOCALs,mm%:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1
20438s=500*zb:IFNOTmc%THEN
20446CASEWm%OF
20448WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20450WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20452WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20454ENDCASE
20456ELSE:CASEWm%OF
20460WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20462WHEN4:ENDPROC
20464WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20466WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20468ENDCASE
20470ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*10*ai(nm%):Wj(1)=s*gd%:IFn%>1THEN:Uj(2)=Uj(1)+s*10*bi(nm%):Wj(2)=Wj(1)+s*hd%
20488IFn%>2THEN:Uj(3)=Uj(2)+s*10*ci(nm%):Wj(3)=Wj(2)+s*id%
20490IFn%>3THEN:Uj(4)=Uj(3)+s*10*di(nm%,0):Wj(4)=Wj(3)+s*jd%(0)
20492IFn%>4THEN:IFnc%THEN:Uj(4)=Uj(3):Wj(4)=Wj(3)
20494IFn%>4THEN:Uj(5)=Uj(3)+s*10*di(nm%,1):Wj(5)=Wj(3)+s*jd%(1)
20496IFn%>5THEN:Uj(6)=Uj(5)+s*10*di(nm%,2):Wj(6)=Wj(5)+s*jd%(2)
20498IFn%>6THEN:Uj(7)=Uj(6)+s*10*di(nm%,3):Wj(7)=Wj(6)+s*jd%(3)
20500Wj()+=s*`b%:Uj()=Uj()-Wj():IFnm%=bb%THEN:Vj()=Uj()
20506PROCpm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),zb%,Uj(n%),Uj(n%-1)):Vj()=Uj():NEXTnm%:PROCdm(0,0,0):ENDPROC
20518DEFPROCam(Ni%,n%):LOCALs,mm%:IFmc%ANDWm%<4THENmm%=Ni%ELSEmm%=-1
20530s=500*Jc:IFNOTmc%THEN
20538CASEWm%OF
20540WHEN1:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20542WHEN2:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20544WHEN3:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20546ENDCASE
20548ELSE:CASEWm%OF
20552WHEN1,2,3:PROCbm(2,11+15*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20554WHEN4:ENDPROC
20556WHEN5:PROCbm(2,11+12*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20558WHEN6:PROCbm(2,14+3*(Tb%-bb%+1),Om%,Pm%,Qm%,Rm%)
20560ENDCASE
20562ENDIF:PROCcm(mm%,Ni%,0.25,&0):FORnm%=bb%TOTb%:om=140+(1000*Hi)*(nm%-bb%):Uj(0)=260:Wj(0)=0:Uj(1)=Uj(0)+s*Si(nm%):Wj(1)=0:IFn%>1THEN:Uj(2)=Uj(1)+s*(277*EXP(bi(nm%)/6.3)-277):Wj(2)=Wj(1)+s*(277*EXP(hd%/63)-277)
20580IFn%>2THEN:Uj(3)=Uj(2)+s*(277*EXP(ci(nm%)/6.3)-277):Wj(3)=Wj(2)+s*(277*EXP(id%/63)-277)
20582IFn%>3THEN:Uj(4)=Uj(3)+s*(277*EXP(di(nm%,0)/6.3)-277):Wj(4)=Wj(3)+s*(277*EXP(jd%(0)/63)-277)
20584IFn%>4THEN:IFnc%THEN:Uj(4)=Uj(3):Wj(4)=Wj(3)
20586IFn%>4THEN:Uj(5)=Uj(3)+s*(277*EXP(di(nm%,1)/6.3)-277):Wj(5)=Wj(3)+s*(277*EXP(jd%(1)/63)-277)
20588IFn%>5THEN:Uj(6)=Uj(5)+s*(277*EXP(di(nm%,2)/6.3)-277):Wj(6)=Wj(5)+s*(277*EXP(jd%(2)/63)-277)
20590IFn%>6THEN:Uj(7)=Uj(6)+s*(277*EXP(di(nm%,3)/6.3)-277):Wj(7)=Wj(6)+s*(277*EXP(jd%(3)/63)-277)
20592e%()+=s*(Nc%+cd%):Uj()=Uj()-Wj():IFnm%=bb%THEN:Vj()=Uj()
20598PROCpm(om,Uj(n%),Uj(n%-1),Vj(n%),Vj(n%-1),Jc%,Uj(n%),Uj(n%-1)):Vj()=Uj():NEXTnm%:PROCdm(0,0,0):ENDPROC
20610DEFPROCpm(om,qm,rm,sm,tm,lh%,RETURNqm,RETURNrm):LOCALri:IFABS(om-140)<0.001THENri=0ELSEri=(1000*Hi)
20620qm=FNsi(qm,960):rm=FNsi(rm,960):sm=FNsi(sm,960):tm=FNsi(tm,960):IFNOTmc%THEN
20626CASEWm%OF
20628WHEN1:PROCdm(2,om-FNti(qm,960,lh%),qm-FNti(qm,960,lh%)):PROCdm(8,om+FNti(qm,960,lh%),qm-FNti(qm,960,lh%)):PROCdm(8,om+FNti(qm,960,lh%),qm+FNti(qm,960,lh%)):PROCdm(8,om-FNti(qm,960,lh%),qm+FNti(qm,960,lh%))
20638PROCdm(8,om-FNti(qm,960,lh%),qm-FNti(qm,960,lh%))
20640WHEN2:PROCdm(2,om-FNti(qm,960,lh%),qm):PROCdm(8,om+FNti(qm,960,lh%),qm):PROCdm(2,om,qm-FNti(qm,960,lh%)):PROCdm(8,om,qm+FNti(qm,960,lh%))
20650WHEN3:IFnm%=bb%THEN:PROCdm(2,om,qm)
20654PROCdm(8,om,qm)
20656ENDCASE
20658ELSE:CASEWm%OF
20662WHEN1,2,3:PROCdm(2,om-ri,tm):PROCdm(8,om-ri,sm):PROCdm(8,om,qm):PROCdm(8,om,rm):PROCdm(2,om-ri,tm)
20670WHEN4
20672WHEN5:PROCdm(2,om-FNti(qm,960,lh%),qm):PROCdm(8,om+FNti(qm,960,lh%),qm):PROCdm(2,om,qm-FNti(qm,960,lh%)):PROCdm(8,om,qm+FNti(qm,960,lh%))
20682WHEN6:IFnm%=bb%THEN:PROCdm(2,om,qm)
20686PROCdm(8,om,qm)
20688ENDCASE
20690ENDIF:ENDPROC
20696DEFPROCum(om,Uj,Vj,lh%,vm%,RETURNy):LOCALri:IFABS(x-140)<0.001THENri=0ELSEri=(1000*Hi)
20706IFnc%THENui%=7ELSEui%=4
20708FORM%=1TOui%:Uj(M%)=FNsi(Uj(M%),960):wm-xm(M%)=FNsi(Vj(M%),960):NEXTM%:ENDPROC
20724DEFPROCkm(x%,y%,Ni%,fk()):LOCALhk,ik:PROCbm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):PROCcm(-1,Ni%,0.5,&0):ik=ek*300:IFfk(0,ld%)>0THENjk=fk(0,ld%)ELSEjk=1
20748PROCdm(2,100,100+ik*(100*fk(0,ld%)/jk-Ad%)):FORnm%=1TO(bf%-1990):hk=ik*(100*fk(nm%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0
20756PROCdm(8,100+500*ck*nm%,100+hk):NEXT:PROCdm(0,0,0):ENDPROC
20768DEFPROClm(x%,y%,Ni%,fk(),Ui%):LOCALgk,hk,ik:PROCbm(2,14+3*(bf%-1990),Om%,Pm%,Qm%,Rm%):PROCcm(-1,Ni%,0.5,&0):ik=ek*300:IFfk(0,Ui%,ld%)>0THENjk=fk(0,Ui%,ld%)ELSEjk=1
20792PROCdm(2,100,100+ik*(100*fk(0,Ui%,ld%)/jk-Ad%)):FORnm%=1TO(bf%-1990):hk=ik*(100*fk(nm%,Ui%,ld%)/jk-Ad%):IFhk>300THENhk=300ELSEIFhk<0THENhk=0
20800PROCdm(8,100+500*ck*nm%,100+hk):NEXT:PROCdm(0,0,0):ENDPROC
20812DEFPROCgm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Aj%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Gj%,Hj%,Ki%):LOCALHb$:PROCbm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,zm,&0):FORX%=0TOBj%:PROCdm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%-ym%)
20884PROCdm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%):NEXTX%:PROCdm(0,0,0):IFKi%THEN
20896PROCbm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,_m,&80):PROCNm(256*5):PROCNm(1):PROCNm(256*5):FORX%=0TOBj%:PROCdm(2,yi%+_i%*s*(Aj%+Cj*X%),zi%):PROCdm(8,yi%+_i%*s*(Aj%+Cj*X%),zi%+`i%):NEXTX%:PROCdm(0,0,0)
20928ENDIF:FORX%=0TOBj%:Hb$=STR$(INT((xi%+Aj%+Cj*X%)/Dj%)):PROCbm(1,15,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%+_i%*s*(Aj%+Cj*X%),zi%+Fj%,Hb$,0):NEXTX%:ENDPROC
20954DEFPROChm(x%,y%,xi%,yi%,zi%,_i%,`i%,ym%,zm,_m,s,Ij%,Bj%,Cj,Dj%,Ej%,Fj%,`m%,Jj%,Hj%,Kj%,Ki%):LOCALHb$:PROCbm(2,11+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,zm,&0):FORY%=0TOBj%:PROCdm(2,yi%-ym%-2*ym%*Kj%,zi%+`i%*s*(Ij%+Cj*Y%))
21028PROCdm(8,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):NEXT:PROCdm(0,0,0):IFKi%THEN
21040PROCbm(2,14+6*(Bj%+1),Om%,Pm%,Qm%,Rm%):PROCcm(-1,&00000000,_m,&80):PROCNm(256*5):PROCNm(1):PROCNm(256*5):FORY%=0TOBj%:PROCdm(2,yi%,zi%+`i%*s*(Ij%+Cj*Y%)):PROCdm(8,yi%+_i%,zi%+`i%*s*(Ij%+Cj*Y%)):NEXT:PROCdm(0,0,0)
21072ENDIF:FORY%=0TOBj%:IFHj%THEN
21084Hb$=" "+STR$(INT((xi%+Ij%+Cj*Y%)/Dj%))
21086ELSE:IF(xi%+Ij%+Cj*Y%)>=0THENLj=0.001ELSELj=-0.001
21090Hb$=" "+LEFT$(STR$((xi%+Ij%+Cj*Y%)/Dj%+Lj),FNJj((xi%+Ij%+Cj*Y%)/Dj%,Jj%))
21092ENDIF:IFABS(xi%+Ij%+Cj*Y%)<=0.001THEN:Hb$="0 "
21096fm%=INT((LEN(Hb$))/4)+1:IFHj%THEN
21100Ej%=(Kj%+1)*(-2*ym%-`m%*LEN(Hb$))-1.25*Kj%*ym%
21102ELSE:Ej%=(Kj%+1)*(-2*ym%-`m%*LEN(Hb$)+`m%/2)-1.25*Kj%*ym%
21106ENDIF:PROCbm(1,13+fm%,Om%,Pm%,Qm%,Rm%):PROCem(&00000000,&FFFFFF00,1,`m%,`m%,yi%+Ej%,zi%+Fj%+`i%*s*(Ij%+Cj*Y%),Hb$,0):NEXT
21118ENDCASE:ENDPROC
21124DEFPROCdm(An%,x,y):PROCNm(An%):IFAn%=2ORAn%=8THEN
21140PROCNm(256*x):PROCNm(256*y)
21144ENDIF:ENDPROC
21150DEFPROCem(Bn%,Cn%,Dn%,En%,Fn%,Gn%,Hn%,Hb$,In%):LOCALrl%,jm%:IFIn%THEN
21164PROCNm(C`%!0):PROCNm(C`%!4):PROCNm(C`%!8):PROCNm(C`%!12):PROCNm(C`%!16):PROCNm(C`%!20):PROCNm(0)
21178ENDIF:PROCNm(Bn%):PROCNm(Cn%):PROCNm(Dn%):PROCNm(640*En%):PROCNm(640*Fn%):PROCNm(256*Gn%):PROCNm(256*Hn%):BPUT#kh%,Hb$;:rl%=LEN(Hb$):jm%=rl%MOD4:WHILEjm%<4:BPUT#kh%,CHR$(0);:jm%+=1:ENDWHILE:ENDPROC
21212DEFPROCbm(Jn%,lh%,Kn%,Ln%,Mn%,Nn%):PROCNm(Jn%):PROCNm(4*lh%):PROCNm(256*Mn%):PROCNm(256*Nn%):PROCNm(256*Kn%):PROCNm(256*Ln%):ENDPROC
21230DEFPROCcm(On%,Pn%,Qn,Ca%):PROCNm(On%):PROCNm(Pn%):PROCNm(640*Qn):PROCNm(Ca%):ENDPROC
21250DEFPROCPb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=&00200000:X_%!12=&00200000:SYS262349,,X_%:ENDPROC
21268DEFPROCRb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=0:X_%!12=&00200000:SYS262349,,X_%:ENDPROC
21286DEFPROCQb(sh%,Gb%):!X_%=sh%:X_%!4=Gb%:SYS262350,,X_%:X_%!8=&00200000:X_%!12=0:SYS262349,,X_%:ENDPROC
21304DEFPROCCc(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:X_%!8=&00000000:X_%!11=16*Ni%:X_%!12=&F0000000:SYS262349,,X_%:ENDPROC
21318DEFPROCRn(sh%,gl%,Ni%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:X_%!8=&00000000:X_%!12=&0F000000:X_%!11=Ni%:SYS262349,,X_%:ENDPROC
21334DEFPROCfb(sh%,gl%,Hb%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=STR$(Hb%):X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC
21354DEFPROCzc(sh%,gl%,Hb$):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(X_%!28)=Hb$:X_%!8=0:X_%!12=0:SYS262349,,X_%:ENDPROC
21374DEFPROCSn(sh%,gl%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:hl%=VAL($(X_%!28)):ENDPROC
21386DEFPROCug(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$Dd%=$(X_%!28):ENDPROC
21402DEFPROCRh(sh%,gl%,Dd%,Tn%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$(Tn%)=$Dd%:ENDPROC
21418DEFPROCwa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%OR&00000001:!(Un%+28+24*Vn%)=Oh%:ENDPROC
21438DEFPROCxa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+28+24*Vn%):Oh%=Oh%AND&FFFFFFFE:!(Un%+28+24*Vn%)=Oh%:ENDPROC
21458DEFPROCqa(Un%,Vn%):LOCALOh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%OR&00400000:!(Un%+36+24*Vn%)=Oh%:ENDPROC
21478DEFPROCzg(Un%,Vn%):LOCALOh%:Oh%=!(Un%+36+24*Vn%):Oh%=Oh%AND&FFBFFFFF:!(Un%+36+24*Vn%)=Oh%:ENDPROC
21498DEFPROCxg(Un%,Wn%,Xn%,Yn%):SYS262351,,X_%:X_%!0=X_%!12:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:SYS262351,,X_%:IFYn%THEN
21516Ch%=X_%!0+Wn%:Dh%=X_%!4+Xn%
21520ELSE:Dh%=X_%!4+Xn%:X_%!0=X_%!12:X_%!4=X_%!16:SYS262350,,X_%:Ch%=Nb%+X_%!16+Wn%
21532ENDIF:SYS262356,,Un%,Ch%,Dh%:ENDPROC
21540DEFPROCpa(Un%):READZn$,an%:$Un%=Zn$:bn%=(LEN(Zn$)-2)*16:Un%!12=&70207:Un%!20=44:Un%!24=0:Ul%=Un%+28:FORi%=1TOan%:READcn%,dn%,Vn$:!Ul%=cn%:Ul%!4=dn%:Ul%!8=&7000021:IFUn%=G`%THENUl%!11=&7+16*(i%-1)
21560$(Ul%+12)=Vn$:a%=(LEN(Vn$)+1)*16:IFa%>bn% bn%=a%
21566Ul%+=24:NEXTi%:Un%!16=bn%:ENDPROC
21576DEFPROCUh:LOCALch$:en%=R`%:SYS263872:kh%=OPENIN($en%):INPUT#kh%,ch$:IFch$="CO2effect"THEN
21598FORM%=0TO5:INPUT#kh%,zd%(M%):INPUT#kh%,`d%(M%):INPUT#kh%,Be%(M%):INPUT#kh%,De%(M%):INPUT#kh%,Fe%(M%):INPUT#kh%,Le%(M%):INPUT#kh%,He%(M%,1):INPUT#kh%,He%(M%,2):INPUT#kh%,He%(M%,3):INPUT#kh%,He%(M%,4):INPUT#kh%,ee%(M%):INPUT#kh%,ie%(M%):INPUT#kh%,ke%(M%):INPUT#kh%,me%(M%):INPUT#kh%,ge%(M%)
21636INPUT#kh%,Ne%(M%):INPUT#kh%,Pe%(M%):INPUT#kh%,Re%(M%):INPUT#kh%,Te%(M%):INPUT#kh%,Ve%(M%):INPUT#kh%,Ze%(M%):INPUT#kh%,Af%(M%):INPUT#kh%,Cf%(M%):INPUT#kh%,Gf%(M%):INPUT#kh%,If%(M%):INPUT#kh%,Kf%(M%):INPUT#kh%,Of%(M%):INPUT#kh%,oe%(M%):INPUT#kh%,qe%(M%):INPUT#kh%,se%(M%):INPUT#kh%,ue%(M%)
21674INPUT#kh%,we%(M%):INPUT#kh%,_e%(M%):INPUT#kh%,Qf%(M%):INPUT#kh%,Sf%(M%):INPUT#kh%,Uf%(M%):INPUT#kh%,Yf%(M%):NEXT
21690ENDIF:CLOSE#kh%:SYS263873:ENDPROC
21700DEFPROCTh:SYS263872:kh%=OPENOUT($Q`%):PRINT#kh%,"CO2effect":FORM%=0TO5:PRINT#kh%,zd%(M%):PRINT#kh%,`d%(M%):PRINT#kh%,Be%(M%):PRINT#kh%,De%(M%):PRINT#kh%,Fe%(M%):PRINT#kh%,Le%(M%):PRINT#kh%,He%(M%,1):PRINT#kh%,He%(M%,2):PRINT#kh%,He%(M%,3):PRINT#kh%,He%(M%,4):PRINT#kh%,ee%(M%)
21744PRINT#kh%,ie%(M%):PRINT#kh%,ke%(M%):PRINT#kh%,me%(M%):PRINT#kh%,ge%(M%):PRINT#kh%,Ne%(M%):PRINT#kh%,Pe%(M%):PRINT#kh%,Re%(M%):PRINT#kh%,Te%(M%):PRINT#kh%,Ve%(M%):PRINT#kh%,Ze%(M%):PRINT#kh%,Af%(M%):PRINT#kh%,Cf%(M%):PRINT#kh%,Gf%(M%):PRINT#kh%,If%(M%):PRINT#kh%,Kf%(M%):PRINT#kh%,Of%(M%)
21784PRINT#kh%,oe%(M%):PRINT#kh%,qe%(M%):PRINT#kh%,se%(M%):PRINT#kh%,ue%(M%):PRINT#kh%,we%(M%):PRINT#kh%,_e%(M%):PRINT#kh%,Qf%(M%):PRINT#kh%,Sf%(M%):PRINT#kh%,Uf%(M%):PRINT#kh%,Yf%(M%):NEXT:CLOSE#kh%:OSCLI"SetType "+$Q`%+" 077":SYS263873:ENDPROC
21818DEFPROCEd(sh%,gl%,Dd%):!X_%=sh%:X_%!4=gl%:SYS262350,,X_%:$Dd%=$(X_%!28):ENDPROC
21834DEFPROCvg(sh%,gl%):LOCALNb%,Ob%:fn%=TRUE:!X_%=sh%:SYS262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=gl%:SYS262350,,X_%:X_%!4=5:X_%!8=Nb%+X_%!8:X_%!12=Ob%+X_%!12:X_%!16=Nb%+X_%!16:X_%!20=Ob%+X_%!20:X_%!24=0:X_%!28=0:X_%!32=&7FFFFFFF
21868X_%!36=&7FFFFFFF:SYS262352,,X_%:ENDPROC
21876DEFPROC`a:LOCALgn%:SYS262356,,-1:CASET`%OF
21894WHEN&077:Dd%=Q`%:gn%=1110
21896WHEN&AFF:Dd%=P`%:gn%=32768
21898WHEN&FFF:Dd%=S`%:gn%=4096
21900ENDCASE:SYS262351,,X_%:X_%!20=X_%!12:X_%!24=X_%!16:X_%!28=X_%!0:X_%!32=X_%!4:X_%!0=64:X_%!12=0:X_%!16=1:X_%!36=gn%:X_%!40=T`%:$(X_%+44)=FNTl($Dd%):SYS262375,18,X_%,X_%!20,X_%!24:ENDPROC
21930DEFPROCFd:IFINSTR($Dd%,".")THEN
21934CASET`%OF
21936WHEN&077:PROCLa(na%):SYS262356,,-1:PROCTh
21942WHEN&AFF:PROCLa(ja%):SYS262356,,-1:PROCSh
21948WHEN&FFF:PROCLa(la%):SYS262356,,-1:PROCQh
21954ENDCASE:IFEa%=Ma%THEN
21958w`%=FALSE:x`%=FALSE:y`%=TRUE:z`%=TRUE:ua%=Ma%:SYS262353,Ma%,0,-800,1280,-150
21964ENDIF
21966ELSE:PROCDb("To save, drag the icon to a directory viewer",1)
21970ENDIF:ENDPROC
21976DEFPROCQh:SYS263872:kh%=OPENOUT($S`%):BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%," Parameter list for CO2effect global warming simlulation ":BPUT#kh%," ======================================================= ":BPUT#kh%,""
21996BPUT#kh%,"":BPUT#kh%,"Phase number :";:FORhn%=0TO5:BPUT#kh%,FNnb(hn%);:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,""
22010BPUT#kh%,"% coal generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(zd%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% gas generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(`d%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% oil generation :";:FORhn%=0TO5:BPUT#kh%,FNnb(Be%(hn%));:NEXThn%:BPUT#kh%,""
22016BPUT#kh%,"% nuclear gen. :";:FORhn%=0TO5:BPUT#kh%,FNnb(De%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% renewables gen. :";:FORhn%=0TO5:BPUT#kh%,FNnb(Fe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,""
22022BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Le%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Coal CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,1));:NEXThn%:BPUT#kh%,""
22028BPUT#kh%,"Gas CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,2));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Oil CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,3));:NEXThn%:BPUT#kh%,""
22032BPUT#kh%,"Nuclear CHP? :";:FORhn%=0TO5:BPUT#kh%,FNnb(He%(hn%,4));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"('-1'=Yes; '0'=No)":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,""
22046BPUT#kh%,"Growth in VMT (%) :";:FORhn%=0TO5:BPUT#kh%,FNnb(ee%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Efficiency (%) :";:FORhn%=0TO5:BPUT#kh%,FNnb(ie%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% bio fuels used :";:FORhn%=0TO5:BPUT#kh%,FNnb(ke%(hn%));:NEXThn%:BPUT#kh%,""
22052BPUT#kh%,"% car filling :";:FORhn%=0TO5:BPUT#kh%,FNnb(me%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(ge%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,""
22062BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Power; electricity :";:FORhn%=0TO5:BPUT#kh%,FNnb(Ne%(hn%));:NEXThn%:BPUT#kh%,""
22070BPUT#kh%,"Power; CHP :";:FORhn%=0TO5:BPUT#kh%,FNnb(Pe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Remaining power :";:FORhn%=0TO5:BPUT#kh%,FNnb(Re%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% bio fuels used :";:FORhn%=0TO5:BPUT#kh%,FNnb(Te%(hn%));:NEXThn%:BPUT#kh%,""
22076BPUT#kh%,"Total power :";:FORhn%=0TO5:BPUT#kh%,FNnb(Ve%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Ze%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Power in TWh per year":BPUT#kh%,""
22090BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Deforestaton rate :";:FORhn%=0TO5:BPUT#kh%,FNnb(Af%(hn%));:NEXThn%:BPUT#kh%,""
22098BPUT#kh%,"Reforestaton rate :";:FORhn%=0TO5:BPUT#kh%,FNnb(Cf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Gf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Rate in million of hectares per year":BPUT#kh%,""
22112BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"Number of livestock:";:FORhn%=0TO5:BPUT#kh%,FNnb(If%(hn%));:NEXThn%:BPUT#kh%,""
22120BPUT#kh%,"Fertilizer used :";:FORhn%=0TO5:BPUT#kh%,FNnb(Kf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Of%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Number of livestock in millions"
22130BPUT#kh%,"Mass of fertilizer manufactured/used in millions of tons":BPUT#kh%,"":BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,""
22142BPUT#kh%,"% of CFC-11 :";:FORhn%=0TO5:BPUT#kh%,FNnb(oe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% of CFC-12 :";:FORhn%=0TO5:BPUT#kh%,FNnb(qe%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% of HCFC-22 :";:FORhn%=0TO5:BPUT#kh%,FNnb(se%(hn%));:NEXThn%:BPUT#kh%,""
22148BPUT#kh%,"% of alternatives :";:FORhn%=0TO5:BPUT#kh%,FNnb(ue%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"Total mass released:";:FORhn%=0TO5:BPUT#kh%,FNnb(we%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,""
22154BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(_e%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Total mass of CFC/alternatives manufactured/released in kilotons":BPUT#kh%,""
22164BPUT#kh%,"-----------------------------------------------------------------------------":BPUT#kh%,"":BPUT#kh%,"% cement emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Qf%(hn%));:NEXThn%:BPUT#kh%,""
22172BPUT#kh%,"% acid emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Sf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"% sewage emissions :";:FORhn%=0TO5:BPUT#kh%,FNnb(Uf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,""
22178BPUT#kh%,"Phase in over (yrs):";:FORhn%=0TO5:BPUT#kh%,FNnb(Yf%(hn%));:NEXThn%:BPUT#kh%,"":BPUT#kh%,"":BPUT#kh%,"Emissions in percent of 1990 levels":CLOSE#kh%:OSCLI"SetType "+$S`%+" FFF":SYS263873:ENDPROC
22194DEFPROCin(sh%,RETURNNb%,RETURNOb%):!X_%=sh%:SYS262347,,X_%:Nb%=X_%4-X_%!20:Ob%=X_%!8-X_%!24:ENDPROC
22208DEFPROCIb(sh%):!X_%=sh%:SYS262347,,X_%:SYS262341,,X_%:ENDPROC
22220DEFPROCLa(sh%):!X_%=sh%:SYS262342,,X_%:ENDPROC
22230DEFPROCjn:SYS262351,,kn%:ln%=!kn%:mn%=kn%!4:nn%=X_%!12-X_%!4:on%=X_%!16-X_%!8:X_%!4=ln%-0.5*nn%:X_%!12=ln%+0.5*nn%:X_%!8=mn%-0.5*on%:X_%!16=mn%+0.5*on%:ENDPROC
22252DEFPROCwd(sh%,pn%,Zn$):$(pn%)=Zn$:X_%!0=sh%:SYS262347,,X_%:IF(X_%!32AND(1<<16))THEN
22262SYS262353,-1,X_%!4,(X_%!16)+4,X_%!12,(X_%!16)+36
22264ENDIF:ENDPROC
22270DEFPROCqn:PROCLa(Va%):PROCLa(Qa%):PROCLa(Sa%):PROCLa(Pa%):PROCLa(Ua%):PROCLa(La%):ENDPROC
22288DEFPROCqf:PROCLa(aa%):PROCLa(ha%):PROCLa(ba%):PROCLa(fa%):PROCLa(ca%):PROCLa(ea%):PROCLa(ga%):PROCLa(ia%):ENDPROC
' ��A_:�B_:�C_:�D_:�E_:�F_("<CO2effect$Dir>.HelpText"):ș263872:�G_:�H_:�I_:�J_:�K_:�L_:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:ș263873:ȕ�U_%:�V_:�:�W_:�
'\���C_:�X_% 2560:�Y_% 144,Z_% 518,a_% 1206,b_% 440,c_% 434,d_% 750,e_% 449,f_% 412,g_% 946,h_% 197,i_% 263:�j_% 738,k_% 673,l_% 484,m_% 261,n_% 495,o_% 683,p_% 693,q_% 820,r_% 807,s_% 269,t_% 269,u_% 269
'h��v_% 40,w_% 40,x_% 40,y_% 40,z_% 40,__% 40,`_% 40:�A`%(7),B`%(7):�C`% 24:�D`% 255:�N%=0�255:?(D`%+N%)=0:�:�E`% 11:�F`% 99,G`% 411,H`% 99,I`% 75,J`% 75,K`% 51,L`% 123:�M`% 79:�N`% 11:$N`%="ptr_default":�O`% 11:$O`%="ptr_menu"
'���P`% 255:$P`%="DrawFile":�Q`% 255:$Q`%="Parameters":�R`% 255:$R`%="":�S`% 255:$S`%="TextFile":T`%=&AFF:�U`% 3:�V`% 15,W`% 1:�X`% 6:$X`%="R2;A~ ":�Y`% 0:$Y`%="":�Z`% 20,a`% 20,b`% 20,c`% 20:�d`% 0:$d`%=""
'���e`% 20:$e`%="Sslowoff,slowon":�f`% 20:$f`%="Sfastoff,faston":g`%=7:h`%=8:i`%=9:j`%=11:k`%=18:�l`% 0:$l`%="":�m`% 20:$m`%="Soneoff,oneon":�n`% 20:$n`%="Salloff,allon":o`$="":�p`% 256:U_%=�:q`%=�:r`%=�:s`%=�:t`%=�:u`%=�:v`%=�
'��w`%=�:x`%=�:y`%=�:z`%=�:_`%=�:``%=�:Aa%=�:Ba%=�:Ca%=1:Da%=0:Ea%=0:�Fa% 4:ș6,129,0,&FF�,Fa%:Ga$="CO2effect":ș262336,200,&4B534154,Ga$:��Ha(�$+" at line "+Þ):�W_
'�4Ia%=�Ja(-1,0,0,68,68,&3002,"!CO2effect",0,0,0):�
'����D_:ș262361,,"<CO2effect$Dir>.Templates":Ka%=�La(Y_%,Y_%+144,-1,"Info",1):Ma%=�La(Z_%,Z_%+518,D`%,"Main",Na%):Oa%=X_%!72:Pa%=�La(a_%,a_%+1206,-1,"Saves",Na%):Qa%=�La(b_%,b_%+440,-1,"LHy_d",Na%):Ra%=X_%!72
'��Sa%=�La(c_%,c_%+434,-1,"RHy_d",Na%):Ta%=X_%!72:Ua%=�La(d_%,d_%+750,-1,"Configure",Na%):La%=�La(e_%,e_%+449,-1,"Colours",Na%):Va%=�La(f_%,f_%+412,-1,"Time",Na%):Wa%=�La(g_%,g_%+946,-1,"Tools",Na%):Xa%=X_%!72
'��Ya%=�La(h_%,h_%+197,-1,"Time_emiss",Na%):Za%=�La(i_%,i_%+263,-1,"Per_emiss",Na%):A`%(1)=�La(v_%,v_%+40,-1,"Emissions",1):B`%(1)=X_%!72:A`%(2)=�La(w_%,w_%+40,-1,"Emissions",1):B`%(2)=X_%!72
(�A`%(3)=�La(x_%,x_%+40,-1,"Emissions",1):B`%(3)=X_%!72:A`%(4)=�La(y_%,y_%+40,-1,"Emissions",1):B`%(4)=X_%!72:A`%(5)=�La(z_%,z_%+40,-1,"Emissions",1):B`%(5)=X_%!72:A`%(6)=�La(__%,__%+40,-1,"Emissions",1):B`%(6)=X_%!72
(
�A`%(7)=�La(`_%,`_%+40,-1,"Emissions",1):B`%(7)=X_%!72:aa%=�La(j_%,j_%+738,-1,"Elec_gen",Na%):ba%=�La(k_%,k_%+673,-1,"Transport",Na%):ca%=�La(l_%,l_%+484,-1,"Forest",Na%):da%=�La(m_%,m_%+261,-1,"TempModel",Na%)
(�ea%=�La(n_%,n_%+495,-1,"Agricul",Na%):fa%=�La(o_%,o_%+683,-1,"CFC",Na%):ga%=�La(p_%,p_%+693,-1,"Misc",Na%):ha%=�La(q_%,q_%+820,-1,"Energy_use",Na%):ia%=�La(r_%,r_%+807,-1,"Set_emiss",Na%)
(�ja%=�La(s_%,s_%+269,-1,"Draw_save",Na%):ka%=X_%!140:la%=�La(t_%,t_%+269,-1,"p_tf_s",Na%):ma%=X_%!140:na%=�La(u_%,u_%+269,-1,"p_cf_s",Na%):oa%=X_%!140:ș262362:�
(*~��E_:��pnG:�pa(F`%):��ppG:�pa(G`%):��prG:�pa(H`%):��ptG:�pa(I`%):��pvG:�pa(J`%):��pxG:�pa(K`%):��pzG:�pa(L`%):�qa(L`%,3):�
(F1��V_:ș66�ra:ș262369,0,X_%,ra+Da%�sa%:Ȏsa%�
(R�0:�r`%�:�ta
(V
�Ba%�:�Ba
(X �z`%�
(Zz`%=�:Ȏua%�
(^,�Ma%:y`%=�:ș262353,Ma%,0,-960,1280,-150
(`"�aa%:ș262353,aa%,0,-344,706,0
(b�
(d�
(f�1:�va(!X_%)
(h�2:ȎX_%!0�
(l�Wa%:�wa(H`%,2):``%=�
(n�:ș262341,,X_%
(r�3:ȎX_%!0�
(v�Wa%:�xa(H`%,2):``%=�
(x�Ma%
(z�:ș262342,,X_%
(~�4:ȎX_%!0�
(�<�Qa%,Sa%,La%,da%:Ba%=�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1
(��
(��5:ȎX_%!0�
(��ja%,la%,na%:�ya
(��Qa%,Sa%,La%,da%:Ba%=�
(��
(�*�6:za%=X_%!12:�_a(X_%!8,X_%!12,X_%!16)
(��7:�_`%��_`��`a
(��8:�Ab(!X_%,X_%!4,X_%!24)
(�
�9:�Bb
(��17,18:�Cb(X_%)
(�0�19:�Db("Transfer failed - receiver died",1)
(��:�
(�@��_a(Eb%,Fb%,Gb%):�Hb$:�Fb%<>-2�Fb%<>ja%�Aa%�:�La(ja%):Aa%=�
(�
ȎFb%�
(��-2:ȎEb%�
(��1,4:�Ib(Ma%):�Jb:�Kb
(��:�Aa%�:�La(ja%):Aa%=�
(��Ma%:�Eb%<>2�Gb%=-1�
(�+ș262354,Ma%,-1,0,0,-1,-1:Ea%=Ma%:Aa%=�
(��:�Aa%�:�La(ja%):Aa%=�
(�
ȎEb%�
(��256,1024:ȎGb%�
(�
(���-1:_`%=�:ș262351,,X_%:Lb%=X_%!0:Mb%=X_%!4:!X_%=Ma%:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=6:X_%!8=Lb%:X_%!12=Mb%:X_%!16=Lb%:X_%!20=Mb%:X_%!24=Nb%+140:X_%!28=Ob%-700:X_%!32=Nb%+1140:X_%!36=Ob%-200
)6�Lb%<Nb%+140�Lb%>Nb%+1140�Mb%<Ob%-700�Mb%>Ob%-200�
)
ș262352,,0
)�:ș262352,,X_%
)�
)�
)�1,4:ȎGb%�
)
)�1:�r`%��s`%�t`%�
) �Pb(Ma%,1):r`%=�:s`%=�:t`%=�
)$�
)*�2:�s`%�
).2r`%=�r`%:�Qb(Ma%,2):�r`%��xa(F`%,1)��wa(F`%,1)
)2�
)8�3:�s`%=��
)<_r`%=�:s`%=�:�Qb(Ma%,3):�Rb(Ma%,1):�Rb(Ma%,2):�Qb(Ma%,3):w`%=�:ș262353,Ma%,0,-960,1280,-150
)B�
)H8�4:u`%=�u`%:�Qb(Ma%,4):ș262353,Ma%,0,-960,1280,-150
)T��5:r`%=�:s`%=�:u`%=�:t`%=�:�Qb(Ma%,5):�Rb(Ma%,1):�Rb(Ma%,2):�Rb(Ma%,4):ș263872:Sb%=240:Tb%=240:�L_:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:ș263873:ș262353,Ma%,0,-960,1280,-150:�Jb
)n)�6:�Qb(Ma%,6):Ub%=Vb%:�Ub%��Pb(Va%,5)
)vWb%=Xb%:�Ib(Va%):ȎXb%�
)|8�0:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):Yb%=Zb%:ab%=bb%
)�8�1:�Pb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):Yb%=340:ab%=240
)�8�2:�Pb(Va%,9):�Rb(Va%,8):�Rb(Va%,10):Yb%=350:ab%=100
)�6�3:�Pb(Va%,10):�Rb(Va%,8):�Rb(Va%,9):Yb%=400:ab%=0
)�C�:cb%=400:db%=0:eb%=5:�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750)
)�<�7,g`%:v`%=�v`%:X_%!0=Ma%:X_%!4=g`%:ș262350,,X_%:�v`%�
)�VDa%=900:g`%=�gb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,e`%)
)�V�:Da%=0:g`%=�gb(Ma%,g`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,f`%)
)��
)�#�8:�Qb(Ma%,h`%):�Ib(Qa%):Ȏhb%�
)�J�1:ib%=jb%:kb%=lb%:mb%=nb%:ob%=pb%:qb%=rb%:sb%=tb%:ub%=250:vb%=0:wb%=1
)�J�2:ib%=xb%:kb%=yb%:mb%=zb%:ob%=_b%:qb%=`b%:sb%=Ac%:ub%=500:vb%=0:wb%=1
)�`�:�fb(Qa%,14,mb%):�Bc(Qa%,19,ob%):�Bc(Qa%,23,qb%):�Cc(Qa%,11,sb%):�ib%��Pb(Qa%,5)��Rb(Qa%,5)
)��kb%��Pb(Qa%,8)��Rb(Qa%,8)
)�
)�!�9:�Qb(Ma%,9):�Ib(Sa%):ȎDc%�
)�L�1:Ec%=Fc%:Gc%=Hc%:Ic%=Jc%:Kc%=Lc%:Mc%=Nc%:Oc%=Qc%:Rc%=5000:Sc%=0:Tc%=10
)�M�2:Ec%=Uc%:Gc%=Vc%:Ic%=Wc%:Kc%=Xc%:Mc%=Yc%:Oc%=Zc%:Rc%=10000:Sc%=0:Tc%=50
)�P�3:Ec%=ac%:Gc%=bc%:Ic%=cc%:Kc%=dc%:Mc%=ec%:Oc%=fc%(0):Rc%=10000:Sc%=0:Tc%=50
*L�4:Ec%=gc%:Gc%=hc%:Ic%=ic%:Kc%=jc%:Mc%=kc%:Oc%=lc%:Rc%=1000:Sc%=0:Tc%=10
*
a�:�fb(Sa%,14,Ic%):�fb(Sa%,19,Kc%):�fb(Sa%,23,Mc%):�Cc(Sa%,11,Oc%):�Ec%�:�Pb(Sa%,5)��Rb(Sa%,5)
*�Gc%�:�Pb(Sa%,8)��Rb(Sa%,8)
*
*7�10:�Qb(Ma%,10):�Ib(Ua%):�mc%��Pb(Ua%,4)��Rb(Ua%,4)
*$ �nc%��Pb(Ua%,28)��Rb(Ua%,28)
*& �oc%��Pb(Ua%,30)��Rb(Ua%,30)
*(
Ȏqc%�
**'�1:�Pb(Ua%,7):�Rb(Ua%,8):�Rb(Ua%,9)
*,'�2:�Pb(Ua%,8):�Rb(Ua%,7):�Rb(Ua%,9)
*.'�3:�Pb(Ua%,9):�Rb(Ua%,7):�Rb(Ua%,8)
*0�:Ȏhb%�
*4�1:�Pb(Ua%,11)
*6�2:�oc%�:�Pb(Ua%,12)
*8�:ȎDc%�
*<�1:�oc%�:�Pb(Ua%,16)
*>�2:�Pb(Ua%,17)
*@�3:�Pb(Ua%,18)
*B�4:�Pb(Ua%,19)
*D�:Ȏrc%�
*H�1:�Pb(Ua%,23)
*J�2:�Pb(Ua%,25)
*L�3:�Pb(Ua%,27)
*N�
*T�11,j`%:sc%=�sc%:�sc%�
*Z�oc%=�:mc%=�:qc%=3:X_%!0=Ma%:X_%!4=j`%:ș262350,,X_%:j`%=�gb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,m`%):yb%=�:Hc%=�:hb%=2:Dc%=1:lb%=�:Vc%=�:hc%=�:bc%=�:�Pb(Ua%,12):�Rb(Ua%,11)
*h��Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
*r�$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):�zc(Qa%,17,"Scale (Wm-2)"):�Kb:�Jb:Dc$=" ":�La(Qa%):�Pb(Ua%,4):�Pb(Ua%,7)
*�%�Rb(Ua%,8):�Rb(Ua%,9):�Pb(Ua%,30)
*���:oc%=�:mc%=�:X_%!0=Ma%:X_%!4=j`%:ș262350,,X_%:j`%=�gb(Ma%,j`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,n`%):�Pb(Ua%,12):�Pb(Ua%,16):yb%=�:Hc%=�:�Kb:�Jb:�Rb(Ua%,4):�Rb(Ua%,30)
*�C�:w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
*���12:�Qb(Ma%,12):�Ib(La%):_c%(1)=Qc%:�Cc(La%,3,_c%(1)):_c%(2)=Zc%:�Cc(La%,6,_c%(2)):_c%(3)=lc%:�Cc(La%,9,_c%(3)):_c%(4)=fc%(0):�Cc(La%,12,_c%(4)):_c%(5)=fc%(1):�Cc(La%,15,_c%(5)):_c%(6)=fc%(2):�Cc(La%,18,_c%(6))
*�$_c%(7)=fc%(3):�Cc(La%,21,_c%(7))
*�V�13:�Qb(Ma%,13):�Ib(Wa%):``%=�:�`c%=100�Ad%=0�:�Pb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23)
*�7�`c%=250�Ad%=0�:�Pb(Wa%,22):�Rb(Wa%,21):�Rb(Wa%,23)
*�8�`c%=1000�Ad%=0�:�Pb(Wa%,23):�Rb(Wa%,21):�Rb(Wa%,22)
*��Eb%=4�:�La(Ma%)
*��wa(H`%,2)
*�0�14:�Qb(Ma%,14):�zc(da%,2,Bd$(Cd%)):�Ib(da%)
*�?�17:�Qb(Ma%,17):Ea%=Ma%:T`%=&AFF:Dd%=P`%:�Ed(ja%,1,P`%):�Fd
*��18:�Fa%=&A3�Fa%=&A4�
*�O�Qb(Ma%,18):�"If ""<Help$Dir>""="""" Then Filer_Run Resources:$.Apps.!Help"
*��
*��
*��
*��Va%:ȎEb%�
+ �1,4:ȎGb%�
+�5,6:�Qb(Va%,5):Ub%=�Ub%
+h�8:Wb%=1:Yb%=340:ab%=240:�Pb(Va%,8):�Rb(Va%,9):�Rb(Va%,10):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750)
+h�9:Wb%=2:Yb%=350:ab%=100:�Pb(Va%,9):�Rb(Va%,8):�Rb(Va%,10):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750)
+g�10:Wb%=3:Yb%=400:ab%=0:�Pb(Va%,10):�Rb(Va%,8):�Rb(Va%,9):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750)
+ 3�14:Wb%=0:�Gd(Va%,13,14,Yb%,Yb%,db%,eb%,1750,1)
+$3�15:Wb%=0:�Hd(Va%,13,15,Yb%,Yb%,cb%,eb%,1750,1)
+(3�18:Wb%=0:�Gd(Va%,17,18,ab%,ab%,db%,eb%,1750,1)
+,3�19:Wb%=0:�Hd(Va%,17,19,ab%,ab%,cb%,eb%,1750,1)
+0�13,17:Wb%=0
+2$�20:�Qb(Va%,20):�Eb%=4�:�La(Va%)
+6�21:�Qb(Va%,21):�s`%�
+<-�Wb%=0�:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10)
+>r�Id(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):�t`%�:Tb%=240
+H�:ȎEb%�
+L$�1:ș262353,Ma%,0,-960,1280,-150
+PM�4:�La(Va%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
+X�
+Z�
+\�
+b�Qa%:ȎEb%�
+f�1,4:ȎGb%�
+j�5,6:�Qb(Qa%,5):ib%=�ib%
+l�8,9:�Qb(Qa%,8):kb%=�kb%
+n&�15:�Gd(Qa%,14,15,mb%,mb%,1,1,0,1)
+p'�16:�Hd(Qa%,14,16,mb%,mb%,25,1,0,1)
+r+�20:�Gd(Qa%,19,20,ob%,ob%,vb%,wb%,0,10)
+t+�21:�Hd(Qa%,19,21,ob%,ob%,ub%,wb%,0,10)
+v+�24:�Gd(Qa%,23,24,qb%,qb%,vb%,wb%,0,10)
+x+�25:�Hd(Qa%,23,25,qb%,qb%,ub%,wb%,0,10)
+z$�26:�Qb(Qa%,26):�Eb%=4�:�La(Qa%)
+~�27:�Qb(Qa%,27):�s`%�
+�#�Pd(mb%,ob%,qb%,ub%,vb%):Ȏhb%�
+�Z�1:jb%=ib%:lb%=kb%:nb%=mb%:pb%=ob%:rb%=qb%:tb%=sb%:�Jd:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc)
+�Z�2:xb%=ib%:yb%=kb%:zb%=mb%:_b%=ob%:`b%=qb%:Ac%=sb%:�Jd:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc)
+��
+��:ȎEb%�
+�$�1:ș262353,Ma%,0,-960,1280,-150
+�M�4:�La(Qa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
+��
+��
+��
+��Sa%:ȎEb%�
+��1,4:ȎGb%�
+��5,6:�Qb(Sa%,5):Ec%=�Ec%
+��8,9:�Qb(Sa%,8):Gc%=�Gc%
+�&�15:�Gd(Sa%,14,15,Ic%,Ic%,1,1,0,1)
+�'�16:�Hd(Sa%,14,16,Ic%,Ic%,25,1,0,1)
+�*�20:�Gd(Sa%,19,20,Kc%,Kc%,Sc%,Tc%,0,1)
+�*�21:�Hd(Sa%,19,21,Kc%,Kc%,Rc%,Tc%,0,1)
+�*�24:�Gd(Sa%,23,24,Mc%,Mc%,Sc%,Tc%,0,1)
+�*�25:�Hd(Sa%,23,25,Mc%,Mc%,Rc%,Tc%,0,1)
+�$�26:�Qb(Sa%,26):�Eb%=4�:�La(Sa%)
+��27:�Qb(Sa%,27):�s`%�
+�#�Rd(Ic%,Kc%,Mc%,Rc%,Sc%):ȎDc%�
+�Z�1:Fc%=Ec%:Hc%=Gc%:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:Qc%=Oc%:�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd)
+�Z�2:Uc%=Ec%:Vc%=Gc%:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:Zc%=Oc%:�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd)
+�]�3:ac%=Ec%:bc%=Gc%:cc%=Ic%:dc%=Kc%:ec%=Mc%:fc%(0)=Oc%:�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd)
+�Z�4:gc%=Ec%:hc%=Gc%:ic%=Ic%:jc%=Kc%:kc%=Mc%:lc%=Oc%:�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd)
+��
+��:ȎEb%�
+�$�1:ș262353,Ma%,0,-960,1280,-150
, M�4:�La(Sa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
,�
,
�
,�
,�Ua%:ȎEb%�
,�2
,�1,4:ȎGb%�
,�4,5:�Qb(Ua%,4):mc%=�mc%
, -�7:qc%=1:�Pb(Ua%,7):�Rb(Ua%,8):�Rb(Ua%,9)
,$-�8:qc%=2:�Pb(Ua%,8):�Rb(Ua%,7):�Rb(Ua%,9)
,(-�9:qc%=3:�Pb(Ua%,9):�Rb(Ua%,7):�Rb(Ua%,8)
,,�11:�oc%�
,0�hb%=1:�Pb(Ua%,11):�Rb(Ua%,12):lb%=kb%:jb%=ib%:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc):$b`%="Stempoff,tempon":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
,<$�zc(Qa%,17,"Scale (�C)"):�Kb:�Jb
,@�
,B��12,13:hb%=2:�Pb(Ua%,12):�Rb(Ua%,11):yb%=kb%:xb%=ib%:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%:h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%)
,P$�zc(Qa%,17,"Scale (Wm-2)"):�oc%�
,TH�Rb(Ua%,16):yb%=�:Hc%=�:hb$="Radiative Forcing (Wm-2)":Dc$=" ":Gc%=�
,Z
�:�Kb:�Jb
,^��16:Dc%=1:�Pb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):Hc%=Gc%:Fc%=Ec%:$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
,j-�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd):�oc%�
,n@�Rb(Ua%,12):yb%=�:Hc%=�:hb$=" ":Dc$="CO2 conc. (ppmv)":kb%=�
,t
�:�Kb:�Jb
,x�17:�oc%�
,|�Dc%=2:�Pb(Ua%,17):�Rb(Ua%,16):�Rb(Ua%,18):�Rb(Ua%,19):Vc%=Gc%:Uc%=Ec%:$a`%="Sch4_off,ch4_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
,�/�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb
,��
,��18:�oc%�
,��Dc%=3:�Pb(Ua%,18):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,19):bc%=Gc%:ac%=Ec%:$a`%="Scfc_off,cfc_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
,�/�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb
,��
,��19:�oc%�
,��Dc%=4:�Pb(Ua%,19):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):hc%=Gc%:gc%=Ec%:$a`%="Sn2o_off,n2o_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%)
,�/�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd):�Kb:�Jb
,��
,��23,24:rc%=1:ȎCd%�
,��0:ad%=157:rb%=0:pb%=Qd%
,��1:ad%=153:rb%=0:pb%=Qd%
,��2:ad%=150:rb%=0:pb%=Qd%
,��3:ad%=0:rb%=0:pb%=Qd%
,���:bd%=24:`b%=0:_b%=uc%:cd%=353:Nc%=0:Lc%=Sd%:dd%=1717:Yc%=0:Xc%=Xd%:ed%(0)=818:ed%(1)=255:ed%(2)=453:ed%(3)=110:ec%=0:dc%=Yd%:fd%=310:kc%=0:jc%=Zd%:gd%=15:hd%=4:id%=1:jd%(0)=3:jd%(1)=1:jd%(2)=1:jd%(3)=1:�Kb:�Jb
,��25,26:rc%=2:ȎCd%�
,��0:ad%=144:rb%=0:pb%=Qd%
,��1:ad%=144:rb%=0:pb%=Qd%
,��2:ad%=144:rb%=0:pb%=Qd%
,��4:ad%=0:rb%=0:pb%=Qd%
,��:bd%=0:`b%=0:_b%=uc%:cd%=280:Nc%=0:Lc%=Sd%:dd%=790:Yc%=0:Xc%=Xd%:ed%()=0:ec%=0:dc%=Yd%:fd%=285:kc%=0:jc%=Zd%:gd%=0:hd%=0:jd%()=0:id%=0:�Kb:�Jb
,���27,32:rc%=3:ad%=0:rb%=130+ad%:pb%=130+ad%+Qd%:bd%=0:`b%=bd%:_b%=bd%+uc%:cd%=0:Nc%=cd%:Lc%=cd%+Sd%:dd%=0:Yc%=dd%:Xc%=dd%+Xd%:ed%()=0:ec%=ed%(0):dc%=ed%(0)+Yd%:fd%=0:kc%=fd%:jc%=fd%+Zd%:gd%=0:hd%=0:jd%()=0:id%=0:�Kb:�Jb
-�28,29:nc%=�nc%:�Qb(Ua%,28)
-
%�30,31:oc%=�oc%:�Qb(Ua%,30):�oc%�
-�yb%=�:Hc%=�:hb%=2:kd%=1:lb%=�:Vc%=�:hc%=�:bc%=�:�Pb(Ua%,12):�Rb(Ua%,11):�Rb(Ua%,16):�Rb(Ua%,17):�Rb(Ua%,18):�Rb(Ua%,19):�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc):$b`%="Srf_off,rf_on":X_%!0=Ma%:X_%!4=h`%:ș262350,,X_%
- �h`%=�gb(Ma%,h`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,b`%):$a`%="Sco2_off,co2_on":X_%!0=Ma%:X_%!4=i`%:ș262350,,X_%:i`%=�gb(Ma%,i`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,a`%):�Kb:Dc$=" "
-,�La(Qa%)
-.?�:yb%=�:Hc%=�:nc%=�:�Pb(Ua%,12):�Pb(Ua%,16):�Rb(Ua%,28):�Kb
-6�
-8
�:�Eb%=4�
-<!ș262353,Ma%,0,-960,1280,-150
-@�
-B�
-H�La%:ȎEb%�
-L�1,4:ȎGb%�
-P�24:�Eb%=4�:�La(La%)
-Tq�25:Qc%=_c%(1):Zc%=_c%(2):lc%=_c%(3):fc%(0)=_c%(4):fc%(1)=_c%(5):fc%(2)=_c%(6):fc%(3)=_c%(7):�Eb%=4�:�La(La%)
-ZAw`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
-^�
-`�
-f�Wa%:ȎEb%�
-j
�1:ȎGb%�
-n4�1,2,4,5,6,7:�Qb(Wa%,Gb%):�ld%>0�:�Rb(Wa%,ld%-1)
-r�ld%=Gb%+1�ld%=0�ld%=Gb%+1
-t�md:�nd%�Hb$=" *"�Hb$=""
-x��N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):ș262353,A`%(N%),0,-420,640,0:�
-��
-�
�4:ȎGb%�
-���0:�Qb(Wa%,0):xd%=�:�Ib(aa%):yd%()=zd%():_d%()=`d%():Ae%()=Be%():Ce%()=De%():Ee%()=Fe%():Ge%()=He%():Ie%=Je%:Ke%()=Le%():�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%))
-�_�fb(aa%,30,Ie%):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,3+5*N%)��Rb(aa%,3+5*N%):�
-��Qb(Wa%,0)
-���1:�Qb(Wa%,1):�Ib(ha%):Me%()=Ne%():Oe%()=Pe%():Qe%()=Re%():Se%()=Te%():Ue%()=Ve%():We%=Xe%:Ye%()=Ze%():�N%=0�5:�ae(N%):�:�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%))
-�3�fb(ha%,26,We%):�fb(ha%,30,Ye%(We%)):�Qb(Wa%,1)
-���2:�Qb(Wa%,2):�Ib(ba%):be%=ce%:de%()=ee%():fe%()=ge%():he%()=ie%():je%()=ke%():le%()=me%():�fb(ba%,23,be%):�fb(ba%,27,fe%(be%)):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�Qb(Wa%,2)
-���3:�Qb(Wa%,3):�Ib(fa%):ne%()=oe%():pe%()=qe%():re%()=se%():te%()=ue%():ve%()=we%():xe%=ye%:ze%()=_e%():�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%))
-�3�fb(fa%,25,xe%):�fb(fa%,29,ze%(xe%)):�Qb(Wa%,3)
-�4:�Qb(Wa%,4):�Ib(ca%):`e%()=Af%():Bf%()=Cf%():Df%=Ef%:Ff%()=Gf%():�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,12,Df%):�fb(ca%,16,Ff%(Df%)):�Qb(Wa%,4)
-Ҟ�5:�Qb(Wa%,5):�Ib(ea%):Hf%()=If%():Jf%()=Kf%():Lf%=Mf%:Nf%()=Of%():�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,12,Lf%):�fb(ea%,16,Nf%(Lf%)):�Qb(Wa%,5)
-��6:�Qb(Wa%,6):�Ib(ga%):Pf%()=Qf%():Rf%()=Sf%():Tf%()=Uf%():Vf%=Wf%:Xf%()=Yf%():�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,21,Vf%):�fb(ga%,25,Nf%(Vf%)):�Qb(Wa%,6)
-��
-��:ȎEb%�
-��1,4:ȎGb%�
-�-�9,10,11,12,13,14,15:�nd%�Hb$=" *"�Hb$=""
-�N�Qb(Wa%,Gb%):�Ib(A`%(Gb%-8)):�wd(A`%(Gb%-8),B`%(Gb%-8),B`$(Gb%-8,ld%)+Hb$)
. *�17:�Qb(Wa%,17):�N%=1�7:�La(A`%(N%)):�
.<�18,k`%:Zf%=�Zf%:X_%!0=Wa%:X_%!4=k`%:ș262350,,X_%:�Zf%�
.e$c`%="Sabs_off,abs_on":k`%=�gb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%)
.g�:$c`%="Sper_off,per_on":k`%=�gb(Wa%,k`%,X_%!8,X_%!12,X_%!16-X_%!8,X_%!20-X_%!12,&17004113,Y`%,c`%)
.�
.7�8:�Qb(Wa%,8):�Ib(Ya%):af%=bf%:cf%=5:�fb(Ya%,4,af%)
."-�19:df%=�df%:�df%��Pb(Wa%,19)��Rb(Wa%,19)
.(Q�20:�Qb(Wa%,20):�Ib(Za%):ef%=`c%:ff%=Ad%:gf%=10:�fb(Za%,3,ef%):�fb(Za%,8,ff%)
.0-�16:hf%=�hf%:�hf%��Pb(Wa%,16)��Rb(Wa%,16)
.6e�21:�Pb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23):`c%=100:Ad%=0:ef%=100:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%)
.>e�22:�Pb(Wa%,22):�Rb(Wa%,21):�Rb(Wa%,23):`c%=250:Ad%=0:ef%=250:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%)
.Fg�23:�Pb(Wa%,23):�Rb(Wa%,21):�Rb(Wa%,22):`c%=1000:Ad%=0:ef%=1000:ff%=0:�fb(Za%,3,ef%):�fb(Za%,8,ff%)
.N>�26:�Qb(Wa%,26):�Ib(Ma%):�Eb%=4�:�La(Wa%):�xa(H`%,2):``%=�
.T��27:�Qb(Wa%,27):�Ib(ia%):if%()=jf%():kf%()=lf%():mf%()=nf%():of%=pf%:�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%)):�fb(ia%,21,of%):�N%=1�6:�if%(N%)��Pb(ia%,2*N%)��Rb(ia%,2*N%):�N%
.`��28,29,30,31:�Qb(Wa%,Gb%):�qf:�rf(Gb%-28):nd%=�:�sf:�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�wf:�xf:�yf:�zf:�_f:�`f:�md
.z�24:�Ag%��r`%��s`%�
.~�ș263872:�Pb(Wa%,24):Ag%=�:�M_:�N_:�O_:�P_:�Q_:�R_:�S_:�T_:nd%=�:�sf:ș263873:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:�Rb(Wa%,24):Ag%=�
.��
.��25:�ld%>0�:�Rb(Wa%,ld%-1)
.���Qb(Wa%,25):ld%=0:�md:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):ș262353,A`%(N%),0,-420,640,0:�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):�
.��:ȎGb%�
.�<�k`%,21,22,23:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�Zf%�
.���od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):�
.��
.��:ȎGb%�
.���16,19,21,22,23,k`%:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:�(Zf%�(Gb%=21�Gb%=22�Gb%=23))�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0
.��
.��
.��Ya%:ȎEb%�
.��1,4:ȎGb%�
.�(�5:�Gd(Ya%,4,5,af%,af%,1995,cf%,0,1)
.�(�6:�Hd(Ya%,4,6,af%,af%,2150,cf%,0,1)
.��7:�Eb%=4�:�La(Ya%)
.��8:�Qg:�Rg�
.�<�Sg:�md:�od(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):�Eb%=4�:�La(Ya%)
.�s�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0
.��
.��
.��
.��Za%:ȎEb%�
.��1,4:ȎGb%�
.�)�5:�Gd(Za%,3,5,ef%,ef%,-1000,gf%,0,1)
.�(�6:�Hd(Za%,3,6,ef%,ef%,5000,gf%,0,1)
.�+�10:�Gd(Za%,8,10,ff%,ff%,-1000,gf%,0,1)
/ *�11:�Hd(Za%,8,11,ff%,ff%,5000,gf%,0,1)
/�13:�Eb%=4�:�La(Za%)
/�14:�Zg:�ag�
/
��Rb(Wa%,21):�Rb(Wa%,22):�Rb(Wa%,23):�bg:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�Zf%�:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):�
/�Eb%=4�:�La(Za%)
/z�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:�Zf%�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0
/ �
/"�
/$�
/*�aa%:ȎEb%�
/.�1,4:�Ie%>0�
/2
ȎGb%�
/4-�6:�Gd(aa%,5,6,yd%(Ie%),yd%(Ie%),0,1,0,1)
/6/�7:�Hd(aa%,5,7,yd%(Ie%),yd%(Ie%),100,1,0,1)
/80�11:�Gd(aa%,10,11,_d%(Ie%),_d%(Ie%),0,1,0,1)
/:2�12:�Hd(aa%,10,12,_d%(Ie%),_d%(Ie%),100,1,0,1)
/<0�16:�Gd(aa%,15,16,Ae%(Ie%),Ae%(Ie%),0,1,0,1)
/>2�17:�Hd(aa%,15,17,Ae%(Ie%),Ae%(Ie%),100,1,0,1)
/@0�21:�Gd(aa%,20,21,Ce%(Ie%),Ce%(Ie%),0,1,0,1)
/B2�22:�Hd(aa%,20,22,Ce%(Ie%),Ce%(Ie%),100,1,0,1)
/D0�26:�Gd(aa%,25,26,Ee%(Ie%),Ee%(Ie%),0,1,0,1)
/F2�27:�Hd(aa%,25,27,Ee%(Ie%),Ee%(Ie%),100,1,0,1)
/H0�42:�Gd(aa%,41,42,Ke%(Ie%),Ke%(Ie%),1,5,0,1)
/J2�43:�Hd(aa%,41,43,Ke%(Ie%),Ke%(Ie%),cg%,5,0,1)
/LC�8,13,18,23:�Qb(aa%,Gb%):Ge%(Ie%,(Gb%-3)/5)=�Ge%(Ie%,(Gb%-3)/5)
/R�
/T�:ȎGb%�
/X�31:�Ie%>0�:�xd
/\�dg�Ie%=0�
/^��Gd(aa%,30,31,Ie%,Ie%,0,1,0,1):�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%)):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,5*N%+3)��Rb(aa%,5*N%+3)
/f�
/h�
/j�32:�Ie%>0�:�xd
/n�dg�Ie%=0�
/p��Hd(aa%,30,32,Ie%,Ie%,5,1,0,1):�fb(aa%,5,yd%(Ie%)):�fb(aa%,10,_d%(Ie%)):�fb(aa%,15,Ae%(Ie%)):�fb(aa%,20,Ce%(Ie%)):�fb(aa%,25,Ee%(Ie%)):�fb(aa%,41,Ke%(Ie%)):�N%=1�4:�Ge%(Ie%,N%)��Pb(aa%,5*N%+3)��Rb(aa%,5*N%+3)
/x�
/z�
/|�35:�Eb%=4�:�La(aa%)
/~�36,37:�Ie%>0�:�xd
/� �dg�
/��Gb%=37�Eb%=4�:�La(aa%)
/��nd%=�:�sf:�eg(Le%()):�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�fg:�wf:�N%=0�5:�ae(N%):�:Re%()=Qe%():�fb(ha%,8,Pe%(We%)):�fb(ha%,12,Re%(We%)):ș262353,aa%,0,-344,706,0
/��
/��
/��
/��ba%:ȎEb%�
/��1,4:�be%>0�
/�
ȎGb%�
/�0�5:�Gd(ba%,3,5,de%(be%),de%(be%),-100,1,0,1)
/�.�6:�Hd(ba%,3,6,de%(be%),de%(be%),10,1,0,1)
/�/�10:�Gd(ba%,8,10,he%(be%),he%(be%),0,1,0,1)
/�1�11:�Hd(ba%,8,11,he%(be%),he%(be%),100,1,0,1)
/�0�15:�Gd(ba%,13,15,je%(be%),je%(be%),0,1,0,1)
/�2�16:�Hd(ba%,13,16,je%(be%),je%(be%),100,1,0,1)
/�0�20:�Gd(ba%,18,20,le%(be%),le%(be%),0,1,0,1)
/�2�21:�Hd(ba%,18,21,le%(be%),le%(be%),100,1,0,1)
/�0�29:�Gd(ba%,27,29,fe%(be%),fe%(be%),1,5,0,1)
/�2�30:�Hd(ba%,27,30,fe%(be%),fe%(be%),cg%,5,0,1)
/��
/��:ȎGb%�
/��24:�be%>0�:�gg
/��hg�be%=0�
/̉�Gd(ba%,23,24,be%,be%,0,1,0,1):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�fb(ba%,27,fe%(be%))
/��
/��25:�be%>0�:�gg
/��hg�be%=0�
/ډ�Hd(ba%,23,25,be%,be%,5,1,0,1):�fb(ba%,3,de%(be%)):�fb(ba%,8,he%(be%)):�fb(ba%,13,je%(be%)):�fb(ba%,18,le%(be%)):�fb(ba%,27,fe%(be%))
/��
/��32:�Eb%=4�:�La(ba%)
/��33,34:�be%>0�:�gg
/� �hg�
/��Gb%=34�Eb%=4�:�La(ba%)
/�6nd%=�:�sf:�eg(ge%()):�xf:ș262353,ba%,0,-300,798,0
/��
/��
/��
/��fa%:ȎEb%�
0 �1,4:�xe%>0�
0
ȎGb%�
0-�6:�Gd(fa%,4,6,ne%(xe%),ne%(xe%),0,1,0,1)
0/�7:�Hd(fa%,4,7,ne%(xe%),ne%(xe%),100,1,0,1)
0
/�11:�Gd(fa%,9,11,pe%(xe%),pe%(xe%),0,1,0,1)
01�12:�Hd(fa%,9,12,pe%(xe%),pe%(xe%),100,1,0,1)
00�16:�Gd(fa%,14,16,re%(xe%),re%(xe%),0,1,0,1)
02�17:�Hd(fa%,14,17,re%(xe%),re%(xe%),100,1,0,1)
00�22:�Gd(fa%,20,22,te%(xe%),te%(xe%),0,1,0,1)
02�23:�Hd(fa%,20,23,te%(xe%),te%(xe%),100,1,0,1)
00�31:�Gd(fa%,29,31,ze%(xe%),ze%(xe%),1,5,0,1)
02�32:�Hd(fa%,29,32,ze%(xe%),ze%(xe%),cg%,5,0,1)
01�41:�Gd(fa%,37,41,ve%(xe%),ve%(xe%),0,10,0,1)
04�42:�Hd(fa%,37,42,ve%(xe%),ve%(xe%),9990,10,0,1)
0�
0 �:ȎGb%�
0$�26:�xe%>0�:�ig
0(�jg�xe%=0�
0*��Gd(fa%,25,26,xe%,xe%,0,1,0,1):�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%)):�fb(fa%,29,ze%(xe%))
0.�
00�27:�xe%>0�:�ig
04�jg�xe%=0�
06��Hd(fa%,25,27,xe%,xe%,5,1,0,1):�fb(fa%,4,ne%(xe%)):�fb(fa%,9,pe%(xe%)):�fb(fa%,14,re%(xe%)):�fb(fa%,20,te%(xe%)):�fb(fa%,37,ve%(xe%)):�fb(fa%,29,ze%(xe%))
0:�
0<�34:�Eb%=4�:�La(fa%)
0>�35:�xe%>0�:�ig
0B�jg�xe%=0�
0D�Eb%=4�:�La(fa%)
0Fnd%=�:�sf:�eg(_e%()):�yf
0J�
0L�
0N�
0T�ca%:ȎEb%�
0X�1,4:�Df%>0�
0\
ȎGb%�
0^-�4:�Gd(ca%,3,4,`e%(Df%),`e%(Df%),0,1,0,1)
0`/�5:�Hd(ca%,3,5,`e%(Df%),`e%(Df%),999,1,0,1)
0b-�9:�Gd(ca%,8,9,Bf%(Df%),Bf%(Df%),0,1,0,1)
0d1�10:�Hd(ca%,8,10,Bf%(Df%),Bf%(Df%),999,1,0,1)
0f0�18:�Gd(ca%,16,18,Ff%(Df%),Ff%(Df%),1,5,0,1)
0h2�19:�Hd(ca%,16,19,Ff%(Df%),Ff%(Df%),cg%,5,0,1)
0j�
0l�:ȎGb%�
0p�13:�Df%>0�:�kg
0t�lg�Df%=0�
0v_�Gd(ca%,12,13,Df%,Df%,0,1,0,1):�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,16,Ff%(Df%))
0z�
0|�14:�Df%>0�:�kg
0��lg�Df%=0�
0�_�Hd(ca%,12,14,Df%,Df%,5,1,0,1):�fb(ca%,3,`e%(Df%)):�fb(ca%,8,Bf%(Df%)):�fb(ca%,16,Ff%(Df%))
0��
0��21:�Eb%=4�:�La(ca%)
0��22:�Df%>0�:�kg
0� �lg�
0��Eb%=4�:�La(ca%)
0�nd%=�:�sf:�eg(Gf%()):�zf
0��
0��
0��
0��ea%:ȎEb%�
0��1,4:�Lf%>0�
0�
ȎGb%�
0�.�4:�Gd(ea%,3,4,Hf%(Lf%),Hf%(Lf%),0,50,0,1)
0�2�5:�Hd(ea%,3,5,Hf%(Lf%),Hf%(Lf%),50000,50,0,1)
0�-�9:�Gd(ea%,8,9,Jf%(Lf%),Jf%(Lf%),0,1,0,1)
0�1�10:�Hd(ea%,8,10,Jf%(Lf%),Jf%(Lf%),999,1,0,1)
0�0�18:�Gd(ea%,16,18,Nf%(Lf%),Nf%(Lf%),1,5,0,1)
0�2�19:�Hd(ea%,16,19,Nf%(Lf%),Nf%(Lf%),cg%,5,0,1)
0��
0��:ȎGb%�
0��13:�Lf%>0�:�x`
0��mg�Lf%=0�
0�_�Gd(ea%,12,13,Lf%,Lf%,0,1,0,1):�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,16,Nf%(Lf%))
0��
0��14:�Lf%>0�:�x`
0��mg�Lf%=0�
0�_�Hd(ea%,12,14,Lf%,Lf%,5,1,0,1):�fb(ea%,3,Hf%(Lf%)):�fb(ea%,8,Jf%(Lf%)):�fb(ea%,16,Nf%(Lf%))
0��
0��21:�Eb%=4�:�La(ea%)
0��22:�Lf%>0�:�x`
0� �mg�
0��Eb%=4�:�La(ea%)
0�nd%=�:�sf:�eg(Of%()):�_f
0��
0��
0��
0��ga%:ȎEb%�
0��1,4:�Vf%>0�
0�
ȎGb%�
0�-�6:�Gd(ga%,4,6,Pf%(Vf%),Pf%(Vf%),0,1,0,1)
0�/�7:�Hd(ga%,4,7,Pf%(Vf%),Pf%(Vf%),999,1,0,1)
0�0�12:�Gd(ga%,10,12,Rf%(Vf%),Rf%(Vf%),0,1,0,1)
0�2�13:�Hd(ga%,10,13,Rf%(Vf%),Rf%(Vf%),999,1,0,1)
1 0�18:�Gd(ga%,16,18,Tf%(Vf%),Tf%(Vf%),0,1,0,1)
12�19:�Hd(ga%,16,19,Tf%(Vf%),Tf%(Vf%),999,1,0,1)
10�27:�Gd(ga%,25,27,Xf%(Vf%),Xf%(Vf%),1,5,0,1)
12�28:�Hd(ga%,25,28,Xf%(Vf%),Xf%(Vf%),cg%,5,0,1)
1�
1
�:ȎGb%�
1�22:�Vf%>0�:�ng
1�og�Vf%=0�
1u�Gd(ga%,21,22,Vf%,Vf%,0,1,0,1):�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,25,Xf%(Vf%))
1�
1�23:�Vf%>0�:�ng
1�og�Vf%=0�
1 u�Hd(ga%,21,23,Vf%,Vf%,5,1,0,1):�fb(ga%,4,Pf%(Vf%)):�fb(ga%,10,Rf%(Vf%)):�fb(ga%,16,Tf%(Vf%)):�fb(ga%,25,Xf%(Vf%))
1$�
1&�30:�Eb%=4�:�La(ga%)
1(�31:�Vf%>0�:�ng
1,�og�Vf%=0�
1.�Eb%=4�:�La(ga%)
10nd%=�:�sf:�eg(Yf%()):�`f
14�
16�
18�
1>�ha%:ȎEb%�
1B�1,4:�We%>0�
1F
ȎGb%�
1H/�4:�Gd(ha%,2,4,Me%(We%),Me%(We%),0,100,0,1)
1J4�5:�Hd(ha%,2,5,Me%(We%),Me%(We%),999900,100,0,1)
1L0�17:�Gd(ha%,15,17,Se%(We%),Se%(We%),0,1,0,1)
1N2�18:�Hd(ha%,15,18,Se%(We%),Se%(We%),100,1,0,1)
1P2�23:�Gd(ha%,21,23,Ue%(We%),Ue%(We%),0,100,0,1)
1R7�24:�Hd(ha%,21,24,Ue%(We%),Ue%(We%),999900,100,0,1)
1T0�32:�Gd(ha%,30,32,Ye%(We%),Ye%(We%),1,5,0,1)
1V2�33:�Hd(ha%,30,33,Ye%(We%),Ye%(We%),cg%,5,0,1)
1X�
1Z�:ȎGb%�
1^,�4,5,23,24:�ae(We%):�fb(ha%,12,Qe%(We%))
1b�27:�We%>0�:�pg
1f�qg�We%=0�
1h��Gd(ha%,26,27,We%,We%,0,1,0,1):�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%)):�fb(ha%,30,Ye%(We%))
1n�
1p�28:�We%>0�:�pg
1t�qg�We%=0�
1v��Hd(ha%,26,28,We%,We%,5,1,0,1):�fb(ha%,2,Me%(We%)):�fb(ha%,8,Oe%(We%)):�fb(ha%,12,Qe%(We%)):�fb(ha%,15,Se%(We%)):�fb(ha%,21,Ue%(We%)):�fb(ha%,30,Ye%(We%))
1|�
1~�35:�Eb%=4�:�La(ha%)
1��36:�We%>0�:�pg
1� �qg�
1��Eb%=4�:�La(ha%)
1�nd%=�:�sf:�eg(Ze%()):�wf
1��
1��
1��
1��ia%:ȎEb%�
1��1,4:ȎGb%�
1�6�2,4,6,8,10,12:if%(Gb%/2)=�if%(Gb%/2):�Qb(ia%,Gb%)
1�@�3,5,7,9,11,13:if%((Gb%-1)/2)=�if%((Gb%-1)/2):�Qb(ia%,Gb%-1)
1��:�of%>-1�
1�
ȎGb%�
1�3�18:�Gd(ia%,16,18,kf%(of%),kf%(of%),-100,1,0,1)
1�1�19:�Hd(ia%,16,19,kf%(of%),kf%(of%),10,1,0,1)
1�0�27:�Gd(ia%,25,27,mf%(of%),mf%(of%),1,5,0,1)
1�2�28:�Hd(ia%,25,28,mf%(of%),mf%(of%),cg%,5,0,1)
1��
1��:ȎGb%�
1��22:�of%>-1�:�rg
1� �sg�
1�L�Gd(ia%,21,22,of%,of%,0,1,0,1):�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%))
1��
1��23:�of%>-1�:�rg
1� �sg�
1�L�Hd(ia%,21,23,of%,of%,5,1,0,1):�fb(ia%,16,kf%(of%)):�fb(ia%,25,mf%(of%))
1��
1��30:�Eb%=4�:�La(ia%)
1��31,32:�of%>-1�:�rg
1� �sg�
1��Eb%=4�Gb%=32�:�La(ia%)
1�Jș263872:�tg:�eg(nf%()):�(jf%(1)�jf%(2)�jf%(3)�jf%(4)�jf%(5)�jf%(6))�
1��M_:�N_:�O_:�P_:�Q_:�R_
1�>�:�S_:�T_:ș263873:�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�
1��
1��
1��
1�<�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȎEb%�
1��1,4:Ea%=Fb%
1��
2�ja%:ȎEb%�
2�64:ȎGb%�
2)�2:T`%=&AFF:�ug(ja%,1,P`%):�vg(ja%,2)
2�
2�1,4:ȎGb%�
2�0:�Ed(ja%,1,P`%):�Fd
2�
2�
2�na%:ȎEb%�
2"�64:ȎGb%�
2&)�2:T`%=&077:�ug(na%,1,Q`%):�vg(na%,2)
2(�
2*�1,4:ȎGb%�
2.�0:�Ed(na%,1,Q`%):�Fd
20�
22�
28�la%:ȎEb%�
2<�64:ȎGb%�
2@)�2:T`%=&FFF:�ug(la%,1,S`%):�vg(la%,2)
2B�
2D�1,4:ȎGb%�
2H�0:�Ed(la%,1,S`%):�Fd
2J�
2L�
2N�:ȎEb%�
2V�2:Ea%=Fb%:ȎFb%�
2\"�-2:ș262356,,F`%,X_%!0-64,228
2`�Qa%:ȎGb%�
2d<�12:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,sb%):�xg(G`%,0,0,0)
2j�
2l�Sa%:ȎGb%�
2p<�12:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,Oc%):�xg(G`%,0,0,0)
2v�
2x�La%:ȎGb%�
2|_�4,7,10,13,16,19,22:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_c%((Gb%-1)/3)):�xg(G`%,0,0,0):yg%=Gb%
2��
2�`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:ȎFb%�
2�K�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):�zg(I`%,0):�qa(I`%,1)
2�2�fa%,ca%,ea%,ga%,ha%,ia%:�qa(I`%,0):�zg(I`%,1)
2�"�aa%,ba%:�qa(I`%,0):�zg(I`%,1)
2�$�Ma%:�s`%��zg(I`%,0)��qa(I`%,0)
2��zg(I`%,1)
2�2�:�xg(H`%,-64,0,-1):�``%��wa(H`%,2)��xa(H`%,2)
2��da%:ȎGb%�
2�:�3:�wg%=0�3:�xa(L`%,wg%):�:�wa(L`%,Cd%):�xg(L`%,0,0,0)
2��
2��
2��:�
2�M��Bb:_g%=!X_%:`g%=X_%!4:ș262351,,X_%:Ah%=!X_%:Bh%=X_%!4:Eb%=X_%!8:Ȏza%�
2��-2:Ȏ_g%�
2��1:�s`%�
2�2r`%=�r`%:�Qb(Ma%,2):�r`%��xa(F`%,1)��wa(F`%,1)
2�&�Eb%=1�:ș262356,,F`%,X_%!0-64,228
2��
2��2:U_%=�:�W_
2��
2��Qa%:Ȏ_g%�
2��0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(Qa%,11,_g%):sb%=_g%:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh%
2��
2��Sa%:Ȏ_g%�
2��0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(Sa%,11,_g%):Oc%=_g%:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh%
2��
2��La%:Ȏ_g%�
3=�0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:�Cc(La%,yg%-1,_g%)
3�:Ȏyg%�
3
*�4,7,10,13,16,19,22:_c%((yg%-1)/3)=_g%
3I�:�wg%=0�15:�xa(G`%,wg%):�:�wa(G`%,_g%):�Eb%=1�:ș262356,,G`%,Ch%,Dh%
3`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7),fa%,ca%,ea%,ga%,ha%,ia%,aa%,ba%,Ma%:Ȏ_g%�
3�2:``%=�``%:�``%�
3�wa(H`%,2):�Ib(Wa%)
3 �:�xa(H`%,2):�La(Wa%)
3$#�:�Eb%=1�:ș262356,,H`%,Ch%,Dh%
3(�
3*�da%:Ȏ_g%�
3.�0,1,2,3:�s`%�
32�Cd%=_g%:�wg%=0�3:�xa(L`%,wg%):�:�wa(L`%,Cd%):�zc(da%,2,Bd$(Cd%)):�J_:ș262353,da%,192,-380,588,-132:ș262353,Ma%,0,-960,1280,-150
3>#�:�Eb%=1�:ș262356,,L`%,Ch%,Dh%
3B�
3D�:�
3J(��Ab(Fb%,Gb%,Eh%):�Fh%,Gh%,Hh:ȎFb%�
3X
3\�Ma%:ȎEh%�
3`8�&183:Ea%=Ma%:�Ib(ja%):ș262354,ja%,1,0,0,-1,�($P`%)
3j�
3p�Va%:ȎEh%�
3t�&18E:Wb%=0:ȎGb%�
3x=�13:�Ih(Va%,13,Yb%,ab%,cb%,db%,17,Va%,�Jh(Va%,17),1,1750)
3z2�17:�Kh(Va%,17,Yb%,ab%,cb%,db%,17,-1,4,1,1750)
3|�
3~�&18F:Wb%=0:ȎGb%�
3�2�13:�Ih(Va%,13,Yb%,ab%,cb%,db%,13,-1,4,1,1750)
3�=�17:�Kh(Va%,17,Yb%,ab%,cb%,db%,13,Va%,�Jh(Va%,13),1,1750)
3��
3��13:�s`%�
3�-�Wb%=0�:�Rb(Va%,8):�Rb(Va%,9):�Rb(Va%,10)
3�r�Id(Yb%,ab%,400,0):Vb%=Ub%:Xb%=Wb%:Zb%=Yb%:bb%=ab%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):�t`%�:Tb%=240
3�L�:�La(Va%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
3��&1B:�La(Va%)
3��
3��Qa%:ȎEh%�
3��&18E:ȎGb%�
3�5�14:�Ih(Qa%,14,mb%,0,25,0,19,Qa%,�Jh(Qa%,19),1,0)
3�;�19:�Ih(Qa%,19,ob%,qb%,ub%,vb%,23,Qa%,�Jh(Qa%,23),10,0)
3�1�23:�Kh(Qa%,23,ob%,qb%,ub%,vb%,23,-1,-1,10,0)
3��
3��&18F:ȎGb%�
3�*�14:�Ih(Qa%,14,mb%,0,25,0,14,-1,2,1,0)
3�;�19:�Ih(Qa%,19,ob%,qb%,ub%,vb%,14,Qa%,�Jh(Qa%,14),10,0)
3�;�23:�Kh(Qa%,23,ob%,qb%,ub%,vb%,19,Qa%,�Jh(Qa%,19),10,0)
3��
3��13:�s`%�
3�#�Pd(mb%,ob%,qb%,ub%,vb%):Ȏhb%�
3�B�1:nb%=mb%:pb%=ob%:rb%=qb%:�Jd:�tc(pb%,rb%,Qd%,vc%,wc%,xc%,yc)
3�B�2:zb%=mb%:_b%=ob%:`b%=qb%:�Jd:�tc(_b%,`b%,uc%,vc%,wc%,xc%,yc)
3��
3�L�:�La(Qa%):w`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
3��&1B:�Lh(Qa%)
3��
3��Sa%:ȎEh%�
3��&18E:ȎGb%�
3�5�14:�Ih(Sa%,14,Ic%,0,25,0,19,Sa%,�Jh(Sa%,19),1,0)
3�:�19:�Ih(Sa%,19,Kc%,Mc%,Rc%,Sc%,23,Sa%,�Jh(Sa%,23),1,0)
3�0�23:�Kh(Sa%,23,Kc%,Mc%,Rc%,Sc%,23,-1,-1,1,0)
3��
3��&18F:ȎGb%�
4 *�14:�Ih(Sa%,14,Ic%,0,25,0,14,-1,2,1,0)
4:�19:�Ih(Sa%,19,Kc%,Mc%,Rc%,Sc%,14,Sa%,�Jh(Sa%,14),1,0)
4:�23:�Kh(Sa%,23,Kc%,Mc%,Rc%,Sc%,19,Sa%,�Jh(Sa%,19),1,0)
4�
4�13:�s`%�
4#�Rd(Ic%,Kc%,Mc%,Rc%,Sc%):ȎDc%�
4B�1:Jc%=Ic%:Lc%=Kc%:Nc%=Mc%:�Jd:�tc(Lc%,Nc%,Sd%,Td%,Ud%,Vd%,Wd)
4B�2:Wc%=Ic%:Xc%=Kc%:Yc%=Mc%:�Jd:�tc(Xc%,Yc%,Xd%,Td%,Ud%,Vd%,Wd)
4B�3:cc%=Ic%:dc%=Kc%:ec%=Mc%:�Jd:�tc(dc%,ec%,Yd%,Td%,Ud%,Vd%,Wd)
4"B�4:ic%=Ic%:jc%=Kc%:kc%=Mc%:�Jd:�tc(jc%,kc%,Zd%,Td%,Ud%,Vd%,Wd)
4(�
4*,�:�La(Sa%):ș262353,Ma%,0,-960,1280,-150
40�&1B:�La(Sa%)
44�
4:<�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȎEh%�
4>8�&183:Ea%=Fb%:�Ib(ja%):ș262354,ja%,1,0,0,-1,�($P`%)
4H�
4N�Ya%:ȎEh%�
4R7�&18E,&18F:�Ih(Ya%,4,Ic%,1995,2150,1990,4,-1,4,1,0)
4T�13:�Qg:�Rg�
4Z��La(Ya%):�Sg:�md:�od(bf%,Tg%,Ug%,Vg%,Wg%,Xg%,Yg):�N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:ș262353,aa%,0,-344,706,0
4h�
4j�&1B:�La(Ya%)
4l�
4r�Za%:ȎEh%�
4v�&18E:ȎGb%�
4z9�3:�Ih(Za%,3,ef%,ff%,5000,-1000,8,Za%,�Jh(Za%,8),1,0)
4|/�8:�Kh(Za%,8,ef%,ff%,5000,-1000,8,-1,1,1,0)
4~�
4��&18F:ȎGb%�
4�/�3:�Ih(Za%,3,ef%,ff%,5000,-1000,3,-1,1,1,0)
4�9�8:�Kh(Za%,8,ef%,ff%,5000,-1000,3,Za%,�Jh(Za%,3),1,0)
4��
4��13:�Zg:�ag�
4���La(Za%):�bg:�md:�od(`c%,Ad%,Bg%,sd%,td%,ud%,vd):�od(Cg%,Dg%,Eg%,Fg%,Gg%,Hg%,Ig):�od(Jg%,Kg%,Lg%,Mg%,Ng%,Og%,Pg):�Zf%�:�N%=1�7:�od(pd%(N%),qd%(N%),rd%(N%),sd%(N%),td%(N%),ud%(N%),vd(N%)):�
4���N%=1�7:ș262353,A`%(N%),0,-420,640,0:�:ș262353,ba%,0,-300,798,0:ș262353,ba%,0,-300,798,0:�Zf%�:xd%=�:z`%=�:ua%=aa%:ș262353,aa%,0,-344,706,0
4��
4��&1B:�La(Za%)
4��
4��aa%:ȎEh%�
4� �&183
4��&18E:ȎGb%�
4�:�5:�Ih(aa%,5,yd%(Ie%),-1,100,0,10,aa%,�Jh(aa%,10),1,0)
4�<�10:�Ih(aa%,10,_d%(Ie%),-1,100,0,15,aa%,�Jh(aa%,15),1,0)
4�<�15:�Ih(aa%,15,Ae%(Ie%),-1,100,0,20,aa%,�Jh(aa%,20),1,0)
4�<�20:�Ih(aa%,20,Ce%(Ie%),-1,100,0,25,aa%,�Jh(aa%,25),1,0)
4�<�25:�Ih(aa%,25,Ee%(Ie%),-1,100,0,30,aa%,�Jh(aa%,30),1,0)
4�5�30:�Ih(aa%,30,Ie%,-1,5,0,41,aa%,�Jh(aa%,41),1,0)
4�b�41:�Ih(aa%,41,Ke%(Ie%),0,cg%,0,41,-1,1,1,0):�Ie%=0�:�Ih(aa%,41,Ke%(Ie%),-1,cg%,0,41,-1,1,1,0)
4��
4��&18F:ȎGb%�
4�.�5:�Ih(aa%,5,yd%(Ie%),-1,100,0,5,-1,1,1,0)
4�:�10:�Ih(aa%,10,_d%(Ie%),-1,100,0,5,aa%,�Jh(aa%,5),1,0)
4�<�15:�Ih(aa%,15,Ae%(Ie%),-1,100,0,10,aa%,�Jh(aa%,10),1,0)
4�<�20:�Ih(aa%,20,Ce%(Ie%),-1,100,0,15,aa%,�Jh(aa%,15),1,0)
4�<�25:�Ih(aa%,25,Ee%(Ie%),-1,100,0,20,aa%,�Jh(aa%,20),1,0)
4�5�30:�Ih(aa%,30,Ie%,-1,5,0,25,aa%,�Jh(aa%,25),1,0)
4�x�41:�Ih(aa%,41,Ke%(Ie%),0,cg%,0,30,aa%,�Jh(aa%,30),1,0):�Ie%=0�:�Ih(aa%,41,Ke%(Ie%),-1,cg%,0,30,aa%,�Jh(aa%,30),1,0)
4��
4��13:�Ie%>0�:�xd
4� �dg�
4�j�La(aa%):nd%=�:�sf:�eg(Le%()):�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):ș262353,aa%,0,-344,706,0
4��
4��&1B:�La(aa%)
5 �
5�ha%:ȎEh%�
5
�&18E:ȎGb%�
5=�2:�Ih(ha%,2,Me%(We%),-1,999900,0,15,ha%,�Jh(ha%,15),1,0)
5<�15:�Ih(ha%,15,Se%(We%),-1,100,0,21,ha%,�Jh(ha%,21),1,0)
5?�21:�Ih(ha%,21,Ue%(We%),-1,999900,0,26,ha%,�Jh(ha%,26),1,0)
55�26:�Ih(ha%,26,We%,-1,5,0,30,ha%,�Jh(ha%,30),1,0)
5b�30:�Ih(ha%,30,Ye%(We%),0,cg%,0,30,-1,1,1,0):�We%=0�:�Ih(ha%,30,Ye%(We%),-1,cg%,0,30,-1,1,1,0)
5�
5�&18F:ȎGb%�
5 1�2:�Ih(ha%,2,Me%(We%),-1,999900,0,2,-1,1,1,0)
5":�15:�Ih(ha%,15,Se%(We%),-1,100,0,2,ha%,�Jh(ha%,2),1,0)
5$?�21:�Ih(ha%,21,Ue%(We%),-1,999900,0,15,ha%,�Jh(ha%,15),1,0)
5&5�26:�Ih(ha%,26,We%,-1,5,0,21,ha%,�Jh(ha%,21),1,0)
5(x�30:�Ih(ha%,30,Ye%(We%),0,cg%,0,26,ha%,�Jh(ha%,26),1,0):�We%=0�:�Ih(ha%,30,Ye%(We%),-1,cg%,0,26,ha%,�Jh(ha%,26),1,0)
5,�
5.�13:�We%>0�:�pg
52 �qg�
54L�La(ha%):nd%=�:�sf:�N%=0�5:�ae(N%):�:�fb(ha%,12,Qe%(We%)):�eg(Ze%()):�wf
5>�
5@�&1B:�La(ha%)
5B�
5H�ba%:ȎEh%�
5L �&183
5V�&18E:ȎGb%�
5Z<�3:�Ih(ba%,3,de%(be%),-101,10,-100,8,ba%,�Jh(ba%,8),1,0)
5\:�8:�Ih(ba%,8,he%(be%),-1,100,0,13,ba%,�Jh(ba%,13),1,0)
5^<�13:�Ih(ba%,13,je%(be%),-1,100,0,18,ba%,�Jh(ba%,18),1,0)
5`;�18:�Ih(ba%,18,le%(be%),-1,100,0,23,ba%,�Jh(ba%,8),1,0)
5b5�23:�Ih(ba%,23,be%,-1,5,0,27,ba%,�Jh(ba%,23),1,0)
5dl�27:�Ih(ba%,27,fe%(be%),0,cg%,0,27,-1,�Jh(ba%,27),1,0):�be%=0�:�Ih(ba%,27,fe%(be%),-1,cg%,0,27,-1,1,1,0)
5h�
5j�&18F:ȎGb%�
5n2�3:�Ih(ba%,3,de%(be%),-101,10,-100,3,-1,1,1,0)
5p8�8:�Ih(ba%,8,he%(be%),-1,100,0,3,ba%,�Jh(ba%,3),1,0)
5r:�13:�Ih(ba%,13,je%(be%),-1,100,0,8,ba%,�Jh(ba%,8),1,0)
5t<�18:�Ih(ba%,18,le%(be%),-1,100,0,13,ba%,�Jh(ba%,13),1,0)
5v5�23:�Ih(ba%,23,be%,-1,5,0,18,ba%,�Jh(ba%,18),1,0)
5xx�27:�Ih(ba%,27,fe%(be%),0,cg%,0,23,ba%,�Jh(ba%,23),1,0):�be%=0�:�Ih(ba%,27,fe%(be%),-1,cg%,0,23,ba%,�Jh(ba%,23),1,0)
5|�
5~�13:�be%>0�:�gg
5� �hg�
5�?�La(ba%):nd%=�:�sf:�eg(ge%()):�xf:ș262353,ba%,0,-300,798,0
5��
5��&1B:�La(ba%)
5��
5��fa%:ȎEh%�
5��&18E:ȎGb%�
5�8�4:�Ih(fa%,4,ne%(xe%),-1,100,0,9,fa%,�Jh(fa%,9),1,0)
5�:�9:�Ih(fa%,9,pe%(xe%),-1,100,0,14,fa%,�Jh(fa%,14),1,0)
5�<�14:�Ih(fa%,14,re%(xe%),-1,100,0,20,fa%,�Jh(fa%,20),1,0)
5�<�20:�Ih(fa%,20,te%(xe%),-1,100,0,37,fa%,�Jh(fa%,37),1,0)
5�=�37:�Ih(fa%,37,ve%(xe%),-1,9990,0,25,fa%,�Jh(fa%,25),1,0)
5�5�25:�Ih(fa%,25,xe%,-1,5,0,29,fa%,�Jh(fa%,29),1,0)
5�b�29:�Ih(fa%,29,ze%(xe%),0,cg%,0,29,-1,1,1,0):�xe%=0�:�Ih(fa%,29,ze%(xe%),-1,cg%,0,29,-1,1,1,0)
5��
5��&18F:ȎGb%�
5�.�4:�Ih(fa%,4,ne%(xe%),-1,100,0,4,-1,1,1,0)
5�8�9:�Ih(fa%,9,pe%(xe%),-1,100,0,4,fa%,�Jh(fa%,4),1,0)
5�:�14:�Ih(fa%,14,re%(xe%),-1,100,0,9,fa%,�Jh(fa%,9),1,0)
5�<�20:�Ih(fa%,20,te%(xe%),-1,100,0,14,fa%,�Jh(fa%,14),1,0)
5�=�37:�Ih(fa%,37,ve%(xe%),-1,9990,0,20,fa%,�Jh(fa%,20),1,0)
5�5�25:�Ih(fa%,25,xe%,-1,5,0,37,fa%,�Jh(fa%,37),1,0)
5�x�29:�Ih(fa%,29,ze%(xe%),0,cg%,0,25,fa%,�Jh(fa%,25),1,0):�xe%=0�:�Ih(fa%,29,ze%(xe%),-1,cg%,0,25,fa%,�Jh(fa%,25),1,0)
5��
5��13:�xe%>0�:�ig
5��jg�xe%=0�
5�%�La(fa%):nd%=�:�sf:�eg(_e%()):�yf
5��
5��&1B:�La(fa%)
5��
5��ca%:ȎEh%�
5��&18E:ȎGb%�
5�8�3:�Ih(ca%,3,`e%(Df%),-1,100,0,8,ca%,�Jh(ca%,8),1,0)
5�:�8:�Ih(ca%,8,Bf%(Df%),-1,100,0,12,ca%,�Jh(ca%,12),1,0)
5�5�12:�Ih(ca%,12,Df%,-1,5,0,16,ca%,�Jh(ca%,16),1,0)
5�b�16:�Ih(ca%,16,Ff%(Df%),0,cg%,0,16,-1,1,1,0):�Df%=0�:�Ih(ca%,16,Ff%(Df%),-1,cg%,0,16,-1,1,1,0)
5��
5��&18F:ȎGb%�
5�.�3:�Ih(ca%,3,`e%(Df%),-1,100,0,3,-1,1,1,0)
5�8�8:�Ih(ca%,8,Bf%(Df%),-1,100,0,3,ca%,�Jh(ca%,3),1,0)
5�3�12:�Ih(ca%,12,Df%,-1,5,0,8,ca%,�Jh(ca%,8),1,0)
5�x�16:�Ih(ca%,16,Ff%(Df%),0,cg%,0,12,ca%,�Jh(ca%,12),1,0):�Df%=0�:�Ih(ca%,16,Ff%(Df%),-1,cg%,0,12,ca%,�Jh(ca%,12),1,0)
5��
6 �13:�Df%>0�:�kg
6 �lg�
6%�La(ca%):nd%=�:�sf:�eg(Gf%()):�zf
6�
6�&1B:�La(ca%)
6�
6�ea%:ȎEh%�
6�&18E:ȎGb%�
6:�3:�Ih(ea%,3,Hf%(Lf%),-1,50000,0,8,ea%,�Jh(ea%,8),1,0)
6 <�8:�Ih(ea%,8,Jf%(Lf%),-1,50000,0,12,ea%,�Jh(ea%,12),1,0)
6"5�12:�Ih(ea%,12,Lf%,-1,5,0,16,ea%,�Jh(ea%,16),1,0)
6$b�16:�Ih(ea%,16,Nf%(Lf%),0,cg%,0,16,-1,1,1,0):�Lf%=0�:�Ih(ea%,16,Nf%(Lf%),-1,cg%,0,16,-1,1,1,0)
6(�
6*�&18F:ȎGb%�
6.0�3:�Ih(ea%,3,Hf%(Lf%),-1,50000,0,3,-1,1,1,0)
60:�8:�Ih(ea%,8,Jf%(Lf%),-1,50000,0,3,ea%,�Jh(ea%,3),1,0)
623�12:�Ih(ea%,12,Lf%,-1,5,0,8,ea%,�Jh(ea%,8),1,0)
64x�16:�Ih(ea%,16,Nf%(Lf%),0,cg%,0,12,ea%,�Jh(ea%,12),1,0):�Lf%=0�:�Ih(ea%,16,Nf%(Lf%),-1,cg%,0,12,ea%,�Jh(ea%,12),1,0)
68�
6:�13:�Lf%>0�:�x`
6> �mg�
6@%�La(ea%):nd%=�:�sf:�eg(Of%()):�_f
6F�
6H�&18B:�La(ea%)
6J�
6P�ga%:ȎEh%�
6T�&18E:ȎGb%�
6X:�4:�Ih(ga%,4,Pf%(Vf%),-1,999,0,10,ga%,�Jh(ga%,10),1,0)
6Z<�10:�Ih(ga%,10,Rf%(Vf%),-1,999,0,16,ga%,�Jh(ga%,16),1,0)
6\<�16:�Ih(ga%,16,Tf%(Vf%),-1,999,0,21,ga%,�Jh(ga%,21),1,0)
6^5�21:�Ih(ga%,21,Vf%,-1,5,0,25,ga%,�Jh(ga%,25),1,0)
6`b�25:�Ih(ga%,25,Xf%(Vf%),0,cg%,0,25,-1,1,1,0):�Vf%=0�:�Ih(ga%,25,Xf%(Vf%),-1,cg%,0,25,-1,1,1,0)
6d�
6f�&18F:ȎGb%�
6j.�4:�Ih(ga%,4,Pf%(Vf%),-1,999,0,4,-1,1,1,0)
6l:�10:�Ih(ga%,10,Rf%(Vf%),-1,999,0,4,ga%,�Jh(ga%,4),1,0)
6n<�16:�Ih(ga%,16,Tf%(Vf%),-1,999,0,10,ga%,�Jh(ga%,10),1,0)
6p5�21:�Ih(ga%,21,Vf%,-1,5,0,16,ga%,�Jh(ga%,16),1,0)
6rx�25:�Ih(ga%,25,Xf%(Vf%),0,cg%,0,21,ga%,�Jh(ga%,21),1,0):�Vf%=0�:�Ih(ga%,25,Xf%(Vf%),-1,cg%,0,21,ga%,�Jh(ga%,21),1,0)
6v�
6x�13:�Vf%>0�:�ng
6|�og�Vf%=0�
6~%�La(ga%):nd%=�:�sf:�eg(Yf%()):�`f
6��
6��&18E:�La(ga%)
6��
6��ia%:ȎEh%�
6��&18E:ȎGb%�
6�@�16:�Ih(ia%,16,kf%(of%),-101,10,-100,21,ia%,�Jh(ia%,21),1,0)
6�5�21:�Ih(ia%,21,of%,-1,5,0,25,ia%,�Jh(ia%,25),1,0)
6�b�25:�Ih(ia%,25,mf%(of%),0,cg%,0,25,-1,1,1,0):�of%=0�:�Ih(ia%,25,mf%(of%),-1,cg%,0,25,-1,1,1,0)
6��
6��&18F:ȎGb%�
6�5�16:�Ih(ia%,16,kf%(of%),-101,10,-100,16,-1,1,1,0)
6�5�21:�Ih(ia%,21,of%,-1,5,0,16,ia%,�Jh(ia%,16),1,0)
6�x�25:�Ih(ia%,25,mf%(of%),0,cg%,0,21,ia%,�Jh(ia%,21),1,0):�of%=0�:�Ih(ia%,25,mf%(of%),-1,cg%,0,21,ia%,�Jh(ia%,21),1,0)
6��
6��13:�of%>-1�:�rg
6� �sg�
6��La(ia%):�tg:�eg(nf%())
6��
6��&18E:�La(ia%)
6��
6��ja%:ȎEh%�
6��13:ȎGb%�
6��1:�Ed(ja%,1,P`%):�Fd
6��
6��
6��la%:ȎEh%�
6��13:ȎGb%�
6��1:�Ed(la%,1,S`%):�Fd
6��
6��
6��na%:ȎEh%�
6��13:ȎGb%�
6��1:�Ed(na%,1,Q`%):�Fd
6��
6��
6��:�
6���ya:ȎX_%!0�
7(�ja%:ș262354,X_%!0,1,0,0,-1,�($P`%)
7(�la%:ș262354,X_%!0,1,0,0,-1,�($S`%)
7(�na%:ș262354,X_%!0,1,0,0,-1,�($Q`%)
7�:�
7G��W_:ș262362:ș263873:ș262377,36,,N`%,&1,0,0,0,0:�Mh:ș262365:�:�
7 ��Ba:ș262351,,X_%:ȎX_%!12�
7(�Qa%,Sa%:ȎX_%!16�
7,1�12:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2
70/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1
74�
76�La%:ȎX_%!16�
7:A�4,7,10,13,16,19,22:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2
7>/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1
7B�
7D�da%:ȎX_%!16�
7H0�3:�Ca%=1�:ș262377,36,,O`%,&2,4,4,0,0:Ca%=2
7L/:�Ca%=2�:ș262377,36,,N`%,&1,0,0,0,0:Ca%=1
7P�
7R�:�
7X;��Ha(Nh$):!X_%=255:$(X_%+4)=Nh$+�0:ș262367,X_%,1,Ga$:�
7b9��Db(Nh$,Oh%):E`$=Ga$:�Oh%�16�E`$="Message from "+E`$
7h8!X_%=255:$(X_%+4)=Nh$+�0:ș262367,X_%,Oh%,E`$�,Ph%:�
7p��Cb(X_%):ȎX_%!16�
7t�0:U_%=�
7v
�2:ȎT`%�
7z:�&FFF:$S`%=�Hb(X_%+44):�La(la%):�Qh:�Rh(la%,2,S`%,ma%)
7�:�&AFF:$P`%=�Hb(X_%+44):�La(ja%):�Sh:�Rh(ja%,2,P`%,ka%)
7�:�&077:$Q`%=�Hb(X_%+44):�La(na%):�Th:�Rh(na%,2,Q`%,oa%)
7��:�Ea%=Ma%�
7�Aw`%=�:x`%=�:y`%=�:z`%=�:ua%=Ma%:ș262353,Ma%,0,-960,1280,-150
7��
7��3:T`%=X_%!40:ȎT`%�
7�w�&077:$R`%=�Hb(X_%+44):�Uh:�qf:nd%=�:�sf:�tf(Le%(),uf(),uf(),-1):�tf(Le%(),vf(),vf(),0):�wf:�xf:�yf:�zf:�_f:�`f:�md
7��
7��&502:�Vh(�Wh,X_%!8,X_%!4)
7�B�&400C1:X_%!0=Ma%:ș262339,,X_%:�Mh:�G_:ș46,256+9,Na%:�B_:�D_
7��:�
7� ��Vh(Xh$,Yh%,Zh%):�(Xh$)>0�
7�IX_%!0=256:X_%!12=Yh%:X_%!16=&503:$(X_%+20)=Xh$+�0:ș262375,17,X_%,Zh%
7��:�
7�X��F_(E`$):ș267520,,E`$:ș30,6,,,17+�(E`$)�,,ah%:$(ah%+16)=E`$:ș267521,ah%,ah%+16:�
7�[��_`:�bh%,ch%:dh%=!X_%:eh%=X_%!8:fh%=X_%!4:gh%=X_%!12:�eh%<dh%�:ch%=eh%:eh%=dh%:dh%=ch%
7�%�gh%<fh%�:ch%=gh%:gh%=fh%:fh%=ch%
7�f�((eh%-dh%)/1000)*(Yb%-ab%)<10�((gh%-fh%)/500)*(ob%-qb%)<0.1�((gh%-fh%)/500)*(Kc%-Mc%)<15�:_`%=�:�
7�Xb%=0:bb%=bb%+Kd%*(dh%-Nb%-140)/1000:Zb%=Zb%+Kd%*(eh%-Nb%-1140)/1000:Yb%=Zb%:ab%=bb%:�Jd:�tc(Zb%+1750,bb%+1750,Kd%,Ld%,Md%,Nd%,Od):ș262353,Ma%,0,-960,1280,-150:Ȏhb%�
8/�1:�hh(pb%,rb%,Qd%,ob%,qb%):pb%=ob%:rb%=qb%
8/�2:�hh(_b%,`b%,uc%,ob%,qb%):_b%=ob%:`b%=qb%
8�:ȎDc%�
8/�1:�hh(Lc%,Nc%,Sd%,Kc%,Mc%):Lc%=Kc%:Nc%=Mc%
8/�2:�hh(Xc%,Yc%,Xd%,Kc%,Mc%):Xc%=Kc%:Yc%=Mc%
8/�3:�hh(jc%,kc%,Zd%,Kc%,Mc%):jc%=Kc%:kc%=Mc%
8/�4:�hh(dc%,ec%,Yd%,Kc%,Mc%):dc%=Kc%:ec%=Mc%
8 ��:�Jd:�tc(ob%,qb%,ob%-qb%,vc%,wc%,xc%,yc):�tc(Kc%,Mc%,Kc%-Mc%,Td%,Ud%,Vd%,Wd):�fb(Va%,13,Yb%+1750):�fb(Va%,17,ab%+1750):�Bc(Qa%,19,ob%):�Bc(Qa%,23,qb%):�fb(Sa%,19,Kc%):�fb(Sa%,23,Mc%):_`%=�:�
84Z��hh(ih%,jh%,r%,�Hh%,�Gh%):Gh%=jh%+r%*(fh%-Ob%+700)/500:Hh%=ih%+r%*(gh%-Ob%+200)/500:�
8>"��sf:�Hb$:�nd%�Hb$=" *"�Hb$=""
8Dk�wd(Ma%,Oa%,"CO2effect Global Warming Simulation"+Hb$):�N%=1�7:�wd(A`%(N%),B`%(N%),B`$(N%,ld%)+Hb$):�:�
8RJ��A_:kh%=�"<CO2effect$Dir>.Sprites22":lh%=�#kh%+4:�#kh%:�Na% lh%+256:�
8d��B_:ș53,-1,5�,,mh%:Ȏmh%�
8n%�2:kh%=�"<CO2effect$Dir>.Sprites"
8p'�1:kh%=�"<CO2effect$Dir>.Sprites22"
8r1�:!Na%=lh%+256:Na%!8=16:ș46,256+9,Na%:Ȏmh%�
8z0�2:ș46,256+10,Na%,"<CO2effect$Dir>.Sprites"
8|2�1:ș46,256+10,Na%,"<CO2effect$Dir>.Sprites22"
8~�:�
8����G_:ș262273,,"Trinity.Medium",10*16,10*16�nh%:ș262273,,"Trinity.Medium",12*16,12*16�oh%:ș262273,,"Trinity.Medium",14*16,14*16�ph%:ș262273,,"Trinity.Medium",16*16,16*16�qh%:!C`%=0:C`%!4=65536:C`%!8=-65536:C`%!12=0
8�C`%!16=0:C`%!20=0:�
8�w��Mh:ș262274,nh%:ș262274,oh%:ș262274,ph%:ș262274,qh%:�N%=0�255:rh%=?(D`%+N%):ȕrh%>0:ș262274,N%:rh%-=1:�:�N%:�
8�I��va(sh%):ș262344,,X_%�th%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:Ȏsh%�
8�_�Ma%:ȕth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:�y`%�:uh%=Nb%+140:vh%=Nb%+1140
8�+�u`%�w`%�:�yh(Nb%,Ob%,uh%,vh%,wh%,xh%)
8��x`%�:�zh(Nb%,Ob%)
8�#ș262346,,X_%�th%:�:w`%=�:x`%=�
8�`�A`%(1),A`%(2),A`%(3),A`%(4),A`%(5),A`%(6),A`%(7):ȕth%:�_h(Nb%,Ob%,sh%):ș262346,,X_%�th%:�
8�g�aa%:ȕth%:uh%=X_%!28-25:vh%=X_%!36+25:wh%=X_%!32:xh%=X_%!40:�xh%>Ob%-340�xd%�:�`h(Nb%,Ob%,uh%,wh%)
8�ș262346,,X_%�th%:�:xd%=�
8�/�ba%:ȕth%:�Ai(Nb%,Ob%):ș262346,,X_%�th%:�
8�/�da%:ȕth%:�Bi(Nb%,Ob%):ș262346,,X_%�th%:�
9
�:y`%=�:�
9e��Bi(Nb%,Ob%):�Ci%:ș262282,ph%:�Ci%=0�3:ș262278,,Di$(Ci%,Cd%),%10000,Nb%+220,Ob%-180-50*Ci%:�:�
9$���zh(Nb%,Ob%):�Ei%,Fi%:ș262374,1:ȓȐNb%,Ob%-960,140,800:ȓȐNb%+1140,Ob%-960,140,800:ȓȐNb%+140,Ob%-960,1000,100:ȓȐNb%+140,Ob%-200,1000,200:ș262374,7:ș262387,,1,7:ȓȐNb%+139,Ob%-701,1002,2:ȓȐNb%+139,Ob%-701,2,502
9H�ȓȐNb%+1140,Ob%-701,2,502:ȓȐNb%+139,Ob%-200,1002,2:ș262282,qh%:ș262278,,"Year",%10000,Nb%+590,Ob%-780:�Fa%=&A3�Fa%=&A4�
9Vyș262282,ph%:ș262281,,Nb%+40,Ob%-625�,Ah%,Bh%:C`%!4=65536:C`%!8=-65536:�kb%�:ș262278,,hb$,%01001000000,Ah%,Bh%,,C`%
9^nș262281,,Nb%+1240,Ob%-320�,Ah%,Bh%:C`%!4=-65536:C`%!8=65536:�Gc%�:ș262278,,Dc$,%01001000000,Ah%,Bh%,,C`%
9d0�:ș262282,oh%:�Gi(bb%,Vb%,Hi):�(oc%��yb%)�
9v
Ȏhb%�
9xR�1:�lb%�:�Ii(Nb%,Ob%,rb%,140,-700,1000,500,nb,wc%,xc%,yc,jb%,10,-100,-7,2,0,0)
9|R�2:�yb%�:�Ii(Nb%,Ob%,`b%,140,-700,1000,500,zb,wc%,xc%,yc,xb%,10,-100,-7,2,0,0)
9��
9��:�(oc%��Hc%)�
9�
ȎDc%�
9�R�1:�Hc%�:�Ii(Nb%,Ob%,Nc%,1140,-700,-1000,500,Jc,Ud%,Vd%,Wd,Fc%,1,13,-7,1,0,-1)
9�S�2:�Vc%�:�Ii(Nb%,Ob%,Yc%,1140,-700,-1000,500,Wc,Ud%,Vd%,Wd,Uc%,1,13,-7,2,-1,-1)
9�U�3,5:�bc%�:�Ii(Nb%,Ob%,ec%,1140,-700,-1000,500,cc,Ud%,Vd%,Wd,ac%,1,13,-7,2,-1,-1)
9�S�4:�hc%�:�Ii(Nb%,Ob%,kc%,1140,-700,-1000,500,ic,Ud%,Vd%,Wd,gc%,1,13,-7,2,-1,-1)
9��
9��:Fi%=0:�oc%�
9�
Ȏhb%�
9�6�1:�lb%�:�Ji(Nb%,Ob%,Fi%,tb%,"Temperature"):Fi%+=3
9�<�2:�yb%�:�Ji(Nb%,Ob%,Fi%,Ac%,"Radiative forcing"):Fi%+=3
9��:ȎDc%�
9�<�1:�Hc%�:�Ji(Nb%,Ob%,Fi%,Qc%,"CO2 concentration"):Fi%+=1
9�<�2:�Vc%�:�Ji(Nb%,Ob%,Fi%,Zc%,"CH4 concentration"):Fi%+=1
9�<�4:�hc%�:�Ji(Nb%,Ob%,Fi%,lc%,"N2O concentration"):Fi%+=1
9��3:�bc%�
9�
�nc%�
9�7�Ji(Nb%,Ob%,Fi%,fc%(0),"CFCs concentration"):Fi%+=1
9¨�:�Ji(Nb%,Ob%,Fi%,fc%(1),"CFC-11 concentration"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(2),"CFC-12 concentration"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(3),"HCFC-22 concentration"):Fi%+=1
9��
9��
9��
9�r�:�Ji(Nb%,Ob%,Fi%,Qc%,"CO2"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,Zc%,"CH4"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,lc%,"N2O"):Fi%+=1:�nc%�
9�)�Ji(Nb%,Ob%,Fi%,fc%(0),"CFCs"):Fi%+=1
9�~�:�Ji(Nb%,Ob%,Fi%,fc%(1),"CFC-11"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(2),"CFC-12"):Fi%+=1:�Ji(Nb%,Ob%,Fi%,fc%(3),"HCFC-22"):Fi%+=1
9��
9��:�
9����Gi(jh%,Ki%,Li):�Hb$:�23,6,&33,0,0,0,0,0,0,0:�X%=0�Nd%:Hb$=��(1750+bb%+Md%+Od*X%+0.001),4):ș262278,,Hb$,%10000,Nb%+140-30+1000*Li*(Md%+Od*X%),Ob%-740:�Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-715
9�[�Vb%�:�&04,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-700:�&15,Nb%+140+1000*Li*(Md%+Od*X%),Ob%-200
9��:�
:���Ji(Nb%,Ob%,n%,c%,Hb$):�Mi%,Ni%,x%,y%:Mi%=n%�3:Ni%=�(n%/3):x%=140+Ni%*400:y%=-850-Mi%*40:ș262374,7:ȓȐNb%+x%,Ob%+y%,20,20:ș262374,c%:ȓȐNb%+x%+2,Ob%+y%+2,16,16:ș262282,ph%:ș262278,,Hb$,%10000,Nb%+x%+40,Ob%+y%:�
: ^��yh(Nb%,Ob%,uh%,vh%,wh%,xh%):�x%,y%,s,e,Oi%,Pi%:�uh%>Nb%+140+Tb%*(1000*Hi)�vh%<Nb%+140�:�
:,�uh%<=Nb%+140�uh%=Nb%+140
:.F�vh%>=Nb%+140+(Tb%-bb%)*(1000*Hi)�:vh%=Nb%+141+(Tb%-bb%)*(1000*Hi)
:0�wh%>Ob%-200�xh%<Ob%-700�:�
:2
�oc%�
:6�hb%=1�lb%�
:8��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*nb*(t(N%)-273-(rb%+ad%)/10):�N%=bb%�:Oi%=y%
:@(�Qi(tb%,x%,y%,Oi%,nb%,y%):Oi%=y%:�N%
:F�:�hb%=2�yb%�
:J��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+5000*zb*(Ri(N%)-(`b%+bd%)/10):�N%=bb%�:Oi%=y%
:R(�Qi(Ac%,x%,y%,Oi%,zb%,y%):Oi%=y%:�N%
:X�:�Dc%=1�Hc%�
:\��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Jc*(Si(N%)-(Nc%+cd%)):�N%=bb%�:Pi%=y%
:d(�Qi(Qc%,x%,y%,Pi%,Jc%,y%):Pi%=y%:�N%
:j�:�Dc%=2�Vc%�
:n��N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*Wc*(Ti(N%)-(Yc%+dd%)):�N%=bb%�:Pi%=y%
:v(�Qi(Zc%,x%,y%,Pi%,Wc%,y%):Pi%=y%:�N%
:|�:�Dc%=3�bc%�
:�
�nc%�
:���N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,0)-(ec%+ed%(0))):�N%=bb%�:Pi%=y%
:�+�Qi(fc%(0),x%,y%,Pi%,cc%,y%):Pi%=y%:�N%
:���:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,1)-(ec%+ed%(1))):�N%=bb%�:Vi%=y%
:���Qi(fc%(1),x%,y%,Vi%,cc%,y%):Vi%=y%:�N%:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,2)-(ec%+ed%(2))):�N%=bb%�:Wi%=y%
:���Qi(fc%(2),x%,y%,Wi%,cc%,y%):Wi%=y%:�N%:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*cc*(Ui(N%,3)-(ec%+ed%(3))):�N%=bb%�:Xi%=y%
:�+�Qi(fc%(3),x%,y%,Xi%,cc%,y%):Xi%=y%:�N%
:��
:��:�Dc%=4�hc%�
:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:x%=Nb%+140+(1000*Hi)*(N%-bb%):y%=Ob%-700+500*ic*(Yi(N%)-(kc%+fd%)):�N%=bb%�:Pi%=y%
:�(�Qi(lc%,x%,y%,Pi%,ic%,y%):Pi%=y%:�N%
:��
:��:�yb%��Hc%�
:��Zi%=zb%:y%=Ob%-700:s=500*zb:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*10*ai(N%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(N%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(N%):e%(3)=e%(2)+s*id%
:��y%(4)=y%(3)+s*10*di(N%,0):e%(4)=e%(3)+s*jd%(0):y%(5)=y%(3)+s*10*di(N%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(N%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(N%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%()
:��N%=bb%�:ei%()=y%()
:�;�fi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():�
:��:�Hc%��yb%�
:��Zi%=Jc%:y%=Ob%-700:s=500*Jc:�N%=(uh%-Nb%-140)/(1000*Hi)+bb%�(vh%-Nb%-140)/(1000*Hi)+bb%:y%(1)=y%+s*Si(N%):e%(1)=0:y%(2)=y%(1)+s*(277*�(bi(N%)/6.3)-277):e%(2)=e%(1)+s*(277*�(hd%/63)-277)
;�y%(3)=y%(2)+s*(277*�(ci(N%)/6.3)-277):e%(3)=e%(2)+s*(277*�(id%/63)-277):y%(4)=y%(3)+s*(277*�(di(N%,0)/6.3)-277):e%(4)=e%(3)+s*(277*�(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*�(di(N%,1)/6.3)-277):e%(5)=e%(3)+s*(277*�(jd%(1)/63)-277)
;�y%(6)=y%(5)+s*(277*�(di(N%,2)/6.3)-277):e%(6)=e%(5)+s*(277*�(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*�(di(N%,3)/6.3)-277):e%(7)=e%(6)+s*(277*�(jd%(3)/63)-277):e%()+=s*(Nc%+cd%):y%()=y%()-e%():�N%=bb%�:ei%()=y%()
;;�fi(Nb%+140+(1000*Hi)*(N%-bb%),y%(),ei%()):ei%()=y%():�
;�
;�:�
;$��ta:�Sb%>240�
;F��N%=Sb%�400:Si(N%)=Si(N%)+(353.93/750)*gi(Sb%-240,0)*(0.3+0.001*(200-(N%-Sb%))+0.5*�(-(N%-Sb%)/(25-15*�(-(N%-Sb%)/20)))):Ti(N%)=Ti(N%)+(1717/4900)*(hi(Sb%-240,0)+155)*�(-(N%-Sb%)/10.5)
;L�Ui(N%,1)=Ui(N%,1)+(255/6254)*ii(Sb%-240,1,0)*�(-(N%-Sb%)/55):Ui(N%,2)=Ui(N%,2)+(453/9777)*ii(Sb%-240,2,0)*�(-(N%-Sb%)/116):Ui(N%,3)=Ui(N%,3)+(110/1344)*ii(Sb%-240,3,0)*�(-(N%-Sb%)/15.8):Ui(N%,0)=Ui(N%,1)+Ui(N%,2)+Ui(N%,3)
;TBYi(N%)=Yi(N%)+(309.68/1500)*ji(Sb%-240,0)*�(-(N%-Sb%)/132):�N%
;X��:ai(Sb%)=6.3*�(Si(Sb%)/277):bi(Sb%)=0.036*(�(Ti(Sb%))-�(790)):di(Sb%,1)=0.22*Ui(Sb%,1)/1000:di(Sb%,2)=0.28*Ui(Sb%,2)/1000:di(Sb%,3)=0.189*Ui(Sb%,3)/1000:di(Sb%,0)=di(Sb%,1)+di(Sb%,2)+di(Sb%,3)
;lXci(Sb%)=0.14*(�(Yi(Sb%))-�(285.00)):Ri(Sb%)=ai(Sb%)+bi(Sb%)+di(Sb%,0)+ci(Sb%):ȎCd%�
;v�0:t(Sb%)=�ki(Ri(Sb%))
;x�1:t(Sb%)=�li(Ri(Sb%))
;z�2:t(Sb%)=�mi(Ri(Sb%))
;|�3:t(Sb%)=�ni(Ri(Sb%))
;~�:Tb%=Sb%:�u`%��oi
;��Jb:�Sb%=Zb%�
;�Sr`%=�:s`%=�:�Rb(Ma%,1):�Rb(Ma%,2):Sb%=240:w`%=�:ș262353,Ma%,0,-960,1280,-150:�
;��:Sb%+=1:�
;�[��oi:�y%,s,e%,Li,pi%:Li=1000*Hi:pi%=1:�nb%>Li�zb%>Li�Jc%>Li�Wc%>Li�ic%>Li�cc%>Li�:pi%=2
;��!X_%=Ma%:ș262347,,X_%:Nb%=X_%!4-X_%!20:Ob%=X_%!16-X_%!24:X_%!4=140+Li*(Sb%-bb%-pi%):X_%!12=140+Li*(Sb%-bb%+pi%):X_%!8=-700:X_%!16=-200:ș262345,,X_%�th%:ȕth%:�oc%�
;�
Ȏhb%�
;�=�1:y%=Ob%-700+5000*nb*(t(Sb%)-273-(rb%+ad%)/10):�Sb%=240�
;�
Oi%=y%
;�>�:�lb%�:�Qi(tb%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,nb%,y%)
;�
Oi%=y%
;��
;�:�2:y%=Ob%-700+5000*zb*(Ri(Sb%)-(`b%+bd%)/10):�Sb%=240�
;�
Oi%=y%
;�>�:�yb%�:�Qi(Ac%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Oi%,zb%,y%)
;�
Oi%=y%
;��
;��:ȎDc%�
;�6�1:y%=Ob%-700+500*Jc*(Si(Sb%)-(Nc%+cd%)):�Sb%=240�
;�
Pi%=y%
;�>�:�Hc%�:�Qi(Qc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Jc%,y%)
;�
Pi%=y%
;��
;�6�2:y%=Ob%-700+500*Wc*(Ti(Sb%)-(Yc%+dd%)):�Sb%=240�
<
Pi%=y%
<>�:�Vc%�:�Qi(Zc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,Wc%,y%)
<
Pi%=y%
<
�
<
�3:�nc%�
<8y%=Ob%-700+500*cc*(Ui(Sb%,0)-(ec%+ed%(0))):�Sb%=240�
<
Pi%=y%
<A�:�bc%�:�Qi(fc%(0),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,cc%,y%)
<
Pi%=y%
<�
<:�:y%=Ob%-700+500*cc*(Ui(Sb%,1)-(ec%+ed%(1))):�Sb%=240�
<$
Vi%=y%
<&A�:�bc%�:�Qi(fc%(1),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Vi%,cc%,y%)
<*
Vi%=y%
<,:�:y%=Ob%-700+500*cc*(Ui(Sb%,2)-(ec%+ed%(2))):�Sb%=240�
<2
Wi%=y%
<4A�:�bc%�:�Qi(fc%(2),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Wi%,cc%,y%)
<8
Wi%=y%
<::�:y%=Ob%-700+500*cc*(Ui(Sb%,3)-(ec%+ed%(3))):�Sb%=240�
<@
Xi%=y%
<BA�:�bc%�:�Qi(fc%(3),Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Xi%,cc%,y%)
<F
Xi%=y%
<H�
<J�
<L=�4:y%=Ob%-700+500*ic*(Yi(Sb%)-(kc%+fd%)):�Sb%=240�:Pi%=y%
<R<�hc%�:�Qi(lc%,Nb%+140+(1000*Hi)*(Sb%-bb%),y%,Pi%,ic%,y%)
<T
Pi%=y%
<V�
<X�:�Hc%�
<[�Zi%=zb%:s=500*zb:y%(1)=Ob%-700+s*10*ai(Sb%):e%(1)=s*gd%:y%(2)=y%(1)+s*10*bi(Sb%):e%(2)=e%(1)+s*hd%:y%(3)=y%(2)+s*10*ci(Sb%):e%(3)=e%(2)+s*id%:y%(4)=y%(3)+s*10*di(Sb%,0):e%(4)=e%(3)+s*jd%(0)
<f�y%(5)=y%(3)+s*10*di(Sb%,1):e%(5)=e%(3)+s*jd%(1):y%(6)=y%(5)+s*10*di(Sb%,2):e%(6)=e%(5)+s*jd%(2):y%(7)=y%(6)+s*10*di(Sb%,3):e%(7)=e%(6)+s*jd%(3):e%()+=s*`b%:y%()=y%()-e%():�Sb%=240�
<rqi%()=y%()
<t7�:�yb%�:�fi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%())
<xqi%()=y%()
<z�
<|�:�yb%�
<�Zi%=Jc%:s=500*Jc:y%(1)=Ob%-700+s*Si(Sb%):e%(1)=0:y%(2)=y%(1)+s*(277*�(bi(Sb%)/6.3)-277):e%(2)=e%(1)+s*(277*�(hd%/63)-277):y%(3)=y%(2)+s*(277*�(ci(Sb%)/6.3)-277):e%(3)=e%(2)+s*(277*�(id%/63)-277)
<��y%(4)=y%(3)+s*(277*�(di(Sb%,0)/6.3)-277):e%(4)=e%(3)+s*(277*�(jd%(0)/63)-277):y%(5)=y%(3)+s*(277*�(di(Sb%,1)/6.3)-277):e%(5)=e%(3)+s*(277*�(jd%(1)/63)-277)
<��y%(6)=y%(5)+s*(277*�(di(Sb%,2)/6.3)-277):e%(6)=e%(5)+s*(277*�(jd%(2)/63)-277):y%(7)=y%(6)+s*(277*�(di(Sb%,3)/6.3)-277):e%(7)=e%(6)+s*(277*�(jd%(3)/63)-277):e%()=0:e%()+=s*(Nc%+cd%):y%()=y%()-e%():�Sb%=240�
<�qi%()=y%()
<�7�:�Hc%�:�fi(Nb%+140+(1000*Hi)*(Sb%-bb%),y%(),qi%())
<�qi%()=y%()
<��
<��
<��:ș262346,,X_%�th%:�:�
<�B��Qi(Ni%,x%,y%,ei%,lh%,�y%):�ri:�(x%-Nb%)>1140�(x%-Nb%)<140�:�
<�!�x%-Nb%=140�ri=0�ri=(1000*Hi)
<�*y%=�si(y%,Ob%):ei%=�si(ei%,Ob%):�mc%�
<�
Ȏqc%�
<�-�1:ș262374,Ni%:ȏȐx%,y%,�ti(y%,Ob%,lh%)
<�m�2:ș262374,Ni%:�x%-�ti(y%,Ob%,lh%),y%,x%+�ti(y%,Ob%,lh%),y%:�x%,y%-�ti(y%,Ob%,lh%),x%,y%+�ti(y%,Ob%,lh%)
<�+�3:ș262374,Ni%:�x%-(1000*Hi),ei%,x%,y%
<��
<�e�:ș262374,Ni%:�x%-ri,Ob%-699:�x%-ri,ei%:�&55,x%,y%:�x%,y%:�x%,Ob%-699:�&55,x%-ri,Ob%-699:�qc%=3�
<�&ș262374,7:�x%-(1000*Hi),ei%,x%,y%
<��
<��:�
<�2��fi(x%,y%(),ei%()):�ri:�x%=Nb%+140�ri=0�ri=Hi
<�"�(x%-Nb%)>1140�(x%-Nb%)<140�:�
<��nc%�ui%=7�ui%=4
<�H�M%=1�ui%:y%(M%)=�si(y%(M%),Ob%):ei%(M%)=�si(ei%(M%),Ob%):�M%:�mc%�
<�
Ȏqc%�
<��1:�nc%�
<��ș262374,fc%(3):ȏȐx%,y%(7),�ti(y%(7),Ob%,Zi%):ș262374,fc%(2):ȏȐx%,y%(6),�ti(y%(6),Ob%,Zi%):ș262374,fc%(1):ȏȐx%,y%(5),�ti(y%(5),Ob%,Zi%)
=5�:ș262374,fc%(0):ȏȐx%,y%(4),�ti(y%(4),Ob%,Zi%)
=��:ș262374,lc%:ȏȐx%,y%(3),�ti(y%(3),Ob%,Zi%):ș262374,Zc%:ȏȐx%,y%(2),�ti(y%(2),Ob%,Zi%):ș262374,Qc%:ȏȐx%,y%(1),�ti(y%(1),Ob%,Zi%)
=�2:�nc%�
=�ș262374,fc%(3):�x%-�ti(y%(7),Ob%,Zi%),y%(7),x%+�ti(y%(7),Ob%,Zi%),y%(7):�x%,y%(7)-�ti(y%(7),Ob%,Zi%),x%,y%(7)+�ti(y%(7),Ob%,Zi%):ș262374,fc%(2):�x%-�ti(y%(6),Ob%,Zi%),y%(6),x%+�ti(y%(6),Ob%,Zi%),y%(6)
=��x%,y%(6)-�ti(y%(6),Ob%,Zi%),x%,y%(6)+�ti(y%(6),Ob%,Zi%):ș262374,fc%(1):�x%-�ti(y%(5),Ob%,Zi%),y%(5),x%+�ti(y%(5),Ob%,Zi%),y%(5):�x%,y%(5)-�ti(y%(5),Ob%,Zi%),x%,y%(5)+�ti(y%(5),Ob%,Zi%)
=��:ș262374,fc%(0):�x%-�ti(y%(4),Ob%,Zi%),y%(4),x%+�ti(y%(4),Ob%,Zi%),y%(4):�x%,y%(4)-�ti(y%(4),Ob%,Zi%),x%,y%(4)+�ti(y%(4),Ob%,Zi%)
=$��:ș262374,lc%:�x%-�ti(y%(3),Ob%,Zi%),y%(3),x%+�ti(y%(3),Ob%,Zi%),y%(3):�x%,y%(3)-�ti(y%(3),Ob%,Zi%),x%,y%(3)+�ti(y%(3),Ob%,Zi%):ș262374,Zc%:�x%-�ti(y%(2),Ob%,Zi%),y%(2),x%+�ti(y%(2),Ob%,Zi%),y%(2)
=-��x%,y%(2)-�ti(y%(2),Ob%,Zi%),x%,y%(2)+�ti(y%(2),Ob%,Zi%):ș262374,Qc%:�x%-�ti(y%(1),Ob%,Zi%),y%(1),x%+�ti(y%(1),Ob%,Zi%),y%(1):�x%,y%(1)-�ti(y%(1),Ob%,Zi%),x%,y%(1)+�ti(y%(1),Ob%,Zi%)
=2�3:�nc%�
=6�ș262374,fc%(3):�x%-(1000*ri),ei%(7),x%,y%(7):ș262374,fc%(2):�x%-(1000*ri),ei%(6),x%,y%(6):ș262374,fc%(1):�x%-(1000*ri),ei%(5),x%,y%(5)
=<3�:ș262374,fc%(0):�x%-(1000*ri),ei%(4),x%,y%(4)
=@��:ș262374,lc%:�x%-(1000*ri),ei%(3),x%,y%(3):ș262374,Zc%:�x%-(1000*ri),ei%(2),x%,y%(2):ș262374,Qc%:�x%-(1000*ri),ei%(1),x%,y%(1)
=H�
=J�:�nc%�
=N�ș262374,fc%(3):�x%-(1000*ri),ei%(6):�x%-(1000*ri),ei%(7):�&55,x%,y%(7):�x%,y%(7):�x%,y%(6):�&55,x%-(1000*ri),ei%(6):ș262374,fc%(2):�x%-(1000*ri),ei%(5):�x%-(1000*ri),ei%(6):�&55,x%,y%(6)
=X��x%,y%(6):�x%,y%(5):�&55,x%-(1000*ri),ei%(5):ș262374,fc%(1):�x%-(1000*ri),ei%(3):�x%-(1000*ri),ei%(5):�&55,x%,y%(5):�x%,y%(5):�x%,y%(3):�&55,x%-(1000*ri),ei%(3)
=`z�:ș262374,fc%(0):�x%-(1000*ri),ei%(3):�x%-(1000*ri),ei%(4):�&55,x%,y%(4):�x%,y%(4):�x%,y%(3):�&55,x%-(1000*ri),ei%(3)
=h��:ș262374,lc%:�x%-(1000*ri),ei%(2):�x%-(1000*ri),ei%(3):�&55,x%,y%(3):�x%,y%(3):�x%,y%(2):�&55,x%-(1000*ri),ei%(2):ș262374,Zc%:�x%-(1000*ri),ei%(1):�x%-(1000*ri),ei%(2):�&55,x%,y%(2)
=t��x%,y%(2):�x%,y%(1):�&55,x%-(1000*ri),ei%(1):ș262374,Qc%:�x%-(1000*ri),Ob%-699:�x%-(1000*ri),ei%(1):�&55,x%,y%(1):�x%,y%(1):�x%,Ob%-699:�&55,x%-(1000*ri),Ob%-699:Ȏqc%�
=��2:ș262374,7:�nc%�
=�u�x%-�ti(y%(7),Ob%,Zi%),y%(7),x%+�ti(y%(7),Ob%,Zi%),y%(7):�x%,y%(7)-�ti(y%(7),Ob%,Zi%),x%,y%(7)+�ti(y%(7),Ob%,Zi%)
=�u�x%-�ti(y%(6),Ob%,Zi%),y%(6),x%+�ti(y%(6),Ob%,Zi%),y%(6):�x%,y%(6)-�ti(y%(6),Ob%,Zi%),x%,y%(6)+�ti(y%(6),Ob%,Zi%)
=�u�x%-�ti(y%(5),Ob%,Zi%),y%(5),x%+�ti(y%(5),Ob%,Zi%),y%(5):�x%,y%(5)-�ti(y%(5),Ob%,Zi%),x%,y%(5)+�ti(y%(5),Ob%,Zi%)
=�w�:�x%-�ti(y%(4),Ob%,Zi%),y%(4),x%+�ti(y%(4),Ob%,Zi%),y%(4):�x%,y%(4)-�ti(y%(4),Ob%,Zi%),x%,y%(4)+�ti(y%(4),Ob%,Zi%)
=�w�:�x%-�ti(y%(3),Ob%,Zi%),y%(3),x%+�ti(y%(3),Ob%,Zi%),y%(3):�x%,y%(3)-�ti(y%(3),Ob%,Zi%),x%,y%(3)+�ti(y%(3),Ob%,Zi%)
=�u�x%-�ti(y%(2),Ob%,Zi%),y%(2),x%+�ti(y%(2),Ob%,Zi%),y%(2):�x%,y%(2)-�ti(y%(2),Ob%,Zi%),x%,y%(2)+�ti(y%(2),Ob%,Zi%)
=�u�x%-�ti(y%(1),Ob%,Zi%),y%(1),x%+�ti(y%(1),Ob%,Zi%),y%(1):�x%,y%(1)-�ti(y%(1),Ob%,Zi%),x%,y%(1)+�ti(y%(1),Ob%,Zi%)
=�r�3:ș262374,7:�x%-(1000*ri),ei%(1),x%,y%(1):�x%-(1000*ri),ei%(2),x%,y%(2):�x%-(1000*ri),ei%(3),x%,y%(3):�nc%�
=�!�x%-(1000*ri),ei%(4),x%,y%(4)
=�_�:�x%-(1000*ri),ei%(5),x%,y%(5):�x%-(1000*ri),ei%(6),x%,y%(6):�x%-(1000*ri),ei%(7),x%,y%(7)
=��
=��
=��:�
=�3��Jb:�vi$:�zc(Ma%,22," "+�(Tb%+1750)):�oc%�Hc%�
=��zc(Ma%,23," ")
=��:Ȏhb%�
=�/�1:�zc(Ma%,23," "+��(t(Tb%)-273-ad%/10),5))
=�,�2:�zc(Ma%,23," "+��(Ri(Tb%)-bd%/10),5))
=��
=��:�oc%�yb%�
=�vi$=" "
=��:ȎDc%�
=�!�1:vi$=" "+��(Si(Tb%)-cd%),6)
=�!�2:vi$=" "+��(Ti(Tb%)-dd%),6)
=�!�3:�(Ui(Tb%,0)-ed%(0))<0.01�
=�vi$=" 0.00"
=�%�:vi$=" "+��(Ui(Tb%,0)-ed%(0)),6)
=��
=��4:�(Yi(Tb%)-fd%)<0.01�
=�vi$=" 0.00"
=� �:vi$=" "+��(Yi(Tb%)-fd%),6)
=��
=��
=��:�zc(Ma%,24,vi$):�
>