'=========================================================================== ' Subject: STDIN/OUT FOR CGI PROGRAMMING Date: 09-01-98 (08:11) ' Author: Kerry S. Goodin Code: PBDLL ' Origin: medvrsys@venus.net Packet: PBDLL.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract CGI.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CGI.ZIP",4^6:Z&=1127:?STRING$(50,177); U"%up()%9%'%7-%Sq9xI&=(*AD(.%%B-%%%.%%%%ug%hlnS#gfxtedv>SIm9TnVXc U"x?GSK+%$%jY4oK[S%IiUs%(BR'9hD.q*pbPJSG2DX=pgNvWC>21%?x,\\(;0R>Rd13QVwC'Nn7KVuB.dtcqL^ U"<3>JSgS2Aq.p3WoN%*t]x1aU__Lh-UX/W56NR87vAe(O\l74Dw_)oe>/-'kqO^6 U"Yia(ZS'x8yqBVOP9qWr$i#GXtN(z^?-_%_IAb13jk_N7#VkG&*;Q*fNeBC^^)/) U"1a&G9qITbE'n'U>3P9i=EH635[PwT>5&'9)[kjJMhQ91Lk&Cgg5l&&A(obBPXqV U"&#)%9auT>GK4QB?T(L#6.lrBWL/#Y<.^AJM:VgVch/fTTnHN4lVc5jNKs#^cWy_T$yTC$E*LFj U"8mWY>V\r&ePwInZr0LqYnB^_5IZ)EYHX\b9tBPn4Fb)Kh;' U"A/FZ]&r_YC'8KQgt'H?K5oGe=Dkwa9w]1NRJgi'*vq/NwDzIV-$]RjYoT]g$Bsa U"dt,mpmTK,4&6t7I>m'+lue?O&.T-5HiV8A-ffUD,5YuK7P-'a[pyT5M,A U")oPe-S-'uI[=m[yPInI[/=mOc'mM&IF6FL/E/]DN7-W%,%up%&'9%%9%'%7-%Sq U"9xI&=(*AD(.%%B-%%%.%%%%%%%%%&%%E%%%%%%%%%ughl%nSgf%xup&%'9%9%%' U"%-d%*;wsI/Dn(OC%%(%e%%%%/%%%%%%%%%&%E%%%%k%(%%k%nqjn#sSy'%yup*% U"+%%%%%'%'(%>%%+%[(%%%%% END SUB CLOSE:IF S=22AND 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