'=========================================================================== ' 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"w1#Z&sfii1&t-LG#'5&Q;Rm(xJQqOS()0=\\PaJeYA?go*%W$N5gk>kem(&V(_.N(RHFxT1RxCCv?-.Zght.eA+\[8N/G9E\l U"I7?\uML42sZKuBP_o(S]lqmS5qzA?'h=iN U"9#(;A_.T1D=t U"ZdUWXlOhhz4lUMsa%))cenaaTZ0#Lx%=/On59.s_2U2q0IH/c4&3mm_B)8_8?(4 U"qON7dKo#Aw+Lw5sMzA?]*^Ly_MzV[hgxtgh,qgv/ISW.hg3(E(q(k'_7t#v U"d,g%Zcr+_%x&st:yMDx+t\:]P&.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>,\]]DMQ3URX9i6DCH&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\H49k3E4)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 U"#M.M&v4q.Aro2w)'_G:DcjO*hw]]jxUqv11do]<-(3eTdGmmnHmkW6Avsmhd=\- U"SpMYH5>;E?TqwTDPmu$\(HPosVk%''^wuEMRn+QDazPE$s's;,u]%sAcWnNQWqnVI6bjI2:$&-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$]7n>7dT5)LZlKsk)h35Ql]]Pe7Y>^h&cQ:sW%m6WYoL U"tMK#wR2SYCg%0^;URSDCe&ql>GCBznm;?%*qKaHf68H'-n3vy*32cmX>D7FlMUAgJGQ U"80IsYsX4SA>u92mA]*\k,tVUK7&CH8y]&QMhbyq>xC7#+OSX$3&bW3^ U"mA8bcIebc-,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<#*VdJvq*X9$E>0CYn*Y9BG]%2bOUDw)W#9_tyoavI&6^]N[JgR(&y,Z?.5RAJ#w%T$ U"/LD=D9B9i:CEF-'R_ZHdKmpcjvnY%dWeZFwZZv$#O^LDBe/IbfA?(YIJ2+_Yu9e,^Qo=hSae=A9XFdes U"Ikuqp:e)MeSRKHq5bf6:b6=?r7t*CO$KssM7mZdyvenf?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