ࡱ> *cmdCancelK0$J" Image1@O( #frOptionsK; {  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmStart Caption = "Hangman" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4560 StartUpPosition = 1 'CenterOwner VBFrame!frmAbout,7*J.+Jfko68 PI@\pMOCT Ba= ThisWorkbook=x%8X@"1Arial1Arial1Arial1Arial1 Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) mm/dd/yyyy                + ) , *   "    "@ @ " `9Hangman APics HData Button166_Click" ChosenLetter:$ ChosenList; Nada" wordlist;" wordlistbase:`i *1    0$}$}bN vҠ W*}n" vҠ WPNG  IHDRG*fgAMAPLTE@@@@@@@Gw&[4| 1[GFF^.7_7Fd_; ;PzdFO8y)w =w| pHYs4-}IDATxA0@ў`IppV@1/PhHk5._*WOCıcǦSΘqıc&M86qlt t -o&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86|ġm/\DZc&M86qlıc&M86qlıc&M86qlıcǦ?xgqvO3Վ}cu|Ymq\wnxp\{3m~PNG  IHDRG*fgAMAPLTE@@@@@@@Gw&[4| 1[GFF^.7_7Fd_; ;PzdFO8y)w =w| pHYs4-}IDATx[nP@QFIV;p0k› 4\>To&M86툕1'? M86qlıc&Mp@pvx>7~):-9ɘɐS 9ň3_ ɱi? ɱc&M86ql8ɹqlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlı#. y86qlıc&M86qlıc&M86qlıc&M86qltfߕ8.| s\o+x3َ>q\-;}[xb3pv{x`<8:M86qlıc&M86qlıc&M86qlشuԎ6&M IENDB`$}$}$}$}$}$}bZl'Һ_#i}naZl'Һ_#PNG  IHDRG*fgAMAPLTE@@@@@@@Gw&[4| 1[GFF^.7_7Fd_; ;PzdFO8y)w =w| pHYs4-}IDATxn@@QMHY? .pPv 86qlı-ޱz&M86qlıcǦ%h  4q>~):-9ɘɐS 9ň3_ ɱi/ ɱc&M86ql8O8y)w =w| pHYs4-} IDATxKnP@Aܖ8d3Oϔ l?*:޽$M86qlzlXzǿ M86qlıc&M+qvXḠkNLvO8y)w =w| pHYs4-};IDATxKn@@QVMp$_$vJelT~I86qll8s_&M86qlıcǦ%h  4q >~):͖`dȩ d\șO4񛿟 ɱc&M86qlsx4 h)I\<7&q7}jIw-'1c&M86qlıc&M86qlش$Ǧݝ9c5r<=9CNw\Kq4l/+c8rBxnva`K9`r<3h{qX:> 9PHMC 9[F:7r9FB.80M86qlش 86qlıc&M86qlıcǦc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıc&M86qlıcǦD7ıc&M86qlıc&M86qlıc&M86qlıcӛ'nn<wlx9;Njxybvp}?mMqܗvOlnx\vl=w㯎c&M86qlıc&M86qlıc&M86uƱc_PHm+_IENDB`b؇X>F~<ʖ=*}n؇X>F~<ʖ=*PNG  IHDRG*fgAMAPLTE@@@@@@@Gw&[4| 1[GFF^.7_7Fd_; ;PzdFO8y)w =w| pHYs4-}\IDATxQn@EYAܦRtTn=sal 8~h}_L:2Ȥ#G>q?L:2Ȥ#L:2Ȥ#LU8 ǂk.$;N~񔹎rْc!S7C:ȅt #S㋿OԑIG&tdґIG&"M#4)InMu\h+Px $:BȤ#L:2Ȥ#L:2Ȥ#L:2Ȥ#L RGǿ3ըIwu:d!kQG12q^ѐَw+QG12a!xlxXc0d2Ƞ1,bwR!SwB!ud u|A R.RGH7po t LG&tdґIGFtdґIG&tdґIG&tdґIG&tdґIG H udp,ԑ1RGxHZ!udq ԑ1RG&!udjrLԑ1RG.\Hc!udjsLԑ1RG>LH #ӑIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґIG&tdaO<Ȥ#L:2Ȥ#L:2Ȥ#L:2Ȥ#L:2Ȥ#L:2Ȥ#L:2Ȥ#L';G|S?4mw u َ̜UnRe99V2opym,sϓӑIG&tdґIG&tdґIG&tdґIG&tdґIG&tdґivMv4td of|IENDB`b: (*}W>}nv@SpPNG  IHDRG*fgAMAPLTE@@@@@@@Gw&[4| 1[GFF^.7_7Fd_; ;PzdFO8y)w =w| pHYs4-}IDATxaN"A>f0٩@=SC2SDw#SL92uWs/(Grdʑ)Grdʑ)G8q8 >fǍx/:̘!#bHx8̑Ix+dL92Ȕ#SL92Ȥtu8H"HqEz_ZEzߕ\Ϙ#TL92Ȕ#SL92Ȕ#SL92Ȕ#SL924q ̑iwg~ǏݘE.j;vǯ#(;nm'8!Վw1sc aŐbǝm㙡wxVH㡝2G&:'2G&pFH9BBȑrdʑ)Grd81Grdʑ)Grdʑ)Grdʑ)GrdʑiHb8RNο 7xQ3ruYG=q\r6v\qCדlqtCrErdՐZǝ1qw$Gh )u<B:rJ'/4:>=@ 7 Sheet1 PI@ C  dMbP?_*+%MHP 5P@g XX@MSUDOHP LaserJet 5P<d "dXX??U< $( {)ks!ck{kZ d  C *AHang1Pic`]&`}ld  C *AHang2Pic `]&`P}ld  C *A Hang3Pic `]&`}ld  C *A Hang4Pic`]&`H}ld  C *AHang6Pic `]&`}ld  C *AHang7Pic ]&`}ld  C *A Hang5Pic`]&`d}>@7 Sheet2 PI@ ]JdL  dMbP?_*+%MHP LaserJet 5P@g XX@MSUDOHP LaserJet 5P<d "dXX??UColumn BX ՛? A? 0Wu$c!?  X^?   D:?  F2b_?  !@ E吲?  hT ? xB----->@7 Sheet3 ThisWorkbook(__SRP_10<x__SRP_11!JKSheet1)P~  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIKLMNOQRSTUVWXYZ[\]^_`acdegijklmnopqrstuvwxy{|} 8~ #<k[@@3ѓFj[@@3ѓxj[@@3ѓk[@@3ѓME PSLSS0*6" <<N0{00020819-0000-0000-C000-000000000046}P @`|k ``|ki  "`|k $ `|k  &`xk`)(  % ,`xk)(  %% @p%%H  (x %   (x % % (x % (x %8h % % (x %P (xh`x (x0x (x 0xHxH@ 'Y8*\R1*#171$*\Rffff*52385927c0$*\Rffff*55385927c04" "  ( "08@ "HPX "  `hp "  xA@oh@A@ oPA@ o8A@o  A@oA@ ophBAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Activ () AddMOCTMenu EnBd BeforeClW(Cancel As Boolean(Removbe)Dea I Open3WindowFDByVal Wn4HCH59rU `iCCC 4CG0` ````` I IWW<   $b <   $b <   $b <   $b H l x `(bx H l x (bx 4444440rU @$`(A` #$`$$`(,`,I),A`0I)n<jx#<e[@@3ѓ Fd[@@3ѓxd[@@3ѓe[@@3ѓME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` %. %`h8@0'Y8$*\Rffff*4>385927ae4xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU  $1$Y$#4$$`rU @n__SRP_8b__SRP_9fBSheet2 h~__SRP_18z<jx#<m[@@3ѓ Fl[@@3ѓxl[@@3ѓm[@@3ѓME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` %0 %`h8@0'Y8$*\Rffff*53385927c04xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU v1$)v#4$$`rU @n__SRP_19'~BSheet3~__SRP_e__SRP_f%B<jx#<i[@@3ѓ Fh[@@3ѓxh[@@3ѓi[@@3ѓME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` %2 %`h8@0'Y8$*\Rffff*51385927b14xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU 1/1$Y/#4$$`rU @nModule1 Dp__SRP_2`,__SRP_3\frmStarth2c*\R1*#9e*\R1*#171*\R1*#172*\R0*#f*\R1*#b*\R1*#9d*\R1*#8f*\R1*#cd*\R1*#1d6*\R1*#1d5*\R1*#3c*\R1*#175*\R1*#b8*\R1*#b3*\R1*#c4*\R1*#229$*\Rffff*50385927af*\R0*#14*\R0*#1U 2 Hh<p&& (08@ 2H j ^ "P PX d ^ ,p   "   .1( @,`*O3r@3 H')rz:PxME@> P,@@0@D@6@H: @Jh< @N? @R@4h T`X k00`Vx`Xt`Zp 0` 4kI p`kY `p`ks`Zx l `pk""  `k`zhscr`t nic`rd o`lay s`hlay `xfame,`d rogr`b `` ``Pk## `k `pk 8 `k ZZ`l +j ` kx "" i" +& ` k .i" +$ `x",k8 <i" `(x`v`*p6@8 @<( @Bx4 @F8@L> @P@ @h@P8`0 ph(x%h P (  @ RT@z ( @ h @ X @ H @ 8 @ ( @  @ @ ( \`dn@ x @ h @d @T @@ D @4  ( \`dhjn@@ l @X \ @ X @p H @ 8 @ ( @  @`  @ @ @ @0 @H @x @ @ rvz~@ x``x`jz `$&@h @X @H @(8 @@( @X @ @ (@`dvn\@Xt @pd @` @P @@ @0 @ @ @ @ @0 @H @` @x @ @ @ 6@@p @` h6j@l @\ @ L @8< p@P, @h @ @ @ @ @ @ @ @ `H0x((@`\d68@\ @L @H @8 @P6 h(@H4 P@$ @ n@ @X @X 0 @` p >hj@ X%@`%@ *@ `*@ 8/ @`H /`P9@p @ @t @d @T @D @4 @$ @L:@  @p He@ pe pyr< @BDF@ @`@ HJ@ ` (h PLNnd@8l @\ @PL @< @8 @( @ @ @ @  @@l @\ @L @(< @@, @X @ @ @(6`@Xl @p\ X@L @< @, @ @ @ @ @  p  0 dnP\@\ @`L @H @08 @H( @ @x @ @ @ `r<> @B@ @ @ H  # @` 0 #DFHJ@ `p 1X  @ h!!!h!!!`&z !h!@!h @"X @"H @0"8 @H"( @`" @ @ 8X#p##P###0#`$z @##h#@x#n #P# @l $x# &@#\ @L @$< @, x#($ h@T+'Y8$*\Rffff*4;38592794*\R0*#12*\R0*#10*\R1*#27*\R1*#(3`38333.  403hE/*O1> @8?X0~p &1 "  "  "1(( 8@1x.( 1 "  " @ 6X "C HX  "   , @ `3P   D3    " ( >0 p 3 1 ( 2 > B( FH  4@x (  * 4   x3       " D    *(:3X &   * (8 @P X p     " B(P(xd,H 1P "h(x @  "  0,H .`B1 $7  \ <P<h6 6 6 6(@HP X  H`- 8:  (0( "H X x @  $2@ "Px 4D3 (  H0 x  29   ( 08@ 4H 6 :( 00 `p &A 8 ? -  H0 x   ` 2 Hh p : B (0( %H X bh "(( "  "( P ` hp x &  "  <( @8 x4 (FJ    1 (08 @  H 1P .Lh 2 ! 4         (   0 8 0@  ` p x  8 ( : L! `!x! "! $! !!!! !! ! ! "" "  ".0"P"  X"h"  Rx" "="-"#  R#h##=#-# # (# # #.$ $0($ H$ "P$ $X$43$ $ "$  "$LH04 $ % "%  % (%(H%-`%(p% % %.%% .% 4&@;@& 0& L& "' '( '-@'(P' !h' .x' 1' '.L'"G(  ((  10(H(P(X(`( h(  p( 1x(  ( 2( !( 1( (  (())))  ) 0) 8)  @)H)  P) @`)()<)<)<)<*<*<0*<H*<`* (x* (* * Z* .(+X+ "`+p+ "x+H3++0+ + B , ^, dh, b,   8-H-P-X- 0`- &-- - -- -- *-(. $8. `. p.x. ... *."+... / B / X/H4h/ 8/// &/3 000 0 B 0 000 0 1 > 1`1 (x1*1 Z12 (2 H02 x22 :2 42 33 3 34xp] # the word being guessed in the game]  name of workbook]]. cell placeholder when copying pictures around]( lose condition counter]P name of picture string]]x]@]]]h]]] , splashscreen "HangMan" with a nice picture.d on splash, buttons play single player game, play two or more player game, input words, exit programW single player game assumes that there is a word list. If not, tell them to add words.hJ use this routine to get a list of words and dump them into range wordlist^ note that there must be a cell named "wordlistbase" one cell above where "wordlist" will liveW Also, assumes you will be on "Data" sheet--need to switch back to main sheet at bottom& (just before app.screenupdating=true)]]] \(^ set sWord to not ""word'V' make sure I'm on the appropriate sheetData$`B@b start entering words VEnter next word V wordlistbase$d%fB@HB call function to check if anything other than a letter was chosen V$jGlj n!p. add a random number to help with the sorting.=Rand() n,f r%fB@H VG V r(pjl wordlistbase$d%fB@H n!t 'X v n%!t'Z Z X  n%xB@Hwordlist$zB@|wordlist n!$ ~!zB@ switch back to main sheet hereHangman$`B@H \(^o \(^Data$`B@bwordlist$dB@1 delete column with random numbers to be completeB:B$B@H  nB@|4a1$dB@H return to starting sheetHangman$`B@H \(^o09this sub is used when the user inputs the word to be used/ this is just in case word has too many letters grab word to use in HangmanxOK, now, one player look away or hide your eyes while the other one types in the word for you to guess. (Max 20 letters)Hangman$h'6A call function to check if anything other than a letter was used. 6$jGj check if player hit cancel 6G|j get ready to play& check for length of word < 20 letters 6 FThe word you typed has more than 20 letters. Please try another word. HangmanA@d*Got it. Click 'OK' and get ready to play. HangmanA@kA@op]7 this sub is used when the word is selected from a list select the range wordlistdata$`(data$`B@Hwordlist$dB@H+ resize wordlist to include randome numbers v n%!t'Z Z  n%xB@H@ sort by random numbers and pick the first word on the list now.B2$d    nB@a2$dB@H n!p'6data$`( 6]You must first put words into the list in order to play the single player version of Hangman. HangmanA@ B@dA@ko= When a choice is made on frmStart, iSelect is set to a value RKT$ Click start w/o selecting an option You must first choose an option. HangmanA@KT chose to enter words onto list B@A@T B@KT$ chose to remove all words from list B@A@ B@KT Single player B@A@KT Multiplayer4 B@A@KT cancel button|no]H]`3 individual letter in the word as it is broken down]x counter for for next loop] letter guessed by player]V marker for correct guess Could have been a boolean but easier to follow when it isn't]]] marker for duplicate guesses]Hangman$`B@H \(^e15$dB@H9 take the len of the word to have the number of character 6' use mid to grab each letter B@   grab the letter 6 $'' make sure that I'm on the right sheet. 8$B@bHangman$`B@H place the letter into a cell $'nV Put a border around each letter in the word to let player know how many letters it is   n%(   n%(  n% 9 9 9q   n% 9 9 9q   n% 9 9 9qx   n% 9 9 9q@ A Hide each letter in the cell by changing its font color to white n!(1 select the next cell over to add the next letter n%fB@b f2$dB@H B@ \(^ start the guessing'>'': Set thissheet = Workbooks(ThisBookName).Sheets(SheetName) > b ' Ask player to choose a letterPlease choose a letter.Hangman$h' check if guess is a letter $jGj- make sure the player only chooses one letter  )You may only choose one letter at a time. HangmanA@xkpB call function to check if anything other than a letter was chosen A@j if cancel is pressed Do you want to quit? Hangman$' A@| if yes then exitdphk`kX- make sure that we are working only with caps $'/ check to see if guess is a letter in the word.4 grab the ascii # value of the capital letter chosen $'Le15$dB@H* cycle through all the letters in the word B@   if the letter matches, show it n $ 2 Check to see if the letter has been chosen before n!!G'j n!( A set a marker to notify me later that letter was chosen correctlyCorrect''  win condition checker Y If letter has not been guessed previously, then we add that to our correct guess counter + otherwise, we don't increment the counter. G  'jd0Wrong'k select next cell n%fB@b; reset marker for player choosing same correct letter twice'f2$dB@H B@ !': \ show the letter on the used letter board by searching board and setting font color to black \(^b3$dB@HA@f2$dB@H \(^ Do some win condition stuff  A@x0k(d  error checking for cancel press |d \(^ B@6 add one to the hangman counter to see if player loses > '>9 If the letter doesn't match, change picture of Hangedman On Error Resume Next :$`B@b r.<Hang >$ $Pic'@ @ :$`% B@H B @ % 5'D5'F5'H5'JC@|qPPics$`B@bHang > $ $Pic'@ @ % B@H nB@ :$`B@b B@ n D9 F9 H9 J9 @9Nada9qxdp'Bk` B@ <B@Hk(k 1 show the letter on the usedletter board as aboveb3$dB@H4 grab the ascii # value of the capital letter chosenE if the player presses enter, the game needs to do somethiging clever enter is ASC(0)A@ \(^ do lose condition stuff here >A@xk'A@o  pause 1 second$'P$ Ph㈵> H B@ LA 'NL if letter is M or earlier, check down first column and change color of font N N n%fB@H n!(kK if letter is N or later, check down second column and change color of font N  N  N 'N N n%fB@H n!(kf2$dB@H pause 1 second$'P$ Ph㈵> x B@oP` do win game happy dance stuffCongratulations! You Win! HangmanA@o do player losing stuff here Change picture to loseroH]  show the full worde15:x15$dB@H n!(f2$dB@H pause 2 second$'P$ Ph㈵> ( ask players if they want to play again.. this needs to be a vbokcancel so if yes, goto!Do you want to play another game? Hangman$') reset the game to blank and ready to go.F either way, clean up the game and then decide what they wanted to do. \(^ B@ Chosenlist$dB@H n!(e15:x15$dB@H nB@|( reset the picture to the starting pointHangman$`B@b r.<Hang > $ $Pic'@ @Hangman$`% B@H B @ % 5'D5'F5'H5'JC@|qPics$`B@bHang1Pic'@ @ % B@H nB@Hangman$`B@b B@ n D9 F9 H9 J9 @9Nada9q(d 'Bk <B@H9 Clear out the borders so that the screen is fresh again.e15:x15$dB@H   n%(   n%(   n%(   n%(   n%(   n%(   n%(   n%(f2$dB@H" finish play again figuring stuff. T figure out what kind of game was played by checking against variable grabbed at the' beginning of the game. iSelect (0 - 5)A@ \(^d \(^-Thanks for playing Hangman. Have a good day! HangmanA@k B@o`8W this function evaluates whether a string consists of several letters or simply one and] then calls another function to either break the string down into its component characters or\ simply check if the individual character is a letter and not another valid ascii character. "'jzk* take length of string and evaluate length call function to break it down " "$$'jdx'jkh$ call function to evaluate character "e set boolean for the function "$&'jd'jkd# string had no characters in lengthError checking letters.A@'jk`iXR this function determines whether a particular character is a letter (a-Z) or not. "$[ "$@  "${ "$` 2 if that character is a letter then we return true'&dh if it isn't a letter then falsexHangman cannot use anything other than a letter in its words. For example: there cannot be any punctuation in the word. HangmanA@'&ki]X]p] get length of string "'(8 cycle through each charcacter and see if it is a letter  (" take each character one at a time " $'*S run the character through evalchar function and if it isn't a letter, return false *$&'$ A once we return a single false, that's good enough so now we exitz d 4 if it's true, we go to the next character in string - if they are all letters, then we return true'$kP H i@ 8 V FThe word you typed has more than 20 letters. Please try another word. HangmanA@k@3VEnter next word and click OK, or press Cancel to stop entering words. (20 Letters Max) Enter Word$h'V 3&Better luck next time. The word was: 6$ HangmanA@X4 \B@p4ϸAttribute VB_Name = "Module1" Option Ex@plicit@Base 1  Pub4 strWord As Sng ' the w(bei guessed in2g|va>kbookBVarianteCnofG  DimmThisSheetrJMem Ecell placeholder when copypictures around#bHangC0By' lo{condicerP$H`2]9Err_FlgBoolhean i=&Lef>Integc3Top WidthHeiDgh,bCh7nq<#bOffsZYTimR@| TypeInfoVer = 54 End (H  @ }(fR KQDBTahoma(2XLabel1@ (2`Label2@ $$ Image1@$4cmdOK@ (2TLabel3@ q(2\Label4@ O  Microsoft Forms 2.0 FormEmbkFsiSelecAK ' s`shscre@_"9Man" wi+a nice I2.' , !tonsAqy sPl lay@ A,two o r morLinputBs, exit program assumthat@i list. If not, tm to add1Sub GeJtAUL ()ut tinegXa Cdnd dumpA mrA!U )must be a d "A b "VeCabovy hef2@flive Also,&"you`6@  4"Data" sq--ne@|s:ch backama~B ) botto@/' (jcf!6appB.Cupda"g=trueB&~eS#CSlng@aRoBw]LongBot Ap!` on.SQUD Falsv v]s `+ " C@)"' make s I'mAV@rops(&).Activat%tart e@}r[#H(Whi@](#<> "EA nexaY") AD"U& RE(>).y(1, 0)B.u Re`T: gIAfBox()- a ck (OK,mps CanM=stK. (20 Letters Max)",e,' ca@KfunG#K/cheHiZfy`f@o@,r)@ban`\lb wpas c"`sLen") > T#Msg, "- ZtypWh` bn!5c s@~PawryaA.vbO`KOnlyam` GoTo ,ecE`(Ifc@Not Proc@[a trycB7.Value CbRX!a dom numb)helpx!Usor63Jc w"0,( 1)= %d(f)H2,eCO%c1WeAuw," c =S6A)B)-e"-g[aA=( A-  $B (xlDown).Resize(=-QGA5 >!QWp DPq>3`/2..Apc:=gX, #f3ToR1C1:=Ev C(' `7BR voWY ^ qZO %*G@QenQTǠXk+Sub` C1mfV?PPr ' dlumn, J.s1Hicomp3;VCopB:BF. Shift:=pxlTo1a1' reo`[q[^x d$҃sЅPЄ01=r5p?p wycE* Otoopmny O b8' 3S`0 t ]BdqbnowbPaBlawaydhideXr ey@wBo #Vo`Y>sa @C[o 0feZ2feees QRZng(D)3MZWbUhcr AQӀTQE!@ready-!71leng\D <rp#ppou adB prppgp REt %Goi!Cr'OK'u|d od2u hp844 )C4A\o55'3sCЂfrusЉew|ge2!`PS$tr" 'tdividual l uAaxt^broken dlow  x `cC for anext loop| B! g9aed᱅)DMa4rklmCA coTrr@  l&d Jbea (booEn* easi `\fol`low w~+isn'tc& &fg #fCh8eckm!du#ees #>3/8EAScrUp78e15`%EaH' take" F;y!ha&cc haracD dH= Len( uymid!grab`,chH#`veSA.U nprot@5 FCx@1 To$T`' b!BAV= Mide, x, 1msurQat I 'm[right sbWi Pws(vbDk@"k).A | R qP*c4bnc8ellCl= >U> 7D s' Pr*a arP4~d98 iC2 k `ojn>yt:S.BwsaiagonalLineSty"xlNon^Up).WithXgEdgeLeft$LContipnuouP2"WeB= xlThiQ.ColorInde!%u cs!S_ @[ O O .O O O O N   p/#!Ro o o ?' _2e t0tyQit0% c"qJwhip-F t£D"m"BadOhe ns# OffТ(0JhFNq|T[.fHSPS Draw Obj`Ts:=Tru@) @Sariokʎc11@1rFt_O#= Xx= "෹oFh'p?his"W^2Vs(;sBookNamem!Y\s(V`qo`i`Hb< 6q Rv:xf'kQREiA@ z= In`Boxx("PPl A";0".! i6fDa Not `cܓ_R) GoobR]# '`\PzDle oP,o1ety> pu#ay`ql1 @sa timeQ PVA caнfunuoP anytp\g oP5p4S wঐs%  s) ' if cancel is pressedIf strGuH = "" ThenhbCl= MsgBox("Do you want to quit?", vbYesNo, "Hangman"oEdH6 b CleanUpwExit Sub yes t e(Else 6GoTo Startnd IfE' make sure0at we aworking only widthpsU`Case(checksee ga letter inh 3d.*' grab ascii # value of capital chosbCWordAscHRee("e15").Selectcycl>rough allC)s) ActiveSheet.U nprotFoHr x1 `bCounsqp/matIs, show iH qC(ion@LXЏ' C[has `been Kf or I.Font.ColorInde3fBTruL-OBACset ark@notify me lalthw0D/corr[lyMa@C"Kf'[#ondLita.Wer'?ge7a**B[edviously,!Hnidd`  our  ac!D o7rwise,Adon'tPcremehe@Kerf*8K4FaE Q' + 1o+Wrongh+iE;k next lG 'DOff @(0, 1).Bj>' Dm: V play@E@ossa`E)EptwicR!C Ng@#f2̂|PAc| Draw ODbj Ps:=!`, Ce2Scenario (pThis@z N7T,}'#H{u%Sboa@by searlch%Ca@ .t=!f@`H |!black#7Applicaa.SNe d@= "Jg'b3'U~LB- ' so A 3@%xstufdݱ0/7,,G WixrxDo/3' err0aD @#b :6}ϵ+:Up1  'k' a)KonpoAL h㌠G}8l@xTbo`.FTax,doesAN"q,jz pictAAed` POn EResu G=6sa7F S@FvarMemf9Cel(KpPe" & Trim(Str('))p" QOtЇhapeϒ  !Not_Flgc+ WyS7iq Leftp.q?P0xTop!`WidС= ._SHeigh}.DPt*6 w$sPGrc p #/) P)o$Tq$1o}pʉ? 0 o 9Pas)t 9>C%h.F2 An4 On1 "NadaX4 χ w;P0rr2Nj}}t}DzC =}}${s abov1owԝ $]s Pder gqedPo do 1wthigQmvQnns ASC|(0jj~'aem} he˰Q8f= 6|i EndGameLose Exit DFo If, strMarker = "" Loop6CleanU hSub UsedLet ter()&' pause 1 second varTimV&While   < !+ 0.01 We; ActiveSheet.Unprotect bOffsetbChnWord - 65 ' if lN is M or earlier, check down first column and 0angeof fon:If ;< 13 ThDen7SelKi(on.K(, X0). F).ColorIndexdzaNa=́0A;4264==-@ ;1;89E>R_("f2"s0FɕPC Drawi ngObjss:=True, CjentScenario,/ĀAWinA.Hdo @ g happy dance stufMsgBox "gratuxs! You !", vbOKOnly, "HGman/ac+' ] playqlosa her%B elu@cnext$ t@w. B wAlwas: " & UCase(!o)#Ch: picture to er0'&DimAPAgain As4 V /aaqP' show the fullB Ge15:x15oHtoN2?72'c"ask1sq y w #4 JaA.thneedsbe "aBokcHl soayes, 8got &= ;("Do y J norbS?LYesNoLcaA b9Mem`CellCB{oPdj@sTrim(Str(bCount + 1))@;"/`C1_SIes?a=\qNot Err_Flgc Kth .ia Lef}.q?E0Top.`#Wid= ._SHeigh}.QߐV  s&ru* !rrP418 !gMCopy o&i& XPasW@=  >%h.ץ2 N!w=h $Onqon "NadaWwERG3/= I?<֠Cnr ouO bord(ers\tP s2OfPFhZa_JR 7!Bc(xlDiagonalD0).LineSty= xlN 1\\ 89ls= Fa A4>q6E7 = 7't boolean forBLC(@Av???4-hafd inMsgBox "E 64 OrN123u96d:'Ëan we retur''>8 wisn'@Hangm@[canusNy. cthae Gwords. F*exa@e: re " b p `  a.", vbOKOnly, "MEELEjLAKLDim b@@QByt݁xa$L" U' get$+d = Mcycle`&rough eachWcbseeF:oqb.x`#o#@taf C B1BtimH = Midb, x,H 1) ru`Sh =%`Tᬧg0u5N),E.f{)p9NotBc)4""1'ceX5a ng, at's good enso0Sw1e@woxQ^ 8!8tp<,go10nex=J@nT"y a5T8sQ eBDz NIfN}[CBL%lCC q6L%\  $ \$@q\L%lCAL%lCBL%lCC q6L %\  $ \$@q\L%lCAL%lCBL%lCC q6L %\  $ \$@q\L%lCAL%lCBL%lCC q-(L%\  $ \W$DCC\5$:(L%(%\  $ \"\5 rx4(\'8%:LE% $ \\0cL%c%c%\ $ @ \ FGHI\" \ $  \  \ ,Chpb,x pd@'$'D'T'd't:8N:LJN$$ 1l6$tdTD$l QllJ3'd't:8N:LKN$$ 6$tdllC  / ll09'd't:8N:LLN$$^`6$td` MlML@$ ?$`1l5$ll N >(\'8%:L;% $ \\\ $ @ \<\ rzbA\  $ \alML@$ ?$3\6$y8\  $ \W$DAC(L]3\6$pb-(L%\  $ \W$DCC\5$OChpd kbvf fPCh:(L%(%\  $ \"\5pb rx(\'8%:LE% $ \\0cL%c%c%\ $ @ \ FGHI\%\ $ @ \W$Q`\5$ kd " \ $  \  \(\'8%:LR% $ \\ S(\'8%:LE% $ \\" \ $  \  \fz  Tx   lh0(  " \ $  \  \\ $ @ \<\, ,4HFL%\ $ \ dH)\H\ $ ( Q\F:8U,ML@$ V$ Wt:Xd`06$tdJ0@HFL%\ $ \ dHY)\H5 4 10@\ $ @ \$Y  q\lA$ZU65$lA$[U85$lA$\U:5$lA$]U<5$ l q1H:L^%\ $ \ dH)\HL:8U,D$ Vt Wtd:XT`06 $tdT20@\ $ @ \Y\5!\  $ \_\4HFL%\ $ \ dH)\H\ $ @ \`\\  $ Q\6DL%Z8DL%[:DL%\<DL%]0FL%Q:La%bc  40cL%c%c%\ $ @ \ FGHI\(\'8%:LR% $ \\ S" \ $  \  \,i  cx Ch Mx Hb0  thl4 \H$tdTD$t4l dl@.l dl@\h㈵>Lg6lLH8 $ @ 8<8>A ?? =?@((%8  $ 8L"85L-(\%8  $ 8WlDCC85l? ?? ?=?@((%8  $ 8L"85L-(\%8  $ 8WlDCC85l(8'(%:\E% $ 88l dl@.l dl@\h㈵>Lg6lL0c\%c%c%8 $ @ 8 FGHI84$b rU~|  nI,-  !-. A.q..,..///# 0Q01y04)2Y3y3333 414Y4 a94a5 565556Q666 8Ihjyk] `?!"kk ldd1lOWSYQQllymomn9nqYnIbRnn```]nQaqanaKo pp1qaqq9r!qr tP" l $  l  lCx1X:\ %l $ l dX)lXlx=lx==O(8%(%l'H%:\% $ lXX)lX5@''''':HN:\N 1x6lxJI3'':HN:\N 6x ^8.l  $ lW :\]@l5 3(\%(8%:!%l  $ l"lE(\%(8%l $ ( lXX)lX5^ lx=8"lxF\%l $ ( l,l]O(8%(%l'H%:\% $ lXX)lX51l  $ lW#(\"qtl5>\%l  $ l$A#"qpl6@lplti\%(8%l  $ l%l5?:\%l $ l&XXu)lX5~l  $ lW':\%  $ X $ H X ( )lX61X:\%l $ l dX)lX" l $  l  lP(bx4 lX\" x $  x  x1d:h %x $ x dd)xd(x'T%:h% $ xox1:h%x $ ` x4x54.h%x  $ xx(x'T%:h% $ xx1d:h%x $ x dd)xd" x $  x  xH\$b xdD4HC''''':LN<<:l9N\\ 6\< Z0lJ3'':LN<<:lN\\ 6\<3'':LN<<:l:N\\ 6\< 8$b (\<3cP%`:d,%t $ t d`-)t`1`:d,%t $ t d`)t`(t'P%:d% $ tt>d%t  $ t0$A #"qxt60 Blxid%(@%t  $ t %t5 t $  t T txt'P%:d.% $ Qto0%%%(%f%%`  $ `/012345`50(t'P%:d6% $ tt*t  $ tW0 `t504fP%`:d,%t $ t d`-)t`03'`'p:PN  :d7N00 60 p`$ 8$b $t`0 p`Xpz kzM3'':HN88:hNXX 6X8 kz$ $ kz$ $ kz$  kz$  kz$@b X8  1H:L%\ $ \ dH)\H" \ $  \  \(\'8%:L;% $ \\Jz\ $ @ \<\ rzb4R,($rML@ =`1t6$B @\ $ \$>HH0)\H5$1H:L%\ $ \ dH)\H7tML@$ ?$\  $ \,\5$<%L%\  $ \$@CA\5$<%L%\  $ \$@CA\5$6L%\  $ \$@q\L%lCAL%l8lL<x83'':LN<<:leN\\ 6\<8$b \<PHMl@\ ?'':,N:Lf\< 6 \<P$b \<4(H'L%:\g% $ HH-(\%H  $ HW8DCCH58(H'L%:\E% $ HH8 d8@.8 d8@\h㈵>(g68(;'':LN((:\hN88^il68(" H $  H  HH $ @ H<H(H'L%:\i% $ HH-(\%H  $ HW8DCCH58(H'L%:\g% $ HH!H  $ HH1:\%H $ H d)HH $ ( QHL:LU,D8( V( W:X`06 8(G0@:\%H $ H d(Y)H5( 410@H $ @ H8YqHlA8ZU658lA8[U858lA8\U:58lA8]U<58 l q1:\^%H $ H d)H jT020@H $ @ H(YH5(!H  $ H_H1:\%H $ H d)HH $ @ H`HH  $ QH6D\%Z8D\%[:D\%\<D\%]0F\%Q:\a%bc 4(H'L%:\g% $ HH<%\%H  $ H8@CAH58<%\%H  $ H8@CAH58<%\%H  $ H8@CAH58<%\%H  $ H8@CAH58<%\ %H  $ H8@CAH58<%\ %H  $ H8@CAH58<%\ %H  $ H8@CAH58<%\ %H  $ H8@CAH58(H'L%:\E% $ HHl(\]3N k" H $  H  H" H $  H  H3'':LN((:\lN88 68(0c\%c%c%H $ @ H FGHIH0bl(H8( 0pz JO l )ApzJpz J l *upz~pz+'''8:h+NXX 6X8pz$b X84 N[Ѐ N@Ā N{Ѐ N`@pz|3'':HN88:hmNXX 6X8pz$b X8 Jx vxbl|*(<vl M\@, =,`1p6<,p *fpzopz vxl!P(bp<,    /rU T$`$`$`$`$!`$I`$q`$`$`$ `( `0(9 `0(a `0nrU %* ! 8I ,X! :99 9%a%%%%4%&`  8%&004033D193E2}J17J dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P Sub cmdCancel_Click()  Module1.iSelectS5 Unl oad MYEnd!( (ChoicoptEnterWords1E1 Remove2OptSinglePlay3Y#Multia4VUserForm_initial8izeAiJLƑvaAPkbookA\ctB. Sheets("Hangman").x __SRP_c#F__SRP_dESpecific__SRP_64`I  <&1&`I  @&1'`  D9'Qa'Hy'q'L%'` P% (` T1(Y(` X)A)f W    W  X$z lx $ x$$b x<   $b < z  $b < z  $b < z  $b < z  $b |cXx! x x5X(Tx$ Hx >TFXx1P:h%x$ x dP )xP,|$(b TxPX@<PL48T(rU d$ `$A `$ `$ `$ `$A `$ `nrU~| <   $b <   $b 8$b arU $ L:`g[@@3ѓU[@@3ѓ@[@@3ѓf[@@3ѓxf[@@3ѓg[@@3ѓME<SPSSS6" L LLLL<0{DD863C21-0313-11D3-B240-004033D193E2}{DD863C17-0313-11D3-B240-004033D193E2}P ,@`xk .`P|k 0`|+  2`|+ 4@`|+ 6`|+ 8`Pk % %@@x%%hP:~8`@x @h @X @T @P 4844x`4r@x 04P Pd 'Y8$*\Rffff*50385927af*\R0*#1d*\R0*#1e*\R1*#b8$*\Rffff*4;38592794*\R1*#cd*\R1*#c4*\R1*#229*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e 48<@DHLPTX! "  ( "08@ "H P` "h p "  "  " (1 4(R A@roP@A@o8 4(Ro 4(Rox 4(RoX@ 4(Ro8': ~!'8Hangman$`B@HoAttribute VB_Name = "frmStart"  Bas|0{DD863C21-0313-11D3-B240-rror msgs.s]$Customize Your Hangman2 name of customize sheet]$Hangman& name of first content sheetet Public MacXL As Boolean]$P < 600 wide c]$_( < 800 widen ]$iP > 800 wide]$d < 600 widele]$dx < 800 wide]$d( > 800 wideo ]$! Help context for this template]$Hangman n]$Templates Overview.hlpPify me]$%Microsoft Office Classroom Tools Helpt']$Templates,*.xltx che]$XLT8] Select Folder for Numbering File@en w]$Arialcorrec]$Genevah + o]$SSon4 ***************************************************j4 * Procedures specific to this particular template *4 ***************************************************me corA@oA@ oHo´Attribute VB_Name = "Specific" X' **b MS-Excel TemplaControl CodeF*1Copyright 1994-8 Village Software, Inc . 1A All R:s Reserved 1LICENSED FOR END@-USER  `ONLY.CODE MAY NOT BE I NCLUDIN COMMERCIAL1THIRD PARTY APP8ATIONS WITHOUT THE3EXPRESLWRITTE/SNT OFVILLAGE SOFTWARENCa C Version 8.5L Product-@{nstantsC Thw routines cēthe behavior of toolbars, tons, and or u-interface eleme(  95 ts .  Global0 opt@S$typedeclara&A6LJA*A\PublicCa SheetBarACalen@dar" '!d f'& & genererrmsgs. 1 Vit`Customize Your Hangmana n*zc&s Ⴠ01first>% ' MacXL As B?eanr ZoomA 80< 600 wide !2@' < 8;3 105 >LT 1 a! hlp/xt2Help-`BChisaP@SecAX@"7File_ G!Es Oview. N_@ Micros@ Of`e Classr< T@s a PSavʐ>Hʐ@HʘD(PBʘJxdBʘNdBʐTH ʐXH ʐ^h@HʐbPH@xhP(PHx(<%HangmanTemplates Overview.hlp%Microsoft Office Classroom Tools HelpTemplates,*.xltXLT8 Select Folder for Numbering Fileew.hlpArialGenevaSSpP 8PHx"'Y8$*\Rffff*4=385927ae$*\Rffff*55385927c06A 6 68 6p 6 6 6 6P 6 6 6 60 6h 6 < 8 P <p < < B0@x6  0P p 2 " 2H ,    :  :` : " " " (/ **********************************************an/ * MS-Excel Template Control Code */ * Copyright 1994-8 Village Software, Inc. *n/ * All Rights Reserved *xt/ * LICENSED FOR END-USER USE ONLY. *H/ * CODE MAY NOT BE INCLUDED IN COMMERCIAL */ * THIRD PARTY APPLICATIONS WITHOUT THE */ * EXPRESSED WRITTEN CONSENT OF *Sh/ * VILLAGE SOFTWARE, INC. *ye/ * */ * Version 8.5 *te/ * Product-Specific Constants *la/ **********************************************u 5 These routines control the behavior of the toolbars,2 buttons, and other user-interface elements of the MS-Excel 95 templatesosen5 ****************************************************5 * Global options, types, declarations, & constants *5 ****************************************************h]$Calendar'' used for toolbar & generic e`$`$`nrU~| Iz x-~ | ! Y-QIyI zp INN>!:x83'':LN<<:lN\\ 6\<8$ " $3  " . 3  "  Z 8 "@ H 8|h  "  L JY X ` h p x  " 3   / **********************************************an/ * MS-Excel Template Control Code */ * Copyright 1998 Village Software, Inc. */ * All Rights Reserved */ * LICENSED FOR END-USER USE ONLY. */ * CODE MAY NOT BE INCLUDED IN COMMERCIAL */ * THIRD PARTY APPLICATIONS WITHOUT THE */ * EXPRESSED WRITTEN CONSENT OF */ * VILLAGE SOFTWARE, INC. */ * 4(!Microsoft Office Classroom ToolsG{@Tahoma@@(.Copyright 1998-1999 by Microsoft Corporationu5Tahoma@qqR KQltBM6(??  ʦ?*?*_*U_*_*_**U****U****U****U****U***UUUUUUUUUU?UU?U?U?U_UU_U_U_UUUUUUUU */ * CODE CREATED SPECIFICALLY FOR */ * MICROSOFT OFFICE CLASSROOM TOOLS */ * */ **********************************************1 The code in this module was written specifically6 as a work-for-hire project for Microsoft Corporation.4 Village Software hereby grants to Microsoft, and by3 distributing this code Microsoft hereby accepts an7 irrevocable, non-exclusive, worldwide, perpetual right= and license to use, modify, market, sublicense, manufacture,: and distribute this template including this and all other8 included code modules, only as part of Microsoft Office6 Classroom Tools, directly or through resellers, OEMs,< distributors and dealers. With respect to Microsoft OfficeA Classroom Tools, such grant expressly includes the right to copy@ the routines in all included modules and to sublicense the codeC in object code form, and to modify the source code in all includedD code modules. Microsoft agrees that Village Software has and shallB in the future create products based on Microsoft Office, and thatE the Development and License Agreement associated with these routines does not abridge this right.]Excel will now start your browser and launch help for this template. If your browser cannot find the file, you should reinstall your templates and try again.] View Help]sWe are unable to start your browser. Start your browser and open the file 'Microsoft Office Classroom Tools Help'.] View Help0` Tell user how to change logoTo change this placeholder logo, click the 'Customize...' button, then click the 'Insert Logo' button at the bottom of the Customize sheet. vInsert Your Own LogoA@o(( Tell user how to change lettertype textTo change this text, click the 'Customize...' button, then type in your new information. Click the 'Change Font' button at the bottom of the Customize sheet to change the font. vEdit Header Text or FontA@o Print Active Sheet |!~B@o  Toggle Drawing CommandBarDrawing \%!Drawing \%(oX`HE If MsgBox(WebBox1, vbOKCancel + vbInformation, WebBox2) = vbOK Then ~!&:Microsoft Office Classroom Tools Help P B@|A@'ox p   rA@oPHAttribute VB_Name = "VSforMS" ', **b MS-Excel @TemplaControl CXodeF*1Copyright 1998 Village Software, Inc. 1BAll R9s Reserved 1LICENSED FOR END-USER  ONLY/CODE MAY NOT BE INCLUDIN COMMERCIAL1THIRD PARTY APP8ATIONS WITHOUTp THE2E XPRESLWR0ITTE/SNTx OFVILLAGE SOFTWARENC|":xMED@> L" LLLLLL DH @ > < BP H F J( Jx H L $` 8Pa ? CREAT?@ABCD7FGHIJKLMNPRdTUVWXYZ[\]^_`abcQefghijklmnopqrstuvwxyz{|T9;O:xMEh@> L*""LL LLh Thi`Bf By  `#o XX`\zmize`^t Thi``d ake `bbect  `+k  0 `-k ((`x Clo  `X/kp I PI k th  ``k "I stom p`1kP2I  `38+ A `X5|+Xꀚ@ꀜ@ꀠ( @ꀦx@XH` H h H h( H H˜KH0@0xX p0  Pp0h@(h0 pp %dYou can lock the information on the Customize page and save your customized version of the template.Unlock This Sheetock tBy unlocking this sheet, you enable changes to be made to the information on the Customize sheet. Select "Lock This Sheet" after you make your changes to protect the sheet from accidental changes.to=Your new customized template has been saved to the directory sY. To begin use, click Close from the File menu and then click New to open your template.ed to Save TemplateIYou must unlock the Customize sheet to change the logo for this template.n youOYou must unlock the Customize sheet to change the lettertype for this template.he logoUnexpected Error #Village Software provides a variety of business and financial spreadsheet solutions for Excel -- for both business and home use. For a free catalog, call 1-800-724-9332 or visit http://www.villagesoft.com.TTo switch back to the sheet you were working on, use the Window command on the menu.ttLockRange WorksheetoPNothingto the Empty(|~@x @h @d @T %@@D @4 @X$ @p @ @ @ @ @`d@ @ 0~h@x @t @d @T @HD @4 P8@l (@h\ @L @< `@, H@ @ (@ @ @ X0\~|`@x (@t @(d @@T @pD @4 @$ @ @ @@ ( @_  `^dfp @x @h \@x @h @ @x @h (@X @H h0@l `|B@h @@d X@`_ @@\ @L @< @@, @(  (p8 XP@` @x @h 8@d @T @8D @P4 @$ @h @ @ L\:@ @ @ H@h x@ @  X|B~2@ @( ` (%! @ @t @d @T @4D @84 @>@$ " 0!  !8P"!@ h h"X @`rR\n@h` @P P@ L @< @, @ @ >@ @P" @@ @D `"@!  @ >@!` !h @F( @H "@J @Lx @t @H!p ``!!@` @p!\ !H!,(@"X_ !p!, X>@T @D "!5X@@`0"!5@< `@""? p!P@", ! @" @" @ @" @ X@Z $p+hH*$)0*#@$#(+)`**X+)@`jdl@#\ @$L @$H @($8 @$( @X$ @@p$ @H% @h8 @% @n @pP @% @% @0% @% @`% @x%p @%` @ &P @%L @%< (@&8 @&( @& @8& @P& X@h& @& @& @& @p' X@& @@' @' @(' @X'p @'` p@'P @'L @'< @H(8 @'( @`( @( @( @0( p@( @x( @( @ ) @( @8) @( @( @)p @@)` @P)\ @h)L @H (@)8 @( @) @ @ @* p *) @_ x** @ @B$ @* *`*&@*`**&# @ +*3 @` +*3*<@@+ @ *X> @Z X,@,(, ,@p,l @,\ @,L @,< @,, @, @ @ .-0.-..(/.@`r\n@-t @.d @.` @.P @H.@ @`.0 @ @x. @@/ @@ @ @ /. @` .-X/>@ /x0p0`00010x1(1/00@l  0/0 @H0\ @L @1< @, `(@0( @$ @ 10@ @11@P1  @h1(1@ 1P1@o 1x1@ x1 P03h223H3222@l \@h @2d 22 @`_ 32@3P @3@ @0 @`3 @x3 @3 @ @ 2 p44454p444@l 4p4 5|JLNDFH@h @X @05P H54@@ @8 05 p0 A 'Y8$*\Rffff*4<385927ae*\R0*#19*\R0*#1a*\R0*#10*\R1*#19f*\R1*#19e*\R1*#a0*\R      *0 *` * " *  " (^ #0 #H !` x             ' !  (  0 dH X    " 2( ` p x " $    ' =  -     ( "0 $8 ` +h x -  ( j   )(84P `hp x    " % " ( )   (08@ H "P @X   *  -1  2  2X 2 " 8 $Q 80?@ F`=&FE E E&F &TH p -   ,f  @  -  B  @  H .X "h -x 1 4 A  % $?    ( ,f0 ` -h    81 F=&FD0 DP Dp&F   @ @ @P " (  $Q   1   .0HPX` h p Wx  " /            ( 8H `  p  /     .          ( 0 8H ` h  p x       /1  3    ( >0PX` h Ep (S) /  " 4  X`hp &Rx   4W   (0 -8 Xh px     +  0    ( 0 8 @ H P X ` h .Gp         E (S)@X` hpx   , , , "( "0  +X h *p * * "! ,! 8! $Q@!  h! 1x! ! D! W! *! ! ! ! ! " " ""  "/0"@" 3H"`" h" .p" ." ." B # :#  H# P#A`# x# # # ## # B # @# Hf#(@$`$  h$ 7$$ $$ $ " $ 4$ %%7(% (KH%p% x% $%%% % % B % D% & $ & 0&  @& H&  X&`&  h&p&x& $& &  & &  &&  &&&& "& (&' ('/ **********************************************an/ * MS-Excel Template Control Code */ * Copyright 1994-8 Village Software, Inc. */ * All Rights Reserved */ * LICENSED FOR END-USER USE ONLY. */ * CODE MAY NOT BE INCLUDED IN COMMERCIAL */ * THIRD PARTY APPLICATIONS WITHOUT THE */ * EXPRESSED WRITTEN CONSENT OF */ * VILLAGE SOFTWARE, INC. */ * */ * Version 8.5 */ **********************************************5 These routines control the behavior of the toolbars,2 buttons, and other user-interface elements of the MS-Excel 95 templates5 ****************************************************5 * Global options, types, declarations, & constants *5 ****************************************************] ] ] ] @] (] P]h]x]Lock/Save Sheet]dYou can lock the information on the Customize page and save your customized version of the template.]Unlock This Sheet]By unlocking this sheet, you enable changes to be made to the information on the Customize sheet. Select "Lock This Sheet" after you make your changes to protect the sheet from accidental changes.]=Your new customized template has been saved to the directory ]Y. To begin use, click Close from the File menu and then click New to open your template.] Save Template]IYou must unlock the Customize sheet to change the logo for this template.@]OYou must unlock the Customize sheet to change the lettertype for this template. ]Unexpected Error #h]Village Software provides a variety of business and financial spreadsheet solutions for Excel -- for both business and home use. For a free catalog, call 1-800-724-9332 or visit http://www.villagesoft.com.0 ]TTo switch back to the sheet you were working on, use the Window command on the menu.]Lock]X ]Range] Worksheet ]Nothing]Empty0$ ***********************************$ * Automatic execution procedures *$ ***********************************p$Initializes the worksheet properties \(^ \!$$MAC' CheckSheet ~( CloakSheet ~( CheckWindow |(  ` $  CheckEntry (k@8  `'d  ^'k \( ~!' $'A@A@d Start Hangman] when player chooses pick from list or two player grab a marker for that so I can have a goodR way to remember what type of game is being played when they choose to play again. B@o,Orderly closedown/pass-off of toolbars, etc. !A@A@foExecuted on worksheet changes  ~!' ~!$'k $  (kA@ho0manages hiding of vital sheet |!l  $  ~!'  $$.XLS $$.XLTG   $'j   ! @   @$`('A@dkd'kpkhk`kXPoHp \(o(!Executed on any entry in any cell ! @  'kA@ko9scales the default zoom factor to the user's monitor size  ` $  B@b  |(k  |B@3 B$`B@bo, *******************************************, * Button and Toggle/States support code *, *******************************************01Controls the Lock Sheet button on the Vitals pageLock @$`%!  $ ! @$`B@ Lock @$`%(  $`! (  PNL1_TXT1 $`%(dPNL2 $`%(LCK_1 $`%(LCK_2 $`%(P PNL1_TXT1 $`%(LCK_2 $`%!p $L' \!'    \! % %A@ A@: $ \%"' d $A@ A@: X& $ \%"' k  \!*'( \(*  |B@ B$`B@b @$`( ~ . 20C@,56'45'8q ( \(*  8    >A@k    \! % %A@d $A@kx A@:k` kX dP $ ! @$`B@ Lock @$`%(  $`! (  PNL1_TXT1 $`%(dPNL2 $`%(LCK_1 $`%(LCK_2 $`%(( PNL1_TXT1 $`%(k@ k8 o0 : *********************************************************: * Procedures which manage the logo and lettertype boxes *: *********************************************************p"Lets the user insert a custom logo]]]Lock @$`%!  !B'@ @$`B@b r.DLG %5'F5'H5'J5'LqN R \%P! \(^LG %B@|T@ n F9 H9 J9 L9 J9LG9NadaLogo9**C@q DB@H  ` $  B@b B@** r.DLG %B@H BLG %5'F5'H5'J5'LC@|q B@ n F9 H9 J9 L9LG9NadaLogo9'**9Vqd'Bkx DB@H B@**kH@ @$`B@bk( @$`B@**d  X >A@k|N $ X  >A@'|T    $ :  $'Z Z X >A@'d('B'k @$`B@bo-Adds text into the preview panels dynamically]8]P]h]vital1 @$`%d!d!f'\  $j'hd@ $j'hk(vital4$d$lvital5$d$l, 'nd'nkvital9$d$l 'pd'pk Evital1 @$`%d!p hvital2 @$`%d!p hvital4 @$`%d!p nvital5 @$`%d!p vital6 @$`%d!p hvital8 @$`%d!p pvital9 @$`%d'^r`  ` $  ^LT %!d(d BLT %!d! 9 9 9t9v9x9z9|9~ 9 9q \LT %%d!  9t 9q@d8'Bk(k |r    $ :  $'Z Z X >A@'d'B'kxpoh% ************************************% * Calls to customized dialog boxes *% ************************************Village Software credits box A@o$ ***********************************$ * Calls to Built-in Excel dialogs *$ ***********************************&Changes the font in the preview panels]Lock @$`%!  !B'@ @$`B@b r.LTR @$`%dB@H  \%P! n!5'5'5t'5' 9A@qk B@H @$`B@bd  X >A@ko( ***************************************( * Supporting procedures and functions *( ***************************************03Checks if a scenario is in a worksheet, returns T/F'   $`! ! 'kh`kXiP:Returns the template parent name of the input workbookname  $$.XLS $$.XLT   $'k $$   $$'dX 'kHi@.Unhides a hidden workbook, called on closedown   !$':  \%$ :  \% $'k   !G (jkH@o8p=Returns the proper default zoom factor for the user's display  |!XLT J'YLT L'S N'nd |!XLT D'YLT F'S8 H'n(k i"This area intentionally left blanko|Attribute VB_Name = "VSMacros" X' **b MS-Excel TemplaControl CodeF*1Copyright 1994-8 Village Software, Inc . 1A All R:s Reserved 1LICENSED FOR END@-USER  `ONLY.CODE MAY NOT BE I NCLUDIN COMMERCIAL1THIRD PARTY APP8ATIONS WITHOUT THE3EXPRESLWRITTE/SNT OFVILLAGE SOFTWARENCa B Version 8.5NC lA}Th@k routines cDthe behavior of toolbars, tons, and or u}-interface elements 95 ts . Global optG$typedeclara&A6sta#/JA*A^O Base 1 CPublic (LetAFR AHs SngStyleZCol/`I*gerizb&jCloak_Next bB8ean*XLd*kpFullU"st Lock_C!C/SavheetHTaYou can lPinfo4rm: aSCustom!pA!RsA your cqd vhY$P.9UnA H Tchang`mto@l maఏ@z . Sj`ct ""A(" afN" make prote@! from accidu`h$ "4_Alrt61r newC*%y has e$n /d dirory , 2 T!gin, cik Wg`lFi'uk nN  op>ePTit@K!dccPg`o_Err@pQm`I;bQO)@C(logo U@?3G!.e lGOUnivUnexp;zs#`)m_Dlg $v#s a variety^busdPpafinanci%spread solfc --bd *\hoe"Fa0+eeAta`"ap1-800-724-9332 `visit http://wPww.vcsP.xcomKT(P(switch back5, 1o n,*Windop1ommHI*%ckq<'/akTruecR1Dqs+|cW  p+;N! EmpozCq^Sy$Au Yatpex ec#cedu>rOa Sub _O>() Init%=1s!3p)pe0rtieaeAp pDa.Scr@eenUpdna-Falsp= (UC}(Le8ft(ngSys<, 3))!MAC"0 0cActivebook.OnSq`RQChe Sub  Cloa(Z'manages hiding of xvit2KOn Error ResuNextoindow.u <> xl0Infok"GoTo 0 "cNothK?@_UCase(Right(, 4)a".XLS" _#E$@l ^ # Frp1%T~BoxePNL1_TXT1@a?D Group72Oc;Os(CK__< .He8P' `4 al w=dvFDiqaCurA1 `TempdQlpIsPathMacXL*!ChDr (0VBA., In1(&A@SeparaW)~)1t  FileNm`GetSaveAsn@*(Title:=Q_G~ Mid 1x, 1 c on. a0s , / r ?p#` OWFlgDisplayAlerts j 䆃S?h?h1S=Grou p 2VisibleTru OrButton}CK_=8>kP>Height .40=End IfCCE ASub ' *5 Procedures which manage the" @o a"lettertype bm *|.@0 InsLogho()L@Bu  i a c`ustom# @mopL AstegerIDigpPicAVarianAErr_FlgABoolea?A K)Ȅ @ShtMemqA ctiveB.Index-AyDu atUSet BmCellW0ith nG"G (!algl.HLeflgAL.XTopwWidthhRaNOn )or GoToA8_1B#*Applica.ps(xl#?4t'@O ScreenUpd ng@Faf-#.De@X,2 b-S  >oȬ)+ )b-.)w(٦|lgh-N "LG"HOna@A"Nada!g"8 '*q9a.CXopyE6 L.KcF8Ea`ThisVjYAU :T ()`cWorks  .bWF]gkerb m2?m NotV၃Ab@ Kno8 #p.80(-II PasG c?o0h0. p1%.1.1go1!edORd= HA3!{P]F7/@x/N0;B:s(f)5! ӧ Msg#ugo_], @vbCritP\l,ABav% kUExi 1004 nA 6K @Univ & StrB ": "`o3Ft "<= %‰= W)0 Resume s @ ivV@1 eviewPaneRAdds t&to$pr" p0ls@ dynamA!lGfen1InSrĒ/Ф!LoopA1L=di(-Range("vqCharacusppu_M0acXL strCRChr(130.dIsEmpty(Y4"))%c!fal5Comma", ~Ws C9Fax ?tU2VaXlueP0_ +GOO.83? "P#6q 8F&_xNf8GoTo Err_2B For Each ThisSheet In  s| If TypeName() = cWorksdThen  J.DrawingObjects("LT").Characters.TextIStr%1A#sFlgFaxlseb^W itgFont .f-LetCColorIpndex !Sxizeikethrough'bupcrLipbsOutline].hadow U6r@xlNone%Styl7AEnd _k c(Start:=1, Length:=81). #Y + 10+EgL9IfCN@>OnҀ$Exit SubcA2B: ó <>/04 A@P6ĶMs`Univ_& () & ": "B Box , vbCritical,BarC @ /|#& _lTru$A Resume  E!sA N $ A'D **  Calls to customkd dialog boxes    VillageCre`dit() $ Software cbs! C5 ()VIL_Dlg_ ,Built-i Fxce~lEa#`ng~&he *f` @ t`preview panelก5Dim`9turn_1 xAs A bC(@Vital)xockAaptionHL_SW ! NtMemActive" .©sBatPSRed= Cell,Ra#!RSelΉ pApplb.DJs(xl#' ).Sh#D @ N @@""./%. P#"P".WuP5. #ShQ).VI5GwN/K%KlE82|S8Support pr@ocedurDa0Xfun*on88F CheckScenarios(Xtp`HGs i f a s inw, r/s T/FS?P$h. > 09%枦 .d)`3 g%'1Eg!% Pp]ntboo|k( !3,3St0empl*Rrent n@ of 1Tinput ?1aqQ UCase(RighBt , 4)".XLS" _c Or ok! 9T" Lefp - cG) IsN|ric e, 1 @? 1> D :WH1 {~Unhide_(WBFs5den,B led lcploseв&̊2Win`20Wa Trim.Ccr"$#No"sor(hSearch(":", .qt, YFP 9` 1 |'$>$ Visib2"G-1e!=] ZoomFP` 'I;@\ default z f0r;user's5ps=yq$/MacXL3l`Width'! > 1 60³A3W 0`60105{$2lq/a|c3Sy ActiveWindow.Wi@dth Case 1 To0 600XtZoomFactor( = 1 l60Qp105r2 9EXlsel3End Select If Funon Sub Nada() 'This area intentionally left blank  ?"  @/x64 A/@4 '%:hB%'$%'D%'T%x$ x |4x-(4 C @/64 A/B4 '%:TB%'$%:hD%'D%x$ x |4xfh]@t. x$ x khx" x$ x x-h%x$ Dx x1d:h)%x$ x d d')xd4fT%d:h %x$ x d d)xdx$ HQxA 'T%'d%'t%'%'%'$%'D%'T%h%   >F4D  0>F44c%V x$ x x?'$':DEN@:hF44:TG H6 4$ f x$ x '>F4 ?"  @/x64-(4 C @/64 A/z 8d:h*%x$ x d dW4.)xd54x 1d:h %x$ x d dI)xdF:$-%:T*%d:h %x$ x d d4+C,)xd54=:T-%d:h*%x$ x d dW42C,)xd54F:$J%:T4%d:h*%x$ x d d45C6)xd54Dc$%:T7%d:h*%x$ x d d48C)xd54Dc$%:T9%d:h*%x$ x d d4:C)xd54Dc$%:T;%d:h*%x$ x d d4:C)xd54F($(%:T4%d:h*%x$ x d d45C<)xd54X @b(D40 xd4$LQ:<*%L:P %`$ ` d L+A,: -]3)`L6`$ @`WK`1L:P %`$ ` d L')`L`$ (Q`.:PL%`$ @`+q`lAMlANlAOlA<x qKWPV%L`$ ` LPttaV)`Lt6" `$ ` `/:PL%`$ @`+Q`5Kr` $ Q`p pM pN pO xp< pO:PL%p :PR%pS pTcp U`$ Q`[\`rXn` #T0/Ta `' `I`$ (Q`/:PL%`$ @`+U`5 kf<.:PL%`$ @`+DDq@`l@AMl@ANl@AOl@A<x l@Q q@`$ @`V`` $ Q`<  Yo Z'',:PEN H6 , Y`` [`KE Y``rU~|  !A! !!"1Y" #q#i#-ZZ [I[[[q p A.I!WYJ )ROS \ A\y\\\\)]Q]]]Y3^^^a_ `Y -]Y9Qy`````.aaKQa,qaaNaNYIbabQb!cfAcQgqccc_ d9didddde1eqeeef9fifff g YQRg hQh1h<" x$ x x^t x$ x t>tFdT TD D:4]/$Vx6dTD# x$ Hx x# x$ Hx (x!:4%x$ Dx,oxx$ Qx[r< #t0/t/:4%C s S T_ Tx$ x x'tx$ Hx >tx!M4@d d`5d   $!0$txdTD$d,x"$# >xFh $5h %],$b xh0u'tx$ Hx >tx=tx$ Hx >tFdT T`x6dT-x$ @Qxod #t0/t5dfD%x$ @xx eH$b txdT$K+x$ Dxahl"x5hK-x$ @Qxoh #d=/d5h(dx$ Hx >dFhTxfTh  hD D:4]/$T   : ]/6hD&Th(4D"T$ $TTF4]3)x$ @xWh :4 ]@x5h 4f%:4 %x$ x d )x     K(bT4 dxhD$`,%fh% x$ x xo,$b xP)x$ @xWX :h ]3x5XJ  A   &4P$b xXH,h$ Qh[dlr`}l #\0/\p l'*L (Lh$ Dh,h5L ls`!-<%h$ Dh h1(:<)%h$ h d (')h(T0d`l\h(L Q:T*%d:h %x$ x d d4+A,:$-]3)xd6428d:h*%x$ x d dW4.)xd54-?cT%c$%d:h %x$ x d d/+0)xdF:$1%:T*%d:h %x$ x d d4+C,)xd54=:T1%d:h*%x$ x d dW42C,)xd54F:$3%:T4%d:h*%x$ x d d45C6)xd54Ef$%:T7%d:h*%x$ x d d48C)xd54Ef$%:T9%d:h*%x$ x d d4:C)xd54Ef$%:T;%d:h*%x$ x d d4:C)xd54F($P%:T4%d:h*%x$ x d d45C<)xd54T:T;%d:h*%x$ x d d4:A=$]3)xd64+'4 >54- x$ x >F4x f x$ x '>F4 [l YLL [l)`LPS:P\ Yo ]:<^, Yo Z6 ,)'':PEN H6 Y`` [`ypf Y`` [` /L`$ ` d L')`LK`Hp\X<D`xh8 T`Lt,hdR:8_%H:L %\$ \ d H`=aAbUpz)\H6 w  c  cW\'8%:Ld%$ Q\o eH'%:(f%$ QHo e6 :Lg :L-\'8%:Lh%$ Q\o e5@ :LiM :L:8_%H:L %\$ \ d H`A=:j%: %$  d `Ap=`P:(d%8:< %L$ L d 8`A=:f%: %$  d `A=p:`iP:(k%8:< %L$ L d 8`A=:l%: %$  d `A=p`:8h%H:L %\$ \ d H``1t)\HL8L8\H62p`PpPp`KO\$ Q\[rG #0/:+ltF(%:Lm%>+=aC66fL]3,0:Lm%>+=aAnq6FL%lC DL%lCo DL%lCpfL%lCqfL%lCrfL%lCsfL%lCtfL%lCuL%lCvFL%lCw qG((%z@:Lm%>+ axyAnq6 DL%lCpFL%lCw q8 fL sKE Y\\ [l YHH [l)\H-S:L\ Yo ]:8^ Yop` Z`P6 p`)'':LEN H6 Y\\ [\X cL Y\\ [\ KdT< dt(\HL8L8\Hp`PpPp`p0+'''<:lzN\\ H6\<0$b \<lQ:P*%`:d %t$ t d `0+A,: -]3)t`602t$ @tW0Kt1`:d %t$ t d `')t`t$ (QtxD:P{%`:d %t$ t d ``U)t`5Wd%`t$ t `0PaV)t`60*t $ tW0nqtlA0 `50lA0oU50lA0pU 50lA0w`50d%lCv & q xU/`t$ t d `')t`g3'':PEN:d|N00 H60l0bx(t`0 f\lL(\]tA$\%($ ( d $W<},)($,A< \35< c\l ,`8 l,($<Tfl\  \L L:<]/,l    : ]/6\L (<\(L"l, ,b l\  \ 5\7<\(L"l, , l5, <l (bl(\L, Xh$ Qh[dlr`l=P,@ ~@05P7: %0 @h$ hP h5PK: %0 @h$ hP(@"0 0h5P0 3lAPf ]35P c %lC ls`!4d`0lhP@< ph$ DhaXzBtPh5XoPXO (@dl|oPYo (@dl| (@dlph$ DhaXzBt8h5Xo8X (@Plo8Y (@_l (@ilHD(blhX8$b      $q`$`$`$ `$ `$9 `,a `a//( `/(`/$`$`nrU $`$`$`$`$!`$I`$q`$`$`$ `$ `Rffff*55385927c0*\R4*#52$*\Rffff*56385927c0$*\Rffff*52385927c0*\R0*#2*\R1*#185*\R1*#186*\R1*#183*\R1*#184*\R0*#f*\R1*#175*\R1*#cd*\R1*#b3*\R0*#14*\R0*#1*\R1*#b8$*\Rffff*4=385927ae$*\Rffff*4<385927ae*\R0*#19*\R0*#1a*\R0*#13*\R4*#30*\R4*#50*\R4*#4f*\R4*#4e*\R4*#4d*\R4*#8c*\R1*#c4*\R1*#229 6 68 6p 6 6 6 6P 6 6 6 60 6hHh(@2h "  2 < 2!$-G:xMEx@(L> ""LLL LLLLLL<|<hlHH Visit Website%% `\oQQ x%`v   P` 4ke xHRCIA% `@ Dk v `p k ` k P``Dk:: `@4 @$ 'p)@X @8 @ @  @h @ @P @ @ @ @ @ @ @@ @p @(` @P @L @H X/@D_ /3pX@l @\ @L @< xln@l @\ @L @< @, @0 @H @ @` @ p@ @ x`pr @l @\ @L @< @, @  @ @ z @z z @z xVT\P@l @@\ @ X ha@T @D |@4 @d@0 l \ @L P< @, o @  ` x0('Y8$*\0 2h 4 6 2 4H 0 2 2 ( <0px F \:a( h  Vx :d (  0 ;@ X $p    $    > 2P * ;    > <H * ; (  ; (( P ;h "  ;        ( 0 8 @ H "P X x H  , ::a@0T  " 4 3 10@ H"P<3X":3" $   !(  "8 H -X0p (   ,R  0 H X #hF& 4 ( G0 P`h    : &S -0( 'HX `  p ( "  "  " >d(hp$x3 "3 " " "    (0 8@H]p]Px"   / **********************************************an/ * MS-Excel Template Control Code */ * Copyright 1994-9 Village Software, Inc. */ * All Rights Reserved */ * LICENSED FOR END-USER USE ONLY. */ * CODE MAY NOT BE INCLUDED IN COMMERCIAL */ * THIRD PARTY APPLICATIONS WITHOUT THE */ * EXPRESSED WRITTEN CONSENT OF */ * VILLAGE SOFTWARE, INC. */ * */ * Version 8.5 */ **********************************************]This feature is not available in this version of Excel. Please visit our website (http://www.microsoft.com/education/k12) using your normal browser.0] Visit WebsiteX]Excel will now start your browser and go to the Microsoft K-12 Website (www.microsoft.com/education/k12). If your browser cannot find the website, you should check your internet connection and try again.]Visit Microsoft K-12 Website]&http://www.microsoft.com/education/k12(x MOCT Menu, Menu Item SubMenu On Action6---------------------------- -------------------, Customize Customize+ How do I... Email this doc HowEmail. Show/hide comments HowShowComm/ Display/Remove Sample ToggleSample+ Display System Calc ShowCalc- Visit Microsoft K-12 website VisitMSWeb) Display Help for this template HelpMe+ Display MOCT General Help ShowHelp, About MOCT ShowAbout]]5 set up error trapping so only one copy of menu added'? Look for MOCT - if there, will continue to next line and exit.V if not, will generate error. Error routine sets fMenuThere to FALSE, so continue on.MOCTWorksheet Menu Bar$%!MOCT G|jO If we got here, fMenuThere must be False (so we must have generated an error). So, build menu. lWorksheet Menu Bar$!%. MOCT9  !%. How Do I... (  !%.Email this Workbook (HowEmail (  !%.Show/Hide Comments (HowShow (8 Set sub3 = MOCTMenu.Controls.Add(msoControlButton), sub3.Caption = "Hide/Show Sample Data"$ sub3.OnAction = "ToggleSample"  !%.Show Calculator (ShowCalc (8 Set sub5 = MOCTMenu.Controls.Add(msoControlButton)6 sub5.Caption = "Open Encarta Research Organizer"# sub5.OnAction = "Nada" ' Nada  !%.Visit Microsoft K-12 Website ( visitMSWeb (  !%.Show Help for this Template (Help1 (  !%.Show General MOCT Help (Help0 (  !%. About MOCT (About (9qk|''o Rip it out'o'there]0A set up error trapping so if menu gone already, no error message.0% Look for MOCT - if there, remove it.3 if not, will generate error. Error routine bails.MOCTWorksheet Menu Bar$%!MOCTMOCTWorksheet Menu Bar$%B@|kH|@8'o(P-Controls Customize button on any Content Page' @$`( @$`B@HA@oHow do I email this document?  How Do I...A@o`How do I Show/Hide Comments?  How Do I...A@oControls Sample toolbar buttonF nB@ \(^ .  ~!z !qzqzqz $d(kX   ` $  B@b n$ GA1 %dB@Hj !B'  ! !' !B' $sample  $`%!.   $'current $' b$d!p  $  %B@|k   $`!B@ B@d  %B@kx kp h k` X    >$%!  >$%( b$d!p b$d(p  ~!z !qzqzqz $d(k  B@b!Application.ScreenUpdating = TrueP oH PInvoke the calculatorCalc.exe$' A@o p l   n$ G  B@j|( dA@ p   rA@o@ A@o PA@o Call to help file  V'd T'k  \!  \B@ \d kP oH  Show About form B@CT 99o \!  P \B@ Cannot locate your Internet server or proxy server-please make sure that your Internet connection is established. Alternatively, go to http://www.microsoft.com/education/k12 manually using your browser. No Internet Server FoundA@k'oAttribute VB_Name = "VSMenus" ', **b MS-Excel @TemplaControl CXodeF*1Copyright 1994-9 Village Software, Inc. 1A All R:s Reseprved 1LICENSED FOR END- USER  O0NLY.CODE MAY NOT BE INCLUDIN COMMERCI AL1THIRD PARTY APP8ATIONS WITHOUT THE3EXPRESLWRITTE/SNT OFVILLAGE SOFTWARENCa B Version 8.5NC lAst NotAv1AThis feature not av@ailabln tv"of —;Please visit o@ur webe (http://www.micros.com/educat4/k12) us ing ynormal brow.*2BWBox4 ' w now startD and go Bthe M( K-12 D (/@If caniOfitDD,A should@ check internet connec#btry agai>n c!3"URdo I..1`4 EmYXdo~c #Show/hi@Vments !CommDis y/Remova+Tog0gleS( Sys%Calf V\;k""MSB Help forc 3 !Mei9Genern !About b DLimB@Asmm mBarPopupfThe`@BoonI ' s@aup errrappso onl*yeepf 3u addedP LEbGoToR H`= Tru Look%- i6f&,C@rtinuenext linesexit. 'a}$g) Ocr@(AGFALSconE&s("Workshe 0x").}! ap2D 0!xqp\p[P; SI' weRtR , m8 @be Fal_(g Bha05ds) So,p bui PdSs! $F =8#OK.I(Type:=Xmso&,orary:=Ka With*E.C<u subQW12 A@D DCIZt asButtona(N"b-6q0a.OncX"How&bP32bAA/H1TA,1Tb'(3  3 /Q 3Y Data[ z 4 Vl}4} `uـor4: qK5E$W5Open Enca"arch Organw Nada"[q$<%6  ^.6 Boߚ26⩢r7 ~7 %Rtwי 7 1O Q8O O N 8N %~4 8099DŽ99:2>.{ *,d !]&EIf˒y Bm Z: x@ 0 l=l uPN~4 0UHRip t'o'rp/,! qt up error trapping so if menu gone already, nomessage. On E~GoTo MjDeletedAlF' Look fMOCT -there, remove itM'not, will generatew. jroutiAbails7If CommandBars("Worksheet ").Controlaption = " ThenX &{End Ifxit Sub : ?0 Customize() '\ butt#]anyWnt`ent Pˁ5 Cloak_Next0TrueH Ss(Vital).VisibleXSsctCheck9,,HowEmc+AMsg Box " d o I eA tHhiscut?", vbOKXOnl D ..."DDShow/Hide n@BsToggleSamplL[ toolbar\CB @s<_S@u@M.DataSeriesApplica.Scree0nUpd= 0FalsElStartB^ = ActiveaFEach rngName In b.F! `Str($A, "qz!":)` 1bA aRangee).MergeCellsAGa BQ$ TfTC{Typea(ac|'w.B% %/b f4) <8> cisŢ."A1g PIndex"'cen2S arioh2a @2 BJa, 'LeftD(T , 6&"s"]"k ASMel9#1()TenC `h`A' No RighLen@>6i"D "currz" & Trim(booc5v ftRaluAbSo`cE, d &p;Cr).gIe1.Add~ T1 .{a EfG s Q9 S0|qaAusT#Xk|).$BrpCR-).Pudp'_Not ??1`;^&`O&3SBQA]O[0*InO[O[C  TL[ׁMdSh,V'_mXm}rrrS@owCalcQ~'InvoDkee c0u latorUcRe`turnVd=`1ll(".exe@1A` 8avPtMSWeb;}#0N-(1Ca@ncel +IJnpmR}, C2wqWC S"4&F@ollowHPnrlink =r@:=URLp3' P -214669721}{S Pn loe your'ternp_server `pro(xy -pase masur Aatconne`establi18@AlIveqgo http://www.microsoft.com/edu3/k12@nually usCbrow .ۣ`fI@ Ж FoundB-zMAvЪ, rr@C[ # *%#bT!q?!2(`Help1 (2,e0kmlp(Te`M!QAs BTeajn'2l` filԦ.acX*L|nF_A _To_06MacjOH K< 5sPa th, hlpqЯ عle, 1 YAb'2N mAfrmy __SRP_14__SRP_15 6Module2__SRP_a $3'':LKN<<@:lLN\\ &6\<8$b \<D +z M$b D +z M$b <uN :\Ol% :\Pl ]T X$ X ) (\%>TFDl4%0$ 0 ))X06D4]T X$ X ) (\%>TFDl4%0$ 0 ))X06D4L(bl TX0D4HQ$R$b     /UUUUUUUUUUUUUUUUUUUU?U???_U___UUUUUUU?U???_U___UUUߪUߪߪߪUUU?U???_U___UUUUUUU(9 `Y#$a `ntӢxME (6 "<8 `x|kp%pt<<H@'Y8$*\Rffff*4?385927ae$*\Rffff*50385927af "  0x B@9\deveoXPjAttribute VB_Name = "Module2" Option Explicit Sub Button166_C.k() frmStart.Show End R rU~|   H$$b krU $ `n6ATo[@@3ѓQ[@@3ѓH[@@3ѓn[@@3ѓxn[@@3ѓo[@@3ѓMErU~|  SHH !QIyIIIIJYJJJJ)KaKK L9LLQGLMMMNANNNN ,AO- PP- PA!A.PQ9QYQ"QQ!QRa.)RIRqRR1SiS T DBp  XyTqB @9y8 8Kpva@D:H%X\:`%p$ dp H\ X ,D l@0/@)p\XDkvzdDc0%'%'%' %H %X\:`%p$ dp H\ X $lD= x)p\XD lx  ;\'%' %'0%'H%` %px P p $Q\p:` %C $`%= B N5:`%C :`%C$`%= B N5:`%C :`%C;\'%' %'0%'H%`%px P p $Q\p:`%C :`%C;\'%' %'0%'H%`%px P p $Q\p:`%C :`%C;\'%' %'0%'H%`%px P p $Q\|p:`%|C :`%|C;\'%' %'0%'H%`%px P p $Q\lp:`%lC :`%lC;\'%' %'0%'H%`%px P p $Q\\p:`%\C :`%\C  c pp ppv ( Lb4 |xl\(@p\XD(KaDH:L%\`:d%t$ dt H` \ ,H lD0/D)t`\HT'4%H:L%\`:d%t$ dt H` \ ,H )t`\H tt teH(bx Dt`\Hxz3cT%d:h %x$ x d!d")xd1d:h %x$ x d!d#)xd $8x$b xdx83'':L N<<:l%N\\ &6\<8$b \<x83'':L N<<:l'N\\ &6\<8$b \<0lKf!x $ x(x" x$ x )xx$ @Qxh-Tx$ Hx *QT[PXxrL0XA,+:<,( ]36,(f %x'<%X$ x,x XsLx$ Qx[r -F,]35,x .4x $ Qxo, -F]@6,:0#5A,1A,2txA,+dA,1T#d, 3 ,:<4]35,kFd @Tx$ x d!T,2A5DN)xT5,&d,(<"d 6 4 :<74, 8,$5,4x' %:<9%$ xa,f]3x5,H$, : ,5,$ @>2;5G$ @D @Tx$ x d!TW2 )xT5 <i$ @>2<5 t s"i%:<=%x$ x,>TTa?@a0V`%"i%:=%$ >a?p@LL,0)xTL6,p`Sx' %:<9%$ xa,%T'%:9%$ T,)xT5,-Tx$ Hx *QT[HXxrDY0XA,+:<,( ]36,L'c %x'<%X$ x,x XsD h.8l|dtPLHDdXD4hT$HxTL,pp8":lAN\\ Bkstdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation^MSForms>SFErms3 DD452EE1-E08F-101A-8-02608C4 D0BB4DFM20.DLL#Microsoft _VBA_PROJECT0dirSK__SRP_0A__SRP_1*efehs Sheet1 Sheet2 Sheet3 Module1b(strWord (varWorkbook strThisSheet varMem' bHangCounto strPictureErr_Flg iHangPicLeftY iHangPicTop@  iHangPicWidthmiHangPicHeightO bChosenWordBbOffsetvarTimer7(iSelect# (GetWordListsWord lngTopRowQ lngBotRow( Application*ScreenUpdating! Sheets Activate|Range OffsetInputBox  (ProcessStringRetryNE SelectionZValueK ActiveCellRowxlDown0DResize@4NamesοDeletexActiveWorkbookAddr RefersToR1C1cEvaluateTAddress (ClearWordListRClearColumnsp9ShiftxlToLeftWY(GetWord׵grabword0MsgBoxRvbOKOnly(hangman (ChooseWordVisibleSortKey1OOrder1o xlAscending`HeaderMxlGuessY OrderCustom| MatchCase Orientationw xlTopToBottom frmStart.Show(Choice{Hide9zbCountK strLetterxostrGuessh strMarker3' bCorrectGuessfGuess fCheckGuessbCancel  ActiveSheet%N Unprotect?WindowsdUCase5 BordersC"xlDiagonalDownJ@ LineStylewxlNone xlDiagonalUp xlEdgeLeftL xlContinuous[Weight1xlThinw ColorIndex xlAutomatic@ xlEdgeToph xlEdgeBottom xlEdgeRight%vFontUProtectfDrawingObjectsߺContents= Scenariosk StartGuess<vbYesNo(CleanUpAsc!u (UsedLetterV (EndGameWinKTrim@StrShapes<Top5Height|CopyƿPasteOnAction (EndGameLose*Time varPlayAgain9kxlInsideVerticaljMxlInsideHorizontal strEvalChar3 (EvalString(EvalChar_bLength 9 strEvalLettervMcmdCancel_Click\cmdStart_Click optEnterWords_Click"optRemoveWord_ClickXOptSinglePlay_Click>goptMultiPlay_ClickUserForm_initialize5c optEnterWordsPM Specific(SheetBar{(Vital=(Content1=(Zoom1q(Zoom2q(Zoom3q(ZoomMac1,(ZoomMac2,(ZoomMac3, (hlpContexty (hlpSectionR (File_Help  (File_Help_Mac (Save_FilterH[(Save_FilterMacI Path_Text0 (Default_Font (Default_FontMac6(SampleStateCell D(Specific_AutoStart(Specific_AutoStopw(Specific_CheckSheet VSforMSYEWebBox1ԧWebBox2էNotAv1&NotAv2&(NadaLogo vbDefaultButton1(NadaLettertypei (PrintSheet ) ActiveWindow+SelectedSheetsPrintOut.Copies?(ToggleDrawingTools CommandBars  (ViewMacHelpt NotWorking/FollowHyperlink-Path2 SubAddress+MhNotAvailErro vbInformationn VSMacros (LetterFont9 (LetterStyle (Letteam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{E8E60F6B-BF3C-11D2-B240-444553540000}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library   'Y8   ThisWorkbook52385927c0ThisWorkbook Sheet14>385927ae/ Sheet1 Sheet253385927c01 Sheet20 Sheet351385927b13 Sheet3HModule14;385927944Module1:x`xzfrmStart50385927affrmStart:`xSpecific4=385927ae<Specific:VSforMS54385927c0jVSforMS:"VSMacros4<385927aeVSMacros:xUVSMenus55385927c0VSMenus:3GModule24?385927aeModule2ӢxfrmAbout56385927c0frmAbout6A#8x`H0 f|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓf|@@3ѓ f|@@3ѓc7C@@3ѓ(o^Goto_If Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`MSFormsCOfficeu ThisWorkbook| _EvaluateWorkbook_Activateg ( AddMOCTMenuhWorkbook_BeforeCloseCancel( RemoveMOCTMenuWorkbook_Deactivate4 Workbook_OpenWorkbook_WindowActivateWn_Window6Workbook_WindowDeactivatrColorQ (LetterSize% (Cloak_Next(MacXL>(BookNamea (FullBookName Lock_String Lock_Textf Unlock_String) Unlock_Text># Save_Alrts Save_Alrt21 Save_Title! Logo_ErrorLetterFont_Error( Univ_Errora}VIL_DlgVIL_Dlg2LockDlg+eCloakcRangez cWorksheet+cNothingQcEmptyb (Auto_OpenV OperatingSystem[OnSheetActivatenOnSheetDeactivate"OnWindow ThisSheetTypeNameOnEntryWDisplayNoteIndicator(ParentWorkbook* (AutoScaleP (Auto_Closew(Unhide_Workbook (CheckSheetqTransitionExpEvals (CloakSheetFaxlInfo WorkbookName+Right  (CheckWindow StatusBarʜ (CheckEntryVj (PreviewPane Zoom (ZoomFactoraScrollWorkbookTabs?PositionxlFirst (LockSheetCaptionx DialogSheetsK DialogFrame TextBoxes GroupBoxesU OptionButtons@xlOnThisDirQMTempDir  TemplatesPath$ChDrive% PathSeparator5FileNmGetSaveAsFilenameTitle~ FileFilterOWFlgUd DisplayAlertsSaveAsf;FileNamej FileFormat xlTemplate)FNameRFullNameОPNameZ (InsertLogo^LoopLwLogpPicShtMemIndexmemQlglAlgtIlgwKlgh=Err_1B DialogsxlDialogInsertPictureBErr_2lLocked  vbCritical+}MsgQLen1|String1)ThisboxCLoopAw CharactersrgCount0vstrCRz_ChrK~IsEmpty Comma0KFaxYErr_2B/ Size Strikethrough" Superscript SubscriptV OutlineFontOShadow Underline FontStyleStartLengthY (VillageCredit9 (ChangeFontyReturn_1xlDialogActiveCellFont(CheckScenarios% ScenarioName Scenariopage ThisScenario IsNumeric$*WBook  ThisWindow~WWindrIsErrorUSearchFindn(Nada VSMenusuWebURL0aMOCTMenu7CommandBarPopup  fMenuThere MenuNotThere-ControlsKmsoControlPopupl) Temporarysub2P8sub2aAmsoControlButtonnsub2bBsub4R8sub6T8sub7U8sub8V8sub9W8MenuDeletedAlready ( CustomizeB( HowEmailPP( HowShow} ( ToggleSampleluErr_S DataSeries6W StartSheetWrngName@F MergeCellsکPIndexTThisScen TNameTIndexZSelCellsC ChangingCellsScenNopScenNameLToolbarsToolbarButtons n SampleButtonOPushed ( ShowCalc ReturnValueShellV AppActivate26 ( visitMSWeb2U vbOKCancelx?vbOK%( Help1g( Helpf( Help0g thisTemplate;ZFile_Help_To_Call?9?i??6a $a $a $a q,0 * +1+I+i+++++' ,1,Q,)a *a))))*A*q*Aa   9 i aa  QvqvvvvIHa 1Yy!Aaa a   97Y77777 H)HIHiHHHHa $a ZAZaZ ! ThisWorkbookSheet1Sheet2Sheet3Module1frmStartSpecificVSforMSVSMacrosVSMenusModule2frmAboutModule3 VBAProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA A i0F 3C:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel a @0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole yP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms YY`k<@DESTC:\WINDOWS\TEMP\VBE\MSForms.exd 1YYpL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice ! Lock/Save Sheet4 You can lock the information on the Customize page and save your customized version of the template. "Unlock This Sheet zYour new customized template has been saved to the directory CheckScenariosParentWorkbookUnhide_Workbook ZoomFactord By unlocking this sheet, you enable changes to be made to the information on the Customize sheet. Select "Lock This Sheet" after you make your changes to protect the sheet from accidental changes. FFq SS. . To begin use, click Close from the File menu and then click New to open your template. Save Template& You must unlock the Cust ChooseWordChoicehangman UsedLetter EndGameWin EndGameLose ProcessStringEvalChar EvalString $$T0@ Select @You must first choose an option. !!S F DataActivate wordlist B:B Shift Delete a1i[@@3ѓh[@@3ѓ word Enter next word wordlistbaseFF- Enter next word and click OK, or press Cancel to stop entering words. (20 Letters Max) Enter Word% The word you typed has more than 20 letters. Please try another word. Value =Rand() OffsetRowEnd ResizeFAddress !!T 0 .Error checking letters. data B2Key1 Order1 HeaderOrderCustomMatchCaseOrientationSort a2Workbook_WindowDeactivate AddMOCTMenuRemoveMOCTMenu CustomizeHowEmailHowShow ToggleSample0 You must first put words into the list in order to play the single player version of Hangman.#=h8+3qG?,2qL999P< We are unable to start your browser. Start your browser and open the file 'Microsoft Office Classroom Tools Help'.Q <Excel will now start your browser and launch help for this template. If your browser cannot find the file, you should reinstall your templates and try again. View HelpWorkbook_ActivateWorkbook_BeforeCloseWorkbook_Deactivate Workbook_OpenWorkbook_WindowActivateFL *This feature is not available in this version of Excel. Please visit our website (http://www.microsoft.com/education/k12) using your normal browser. Visit Website Lhttp://www.microsoft.com/education/k12k[@@3ѓFj[@@3ѓDFh Excel will now start your browser and go to the Microsoft K-12 Website (www.microsoft.com/education/k12). If your browser cannot find the website, you should check your internet connection and try again. 8Visit Microsoft K-12 WebsiteWorkbookShowCalc visitMSWebNotAvailHelp1Help0HelpAbout MOCT $Worksheet Menu Bar F F F F  F How Do I...CaptionControlsAdd &Email this Workbook HowEmailOnAction $Show/Hide Comments HowShow Show Calculator ShowCalc visitMSWeb 6Show Help for this Template Help1 ,Show General MOCT Help Help0 About MOCT AboutfĤIx8< !!  :How do I email this document?Protect 8How do I Show/Hide Comments?DataSeries qzqzqz A1 Range IndexScenarios sampleChangingCells currentShow\F_F^F !!  Calc.exe !!X Contents !!U g Cannot locate your Internet server or proxy server-please make sure that your Internet connection is established. Alternatively, go to http://www.microsoft.com/education/k12 manually using your browser. DrawingObjects 0No Internet Server FoundP[@@3ѓo[@@3ѓQ[@@3ѓH[@@3ѓn[@@3ѓLabel1Label2cmdOKLabel3Label4R[@@3ѓ Y (X cmdOK_Click Label4_Click X MAC CheckSheet CloakSheet CheckWindow CheckEntryOnEntryDialogFrame PNL1_TXT1TextBoxesText PNL2GroupBoxes LCK_1OptionButtons LCK_2 HeightUnprotect !! h !!y  !!  !!    !!x  LGLeftTop WidthzF NadaLogoCopy Paste Locked : !!  !!e ( vital1Characters Count vital4 vital5 ,  vital9 vital2 vital6 vital8 LTFontColorIndexSizeStrikethroughSuperscriptSubscriptOutlineFont ShadowUnderlineFontStyle Start Length !!` H !!. h LTR : SearchFind !!/ > OK, now, one player look away or hide your eyes while the other one types in the word for you to guess. (Max 20 letters) TGot it. Click 'OK' and get ready to play. e15BordersLineStyle Weight f2 .Please choose a letter. RYou may only choose one letter at a time. (Do you want to quit? Correct Wrong b3 Hang Pic Shapes Pics Nada !!  !!d  2Congratulations! You Win! LBetter luck next time. The word was:  e15:x15 BDo you want to play another game? Chosenlist Hang1Pic ZThanks for playing Hangman. Have a good day!> Hangman cannot use anything other than a letter in its words. For example: there cannot be any punctuation in the word.m[@@3ѓl[@@3ѓNadaLogoNadaLettertype PrintSheetToggleDrawingTools ViewMacHelpG To change this placeholder logo, click the 'Customize...' button, then click the 'Insert Logo' button at the bottom of the Customize sheet. (Insert Your Own Logo L:Microsoft Office Classroom Tools HelpZ bTo change this text, click the 'Customize...' button, then type in your new information. Click the 'Change Font' button at the bottom of the Customize sheet to change the font. 0Edit Header Text or Font Drawing ScenarioName Scenariopage WorkbookNameWBook !$ Q&% Q&&( Q&9'8 Q&y'H (1(X Q&)h strEvalChar !CxCancel !?Wn thisTemplate Y1(,(H  @6}k9R KQ?U???_U___UUUUU3fUUUUU*U****U***?*U?*11100000000000000000000000000000 1========================== 1========================== 1========================== 1========================== 1==== ================ 1=============== 1000============== 1ʤ0ʤ ============= 1ʤ004(!Choose an option and click Start.GuTahoma@(Start@ OuTahoma@(Cancel@ OuTahoma@ R KQlt"BM"6(UW@@@@@@@>@F3cF!EW 3%f!d 8 n &7 ``dFO2W74?z/I{=//I > 0--t`t/xV#F9>OgȅOg܅vOdg G O@v@G ?hOGG@@G F G FH: <wG @`T5wG GVGj4V) GSysemFOL #|Y >X`twvG_ G GfGgv_])yJ9~(_])J~*&2HF6 gFHgFgTvTD`gHgH]`^`)yZ&2&-fOFwFgvLOdgpFwFFgF]pFOpF)y>J/J/쇬( .frmStart:.`u*J*Jfo?o-3#i091 n``v*J*J~)fz=o02sCompObjqpCompObj/4a      !"#$%&'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOQRTUVWXYZ[\]^_`abcdfghijklmnprtuvwxy{|}~  !"#$%&'(8=,-./012345679<:;>A?@CXEFGHIJKLMNOPQRSTUVWBYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~O}Root Entry F'OY+J+@uWorkbook>L_VBA_PROJECT_CUR"<5_^(JOY+JVBA;`(J`u*JDBTahoma(2TlblStart= n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F{0~EAdd words to list˺5Tahoma@DF{0~ERemove all words from list5Tahoma@TF+0~ESingle player game.(Words chosen from list)5Tahoma@TF*0~ETwo player game (Words made up by players)M5Tahoma@@H   }]Hangman OptionsR KQDBTahoma, \optEnterWordsa, doptRemoveWorda, tOptSinglePlaya ( toptMultiPlay $8cmdStart( 80============= 1============ 1 ============ 10 ============ 10000000 ============ 00 ============ ʤ,,,,,0 ============ ʤ,00 ============ 쿿 ============ 0============ ,0ʤ000============= ,0ʤ0ʤ ============= 0000============== 쿿=============== ʤ==== ================ 쿿========================== ʤ,========================== ,0========================== ,========================== ========================== ============ ========== =========1 ========= 1==========1,,,=========== 1,============1,,============= 1 ==============1==============1 =============1,=============1,==========1, === 11,1,1,1,1111,,1,,111111111111111111111111111111111111111111111111111111111111111111111(OKE NuTahoma@4($Developed by Village Software, Inc.5Tahoma@8(&http://www.microsoft.com/education/k12J'7@Tahoma@CompObj9aVBFrame?PROJECTwm4PROJECTedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAbout Caption = "About Microsoft Office Classroom Tools" ClientHeight = 2235 ClientLeft = 45 ClientTop = 330 ClientWidth = 5940 StartUpPosition = 1 'CenterOwner TypeInfoVer = 9 End ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Module1Module1frmStartfrmStartSpecificSpecificVSforMSVSforMSVSMacrosVSMacrosVSMenusVSMenusModule2Module2frmAboutfrmAboutID="{EE9CCA52-D321-11D2-BC5C-444553540000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 BaseClass=frmStart Module=Specific Module=VSforMS Module=VSMacros Module=VSMenus Module=Module2 BaseClass=frmAbout HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E3E14DA870AC70AC73AF73AF" DPB="0C0EA295E2B9E9B9E9DD2C5AE2A3291B" GC="373599C8EFD81BD91BD91B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Module1=66, 66, 653, 372, Z frmStart=0, 0, 0, 0, C, 22, 22, 833, 477, C Specific=0, 0, 0, 0, C VSforMS=0, 0, 0, 0, C VSMacros=0, 0, 0, 0, C VSMenus=88, 88, 664, 436, Z Module2=0, 0, 0, 0, C frmAbout=0, 0, 0, 0, C, 22, 22, 609, 328, C Oh+'0 PXh Hangman!Microsoft Office Classroom Tools ExMOCTsofMicrosoft Excel@!h{@Yg@a"+JSummaryInformation(=DocumentSummaryInformation8CompObjf՜.+,D՜.+, X`  Microsoft CorporationtsA HangmanPicsData  WorksheetsAn,=0j *H [0W10 *H 0R +7D0B0 +7l>_*OhI] E0 0 *H 5aDK ~+<00u3@@O)0  *H 0+1)0'U Microsoft Office Classroom Tools0 990101050000Z 050101050000Z0+1)0'U Microsoft Office Classroom Tools0\0  *H K0HApk;y6^8AzOr`kCSz#X YVX6!Ak8#-r gu0s0U% 0 +0\UU0S4H5lKB[-0+1)0'U Microsoft Office Classroom Tools3@@O)0  *H A4O4f2[Ø {{Oz}p_G&O\֐i6Sr %27i100?0+1)0'U Microsoft Office Classroom Tools3@@O)0 *H p0 +7 100 *H  1  +70 +7 10  +70 *H  1Xýp;!66_1l0  *H @>k1^nYv}A&nSN͠sݭսVCJVpSf{Gj]PCERT BMicrosoft Office Classroom ToolsSpl/?Oj( JY)Ur.Y+hK| vFt<SelfSignedCerts\ E3 dr PDigital Certificate for Classroom Tools 00u3@@O)0  *H 0+1)0'U Microsoft Office Classroom Tools0 990101050000Z 050101050000Z0+1)0'U Microsoft Office Classroom Tools0\0  *H K0HApk;y6^8AzOr`kCSz#X YVX6!Ak8#-r gu0s0U% 0 +0\UU0S4H5lKB[-0+1)0'U Microsoft Office Classroom Tools3@@O)0  *H A4O4f2[Ø {{Oz}p_G&O\֐i6Sr %27i 6> _PID_GUIDAN{EE9CCA41-D321-11D2-BC5C-444553540000} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q