'===========================================================================
' Subject: WINDOWS HANGMAN                    Date: 07-05-97 (12:26)       
'  Author: Tom Watson                         Code: LB                     
'  Origin: awatson@wctc.net                 Packet: LIBERTY.ABC
'===========================================================================
' To extract WINHANG.ZIP, run/load this code under QBasic.
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WINHANG.ZIP",4^6:Z&=5000:?STRING$(50,177);
U"%up()%9%%%I-%dYT?Gi>*7'k-.%%.4%%%.%I%%F>2A3BS2CGCrh&,Adf53Jh:qF
U";rfI;<dLiNtsus1dXKA*cmcrgpS%I;*'XIAUiq-ad1KEJe=Nt_%Vn]O<Fr]^wuU
U"mZtgt=qwT$C_Dl1O^ty>>rum'.[>tOXR:=JBE]&?5L%d3*kQ4Ua=B3bznJOkF>f
U"vg:jkJ'n]1Vb+H6,jnLWqJvGC061%Ay[drge7T#<5T&4bJl-+j]Vgamz]G95].G
U"GS=u=q&d4^(G'h7Ys3EdW-J]#7%5a^''O2<]Pt,*K,V_])8kZ#R9bK2;Js03;/m
U"&%'c&X4TUg^umbgcK%Z=Hru=e*%,]F^$gN+,8hm?3QK=4%cYR7E,m6^cE5^i4G8
U"s%\yVF;MnXZV[l*+nojm(,LFZZwH5gTo]/%V]CkIKF-n-E:=7vrvE[H2Q8M&n(b
U"uE(Kb)MCsF'fp_-DdaT]RQjtj[*1rV$q1u4HAMfnih\1SM4?2UUi3cTbB0-n5%a
U"3\^-6SLw37pd+BNg31.aY:\?q(N_FsQ-#d)y+I8pToYD0\J'*m=WbWv)\t)]\D]
U"v)^lq0^SAsjRd*>bJj8sy=R>*W9^<mNBeBs?O]#\5a$Q8*IAQ&=9Y]i5Dp3e3#p
U"./?R#o->cj^]Oi$5W#s'LFm#Olwu_5jlGZ.I%J.Ujdn5WX[9#,4XMKjJ3bKQqz;
U"7,bQsiorvYA2-#=wAZn&Dw4uCh_LF+d+TgZF+N]wD87o7Q(W[Kbf)59kMMA(9al
U"_wI=^PZ#(%fSr.?K&c^sw6Ft8>hY-^7MjU4VVX(,/H%;Jp:Sboi9Fq+07NE:3P3
U"-='f8o#wlWFCRWkM)u>m_WdM*SeL_gKI)GCf'Q8pEptSX(90>acAguBZHDFr.o5
U"S&YGLqwnN?AIl+]5jlOoeg3GIAZlT$6bwhsBe7.Sc(#YPfIj:VNtk3/vj:*a*P'
U"ehZ?Lm?:R:Dqz)?u#G=d#B4%[A_6L&$hC;6/*XTsjVY]=$gtFqjp/(CFHAOR:O3
U";CVV)IrYUL]:V).OqQb-\&58eGCtKiwTFgYBvnI%;?l3E#))aVTu(mMUc%Yt6&h
U"?TLFfQW44=Y$^TB>QIbn&FsXj3Q9uG&L6^/dsVQ<NtTR<F9<&\)3ZffI(yNK&37
U"p+L^*KpWI,xL3n#We=m$;rnzWK<ph^%5v7W)$hjB-ReUS#_NqN49ecl+#*%z#2F
U"r+TLRW-z9mY6&ci[8*gh+3f\8g)Ps,xpbqV3K9l38e&e:?C^b1e1s9;QEG.t4zB
U"]aOLIQDf#g^y34EYU##tW^Te-dk2yv>)h$lGBd5fB6%W&OPT9/T=tMVOin+.JCb
U"6&iQ-fbQ(xZ]I\4dLDbcK)g#g'rKmvf4ajUrpbA?*5W?ofI,IU$%.HlS]e(b\.%
U"*?+BV2^6&?hk#w8Ierap3xZbEV7[m5(XoAlXPu74/dkVA\lgC4sfoA5Xv:kDF38
U"CVw7lg#=1)Lcdh%Eu.%7W_unnX(.d\#Id]G:qqZW1)=+W0NA2TEMsqB+q/o[-0*
U"ogRN:64lpF]dwOg[:;><YXD^>u$WKvFxt,a$b;]D/=X0J][q:(LsbIgpX3YXFp,
U";:/rY]T^6phiaPC8<BaR9g4$.ef1s6)&>P^8eA.3oUf/RY$$TDQt'm;T5BCRIY%
U"*5P?*KY9/<>oi?]u\;),ledXPo#<NSn]4]kIrIFSRDk7A8f>$;\gTn]Auqdb3dC
U"=e#jcQ<OWAM^L(Y*lt.+0uei^7)D7,:e)ur8U;*7;BnZ[4dd%PRs*oW]'+Gf:8G
U"b6e1uJGw1C21R.>4Xs%:\g<LM%jVTft-[7<um:_Cru-wxtXgiS7?7U&QXB;fV0c
U"E<_C-][\BAC^?N&j8blpwwFfR-+&:sHmSTk8PAi-&3jp[Bn?D]-XT/zflA-IXVJ
U"6kn6K/eq=:i(NVmC$5.b\MUG=-su]xWV;&7/+Y<F7n;P=<J$-(2H(Zw)iPw:#['
U"\z>tU=<YH2ZGM>D:XMRS:H0LWSj9Zzpp+COQb&2*4+5_k<*lk>A=Z;rJ1U]<NjX
U"+g?KO51,t0M#c5nx4^/Gg_CR-=,=w)e=FS8JDs\hQ0%7*')Dc4XjLr84o^q?m75
U"[k7flNg2%%TWJWttpmBMA'Sc:?T*3pDH^$l?c6>CTKQ&P<j)rZ-<bLk9rd6N&?&
U"jD<_B.xlOWil$>u'%Sd/*uRu:o0Njgiu%;[uGL$tGTd\R(h#ThOB<ayGnp]h>E^
U"uiADsdz#'idm[%:LQP*<2zy*W_t2LvJ0nR6nxr8QLTfTo73euB=V0=JiN2WtXq/
U"3kU8p5GjzUf\8#,*QN67bla#m58--n?Cc*:WJV5N^iDzo4,o>1JRrOz92b-VYo,
U"57k9qg*cRWXl-Omh7JrVZwPhF5w>&6_hy/tMcGnHjlHx-h/[.TnQ<:h*tV0/Ln/
U",5_f-PdDDDK(z3t/H>Br%bwOM[o$,72CWgp#X^:_Co3vd1qwL]M&+khc+1Mfls5
U"*R1;<<IPEAhOF/+IQ5HSt)bqR2l=<R>G?LRl*EQY)G3,z-V\ts>[3W-kUQqRtrP
U"XIg50?F5nx>W\</PNfOiH(BDdQ=IC<Vrp_'iQ>=4unw/0&gfU8\Kt%5ZRre+?YX
U"\YoPe<\k-G93D5]fCVU'xDu^TbOjdvY#_'O6w/FByCnPnc?mj:hfP'T4GB4AMNW
U"jfhyq.^X9kA(tlM?rHA;EA6I>2BWdhZF,gfkC>\m62%YprJek%dup(%)9%%[%-%
U"(+$_G8AE0A;#/%%C%P%%0#%%%FM8=70D=6S1V0Bf);*BSoL7MvYHxIv+aj+p2RI
U"e?g:bJOnXAT*2X$7=#51PxfI?e4p&0ZwUZ$Ph+A$=Fpue<gDCFdiilg(>KYCHmw
U"]ncIW1X]*9#suYh8p-?IbUtEk<BQ;'Q*8#_.I]QEPQl/S$\3.h7525[^]Rf8*R7
U"vAjJY$R,[vtFCF?%?Lp5?^%7oGes0jx8p;-[f.k]8[%GWhfK--q5f<45)FE*tFu
U"W1toNT52c[K.(6VEExl[+n#%FTedzm2dqfsxtg5uVdTfV]j$KXkD/DJP<?[k5Q9
U"xPWiQ.Z&1tEW,$Yf/3i-]:$bClqlmTgIUvE-19H5OsTH1;..s]x+qbx#JgA?<^&
U"8[ASk*<yD[jJ=.KVit:(^wVDuNiCd)Qe(_l5(Q&>C,QG5(BuLQ0+-.mM%S>)F?_
U"X40PI(j#WKS-o&QDO#5U'YRvYSS6km[b7WVNk--^7g[5&FlQ:Y.(9Q2=B4AU86]
U"Eh7*sPC('BQO#Wbc_%Y+6Mcq6q?'72bS7Gn\-4+eQ+VN1a)%%Rdk(0oC?8^na<B
U"Y8']<&PGc*41HBI\LXB#1YlvRTl3=*JaZ+V6R4:ljae?krT4JtAeZ\BZt9S/791
U"]K#nQ2GI)f5PgK8#/'cf=0th_g#$Qglj3,\8PqgOT2z6*O^]K->1I\K-Dtq7HSr
U"U>tb%Tq:4C0i*&,.kPL,s+uX.>>68o)1o?94K<LjzG.NCp4KjM\?.)[rw3OR\2d
U"tzehilj1c<%zALzf7-]L^O.)#/vO.)3#(dTtQ\5KnfC\qb+b0$W1wmThB+%s9;^
U"'OGLZA.:OLZArPd7e1X]joS.]#<etTk\c'K<G?j.K<iG#.bX0$q%n4l(<d]Cyem
U"5AXD<,Q'J8q%gK:TX%#%fYt8%vRKA?Q3]q9\E=eB?ULc:+KG/(5omrn'3mL+>u+
U"3sT:g7U2:8%;[$HiIX?Y2B-yzFh&qtC$Pb[IA3l3xkyE3784gRU%='NsL%V'%Kv
U"e(WgyAYi7pGeN6r.s6[?Tf+j17mi-Au5KVTSEnJi28-0EQj5N_Osldp?2NZn7Rg
U"qq7;%].Xb9-Fmmi18s%LPN[gW&?V=qU=]:QMSri\^]gqNn4V8C_iy7/OPC_(S?l
U"]Tqf2e,l$hQ\SYO+x1AE+$lHfW0->^*V)h1;)Fk;9?5[QDU.h8EXP]B;bS(GffD
U"Thn2+-uXERNzG=8z4T0=eZF7-E-s>'B:.hcCs8r;zMuz4dwyDG*clZ]*S<aRL+D
U"j#+XqF'R2#D/0a>[Y1e:>Xa\8XjHx\lX;w?zW;*AM<&HYb#xe5rBALXWcKR-l-s
U"<,K-5UY#10NVnOv>OX?E\.=/TH2zDcg%hWW&N8ahKgW-,Sx-7>N>9\aNo-#:.&>
U"^oGfYIgpnT]QDawmv;?:d[+v4qdr8[t_gk>1XT#5TL)?KWprl-hWq6S/;)2[O76
U"0$r\d,#c5;6Au;.=m\xir#*Rw+V4j\3O&T(8Bk0e2XuM[ONqa^Q3&Wbx)H%TfRL
U"<4Vn-R:DV%u'IO%x]MzQQ(8BE0*O1Q8'WM)xWfr.6bvyU)rMcM$^Mmu4RASp2d4
U"xcNCpU-+)horr3ZDf&6HRGSnmcoiZOht1$#MIu5b<?;.&RKx)/qiONQEu$wVNuN
U"JnGYjBG9cc0a7cGKGqRqr$B25TVMF;7IgdKtAr.6u53lj)n?a=5N_m.l9)6WGAa
U"<>g8x#f'XcmUS7)G,kaauFvNK+q&^M\FiTeb3_u[9ro;H;#[6ikxAeAWu-($0n8
U"cyg6V#_ToQiF+]2RUq<?Wc8VqL6cuY00Jv(<c/B%A2?Bxv$+]2jU1lzWo8sYbBJ
U".Ix6lFM5W#.Jd_?hl77^01p5&:GuQAe6nCD'GDR\VSB&Asm#%_>u9.4IbL5[NnO
U"2cci-_mnWN2042[#Ci6s)DkNjdiLq?AO*XIc3NBtP((DgY]_'ts_jIxCjvrG1rb
U"tbWU?y$3%'$Je)lSQ=/y,;G94JAzYL)C_K6W3N+#KRf''ofNbA(1bn=hoDh_R<A
U"Kv73FD:S+4cA&6K,h.a#):wo7>g0ri+3CtXNI8:dXDOW'Y(>=5,ZkAIVF)r3J/B
U")9#[BO0W?=/sbd/K\qlejgrBo5PbcpK^2RuKUINliAA3wc9KClbA9%N#K'^ixsO
U"qCxu2kictYikBsVk8ChRn^PcVBbk(Ixcjc70r2ULNfiA88w'YQ^CsK*JcTK$^)x
U"'OrC\uNUgc*+r2ZNMFiA6jw79Ch&bA(aNpK^2juKXdN4ikS/w7:cCpL9jF>Tn4n
U"6.P#1Gq08Sh+%Mn?h1T')JSrPS<[81LP6(NC<3Zq_]/RZv^3WQYHIm4*utj?q+P
U";pOxu(,nZC4/qr?Nq+*q5Ox',&nZR/lq\ij/&R\'iws5uOz<rOFd&>N]N3NYjdN
U"[8_9e9in6Z\(\)N*uYHFqz[kp&xW2=u4g#uO8ew#NR8sNYTld?./S?/qz63jf28
U"m'wpuVqDoIt&N,=\w+^sy9XM5\8;BX:i0D'\T#pj*u,V?qD/xX&x.=Eu4xy>O8(
U"#>NR+OZY8N\38;7:]i4Zv>&f''$wJrxmzXE9R\#2%PTJduM9zj<S^zTnrVwFhfS
U"s(YCQ2UN*i-Uv>D*OtI&QL-H*UN;ukr/A$iF\;j0&K<c(QMA8<22$(=Hx5K$CA>
U"$PUz<(+Jne=G708EtDD5XMCoYWsw=+q/6WEPRa(>uM].S3RCG^TS#C\SkaD6SKf
U"eTe'D7)4&Rua3Iik(PBv$(=vUinK&cYn-rrkcQ?R'5=rPWD/9$?=1+By2-be(du
U"l(hM&%d_:;Mcfd^BV.X,6+G7mLxv.s'x+:fmnGZ_Y^9qg6$p4V*p49p,*Ifuev+
U"gq-TgK+b)H8?p3gfVh=#$QCVQAf0gHRC[i$-XyWxD$^J:C<DE[(s<3VGOUpmhZ(
U"Y?H]\32VTv/V42JHvLtd(6^JT>_&oTXNgD&wR:[)]aDHTgUZo'mZdLX&mb-'Hvc
U"U^;LQCfT*4.2*vL[R%xXMN8R2t&^%+rWS\epf6(,?O[Cjdf:\.3qFU_F.n9C^Xd
U">RD.BtK7hIWI(8cbw]^'nHX.>+US3\^t$pfs3m$#71h)BFNE9B\KP(nGBqHLvI;
U"UVD$=]85^PInGJSA)pfoPDYwoi+%ZH;X>)B4/M%g%zN]G'gM[/Nio3H;ECuWgTw
U".BUCcA-pgtTYy6DH6;%,)FvG<-0hlztOa+73NMTuE,;Tc5(pl*mK*MtgA#L0[UH
U"PCN8yVS5+Qj^G+hkTU0ZX)sujeNx(_Aq=q^+^PDe^Ch^T4(vh?fFkV=F^v,vk0z
U"X;f<ZT,#qGeH2&$/V4v<Q#(c=8^i\E2mPD=Y2JruPx3'W[h*'qdJmM0_UOG3W9#
U"O>Y%pi^YN+#SYxg-3eHgLD&qs'URd-NN'w(up%&'9%%9%%%I-%dYT?Gi>*7'k-.
U"%%.4%%%.%%%%%%%%%%%%E%%%%%%%%MF>A3JBSCG&Cup&%'9%9%%%%-a%($_.G8E
U"0(A;/%(%CP%%%0%%%%%%%%%%%E#%%%<#-%%FM8=70D=6S1)0Bup%*+%%%%%'%.'
U"%?%%%%'8%%%%%
END SUB
CLOSE:IF S=61AND 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
