'===========================================================================
' Subject: Program CGI Using QB               Date: 06-12-03 (  :  )       
'  Author: Brian Barnes Jr.                   Code: QB                     
'  Origin: brianbar1@hotmail.com            Packet: NETWORK.ABC
'===========================================================================
'>>> Page 1 of CGIBASIC.ZIP begins here. TYPE:BINAA TLEN:8230
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"CGIBASIC.ZIP",4^6:?STRING$(50,177);
U"%upUU%up()%9%'%.-%>o\fS)Y:4h47%%%%o%%%2%%%%hlInw4023<4Sh3>2f0U.
U"G9pzQ9j(GG*M[3*:5PYAgO\p6a2CGlsVT-IVp'4h-O<*a'IOJV,pf3hWpmV_,d:
U"&w%_<'q\O-a%,MO]'rQ.\CnLLWmOGP[\wnsG[*;Ew.Bl[GU>Uhh>kVsnrv%ZgP(
U"yk-6&nGyWf-qI#I?_*e4T1ID(otsWKo=BrKc5m)-3&:>MntHGpfU$Ee?;RFmQ3x
U"veD?)V*<-^0\ikhhZv)_^c=h[M_J7D(epde?SvJ#%I27-3=f%]=hV:1VYuUAU<#
U"%)91lDPB2<fhN]80t7d1-wDw;mfNFS/c_sD9,AA:Z\gDys#kl%uiNoH?^W1#^dg
U"]dZOu#J=BB$0Pk))]A=o.xh[DrM^KtIF4o#mSW<s5-MHmI6Xt/bZ<5bV_4R9$xC
U"wz9$C?sXt=D4etsRaFH+bVSRlvfexZFj6DkIHLpcH4Mj#;r.uQ$bu0Pu-C%%rOX
U"yCx&#aS)kjjki[>D#?NZzU\yB38VAD?DueM%6ubSW'6rX$3c2(x#t\PpS[w&iI>
U"RpScKOcv2uxE9NTPEk)q$cJA59PpDul[d]RY]0S\(#\X.+Ust:B=QWB$-Ekcn#U
U"<]G4Fip4fbO.+F>A2lOb7:$os-Z\i]Gjh9Gn;Sk15l;^8cZ[%kJwvrcdmGp=BS?
U"W\kuWi.Ot8+;VrSNcJeN%Qll-CPR-XM3p#(>_9+ANi.K:BGLotuiV8t;71<.9WL
U"?Hq6nco6:dyr1M:><CN;<h%7HOAWq9)Nd;NL7:=n$jw>0My:wCxyrr'RyxGmoqL
U"%:BU+or&0GB$qcuZ(a\xr/EM#R&b:$7:,XQ*Lu=9i[aX9pM&Tc)K&FrhTlY,';x
U"<J#;*cK3mPs&S#FosK(Q44G(CV66EfL,6p)rO:N-S+z26*YNIeJ=E\WYiSE+Ydz
U"r-3,&O8?[8q>>pF6M,9o'pZ?NSnQ#)0.k,9M9Zim8b6bdFjF=8t]<RM]/=o.0ZI
U"hx4Un5b+r]ugCxdmb(7g?7KPvxi9J#^oLZzX>52#^d$B6:M(MtQ970ysh#zItK]
U"h#wuINJ;_1G$2r/)Kr#_1VsoJtYBGS6N1H+ocN,UxX-vMdwmhIxQBEM+l%/o9m.
U"/k4BWYQuOs$iA_Q%l:gzm23aLP?N3OM3'X_w(6xQx/5*r68tW]Td2zU[tD<&UO7
U"$mtLED=g:/deQA>p4fhtNw^IxCmn$ZB1_(*=-3K=fgSoBM:Bm]B,J&W)YYKZW+]
U"^P?JgQ<v'XiN'R#TiJ//.9Til[hj('E:1a^O<IZfoIam?%f]=hdV1VY.uAUgC90
U"IK1=R2U4;\?Qb]<4XkN4<d\eTcx3mb^dWs/lus2h5nl?sD(?7u[0lH&Ls?B#Pa-
U"sih4sc)k7u^pUnej$eW,EdRpt=5Zse:<.6\7&NYGcxdbRs7rBRas9XDgWngn[_E
U";Ax]2v/2[)VX<lJP$,?[G-:2]4c$\'us'8=8A/&;1s6';Nf1+Zj,>1;\T[KUUcT
U"*9Dn?,g=k>in140p2Jb%ZFu734\6UaYN'oLxwVYe8AnH#i]mE9)aZGfiW-3:zG2
U"cdi_O6\pG<F#)6.n107;M%K\<fq+JJboU#v(Erd+A/E+0eNAO:d])V[.UA]g(90
U"IkEZ792CYK=R&bUC&JcFWA7qj>cXb^X,<rZu.'Z9qh125o;'n](O4?IW).YYp>U
U"+)JP$,?[G-:2]4H$\'+VWN>4]1A4Y$0G5(n0BW?($G<#f)6jiRC[\L_KQdZUx;:
U"&rQY(*X2XY*qKVhJk:Xmk?h'uj-w]FDbLI<v(Erd+\/E+Z8/1>UUAU<#%)91l:&
U"]=-Bu1l0RIk:V#V]+2mV3#[.]A^8A?GK1#7KHO#W)v])xwe-Dv/?u^HY_E*;x]2
U"_v2[ctJC8TTk<rB7+y-e$#hm<meP_;di+(-S0CS#s[G:2f11f\1/+X*_'Wj1=/8
U";2M'Qj#L0M\*9jD12$02>g<9l1#6pY-a8PLj9Gm?X';Z6j+lW=558^4iFaccNxt
U"=DxfoTYbAlNrJf3',/3cbeLlpSfexbfT:>gJacm?%xKWZ1=g2lW\t=rgfg\?%V^
U"sKKB/,Oiq-N=j4atsJoq?V^,'2o4]dH>Merm2LtpwWxl?*8I;h72_UW&R,N'v$-
U"[7ONSdw$+wLwd\:IOOD$9UaCw.VuFErr,(r)h8J;k2-8v>H+UwMwwgb(3[D(,5=
U"rhPN:Md%u*9v6CaTXVuFqq1#dNe0gohcA+J2:0un0ZNuTV.0*rI*l&xhIAQKCEq
U"Yw-_QNR#k[j_BaSvAHjoMHMA3m5ZGLBP3JYkTI_ukcAXY$,CqYdhsYSf'GlGIYA
U"==^/)9qlj(i]^Bk(2bl*R,liA7X^VYA<El''Ao\FKT7iL7::<sZE%nh2dig7uO[
U"zVdq8SfKm3%Q':QxN:GPW8_w]/Ugb]o^tC?r\b>h*[_6Xo*/1XHE6B4sHUR((E&
U"5WirNJ=?tsK(=C$)Ztpq:KL_I%\KhE&sN)tf6b_J9oD295f2Rj9$oqk-CSXvSgp
U"[9bzo$r7.tOi[9Bn5g7.E=9or2$iGM:Ac^n,tJ7J$X,oFMq$Sd4l;#J2untrCSk
U"dNJMF6bRYqdBnX:&Ugm6Z=fhHY&Jnk[c(L\6#,d1$7gV5)tCO\yeE^Qp\)3qmiT
U"WJMXgAi)Knh=6R,]d.IQEV<(JlL,T=Jg'7IBjl8F7*aVLnCW\-l^n&)NDa94.$M
U"/bw&GPZ&<vh?Xe<+5QZGU-Sr#*Vzho5Q4t4u;blJOtz(NBgsNrQ5pltoHD/=XKU
U"nWZ8zm=B(v;l#Uv;#?fk])^EB2X4#De9?FS1Gj^o)NS4JM]AZcEZ_a:H#YoeTah
U"(Ql/rQ.D;fduLA$4n$&iofEH>Q\w'0S.UO]0UUTP?(;Wpl=CC4uTRS)$9X9*JAd
U",33v1<CQR2KkF-eK.qk,13:K=VrjswIkW6B$T]W)OrMpC:*^[*I/I?v;6r7L1[q
U"+i&vN_]8>oYAK(gyg)Li'VZd*RsL8'uj:vu&BV8Wnr.6qN6orlf5wgU1x/A0W#/
U"lGxb1x3*qG(9eMju05Wg0i.]6>oUr16Xf%?BLA9^'8r:X#q;T3*=p6*#,A*ppeE
U"/Dgi1'd8Q+l9[PtMsLb$gKU*WNzUZgp_5JO?TJECBv#q.wG&c[u];Q37zumOV,J
U"l6PaR9UL6^3VH86i&W7Ut5B%qIDd)jq&U;LME.oEmOPnmnkGj4Lxa%4$]^*4NMh
U"=LVs5-uD+<n+IdtpENJ.n=<G'<J0*;rrF1>=(fF?G*s_P&JO(t]oTWSEWTJ>L76
U"Dc8r[6(pgsrZlrjkS,k*fU7SE-nw1b2$[a*3<maO8&:,q;xA25<\T>Jn78gJv#<
U"hh3Vd)IOV]2unht&o*7j/dUR<-aL.i,[KkXe]#/tW-'\ecidH'e\[^M.89_d3F<
U"rjiEeB14rKT[Ze6bL&ojZRSKB1mBBO8u;s#Y><cW6K/DC:&#:s1El/BlykH1\b1
U"NpAfrWscYKPnq+<'c);y,75i9JW%:S6A]TgS[1jYW<RA]J3B,E\]cf5;]?i'3t0
U"uy%)PPH9<:$NA%uGVXHjYS9GqlI<QjrAOTKe<a:\pZm_J'F*HEn'g4<hp=#p>Kb
U"2hR9LR0fxAGZub&+mjHc6tRPTFqOIo<nTr5<c+pT+ZU2'8.^dDYlyyfgSBBT&w$
U"'/&+X.#IZZ,EL)YaMs'rDN2FW=]?wLAr5BN#W[4:7^y#dl;M$tAm/PkmVi/-]FT
U"JuG,yvhr?-Kw5J\iW*7;.Myfj1D7>%t\:6njwdpAzm#)R4aM(K\Cbe)1_rIpPR4
U"/AY'jtuPtDfC]ulAtG7Zu$7M=kQJ,/L/?bY\2y+<+x\:orgJ5'a_1p]A'E?yk]P
U"Vvmzf>vUGa^m%1ZyjAsqA_lh*GgBty7+6d(z4JX<QA/Ne;B,[G-k<d2:e[rY9('
U"D*yl+HjmE+wR>5PX?B.0%AAcp$x)8REKcU$UMH^Nj)NcR-:jGqDLP,T-'vPae)_
U"g_KX+DnRvk#KtxLtmda.?RdZ1BA7UAWMc(T5hTY;&mLwQVqdlbgY#<:Opz:B+bJ
U"psN-%cq\oVF^KI3Jyt2[Hqc46P'fDLPx#7zLNk%r)<)0<XK*D%du=gwJYSUKc.=
U"V2nHIFf0lB'dj2q1bb4,]gJN'Y3*2lRZGTKqY;N'k%&2P38qqRBLXGMUg[WvB-;
U"Vs3VqD]Adoe<NDWccqz<B%jZo+N?:^[1qmY4<ZAV_%5J9<3i)4zS8oL2zK>U96)
U"l_suN(4X4L2Efxh(dcClOtK;0&,k#*X6t[liOToA7]v7SP]([f[iBpSvt'Dk>x9
U"SL(sGiRmYFP)_G4r;:%4KXJkC<:hSKr;Sw[f0[s=5av]mLp)TklL1OZil=G?Jny
U"#LQi%^=I$L2'FN3j/<W7Ek=A6]M)H/JlE=*R1HLPmIY'8n1dPZ<l;_lQZnK;rP,
U"NFCx4hEi&Z=^LG/uJSOL[qQ;vq2N9#]qHc:M%K\<fq+rp\bID;)Wo;X1vV(]U:v
U"ZCBEkb)bo\qE]:gQ;az1?Dn?,g;cV1,pe1^%YOcU^dq'Tx;+hqBCr>9%:)2GAtB
U"YnaTGvj1mu<ltnlmxDPoxLk$OJ5[&fiO-<j_5]noqbW9($G<#]iC[\2LKO4Tj6w
U"OG^jlK>QHi^H/YP;Z>PQUb>iR7Z<pq>56;8TB]FDL9I<vEArd+/RE+Z/41>?9fY
U"m[9*H?9/rlJC8c4k<r1xS$=)Z#];(L0aKA/GK0.Wo?W5u9^/&S5fZ/uHY=<[w:1
U"EMqC6#ej8iBJ'B6/13am[F2(lNI]B#=CG#*]15<ZG1uAfKY/+XL*'W:_#,tr;F*
U"wGtN'#(8?(wB+\[KQQ:f'YDJ?Ten2*g<3v'XzJG%^14ZO/HF[Zb;??tq+-X[$A0
U"Jla9%1l&sB=n=^+?EeR_5q3,#U,ns\?6S?*H#.S9>TipV+Zd?sbWcLXxwVdl8An
U"0e#y.cdoI$;=o%;43Q]/d%nOl)3Ng]93K'T,Ei*aWLahkR(Dt-EATY_?R;S:t_'
U"Wj17.p)9-D)APf)?:iUW-:z$QWrq:9nZ$hK^LtjpKMA*#P]-=lnhNZxgC.B]tF]
U"-<j]&1&cp?EL#_5/23a]=#$YoaQ97U;[J*Aa4\6%6>,GB-djFcK;[KRJM(GuJ2M
U"UpI5jg[+7=5l['?1-K['+WbZi1ObqxeW.0uR>,w#>uO,ocNbF^Tke6NeZ10KX.V
U"RG_2a/uM>Md'OTeG0><H08I\9:j1=F0)5Ze?$e[4SU\Loj9W=G*q7*c)h&U?,A#
U"Y^yq/Pn/VW>(+[AQCnruZqhw<(n#Pg>>A%9x2_V?bAo;XVNmcNFT^Tk6fg5J%Wx
U"VhJ:khx^qe+r$)XHCh;kHW.86C0$2FJ\XP.t76Pmo16,M/$\iTlJffG<mdPhdJb
U"q6=g,MmHqJ+$l$4kF_;3eB2N)O8_+PQXSz<io9z6rS1(73)&n$olyeNXLoc2kJn
U"$6Qs9-<</&Gdk#V/(QW*&>$Rz\eiNIJ.WG-69W(-/&4TSz<leNBoY9&6IES-b8T
U"(C0&Y:eNruocZVQwDznniY5Oth8bGWD+$hV.h$h9h\CXRTTchsL_Gv-3:Xt]drt
U"X=v=L,2CVv4E$Ht.bQaDaONxnuoujW4'vRhbQfx_vu&Wg-Az<_<jf0\$Z/^UEGj
U"T[BNT-q,=va-LS%^fWVAvv_lgK5aONxnuoujWpuo-LK=stewqv,/=V8^&?NS0jk
U"L[f7>=B]-BiCkE;M;vL?b]LS1*R84ac[-(Os$hx[iV.EWNrZkFrvmkxt8C8=282
U"8sQTC<&8X[N%nvR^/_re^fMRXmE,PTK5*fPVs4$9<(pQDWvqnAWru>t7tu'h7$p
U"TEWhYJCxvgNN$pJra<yJ*b<xowstBS9#uDu^L,u*VfbONxKFmYFXU[3hpm^6Wo.
U"945xn]XvuV^O&KM;s\FsdsDOXnYgk>]XaOtSf>-8KSiVVjqFUVFf5S_uXx7U#a0
U"d(DB-KV+LQu<yrFuSSMqW8_t,[4tSGNh>AdH$u=1g2QbE2o/uhaV#FNbSNo4hu6
U"neO6J#YWkb<n>G8TC.72ecWr*#r1a*Qlgz1^GkEdl(:WHjcpFXj.K&\t&EfBr\N
U"]^&N%up%()9%%'%-%5/+eSEDP(V&^1%%&4_%%%-%%%%hln\%SgfxNF)>BBS]8N2
U"nhK,edLF9o^TmKE-hIBR+qilT*^TscflK\I5\49LU2ofQWUVNSEJxdIJf7>K_Fl
U"Usm8vf59.)nt:hhNux2wg9Hdtedhk#m=9t,pcK6ZKpd5Lrm8V_]WH]8kXsAPb=X
U"q2EVl/^b*CviXa0[pKVXvwk5CuGCsQBhjs.R_<;7IwOT1I8mQ/Tv6-(B3D(krD4
U"3v8Gn4CIa,pd=voU^)Fo$b37F_-/r)tk=L>89?FTkXpH3^qVn-UU[w)(g*u=a^j
U"GK&\(='SHD>.N9X[UXuX3c89nsVGg9aJ+gUEEasYdGqQbNlPYmrgWmqBI4;E&cn
U"ybB&'rV83cxATXKxn8WX$K4UJ57>oq(N1=Z,BhiM:*srS:hKGp-KiD;>^J)Z6jY
U"N+hx\n*XE-NiJ[;PjX%*c5wpU\7EBFZi3s#ou_1vgQqV*_G#eFH7dU3(rI41=dY
U"_]_nKQLQM]#:';ivpMrw3t1jNKK8h>_xC*8\xPFw]sFA+(a)M'RLW**DAQCTXq9
U"#\H4XBoU2v_z>=B$?K7'ID(7Yf7+3Yg20av_v4jc15rEk=+wuV?=5J=XTjP<T)G
U"</0n^IIooauO*%9hv5LwD?^lB?hXF2l006cSf(k%;_+IgOk*g$Dx.Bqb+0dYkgl
U"Gk&)nK?:l^.xBOhi;S4hH6j2;7b'b<=gv&K,Fh^t3M8t2.LebCmNbnV/-i#/e]P
U"hG1E;0GO7Ir;7h2DJbo8Y$=Y3B^UY([L*_VUWwK3'&VY*Rt.fhZS^m_'*v$06ZK
U"L4uu_a=nG/23DiDBb'mBZfh;4[\3f=i2YC)n3]&W*>-hMHziqoh*Nc(-8q*U?gD
U"(mrNt46nzx2\bOQaCmHikF<lwmBAi;JD\OS8^E;u,6#<rV]0ssUw)#M^OJ*X8=O
U"+OPZ:-PXqmq\+Y3v=B>,r$%1')W./jwl%I9cO>\dUU.1++zDCRc-5(%m^&B_4%j
U"9q.CMA,n=ogWZs7z'165YB;)d(JA)RY(2xDo]'S7wD]kqmY>;39n^<4w*==?JmB
U"W:p(/50Lls?UQDS^rVv-,jO%m7ptO1Z&TEfZka>yJIA,.'m+(VndP/w'2(;%P%h
U")L)/J8;arkH96bz)XZ-7-QX%1IPc[x$5]tf:?uaWYJY27w+iR-5Aw#bG7AC[g[?
U";GXNQ(yj+L:+PE+ELygU'KW5WMGP\=B'm1>80c\.VU-1qfxtn_QR]QY6Z&/c5\r
U"CZqTlqhUew)-3aVBRjT4'(h/\HX7;f7p?VrZ?8NL*z(L&9LUw\[yAke6k:9s:TW
U"^\*(&egezTR5HkubSe;*STZv'Sq6u4:,8/>S]CkazRA(#=eOw=m(/M*4][*$CW<
U"Q%=M:..m)PG)O(d$qtA#4^G\$l9<u.3+MYkETmf*Hek/tOF4gix,9vE7[vP7AIQ
U"[x(AWi[w_(cjYKwFZuUI>HR8G_BSUPkmC^:yKh/Y'=)%goPjFw\rp+]_*[\UGo)
U";nmW\gQ^7#Hxv<]?^=t]BK.z0VG?N#cBpCD-ppMJn3eV3-TXpJrZ>Pd*b]hY%<S
U"&33WsMF-&,XC;1^6r45<aHowAdG*#spjCXEq4<82T/L$IEF)[f=Z29sH(cHJQP&
U"sJ/NlGJV/Vv:6m],.X)D,>85-ecOLETe,Ukj3Ddm2[;a#yof=BPVkmAt2\1]I8#
U"_2;wJ(VjBKHM#;OAK62w*k?mJfaH%<Vrb:V+b,$j,\C,Tp;IFe=fWlTrI9\A;uH
U"gS_j+3$f8GwL=.i>E16+:n9Ab;KY3)ZYWlPgJhaV^mRC+m\a.li$6V$)0zG^CH;
U"il;]W'PBz%K_iu5WV].*SL#%=PDfmA%rH;h%D-RtR2x(qf=LeW*nG<xVk=n7uOu
U"jR0qsB1<&2cn0*i2.or$+*27>P2B>=7F:%#JHM_q#Ob8+Sm*Ir2R*-dbu=**\tq
U"rT>Y6l,537t\)DE64f15De*l(#1V.P%UF>M(G]RTLSUxF4AZxC2QU[*)sDcBOws
U"%1lxDgkNkTO%?$VTj\g9',MI%lAm9[p#()#Lk1cLh)o$0A,$lKzMuju,aHWe0KA
U"MUR[[[wVr(-NMkqh<#lejqMBqiU:K]fUDDvhk^j=O7e<6I>YlJL%Fe-Qq^p9nCM
U";ife)jk>iqAkLh4'?Q&l.3n=A13f%)#wDVPkzL]VEtGh,:\Aia&b,=sgfMFSQXd
U"9uCnz/\WSHfW>OLP&d/wXvE6SbxqFo)5C'gQP0=+\E6]3];mxUu'ENx%:Vsq%$4
U"Cl'PFWJk9.cSNu,gb*x0KF9G(%.Xi/b7P3[)qD+=T6xV&,9HzEOhc4oS_?&7)w)
U"m.+O%*/BkgFckiY:)552h?AF:g1F[vWf>:+q2g:$F)Y50VJ#+GW1jOs-qfp3S.-
U"Xw'/)ux'3LA*s>z\bgd3QaCqp8m+iLe844__%3UJyD4*e'zHRpf];:dPBwOoFtD
U"%_Fqzo%P(*c7f1>^PY.+N_SSDRUGO$A_OQ]/6*Zv8j%>/DM_O;\Vah;_rJxt7ab
U"G)&.V0g_qUx75DIGsAV%Nb_Dt.lL;]L'a>ejl+%2x96DAOb4G(8OJU2cX19^/KA
U"kE-=m/juTM58*uKVMM^_&X?0P4\-aoUjI%GpJp'))6le,9ZDrnAqWB=mjCzsHnB
U"LWmM2Ij1['%>OVE]O:faYe%pp<$GDidAdy,+WfEP0K]_uBnx/<[=Y-C?$G3?YM/
U"Ml7P'#pgdDU4oeFJAJQMcuz-$&YqD8+I<<Q/mJ;pD:gnZBH0.1T#I1UYJxp=.>\
U"=d$5\P4$lzfAVGdibV6#olW#vV:htD_B&\*#:-\AfWjw88Gv$1[]T#iD:bxe2ke
U"t?cZ'NK*A.f^Q&^_836<=XT=\ewI-<bJ5\P(k-/S*M06^,Lf21<D0hxkzl(D%.\
U"j#(&1Y08QO9M%RD\?Ks?P8+NEfAo7f0[wJC\xn>P]TzHb(q:_%+G5[:A#XecJ$M
U"s]?$Ru;QniOFPpvMcJ^G[AqA6>O9mmah-e+S?^EUcqb89T$3+(o97I^<,W*yF%L
U"s/><T6&7^\%G]NU(l1VJvhaI8lHUl[KA24W2t:M*7SZWhejIaFiA6a[X4>&MP9.
U"A.cL['RzULQ0nNDq^AmZ(Svi[U)%UT'uTAhS-gWA)fz544y=Qz9/Zj]Ib=WW/#J
U";tr5jLxU9<LtkIke#nmR-2M,6vZ+%l=PbeXpkhD-=XYMp_g.lO5qa/TXh.W<g9Y
U"FXG'XvtWaUQP5I37RJ=-nAvvAvt&-f7xumW/aWEE5lRFeD:Dshk26Dq,t^beB+]
U"w;<hwgdsd%s<6Afw\.#pE8Fo8In^v/8fnmRWfKdG])HNTN1;+%og7R1v.TRe1u/
U"'uZd$a(RJ2%X-%+O9lAsUL6d7;viE6lAQ-(ameUj4ivU5%=WR%kO>a-4Jh3cczs
U"1XK4*(uXP&kmMk;.zw?'cR-.]KLksaHs5yb4[Vs%3FmXe+Wt>GoDC:Fs/(9gq4\
U"7_V=^ZC[lDS.rq6s=p/Q#YM$KY1lsWJ-S-ROzP&tJ8N.yqMBlPh4#Tu.QNqs?\)
U"aY?\W^1&[/eZ>#,bBpnuruK#..g36[I'-WsyCdC;u0vfO+jednJ66q&\Kf-KFj=
U"iUUP-qiCst3lqPokt#Q-;XQj3QGyYa*D)sC4Vo$)jIb$0$0ABIVYgb\]WODd6is
U"tLVM5.-.H8'Vhoc0eeZ*5x&%wpRW1Kl5UMN)LU/=qv3'm14?FMIq,u(>*xWF)\A
U"h9ttiJDARN0F:J;\&P\,26\8tiK&ykgWl(?=SLJIA^;A$S6mmH;1V</5vqidqw_
U"KL6GMAa3Oc<PA<jGzulg;iQ,(Vh+LQ02M'P-M8hS+k$ggJ+$vv?J%%zARlk[W*T
U"4Re=kvV6N2$rFN7kU1ypNx69]=gKvlxoAoNI+uZ&:]Q3d9bO%hfSs$AR<3a2JS$
U"ge$,KsLqUE^r-pp%?a?(4]M.Y25++8NMcpb-u35LW<;KJIVQg<aY$H15B,h3f&*
U"/.oVgKaZ8Y>?BD9uNT=:1]e_K2V$L#Fso^Gj1/LM#\s/o7f52%K.6PKBmBNxvd=
U"]SzaG=f?c>Dmx08fb$X2JEN?kt0?;g='#q(,^qDu%p&'9%%9%'#%-%>(ofS)fY4
U"h4%7%%%%o%%2%%%%%%%%%%[%E%/&P)%%%%hlnLw403D<4S3)>2up%&'9%%9%'%d
U"-%/+SeSDP1(V^1.%%4_%%%-%%%%%%%%%&%RE%/P'c7%%%hln\%Sgfx%up*+%%%%
U"%%'%'%&#%%%&nD%%%%%
END SUB
CLOSE:IF S=29AND B&=8230THEN?" :) 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\8230,219);:END SUB
'>>> Page 1 of CGIBASIC.ZIP ends here. Last page. TCHK:29
