'===========================================================================
' Subject: RAD VGA/ANSI DEMO                  Date: 02-11-96 (04:57)       
'  Author: Andrew Jones                       Code: QB, QBasic, PDS        
'  Origin: FidoNet QUIK_BAS Echo            Packet: DEMOS.ABC
'===========================================================================
'שת...............[]RadDemo by Lord Humongous(Andrew Jones)[]...............תש
'ש    RadDemo...Demo/Intro/Dentro...Released in Quik_BAS GTNet/Fidonet(?)    ש
'תשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשתשת
'        Welcome to another QuickBASIC VGA demonstration.  While BlueWorld
'was intended for release as an .EXE file used to demonstrate QB's capability,
'RadDemo is intentionally released as source code for others to look at
'(and learn from I suppose?)  RadDemo is 100% QuickBASIC, and is completely
'commented, something I rarely do, but most of its history and documentation
'is in the RAD.BAS file itself.  You will have no trouble reading this code!

'        RadDemo draws all of the still graphics on the screen and then
'begins to animate them...  The slats are animated with simple OUT commands
'as well as the "copper/raster bars" so called because of the old Amiga
'"Copper Chip" which has been much emulated on the IBM.  The stars provide
'a nice display as well as a good mechanism for slowing this demo down for
'your computer.  Since this demo was written on a 386/16sx, you will notice
'that it flickers beyond belief, and it basically blows when viewed at such
'as fast rate.

DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"RADSRC.ZIP",4^6:Z&=8420:?STRING$(50,177);
U"%up()%9%%%#-%N,IqEPV%FD^,7%%<4%%%,%%%%wf%iSitOh&&<>>TA6fwsOxh0;
U"o)t[c>*LS8a-Q(.;..sj2L?/(bF(-Y:^s7p-ULJEfeQRX)oT8Hr?-aESN?KB^p'
U"(/1NOIph6qmH^#XtL#n0pD=iMMPtP.z(NX^[VDcQKa\xcVaq$U;Fi&brJB8uxiR
U"BmtDL]4HIv*8opuZh*9>FTe'rZ6'VogBZU,x$Z<R0ix+kV<;z4PZm,h4jsIMm3$
U"2UF]1tDx>^xK)-SH$y\hN651&p\TKIWb;dpqe$Qip&6e_8#f05:-?Cbt8T%y-0z
U"0\$2z\mK$Z0A&^_mLtO?2Q\=&A,<?uYfx1SgZnxR7zWMH4G5,A+^AiJ\%wnXk[L
U"sLP+/w;S%MNC9)^\_+xT1F#X^+bPP22?G4E;Sgtb$IF^I.z)0<r.1p?Dz^>VQbQ
U"9AbbGbX2KIC(nrBdIptiIr9KhSMf=F)lV(+SJ<w8>-I/H[Me=6?)yb5c?HU;:_W
U"f^Fl\/p./2B&9cC9:qbY=:501^i4gAA/R_C/$Ni)wZBM)b[ofFgF6-&>4r6qL1Q
U"Yk2DbH<+.dmbc_alp2#:$7m]G8:/K[aR<E%w/hm^UJ/0DQq3?ua8iD:T#xA,q)(
U"VA;aIC^l7r1$M-._AZAgb=$iKa<YIDa)PdW$*1JZ02Yp-if_[Ka\T_EIqzplG(Z
U"a)8'.d3dnmY4pwS,;+qM3$T7k^?5%C\mYb<l?F5G0(jB;]qL<sYrm8i6%ibN'Og
U"O_8VJ)S-FJSbhPNCiJh%Hv'RgXS+3(oX++I1*;[rBp=%4EP+>a7CN,3T:l,b,Fs
U"l0&Y8qe<hIMf]2(4nd_<:)b+5$FP6Lamip9uZr,Rb56g01Ir<*<+aJn8A.-tpkV
U".aRJexGTY\J%XPa1=b3Jb3sD5p/%:i[YND3?T#u#^Y:\$9fn#ZN1+&'9\7DPrjN
U"YFh'Xdy8QDk].+B;pf<1s_q93E&tJ[^J'nKQ$*E'3RLRGU29GZPt$Y56vAdnn]I
U"d1U,Z:adsDH1FlTi$P(S/kZ[+*q4A,BSB1idQr=FPPXF-L8X4o?qqZxmwTpDo-0
U"-Lqm9hLjkGTQOeq<p'oL;v.IPydATbeLS_[oKYbC3k+jJwP*;E,i>f&dD*]b:cr
U"JQ<j2&\D>vgMTd1t0i]U%s/2Z'ccp+#uZp[kZggkU=8;oe2,EU90ZsE%,?F>9m9
U"1:f9kS_7+xG2b-)?B9dZ4t5hVZSSL7>Bb>$P%Cu2P[3fK=.E'S9yQADmFO24^4V
U"7[f?7Qw^#NH$kf?C0G^7(j6<Umd^roikY+u6'8=+i'a-0kPWnqOv3?CBn]AkR?l
U"t%R>_6?V?IK5DezDIc):a\3;/4]ihHS?=SNrdSuU+NWX-WmPN0&uM:l6&'0Wri7
U"zFR4;l>23k/*)#XV\IT%F%?npg<m]cFrI#kY$no3U&\wTU_cynv<#9P=QI2cSg_
U"72$fOR%[VfiS4[1>&Y6[ragu]t,HgE&m.l51tN+B/cB&q&$,578j%P:E7a<ev4n
U"+$S&,<o8KMdjUGRRPG'Pr<CkQ<htDu-NhE:TNTlMf+Ye(;VF8aCRW&*'t8C>DHU
U"7W4D*<pFbDi.j&k1CPC9VospY)1;VL_T45=7+3<aZ4^]rZ$B5i4.3,Zu&6qe-%f
U"NS)37Q4oKLm;fPr^<q*TNaFf]^ZRcO^u9YmK:=:S]Ogq^d;cJ:Vrj\A;jIXTKNK
U"Z-YAqih+8FZ3PSEWUCJD()gX2lV:*.C.KkD9(xJRnm\_8BE%D[,DMmoqe8J565C
U"3o0q3qV_0^H\5EA3pg;j)R(?hBBrU4l)G?LaInc#Q)S=SYHHQYHH41g=?5GNRl9
U"w?%K*Jgdqv/xcs=9%YUBePdjYR9,/rhuP-6Hx/m$_VE;^s;9qqZGenf%b:P'2$#
U"$$B*()B3\r&Qu9$EgE$xSg7cN.Zu:T-N$Jiu=GO5P:%4mDV91<pea-tqi+;?>SR
U"DPLNr%7T2wS))ZYQfJcuWy_9I)W3ne3*GzAqZ(7Vp1*hNFcg2H<5.$)-Mu36jJ[
U"E_\S>ZE#rm(fM7FUovdXQ4*3^v3j8Qa%X1S+vG\UW%]5.YdhDE<qKL%.5;k6QUL
U"V,$2TOEbG\p2VSy/<*q$N+Q=Wlct#f8rgNvkqn.wv+du2%.'BgfuT^8ourJJF?^
U">e,:7.Z5HY0W'fA28K.A^'Q8=lXa/LchdDnnCNZ:YjzWV/EdYd-tMVK0>U.GVIV
U"CdlahSnah#:k^X9R,-(T(kMtfsb367YhUuCP?itHjkqqD414o<F;'Z]07^LVp^H
U"s[a48/j8D\1;&>b*f7FQ.C'FttLWl6lvkn<KVG\XAXh0I.kC%YP0DKv$OlwVA5e
U"NL\,7$18uF/fyAhU.wS2,MiK'x*up%()9%%%%-%)GtZEVRb_u%>(%%&v4%%%,%%
U"%%wfiS[ify6k&:]L.U5<#(j#xzErToJai[P1Bi>m*:.#QGR),wU.t=JT?UY)d7&
U"k[p>_)\qLa>;FeF^oC&\X>tTWaH[CLN[.(\jT8M\ECrj4<]-r.*0nG0QR<uNVWg
U"QVWV0lp-vWZo'p03QmI_$Sr$sOUe$]9c>'hbj,K>a&k:HRm$42VS7B]$8-a^i$F
U"=/H*WTeS(C$QqP(G3Lw]>f.-N(&?(fa4.nWB5cwLaX9lxXjs9w9H*uPR0oH6Z:*
U"*=,-R&&D<3mAV$YSa[D>(,ULK5Pq]f.0S[0fa6t&y-&jta490E_]%nrhMXaknYz
U"DQWq[';r*2q:PxPA5u$ihF<p<ECc(iK#j1.CSX8B.*BZ2AnGk1%L:KRL1BVg^We
U"rU,ZX.J(SPSjQ]AX_G>e-SfiUw,?pA&uZL#x'\0am?r>Z/_jQ_+3I?o5ikfl\6#
U"PdU\%miZJUVX'^FcCuQ[rh/:l31%Ixi?nz]-('R^_^tZ_jyg>kak7:lM&4If<5*
U"hOBrpVNszvLN&TPo2pBXvnYz7Md<2kj^468Ht>9n(a:dCuv)$>W\G$8:dbW&?PC
U"0m*D3/,kDkdl&\fD-tNdZ\&wCi;kHFJsXNgIyb-u&HX#WitsqX6ks'p^qpA),aH
U"gE=6^f)5Cgpon,/SpDcn^m?g2<7>nC$>\)Y4<1zn,*'aD)s>+sW8pQh&>9\WE(g
U"Lwp]ggTnOtvPW\m+gf)\yN2\S)VJ0c4ww5nj[([I*g'W4\Sb3+%5/jylQlnqcTS
U"Kr[:BE(qs.gegn*Q/>[jc#bKTHKu:v9h8s(*aOj+=b+DR;L_D/iF#VscPt(b5F/
U"Y;/ADWac.m&.]cQnbkfvP&Wnvs+8.QuY=4<<9,Mb_a?psF]rZl%8?&wMJTXyweh
U"LHiXp4jZ.p^h0_jW5nGb0o^E#crLBp[F<4ob7gHi<<_Xni\<BK5/FFTLll0i1gf
U"L_8Fd-QswEN,.xcON8:1lNumGGpSJdeJVnE9KoZFZl5jLrQ88N*3XfN&%up()%9
U"%%%%-%XL.pE\u5)%=:7%%Oa%%%,%%%%wf%iSgfFx&$NYBSAaux4CX>p\D*9Q-;4
U"R8$RD?/):V;><i'k(hJnGy'+8(%lJ2hv$[Br$JxWj\1ytpK*PV[H..)-\V0zp+r
U"bglbb.LfVXcwrp^xr?\4uB^Cck;Qbo=U(U,hLS?g2QE8xe9a5p''=za9ziez/'V
U"1\9?4#Ct-#Ji/u^7ST7+o$:e;(ZI;-S(%qd;75C?lMC2l_i:eZSp$lb#x'__p'S
U"UClq'](ii_/4j]y%n1rl:F1$3+h*QkF/sB80)C;Teh7'wI3vyQmbGW?-.BGHI*G
U"cel7GiIu0amUU9>T^->(iUMokIQC+x_Ni706:y9>&G5%Tf)3C]9:';O;1#8IwQ0
U"ST9;YRjx(sQ$Jv%T7)6WCHkjfTxXO$\HI'P1<$Ce&JGoKWjc36k1p=YC--xT*$b
U"4W<9TSoAH-Y&(+KKA,+8#UDWYH'H2J'776ql:8$?SM)-c:nf9W2-2='z=N-cWQP
U";Kr3nXItU[GvApCM[uK8,820539QjE5w&+1QsL4\=iX\ZPlBl4jX?G;'W^wg+wi
U"AfEM?6Y$dD^::sjbk<i.xcv(OwDLn4sEPJil+GHM*6]W#u(bwgZARm^15,<4?[$
U"KNFdy-pmYsIKQ'N':isWv(Q'^jHVK+zrauWq;A]7X=4%M.WU:lpg'L:P-W/JnEm
U"'/h7YVEyl9(e9Qm^$cW)$q#[\gWci5<Y-'.O#rb3b&W_*'R'Fya.K7Y%mIJY'&(
U"LK<foS5,JZk?$jqmr(ZAn6rU:kRG.H,AqtHF=lAqyl#p4.TDwJ\_<IVIjAd$.O/
U"zd%%*st,.6;LY17R%rMEutL\.]6S1bfv*bhgTP(NAov:WaXIR##:iBQ^D?<JPKb
U"fVpS.OH2s6xKxBf=\Z%j1='fZ#'jjGlGA?4%./AF[+h%E'>.S1=>&tsH(liHy9'
U"LOl%Uh>v[UFB3ToG0caurmduPQ6x>^lG=;+r',0],(u#sK1.BYoatte^0h/y:E'
U"Cw=u1S6eGK8Yk7-B$SNa-ImwoSvkoc.SH)TCJ[_,oqNq0[ta\LTg3#w,/^TH&m3
U"<D;aE<W.O98Vi^xsQc;:(n*ry'f9etj&NChLl3%%U_e\&L\0LKy>+yf+[q(;tmA
U"L.Fh_pTEfmrN%-HcnI9')3wn/pe_>tY%A0Lv$qdbXt?K'3wp^MZ8cd2<r9.4h43
U")%)>,39G:ZgeWL*racc.^9GFKq7QnQIu+I6#o.>#=Q^UpM\8afKTITrok2S-A[p
U"yAS^7%OoOAS;=N7++P*o$x>J)m<Yeg9oBsmgU91v.#niEf:4BJ?a0<X:Sp$iz1e
U">Dft,qi=h+Cdgevos4sxc[3Xcu:qD2AX*uE_1vCwDJt]5)bGgM?t(0+(STHLfkV
U"Qk'Oe\9;z:SR0o2CalhStv2IJ?QVr*Z$k0e]V^EJHMYgkpphL(]RgoEUoIcBh\t
U"Ft*jRpMLM#6kSy-[F;i6#ek+$,Nh:t7Md;4EoHGHMOEB;O#[%O\C#6n:W4.JYhY
U"hdA<;rZg[oZS#l\C83w1e#4jxzY$_Vil%*2/Zdn<RAC7]RUKMf.i;>lduk>i_nu
U"Xa7H'9L7iM0AN[#e3+R%wY(05SKrqa[v(fK^\'A\L;xg]=7:PcX<MkFq,[U$c3=
U"RM^;$Ua;.+FKRs$0=w8Ic:h[8a$uSj7Bo0ol4Xqi=%H5oHv9346[Ylf$xuXbW:R
U"i1q(oZ5)[U/^#=cr6'oAX*\-S$VrWspte3D$$Q1R0U,A*mc[k*7s3*kif)4f)bp
U"T8q65W+M&6CXZMBs*M2FWjGi9v'-0LoRZ70L<oJ/Uqxj<r6Gwq%Y;v9Hjl\-'W>
U"hSNUbL*g\34EEbXwu<l(Kme>e<DR+qILC4qqG30?CSV\vNWmG0')U9C/UDv?8X#
U"if&5-nV,$\Zv(^\OkdV*'8LNg?MR^Mjmr4aCt#Ow.O_IMn)o<tddCDc0cO#dl'P
U"cY3daC6dmioFWOKX&SA:/U5>63XGd-\_p4_FdTEm'>feS1,7=O+f;ZQ=8=<(82G
U"Z\;D<;CHfeo6N>Z[MjkWVi;q&bK4rI-BCCs4b-V$>IZn9bSVnS3COEVL-bOAzQ^
U"$Y1YF+hM0%V'qfE84(HIwvPXk;DNK)C7wWe>8bKK$#pvlx6T?P51NhVR7Ob>l%Y
U"gcl2L,4ojllGdV;>W4BNFj,,hQibGieeJBIPN\-=KGRW#Cp6DlvVfJ2Mn\Ev:sT
U"688%SQIB1_IJ)Alf?:2Mq3[D,'?;?E$/I7W'Na8Pt)<c2s)kZ>NaD*2HwVs]6Xt
U"+8a3^G>QKf8sbuv7^a1C(3>44%c4Lh'a*3\4>3lnF,gi3.T5HxE&^LlKJd-(=8C
U"+BI>ipQ\dU.0/2N9#o-sX85:5v)3VlP#:Jc;]boKs:OqaWQj'RZn8ep>Ogzb+qg
U"v84*mFvgFOZ]zcs:bRM0BewvkvTd7Ay>S+Oxt?DM/h9%,UNOs0G$P-/?U4'%fe*
U"7G;gKws]+u.mN0L><Qc1$?OR2<BD$:ITG>9_U%%'e%.>xtD9][::ilDMeqwp/:H
U"et__XToHBIfe)3ZQZlb$CJPAHgy.8T7PT)QsS.^1>P*9/5PffmMmF&'qCzm/q[5
U"l(?_M3?iivEpsDXs0nO>1fZRV8f[2g[WFhvQ+T#>UwzVy*wOckNq0$QSW2KVHm-
U"YTDI3jp7-M]mel91K7n>C0M^j585*?AB:NC&k#Z6LFV#wj0%)0fbSTv(BblmHOE
U".)K;\$[NEV-At4)18jjSkE>:]*k^&AhfPceB6avR?Yr73D4cLGSAI6OW;iD+HOx
U".Bv7v-AIo];AbnfV>ZC&H8pf6Yb=FE8tLiVrLG1:wZ*JO9;;Apw^Sx.*J#Hk#CO
U"<f%MnwiY)z4MHD<#.o$2Fl6.C6x5LJsdd?oEQBdg>3[9f)d:3j_iFo.d&%Nv891
U"IWlzn]2eeVB5E7E.O1.GkM15[8(#M_IdDf?5A+:yX4PV%(DC9GD8>2pdYJ??jnH
U".3epI'+$0=M_OO))yXzvI9A%#RDJ9A1yduNo\f^wT1q1ea$au>p1Ei+>s:a\NQ2
U")X_]=H'[Mg3tT-8$PKM)Q9sIV-(Pu):IBdgONYc;i6OgMbnK78&#ci)(r]-s-lg
U"'Ex*2.1;<PUI1I$SfH85nQ1rpy'SDs7('nL(I>zB-DXApYX\vC1)rrOdM$uCO;1
U"m$JQQU;aDw5y65xQeS/(OSwN7F,yKNq:2T3sI<_tw\[*I;A30OK3*4'n4FIS1UF
U"6%,HMFJ>AljSuBs/O1fE&1Rhr0[p*oW^hdwO/pExenV.)nT*Mn=eRcm1+xrM_];
U"]2J?C+*<w'*/lM(2T1j$'^1w36J]+)I_)tzvx.RZHQ'pcM5E,2O9/h)]ZLkgPJ;
U"PIZGfrsTwtdkK'.?xo5Co-7hdC=x)tn]oM)$s+BhpA_-gq7CnNH/Spa\DFdXA(.
U")&A$5<u#gCO(s=Q(.o=tx=XdEi(]Dx,Ng[>GnZHP553<S09MHkXhaP?.U;w*)#r
U"k[#/Gt,g^g#ra#HBKSRa6E2gV6nZ)]<w56q]M0\8wtB#rF+#W$=N^N8YJZa$unu
U"gnW#],iD-K^]h:\7Oa;3$9\oM<is/g<.HsC,SoRf[vTI<ksod&(M*/[1Vj1_IFj
U"(rFV&V:NOABi#g&N8W4Z2?qR&bonKkBKoi7aDlRZPB%GcCCh++^,N+tMG>?PhsZ
U"'Y-m(1g3yrlG0c2hp1A$Pp-hpM]*U0cY<[Y9q\)m':s;1HUFx37[a^l)j,HYB.=
U"4L$iB]qxk4M('MUlF5MU^Ax:>:F3Ttbm0'._tU5$STpW%#nJ2?6EH?+>c'Gtd3n
U"vZWiP$c66U)[tWd^FELwsl..4$,]:?D3Z+9Y6aV,m=ZWbik_uZZ:^A?)6t-G#U>
U"RgB?b'WRy#&xyHs9uq'/LdLQrYr&-?lItL+&pwLGcF\94IAz-UA>wlS(qWEmmo(
U".UU#Cr\Qlac86CKr'KH$Lv4?94AIIl;C)_2Mce,gdGhTE<'-1VM$,ZYh-AbR>MN
U"Zh&8Fg#7DP==t;K+yq;<sCJ6W(OL?S)dU,ln(Jq9]8&^b(uSv]8vs$:+/lF%sAi
U"wOlePVa,2s\KZfXFOrGk]/kHA$^\<'9cJ<6T-(HOsF4Xw^.eu.b1ux,o'32[B$P
U"S9]kXUc[:/pHy^mV;CmIP2G,SbpwRAlWe:pBWmlbCkSS?918KD>Mhi9jzOE>x*\
U"Ybs?W7?I'k'''p&^d']wj(5V0li)F-ek2&Y5nIK&NE#y[:,kq&Jn_;UF4M:<A6j
U"<]n$pi94>]m[h[,qYFxr<)TW<<:n+x,V.K2.uc\(v0GoRet,.p+)>2Q]I=>uPdr
U"g_TX;)uQkYDI6xdG1[I?YL:;rfF7)=<m8H/fWow2q5_Mg_jRS,xQ_23[\SWJH3$
U"3-gSA0]&'S2QaUu5EA+n>02^z5ED4M<Sf3iMY3Wkpk[.78Q:x>JW6.C>W']X.my
U"uEFHot\wPVe0f%V('QjHq*AgTg:Rg\&fqY1s<^T93l44Ub.#_s>xX:7;7Bo.:8S
U"N4-fHTX->EE*8Lr+a1zzFk.kd>92NE+#&=$D<=*UH>_QX?]E>D/n>#.1MAs?#Dc
U"eDRhUvi&aR*ws_(o?cWOX5eBd[6IY3XXme*Nm:mN\O5jnoE6Tn;vW_jrvFv(hxr
U"Q2SiqM+]v,G<$H_u;dwtTW^?k1FeD)0:p'4LXa%4HN[Ni$H^/o]sx^b4xmu>n];
U"w_U%eQI0oZLrU8P)g-a7k;7qBC)dmI#M+2F0FJLrlEC7J4B)lWNV=TFEP]8v&r#
U"/B7_l9b,&b_(A(<\>,Fvl;xBX1<*3?C]DAgPKmKjlRk.?dq\<b.uTGh6U>MPCrO
U"\+tv,;hB1L4>L\;k\[rlKDA2ne4)pdb?/D%FfkjZL'RJW#E,m5QD]5=REagl3;c
U"j]eH/S0=j[1M8P29n[[sKkAgjQG$k4=Y\*]3VR7E\?cb]adWDu4=&bnZc$-F8P5
U".2.^CN^+,0q&_BJG0vJfYWjr.:>u48SPYF6pTC]CIs)[:zhpbO&tiJBJnI\,v_g
U"//f_CCk_-sqEc]TQgeAp+Tf9.cs%n<1:yHkog7.wKfBRUU\<RoP(ll$],isMZQd
U"-LcFc)#<KR/jDV(<M6ZF3PmLzjDv(znzt?\_bYS+[S%Srbni?L)Nc4oobvMY\O#
U"jP>:MelKM-Dv0XVNN;sH1brEwZM1NmZJ-FIV[WfxS;p]ObXM6JIuMoEd8#IUua7
U"RC_xQ+P'MRcZ_E$DD?>)TFsNmjJFgY/$29jGk#remn?$.WUb)Hl#t6-wU/x&n=\
U"7cSA)z^c\n.^I$[Wrs?G_h>4PAh*U$R(S<8jb]oh_(a]D\IBBEk\%Q4$eTw'nM&
U"Dln?bZ2wfRtZK:j3KMDKM;,=NR\7ZPRJB'pb)Rf&KR:ush1p964uXsCD/ivU$hB
U"Es5U^^EJM&IOf8G,n$g<CqG7bu\D]wWKgTqkWoip*>=3p._-YFR\4EgIDH;4ADL
U"Y)2/8#&pu]c<v9P_+lngWZ$0YM_ygd_'Rh^OjS?uC?+*i''WwJf]Xpw[2srrMc<
U"j=O6V8b'BbpoRJZVqZR7[76s[UN&Y0K2[d?Jd)u=/QT]GvzEN9lwHSeMeG6VO*p
U"[EW%*hU\xO4]Kp&,NK*-\Z<wfg[$OSX*.+^^bUsQ#J^T2KQ?cmfRj97RkF.QN_0
U"mqZSNMI,2j\/EK$d_]Eq?mAk_ERJRv+pH+LdH$o0W6N;tH(]y#^Mgi*CSml:K1S
U"'TH_xtdn+qPBzo\^N=fWuj2Gj&nt5Qs.LlPIK7CLb9zOnAErc]Ee:+1xtSKIURs
U"D7c:.IY^R5?[22--:plu1?\Q4rNnx/EfbmVNgv;t,A#*YK'ib?A'ANaEXQPuPWT
U"<j]hjd0>_b0;ikk;wOOlNih5]0toHVu%bkwG<LToh26Qr-1eND8xjns*7fl<<wr
U"t7Zx(jN8;.?tS*t=Ovr/we((kpxc=X#7we)zNp<R06E4,Ae8Nri+XUNBue]cd#c
U"L/g;7q$07It0QKBZ(&bgI>D[;]J/GEP)Wl5V6$tTF%LdI0%hWdI]kGXd#aXD>18
U"W[xuc\iAAvQtk4?q8C?WG<tYZi/P?0lisaCWS;m$+WBc<Da51xSf+>-_Z2WD6ip
U"Y-IW%2Nvoh37jv\5)D0tEp1<d#SCXtrT*aot-mFv$b3,]nrLgIqsYFJt?oKAJ(o
U"<rfmA)3t6_NWfUzJ.two_')qzjjC\Fz*pRy/25zE9vkhF,nXzp-6SB<:Es/B]==
U"_r:nWY7wT:fAv0TaSwk%xg_$(tAlH&;oRhacGJ5NA*jkZ=^/KNb%T$I.GKc\vaL
U"$/qGYg\F?lefnaT2,zgn8+kknR/v]pY98pJe+bA9Hqc]>#*2P*xCTeK*:;$2W*+
U",&b*LEX<0YWu-;eMw9]kJ*]AZs;AjVgLdht.H[Yq:f-u<E]riPvG_4w\bx$-iTv
U"tI3V6GIb9\TpTvIM9hip^u%aP0OJ\J4BVsJuv=2BQwl_vrG(WkO6E/.=v722bis
U"u'Fy]x.T7*3qhn238-aQo0p[&XL?Rn3AIz/\uooNfO=L2smpd=<-.?L*ZPc/F/T
U"/F-P(U_de1^&?V&7J,$VLYS]k71OTBsji]lK.q<12MYyasd:1U>Ebwe1(A.=(kH
U"GgeqpgK**\,;DET;baQ4VKS0Llu8SB.J6_HrkmOl&N%b7],hqO<rX2T=Rt:3B#\
U"Ud(M+gBx3mv.ERg_iz7&1MOrx**m*#4mL<x:(2(Kq18$3XqLg?b]1/AdHobMczT
U"=ZM=kQ(aeV1mN:hg4.#p=Fv6>,w;t3(\&M_u$\ePP%Hg?oxW,E#_L:x^R6lRuHQ
U"o'%r\^p\<wLoM82MXd6d<5Z2EMC$ig0D+U7FpUl8nKah(%?3:2BRc/1ylHrO]_[
U"66dr..<<MDu_L\M^hjpZ9DuN+C^8Y/iDY]3q/Ry+r_m<SdoMKq%\8$r-c^*GhKc
U"=gYeRthc7B82Smb0Xnf&$&0?M/6?rNu%p&'9%%9%%%%-%NA,qEP&VFD^[,%%<%4
U"%%,%%%%%%%%%&%%E%%%%%%%%%wfi%Sith%up&'%9%9%%%%-%)GtZEVRb_u%>(%%
U"&v4%%%,%%%%%%%%%%%E%.%%-,%%%wf%iSif%yup&%'9%9%%%%-%%XLpCE\u)*%=
U":%+%Oa%%%,%%%%%%%%%&%E#%%%k%/%%w%fiSg%fxup%*+%%%%%(%.(%n%%%%TE%
U"%%%%
END SUB
CLOSE:IF S=231AND 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
