'===========================================================================
' Subject: INTELLIGENT TIC TAC TOE           Date: 12-06-99 (21:30)       
' Author:  Dominik Kaspar                    Code: QB, QBasic, PDS        
' Origin:  pedok@pop.agri.ch               Packet: GAMES.ABC
'===========================================================================
' Tic Tac Toe Game with Artificial Intelligence
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"AITIC.ZIP",4^6:Z&=19472:?STRING$(50,177);
U"%up()%/%%%#%%S?#wJ<U9Kd[37%%[3%%%.%I%%082C82S25=CU%UUUU%UUUU%UU
U"UU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%
U"VUVU%VVVV%VVVV%VVUV%VVUU%VVVU%UUVU%UUUV%UUUV%VVUV%VVVV%VVVV%VUV
U"V%VUUU%VUUU%VVVU%UUVU%UVVV%VVVV%VVVU%UVUU%UVVV%UUUV%UUUV%VVUV%V
U"VVV%VVVV%VUUV%UUUV%VVUU%UUUU%UUUU%UUVV%VUUV%VVUU%UUUU%UUUU%UVVV
U"%VVVV%VVVV%UUUV%VUUU%VVVV%VVVV%VVVU%UUUU%UUUU%UUUU%UUUU%UUUU%UU
U"UU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%
U"UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUU
U"U%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UVVV%VVVU%UUVV%VVVV%UVUU%VVVU%V
U"VVV%UVVU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUVU%UUUV%VUUU%VVVU
U"%UVVU%UUVU%UUUU%UUUU%UUVU%UUVV%UUVV%VUUU%VVUU%UUVU%UUUU%UUUU%UU
U"UU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%
U"UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUU
U"U%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%U
U"UUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUV%UUUV%VVUV%VVVV%VUVU%VUUV%UUUU
U"%VUUU%UVUU%UUVU%UVUV%UVVV%VVVU%VVVU%UUVU%UUUV%UUUU%VVUV%VVVV%UU
U"VV%UUUV%UUUU%UUUU%UVUU%UVVU%UVVV%VVUV%VUUU%UVUU%UUUU%UUUU%UUUU%
U"UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUU
U"U%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%U
U"UUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%VVVU%UVVU
U"%UUUV%UUUU%VUUU%UUUU%UUVU%UVVU%VVVV%UVVU%VUVU%UUUU%UUUU%UUUU%UU
U"UU%VUVU%VVVV%VUVU%VUUV%UVUV%VVVV%UVUV%UUUV%UUUV%VVUU%VUUU%UUVV%
U"UUVV%VUUU%VUUV%VUVV%VUUV%VUUV%VUUV%VUUV%VUUV%VVUV%VUVV%UUVU%UVU
U"U%VVUU%UVVU%VVUU%VUUV%VUVU%UVVU%UUVV%UUVV%UUUU%UUUU%UUUU%UUUU%U
U"UVV%VUUV%UUUU%VUUU%UVUU%UUVV%UUUV%VVUU%VVVU%UUUV%UUUU%VUUU%UVUU
U"%UVVU%UVVV%UUUU%UUUU%VUUU%VUVU%VUVU%VUVU%VUUU%VUUU%UUUU%UUVU%UU
U"UV%UUVV%VVVU%UVUU%UUVU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUV%VUUV%VUUU%
U"UUUU%UUUU%UVVV%VVVV%UUVU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUV
U"V%UUUV%VUUU%UUVV%UUUV%VUUV%VUUV%VUUV%VUUU%VVUU%UVVV%VVVU%UVVV%U
U"UUV%VUUU%VVVU%UVVV%VVVU%VVUU%UUVU%UUUV%UUUU%VUUU%VVUU%UVVV%UVVV
U"%VVVU%UVVU%UUVU%UVVV%UVVU%UUVV%VVVV%VVVV%VUUU%VUUV%VVUU%UVVV%VU
U"UV%VVVV%VVVU%UUVU%UVUV%VVVV%UUUV%UUUV%VUUU%VVVV%VVVV%VUUU%UVVV%
U"VUUU%UVVV%UUUV%VVVV%VVVV%VVVU%UVVV%UUUU%VVVV%VVVU%UVVV%VVVV%VVV
U"V%VUUV%VUUV%VUUV%VUUU%VUUU%VVVU%UVVV%VVVU%UUVV%VVVV%VUUU%VVVU%U
U"VVV%VVVV%VVVV%VUUU%VVVV%VVUU%UUVV%VUUV%VVVV%VUUU%UUUU%UUUU%VVUU
U"%UUVU%UUVU%UUUV%VUUU%UUUU%UUUU%UUUV%VUUU%UUUU%UVVU%UVVU%UUUU%UU
U"UU%VVUU%VVUU%VVUU%UUVV%UUUU%VVUU%UUUU%UUUU%UVVV%VVUU%UUUV%VVVV%
U"VVUU%UUUU%UUVV%UUUU%VVUU%UUVV%UUVV%UUVV%UUUU%VVVU%VVUV%VUUU%VUU
U"U%VUUU%UUUU%UUVV%UVVV%VVVU%UUVV%UVVV%VUVV%VVVU%UUVV%VVVV%VVVU%V
U"UUV%VVUU%UVVV%VVVV%VUUV%VVUV%VVVV%VUVU%UVUV%UUVU%VVVV%VVVU%UVVV
U"%VVVV%VVVV%VUUV%VVUU%UUVU%UUUV%VUUV%VVVV%VVVV%VUVU%UVVV%UUUV%VU
U"UU%VVVU%VVVV%VVUV%VVVV%VUUU%VVVV%UUVU%UUUV%VUUV%VVVV%VVVV%VVVU%
U"UUVV%VVUU%VUUU%UVVU%UUVV%UUUV%VVVV%VUUU%VVUU%UUVU%UVVV%VUUV%VVV
U"V%VVVU%VVVU%UUVV%VVVV%VUUU%VVVU%UVVV%UVVU%VVVU%UUVU%UUUV%UUUU%V
U"UUU%VVUU%UVVV%UVVV%VVVU%UUVU%UUUV%UUUU%VVVU%VVVV%VVUV%UUVV%VUVV
U"%UVVV%UUVV%VUUV%UVVU%VUUV%VVVU%UUVU%UUUV%UUUU%VUUU%UVVU%UVVV%VV
U"VV%VUVV%VVVV%VVUV%UVVU%UUVV%VUUV%VVUV%VVVU%UVVV%VUVV%UVVV%VUUV%
U"VVVU%UVVV%UVVU%VVVU%VVUV%VVUU%UVVU%UUVV%VUVV%UVVV%UVVV%VVVU%UUV
U"V%VVVV%VUUU%UVVU%UUVV%UUUU%VVVU%VVUV%VVUU%UVVU%UVVV%VUVU%UVVV%V
U"VVV%VVVU%UUVV%VVVV%VUVV%UVUU%VVVV%UUVV%VVVV%VUUU%UVVV%VVUU%UUVV
U"%VUUV%VVVV%VVVV%VVVU%VUVU%UVUU%UUVU%UUVV%UUUV%VVUV%UUVV%VUUU%VV
U"UU%UVVU%UUVV%VUVV%VVVV%UVUU%VVVU%UUVV%UUUV%VVUV%VUVV%VUUU%VUUV%
U"UUVV%VUUU%VVUU%UVVU%VUVV%VVVV%VVUV%VVUU%UVVV%UVVU%VVVU%UVVV%UVV
U"U%VVVV%UUVV%UUUV%VVUV%VUVV%VUUU%VUUU%VVUU%UVVV%UVVV%VVVU%UVVU%U
U"VVU%UVVU%UVVU%UVVV%VVVU%VVVU%UVUU%UUVU%UUUV%UUUU%VVUU%UVVV%UUUU
U"%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%VVVU%UUUV%UUUU%VUUU%UVUU%UV
U"VU%UVVV%UUUV%UUUV%VVUV%VUVV%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%UUUU%
U"UUUU%UUUU%UUUU%VVVV%VUVV%UUUV%VUUU%UVVU%UUUU%UUUU%UUUU%UUUV%VVV
U"U%VUUV%VVUU%UVVV%VVVV%VUUV%VVUV%VVVV%VUVU%UVUV%UUVU%VVVV%VVVU%U
U"VVV%VVVV%VVVV%VUUV%VVUU%UUVU%UUUV%VUUV%VVVV%VVVV%VUVU%UVVV%UUUV
U"%VUUU%VVVU%VVVV%VVUV%VVVV%VUUU%VVVV%UUVU%UUUV%VUUV%VVVV%VVVV%VV
U"VU%UUVV%VVUU%VUUU%UVVU%UUVV%UUUV%VVVV%VUUU%VVUU%UUVU%UVVV%VUUV%
U"VVVV%VVVU%VVVU%UUVV%VVVV%VUUU%VVVU%UVVV%UVVU%VVVU%UUVU%UUUV%UUU
U"U%VUUU%VVUU%UVVV%UVVV%VVVU%UUVU%UUUV%UUUU%VVVU%VVVV%VVUV%UUVV%V
U"UVV%UVVV%UUVV%VUUV%UVVU%VUUV%VVVU%UUVU%UUUV%UUUU%VUUU%UVVU%UVVV
U"%VVVV%VUVV%VVVV%VVUV%UVVU%UUVV%VUUV%VVUV%VVVU%UVVV%VUVV%UVVV%VU
U"UV%VVVU%UVVV%UVVU%VVVU%VVUV%VVUU%UVVU%UUVV%VUVV%UVVV%UVVV%VVVU%
U"UUVV%VVVV%VUUU%UVVU%UUVV%UUUU%VVVU%VVUV%VVUU%UVVU%UVVV%VUVU%UVV
U"V%VVVV%VVVU%UUVV%VVVV%VUVV%UVUU%VVVV%UUVV%VVVV%VUUU%UVVV%VVUU%U
U"UVV%VUUV%VVVV%VVVV%VVVU%VUVU%UVUU%UUVU%UUVV%UUUV%VVUV%UUVV%VUUU
U"%VVUU%UVVU%UUVV%VUVV%VVVV%UVUU%VVVU%UUVV%UUUV%VVUV%VUVV%VUUU%VU
U"UV%UUVV%VUUU%VVUU%UVVU%VUVV%VVVV%VVUV%VVUU%UVVV%UVVU%VVVU%UVVV%
U"UVVU%VVVV%UUVV%UUUV%VVUV%VUVV%VUUU%VUUU%VVUU%UVVV%UVVV%VVVU%UVV
U"U%UVVU%UVVU%UVVU%UVVV%VVVU%VVVU%UVUU%UUVU%UUUV%UUUU%VVUU%UVVV%U
U"UVV%UUUU%VUUU%UVUU%UUVU%UUVV%UUUV%VUUU%VVVU%UUUV%UUUU%VUUU%UVUU
U"%UVVU%UVVV%UUVV%UVVU%UVUU%UUUU%UUUU%UUUU%UUUU%UUUU%UVUU%UVVV%UU
U"VU%VUVV%UVVV%UUUV%VVVV%Vup(%)/%%#%%%]\lOKCRHF&+#a%%+%a%%.#%%%0M
U"8C82LS10B%LEfn%ynhE#REy8A2Ey0A2Ey>J4EF8)C7EfMAC85M8280A;En=MC4;
U";M864=)242/%L2/LIEuA>M6A0<2<43E)1HEiM><8=)8:EpM0B?0&A2/L%2/LE%u
U"x_ECn5E8JCEB7M>D;3LE70?2?4=EMC70CLEH>D(E&nsLEC74LE60<J4EF8DC7EC
U"D74E0MAC85M8280&;Env%EbEV%UUJ2%/LEE#EEEC274=EM?;40DB4EFMA8C41E<
U"4E27>FE2H>DEM<0=02643E)8CQE)B>EnLE20=IEGC42027G1E<HEM?A>62A0<2%
U"/LEE#EEE0M=>C7D4AE;M4BB>A=FE4LR<08A;_E?M43>:Le?>?LS06AJ8S27%2/L
U"2%/ijh%qfwj%ExzgIEj=3Lx2A4)4=EM%N2/i%jhqf%wjEx%zgEq2>6>ECM'u>&B
U"FQEJ(u>B%FQEx28I4F#QEy4)GCIQIEh>;2>DAF#QEkA20<4F%N2/i%jhqf%wjEx
U"%zgEnM=CA>%EMN2%/ijh%qfwj%ExzgIEf392DBCn%vEMN%2/ij%hqfw%jExz#gE
U"s4JFl0<&4EMN%2/ij%hqfw%jExz#gEgDMCC>=LuA4B2B43E(MGFQ(EHFQ1EGGFI
U"QEHH#FQE2%FN2/%ijhq%fwjE%xzgELgDCC)>=EM&GFQE&HFQE)GGFQ1EHHF.QE2
U"F%N2/i%jhqf%wjEx%zgEhM742:Ll0<4LtE4A%EMN2%/ijh%qfwj%ExzgIEh74D2
U":r>2E4BE%MN2/%ijhq%fwjE%xzgELh><?MDC4ALr>E4&BEMN%2/ij%hqfw%jExz
U"#gEi4MC42CM&>A:28=6i)8AEM%N2/i%jhqf%wjEx%zgEi2A0FgM>0A3%EMN2%/i
U"jh%qfwj%ExzgIEk>=JCuA8)=CEMJ'u>B#FQE(1u>BF#QEy4)GCIQIEh>;2>DAF%
U"N2/i%jhqf%wjEx%zgEq2>03k2>=CE%MN2/%ijhq%fwjE%xzgELw40;D;HvD)8CE
U"M%N2/i%jhqf%wjEx%zgEy24BChM4;;B.EM?F.QE#F%N2/2%/hts%xyEy%wzjE%b
U"EV2%/hts%xyEk%fqxj%EbEU%2/2/%inrE%xmfw%jiEk2>=CE%fxEx%ywns%lEOE
U"%XU2/%inrE%xmfw%jiEk2>=Ch270AM%UEyt%EVW\%QEVE%ytEZ%QEVE%ytE[%NE
U"fx%Ensy%jljw%2/in%rExm%fwjiIEhDA1i8AI%2/2/%inrE%xmfw%jiEl%MVEy%
U"tEXQ%EVEy%tEXN%2/in%rExm%fwji%EkMV%EytE%XQEV%EytE%XN2/%2/in%rEx
U"m%fwjiIEr>E)4BQE%nv2/%inrE%xmfw%jiEm2&>=QIEh&>&=2/i%nrEx%mfwj#i
U"El0D<4tE)4AEf%xEns%yjlj%w2/i%nrEx%mfwj#iEu;M0H43Ll0<4%2/2/%hqx2
U"I/i4CM42C&M>A:8D=6i8&A2/L1hDAi)8AIE%bEGh(_+vg.YZ+f%nynh&+G2/Lq>
U"03Lk>=C%2/2/%wfsi#trn)%jEyn%rjw2%/2/x%hwjj%sE\2%/htq%twEV%YQEV%
U"2/2/Ln=CA&>2/2%/hqx#2/q>)6>EW%UQEW%ZQEW%QEGf%nynh%GQEV%YQEV%Y2/
U"k2>=CuMA8=C%EWUQ%E^UQ.EG*h&,EbELh><?MDC4A%GQEV%Y2/k2>=CuMA8=C%E
U"WUQ%EVUU%QEGE%EEEELEB70D;;E1M468=%FGQE%VY2/Lk>=CLuA8=&CEWU%QEVW
U"%UQEG/*s,E#bEs4AFEl0)<4GQ%EVY2I/k>=JCuA8)=CEW%UQEV%YUQECG*n,%Eb
U"EhM70=6&4Env%GQEV%Y2/k2>=CuMA8=C%EWUQ%EV[U#QEG*#jxh,%EbEv2D8CEL
U"l0<4%GQEV%Y2/2I/iA0JFg>0)A32/#2/s4JFl0<&42/n%vEbE%VUU2I/u;02H43
U"l20<4E%bEU2%/2/x24;'E%bEV_IEx4;&(EbE#V2/G%EbEx24;'_(EHEbIEx4;&(
U"2/q%nsjE%M^ZE.PEGE%OEZU%QERW%ZEPE&HEOE%ZUNR%MVYZ#EPEG%EOEZ%UQEW
U"%ZEPE&HEOE%ZUNQ%EVWQ%Eg2/%2/itI2/&0D8Ck>JAp4H%_2/EIEp4H%IEbE%GG
U"_E%it_E1p4HI%EbEn#spj(%I_Eq%ttuE%zsyn%qEqj#sMp4&HIN2%/EExD4;t;)
U"3'EbIEx4;&'2/EIEx4;Lt;3(%EbEx24;(2%/EEx%jqjh%yEhf%xjEz%hfxj#IMp
U"4&HIN2%/EEE%Ehfx%jEGs%G_EsD4Fl0)<42/%EEEE%hfxj%EGnG#_Ef3M9DBC%n
U"v2/%EEEE%EEEE%EEEE%EElt#ytE&208CkD>Ap4&H2/E%EEEh%fxjE%GhG_%2/EE
U"%EEEE%EEEn#kEr>2E4BE%bEUE%ymjs%2/EE%EEEE%EEEE#EEh>M<?DCD4Ar>2E4
U"B2%/EEE%EEEE%EEEEIEr>E)4BEbIEr>E)4BEP%EV2/%EEEE%EEEE%EEEELk>=CL
U"uA8=&CEWU%QE^U#QEG*(h,EbIEh><M?DC4&AGQE%]2/E%EEEE%EEEE%EEEk2>=C
U"uMA8=C%EWUQ%EVUU%QEGE%EEEELEB70D;;E1M468=%FGQE%]2/E%EEEE%EEEE%E
U"EEi2A0FgM>0A3%2/EE%EEEE%EEEj%siEn%k2/E%EEEh%fxjE%hmwI%MUNE%PEGm
U"%G_Ex24;(E#bEx4);(ER%EV2/%EEEE%EEEE%EEEE%EEEE%EEEE%EEEE%nkEx24;
U"(E%abEU%Eymj#sEx4);(Eb%EX2/%EEEE%hfxj%Ehmw%IMUN%EPEG%pG_ELx4;'%
U"EbEx24;'E%REV2%/EEE%EEEE%EEEE%EEEE%EEEE%EEEE%EnkELx4;'%EabE%UEy
U"m%jsEx24;'E%bEX2%/EEE%Ehfx%jEhm%wIMU%NEPE%GrG_IEx4;&'EbELx4;'%E
U"PEV%2/EE%EEEE%EEEE%EEEE%EEEE%EEEE%EEnkIEx4;&'Ecb%EYEy%mjsELx4;'
U"%EbEV%2/EE%EEhf%xjEh%mwIM%UNEP%EGuG#_Ex4);(EbIEx4;&(EPE%V2/E%EE
U"EE%EEEE%EEEE%EEEE%EEEE%EEEn#kEx4);(Ec%bEYE%ymjsIEx4;&(EbE%V2/E%
U"EEEh%fxjE%hmwI%MVXN%_EnkIEl0<J4tE4&AEbE%ywzj%Eymj%sElt#ytE&208C
U"kD>Ap4&H2/E%EEEE%EEEE%nkElIMx4;&'QEx24;(N%EbEU%Eymj%s2/E%EEEE%E
U"EEE#EEEG%EbEx24;'_(EHEbIEx4;&(2/E%EEEE%EEEE%EEEgMDCC>J=uA4MBB43
U"%E^ZE.PEGE%OEZU%QERW%ZEPE&HEOE%ZUQE%VYZE.PEGE%OEZU%QEWZ#EPEH%EO
U"EZ%UQE\%2/EE%EEEE%EEEE.EECE%bEyn%rjw_%Eit_%Eqtt%uEzs%ynqE%ynrj%
U"wEcb(ECEP%ESW2%/EEE%EEEE%EEEEIEgDC2C>=E%^ZEP(EGEO%EZUQ%ERWZ#EPE
U"H%EOEZ%UQEV%YZEP(EGEO%EZUQ%EWZE.PEHE%OEZU%QE\2%/EEE%EEEE%EEEE%E
U"qns%jEM^%ZEPE&GEOE%ZUQE%RWZE.PEHE%OEZU%NRMV%YZEP(EGEO%EZUQ%EWZE
U".PEHE%OEZU%NQEV%WQEg%2/EE%EEEE%EEEE%EEnk%ElMx24;'QIEx4;&(NEb%EU
U"Ey%mjs2%/EEE%EEEE%EEEE%EEEE#lMx4);'QELx4;(%NEbE%Y2/E%EEEE%EEEE%
U"EEEE#EEiAD0Fg>20A32%/EEE%EEEE%EEEE%EEEELh742J:r>E)4B2/%EEEE%EEE
U"E%EEEE%jqxj%2/EE%EEEE%EEEE%EEEE%EltyItE&0D8Ck>JAp4H%2/EE%EEEE%E
U"EEE%EEjs%iEnk%2/EE%EEEE%EEEj%siEn%k2/E%EEEh%fxjE%hmwI%MW\N#_Ew4
U"M0;;HLvD8C%2/EE%EEEE%EEEE%EEEE%EEEE%EltyItE&0D8Ck>JAp4H%2/EE%EE
U"hf%xjEj%qxj_%EltyItE&0D8Ck>JAp4H%2/EE%jsiE%xjqj%hy2/%2/EE&GEbE1
U"x4;t2;3'_(EHEbIEx4;Lt;3(%2/EE%qnsj%EM^Z#EPEG%EOEZ%UQER%WZEP(EHE
U"O%EZUN%RMVY%ZEPE&GEOE%ZUQE%WZEP(EHEO%EZUN%QE\Q%Eg2/.EEGE#bEx4);
U"'_E&HEbELx4;(%2/EE%qnsj%EM^Z#EPEG%EOEZ%UQER%WZEP(EHEO%EZUN%RMVY
U"%ZEPE&GEOE%ZUQE%WZEP(EHEO%EZUN%QEVW%QEg2%/E2/%nkEl20<4t2E4AE%bE
U"yw%zjEy%mjs2%/EEELu;0HD43l0)<4Eb%EV2/%EEEk2>=CuMA8=C%EWUQ%EVWU#
U"QEG*(s,EbIEs4FIEl0<&4GQE%VW2/%jsiE%nk2/%2/qt%tu2/%2/xz#gEf3M9DB
U"C%nv2/%EEEE%uhtu&(EUQ%EV2/%EEEE%qnsj%EM[U%QE[Y%NRMW%[UQE%VYUN%Q
U"EUQ%Egk2%/EEE%Eqns%jEM[%UQE[%YNRM%W[UQ%EVYU%NQE\%QEg2%/EEEIEk>=
U"JCuA8)=CE\%\QE]%UQEGLh70=D64ECD74E0MAC85M8280J;E8=%RGQE%VY2/%EE
U"EELk>=CLuA8=&CE\\%QE^U#QEGCM4;;8M64=2J4EF8DC7ECD74E0MAA>F%GQEV%
U"Y2/E%EEEk2>=CuMA8=C%E\\Q%EVUU#QEG:24HBSIEhDAMA4=C%EnvE%bGQE%VY2
U"/%2/EE%EEit%2/EE%EEEE%nkEn%vEcE%VUUE%ymjs%EnvE%bEVU%U2/E%EEEE%E
U"nkE%nvEa%EUEy%mjsE%nvEb%EU2/%EEEE#EEk>D=CuA28=CE%V]ZQ%EVUU%QExy
U"%wIMn%vNEP%EGJE%EGQE%VY2/%EEEE%EEqn%sjEM%\\QE%VVZN%RMWY%XQEV%WZ
U"NQ%E\QE%g2/E%EEEE%Eqns%jEM\%]QEV%V[NR%MWYW%QEVW%YNQE%UQEg%k2/E%
U"EEEE%EnkE%nvEc%EUEy%mjsE%qnsj%EM\]%QEVV%[NRM%\]EP%EV[Y%ETEV%UUE
U"O%EnvQ%EVWY%NQEY%QEgk%2/EE%EEE2%/EEE%EEEp)4HIE%bEGG%_Eit#_Ep4&H
U"IEb%Ensp(j(I_%Eqtt%uEzs%ynqE%qjsM1p4HI%N2/E%EEEE%Exjq%jhyE%hfxj
U"IEp4H%I2/E%EEEE%EEEh%fxjE%hmwI%MUNE%PEGm%G_En%vEbE%nvEP%EV2/%EE
U"EE%EEEE%hfxj%Ehmw%IMUN%EPEG%pG_E%nvEb%EnvE%REVU%2/EE%EEEE%EEhf%
U"xjEh%mwIM%UNEP%EGrG%_Env%EbEn%vEPE%VU2/%EEEE%EEEE%hfxj%Ehmw%IMU
U"N%EPEG%uG_E%nvEb%EnvE%REV2%/EEE%EEEE%Ehfx%jEhm%wIMW%\N_E%uhtu&(
U"EVQ%EU_E(j'ny%Exzg%2/EE%EEEE%EEhf%xjEh%mwIM%VXN_%Euht(u(EV%QEU_
U".Ej'n%yExz%g2/E%EEEE%Ejsi%Exjq%jhy2%/EEE%Eqtt%u2/j%siEx%zg2/%2/
U"xz#gEgDMCC>=.EMGQ(EHQE)GGQE)HHQE&2N2/%EEEE%qnsj.EMGQ(EHNR1MGGE%
U"REVQ1EHHE%REVN%QE\Q%Eg2/%EEEE%qnsj.EMGE%PEVQ(EHEP%EVNR1MGGE%REV
U"Q1EHHE%REVN%QE]Q%Eg2/%EEEE%qnsj.EMGE%PEVQ(EHEP%EVNR1MGGE%REWQ1E
U"HHE%REWN%QEVZ%QEg2%/EEE%Eqns#jEMG%EPEW.QEHE%PEWNIRMGG%EREWIQEHH
U"%EREW%NQE\%QEg2%/EEE%Eqns#jEMG%EPEW.QEHE%PEWNIRMGG%EREXIQEHH%ER
U"EX#NQE2%QEgk%2/js%iExz%g2/2%/xzgIEgDC2C>=uMA4BB)43EMAGQEHIQEGGI
U"QEHH.QE2N%2/EE%EEqn%sjEMAGQEH#NRMGAGQEH&HNQE%UQEg%2/EE%EEqn%sjE
U"MAGQEH#NRMG&GERE#VQEH&HERE%VNQE%]QEg%2/EE%EEqn%sjEM&GEPE#VQEH%E
U"PEV#NRMG&GERE#VQEH&HERE%VNQE%\QEg%2/EE%EEqn%sjEM&GEPE#VQEH%EPEV
U"#NRMG&GERE#WQEH&HERE%WNQE%\QEg%2/EE%EEqn%sjEM&GEPE#WQEH%EPEW#NR
U"MG&GERE#WQEH&HERE%WNQE%VZQE%g2/E%EEEq%nsjE(MGEP%EWQE&HEPE%WNRM)
U"GGER%EXQE)HHER%EXNQ(E2QE%gk2/%jsiE%xzg2%/2/x%zgEhM742:Ll0<4LtE4
U"A%2/2/%ktwE&GEbE%VEyt%EX2/%EEEE%nkEl(MGQE%VNEP#ElMG%QEWN%EPEl(M
U"GQE%XNEb%EVWE%ymjsIEm&>&=EbE%ywzj%2/EE%EEnk#ElMG%QEVN%EPEl(MGQE
U"%WNEP#ElMG%QEXN%EbEX%Eymj#sEh&)>=Eb%Eywz%j2/E%EEEn%kElM#VQEG%NE
U"PE%lMWQ(EGNE%PElM#XQEG%NEbE%VWEy%mjsELm&>=%EbEy%wzj2%/EEE%EnkE%
U"lMVQ(EGNE%PElM#WQEG%NEPE%lMXQ(EGNE%bEXE%ymjsIEh&>&=EbE%ywzj%2/s
U"jA'yEG%2/2/%nkEl%MVQE%VNEP%ElMW%QEWN%EPEl%MXQE%XNEb%EVWE%ymjsIE
U"m&>&=EbE%ywzj%2/nk%ElMV%QEVN%EPEl%MWQE%WNEP%ElMX%QEXN%EbEX%Eymj
U"#sEh&)>=Eb%Eywz%j2/n%kElM%XQEV%NEPE%lMWQ%EWNE%PElM%VQEX%NEbE%VW
U"Ey%mjsELm&>=%EbEy%wzj2%/nkE%lMXQ%EVNE%PElM%WQEW%NEPE%lMVQ%EXNE%
U"bEXE%ymjsIEh&>&=EbE%ywzj%2/2/%jsiE%xzg2%/2/x%zgEhM742:Lr>E4&B2/
U"2I/k>=JCuA8)=CEW%UQE^%UQEG/*h,E#bEh>M<?DC)4AGQ%E]2/Lk>=CLuA8=&C
U"EWU%QEVU%UQEG%EEEEIEEB720;;EM1468&=FGQ%E]2/#2/h7242:l20<4t2E4A2
U"%/nkELm&>=%Eymj%s2/E#EEl0D<4tE)4AEb%Eywz%j2/E#EEk>D=CuA28=CE%WU
U"QE%[UQE(G(tz(E&ts%FGQE%VW2/%EEEj&'nyE%xzg2%/jsi%Enk2%/2/rM>E4B%
U"EbErM>E4B%EPEV%2/nkIEr>E)4BEc%bE^E%ymjs%2/EEIEl0<J4tE4&AEbE%ywz
U"j%2/EEIEk>=JCuA8)=CEW%UQE[%UQEG%fEiw(f&FG%QEVW%2/EE.Ej'n%yExz%g
U"2/j%siEn%k2/2#/LyDDA=E>J5E2>M<?DC)4A_2I/h><M?DC4JAr>E)4B2/LiA0F
U"Lg>0A&32/2I/h74D2:l0D<4tE)4A2/%nkEh2&>=E%ymjs%2/EEIEl0<J4tE4&AE
U"bE%ywzj%2/EEIEk>=JCuA8)=CEW%UQE[%UQEG&(tzE%qtxy%FGQE%VW2/%EEEj&
U"'nyE%xzg2%/jsi%Enk2%/2/rM>E4B%EbErM>E4B%EPEV%2/nkIEr>E)4BEc%bE^
U"E%ymjs%2/EEIEl0<J4tE4&AEbE%ywzj%2/EEIEk>=JCuA8)=CEW%UQE[%UQEG%f
U"Eiw(f&FG%QEVW%2/EE.Ej'n%yExz%g2/j%siEn%k2/2%/jsi%Exzg%2/2/%xzgE
END SUB
SUB V2
U"Lh><?MDC4ALr>E4&B2/2%/nkE%Mwsi%EOEV%UUNE%cEnv%Eymj%sElt%ytEwM0=
U"3>J<h4;&;2/2I/L2>M<?DCD4AE<2DBCEM1468&=_2/%nkErM>E4B%EbEU%Eymj%
U"s2/E%EEwf%sitr(n)jE%ynrj%w2/E%EElM%nsyM%wsiE%OEXN%EPEV%QEns%yMw
U"s%iEOE%XNEP%EVNE%bEV2%/EEE(j'ny%Exzg%2/js%iEnk%2/2/%jwfx%jEk2%/
U"2/LD8BE2M><?D2C4AEM01;41EC>EM<0:4CE0E;28=4ED>5ECM7A44%d2/y24BCh
U"M4;;B%EWQE%VUUU%2/2/1L8BEM7D<0J=E?;M0H4ALE01;J4EC>LE<0:/4E0EM;8
U"=41E>5EMC7A4&4d2/Ly4BCLh4;;&BE]Q%EYUU%2/2/1L8BEM2><?MDC4ALE01;J
U"4EC>LE2><M?;4C/4E0ELG2>A2=4AG1E>AELG;8=J4E>5LECF>%Gd2/Ly4BCLh4;
U";&BEVQ%EVUU%2/2/1L8BEM7D<0J=E?;M0H4ALE01;J4EC>LE2><M?;4C/4E0ELG
U"2>A2=4AG1E>AELG;8=J4E>5LECF>%Gd2/Ly4BCLh4;;&BEYQ%EYU2%/2/LMC0:4
U"LEC74LE24;J;E8=LEC74LE24=2C4A_%2/nk%ElMW%QEWN%EbEU%Eymj%s2/E%EE
U"kM%WQEW%NEbE%kMWQ%EWNE%PEW2%/jsi%Enk2%/2/hM4;;'%EbEU#2/h42;;(E%
U"bEU2I/h4;J;u>82=CBE%bEU2I/f;;Lj#D0&;EbE%V_ExM7>D;/3g4E%bEkM%VQE
U"V%N2/k#twEG%EbEV%EytE%X2/E%EEEk#twEH%EbEV%EytE%X2/E%EEEE%EEEn%k
U"EkMAGQEH%NEcELh4;;Lu>8=)CBEy%mjs2%/EEE%EEEE%EEEELh4;;Lu>8=)CBEb
U"#EkMG.QEHN%2/EE%EEEE%EEEEIEh4;);'Eb(EG2/%EEEE%EEEE%EEEhM4;;(#Eb
U"EH%2/EE%EEEE%EEjs%iEnk%2/EE%EEEE%EEnk#EkMG.QEHN%EacELx7>DD;3g4%
U"Efsi#ElMG.QEHN%EbEU%Eymj%s2/E%EEEE%EEEE#EEf;J;j#D)0;Eb%EU2/%EEE
U"E%EEEE%jsiE%nk2/%EEEE.sj'y(EH2/.sj'y(EG2/#2/L8M<?>AMC0=CLE<>E)4
U"B_2%/nkELr>E4&BEbE%VEfs%iElM%WQEW%NEbE%YEym%js2/%EEEw%fsit.rn)j
U"%Eynr%jw2/%EEEx%jqjh%yEhf%xjEn%syMw%siEO%EYN2%/EEE%EEEE%EEEh%fx
U"jE%U_El%MVQE%VNEb%EV2/%EEEE%EEEE%EEhf%xjEV%_ElM%VQEX%NEbE%V2/E%
U"EEEE%EEEE%Ehfx%jEW_%ElMX%QEVN%EbEV%2/EE%EEEE%EEEE%hfxj%EX_E%lMX
U"Q%EXNE%bEV2%/EEE%jsiE%xjqj%hy2/%EEEj&'nyE%xzg2%/jsi%Enk2%/nkELr
U">E4&BEbE%XEfs%iElM%WQEW%NEbE%VEym%js2/%EEEn%kElM%VQEV%NEbE%YEfs
U"%iElM%XQEX%NEbE%YEym%js2/%EEEE%EElM%WQEV%NEbE%V2/E%EEEE.Ej'n%yE
U"xz%g2/E%EEjq%xjnk%ElMX%QEVN%EbEY%Efsi%ElMV%QEXN%EbEY%Eymj%s2/E%
U"EEEE%ElMW%QEXN%EbEV%2/EE%EEEE(j'ny%Exzg%2/EE%Ejsi%Enk2%/jsi%Enk
U"2%/2/n#kEf;J;j#D)0;Eb%EUEy%mjs2%/EEE%nkEh24;;uM>8=C&BEym%js2/%E
U"EEE%EElMLh4;;&'QEhM4;;(%NEbE%V2/E%EEEE.Ej'n%yExz%g2/E%EEjs%iEnk
U"%2/js%iEnk%2/2/1L85ED=>E62>>3EM24;;LEF0BLE5>DD=3EC274=_#2/w0M=3
U"><Lh4;;%_2/i%t2/E%Ewfs%itrn&)jEy%nrjw%2/EE&GEbE%nsyM%wsiE%OEXN%
U"EPEV%2/EE&HEbE%nsyM%wsiE%OEXN%EPEV%2/qt%tuEz%synq#ElMG.QEHN%EbE
U"U%2/lMAGQEH%NEbE%V2/2%/jsi%Exzg%2/2/%xzgELi4C4M2C&>MA:8=J6i8A%2
U"/2/IEhDA1i8AI%EbEG%G2/2%/Etu%jsEG%fnyn%hSks%yGEk%twEw%fsit%rEfx
U"%EHVE%qjsE%bEqj#sMk>)=CN2%/EEE%EEEn%kEqt%kMVN%EcEU%Eymj%s2/E%EE
U"EE%EEEE%hqtx%jEHV%2/EE%EEEE%EEEj&'nyE%xzg2%/EEE%EEEj%siEn%k2/E%
U"hqtx%jEHV%2/Ep%nqqE%Gfny%nhSk%syG2%/2/E%uwns%yEGiM4C42MC8=6LEF>
U"AM:8=6LE38AM42C>)AHSS%SG$2%/2/E%xmjq%qEGh(i+G2%/Exm%jqqE%Ginw%E
U"fny%nhSk%syET%xETg%EcEf%nynh%Syru%G2/2%/Etu%jsEG%fnyn%hSyr%uGEk
U"%twEn%suzy%EfxE%HV2/%2/En%kEqt%kMVN%EbEU%Eymj%s2/E%EEEu%wnsy%E_
U"Eu%wnsy%2/EE%EEuw%nsyE%Gjww%tw_ELh>D;J3E=>JCE34MC42CLEF>AM:8=6L
U"E38AM42C>)AHSG%2/EE%EEuw%nsyE%GEEE%EEEELy74AJ4E8BCE0E528;4EM<8B
U"B28=6E%Mfny%nhSk%syNG%2/EE%EEuw%nsy2%/EEE.Ex(x%yjr2%/Ejs%iEnk%2
U"/2/%Eqns%jEns%uzyE%HVQE1hDAi)8AI2#/EhDJAi8A%IEbE%wywn%rIMq%ywnr
U"%IMzh%fxjIIMhDA1i8AI%NNN2%/2/E%ktwE&8EbE%VEyt%EqjsIMhDA1i8AI%N2
U"/E%EEEE%nkEr%niIM1hDAi)8AIQ(E8QE%VVNE%bEGf%nynh%Sksy%GEym%js2/%
U"EEEE%EEEE1hDAi)8AIE%bEzh%fxjI%Mqjk%yIMhDDAi8&AIQE&8ERE%VNN2%/EE
U"E%EEEE.Ej'n%yEkt%w2/E%EEEE%jsiE%nk2/#Esj'.yE82%/Enk%Ewnl%myIM1h
U"DAi)8AIQ%EVNE%acEG&+GEy%mjsE1hDAi)8AIE#bEhDJAi8A%IEPE(G+G2%/2/E
U"%hqtx%jEHV%2/Ep%nqqE%Gfny%nhSy%ruG2%/2/E%uwns%yEGt%pSG2%/2/j%si
U"Ex%zg2/%2/xz#gEiAD0Fg>20A32%/2/k#twEH%EbEV%EytE%X2/E%EEEk#twEG%
U"EbEV%EytE%X2/E%EEEE#EEEG%VEbE%^ZEP(EGEO%EZU2%/EEE%EEEE(EHVE%bER
U"W%ZEPE&HEOE%ZU2/%EEEE%EEEE&GWEb%EVYZ#EPEG%EOEZ%U2/E%EEEE#EEEH%W
U"EbE%WZEP(EHEO%EZU2%/EEE%EEEEIEgDC2C>=E&GVQE&HVQE&GWQE&HWQE%\2/E
U"%EEEE%EEEx%jqjh%yEhf%xjEl(MGQE&HN2/%EEEE%EEEE%EEEE%EEEh%fxjE%V_
U"Eh%nwhq#jEMG%VEPE%WZQE&HVEP%EWZN%QEVZ%QEVU%2/EE%EEEE%EEEE%EEEE%
U"EEEE%EEEE%Ehnw%hqjE(MGVE%PEWZ.QEHV%EPEW%ZNQE%VVQE%VU2/%EEEE%EEE
U"E%EEEE%EEEE%EEEE%EEEu%xjyE(MGVE%PEWZ%EREV#XQEH%VEPE%WZNQ%EW2/%E
U"EEE%EEEE%EEEE%EEEE%EEEE%EEEi.wf&E1G13W&?WQV%UG2/%EEEE%EEEE%EEEE
U"%EEEh%fxjE%Y_Eu%xjyE(MGVE%PEWX.QEHV%EPEW%ZNQE%VW2/%EEEE%EEEE%EE
U"EE%EEEE%EEEE%EEEi.wf&E(G2VW/7^4X/5^4^/5X6^/5^6X/7^6^/7X4^D1AW?%
U"YQVW%G2/E%EEEE%EEEj%siEx%jqjh%y2/E%EEEs(j'yE&G2/s(j'yE&H2/q%nsj
U"E%MVYZ%QEWZ%NRMW%^ZQE%V\ZN%QE\Q%Eg2/%2/js%iExz%g2/2%/xzgIEj=3Lx
U"2A4)4=2/%EExh%wjjs%EU2/.EE&n%iymE%]UQE%WZ2/%EEht%qtwE%VYQE%V2/E
U"%Ehqx%2/EE%uwns%yE_E%uwns%y2/E%Euwn%syEGmEEBFuFFFFuFFFFuFFFFuFF
U"FFuFFFFuFFFFuFFFF'4G2/%EEuw%nsyE[GEE3%Efny%nhER%Eynh%Eyfh%EytjL
U"EF8C&7Efn+E3G2%/EEu%wnsy%EGEEuAFFFuFFFFuFFFFuFFFFuFFFFuFFFFuFFF
U"F?FF5G%2/EE%uwns%yE_E%uwns%y2/E%EnkELu;0HD43l0)<4Ey%mjs2%/EEE%E
U"Euw%nsyE%GEEyM70=:LEH>DLE5>ALE?;0MH8=6LEC78&BEvgM0B82LE60<&4FG2
U"%/EEj%qxj2%/EEE%EEuw%nsyE%GEEm)4HFE2(>DEM383=CLCE42E4=E2CAHEDC>
U"E?2;0HE2C74EM60<4%FG2/%EEjs%iEnk%2/EE%uwns%yE_E%uwns%y2/E%Euwn%
U"syEG#EEi>M<8=8A:Ep0MB?0A%G2/E%Euwn%syEG#EEf7M>A=F)46EV%ZG2/%EEu
U"w%nsyE%GEEZ%[VZELk07AMF0=6)4=G2%/EEu%wnsy%EGEELxF8CMI4A;20=3G%2
U"/EE%uwns%y2/E%Euwn%syEG.EE4RM<08;I_E?423>:e2?>?SM06A81S27G%2/EE
U"%uwns%yE_E%uwns%y2/E%Euwn%syEG#EEy7D8BE?MA>6AD0<E8JBE5AM44F0)A4
U"FG%2/EE%uwns%yEGE.Ex>E2H>DE220=ED3>EFM70C42E4AE2H>DEMF0=CLEF8CJ
U"7E8CISE(>JDE20J=E<0M=8?DM;0C4LE0=3LE2702=64E28CBG%2/EE%uwns%yEG
U"ELEB>D2A24EM2>34IQE34M;4C4LEC74LEF7>D;4ECM78=6IQEB4D;;E8ACQE8M<
U"?A>DE4ECD74E6MA0?7282BED>5E8&CQG2%/EEu%wnsy%EGEE240CE)8CQEM38BC
U"MA81DDC4E8JCE8=LE?D12;82E20=3EMB02AM8582J4E8C1EC>E20=HE26>3SLE(
U">DLE0A4LE4E4&=G2/%EEuw%nsyE#GEE0M;;>FD43ECJ>E?0JHE5>JAE8CIQE1DJ
U"CE?;M40B4LE3>=CLCE?D0HE<2>A4EMC70=%EIVS%X[SG%2/js%iExz%g2/2%/xz
U"gIEk>=JCuA8)=CEMJ'u>B.QE(u)>BQELy4GC%IQEhM>;>D&AFN2%/2/E%ktwELy
U"4GC1u>BE%bEVE%ytEq%jsMy24GCI%N2/E%EEEE%ktwE&GEbE%VEyt%EZ2/%EEEE
U"%EEEE%Ektw(EHEb%EVEy%tE[2%/EEE%EEEE%EEEE%EExj%qjhy%Ehfx#jEk>D=C
U"h7)0AMf%xhMr%niIMLy4GC%IQEy24GCu)>BQE%VNNQ(EGQE&HN2/%EEEE%EEEE%
U"EEEE%EEEh%fxjE%U_Eu%xjyECM'u>&BEPE&GEPELy4GC1u>BE%OE[E%RE\QCE(u
U">&BEPE&HERE%VNQE%V2/E%EEEE%EEEE%EEEE%EEhf%xjEV%_Eux%jyEMJ'u>B#E
U"PEG%EPEy24GCu)>BEO%E[ER%E\QEJ(u>B#EPEH%EREV%NQEhM>;>D&A2/E%EEEE
U"%EEEE%EEEE%jsiE%xjqj%hy2/%EEEE%EEEE#Esj'.yEH2%/EEE%EEsjA'yEG%2/
U"Es(j'yELy4GC1u>B2%/2/j%siEx%zg2/%2/xz#gEn=2CA>2(/8Eb%EU2/%ktwE&
U"GEbE%WUEy%tEXW%UExy%juE[%U2/E%EEEgMDCC>/=EGQ%EWUQ(EGEP%EYUQ%E[U
U"Q%E\2/%EEEELgDCCD>=EG%QEVY#UQEG%EPEY%UQEV%]UQE%\2/E#EEE8#EbE8%E
U"PEV%2/EE#EEq>D6>EG%EPEV%UQEW%]QEY%QErn%iIMG%fnyn%hGQE&8QEV%NQEW
U"%QEVU%2/sjA'yEG%2/2/Lk>=CLuA8=&CEVW%]QE]%UQEG1y82E1y02E1y>4G%QE
U"VY#2/k>D=CuA28=CE%\\QE%^WQELGF8CJ7E0AMC858M280;LE8=CM4;;8M64=2&
U"4GQE%VY2/Lk>=CLuA8=&CE[W%QEVV%]QEGLuA>6MA0<<)43EV%^^^E)1HEiM><8
U"=)8:EpM0B?0&AGQE%VY2/.2/CE%bEyn%rjw2%/it2%/EEn%kEyn%rjwE.cECE%P
U"ESZ%Eymj%s2/E%EEEgMDCC>/=EGE%PEWU%QEVY#UQEG%EPE[%UQEV%]UQE%\2/E
U"#EEEG%EbEn%syMw%siEO%EZNE%OE[U%2/EE%EExj%qjhy%Ehfx%jEns%yMws%iE
U"OE%WN2/%EEEE%EEhf%xjEU%_Ehn%whqj.EMGE%PEYU%QEV[%UNQE%VZQE%VU2/%
U"EEEE%EEEE%EEEE%EEhn%whqj.EMGE%PEYU%QEV[%UNQE%VVQE%VU2/%EEEE%EEE
U"E%EEEE%EEux%jyEM&GEPE%W\QE%V[UN%QEW2%/EEE%EEEE%EEEE%EEEi.wf&E1G
U"13W&?WQV%UG2/%EEEE%EEhf%xjEV%_Eux%jyEM&GEPE%X\QE%V[UN%QEVW%2/EE
U"%EEEE%EEEE%EEEE#iwf&.EG2VCW7^4CX5^4C^5X6C^5^6CX7^6C^7X41^1AW&?Y
U"QV%WG2/%EEEE%jsiE%xjqj%hy2/%EEEE&CEbE%ynrj%w2/E%Ejsi%Enk2%/qtt%
U"uEzs%ynqE%qjsM%nspj&(IN2%/jsi%Exzg%2/2/%xzgELq>03Lk>=C%2/2/%Etu
U"j#sEhDJAi8A%IEPE%Gfny%nhSk%syGE%ktwE%wfsi%trEf%xEHV%Eqjs%EbEq%j
U"sMk2>=CN%2/2/%EnkE%qtkM%VNEb%EUEy%mjs2%/EEE%Euwn%syEGLk0C0A;EjA
U"2A>A_IEh>D2;3=LJCE58D=3E528;4E%fnyn%hSks%yG2/%EEEE%it_E%qttu%Ez
U"sy%nqEq%jsMn#spj(%IN2/%EEEE%hqtx%jEHV%2/EE%EEpn%qqEG%fnyn%hSks%
U"yG2/%EEEE%jsi2%/Ejs%iEnk%2/2/%Euwn%syEGLq>0328=6ELk>=C%SSSG%$2/
U"2%/EktIwEA4&2EbE%VEyt%EVW\%2/EE%EEEl%jyEH#VQEA)42QELk>=C%2/EE#E
U"EEG%EbEU%2/EE#EEEH%EbEV%2/EE%EEEk%twEh2>34u)>BEb%EVEy%tEXU%2/EE
U"%EEEE%EEEn.kEGE%bEZE%ymjs(EGEb%EU_E&HEbE&HEPE%V2/E%EEEE%EEEE&GE
U"bE&GEPE%V2/E%EEEE%EEEELk>=CLh70ALMA42.QEGQ(EHNE.bE%f%qMrn%iIMk2
U">=CQIEh>3J4u>B%QEVN%N2/E%EEEE.sj'yIEh>3J4u>B%2/Es(j'yE2A422%/2/
U"E%hqtx%jEHV%2/2/%Euwn%syEG%tpSG%2/2/%jsiE%xzg2%/2/x%zgEq2>6>ECM
U"'u>&BFQEJ(u>B%FQEx28I4F#QEy4)GCIQIEh>;2>DAQIEkA0)<4N2%/2/E%ktwE
U"Ly4GC1u>BE%bEVE%ytEq%jsMy24GCI%N2/E%EEEE%ktwE&GEbE%VEyt%EZ2/%EE
U"EE%EEEE%Ektw(EHEb%EVEy%tE[2%/EEE%EEEE%EEEE%EExj%qjhy%Ehfx#jEk>D
U"=Ch7)0AMf%xhMr%niIMLy4GC%IQEy24GCu)>BQE%VNNQ(EGQE&HN2/%EEEE%EEE
U"E%EEEE%EEEh%fxjE#V_EG%VEbEJ'u>B#EPEG%EOEx28I4E#PEy4DGCu>&BEOE%[
U"EOELx8I4%ERE\%EOEx28I42%/EEE%EEEE%EEEE%EEEE%EEEE%EEEE&HVEbCE(u>
U"&BEPE&HEOELx8I4%EREV%EOEx28I42%/EEE%EEEE%EEEE%EEEE%EEEE%EEEE&GW
U"EbCE'u>&BEPE&GEOELx8I4%EPEy24GCu)>BEO%E[EOIEx8I&4ERE%\EOELx8I4%
U"EPEx28I42%/EEE%EEEE%EEEE%EEEE%EEEE%EEEE&HWEbCE(u>&BEPE&HEOELx8I
U"4%EREV%EOEx28I4E#PEx8)I42/%EEEE%EEEE%EEEE%EEEE%EEEE%EEEq%nsjE(M
U"GVQ(EHVN.RMGW.QEHW%NQEhM>;>D&AQEg%k2/E%EEEE%EEEE%EEEE%EEEE%EEEE
U"%EEqn%sjEM&GVQE&HVNR(MGWQ(EHWN#QEkA20<4Q%Eg2/%EEEE%EEEE%EEEE%Ej
U"si%Exjq%jhy2%/EEE%EEEE%EEsjA'yEH%2/EE%EEEs(j'yE&G2/E.sj'yIEy4GJ
U"Cu>B%2/2/%jsiE%xzg2%/2/x%zgEsD4Fl0)<42/%EEEELl0<4LtE4A%EbEk%fqx
U"j%2/EE#EEm&)>=Eb%EU_ELh&>=%EbEU%2/EE#EEr>2E4BE%bEU2%/EEE%Ejwf%x
U"jEl%2/2/%EEEELk>=CLuA8=&CEWU%QE^U#QEG*(h,EbIEh><M?DC4&AGQE%VY2/
U"%EEEELk>=CLuA8=&CEWU%QEVU%UQEG%EEEEIEEB720;;EM1468&=FGQ%EVY2%/E
U"EEIEk>=JCuA8)=CEW%UQEV%WUQECG*s,%EbEs)4FEl20<4G%QEVY%2/EE#EEk>D
U"=CuA28=CE%WUQE%[UQE%xufh%jIMW%UNQE%VW2/%2/EE#EEiAD0Fg>20A32%/js
U"i%Exzg%2/2/%xzgELw40;D;HvD)8C2/%EEEE%uhtu&(EUQ%EW2/%EEEE%qnsj%E
U"M[U%QE[Y%NRMW%[UQE%VYUN%QEUQ%Egk2%/EEE%Eqns%jEM[%UQE[%YNRM%W[UQ
U"%EVYU%NQE\%QEg2%/EEEIEk>=JCuA8)=CE\%\QE]%VQEG1fA4E2H>DEMBDA4LEC
U"70JCEH>JDEF0)=CGQ%EVY2%/EEEIEk>=JCuA8)=CE\%\QE^%^QEGDC>E;M40E4L
U"EC78JBEF>M=34A25D;G%QEVY%2/EE#EEk>D=CuA28=CE%\\QE%VV\QIEG60)<4E
U"M&(TsN%dGQE%VY2/%2/EE#EEp4&HIEb%EGG_%Eit_IEp4H%IEbE%nspj&(I_E%q
U"ttu%Ezsy%nqEq%jsMp)4HIN%2/EE%EEnk%Ezhf%xjIM1p4HI%NEbE(G(GE%ymjs
U"%2/EE%EEEE%Eit2%/EEE%EEEE.EEGE%bEns%yMws%iEOE%XWUN%2/EE%EEEE#EE
U"EH%EbEn%syMw%siEO%EWUU%N2/E%EEEE%EEEE&2EbE%utns.yMGQ(EHN2%/EEE%
U"EEEE%EEqn%sjEMAGQEH#NRMG%EPEV.QEHE%PEXN.QE2Q%Egk2%/EEE%EEEE%qtt
U"u%Ezsy%nqEq%jsMn#spj(%IN2/%EEEE%EEEjD=3x2MA44=%2/EE%EEEE.Ex(x%y
U"jr2%/EEE%Ejsi%Enk2%/EEE%Euht(u(EW%QEU2%/jsi%Exzg%2/2/%xzgELy4BC
U"Lh4;;ABEM?.QE#N%2/2/%nkEl%MVQE%VNEb%EUEy%mjs2%/EEE%nkEl%MVQE%WN
U"EP%ElMV%QEXN#EbE?%Eymj%sEkM%VQEV%NEbE%kMVQ%EVNE.PE#2%/EEE%nkEl%
U"MWQE%VNEP%ElMX%QEVN#EbE?%Eymj%sEkM%VQEV%NEbE%kMVQ%EVNE.PE#2%/EE
U"E%nkEl%MWQE%WNEP%ElMX%QEXN#EbE?%Eymj%sEkM%VQEV%NEbE%kMVQ%EVNE.P
U"E#2%/jsi%Enk2%/2/n%kElM%VQEW%NEbE%UEym%js2/%EEEn%kElM%VQEV%NEPE
U"%lMVQ%EXNE.bE?E%ymjs%EkMV%QEWN%EbEk%MVQE%WNEP(E#2/%EEEn%kElM%WQ
U"EW%NEPE%lMXQ%EWNE.bE?E%ymjs%EkMV%QEWN%EbEk%MVQE%WNEP(E#2/%jsiE%
U"nk2/%2/nk%ElMV%QEXN%EbEU%Eymj%s2/E%EEnk%ElMV%QEVN%EPEl%MVQE%WNE
U"b(E?Ey%mjsE%kMVQ%EXNE%bEkM%VQEX%NEPE/E%EEnk%ElMX%QEVN%EPEl%M
U"WQE%WNEb(E?Ey%mjsE%kMVQ%EXNE%bEkM%VQEX%NEPE/E%EEnk%ElMW%QEXN
U"%EPEl%MXQE%XNEb(E?Ey%mjsE%kMVQ%EXNE%bEkM%VQEX%NEPE/j%siEn%k2
U"/2%/nkE%lMWQ%EVNE%bEUE%ymjs%2/EE%EnkE%lMVQ%EVNE%PElM%XQEV%NEbE&
U"?Eym%jsEk%MWQE%VNEb%EkMW%QEVN#EPE#%2/EE%EnkE%lMWQ%EWNE%PElM%WQE
U"X%NEbE&?Eym%jsEk%MWQE%VNEb%EkMW%QEVN#EPE#%2/js%iEnk%2/E2%/nkE%l
U"MWQ%EWNE%bEUE%ymjs%2/EE%EnkE%lMVQ%EVNE%PElM%XQEX%NEbE&?Eym%jsEk
U"%MWQE%WNEb%EkMW%QEWN#EPE#%2/EE%EnkE%lMXQ%EVNE%PElM%VQEX%NEbE&?E
U"ym%jsEk%MWQE%WNEb%EkMW%QEWN#EPE#%2/EE%EnkE%lMWQ%EVNE%PElM%WQEX%
U"NEbE&?Eym%jsEk%MWQE%WNEb%EkMW%QEWN#EPE#%2/EE%EnkE%lMVQ%EWNE%PEl
U"M%XQEW%NEbE&?Eym%jsEk%MWQE%WNEb%EkMW%QEWN#EPE#%2/js%iEnk%2/EE%2
U"/nk%ElMW%QEXN%EbEU%Eymj%s2/E%EEnk%ElMW%QEVN%EPEl%MWQE%WNEb(E?Ey
U"%mjsE%kMWQ%EXNE%bEkM%WQEX%NEPE/E%EEnk%ElMV%QEXN%EPEl%MXQE%XN
U"Eb(E?Ey%mjsE%kMWQ%EXNE%bEkM%WQEX%NEPE/j%siEn%k2/E%E2/n%kElM%
U"XQEV%NEbE%UEym%js2/%EEEn%kElM%VQEV%NEPE%lMWQ%EVNE.bE?E%ymjs%EkM
U"X%QEVN%EbEk%MXQE%VNEP(E#2/%EEEn%kElM%VQEX%NEPE%lMWQ%EWNE.bE?E%y
U"mjs%EkMX%QEVN%EbEk%MXQE%VNEP(E#2/%EEEn%kElM%XQEW%NEPE%lMXQ%EXNE
U".bE?E%ymjs%EkMX%QEVN%EbEk%MXQE%VNEP(E#2/%jsiE%nk2/%EEEE%EEEE%EE
U"EE%EEEE%EEEE%EEEE%EEEE%EEEE%EEEE%EEEE%EEE2%/nkE%lMXQ%EWNE%bEUE%
U"ymjs%2/EE%EnkE%lMXQ%EVNE%PElM%XQEX%NEbE&?Eym%jsEk%MXQE%WNEb%EkM
U"X%QEWN#EPE#%2/EE%EnkE%lMVQ%EWNE%PElM%WQEW%NEbE&?Eym%jsEk%MXQE%W
U"NEb%EkMX%QEWN#EPE#%2/js%iEnk%2/E2%/nkE%lMXQ%EXNE%bEUE%ymjs%2/EE
U"%EnkE%lMXQ%EVNE%PElM%XQEW%NEbE&?Eym%jsEk%MXQE%XNEb%EkMX%QEXN#EP
U"E#%2/EE%EnkE%lMVQ%EVNE%PElM%WQEW%NEbE&?Eym%jsEk%MXQE%XNEb%EkMX%
U"QEXN#EPE#%2/EE%EnkE%lMVQ%EXNE%PElM%WQEX%NEbE&?Eym%jsEk%MXQE%XNE
U"b%EkMX%QEXN#EPE#%2/js%iEnk%2/E2%/jsi%Exzg%2/2/%up&'%9%/%%%%%%(S
U"?wJ:<UKd'[3%%'[3%%%.%%%%%%%%%&%E%*/P%%I%%082C82S25=Cu%p&'9%%/%%
U"#%%%]\lOKCRHF&+#a%%+%a%%.%%%%%%%%%&[%E%/&P.4%L%08CD82S1)0Bup%*+
U"%%%%%'%.'%=%.%%[p%%%%%
END SUB
V2
CLOSE:IF S=254AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB