'=========================================================================== ' 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<:uT8d^NCru/U/gEr,>B.I#K%QhpELd<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.z1k0 U"Nk;b[W6uHlLD?qc*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+KaDHDhoSKHT->kekhDZcO6D%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=/VeYJq1>U*7z^QF6aaqd7\R+9LEThe(r68\5y9; U"0B>f:VO:jU&z*$au_NhyHZgPIa4Yh:E2cKPVZcBJ34\gQhQI.wX&#[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_'2Mamn5EXb**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_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]H165oaKgap1VQqalZ7OS8mo)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*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-*p9JEam U".4GT2.%%Wb%%%0%.%%&n%sijr%tSgfaxf#DtATAj9'Ovh3TtYn_h1-iURf,$4MS U"%QppYB=u4RS/+lYDa+_Xbu[s U"0agb?pmm1pDsE7feMWf-GU^ZuZ\#'s0BuE1 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$,CWVWbRS0#'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*mK#6&B9%:(;PGE)h7]U9chjE U"ZZ;CjeaePICdM9xrnOtMV; U"+1BRAKwW14W16n\S8[b#ES1&sO%3Y.:YT#%^%xE]LwxK,zA/JG']*n--\'.&x.( U",u*+qeB2gO.?U<2D2'V1'P9+R(:&=I-ACunZiq54xzR5p:V4bFZrxNq/Br)FAIY]TKSEIu8qLRZ=o. U"(FAc1.\\[qgIU#>AN0lyK]Hv;PP3lvUJbjAg*y4)0lMk7/BXvqsj( U"q[h%5=RSwx(1B%v.XXK2qaP^uBn,JY,Ug=MDMB('AmK\iM?S$Q0Ye0*H,ISEg5\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%xmZm\iDFh7D:okWF,q-qjDDIdG'fSce(==bte9L.NsvUg$\j*( U"Bvc-w6]oGL[cjNI:JK:S?.;km%j_\gOjMcyaf:lM9 U"M^G?$G[ZN54fQP#evQ-J>XNs46/:t>bJIdcrpUIT4#mDf6(qtp4ssdCHCo(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>*4XHa)DpoGG%KKH]Q8DXy?.eIeVsjqkYYkFIJVKhDf5,ABK1fjb?U=3j(53U U"UPFADfc5;11russ6H5ax?Z2U^M_PeCBlm'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\]g09ALgvHWu/ZK],%2Z*?%O_Q?n,.c-'gV;D U"DbtQGS$OS%\\+omBL$$GGc%$Lp'x093]Cxi8>,4&588>7q]g2#gT*h U"=2wC0_d.e+o$;z%#2?E04W4tboFZ,uk_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,tUN/oKNh[\#>cFl5#YsjqS^tHeF.N_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=>G-nE<\ U"Bj-tC\Rv)M>e/2,-$p_6$(u+dH6WO1Niw67+ZN$8B U"L[jbUBwBJWps:0.;(Yx>p7sLp$\Tpse$+Wk)EIJoXvbs26fUA0NAJ,%Lj2V[J?#5MS,+JU3,mR]^'vQaP#<=pM;%H0 U"+/j7.6k6;umF0QXm)+2e7gO'QXtVn0,Ca>8f9vNx'W+jSapJEa#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