'===========================================================================
' Subject: WINDOWS DEMO                       Date: 06-04-96 (22:06)       
'  Author: Jonathan Leger                     Code: QB, QBasic, PDS        
'  Origin: leger@mail.dtx.net               Packet: MENU.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WINDOWS.ZIP",4^6:Z&=5890:?STRING$(50,177);
U"%up()#9%%Om-%M)o=Ebh4&jr-%%%9G%%%0%.%%&n#sit&%xSgfOxf(*8>GD6qM.
U"BxMpC34[>#$EoY0QSRm=\,;6(,WMk;arHlIU\#>Rq*pb\Fu]'aICEv0Da;VLCj#
U"oANNUJ,NBKb&2'BT_wAJQ*Uhu'(dOq.&P5WUIK:'\*'%W9VlZlLGVgKgnrztNfe
U"aV^u1])4?Zw?YOd,rI^Z#gG39=:g7lP#S&WO;v:I#I*6OM:XW1'.V)w'%mVzfTA
U"HiHg9+TU2Vp_ueABWQdr5-^:?_Ue#*Gi(FZ[%Y'H9i(NBHwN4-II(Vba>4;Oa$%
U"b0^%7b30-Bq[owg_Z*)480W?#;$Y#acK;Qm/py,%&_awgR?-&m5%o)m)*ri<T&o
U"w:iphk1Zj[-DVEMJRu?GHFW(54#rRQgPsLINCYCFUtMh*U'i86mwu(XvbY?A^53
U"B#YW><:uT8d^NCru/U/gEr,>B.I#K%Qh<Bh(U7=-mI^1XRX]po[_CJ&u;tF7AYc
U"NnbaJ<2%yq+$l(7S%&CoVjF^1P>pELd<5Ae^,%+qH%q97gmjF3_DR/=?^DQ53W6
U"n.*94%$hQa78k8Ec9PA?&lVbI[A=1=vd=8^&sAPgh:OsI8EK-^w:tHlHMz8#t12
U"CWdA42UP[9p1g?C18us2/W5^N*I%3]$=1/0#QyM1c$wiU&?U0T;#YjhEgfW_*)m
U"GqV;pBAn_a$mf-?-k9dVLxIG)H*ItF>4hocef-#/r[D$s<$Cr?vV)w$?v)E+nVC
U"2L=WE*_%6PlDe('GYE,B:9oUJmYi>Z.DOMS<b<A^sfYb'k8[3NuSKOrb'2)=(tB
U"rNCA?^QYHnNPR%%#n0#5CQ7wC:\VskhuBdPsd4o=fOeXVy(lr3;skvblJ>.z1k0
U"Nk;b[W6uHlLD?qc*<tTn(sCO<)MpQxm[VrnK?<6s;wdGMs,]DyJ>eB$C;6o%C:X
U"Odva5lUD6%dzD8\S.cv]E)+0zh-k#hs-worJ&Yy9VH1h$s[wnloh.DDl*cd[G[t
U"l?tFph4.$A%LOLIv&ZF84Z<9FmssiEuoH$6GFNx)ktGAXQ\.U+pkA+KaDH<?x=R
U"=lk7U_%A&VpO7_o7CM$pm:-ceEVRT=fATaB5wHG&TQ-$^UBBv/Xn+o*q:0aXhh&
U"EPzRR5,rTW3iRG$appfUejL6I[+?J\Zt?lF^XK_7r>DhoSKHT->kekhD<a=5ju<
U"E+)GPW*MR&-L4m.uN,S?3_?1sSix5w+mgLZv7wc0;u0o/1P&sD]1-[?DYmQ)7]p
U",cD4>ZcO6D%9Wp?J;pzzjQV*Dgw1PhpIsgK#APO3$2[1VM*47Do6yRtn]gc2.ph
U")u8W=E[MCNdpADPDe]a/$Yqd$o_;V5XDbE;wYAQ8;#:;li*3C%%Pdp39.Q4&VLU
U"y,cIjpty00;.^hqhF:s4M&Zx.U)]y?We-$Df%bmW[jF]aP4=<csDO1Jw[Z7-laY
U"#i6exiKVHGNkX$jMb*#.Q/J>/VeYJq1>U*7z^QF6aaqd7\R+9LEThe(r68\5y9;
U"0B>f:VO:jU&z*$au_NhyHZgPIa4Yh:E2cKPVZcBJ34\gQhQI.wX<P$L7C<)Qh-g
U"PA$6xbq6\&&ZyV?5L77(?gB?r'0'+HFKRe#[>&#[Y0Dof/T87^RKd;d3]#E3NI2
U"2/6PPkn?%KtA_Vt;f,ukK(M94wst&-7VN_4zDUvYF$7r,[l$YIZKmd6io7Q.\00
U"CV*7]D,LDjct]\mA<$HUX_'2Mamn<l517vT-,*l/2-9QB9UQF;rLuNL)FH1#5y;
U"Id_4t'IW+uZHg1MaGV5TcI78M>5EXb**Ha'tkYx+iT8Uk^j3t1EWLOxFKq.H9ku
U"ngJIN3(9Z_V,IK-(6:$%mQ.lnirt)kY\wQPJYgFRjGiP8'9Gq'ft-q6h^TRW^PO
U"ERy>*_&PrQUl=&T/k*.?Z<gRgi0#2wO/7A]6$)YVGG2a:n7tts^I<b&KT8JUrLN
U"OFEI5l37\B5G1qp;O0S^xj#ghKBe<Mz>_rgyMegyx_LkgVM)Eh_y$4/_**Q[Z^t
U":0%1+4OGM)CX5R>>Fb0d(VhaJZ6[_=J&O/&yku?\.pX>SDeEQIO8[8#[JbkO5Xk
U":8kg8n1P5)sNwKf8kD(5dAh_Y8oP:3&HPi/MQi_s%&x97RH2m/I&%P_4,UhpC#j
U"P[]le.&JOuv'0N)T12FMNO*?W7,ZMF++]$Ya]f(gk2k4^.dDq\O.Smb,vuMs^6J
U"M+X8Z]H16<e3&>5oaKgap1VQqalZ7OS8mo)K3kDDb8_Ke^tG$QX0A3LJ2V/E,jV
U"YWdnvb;*M[LR_j1?[+Ag6Y3)&ir>)*Di:bJ((=Vs.e*DC^\gYB)oW>;T(KHWswR
U"PF2^T3Jjn3iX_V>W)qA/o-AF%yeMq=&8ZWk<;go^pP)aMhX87cKVAb,L$R[mw/w
U"VRS=7\d#nrT+Q6$dKVQtg]]JLRD3wX2n>5r']psInpt1K.g-wBh>ZTeNj,rOcSe
U"w&1V>uSl#,ncj%XmVEmjRnICi\YQc_x[/K>8<-g0kb_$\2cZjF.ua8P4>cZ(r_7
U">LV#H'Hf>>5PZs=+]d6v7Vd7F&-#-FfvE31-cLL/#*GqGNt*<z,H=j+f<\h[3Xu
U"cCsrtB\IYqhH5A#%aOc*aPV_8eYDS=(sc>hR_Svk,XAH95Vq6,q-#A/9DWwX2bR
U"jVOEpnj)0hmZix=tGX(MA-ZlYZ5si2zkeW7WR'aMyyucE)PNw3E1Ia7jx4AtnHV
U"HoLjWN5uE,mRsah*6&0tztC7APixJSvT9X[ve#la0..]Rm?J\uc5&0gDg03;Ch-
U"q/d?RgL]cDg+Zl[+ed43-*<WS3#P+DKH85BmX[<$KmD%up()#9%%O.-%>p9JEam
U".4GT2.%%Wb%%%0%.%%&n%sijr%tSgfaxf#DtATAj9'Ovh3TtYn_h1-iURf,$4MS
U"%QppYB=u4RS</W=XMDbO/OXQj4ARmOhRX4B:vCay7vjO8ab/m>/+lYDa+_Xbu[s
U"0agb?pmm1pD<Xb6*2P)s%YFZZj:BjLfDN>sE7feMWf-GU^ZuZ\#'s0<TQ,>BuE1
U"'(W5&A'j0C&&g);c]s$x_LtE0Qs]X#HRzT2x%+aV-iU,SZ$Q^&=&bfQmGV$%D8O
U"M5oruO#Y?jQ8-T1,$0.)Jv1:VJ$,C<U-W7\ouUjeU3EI&7Mb.eaY]44=f5YSY9q
U",WFO%+J01i7PHYj'e?nWAXMcJBZZ7J$#q>WVWbRS0#'h*:Ccc*I'6^b(UaI)qJQ
U"RD%UW^wf5-%+5>NJw?[_?fuxRZjO5oEMXG8n]Wo-p03irL=C-5+A6eK\xhPhGW6
U"1[,auH'GH,H-zOMf<krM_HnY\BEYqUky&O7Hy>*mK#6&B9%:(;PGE)h7]U9chjE
U"ZZ;CjeaePICdM9xrnOt<MLVAQ]E<c&008aJ'4vW\*ijHRp(KkjNsmg_Y2aB>MV;
U"+1BRAKwW14W16n\S8[b#ES1&sO%3Y.:YT#%^%xE]LwxK,zA/JG']*n--\'.&x.(
U",u*+qeB2gO.?U<2D2'V1'P9+R(:&=I<P)nf,w5HS4x-0]6:ngJ_^1]\e2&U1$Ly
U"=JCU9Rth]]oZ0('^l:&6B=d]#\N%E:I5+e=TL5;=X8SHhIKkEk)s[Ma*[?4.2&_
U"/I<VcVU]gSN^MnrPadSg<+7BGAU$j=#/(-NsU2Xc4S&L-:sg4GQ5Lwma5=+3iB9
U":27%oRWW+jCd?:7I1:pqQ];C3#n&Vi9;ZX\D-gh23;Jorf'WCa99A:aE+2Pgbe\
U")f)m,TrEDOxH:)>-ACunZiq54xzR5p:V4bFZrxNq/Br)FAIY]TKSEIu8qLRZ=o.
U"(FAc1.\\[qgIU#>AN0lyK]Hv;PP3<Qk<OZ)n=C/RCE'NPp2*H<d_wjAYRT-04#l
U"Ge)/3G4<Uk#)#'H<H-YOaSF9<[3ejET/OVp7LrSX(%e2)2C;geuEU.p&aK4%CET
U"S'Mgg$%8XL%,xLg(EtoJ<;e:Xd#<AQf$g'-'vA<sp-(m2JId%GR9D#5gCW+Ve_;
U"b-iKS.&y_[)-BsSAYlmoU/L?5<ps.\%dc=Y0*$*JA'mFaQjd*QJQ%w7IUa\;ZeW
U"r\AdQKwQN8hbq?;9m.(o'F.SqKEyDl6QfD?iYmR=S/okAWo+_$b,DL^QGb\G[yG
U":*?E_9v<#Yu&hAuEPg\w)8GJhYbYk#tCDs_5]>lvUJbjAg*y4)0lMk7/BXvqsj(
U"q[h%5=RSwx(1B%v.XXK2qaP^uBn,JY,Ug=MDMB('AmK\iM?<kU_eC^(WR&W9sUC
U"Vh%k2#/mLU-wK%RS$1FQ:.nzK2:/n8ji'G\[+]p/r]P6=8-+U#P.&1,s#75^w]]
U"ET;P15CfQM5]Rb2X_#_Z8:wYMh)uf/5'+=Gu6+I/>S$Q0Ye0*H,ISE<ZpFqdAIt
U"7PJ.[X4W9PUsG1S3?b[6ElB>g5\G+/('4FkZI[g%ml56gDd)^&3iInT9aw5-htu
U"lRS^f_J'naoN)jk82[jbelIg)\d($I-Ml,^G^,0NHqip+FuNAG:1=&N_-ls4hk.
U"(wagufBZb-=Lbw4)NmOevwQ<(W%<FoNNn*H34ui0p8IjMvRHp4RISD/-MXOw=WE
U"f=[1i4*Os?Vt8GFyPr892sTCH*70N,HxX?i*$\QbxXw?=d7xZEJA1)q,J=?sSur
U"<KH.y=27q#ps>xmZm\iDFh7D:okWF,q-qjDDIdG'fSce(==bte9L.NsvUg$\j*(
U"Bvc-w6]oG<WMJT:1;3KEHdv?W*B:\f>L[cjNI:JK:S?.;km%j_\gOjMcyaf:lM9
U"M^G?$G[ZN54fQP#evQ-J>XNs46/:t>bJIdcrpUIT4#mDf6(qtp4ssdCH<i7xV2D
U"TJEjI0Lf8QGP)bC[WbeXr5(j/WQRqg(KfHGSg$+OuVXZa-A>Co<I0#u<bJU_4*L
U"uFToCs66,tvTCa%wYS:6-V,lXuk^4JQ_,F1BU3mJRN8Lhds\.^ItQiW&gM(*a2[
U"hbUCmI]?Ofdcd2o\e*WxddQYx>(54Ux-I_Of*4UdQKY:EwVoDdHZImlA#JQI;CN
U"pmvDwSt/Q//i(Rwux7WI.'r9sgN#?UPV:Fo1BdT5/Ov(g4_JS?q^ApJdN\ki7ke
U"DG1;2)'N>*4<N5V.rCA.dk:M3X-LSI2qWlkqM_&aOK[e,]gGFe4JF?'PiJC.E?E
U"w8)Ubv.(TwZgn(7mH2D,\j4\NxkNF:z:]Rh;PDILd0n#G2<kM.-B#6ZRupNt/_I
U"8MWXmi-hihh5Cq;qN%>XHa<qL1m-AFKPF[K?Q1r^)*1eUA&(u]71_7W92J*<1Wq
U"Q\,,-Q=>)DpoGG%KKH]Q8DXy?.eIeVsjqkYYkFIJVKhDf5,ABK1fjb?U=3j(53U
U"UPFADfc5;11russ6H5ax?Z2U^M_PeCBlm<ihc>'GqDh&qw'YE<1ZioDDD1/ZBRm
U"htuvn2_%d97u,V8[#JXr_(gIZtcHng1^-?T^S?LtW$[xXte8.R8Z[P+TxamSbHc
U"ki/#hz]]Ew\g,ka6/E5(HIawP;YQ4lcY=\-cMCG=;7O6>c&1*H'\9p.FWsh0+Rg
U"TXh%1n(&6tj+0U)WTQ0Oc+JB??=u=pL5cL<^7R[YG-E:PAFvDX\]g0<vnoXPSYA
U":2Oe-V%_v_9<FlMIgF_8'C64YH[7;J-gPi7G[JW45TmWnwSyE0PJ#L'Iu&R-[IC
U"=0/NnX_)*Ok8<jkZCCM?.2[kHK7'(E:io9I<QQHZ;IIplWJ/47/jy7<L9LH$1d1
U"DEk)2u+b]^ftqz4sZTpMkrJ*7FUadV5vil<itl)FeAZDbIN1\LHiE=m&V$]Pqu]
U"mJAw.w60,)\BCK;'tUs<T<5e0B0-?>9ALgvHWu/ZK],%2Z*?%O_Q?n,.c-'gV;D
U"DbtQGS$OS%\\+omBL$$GGc%$Lp'x093<QB,y%p\>]Cxi8>,4&588>7q]g2#gT*h
U"=2wC0_d.e+o$;z%#2?E04W4tboFZ,uk<J]\1En9J5E3k.i7ORvEXLg-:U>_Nb=U
U"[-lbwed^0LUif4=QV5e;GATCvU'NT#HVU&$2=P4.IP2lRKs4U>tLbbfQo*?mtQ7
U"'uVsJhJR-bZNZ:%+nLIR,dNYhK6>BYZA_6&MpyOc1mfptJjF-G8lC*E7Bu^wucM
U"EbUyw,t<u('gV;RQ+R/u>UN/oKNh[\#>cFl5#YsjqS^tHeF.N_<gl/Hy7q+)00k
U"GflH6xq<I/l_44h*?X;6),Xvh5iJ7lS>ja$C=R0L'#9HpS*A^gC#hbHHU/9_%oJ
U"w5#DuHr0#]OX2*2GQ,3x?:W8WUIdvzrN0KEX-YNJ#fRPD972JAjc_=4WG1Wj>n[
U"x61&DpV2Jx=pOiwx9>Z&MHfheMc3=037(6BTxa0FFgUd7chq%<=9wLJ.g%$)^Im
U"ZXj9';w?H1Y*K[Rek.&T?22my[gSEP.bQDD2BG)v3YognJ\(2E6;wi/&\v=kAmD
U"UkGUnKn1zhwgTc#2hBHy+Qo(x?8KJZ%K;DuGuS03H&G*1$U-$PGd_[CW.IPQbOV
U"-^[PL#s5%Xos%]8]76gTj8S[\rwoF#w8F&_3%uT]pzPv<8)sD;weOObfeg$7^t+
U"_jF&=eiAr4G7:^%TCXb1ucTPq-hRT*_]l0L4d57q]^SwK=t88x+<-y7OR;uxLm:
U"ywI)kk'BI^L(VrVGEL8BS1UDcD2mNs7(_3cO-Z?4XG?iDCI>[KAgEntK2)0MMX*
U"CGmd8Q[M7P*cAr3;/OR11-B?=A0R]hdz1w/I*j4Y3%'y+(u6fzerG[)-1p.8b1Z
U"uff+HeE.]saCYw=<bf?+z1V=5*H=$%2sIIp:.C:RK83d0(d,N,uO3)/uzdHqwe3
U"Vyw(MnZ?dTM=X+TCSQJV_00dK,<t(_5$^;%QYv35=:7*d8R&VmLA-Ep>>G-nE<\
U"Bj-tC\Rv)M>e<b\wo(\X6WT:^HWDk:A5jXFYh'\CoQbo9yqBF0-8fkx1uf.kEP:
U"G-Bl;Z]R_#],%elBlGklKrLcvu1/lkY#G>/2,-$p_6$(u+dH6WO1Niw67+ZN$8B
U"L[jbUBwBJWps:0.;(Yx><S;nVkK.b'V^J]:+zlLW\njX.;?g7H5N3r3ZB4rn-ee
U"0.su6Ho#+h_a2jx%B+^wG#>p7sLp$\Tpse$+Wk)EIJoXvbs26fUA0NAJ,%Lj<IF
U"t)^7n&)9)?msq%$/pjF=-ujxkEFpL>2V[J?#5MS,+JU3,mR]^'vQaP#<=pM;%H0
U"+/j7.6k6;umF0QXm)+2e<g_eA,kesc?n>7gO'QXtVn0,Ca>8f9vNx'W+jS<FbGw
U"(y?35d:I'u8up%&'9%%9%%%m-%M)o=Ebh4&jr-%%%9G%%%0%%%%%%%%%&%%E%%%
U"%%%%%&&nsi(t&xS%gfxu%p&'9%%9%%#%-%>apJEa#m4GT#2%%W%b%%0%%%%%%%%
U"%&%%E%%+%E-%(%&ns%ijrt%Sgfx%up*+%%%%%%'%'%&A%%%&I;%%%%%
END SUB
CLOSE:IF S=191AND 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
