'===========================================================================
' Subject: PBDLL 5.0 ISAPI SKELETON FILES     Date: 03-13-98 (15:27)       
'  Author: Edward Blake                       Code: PBDLL                  
'  Origin: blakee@rcsn.nb.ca                Packet: PBDLL.ABC
'===========================================================================
' Remove DIM from SHARED to extract under PowerBASIC
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ISAPI.ZIP",4^6:Z&=3402:?STRING$(50,177);
U"%up()%9%%%%-%61\AI+10*hw(7%%n.%%%/%%%%nx%funW%SgfxK>z,>B[]9LmCI
U"w<WV7Me+:[xB0fmO;gg)qBp5c))B4TM_;*1N]_$2o4W8MfKYa;%uCt*f?9h^pCu
U"tqS2+*LBT%qE1;tboM+lY7-44*n,+mI+rj39rVU^;?/r1X0J]8ScKQ^4.*+qgS%
U"%qoAFTR()WZ>1#Z&sfii1&t-LG#'5&Q;Rm(xJQqOS()0=\\PaJeY<a8x=G3#ERe
U"?:p+mmixjbRBUbalhYGgFPUDWr5>A?go*%W$N5gk>kem(&V(_.N(<UdHUV4.nm6
U"?g/c,YN$4gu.Q/.]l?nOt6Vw7#UR(cp<)+A/-p]Zg.hBVNs29O([*S<W?nDeR1y
U"[:tBWhBA[0ExXXD;EgIc0?S:iB]VWI&-Pj[]IsAZZA&E.]8IGWA>R<aUP.$ZC0E
U"?e^Eo^)W<a?UrW^AKw4H?o)0+A<wsWJg4usbXaotKbQOq51RsE0U'vP:Th-(6Mi
U"v(9-FtH//GL/TuWTA3EvmQ2?54:]X/^,N)8n:P3tPSY;RM0p-bJe%CT9b3*uWA6
U".rgHu.?*6i]nA<m1BT/PIPkmT3?AY.IHpjX.IfIwLx&lc1/R-l#P_LzoqbRg2.V
U"dF<tUAvq)U?I&P1o_<D%=q^#Kh&[C(C>HFxT1RxCCv?-.Zght.eA+\[8N/G9E\l
U"I7?\uML42sZKuBP_o<Xzrv3(MsHKDz4\*r8o3oiUX%d^6'=0Z;enFI6$cJ'n,Ha
U"a'U^Uw+.0n+G=Tsw%kNRByZfJfwdwYY1#w];r0DMwiF=r>(S]lqmS5qzA?'h=iN
U"<Z(IfCR_:1Fi/\4M=goW-0L:KFZqt)RIgBPqL-cNa&0XU]j42s>9#(;A_.T1D=t
U"ZdUWXlOhhz4lUMsa%))cenaaTZ0#Lx%=/On59.s_2U2q0IH/c4&3mm_B)8_8?(4
U"qON7dKo#Aw+L<s([[WPxW0YUOR[-=PJ]+PkEq7EWAo]o.V,^A_JJ'L'_GJA-gx;
U"oW:caWBYdh8LE:[7u#),&fQXw7U;cU)3j^n45md?-LiuEyPFs=ZDY+GOdY^+NCd
U"?*y/SM-kHDf#9cG>w5sMzA?]*^Ly_MzV[hgxtgh,qgv/ISW.hg3(E(q(k'_7t#v
U"d,g%Zcr+_%x&st:yMDx+t\:]P<KRQ;6&xZcy>&.6'CPg/Mr%[olsRl7g:Y31KCG
U"?V%NP;tI,E5ydY+W>&6ggN&%up()%9%%%%-%/1/AID:,6rI(%%%m5%%%/%%%%nx
U"%funm%SnshW^%X>BSU5M;=tw4lpI8)0*2g_N&dGoCn%Q48_J-m35ocA3M)9HP23
U"DNWv;kZ*I_'R;Jh=4r$K7tZgteZoX'jS43bKI>,\]]DMQ3URX9i<Q:?aA([V.<3
U"Y+MW&<#c\W.n:6_^QshmIYGH$8Q:uBkj%fbpx8NQmkBAb;[]mg*u#Y(/tL*,4LF
U"y[SDDuU5q#Ed5-7HT:Am+E,yl$06ESWTi%(,J*l?#('9=^>6DCH&75MCD=K62dU
U"]2=iM:;GeuZW%>]Y\A.Sbp8hyT,xaC0r$SqDaKr)*/ktoXvRo.-tUB_x_EVKH02
U"$ms;F_2HBWB[;a3oD7oD76j-ND*tQn69>O/jAD'O][I\H49k3<maR[I0j2Md.0v
U"1lh8]1HayC=&Vn>E4)AU(OfhakHWnEQ#t:b,rJQXH3WKJ1+%qKM?ZY(RXB/5K#e
U"Ygj1Ts^K.[W&,j_64JsAJEz7RfBsF?A-Hvs7..mgb,#'ONXtZEnjoW*;)Q%C_(+
U"6A2&i\k;G6cM>tw%X'n]'KtLD>WY/]dK)uZ6TaDU$Yh+3C$193,a'*2cMl*08Nv
U"V:XLp%+c>IP#6$PwwO*/65WMSF?%BHr[B>bF,TlR%\%e$gXF-X'AsPhU3>-'SXv
U"b1u<RWktF$VY^AxMI$5;A89<(T=ZPulOK7T)EcLHcfSHVXPa#+JruzwJN#qESOo
U"=GIRj_]Gi.IBa:sa_FVWS$J5/P\18Hi%Im<K7LynYMW)Uwk-E<ZJ?dn6Z*Lv_hW
U"*(/0gZvb[(IlM</8EwipHsA]ZlkMB<;77:u#2lng?FOVoazeg4hhei-?Jp-fM:>
U"#M.M&v4q.Aro2w)'_G:DcjO*hw]]jxUqv11do]<-(3eTdGmmnHmkW6Avsmhd=\-
U"SpMYH5>;E?TqwTDPmu$\(HPosVk%''^wuEMRn+QDazPE$s's;,u]%sAcWn<xY*<
U"WvV5e'wpNW1-J7&0(QUcs16'+YC%/8]2$0l0[$KVHl(yqQRd)r4&bFyE*mlI\,z
U"rm=N'bT%up()%9%%%%-%21SAIUK(?\k*%%%*5%%%0%%%%my#yuj'%ySnsLh\&<)
U"Br[5iwKhB>NQWqnVI6bjI2:$&-KDU%MVb1RAGG,B8U/WAS;H&cAGJ8*7aU=M;;V
U"#gWO%HjctqVB>%,j&P([rj/;XA)((BDp>/*r+XHDCg*+Ks]m6usCiG/rbQup^-+
U"wBD9v_?M)mq5$]7<tEH8u5iTdow,cM0+EfAd[<bako;+(DeaB_:yB2i;1]TW+?H
U"hZ$ft:V+xKOCV-.JrUE$ZP:qGN7agg<X2mbVY<P\LbBQ9o2P1uK\t4\#FFN39%M
U"Qx\-c%Z4y8x)(6Z/7,eK/]d:0-Kj9gnnFGsN7\xNnM'OL]W_r*A\,*Dg=6<YD*p
U"<RK*ZbRj&qSQQkE6]BfGLb%Hu/\VeW;MXfUk0Q#WeemVlSw7I'wJN;WKA:s?jxB
U"$m&:^DUa$hmPAjw4*)Kh^Y-E$[GZdjhSwis,t0;-WDm#[b*JcM<?$$$?&kx*IqL
U"hBAS50b'TS)1y%HqFT+*^>n>7dT5)LZlKsk)h35Ql]]Pe7Y>^h&cQ:sW%m6WYoL
U"tMK#wR2SYCg%0^;URSD<p)tOp*]jVWb<M4A=%;tC5QfJMi7Bq*u=;c1W5Q<V4C;
U"Y'p/vAW)dbW]d_>Ce&ql>GCBznm;?%*qKaHf68H'-n3vy*32cmX>D7FlMUAgJGQ
U"80IsYsX4SA>u92mA]*\k,tVUK7&CH8y]&QMhbyq>xC7#+OSX$3&b<j+ds6E>W3^
U"mA8bcIebc<ga%,'tfG4<2P)Ezf5EVuzAq;r;X^GX?[+$0H<j$]0UovK<+HDZhX)
U"FJP=mk%4WNcik]U<YY7Q&%)*:CB8Q<T0hE0?WI)-a'Q2%e]RqxODCDVFUI)mi*Y
U"/qChvQ>-,b.$kZQbr5ZgXBYuTN/^v)QUp=UZaWj+UuzA8IN+W=i%9YL43>,Ybi0
U"FFE]NfJhKiTm(N;/n;nyUa.iZsIuVB-8?1^DZGt^fNE:-;Rg:BOIas2bU8c8#=P
U"TZy-&Fb[=Q$S$R6W.XElJlKQu%&LN0O)gp&YYzJ&,c5M9bxLcrmus)bph6kTmv,
U"K.T/L\sC27n?nqartAXp^5PDOoPX02P$YZiuu'Hg_e$bOLIq=Hh$*\V\XrXLV.^
U"nHFRb'^1SETv,LWpKCpt0?KjaD8s)Z5];V1]n_Y0*m_KF+[r7M%5C^o%ZAA44O%
U"QTN6J#UWIr\q%frIQTX_8pPQhh<#*VdJv<s3?OrzLrwG3&8lx5'f?S1X-J0*MSr
U"GQ>q*X9$E>0CYn*Y9BG]%2bOUDw)W#9_tyoavI&6^]N[JgR(&y,Z?.5RAJ#w%T$
U"/LD=D9B9i:CEF-'R_ZHdKmpcjvnY%dWeZ<r6eHDRYt-)[b5J3EM7uB+nkgzQ_P3
U"y:&:jzYE*%%Vp\5>FwZZv$#O^LDBe/IbfA?(YIJ2+_Yu9e,^Qo=hSae=A9XFdes
U"Ikuq<D'v_+4=Op1F-?\;z#X$:<j:UW,0<rJlolj_$E.><m'&WqDHGtd#tiO#V7^
U"L:Rl/Z0?7ilVf50Q?nOq3iihuK-Xpi6H$k.ku;+BdlG//MwSy?$mvwMPs2asfvg
U"1MnnA&s>p:e)MeSRKHq5bf6:b6=?r7t*CO$KssM7mZdyv<j)cpZ=K+knFKoBTxP
U"<hQ=nN=c%[s$DE;_&s#CkNR9Ilhdv5C.&oMv9M$\3&sgIAtL>enf?fYxr/to+Wg
U"mF)/qT6,2C'qkMb[oNvh\>xOI'L+p>PkST4e*R+_h,Rw4u%p&'9%%9%%%%-%6(1
U"AI+H1*hw[(%%n%.%%/%%%%%%%%%&%%E%%%%%%%%%nxf%unWS%gfxu%p&'9%%9%%
U"%%-%/C1AID::6rI%(%%m%5%%/%%%%%%%%%&%%E%%+%I(%%%nxf%unmS%nshu%p&
U"'9%%9%%%%-%2^1AIU/K?\k%*%%*%5%%0%%%%%%%%%&%%E%%%%A,%%%myy.uj'y%
U"Snsh%up*+%%%%%%(%(%&x%%%&Z1%%%%%
END SUB
CLOSE:IF S=119AND 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
