'===========================================================================
' Subject: COUNTDOWN TO SHUTDOWN              Date: 10-07-99 (21:36)       
'  Author: Justin Gartin                      Code: RAPIDQ                 
'  Origin: jgartin@mailandnews.com          Packet: RAPIDQ.ABC
'===========================================================================
' Shutdown computer countdown
' To extract COMPOFF.ZIP, run this code under QBasic, or download DEPOST
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"COMPOFF.ZIP",4^6:Z&=9009:?STRING$(50,177);
U"%up()%9%%%#-%su#lLEG-/+h%7%%3)%%%,%I%%<0JGS1<q?BkV->;%+/5e)((mB
U"hV#H(,''5*G2C&[5kqkkE)PFh-UZxxxb8Tl:M%=*h<%-E%?F#'%WO=ZQ3])F%<&
U"K)#%%up()%9%%%#-%avIlLgA&A[o%7%%3)%%%,%I%%1>JGS1<q?BkV->;%+/5e)
U"((mBhV#H(,''5*G2C&[5kqkkE)PFh-UZxxxb8Tl:M%=*h<%-E%?F#'%WCeT*k'F
U"-I.B+f%h3FW0c&Q2%u%p()9%%%%-.%Axl#L<>?(iz*%=%;P'%%-%%I%y8<J4S1<
U">?fTb5=\59AUvJD(;_Ji7#-Y[2tO;e0&odS$VyqZk1C86D$;G:gnf&73;6Q988#
U"iU^9D3Y2[q.4?na\JtTr\HZ8xrHPBoJMtMDH82fnn[l87-xuP^o'e.k;0NTVVVr
U"V=0Xrh^#\E\zL'2mcH]IA79A4r-2n).>b4oAHlq6ctC_Fb<wtWH7J^4:X>bWDHg
U")td0=8)LVjptq&tuN0Yn9o6gH=)a^mb6+tCTfuDCu6RUBFI&4BNP:6T-Vn[/eqz
U"<*nW0Fpmn4Hm_M];q)rYJ28H.W2,f^0>6Hf(Bg9/n4#M<<q-<gfOX?D$S?q,S7u
U"cOls.fL3F'I3TbDu(TC6#[yByqm*(b.J,rgr8dO,=,G4[qEAfWXI^Mj=n_c3OUT
U"yeroBd.tw0b^sKWh/+0L_8Q&P#9sRf$OS:w8prI*gOeDK)(k<NuoIr[(y;>bs1A
U">z$wJy>zJnLRN2pU+54=<S&ZQ2omvOcCD4tFf(dpL-0o5;6fCfgb9luNvToS<tW
U"JZAQn)tn&n5Gv2Z$P>S7.LL=MCiaHd5S%\sEr2DO6KURJGqpMZgtBOnnQP'WVrP
U"&%<ZPsAMerC*(cT6a6YzrS,b_OdWhIJj+u>G&P5x?H;cn*<cfNUlqfiFn66UvLc
U"[ZH2hQXtg8;Lp&dLc-)nV<Or/=2,.cpa.tgovL'JfsW*(^V5N&atEUfP*XEpC\b
U"16ngt&dBfTcKnm[:0rt7v/,*HDXsywg4LcE;)?P0(+-c(y\\D4h4R4>4KTn%*Lc
U"tQ06rg%0/M.8;U+>Tdqoe\-w+J+BG[2tQO>fOdXpV*dVXZ4GbjQZ2oPxGu^=r('
U"SP2P:LqUDv+l>_>6W4MPaF^$pNJX?DI9$ATrr<,==Nn).H$dKnda8x%$Lc*ngk0
U"-M<c&$RLhIb2Gio4ZOKPK><-WY_QgHj1sm0G&Xo)__BpIbh5$bmML^_Frde7B%U
U"5IvBI=lm%tl.&D-^3),&bROfd;oDI_S7B-]lO.]OOfdoD0I_7B0-3),r&ROJ?3O
U"J_87B-3S),&RTOfdoGDI_)0P_),<&ROfidoDI^_7B-^3)ldS)ldoGDI_7FB-3)j
U",&ROOfd7,$d7B-^3),&bROfd;oDI_S7B&:jB&ROOfdoD0I_7B0-3),i&rD&;rDI
U"_87B-3S),&RTOfdokD-=4;oDI_87B-3S),&RTOfdoGD-3)j,&ROOfdoD0I_7B0-
U"3)lidoDI^_7B-^3),&bROfdV7,d7FB-3)j,&ROOfdoD0I_7B$&:B&bROfd;oDI_
U"87B-3S),&rPD&rD0I_7B0-3),<&ROfidoD-<'D-3S),&RTOfdoGDI_7jB-]O<.]
U"OfidoDI^_7B-^3),&tROJ3HOJ_7FB-3)j,&ROOfdoDfI_)P^_),&bROfd;oDI_8
U"7B-3S)ld)OldoD0I_7B0-3),<&ROfid7,d87B-3S),&RTOfdoGDI_74B&:B<&RO
U"fNdoDgc8ni'tDg(n_ff<TnTZ07uTfk#lllB^j3db5FT&D^Xl&,%p.*dUk4dvLsn
U"d%.6n]Lc<$gO4nVhw$HTd->uL)GOY^#FEu4Vhp[ttt?C=%>Id2UXuQU3$l4:0mj
U"(bbpGHX])3=s*P=1HF%;nIKlE:Q(M8Zr2n)QST(El2,iOMbC5ei]L86ORf<98f$
U"d-T6Rc(oIT&0,x6rW5A$EPZ(ITsYm5X)OD_-vmE:HF[zc16g/N:6)jJ2X)<P<bI
U"\yH\sS6ItZ&0UBf8AyOj'X,\M0ha7N.i7b9gUmPW&&ghT^XJ&ljrW-ia0PKS6IM
U"%eHB[oZ;7KI-0qaQiJ6yBo,yp)1YdGgUBzul-O(k4d0Ylq>*dx&%up()%9%%%#-
U"%^xdlLy.3vrJ(R%%gI%%%.%#%%y82<4;Sh1<?felb]TIU9Sd:$sA6AQAEO$Tc+K
U"r1CdKkt4sn=&/QW5<g_xettf*#l=6sOiDXfaG^>994)nhtjumqoqHkDuPXX3nzc
U"\l^6ndqYK;$,cpZ?x\zdCcHv-[jrFE4Vuhp#\WjCNF*DytE*l?]%FyY/7DvGC6R
U"B<eE^$+t7ZH$lZb4NOiI..Iod$oKE(_<^N=<[(d1Qz9&gv#^8[%==$n'Laik'iW
U"i6CiEdK&J3]-h>B&:%k[co)SIrP3AejW/9b&Tbc,_U.$XPLQqP^/?D'4Rf\^du,
U"'sSd2xHSXF-EqO-pmDp=D=KnDVan3,]awQ0<bZ0Fp/BS#pUhgv;yoW%rbYE?wf>
U"qTDM9YhG.6a8+'m$;b>&1%$&YTf<O8?M^6YjvWy;QE3d0Glfyioo0dmBM#',Z1T
U"'*O>Oh&-kS$3+#BxT.uy9ycJ#/\)8y6m_\F=IpvI'J,LqMXXW-v[WHsDi[Ro_&1
U"bgLaP.rzj^lfq>kjn1%/rq#9Pu6b:iH]j0.+BxEK&5IT*>(=3]Bs(u-;Zb>EHnr
U"WWLG;ieuZvW-Y.q\O1$ziE#%f58LcdOXK]QTDDEZe+Vcx.7jY]67tT2\gAMn4qK
U"smu]aVXd5d+M_Hn%<B;/5Kut[n-8Zo_rh4=,-LNdC29n0b\<P7M&PBALnLtg4e3
U"2MGIDbHi_#?%0F_fw:ou_5xt.Rr>(p+&wICg/jpZmJxZJ(+qkD4HIH?,^cPr]rU
U"xn:huWU'd49=TG=dm\Dc8>/'4<[Ktn9G?Eg[Q]X[B.RSxj5i6O,hbB%adkpvuB:
U"Qhmh^i&LckBMp-YYA=jWnd,=Yhn0/Xb\<g3nU(l2$hD.\<s2/>gn..Cjzn]a[c=
U"qBH45h<nU>[#4a>[2H*0lVh(0m;)5VW<de.ofO^=SlU]DDki(4_N<'%0mR[pDf+
U";56lQuDD=OHsUYN6]J:ne.1EdGTxQutuemz7mZ&LxsLl)D=&5dn0BF&GM7_=L=D
U"ei(I5Rc1]Dc8%z+<'D8+QO6mr9.oIliOBcPigDI&I:um*hvfuV6d(*PAoa',sxu
U"6(bU.[CHb3ioH#%0F3hf3ZE3P1o0^30\fopYWG:kcGn%8s#,Liw#chvr&lCn.tn
U"jk=LiE*%.PiliH'p<up%()9%%%%-%(tulLX7pL#&&%%%'3)%%%-%%%LvD4BLS1<
U"?tBkV>B;%+5(e)(m&BhVHd(,'5%*G2&J[5kkYkE)Fih-UxQxxbT+l:M=%*h<-&O
U"%(H8g),F%%xAj(2g(xa4[%R&?*U[^HS2]1UQg5'nuPv'e'%u%p()9%%%%-.%tul
U"ILRre%Ec%%+%3)%%%,%%I%r8=LS1<?tBkV>B;%+5(e)(m&BhVHd(,'5%*G2&J[5
U"kkYkE)Fih-UxQxxbT+l:M=%*h<-#E%>;[k-%,KZ+a;%3%up%()9%%%%-%(qvlLq
U"t,58'i&%%'/)%%%,%%%2<71SM1<?lnbF)UdE5Ub#q*7XB>bIugX:$E9ME*m%I7x
U"68Xi?kGm5_;M333;]]nIVt+g.(tlGnnufuDejIZjFW8o8MoxqgjF*l*b82WEtNp
U"Y_>>^ph4N)TWO(_Y4*D=sGmA_xqtWxuB.HTx5V]qs+N_m9p.#Fo8tMWKdOmxw4$
U"()l2t8Q,BHi$PBH;gtEU&u>(kAPCwcdo/%vJlU8hATQg]T#Ok,I(WNv*VP,8)8Y
U"MH2[Rn5IZNHdE39bJ#Vjc5%^kmFA,+BQHo:L8j(172.GqA/.'*-HC;8A](XP5za
U"zWWO288sAtQZ_EJUt[i:om(<\f,z+.(ngU,F<D;?2])bai:'):f8#eu\SB^e_Cj
U"0V<W4$TPV(Bon^la5hNcG*ZkBFUcHi?Ww>QRk<OEdN4RtauSB.<rQqd:.Z(:N?d
U"+s_qV:FG,pB43C(D7SL:6>2g#2^AcJTm$JUM(I.gs)2P;7cH+\^/[,ZYNx4L#pj
U"-;iUAk\6\Sb9RL7re3geYA-]eJ1TR(t+S.(doJr)RF:jc2i_mDVp?d3K208Dj\T
U"7o_qfIkCiKJECG9%FO1^nPgMYU8-KISW2Da=I4QAPUQ6xId?O]O.QKW?72+;xDl
U"1kIb;I:#_p\*Tl)^N%u%p()9%%%%-.%sul[L:-/&gw%%+%G%%%%-%%I%h;>JBS1
U"<;?BkbB#%&4ae%&=oUuEAB9';^POCRO.%9Re_AAW<6W6J>?wxxt(WU&k%*++jI5
U"hWPC.;Sr('g092O)r-%y&)q%'g5S/'0'VCmO6Y&0%%u%p()9%%%%-7%71mXL+dU
U"'Pe4%%%y]%%%4%%I%h><M?DC4JAt55%SgfxN^*(BHTA6Mq&dw<,cC:nV4hO46hS
U"Xxepm9B79NCGh4<ykI'6oWIZ-?#\gwCklTlDHGP:%)X#S#GND:p6Vuv4voh>fp)
U"R4=,/hmRQFNK*M^_Gm6KFO+3bV4$(n=+,b0fr>EGILv>aO3X*$Pjs'P>$Rj6b^4
U",f)bJOsQpKuqivF_iVjH$;1AfqIm[IKDI,#mGS*AlP['9R96MB'+^U#t>6.j$:T
U".%UqmX6re7WwhKF8GKTO]ZBg63Av-$TfB9xjkMdlTu89O+#JbA;b'l,_xNhb=Ln
U"_3GF#JU<9;;F68D[QG4$+GkzE?g;QtW/hA%Cj]D19*Q[j7CK*m5e[E[]1^$flm#
U"2*#qwv3kPQUrOoUGjKI<nFkFsRW*1JX5kf0&63r7IJg+^0'(v]l<b1(i*=L3\64
U".RiX,GU8,<>4]bn3Ixj6mcfHNZ>>Q7Qm8*$7UBcgDmvXP_6TYK&icGLcO0S;80E
U"X<v/b:RvS7T]:[m8u<Ieo4gE%f#92CRCj$,a5hR?U1Cnl?Fse>,S?W5Z+2FlG'S
U"q\f'cVz%-G_\HF.7)(XzA.f,IdE4%w;h.ihV8)rAbmB=+#,z?+f&pcb)y3^vcQ5
U"4Au5#A>6UN-q4;C,7[D;iBIb=gfk6Y\BY66LGlV:tu]lQ044qHFfXLsmV[YM4+m
U"aM&XPx=LwnB%VRkT_e05<_%JewYI0;OPaAS[>LWu_6RViGiAG]viSD^6h2gTL+j
U"2srrp6h4v^^S,cd04']L\5FlNbd>iL4O-oesj-[,qA>a))J4&^TCEquEb1&a^WH
U"Fb0AiGInoWk7h3;&i:1>$CJ5nRBj*[_dI^/YEmj<,0]Vx(Qbh3Ga<U0*#d.<8(W
U"S^l]BhGg>h;VB<SpA$QlMZp7UNMgSK7#Ot&MwqFmefZo\bu4uClF#r0>0T_<6xU
U"4lZq8DI(3dfd)Mjlo8:S_5dQXrK+npM3F6?fNL:KOinpP#iV6OPBeCZLah00U9x
U"fdV%E7S)(G4$'rIscXo6%RCszExSj2)u_H62)KlO[DTM'*CVo8N(;s;G_HK0OWs
U"z'/Gm*n>,A0I5t>G.NZAgyc61CznX8^:)/7xOaQRKJ%QS'*d1.?]1w8sE_1$ZN=
U"E4F3u4'-=__/\Hs0:'y060Rxe,'dwvZ)8DzBXR>NC.S:8=&S4P?1]LFQN_zO%rC
U"$4I;VZ$&4(,68Ou+4bCPrc\pN-_B++YXH<_#)I7)L$7Gz-KmVBIsmJ4,Oi]mXrJ
U"Gi&LLGOON_$?4vQp(j]j9=%w$e+[)?,#VW9QAOGOM9ep0jrl;D9IUTWC%BRRNmc
U"kFJ65JONqAe2^PO]/CggA*,$DOkXEP2oti&)lPwTY+V,RN;tT_2/Ogl+*4&%=P?
U"-Q*:2O+*vPQ,<T4)P7Pbch[s^m)F*cm52$1;n3oc>Ib6kTKwpBhYe96VH6+DOkh
U")O7fpPcL1,#]w:uDXvDL=Jgd&'J\kw,cF0V6&2_B.Q,AU='&\-XWbC2c?]8g2D>
U"-BkJkFvxjr(M8H?k\NEivJyDRNJT)'JtG7Ev+DFO+UMcYMv3(GPaJ*RE3puEf/1
U"aSK2M$l2pC-i#;xAg.t;oK)NM.?^<;sc=)0[a64ZE0oJ9'C-.T+J;mb.<nkh9Di
U"k2FEiBui^[K^9^R*(?<Lw\p]DH0XvG8?G=s9GG8O6Qu]7i[Ye1\3+PQfgm=^uVq
U"$')WYIc%]X]fnePgJi974>V_pNodASh-2G,Q(NjK*2rwIJw,,2D-y$(<-;Sl=fZ
U"-a,:uUNlIyF\WL%-C+$_pS3-PjYw&o/_l\.S',-[^2]C/BV[y7)Mq-U8DeZQ_[l
U"5a_0[cH1Lm,WhlYJ*]k[vT#B9lMao>'#CadW,I*:7vi3A5p[c*X7*gD5jA5J;)z
U"_;5&=fZ\?I+7jB7[>wd*ino^)8AIUN,M9;07wv[krdMKO&W-p/SiHGTb3r-gLJI
U"3:FG^&xdVR#T:S:DZ]3_a2%>pbTEK'asO&CZeni,JSL#3zshWKk[SR78$WFZ]<M
U"%bD_]RlMFe^qzZZHQ8o>k.csb%)HHZx_:I<SyVKnps?S\Zv1'#N]DC0(LV':&[^
U"PqVb^+W&GB<g?EX7Xdf8uC]dy+7+CGa]AQLoDv1FZ.sQYQ4t%'=Pat(qs,Koidv
U"h6>)1Di'aIM5eDb'Lx%s%qPmN4lOuWkW\%E?0dd&sG0eSjq5=L2/S-*)mhb-L74
U"T-v1FXjb78eWfR*7NAU7b)fH,:n*DjT>5bc\PKZkL]'u_+at6W0dhPAf*JAf=UJ
U"x7ancxY%EWbIR3+'H/8Do?UIL=XGXq2)L(nfK5Tl-SCFd]>[P<7CB(_^+FubvX2
U"WNd1<u--<C/;),LdT]ieF7fh84P*3$\?BwK#?;j0cGI;\-9b*Gqhx,(&LN[hVAb
U"XsvViUN.fM<m#v5(;oZ[:Rgz7Q$tSg<c88u\h1YjrS%\&/?e)>G%3fG[)GHiwAp
U"mC\Te%,Gkbu4bTC_mx2=zn1bX:8RO?KMh7GMdMF[aIZ2Wyzjta?eN_tEnjqQn/[
U"#uO+:bz1yR%Wk+1QP#XDD*j(vYCwKO48kE9.izQ'8Tx+l?Wj/Jb9G9-i2#O\b3a
U"Rq]Qa#nNT<#X*;SBc(:Ol'HfKaH=f?&_bt3HSn(bZq//sHL43S%vXxm:\$qWpg9
U"[O6e:byn'hpt<s*IwoT5]ioX2'J0IDMJ%vb0u4sd%v#)TF_AE)-[=&X>>[yT%:p
U"B1AaY4teg/]M-5t?%NA<pI.AX[WK;KxBm.BOQ/7:SFU7-L[IGVuR.:_sdjW>9Y-
U"MpPQ=T5IpWs9<*A])54f=+6_DrQZtg?oS-/UJk>$KcWXhOMS4q/1p>X-=pQAuS]
U"LoJQ<ba[CDo4,^Na11R>GTh,#-m=nN,Sie>]'OzI^;Oiw1npl\2>*EK'b(O[%_R
U"Ore[q$5XntLA*SNfi6puv3gS/lwC\FQ6H>vzanrrBZ5R';5CltprY0fles6>xt(
U"%3w6RA7lE?L,OE>FoK#6AfG>J.4x<BNS,Wm1A=C(%uqJ%hLLE\Ezhnm,#k$k6NM
U"5XZIUI;fFWrpRB0LYMk:9S_$Uq&Bp<0tktbABu,am.CdmC(x$s1Yy'h^'W]]<C3
U"yN9i7D&-SMHJCXFjEL2SK4u*4^e$$0IDjNgHXou8F3n2'bTqF[.U?jLkW8,ViRO
U"[x)[/P7N3Z_n/-IIf:$GhlS_-uJlBAEiDT]u+E.Sp9&H3QFwNM>l\s&rC,Mf?*Q
U"8.iuN&KFBgoAW3bv*c3eo;+xWGYsmnK6\i^6lZZYCa4jfi34Im_u%aeN9=&cj3C
U"RATIR-[qD:Yfe-h1;CR'1VswY<uutplj&bLSs8:sl/0P5L5l&l[T\HITI'EajCg
U"[pKtcXb#bn'P.h\N?Bl<K>1a1<5xOWY1(C*5VIDZvA\ezQ;iGcHHULf=h/0(YMb
U"FpVpa.5m.:]oD>.BDXV+5FxHWrI=ak81$o(3m-#HV31WlDq5L96HIjEx.GZRt1F
U"-qs)T%[O534skuq%FD4SjP1jiB5^v-*7+[>Zn80Y_E>hT;j6_VfJ:PYQ^DzR1T-
U"CuIg4.z5>n(HHQ%Np8A2Xf\iZzZAgj;'W'apce5>C4d^-e72y8g9?OU$7)]u\=1
U"JYUvj<<B:H8cXDl%$N&fk9=6Pq&*7Azwy6Vn5p1_E8A't#Taq#Ro#US,AF$N2sr
U"8uQ>jEJR'Rs5H5QjbJsW^J2pEKP[f*i[bc;mF8ES*uGM\PTP9]]'aHh[ap0;]D,
U"3gYMCAPMgD=)jPn]y9j4[>=Iv<*%bD7/0H-3AGU[)Q^rt/F#t?\t63=vwt*JxIy
U"LrAQP=hYXz%]%7IhsHY'a9I/gXMCdb7q)1[UiqH.6?x^M5a[x83JEKqmyYwB9il
U"&NBf$t\jHJC5=6efOqcE#/<A[=%K/J5#,OM*^LKyh[Y6\i#bI7TWW\6mJ0N5V<j
U"of#0mS>>>FjCye_G<WffV9lk^2T$J,qoZ[V<1A1WR5A)G(^lnLfTnF^D'fN^ulD
U">Wb^IxurrWr65?u[^de>f;r.,cUW&7p&K_lyWBe(H0jm^d.v'?d_KFl3c=gZ8,'
U">X)$4Ve(.eUY,]AKTZFLC/MX\cHVFWHy_NZOqDF*M#+oZB,sl1YuoLQN1+-pR:-
U"uKli+7K*iT<<nq4eJ+1UDH9FT<:8_t3s(\sOVX:OLsZXY&imnFG'm35&HA+XqN9
U"E#g?/2'IBO0e>)c74M$y:?iD>TufU%;]\D#EemQ8=['3uMeoDWiEda#A]('WH==
U"PQDBjY-aJ3CspS6&ce7oY-ERi+icamRJ-+&to^?<='Vy%fAn_K4_8\3W%PPZtgg
U"wrP0GG^/ysioU%M?%Du_NkWnq$[H_Ac_0(83Rx<V8J(P8Kqv\qG4?jl>N:7S6=Z
U"sG?$jl\[=$(Z$f(8GgXGUV$inuRjB2Gy^KQjzU>(>&+ehL%k3,K1JH8D<*<AnE?
U"p\BRV.v>ihN\FZ0U(yNWh5ss9UO1FwQ_asK_o9=0//ZYrP1dmb^nGZF1+qwc[bf
U"x==%fv2K)gPPTSQC.X/*0zL77\'QuPjH]eo?QQI^P5ggL::'x1;9EA5ePFO]Pgm
U"rav34p2TpN1Q*Y+xh0wb_]qSpJ*^aqU;r&+JHSu/QO3p1ud;.Mz_\.S4N0w8$RZ
U":hLV)DGSXz:[z+=.YeX?c)x:KfO:ncoDyIogmrKv74s2TpMuQf3X')4r.p/Vs1x
U"87g%ZexoS$x<;7wZ%gnz+S=HkhC(s#2]chPa-rTaxOmZgbx#/&qN#%L+LO.FJhd
U"n8u^YAV<+HHfQ>;Sl_v%%(lRztQ2wZ4lSAJTENYEPF]R9C,x)yM]zHD8<'8+M'#
U"PN9,+W5Wp03k\ruFXe5\/PG$ji2.PHr&5'a62XTR5+g+rLw&,>xK,L[G.'u^ux&
U"%Z:z8k9FFME-t,i4Q%Km,NAs&I*TV0ASk>;wCje+Yvwx*Rhun$s;]6njqtV7Vrr
U"D%up()%9%%%R-%[Y.QLA8/sd,&7%%w'%%%4%#%%h>M<?DCD4At5J5S82h>da*,9
U"<U5kUHD*'#m9/&m?W:It&\(0sMha,5b(yIfh6<<niJxCFr<h$5Wh9\C/>,Z2xBE
U"b$#ospRNpd/C7WM(g.S*r7^ml+emqiH(I7I8R]g#35xXvOhLM_?O<=BadG^EXAb
U"vo]7DKgaA[4>moN8rkYdPd$3-(lQc9PG[(c7^[zzB9ae>0kS9Z+QfO4O5Fg;+:_
U"diXhfwD]<kKMif7dVcXH#nvTZ$\\V]e4AUmlcZ3dwK*7/>fcnI)XhC%*Jj,HXkG
U"je+$1v'r8pPMqh.YOqEK(NShn0-98;$i_W,oK2V6t4Au$pg#d4aXpe:M4\]*fnw
U"%Ws*vr14Q#$^[flledt^E$#)LZRJU$?QakQgZtK#b<.HSQR+%)ZKbH*se6/b[WZ
U"/\sHB$dUA0$wIdVV[hMK+h;=lRQB0bOY]CKMEJB=up_;3nL?58'DTup%()9%%%%
U"-%,Y/mLMSONL&<%%%'G%%%%-%%%LxC>?LS1<?:jZ*2%gV1iM\k]U%V=(FDfu[bi
U")cfq*>d;P2TZNI1sII^rTH77bA_hgu]32AlarJh)&=#z/dIiY7vro9%2_xG.gKX
U"n;bWBcWR8k^gd)5$6<V\?Kgz,zHO;uT8r2)4X(IxObDHfd%,up(%)9%%#%-%Y'/
U"mLtAFNB=[%%%G%%%%.%%%%xMC0ACLS1<?:jZ*2%'f1)NFj[SL7_rf'DEL[\du4S
U"QIgTe?gpuLQ*K7=t<Xln\bXD+>bT[GrPm8P>M_7u.zNqj48N1T3JozI1G3_=^YX
U"=e_RlKxNqr4EXcUVwTFb,:*_+=W$j<(eSj&aNZ95$o&D%up%()9%%%%-%+B0mLm
U"X[*^%x%%%'_)%%%.%%%JBy8<J4S1<V?BkL-?;%+85e%&]=GuE'AE&;0X%dl((Bm
U",>:P'*D9kW4]CwU9Ay+G]lD3:P3'0D1pf?hWT6v6r8Iln3Z%W6J'p'nWl92B$%E
U"j,>(%7^%%up&'%9%9%%%%-%(sulLpEG/+%h%%%'3)%%%,%%%%%%%%%%%E%%%%%%
U"I%%<0JGS1<&?up&%'9%9%%%%-.%avlLLgAA%[o%%+%3)%%%,%%%%%%%%%%%E#%%
U"%7#%%%1D>GS1)<?up%&'9%%9%%%#-%Ax%lL<>/?iz*m%%;P%'%-%%%%%%%%%%%%
U"E%%%'P%%%Ly8<4LS1<?%up&'%9%9%%%%-%(^xlLYy.vr&J(%%*gI%%%.%%%%%%%
U"%%%%E%.%%w+#%%y82<4;S21<?u%p&'9%%9%%%%-%t&ulL7QpL#&[%%%3%)%%-%%
U"%%%%%%%%%%E%%%%o/%I%vD4JBS1<&?up&%'9%9%%%%-.%tulILRre%Ec%%+%3)%
U"%%,%%%%%%%%%%%E[%%%#%/%%rD8=S1)<?up%&'9%%9%%%#-%qvIlLt,?58i&7%%
U"/)%%%,%%%%%%%%%%%%E%%%%O0%%2<71S21<?u%p&'9%%9%%%%-%s&ulL:4-/gw[
U"%%%G%%%%-%%%%%%%%%%%%E%%%%d2%I%h;>JBS1<&?up&%'9%9%%%%-7%71mXL+d
U"U'Pe4%%%y]%%%4%%%%%%%%%%%E[%%%0%2%%hM><?D2C4At)55Sg%fxup%&'9%%9
U"%%%R-%[Y.QLA8/sd,&7%%w'%%%4%%%%%%%%%%%%E%%%%IB%%Lh><?MDC4A1t55S
U"282>u%p&'9%%9%%#%-%YB/mLSMONL<[%%%G%%%%-%%%%%%%%%%%%E%%+%'C%I%x
U"C>J?S1<&?up&%'9%9%%%%-:%Y/m.LtFN(B=%%+%G%%%%.%%%%%%%%%%%E%%%%f%
U"D%%xMC0ACLS1<?%up&'%9%9%%%%-%+B0mLmX[*^%x%%%'_)%%%.%%%%%%%%%%%E
U"%7%%OD.%%By28<4S21<?u%p*+%%%%%2[%2%D%'%%u%E%%%%%
END SUB
CLOSE:IF S=44AND 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
