'=========================================================================== ' Subject: ZGUI VERSION 1.0 Date: 04-30-98 (14:24) ' Author: Richard Colletta Code: QB, QBasic, PDS ' Origin: riley007@hotmail.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ZGUIV1.ZIP",4^6:Z&=5128:?STRING$(50,177); U"%up()#9%%O.-%LGnjIJ)%%%/%.%%)l.zn%V%SgfxN6'*BBSo7MqvY U"xIhuKP.D?C&[7xnG63K/z;dI;0#$Bj1+#v*I]UI1QVQlTFI\Cj-Tq#EP^p7rg(? U"8bg>rn+G7P.X9?k6tP\f2E+iuNCR;3^hZoB+uO+Db0%2Ap\m8 U"uQl?goB]gVU:yJ$)Rs-XXW'ajh..((#BLBUmj U"1\'HPY'(YP7N7]c.qw2-]Mj-0.P$7IHY*ZB05ae.;Y[WK:4Hi[(ufWG$FlSO(XJ U";^/]hALnO89._;9hmQKpmKn:.ZUI/FgJfH&2S54w)\*0LUQ;\U)ZqWs8Fs2UYn$'_CSunk^bw=AA[H]H9#k=;8JmmVb,qgm^HmYoZfL2dJv-kNgWnmVp?f'Xgc[&g#)BRGrq7>;5GH1.^kxFm09W_)zlXr8t:ufhV072LMoQwh U"luaw&'#qYh^7qYP.Lto-/_*q/8r*AFUGhR,;.gP+,^u.aIMMLK;SgA6^4?M9Q$d U"yVMK78g7.hWuY9S5E#(oskQ]#9hE\XVKN2Yx[.BJf5zAdm,n9:AB/=^'0T:N(X= U"DREgT#'q17).%P%J2Gz/:B2l+ujCFq*1ML4Zc.Lj(?kxzVrPCp8uCPHM%]a?[EY U"MsnU?c]\MgJM(ZHGhl4FD(.]gnbB'r]-f:+NB-.riG0$JX:hdFh5bn9_Qd5M[7J U"E^PoMXqAal=.tQXOd[YL6EB,mUnuSY4(v,Az3/$,.^9>dVa.&RM(,)L>igr5;Az U":9&43V#&yq=;W-&1TA)]p_#:7EA(r\99N/JzlIsJ3t>=%>K\6^Gk=9#%Ut?*[a0 U"ilSMJ%-Ga3x$K%:,G[PGsonCd9)mhx8R6;#?Bf8f?h%.T8oE7Im*ABBy.t U"VW>K0IoVt3$A%6bJ<=nS')S[I*s7XT8T1;Ae2=p,=0Cj-]V)I//Ef1)HCCOBmJw U"0k.Y>qz=i=Wi_t_jNHGqxQ\'R;NN2')K,e8YOU[c[=GiL60n$->mE*AK/#TB39Q U"J?Z[ar%l;[*4JTi')5P*[T]r3.m#tdq3I0hbXpLf?NKNYCNq9*Ogl^2GjUxIXZk U"Y/'F=r9+,bEs)QXbGmk7dRi[8Pk1ab*aVAF=LSuhvYpNwDAzrG&lL[(&,kB5]?D U"N;+Zt(.T'nBg4huBJs^(kl/VN0a3b2^))ckfE)Y61C*sU.vIi;e>\iobi=o^979 U".k]PKp-/2,Fys.&I<]^toT94FG00NE,j?T%^cJC/ U"Im9TS>l[Ct]oAXZ'v0O^W6%xQ7HXv?qIc#>5j)f5=8W& U"a7xe.lJOHx;[$]?9HWPi6Wu#a-FTOjVKS#(ygUpnH=+ZgIFcmJ6hm2SWlV?C[R# U"tsp#,0\l8Y\$DT>FwAn8%Ynso<\$W5mtW76cuUa#KNNij#g_\T;7=Kk'ebX?EBG U"IYaF&)K9CWngi7*>iXTfa&c5D*n;yN>1l_7lXp_jZP=D6]oMdq\d(f)%ILS-*sa U"kE<>ke1cq\-'s3_Z$^Wrm:Br_fvom?*\*cb.,w(kTxnPbt5JW:<#^vueO8mHEw# U"6cTPklqNjnpB*DGWDAgi(3?b4EOh6#b#-61D8hS6WJK+px%N5(g$,(A_D'>9*3f7n53KlkI:tm:/OKuL$+D7FPhM2 U"eZ3Iuq]HBVa(s7*HiemM8_+kK-2tiATfvdSJGD7Zn;T>dkh1d;Gq&,96s:,;dOYcYL$.I8X^VK&lGoi] U"-r*>[)9PJM>+#l+>WO]U'gElC%^b^qmnW9nZujr1+Zet*Q U"Y(A9uh^F-#n3K:r&HJd-:0)xa^%FH5daWEW'Se+)j:JORNjsqE$+9w&H4gw(<;) U"c.pEX3xxB,#J3][M$WILZwAVHQH&H9J/cO?=l0Zh-#B>wL$0k4/P3g0DTeKTZt45TC5c$G=1tdg[73]S8l+*:(gJ%qV,Px4u%p()9.%%O-C%7 U"HjaI'h)&?z0%(%sQ%%%.%%%%lfx%nrSgRfxF);*BSoL7MvYu8)T#J4,'ZRiT=M/9F&*E1rQVvfBTbXaIk<;kPb,DydM=DptKVvnD75Ywum^_ U"GSUtg5cdrPIg-bd&KZWv\;pXV'8,'1fU(hxZU*fM,K>EXsrgzjN8#B^IH'T U"B2uZtBTIU&K*UCb:wi=gX-L]i=)d6G4FpbFr:jBX+#>ufHXWltDFxuVE7(ou2o4 U"bmV,w;5Z&p/Gex<+AY(yk04EV:^b'\rgE4T]1ga4DFh]?Df:9,UkeefsU_4Rh1# U"O2PJ8#6q*f)#p'rSp\n9=1;B>0yQYOJGFi^2FhjzBI5Z4h*TM<2ggP/M#'d,o(6sjRo4YQPv1rTjDv U"qbafdo7ALa;IB U"pm_n/;eK/u-Kaj8#s'SX^jTH#Q:J13Jr>Pv>'0#C'8,S*,U06joC%l^l#5:c[Kb U"%*Uf.sQ:-Di-Q?gBKOblQe)$$^I8:]'l8iISuwPgXQI,J'%g'e545$cM5Jtugf] U"5ZuBefZHWUm0:JyO[:w3eNWHhrIO-qOS%fd*Te]-MJDuQp_h].n63K9P1;M.N\D U"pv40MujoA,2JuIQ.Jpu5>]P2p(R?U?iZ4apJQcHKfNUbpM2JUPEJ58ORB*;bWD; U"c45soh9__i8JoPI%#zR;l3v8*(Ug7l5#BZ*0t?UHm,mZUP)<1p/>^/3CkFxZ#]$ U"#]EGY*:9Q(t_YrtFiMmXIWAYp*vJ)HM8b/Shq;;2&dPrxGQ7v:sY,[/'_mZyu;m U"[79?C_bN?G5('FaX445]hSq6E^=VrTt(u>n?XT3Ta?,(Z1p4TW4TAEBn%^zf:>I U"]OF=Bc;Pt;Tj*irNTqtSu2u5;y(6tvHUVyHuiG7K?C_Bj*n\9_=*Ziw]PhaSwsV U"PMKEdk1\Y(nfpC*4YP^O2&f)'zwR/rZ+WgFE0&O/dGD1RD2bT1V,zJ_%T%PGQtQ+^*F(erG5WGBmH4WYI1wuD.C)AfI^7*3c%>iNTN+*Osiv U"lGPEG19]dO?c*f'ffS^LOCSI\*/S/2h1:TiCVgMsiCML_.=E:&%\.2W-id6j)V6 U"%D9Z3&=zN\DYud7r1,d'sQ2%.7\D9O4%mLI\m8)uMZO7<2d])/9u^Upn$lF6=u3 U"$*84w;^^2ZK^nB].aKi)98(K\11H9VTjYfuATbTMxPebd1=gc>7)A( U"8^0BKiqS2ya22Z?O=C>ACU;O^,pi_fB$En('B]fVci0$OIKjZoJ=(r0kET;xDd^sw3rXJpkb0=LSa8(D?pc9.,wJ#'E[&[iN1 U"0w?-[9_)-;BF#tPJfQdt,f9L,P U".VOP;hD9p#+GSpyeH,o>''u$V9cTXA)UrPrDK9M.V$HBXgNK1)A**L25zHCILtj U").y+?Gbu5(7DIdhq3LYOgqYmb)XY6[3ci]*E3].F//apL_i;]of.9\OS=(O),Y= U"uZgKX2Ik9fS]db7q*o6v5dKfm*2tqr44s//i)Ao,->Wn_k)rDG&PWL-n)rC8&:: U")07a:%:QP-nqW9EhSFSXum(m2Pm?NhnH-pkm$p?Kcl9FW/-sd*Kl7I- U"dr%$_0JtBFupLlb(GDOo6HO'DF/5Il>WA>q?9xA6'^wYg&\v.[K4)$T64si0=F4 U"2)nHYgYY\T$bb7Srj.cg+I$m2DZGFm3HatRq1[V(q.%>uWfD=#CZ'a??7]gWLY8 U"XQNc#VNIK.bicxutl?.i86Iv>WZAv==#qdH#I#k5P]%vRuIdbR+oH.G3SFSvgUP U"ioiP9uu]NW(eYDw-S:d-MMO;jcj3WlonkGpXJU?<91)d$uz'2SAoGQqalk$I8ZN U"_],.aW1dHToMSRW/sVqhuyxvA1Nh']MvYq*smFT_<%2FSaa73/E)\^g2FGZDxTy U"MZ3rpux4Ds(/ijt7vDox+:1JrX[M,USf U"n<4#'v1]8L3[WAPM#ug5hfpH-rh\&oT1La[qm44em$Y.58re'Qp-p(>0T59o7;W U"^g'K?Y*6;ZRjN=XbUw_2RIkOI+WusS2b$DW11vaC6&aK'JVF+dKD+N[qjbIXh<.7C5M\yw#gI&^W]XBmFX\vJ7J+QW,A5laP?Iot4jcOH^5bTB U"4q=9s2?f2#[]nLd.TBt1eAB\>UP3cvb)h0PnV5Ud&_$hoq7*S,4B:dkuUK$RW'B U"itVth.LBCYM?h^T[qfV6aryYPrEHeQS$R5cA;nJ3?v_or5V_i2:IK/[+?wk1]C% U"KCBRr0q^5W)M?9dm6=XTG5#'ln*?eE1w&ok<.wJ>sJtu=/NHA=Z^4Xn7Dv?K%LG U"R\;q1Zl0xvtRCA:p*/Gc1h8_o.A&qyG=$s.iW^*U5S0dE-UMrZzK:lIS6KqJQOnCGu.t3D$wvk(tumdAmtG]3U;GAlH^a[II\j_PbUK[a8k.deJJ^Fgp U")9qlQMq*Yxj*X[26bdmY[b1:zgMgqb)EM:XKPseWTAmPiass_-[TFqoChuf'\(a U"cg$W<$XQ'9gI/9VjEjnE7.[=0#eqL]m>d9M6en3juPep:?u3n];vyo+'Lv=q_.hs%eogI]i5Z:$RG<=0I U"ZeVk:gh#(C:DSG]21(KAtm>d*h?f6r1B&1sHxQf=\Aj+8>G02MO+S)rQBMe::Gx U"[6y+-4nbCn30^Um&f(BGgfiOmFqm$-d-Q\u-no<%?$JT'YM7rjfaB'vu&sD,GFb U"X>45CFh6.FUr<)+LPD-3)f/?+6ISsxLzoaJ47.ZQb>2lp8UGD%Vl<=$FwEEeH/c U"hZ&EHX)8Y9?#q#8[RdDP4&UwFR5WvfVWJx)]_9iG&)+CZG/5ofh<[r./9D5HGA$ U"IE5SWMAN)h>([i:_Xg(P\O+0$F1:SKj$,2PUS-Q>=1P%-g#xw7%%/%%%%%%%%%&%%E%%%%%%% U"(%)lz(n%VS%gfxu%p&'9%%9%%#%-%7^HjI'4h)?z#0%%s%Q%%.%%%%%%%%%&%%E U"%%%%,-%%%lfx%nrSg%fxup%*+%%%%%'%.'%>%.%%R8%%%%% END SUB CLOSE:IF S=221AND 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