'=========================================================================== ' 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;>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^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)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[:;>u$WKvFxt,a$b;]D/=X0J][q:(LsbIgpX3YXFp, U";:/rY]T^6phiaPC8P^8eA.3oUf/RY$$TDQt'm;T5BCRIY% U"*5P?*KY9/<>oi?]u\;),ledXPo#$;\gTn]Auqdb3dC U"=e#jcQ4Xs%:\gtU=D:XMRS:H0LWSj9Zzpp+COQb&2*4+5_k<*lk>A=Z;rJ1U]CTKQ&Pu'%Sd/*uRu:o0Njgiu%;[uGL$tGTd\R(h#ThOBE^ 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;<G?LRl*EQY)G3,z-V\ts>[3W-kUQqRtrP U"XIg50?F5nx>W\=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$=FpueKYCHmw U"]ncIW1X]*9#suYh8p-?IbUtEkC,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^na1I\K-Dtq7HSr U"U>tb%Tq:4C0i*&,.kPL,s+uX.>>68o)1o?94Ku+ 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[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$#MIu5bg8x#f'XcmUS7)G,kaauFvNK+q&^M\FiTeb3_u[9ro;H;#[6ikxAeAWu-($0n8 U"cyg6V#_ToQiF+]2RUqu9.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_Rg0ri+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\'iws5uOzN]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%PTJduM9zjD*OtI&QL-H*UN;ukr/A$iF\;j0&K 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_&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;fY%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