M4Ko8]f#Kywx_M
U"i6t(Dr)U5YZASYG-d5
U"BH8R/'(bmkm(d&ZK%jl7/Vb./lKlEJ+P&irmG?.L,Sgi4+T-Z=>rH&M8xMmh^E7
U"RL=$J2;+fDil,CEeK&iqmK8iqAIH3hlcBp_FU+^LbiklNBG[OYk7g;teAsDq('qx'q'up%()9%('O-%+S2kG%.E*6&K%%%'l,%%%,
U"%%%&&fXS[gxl^AcV3O[E5)(ol&CVQP%Lt>tRqA*8/GAO5>/PK*5lQ>8A3I1;g,/EL[Cc*nfccDeYQ&Zt.V5w%oRg+<
U"u[&/avu?UAeLg4n#ladN$F?6Ntb>&,O\lx*.(*uQ2u%p()9.%'O-7%[2k=GQ#P+
U">*%%+%l,%%%,%%%%ifX%Sgxl*^cf3';U1)PB\YS18N\XjdYF]bUuC7tO='&dY9w
U"=\Phx/jwV)THJ?rJ$8mw3TfSbgJCud<#N4O(T438_hLe>=X]0;9i>Y)gm*sDwJY
U"v297VbWs#Y6z$EGEGi_;z)81)P,o%#M%UBgP3-&cfCQQ>hB&r_QhIqh4
U"U,k4v/OT;KK]w6=0'dA\?pRRt?2XR0T2VJTuUrTUQdRirbMl#tlnc.a%&up(%)9
U"%'AO-%ZB2kGbQ%9fI%&%%$%+%%,%%%%q&&VSgRxl>c*V[#aUG
U"Lg9[iJ$ygUzx_/$ufam9&MC2HX>=B:AM7cu'df^rlI8gNx:EQ*Tr>djLSgRF>m%
U"=G)B;w5wnWv;oI+6SuuN)_f4Ii;t5(Y;D2Uk:m*QsI9+U<+iNs'CZjiZq8P'OKU
U"'cAT=9xc/TYzeK;s)0U.b9z4*ZF5o(I7T(p$m%Bg#u3.5K?]292Yv5BXTmf/=6+
U"]#aH^%tICP1f'zd$&U*06wS^8Z1DBv=\>.e$BREMHjGTAG_%wsg;V-^FF_>$kl-
U"a$)%M_T_JGJCq&dFlg'T-^*ZGPEpa2:11L__a+mhOwZ^.H'$mY=VlB'8O)k)YDT
U"T>bf4na6xqH9(5\.P7x;>a=j%SS=$dDbsXVqbia4xA##+6c37p05^[6VIts1V2(
U"H+kSE%M%DK+k/NZ,A1LV*.3U2?&Wv]fjs?cRW?sU&jIj<$^9\9pR*jGDY&2#/v*&8paa:Q9.1OCl7:',=fTnBc#5ZY$u/Qk=xEIXP3B
U"%nqDpH57XJ3'DP&WG6*f)8P1OKhaWDt$C,Z\8[[sn1%.737d?\hxx[Fg0J0%2wo
U"fBl)K]?7]tkEIbI8%NQY6o7Vkku2O,)yrI]2WneO
U"'xP>NKhI/2H,hge#mI8#Jjgpf&s?U)
U"M0P=nNE9BB]Ic*&$YAk^-V[tGVhAKOSSI[(S-=-COpIw9kZ7H.JFiH[ij:>f'^V&%re\:C[.;t
U"^?zrVpQXRE^8Q5N=xLM7Iwwg*T'pNArN7.Kd[*NupDs2cFUP=l\3]J-_S;qWhB=
U"b0bc,f[K%6P\^^Nn7B%pCjVM]Owea:%riV1+i8QojE=E'+9>6v9>y0gfb0X*3\nT#nz:YL.#LmqqcK58sB
U"#l,uZ&e:zbZJ'l4a,Zijs=W4l%E
U"uLXPlc>r'M3+7D^;VK,i_gu_6K33k/hXP^],a64ekB;j#WJkU;N^1*PMk(#uTXgx(ynu
U"p%()9%('O-%-I2kGX.^Pe'e%%%%P)%%%,%%%(w&WS[gxl>&avo*%V1jp8?.or>a
U"w3MFd>z3MDRC.AQ\nv+BZ2a+)nWDH$/rAsp$l\N6cfvl0k)/>.Of4pzN'vR3'o4
U"6oOmx+EKEX47K/x1B;uWp=Z[%hy'SM\Q^=dCGRrS2wRh:&,z$X1#)p(m;7?:%Q&
U"0T<_:g,M>jG*L<(YoH_FF96&&;ioSLd:\av/;[U5ilTZ6%DlkfpuR9t*v=0+p7PkRC8ddQwINsa;5%0$qFZH#6c
U"lDZ%'k4UgLA]1#Bq+p&b6OmprMIu989,=EucfE/)..2k()910]nq8)LDkUQDg6;ikddored7X3][.2e^m5b20n5h$HrPlJGDFH6>^?l/D'.Ub
U"?b7%LNtMMp4J7f9jt5%%up()#9%'Om-%v2IkGBA5=Q$%7%%D'%%%,%#%%q&%XSg
U"xjl&$J+2;U1.iH%E4]7<=hR>uiSC6+'C0X$jI*uJdWkyUblT-nPqB[p^.cC2Bh[
U"lcTc:Ed,SF8Q&:*P&$\GEwmC:m.m+VVbGNA4/jq8uORPJf5(%GT\7#>78[mqSN9
U"M89.zoL3/kgJ_LVsf
U"VN=3Yw++%,ss-BnoG_\)P;QSm^chOuoT,68iTCS$K2vv^d<81[p#vUGO9su(lO6
U"Q;UZgY%0^.H#>.B1XI]qs%zw[xCp=gAP^JFu*M:LlWI,%m(q6J&YAWIu2aumQWc
U"S%VKAj5692ehAnL?_#5-62ag7B-'kMXzw<,.%T%up()#9%'O[-%53%kG&e.d\7%
U"7%%D'%%%+%%%%yX%Sgxl<&$V2AOE1SC#&5]SDA<6[LZ*%%+%l,%%%,%%%%%%%%%%%E%%%%(%9%%i%fXSg%xlup%&'
U"9%%9%'%d-%Z2dkGb%39fI&%%%$+%%%,%%%%%%%%%%%%E%%%'R9%%(q&VS%gxlu%
U"p&'9%%9%'#%-%c]2kGDRzoxC%&%%$%+%%,%%%%%%%%%%%%E%%(%G;%.%w&V%Sgx
U"l%up&'%9%9%%'%-%,k2kGa5FUr'X%%%%$+%%%+%%%%%%%%%%%E%%%%6=%%%yV%S
U"gxl%up&'%9%9%%'%-%-A2kG=/1\R'n%%%%P)%%%,%%%%%%%%%%%E%%%%9>#%%q&
U"%WSgx%lup&%'9%9%%'%-=%I2kmG.^P,ee%%%%P)%%%,%%%%%%%%%%%E%%%%S%?%
U"%w&&WSg%xlup%&'9%%9%'%m-%O27kGJC4Hvp%%%%P)%%%+%%%%%%%%%%%%E%%%%
U"d#%%%yWSg%xlup%&'9%%9%'%m-%v2IkGBA5=Q$%7%%D'%%%,%%%%%%%%%%%%E%%
U"%%)A%%(q&XS%gxlu%p&'9%%9%'%%-%-'3kGePb;Bd[%%%D%'%%,%%%%%%%%%%%%
U"E%%+%3A%.%w&X%Sgxl%up&'%9%9%%'%-%+53kG%&ed\&7%%%'D'%%%+%%%%%%%%
U"%%%E%.%%CB%%%yX%Sgxl%up*+%%%%%%6%6%&W(%%%%C%%%%%
END SUB
CLOSE:IF S=114AND 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