'===========================================================================
' Subject: TEXT/HEX/BIN/ASC CONVERSION        Date: 01-24-00 (22:41)       
'  Author: Viktor Rootselainen                Code: VBWIN                  
'  Origin: viktor.rootselainen@pp.inet.fi   Packet: VBWIN.ABC
'===========================================================================
' Conversion tool to convert TEXT/HEX/BINARY/ASCII for Visual Basic 4.0
' Run this code under QBasic to extract CONVERT.ZIP
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CONVERT.ZIP",4^6:Z&=8187:?STRING$(50,177);
U"%up()%9%%%I-%LyI\M/u*iHq/7%%,U%%%1%%%%ht(s%jw%yjSkRwrV);N>[]=?w
U"8w-8<Py*.o+KR.uC7eJ74a:;<byttTd%[s\/Y(;zFkVX8bmog(V04axW8#,qgh>
U"9poWRxEo:*tLDd]h4,gtJ0<wiP:7Mh;JNh7AbZ%6gH:<CIk&N2#/N4+%Gn]jfZ_
U"7Tr-qDH?wAO8r05im8=[Y]Blg)-dFNK1&wZ0teGtPPlT>nCSJ4nj_<=8^4,75ho
U"_q)7I,r=a*m7ZAvNzRG)nx*Hd5g^UYlJ<?NnG$OWPeBnjr6lEhGgvsn$BbJ8xCu
U"DztH*?&1,dBOqu%q[dK.i#?(sY;T/+T_<mEC8q<[8-xZOF,$S+[muw^#ZRt),Aq
U":3Dmh&GH%(JobfY15l^rQKRiFW>s(#Wl7H^x%[,jG<c*$HFT_1=q+X>N0Ry/'u<
U"5:Ds\<u_&CBFK;l3:23F-J^(+'tM>5ts>ggW6w7B:*.7uK>'9VjpND(pRF106EQ
U"F4/j2n\bCt6%UgYHq<:v(kUf=QK3iSN;.*H^]N);:()Tc3iI5c^;Tx$L*ThL='J
U"5dHm_2B[b83v)%<q9mPybQS/wpK7A9PA-?So>*56^p7UX#U<iOjyXf=pvJ#muV$
U"W?<-ibhw:WjYeCwU$>M6noRnrd8i\5?+L>rrM9Qf53kJA3Z$^/#us]G2Vec8G_8
U"\ChmDKu+9Eue8DbQY5,OSgjrIW_/8xbUcZRcJ^n5g=D#D&uTW?dvGcGdN'sYKXp
U"yr]LO]mq8diCxg#%K]lE/zT=XgM.jLr\7:3),HH-]<0/dHqQhZ71LuUYUtfuS+/
U"MnDXl)j-2I\T-53I7&'RNM[c9>k08G&#<?cI;RJuqRn-0S9I-rCm3ui\.m]EV%7
U"s&7J(Ci_S?s/UK;RSqjp_>;tcx1//<hfxbE1gRuV9Q;&pW'+UQ)>=lZ-A*?aH5L
U"s)[NJK*UhcN^o#N#tWG#?3E(cC_EK;Yg58-M7uu)i:]6%sYhqPudtWfk,h%Xc[u
U"98sNDXZ:>YY?H6;Rh\H>,SOGN>dBf\IKrps_c^)KtSnNt_Xj_rjlcxoJ97Ks/0M
U"r>pjW.Zq&sm83_ifYNcIbbYS8kG[Z,\9k+d3>q:Fxb(YMs%M\2s02'o_I(=<J+G
U")anlYVU>2fat#=VU_:266r4B./k#'E&?nPiR78Jc>*V\vaN<F217OOmSb$h8q\+
U"NOeKUk$:mZtW$V)=7:,,oCcu;(m-i3R2N&BBppMF*J%PfE5-^UXtHij,#'H45#+
U">P9Y(bY4gS$-Y'fY8?t[r.ld]oOXEk+6ZFkAKMQ80cs$zb\%sb;breF]dpm_a8k
U"?91:]7&41sa$u;IG(Hcm]j,xor=L]\F=<f/ZxDKd2EcR$ic[yB7X=dp;M,ZNb/I
U"NCJM.&q\d^aE]r-*\A,>-qoF<Zrnh?Z<G0ODsB^el7B_Oq-*1rgSQllxASukf'C
U"^mzyb3k\;'nkv18JlbfRU2COQ*uEButV1mht4&ZcQ6fqCRG(?#$pjUd?B>3$+i%
U"%zb&3DsnFm#0yspwd;irF-=+sOB0SQ9'jCK==GfHMb7uFd4>fdl7gSTCV13v98P
U",2I7<G2Q$3Uw:lXYFjKp4Y=r*pj;chTPaUkGtXP3a_4Fkkw#Fts1[fFQmpeB^7p
U"nSMJcKNF(_l-^qsa'uqUP+2^N',bl[-Q?xtl+ZMVcW\h_4BsxaFo?pq8T-a*Duf
U"ayN\MF;tW5y$^,KU)v5DfSAm%&#AB5ed=jKW3v-uAmuc[tCQwis<Nh/16[*kE$g
U"wD[7^']EQc%<;vad4'4VsgUX6[(B?\jpok&$&?f+MMwhsed\FMjm=a<>jM'h7DF
U"LaMLSzX4;2\PZuKpr-h1Z36e,xjCLqa.Y,\B)jQE-mAE)Df(hUB<sM^Kl.K$8uS
U"I]oclU/;1]%;gq>0;ye[E%(FY,.V3sF<0[kGaP9VGG1cc;ZLh,qg1H#'8H^[C+o
U"Xh0mNiNNV&*T3b8J/TP>HArtJ[AA*#GNjm6_C<Osf/d*tCCj?RV+;;tezLQnH3<
U"&2qwjP:#;JwGzMgf>.Ae:u5hb,/dI)XoDu*mSg08Uxumo.;.n+oo13pT*/]%x7#
U"J65dAsIOL1hqa*T.RZ:(W7\n/0aU#-g7-]cV_Ss['])3<wg.GNh2iPcJD^,N-&6
U"e;6p7/=#&taQQkGYFk_j007&t\/JdZ.*LYd/X_<r1'J9%z*=sGgWEqeVH;Q>Rv>
U"(jjMY^D_<mU&il''AHF4&sZvr+A,&ztpNwWtjWDLKsVjoa?#G,sbKN>a%'Gi7*Q
U"Y8rbm7:H5qv#E?8\2XF[Bn$*^^MJatfD*vhrZ(zMIN_6rvk*tWDA5.XLakbWLi%
U"oyUrJ$<F&DQT^5W$]_d/Uc'y=32tJB;Q4Z?8G04,YRux2_v/IU3[iW\$dNMH>vS
U"NAN6j+\lsY?;GDnF6kJgg*PZ5M>hq#ON%t#91fr<&qJz4)7v\#'3TQ$\qM]_W^=
U"(EW<K8c;T1St:4eWDYqupHLS^Z/eib/mkmdL3B7QL%;_i6U1q([q:MZjnqG)oi8
U"_q+wW9Bi9BYAddW\vt+5&^KE\^h;%dBj(xi/4BCn2H(e['#(yS_AGSkV4c\f:<*
U"AQmR4i]boEL)C%&OXm-DCDf;X7j':[1NAihzNnI/9FMcj<wQWqp(C;ZJPP<S/6>
U"^P$]rYil'Z]\*cjs]3/2[>a4*_$Jm-$Xy)^g6WZZ<QT>7MI^Fm24C;_eY*n/YyG
U"j'_7RxI>\TYW(JRJ%u$EcXCD:isWPb/(mn6#Mt8mEKNzfiIsDtd_0Y/'1kTG'\R
U"yb&fDIWUgklwGL$WIsE#V:i<?;5j9,SThIrhZrFvBwhj0Dum2TB^4<6-Ewck;dK
U",n&I)f/XK>$r;2=>Cun]KlRO/uB6$d0'E]MdsJu+8)s7D=LNU_(bb;?Wla?sBes
U"8Q6vh$X)zM?kbcwn,hhh:$d(x[SMUfabQ)\DcZw/*_,_nR-i2#Js]:]i[0Po6u5
U"f4p\E2(K::&'KWA$RIQmsw>:1:q1P\lt0XE6d,OusaKZIJdL<dVn+rr'UVxbbUu
U"]Mq*JTg^c>f+:rVbBOEbTNaDWx=3T.KZUbRT1QSa,4a*ZBAc*eerUwE*h'GQi(X
U"c]?)GK#ICD$Gs48p#CFB9tN\ZNGa4hJ;S;F]8DIX&Dm-WXxObwg9+)dVlP5y#Py
U"62=/6gvuuI2,d&FemBwq')?TiHF#?N%wHx,8%X,&-kP6,A4Jx4IhQ7k)%g6yd5L
U"#U&G9\h,E%5e305d,onD(#Br[Z*o5A0Yj9kq'Ux<xGLrm&g8nY2WjRTQ/eW\]6i
U"jW?Mhx-'Ygzbo.UVUdD/MWIgAQH/mihb&94&A+WRH8Fk*pk7qQ4+zFK3DJ1&:9X
U"IY:\CK'x*up%()9%%%%-%)Ky\M32*m_'_'%%'E7%%%1%%%#hts%%jwyj#Skw'Ef
U"eV]#JZ5Uk:a$oLFQhWm%FJSF%FRuas9>s[%))]A*>H#a&;3p[)HG]MWB?S#<FGM
U"<7Arbti0,4b)*Pf=ofpcuT8f/QT^AzuwwUeotDFwnsY4+uHeooL[zEFb4oR^FaL
U"qISHUt]9SBnAsVpjPqL;,PPtaNZ/wGNyh):cRGqw\x5Yu4x&5HBl/xrHh/#ye\t
U"EMj+Ca]wvCwrbn)omZzo+vr0_0cam$D&Tai8V6i.*qRP/\<H&cpir6JcbRx:#uT
U"N5<],C9C?Pt>*BDwB.lCAj-Ig9#Fe^?IfhOePIIrjiQcb%S7-I)GV\5o)%Z]i$X
U"JRaL5o+k^(F-I8+T\5;oK**d2&)c#jB'c4T6qF(e/22:&9.N/V%\2]_Te2'R>*&
U";i:l3%&ohQ87-Iw)U#-u(?8jh,O9??X'MCW%3&?+&D-u?AFkhO9_W/h>OKi0m?'
U"-M%f])M(44jh,O9??s'McI%A'Y3lId5)#c,]r.FeBBf'hOk&o<Y)h7xRpN5.oC&
U"Q:2&Y)l+pRFe&k]=Fe<A0A'c0GXrFCeB^bphOK*#;Y)7.NlB-Ru_VY/U%PZIY)w
U"d#x_)7C]whO3K(6Y^)7S$&D-u_3kQU%=R^QCBrbfv5b(7-X5i*0d/YwN^J?-I91
U"5WRcX8c%_^U%F)D(A'/c<6fghOe3[m3&C4p.qF(e/22g&9Db:Aq7ZtvhFxpmE3A
U"A6^?U;muBY]naxOYuJSDkv$EKYvOLS?N8B[uvO$TZmpnvhZ$jwZlqDMVJAwxZOh
U"r5?w,G.h:%<oPv,M&G*S#]6=e\($E-Bio1n$wl#Ps0DC^&^Th^Nch21J5>wpUkK
U"wOn%ZxQcuZwovNWQ3hi/udWXG]=#Np:(H/t$7wZYv<lV_VVLrurZPeoXsptnpG9
U"X#3:&-ovL[tHKom5;^3omh5^3oLm5^3Kom5^83cWm'_Dup%()9%%%%-%(2V\M.O
U"^H*'t&%%%j(%%%1%%%#hts%%jwyj(S%guS,vJ=BSU9Lal[D%-i+seDk_VS#9rFS
U"m2.C-DoqnHOVG<2QcQ$2Y)QMNJnB/c-_:_csc2$WDB6wd:Fd[*Sc+NnYx+V9K1g
U"fkLoMuM':HM5s9;HRQp8b3[[qUoYIJa:?Il)<0nkbnHM<]Y.UC/AUlb0]cX#BUY
U"X#R5JMd,<TKQvl3'b4K%^yo3WuMGHaLNi]ji^7.XmIs'=fvJ152eNn_[h&qGC=<
U"CWsQZ*56Igr?#R<I*AAG,Wq;)34yB)cJ9Y\%ZAAI9f4(yJ)Q<:vW#Edv,a428FN
U"t(p2V#F=(),d=tE6Jirs'APrI>0_(KyKCi#mmLG=v%-fF=VI^VfZL4;>fa^2dAY
U"_mcUi6XJLhSiLDV_]DUvD+9>$2URmt[h,#C<]rmwT_5[E]d&yFMsW4(s6F/5)x9
U"zpr+bC5;Um:q8kU/no7Ut#or?f.Jk0yoU)pH+F/CYd*gzoOJ<,x>>l%-3Slgd9H
U"e3yeZIPKt5YMTr?N2fo#AthLqqF7R71g*:Au\g:1WTiOh%8Bvenp\/)o.&)0SW0
U"[K\;??#nr>B8<GP'(0GGabeNv*/vgVsK=^9//\oAYLz_8^.ch]q+#P354?XLME+
U"%IV2aw6X_0R60LY9w>>&*Rv<7vsY\*x56-Xjdu%p()9%%%%-.%Zc\UMgjM%JB'%
U"+%7-%%%.%%%%fgt%zySnmhtNL(b]9VU9TJVp?XBA&W-QGkeje[OJ)SjKJ7jw8_:
U"--069eeUmEr-cRVOF%1X?&%&SBtNVA\zTv<jY\zZOCQP4WFQuvWUV[98zYuIdGH
U"-M$Q,2wxg-icEFW1-e3=-glDL8QzbS\1:W:fUYV^da55Ccg5+(D6E.W:<wgYSYs
U"0Sl1:LlwISY-sJ#>/Q6R1*:23O^FG2)aS:ZQ:kQY[C,n5+=8JB5?U$=IF)PI<&3
U"-k1.W)^^SX.::Ig8Q:AA#>QWTkeS<Yiqs,UYc<7GF1;&4HhUD1_FG'Ejp-J-0'r
U"Z(D.gS\1:<CS=g?(RCLhD?n0nL5+j/#HhU1e_FGE^ra55#[qg?D<mkU'Y[\xgg?
U"<%:sUYcC\)g?5<3\1E:WfUBYV\4XgiSoX.:.(d#>QTcU5.:*.$$>tQtUQs.:.B%
U"\W)Hd+>Q#[a).:9de]cZlW(7e3-=l])I)P6:b3--glEJj)PpS0A5[=\3-Cl'IJ)
U"tVN'[I2_>#b5'rC_JTtJ,btgsdNbmFJOBPKLkIf?/CDyhJcevBSlphngi6H78<6
U"N8b=CfxYZ88PV<w>2_>k6sU=cXkpK$Wm'DaWL.qWGq;f^u=fPfXc6GiP0fN8+5f
U"tz\1UZ4Xd'Tnhx&ot?cZuwrjx'T7TRGvh6>nMi5v4^NLbY*^vv$HFDGl$lr7bk8
U"zt6*4.u%p()9%%%%-4%'g\+Mq7()5R+%+%A#%%%1%%%%myr%qhtq%wSkwOrN':%
U"t#^9Wv]=N6)+WrWSO_$,_IRP\$QNJ4gDEwO/vQk&[nQK?\AjQubwsn82ao)P6KQ
U"S]MEKG<UVh^6P7BbNP6nrNZv^okDaH4[$bY>=N1gB.3-l(n#.9g.3%o,IL4Lam5
U"/M$YSxhnhJ-.w'fPBg\2iHo.bfTs:0OX,2GT1URGIrY*Lgao0^c+U%qw%QtV.lJ
U"]^*uL,+;,i\:oZ::M4$-Ct6qzMU-z<7.TIbpXM;GA$RA$&TZn$h7JeipP]REF-<
U"e(13?a=RIoa##Q6n?%QZqauO=&U3p?1fQLa5;&mqmgX4hby?oGlaht:10C6GO]^
U"0kciZqj=EjIlq1N2Sz-E?'V*%CLLB.Kpsy,?3rJGi9)(_OSoY/TkEnM1jX_q*.j
U"%mKk<i8wYSO*w7kC,Vb-SjD?_37L\bV?_&\A?8^OIqxd$7P'&&GK;WYIS3*kp$(
U"eRxMk5[KIkVT^l?<PH7H=J1D8tD(0W#ACVC^T)Kgq4GW]82ZP68J+a7(vf9jm8Q
U"m6Rb%b$f,>%1H]CeuV)R=6q7J_\gj0%H##77wqYo,WXZ5hZk[I2YXSm;)VbG&2j
U"o[=WR/YRoUOr?Q9.j,SS#<^Ml;ZNC;'Ap<&#/ekHG+SXh(5/z]w/EStM+2STl'$
U"b(?8:/Dw;Bc_Tu6'4\_0x<tSuQ/c;p<BPRr?,Y6p'HPJ_SaIbmf/kZY%k;]=b$O
U"ba0b9nJ6Uli73FUo3h$lEKGSGYlUOW_7UnOKc*^Swk^/?4D\'PQn&H/-Drnh;0$
U":WREBN61Fp5b:r>U(9G;dLgE6UnU?O]f<1wNPx+ISx93QczXMO8tC^Htct5e_\4
U":O27.tmCv9>MAU_XaqfakUDVJuI)m0Dzna6rlSxu*BEw]N3q3P+Mt3+#IRbTRw]
U"0bSp/u4.)GgS^fSM7T0pv3a+b7*&\ab_p;H#,pZeq8+LlBDGEe*eJta:XEA7z2f
U"Adg:/s][y[NS>>:4WFMWBu,\2YkHr,b7ZEj92)jo.:]SrTMP(t;>&olIRXt_lys
U"5tKaRIeY,-49+:0#rn6/[1l-4XjCs0TN6yD>sI7Fr\7pt-,P#G)Y&0LxDqoMm]G
U"cl?M%zQ>aJJ*8lTWO7Ot_Bg-?rv]Nx49fElLinXQ7Py,W+?OI<vPNCyLWzU'9pB
U"KGxfF]uXuvh9wnw8M.IR7LuhJ(]^$#;/-9VUoO5=7&LXPdrm[WUzQ-m,GH%>W7/
U"Ne=UCDN/29^XnU]K4P^[X#V1-uc2SLYEGR\i76]>rI^d*RAa7>ksF<3DuC1kCK*
U"\2a,'J1wSO<(93uZVVRlV2qqY.AfrM;;lt0gy^wG&Qtf,OtfxRi#;SPzJ:griHq
U".M=[cE3\_p:W\Y<J8oZx9;[RJ1bt9=D^I'ohtP0'[cBBAg$2;ij,K(CV<3&H2m?
U"W35sbE.2&1S:WOn2O)GPu(0R(WBeX#*(TC8pI1b_+rZ2AH-\#t%D;$_z9UMIG96
U"-Xn8a_Hwp^CT8g/r%-Vw2W#/#6lZ1qLE\HGOqO6()^4M:pYXBgsSq-CF0x.=7^Q
U"8*gkS.ltY(XEtxG*gjZ:<\koWaX=rirh$(M0W_Oo.qsB(Z-G8^k,BDm1B+$0v\j
U"\kR+Sd[]%LDBK.R;V#CAiI:/<>*U*>mQ-:1$VR[o\#wh$xgtBl+W+Kl^i-'./hN
U"(H5x8CBMs]*;0uV-?+*Q[GQd3W:=)alW%-k8C[>AyUHOSj6.v(205*f]QW,57X'
U"U];0]IAHT'R'>R*/F_F*:+_=t.&cVc&1WGu-Pn5s9mRU#Z?BD_t8(oXt\qg#q3(
U"iG%;(7.S,J*\Sn<'[sv.0=4M\OnlLe$xe1lYjh.t_3%gP&mjW>l>bC($'D31mn8
U"-3I2sY?u=\LFV)=>\AA&4K_G>eaB90IQo/'%RI]Gfm6A^)7P#\800>j$58i1F<p
U"G7nv&%lydplz63P#L7ete5B8>G9uK3OTCE,3rwd:Y>#tu]_JGFagp^DL:Aw,a4+
U"mQp_kG41m)Sds1I'&MkNo3R\wD0ON5r+QCpB<lKiyK5&MMR;c,^#E30;od;r*td
U"FZ\X)uLb.Hs(6u0RUG-Q(MsJ(s1XkL\Y,PCMwWC[FVi0ZJOad8p%tX(Yn_XB4jN
U"%up()%/%%%R%%&gd\M,j-3[1%%%%1%%%%1%%%%my%rqht%qwSk(w'-%I%%;C%%%
U"%%%%%up%()9%%%%-%-o&[M1DBXe&z'%%'o.%%%0%%%#hts%%jwyS[nhtN0Or]#d
U"\5UZ,i-&4uY>ES(U_k;l?U1c#)c(^TY#1EC;_036RDke$ialjs6-mg*l*Qo>=A\
U"V/[IZuVIi%5YZVu:ZAe?MZ,ttJQDm?2NoeK,m^rstHOeBtj,CH>V9HvZ;#<0DJt
U"=.Z&wQd9YIh]H4k\:w>4rBx;HgbY>Bfk$$+bW8$,bsP<r8__r$i$lU<c,s[o[0X
U"4sEkD?vns(Nn^GX2&'u#TF,rO4lu-4S4T*[SP>\cb2]H5l&JGjKmMH\4yn$D.^'
U"i27]'C0##V'90nh^VN=u;3#Hke*Cr]Hoe-\#=raJVIR6uWk^.F)--O<]'fC,:=U
U"-wNRR_'CV*WW65B%8Ho2-lA)IY$gn>O+,PI6')zNl]OA%E?V'A9ZU]2OA_[\1))
U"df=-wP#E_'i+(c-M(,FJk^e:2/^HoAqLk[O)CrSHo2kc\=+&:_VF'cZ8;]O_)bI
U"f1goH)'=p-7&B/D)c8*VW6uqzXpUA.uSQA\=&<62RW6au(j[(-7S=Rle2G_%1)-
U"3O1A)/c0z61Ho%0'F6uS*3\=&':_V'-c.MBa&F*c[-M<dgo[OOP)5]OAAF\1O)M
U"90YJ]tS7]<rkq[O9DJUKWp;-j96-IU5cUkM5L'1dV';):,]j'C\LAW6uz,\]-MF
U"\Nk[2O/l=X&nSCh]wFF<rLl4_al\kCJkL5K5QZ8F>#q(>)_R6j4\7$rqKoU>/Nh
U"3$4I#fufc#vDfzPFrnfd(udfBo>f3x]ugS8=WR/.yP,xCX_NDQfAhNVJoo',hmT
U"]gKYtwqRWmbcH6:j.slN];QV]&^#r-HuWNxzMEVD&wHZxxT3i8ieHcuH]jbN\pB
U"hAmjblFt^0ANA3VjLvHqtcnt_'7'up%()9%%%%-%%+x^MP;SYn%r'%%%T)%%%/%
U"%%%wjfi%rjSyJ'y\b:r>TU:1Uh+0uDG=])2(]0%DV+4=)uP/i1:,<-(OCL:h=S$
U"CqLJ4n,.d:o=L%B2Q+1mmG>pJLm._2.2/1ii(\Y5RrGYC?\%e;*'QL8u%0ijAJ8
U"dWJf>YK2#&d&p;:xM4Q]z.m2f*?/S3V3%Be/hJ(.44sBjzt2D[D?xvCGgb>:qbU
U"J)TB*Jv#3gX&Gp^AXRF?3e^Of0oLC2\2$nF$O<h1AqCt17+j&<\gD'*+KU2RL'G
U"\>5bEsTh$NZmk7iWE=G>pDyl4bZRqkCDw,r(b7<.c)/10S&8BE#9GYQn8_8w_pc
U"iw6/7ur>S,LtF5it>]<uNm[cz*WCxq3;Ls8bQaJ)Q7lp[S0[BK#2q52JNQR_zdM
U"\D=6agpq&V5:-BQT+':$P2qPO2-AEKEG>WA#1xKhUfodM.FBPI%l/%:_7<Mo7Ar
U"#A+RxOk2iL4nKbAS&6c#DLeWg3UB)vct;[Dgk%I<-N$Kbp8=0[IVpF/*8a3nFeT
U"0yjN)6j/)htlg6\SieNhw0'6QQ:,R8B&P,b6sZO&J<.\_Hic\Rf^8$+:P/%qmiH
U"]QkgKf?5_cVG1i7[UkB/8Q0?D749wqOi>NbufN]X=X%m?,0*a>2\]^y1RL$=tnH
U"TM7nf\BWb)ef#j?>K<O<$5gY^pBVnduzD7*kvpaANnND9'u,dIb$Z&]W9sbMIcl
U"(fa'frU,tVbdDI0=?EDl1;6EObQbwFEZOZF)%kVP[4(#^=TF.7EjkW+4Gdu%p&'
U"9%%9%%#%-%LAy\M/5uiHq[/%%,%U%%1%%%%%%%%%&%%E%%%%%%%%%hts&%jwy%j
U"Skw%rup&%'9%9%%%%-1%Ky\OM2*m+__'%+%E7%%%1%%%%%%%%%%%E#%%%E%/%%h
U".ts%j%wyjS.kw'u%p&'9%%9%%%%-%2&V\MO^^H*t%&%%j%(%%1%%%%%%%%%&%%E
U"%%(%U2%%%hts&%jwy.jS%g%uup&%'9%9%%%%-.%Zc\UMgjM%JB'%+%7-%%%.%%%
U"%%%%%%%%E#%%%z%4%%f%gtzy%Snht%up&'%9%9%%%%-%*'g\MBq7(5&R+%%'A#%
U"%%1%%%%%%%%%&%E%7%%h6%%%my%rqht%qwSk%wrup%&'9%%/%%%R%%&gd\M,j-3
U"[1%%%%1%%%%1%%%%%%%%%&%%E%%%&k=%%%myrq%htqw#Skw'%up&'%9%9%%%%-%
U"-o&[M1DBXe&z'%%'o.%%%0%%%%%%%%%%%E%7%%K=%%%ht(s%jw%ySnh%tup&%'9
U"%9%%%%-%%+x^UM;SY&nr'%%%T)%%%/%%%%%%%%%&%E#%%%u%#%%w%jfir#jSy'%
U"yup*%+%%%%%-%-+%C&%%%#C%%%%%
END SUB
CLOSE:IF S=151AND 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
