'=========================================================================== ' 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&&]*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+qJm3ea8^^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?Ru>dV/D^wBBBpO/-BR+]I:=dSo;W U"DblBjx$uQp'\7jkg/(df<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,jiMh U"+#ZWEj2EpL9[s31428J5i;P&;Y%J?K[snYYQls4TbJ5D3e3j\x%SaS2eXE.t28p U"%v,TNB3't?3'Uv=5qjf-IP0cXKBHY+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.LFVa>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* 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[GCGeX_OUL2Ly;uUS*48<>iI:T,m-2JTQy_hWO\Cq^p7#Xr&lR+ U"PP*f2V$+k(WD]Pxo_B1XZ<\<^+Q^6qg=xY'UewvMfl?z+je39Fb$7yHVxG7PZ-FFNi:E2kcC.rPADcUL\VFm[6 U"Z5[V3xjW(L4w#3\+\)kJIK&NOpj$-44acUc&PH4BF8Fj(KtF U"6aaWN2FpOGebB_/\9H?av.2\eksRVExVH$#IFLf7;Cu;J6pnB_mtG7][ U"dpxENMmI?Vspd?*JOq'p%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?LB9 U"(5.daZUjn27p3W&Yl0o_k>B$_f8Ti;Ihiptdot1Nu*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;Dwn-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#K3GTsqYSv5#5Rd3^6jpX;gjoqva-X: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>Ah7Y&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'XSt?3Q8j,D:h9: U"ugg]6,XvWbXxNg4orqN:PK=60L0g'[9K8d5_%'X[GGt*RbBX\:LyABu])=OT&#. U"p#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_ZMHQl1\=.hn%15f+DSjNt[[Y.Xp3FguFSbseXClwk7C9%; U"nOa2Mp;1O-KxAZ9Qq+rfj,bNJE->:;&)k$gwYQ17B.L?$c5 U"d#L0PA4MrV[gQ+*$GK5Iklfc*T?(GnVj$H&enq60>ddI+c9\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]$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