'===========================================================================
' Subject: WRITING EXECUTABLES IN PBDLL 5     Date: 06-06-98 (08:26)       
'  Author: Kerry S. Goodin                    Code: PBDLL                  
'  Origin: medvrsys@venus.net               Packet: PBDLL.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"HYBRID.ZIP",4^6:Z&=5347:?STRING$(50,177);
U"%up()%9%%%%-%Ie0?Id*87d#*%%%k3%%%/%#%%m(%gwni%Sgfx3&&<x]\[5wR1X
U"uV/lq8'prLI03bDU4bXf(0:nkS+-XV<kr*d=>]*wn7=%87PrBEe9ZVmF_<:(fcl
U"4SFsG>G&n_jv*H+wA)5%m]8'7;ygMsRi4F^N$YGVYcfOC98hAUWa,dg*?AUF,vi
U":./gAw0%M;.\f/u'4.wd+qJ<m)FJ7<[\>m3ea8^^Rq=8S9?eS3[(Qt^j8Zw&3+;
U"e6z&I7of=:]'m$0kJ)CQZi50%u12+7cr>]+:q;hiKqA;^EJg]O_=(&#:-r[psRi
U">/F/9dRljpOuSMi&>FPepwa%,21T[$/_1EaJb9[^fsg0&a]R--mvVF#Usm<^^;1
U"N1^=hJ3>Ejm0Buk^NPQIQ:??K%=DQ2^%Jw]0MC#P\Z)KK>t#a#ANj_k5YuHYPT&
U"h0d2uZkfTAn:LI='IBtZ%]9E+*iqaG'itn]l\L#4L#.^BW9kbs.7RwGCgr+t?X4
U"sW=jRbP*#T-ueF7x8=YpQ>smiE8?hx[u)j]_9<]iAA:c3Iso]]q5I[^l18gYzDr
U"69Q.IPsY8v=;IIL=1Bd?<x&673^2VVGOca>Ru>dV/<Hot-$io<j<+Ok*eYnXd4W
U"MnHT_&n$0Jh$tGv.1Vv)Z\vCh;GELq&-?^&Gp]=9>D^wBBBpO/-BR+]I:=dSo;W
U"DblBjx$uQp'\7jkg/(df<<m<oeV6fE]a2[=k:k)$/uZZ'/lm9-J+81-pLB#Th'a
U"nE^vKMmL(XGXSj_Ca:-FjT$GdC*.MMcp?wgoo<TcRWzcR,_W>Ub&tzON'EW^$+b
U"L_kI+%BG:P(bSRXV<,TWlEPN\wtb$%<+Q]xsM*gvE_GN81dsUY:=4mP$Hl.He)>
U"f*'0GzNvt1/h1$ab&MQ='e3Y0$;L)ck=RF<cyLus$xnfJMy6+;mvg0''e.fA[*?
U"EJR7e&[hw/]B[Ts5(NQ.Pv?eS']^rF+hXxw6n[cSpnhD6b;N/dX0-'Wh&>,jiMh
U"+#ZWEj2EpL9[s31428J5i;P&;Y%J?K[snYYQls4TbJ5D3e3j\x%SaS2eXE.t28p
U"%v,TNB3't?3'Uv=5qjf-IP0cXKB<Y-,+m6<ZiCuZ+]:.Buf8X4Mj\<u2p\YO[5P
U">HY+PlY>>lc^;tnt:Prl*c#7W'$Y=9a^9;xHCq<)CDd0uH'Nb#1bBS,+9=hY:Df
U"iqA(rznMu9-Y3*twQ60Vf>eI/KxePbd[v29kq*#/\8?.&0i5pZ]meW%5ei/w&+2
U"'W/j&dQ>fdgSOiLPkw(5Dku2%n+>1D3k+BQ8w&JNISiL$427b:::eWhJy>;sEOs
U"mBcSZW>;o52WDt-Cyl;/yGH.LF<VJ0iIn%2jg%h8bBG/N:z/dnP1Mj%8OB\#Z'3
U"(xk?\:+x*F?O.F,P8?)4E[s5m^O(qCe^rD3[31p,3+c]PWVh2myYl]I/[14uf_C
U"H]c-^o>Va>ON[ICL-t8c-MwBx8+j3rNSN$&,-'R/rW3'V0S'ZSI^=yFX[qYhTtx
U"^[hTEj\Q=hj5hmb(pvfU4qoj1<73j8P]9UCT'%26w/-tvjmWa3Uv]9gzp*Pd^%.
U"Z.C<bN\rI2N1Q-s]ChT#GDvzJ*+OiL\*/ifVj5m(WIR(.W8(HzX[dvEh[OAVh)[
U"Dgi8w$HsHc^srD*,SlEdy%Hfva/aK.n%kcSSGTx8hyQ;,IJTJ(XU1\M;kX1s)>*
U"wb5w1zDmb?IGNRg-xCk8dLbKUwR+0#RMr889F;&5VCwF?ep+Fh[n;/;Lyp$k2E0
U"1QvbCsa/fmnRhmQ5;r++M2t3TeBkPW]d#kPxf:u^sj9r*bGPUlBXK]h4b%p),Uc
U"7g%mRHjA,Lhjr1.j+ypj<+mFjn$C;8k&/q8/g4?Lv?9H=)OPf,_z4jt00aLSp;6
U"'D_^<+iu*u%p()9%%%%-a%[e?7I]2C*A='%%%2*%%%/%%%%wjf%irjS%Vxyzjy:
U"=T7U16#TidieKL1C*U[;#uj(K*)O:The/gmzQd>7,0Htsva3fsfic*rCXSJ9lbF
U"u<e?'/scg#)[)vA-$,2(1NnVXAXs7GDP[<:x^4)hfWr*(/t/H*<[.+9M)O(Cgs9
U"uAw-m*7;om_?Ls/vgf9Aj#ARXH]Y%<tpgtd;GhYaHK>[GCGeX_OUL2Ly;u<e:jR
U"VyMnLv0c%(Nfu(Vs)b0jqcz[BGFLODdDgqZsnJ&Rj<SNKv<mRik[WTwgNgaU*fr
U"K_o99hR?e,14#_%B;0jVT\m3<<_*of'E_7203YOc05obl\UNv_,i6;xP9,j0)1^
U"f,GHh(R^fX+,F7k7A(Jfe<*;[KbUj)U^qwm&8kO,X8f$,FV=G1dJBl4J4^^(*Db
U"OCakHM(VMBUU+/f:=aRQ?pF3a#+/<IMTq/Ud<QwP%e%&9IJE&JnNdfs\B-F0$2<
U"zk'IAkS*pjJ8X]]p#H6/1GNflzo8jGtW7<l4LPt&)4o^sKl?W<M?;r.8jMcP364
U"=tu^+.^S9_Mrp'pmp<Z6?eQgIs>US*48<>iI:T,m-2JTQy_hWO\Cq^p7#Xr&lR+
U"PP*f2V$+k(WD]Pxo_B1XZ<\<^+Q^6qg=xY'U<eUgD:guh\K^q.M_&Wob=<S&9wx
U"TqgN&lgsD/.S>ewvMfl?z+je39Fb$7yHVxG7PZ-FFNi:E2kcC.rPADcUL\VFm[6
U"Z5[V3xjW(L4w#3\+\)kJIK&NOpj$-44acUc&PH4BF<bSk6QlcK<Fjye=8KT+hx+
U",bRJnGjL[N:iblGv%4up(%)9%%#%-%^a/?I;56d1.[&%%n%&%%/%%%%w%jxtz%w
U"hjSUmDI.+p<U5s%ip:l7<PhKdKMPB'.=;tbJ-<pbT/2_7sYKadLVo$V\:b1[,-'
U"tF84U.J-]l.S9p#9C.^6PrkCi*HQ%7Y*.'BJu,QJc%V$/FEtf*R,TQ/k*mw:#[z
U"b7L)2:+h[4H$H<^&-g44:nYq&7r6lRlke2#S#0V_4)V=mNA(Z0kGRj.D%4\jA^V
U"n\HAZue:fm:hV<$7w,e-91;?fu%&7P0NFrulF&jj3;\EPA;S1/KPmM7>8Fj(KtF
U"6aaWN2FpOGe<L/C#l>bB_/\9H?av.2\eksRVExVH$#IFLf7;Cu;J6pnB_mtG7][
U"dpxENMmI?Vspd?*JOq'p<up%()9%%%%-%8+f?I,Eby+%u(%%%z/%%%.%%%(m(gw
U"%niSwjh>%V)>r]5qN^=x[UlD'\du7K;*,tm8Qp&Hp50a#Sxw=Q)b'GK<;54P*n^
U"d#m-nTd]WcY3%v9VD=CHua4Xo7YD6(zYSAJ:t$X7vg\7*iO.^P0r+^&wn2BwwM0
U"dOrEr+Yf]0I=[kl?Y[j3%wB/$_-dU,g?eNPA31kGQ,E#6[[?>+F#2(*x#nC?$LI
U"L,IvLw4#G7)S-Djy+O0E\:91m5<\/_LCSQnncA41KiNFtdu[x]Y<G9'%'r>?LB9
U"(5.d<q;Yda>aZUjn27p3W&Yl0o_k>B$_f8Ti;Ihiptdot<iks'#CQ,X5J/MaZ5p
U"Ls4H^5RDXV<il9pdA4PwIuKm^-B&*IAhC0eSXoj;V&td<g/(hLf^S,LVBJk4Dq,
U"wmDz?kr-6Lx:YVDKq,+pQTRJ*?jRGFjr_^OnQns'gBFW5h$]hQ;AVTc$)FW#&m?
U"\8JYbKI6Wlwq)*pA+eq\p,U/Nm>1Nu*9/(n\fdh3.rf\q=):E,(=]1D)Uaa?2;R
U"=iet50THb\H?rUNK:)c_r9QXXF()SqJ'VwSf/eE8vGC_gv;w4.uYXCXTD-+cBBA
U"#E/_&d>F$dY/qY)D?yKTsPo'V\+g4U7Uz9FXBoacMF-WTE*x;o=;E\UP0EI^&aA
U"L&S%;\t9x]HZ9=OXG]['K0GCScVRwDt;Dw<Q+#eLMD4,.A*mfcTqVo#AO9KYfV\
U"Z[/)t>n-RU$fCAp]Xm_AhAdQ/LXp=o9Nj&pDT]0E3gQ;8_J&yw$?=_&E=HQ(K$Y
U"ZBEX;+6cHqGTLJCML?jJL+b.D+L=72VX5cmztUeL1]l-WwqL^NOFlz:mtuC0S8E
U"WFGQ0?n?8gJlviK6F)4m&d8^)nVb+4qZ/3O=Atl+i_KC8H8lmBQ01_WHueVokZB
U"qHR#K3<JB2bcWDv0AVrlR_3J::\=?lp8&k[,ahPpf'G)5A(j0rqT)ue;0-SwNeY
U"=YL0RAziX9.M<Dj=FVf/MetI14%dKfaj0N\#'9Tg2_I/N)D)9E/MMEPPUv+L(lG
U";+WVv28q;UC(Kr+q^H(5tU\xDO(+To8tkdxGVk+7LVGk[NBX107-cw&Ox%&up(%
U")9%%[%-%\F%?I9Ss-.=%&%%[%)%%/%%%%m&(gwn%iSnh(ttx$+s=e1/D%8w#EKJ
U"47Oi2lNQr?S\CSb^[CPlR/aWlp?ler-A_;IgueD]rL$2JXOK3rDt,APtaBJ0oV4
U"xuDpGI3#,]h:]GbTdSC3=\%/XDdwL\N+SZP7h_t'uA%t=w1Aq.LF\jP*wigqq+2
U"Z)+GXMH?5hGb+YJU;2atukE?5\,+4xu&]ZHQ%TT+HSebj#pla?OUdI3#TOG\7p0
U"P^JzFl8_^>GTsqYSv5#5Rd3^6jpX;gjoqva-X:<m[.P3QZ=sJnuq=]5A[Wg>R]S
U"ax8^5A^,Teib.c$n#bGa\mQ:ul)0CplLmi6oYgzh^Z#U)>kd/j[grWdS9?mItir
U"lOZwfE,.bV(9bol\[a(LY=/e9>8G(OK;.iFtj]vUeGB7ul9nc$$rV)^x)B]_n71
U"+C8>Ah7<I/x5-OEMxB/D$n$Mfj^$]h#_Y\IY^]D<FC#,p$?duuTBj8nSLD+&X4u
U"%p()9%%%%-^%H,?dIB]8-4r&%(%3*%%%/%%.%m(g%wniS#wjxt.yb^8.V5lI_VE
U"fa65^dP\yPMk#8Gi#.9mWP=5VjN-J9/Idky239t#u4>Y&r(9-N(q1\tHX0wuW3^
U"sQrWrS>?o>GWQpAGkEt>[<$Xt?Xv0ia[mLC(Io^ra0l(bVTl.$8pDWXSuvba=hX
U"s7gTbH<6rP,M;s67rXrp:XlomgEG0bvj<)Mk]W#DtO;Wrbe>t;Nb23hXfb:,&jw
U"s)[/-R:3%PElDQooD)tAUqWeY>B';NqxNu?UQHpqGFlS;vu>21H2d$P=t5-7n_;
U"F:gncdX<%ON72=kG(ss(iCGe=Tip_Pj8lCRQ1Hn1P7lhDT3I,eoj;F%e<b?)4yv
U"WC#zi/fr++^%j.ZaOrnbAMs81OrlQW]pW[Bc2s5'd:Xt*Li1T5Y*J_[-CMY,\^-
U"GGisaRx9KpSU'_hrkHneZ+ZPUzLE^BvZdZZlI?v$Ejc3Q,k/jrR^=QWl:tFE:)c
U"9i^QO&nMGc^ZEdx%9gRV2je0tw7%L9?]Q'X)d&SO*$QVW_V>'XSt?3Q8j,D:h9:
U"ugg]6,XvWbXxNg4orqN:PK=60L0g'[9K8d5_%'X[GGt*RbBX\:LyABu])=OT&#.
U"p<MGdutu+l=:)qlt/g6ooF$7j)j6oSA8A,&-M7i0h7mhN<<yi0%up()%9%%%.-%
U"J,B?Iy+%ou_'7%%o*%%%/%#%%m(%gwni%SugwAtyb>#9V5L>J2)0+gRPx(ukMuo
U"CmIICj_'Y%mMN5P,qc7&/*7(*NgSJ2NP]Dq$1duR&M(oH1k_vpX>e.AbA^_i9JB
U"\$p5aorE'?sHvvVO^Dc^^GcKyWu\$BVrT8/?a4Q'Ua_n(ca2chc_ZMHQ<K^]liM
U".eet5T%Yr7,;X=GXx;Z(;N#j_T4ueK*N3tQ05gFu_HcV#Ru%MDUFhEYVXWk2[j$
U"fi:5xX)p)^5VQ,gK%4uc>l1\=.hn%15f+DSjNt[[Y.Xp3FguFSbseXClwk7C9%;
U"nOa2Mp;1O-KxAZ9Qq+rfj,bNJE->:;&)k$gwYQ17B<n(T[4[H=$qWT=?e,G=iFu
U"T24l/y_/B*;4QcY?4YB<uoSZ4EoHbP^0_BKtp7+qza\JU3&tkLT&y<Po>.L?$c5
U"d#L0PA4MrV[gQ+*$GK5Iklfc*T?(GnVj$H&enq60>ddI+c9\<OCRCXRhtg=uC<r
U"2:oscWS>U'ewx?sQG9Txg46c1Wwc^>iJRDs;x5;cm+h(^sq,nMWqu=n/xK?&Vl.
U"rK,Hpl5#yZlwxm,%s?T+fD8Hdf7:Y0LQ'P'qv[6r-R6Xc]QZWVK*(56AbHd7]<V
U"Sfta[#nu<BraH2cD46FWP8c]p2qg3X>$7La<$65?ZJjY>2cU\k6\Sm2o?+eo%tl
U"B7^,>fJp:u&\F(8^Qc+c'Z=H^V.0ZeB^H>D66_lZ=gQ:)&0Wn?AW36&M&up%&'9
U"%%9%%%%-%Ie0?Id*87d#*%%%k3%%%/%%%%%%%%%&%%E%%%%%%%%(m(gw%niSg%f
U"xup%&'9%%9%%%7-%[e]?I]24CA='%%%2*%%%/%%%%%%%%%&%%E%%%'h*%%%wjfi
U"%rjSV%xyup%&'9%%9%%%.-%^/T?I;6*d1.&7%%n&%%%/%%%%%%%%%&%%E%%%&T-
U"%%%wjxt%zwhj%Smup%&'9%%9%%%.-%+ff?IEb%y+u(%%%z/%%%.%%%%%%%%%&%%
U"E%%%'/.%%(m(gw%niSw%hup&%'9%9%%%%-a%\%?1I9s-*.=&%%%[)%%%/%%%%%%
U"%%%%%E%%%%R%2%%m&(gwn%iSnh%tup&%'9%9%%%%-^%H,?dIB]8-4r&%(%3*%%%
U"/%%%%%%%%%%%E[%%%<%3%%m&(gwn%iSwj%xup&%'9%9%%%%-^%J,?.Iy+o%u_'%
U"+%o*%%%/%%%%%%%%%%%E[%%%]%5%%m&(gwn%iSug%wup*%+%%%%%,%,(%V&%%%k
U"8%%%%%
END SUB
CLOSE:IF S=1AND 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
