'=========================================================================== ' Subject: GENERATING SMALLER EXECUTABLES Date: 01-11-98 (20:29) ' Author: Antoni Gual Code: QB, PDS ' Origin: agual@eic.ictnet.se Packet: FAQS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SMALLEXE.ZIP",4^6:Z&=5221:?STRING$(50,177); U"%up()%9%%%#-%VOS_:'e/v7i*%%%C4%%%1%%%%xr%fqqj&'jSgRfx.%;c U"/-TH9gc4wgTs6Ii$[Jm45/rX?Tla^rVMqYoZ(6>PK#j\b#L^u-\p8$h1]Kf&nUR U"X8uSl^rQJhNBh[]1B.7^K_YZY7*AawRX$:R(]YhY*[h_+_.thI/nE)k>TXrb&j7 U":[xD^S8IY=X1[TO]^&HfkhezHoXE4/6.HmD3I0b4Ppk U"n0QD[C]hm4s;BwYk(z+yxDl#2G%?G.3+f8R>D0ANLjGMWTjFXa??S]AzI\-PpGF U"Y&[_UA*]GrN>8flY7kP=K]8Znb2c59U)a)lNQV8,T4:oQ(fsUSOKM2i.M4mc*iY U"gPO.;'3aKIkw8EdHoevNa1Ez:;q*ea'EOw]VOhHh=,FsVQMA[07l+V[h?ZrO87$1xFA.I U"&K5Eg9(WJfiSjQ./+RN+YD.;U(g'=6XKMctIpaKql0alm4)N9H7_6gyd[GTf]8X U"n^GHBKz)RJ0A?(sXJyHB$/eVT'nI)\u/6Go3ooo5s_b(Wd/<-d^WN>I&Q4kr=]q U"6'*Xac_EVLXX1qchYDhVl;&'<=aG0PUe1>_Q>>4qKq1#egf+xAS#k6Shd'sDD*4 U"%o+5do_(Qp7W(J#+\)8DJ2Ka=f:'&APz<^d2+.7ARl9v?asDfj/zaQ/dlQ57(rr U"$[\RT)nH<2onzG_m&O>/'.l1[Cs(]sQl^$GoGfb#9zg3Y/fb[&\$RxBD#XJD5pc U"C8uGFP11'd:$#yO86uB$'[2/8$1v<6kYLU5S.#vKQSp U"qw-IL^m*c+cGHP=hdSfXcG4l=LnYd)XnDtCsdN.jww9MuzsS62=eQA)^ZIQj;Oh U"=I$T/Tw))f:QIj&4IAhL0;a^]VnjG3pV)7y.PZWjoo1w1F2DjP;J=*OI'i5>yXP2)- U"'4$XkcC_Y;tQrQTP+&t-+kE]7T_gbLHrNT7P0?WcWZshD$fO>*3\/r'4aH2Nlj6 U"e8p;j(h/Q-toYf2.%%CC%%%1%%%%xr%fqqj U"&'jSyJ'yd(;APfq-s$qjbNLn^9NYLSPqpExe6ze&NBG)hgQrT U"G;e3vgqf]M6#ZN^jb:+X[LXiddrltk?.;qyt03m;zVG,ccsW&C;19BId0s)HyPa U"QKhX>0Yzc?vmjuCkrKmIq2M/c?fy?Gbm2>b[8iB#5mCo%o\6aSA9mSpp(q*LW_EjKP7G[\Mx^/k>QxHqS+W^xlM?PzIXELsd:i# U"VZc/etW:hRmVG9%2wQ)*<%Jua3+^lTt+$4k8$tC^Hea*/TXxE/KoE.HVV[1a8H/ U",Hfu'apgiMKMp'\0+T_2aBh%cXO[q^[&#E U"Ry-[[y[=INXFi9Gpf75,qLlBP&6L%w1OUG3^srgHa>0uqjof2*id[JvPbcQORhfg$;x*PUrCX) U"K/(+3hU3C[NE#Du\XVu8^01mM>]tYb')SzgWwK>1_Yhw\hYETZkK'$Fdzj*T[r* U"6Ys*W$,=].t3^tj&?Cf^6V7S9u\&YH^C9hd%(hWZX5d$0C643NW0v.CYZ1j1-o; U"__R'y,M/yK8*qGCvrXb(C8QT*cYM:c=D?1$DfHl&.^2[3j_''%Qb)awhg(rbLIh U"=d%'/q4=#Vzyh[OnyU U"0d,7ot0vF:KM83GX=;-OW/.ce)Xa7A+hf3j[pU3oHS4vjF.o0fAz'[;R<*33SGZ U"JGpO/oChg:z&JuLgAM]_^5xNGYWx6$I:I]36Jz;e(t(1UbZJtY_,?EOu&68.J)b U"9*ucO-up5*O1_&;P=Dc(hH(;*O;Q9W[B\f*ze;c8ap^r5h&bQRDrr5n^MmUm74gUO'RfhY] U"^'f3-mMH14[QnT/F_X&xwsYB>UL(wJ+7==\:+/nz(8AZ&se<#Ti2NJ.HbU>>Yfk U"LHK.*TsWKYC(DDlv[%B)te'2fh>EwMEKGAPF)d#SO4>r:6,mTpTJ\WCU5oaK]cC U"$U6u3$[1GnRKRIpWo'_M3sR/:>Ph/IGp(1gXo=^*_Fu1dNof) U"Ke;7)'&YIIh$&rL_Sn[K^#8ke]ib(aqt_3a.'KbRMxS\[QW U"S_9v?IZ+kAmMo3E[>PC9E.n1y'3Ys5[_2H/82dd:HN:\gWe%Q2A%PGgRyI&D^4?&JFOr6hO'i,[ U")JlPn3^^GAuk.S?LVZy(S$>'eLr;<69gdU3P\auXIvrnb2z473uJo:RDI&\R[sa U"?xYNU4\u^J_]VKCJZDw.m,)MD/[1Q5O6TR=Ymi5IHm,-'BBux&BM/Wz3sk>gD/A U"57X8T/DD']#[g>B*wqk%4f/%)T[N>QJqEbK?ziY-2I(L8tsFY?LmdT%Tt[J-;Gg U">M/2;RIzHH8T,Q]?cb1W\^a=aCmcTgm.?2U0)p:/+[O427J[=?vnLn#1*5zzitr U"b6*YdDOq7l-Q_-l(>=>dJ6O/\I-]B(sWT4cs_cbE?d;u.r$LeW_h,+FnOlr/pRW U"7G/w2Ur77S$&2GRaddhv^:v*QG? U"P$jxls&u+Q00FKSCiHxAD'Jg=L8Gg&d4wPH35>m?#vJUE-uMSUF U"CVisJH<.XI,Bld)f(,O;[6a1%+73*#KX[K2SN9aBeoVpD-X=;JJ$7FDDog>3alN U"8VHfmL8KMA0LJ*+uW4kB)wsHYlfJ>y;5iCxhH9.)ZqJ2]#5JDiNX(/nb'X[YJ/Z?j.;i#:_3/9_W4_: U"0#JMtZGeZT'h*1;8VNlJdVKCOmc-ha1Jm/p-8cK8ezGt7UH(DWg=YhoqW/vc;x& U"w^sF'n)=EI4;,;akSWJ&s;&cmxF,g;TdnaMoLdb/;t'5lG31FHX\GHT^M9\)c4M U"I$c#]qXp9D.rhM=Hl4%rhH>eF?ACM=9GJs+gG/E^]I4TOd/[:)ZT;T[J_a8_6xR U"seP\w1Uujn>NqgdGx1Q$q]A^g\oIWNm+P)(9kNo?E[jtm(cL?bPLs3fuH1P2?QT U"dnXDG+1Kv&vw(xvaKh50:3qjS5^n404S:1)2).$_T$fbDtDSno#,>0U1; U"+oBjaLg)Ha1n#Ip[Tif#sac+i?l6]AK>O,*3b^Q%R:u[&M$Jae+k=1(u-b(Zmnj U"EOag,x#$RhkoL*[=^8U&^U)g$ruZYllL_Fw)AUDDwFdGG0%0LPSeCw%+$(?7Ro0 U"%Zx,6+#-[Q.hi.>_KBB+rRm0a0HDN'=mc03C.WB4gxV%)/[skN&CZ=2T*X=^hpD U"$'u1=as_i/9dh2&70GG>Di(KmgQ3qQ;=xcpBFMhbkzG/Ic4fjV]GI-Ss>8dN.,M U"e$RTmwah'S?/q_gR)P=Let$S*N6;mh0gJ7$bTG7Q[7;*Ke*G+3ByDeWKh1[axmR U"06oVSN0_(bybh-P7+Y2uhgX[99F1vozZ4SLNlqD.x_CY?> U"oh>_1eNbpGWiQ[#HxuDbXd2l>9sB7zW(W<;eOMSAUrbZ:AJwQtpIMhx&F+E5f[+PUkJRN:dpH==A)4eO:Pxr U"g7TebqtY,gzPMv6:$43%3(/]eC$bG$nD9XZ?Z1xf/6L'/BX%$4G\rZG9aw_]>f1 U"i9e/*Qu.-AA.6s%-5E?aj/*9aqGhUn)GIiAMrdn(gkQ,l*m/s&cX>o^,mihdnhj U")mS[Y:;L5D.1o8w4Fe#KFTx'.i[oM;m&T:ns9Zh*Ypwl_T*o,7;2K2peCZ=fjBf U"ea0TK4XF1jJ%vNYK'L)AxPx/Mbqjy(zP\k%=y;Qme>+ijMeiQ]oD$\, U"6m#b,HX#1#kt33Igge$4>SH0KhjH(ep\XYt2IP4MUT*q[+n.pF;Tc%'v<[IZ\P% U"%%Jk5i:zPra;Yq)YLQ5',C$IWyO)*]96_ U"Bbl+##g,R8XL5QweYrr&.A(CDq4R]ip?w4_aFD6&b U"JDtJ\HjkJ%[].x2[0?KrqKp0W\$89NicYil, U"Oe#u9SY&1u/.+9SJI'3DeIyf:1'h:;9sG$\R&_lcJYKgBBZ^0s+6jqf__5iPr#J U"P63kF$/#m*7U4Q3#oT^hFi,&5t2 U"Dzn(v:[ZiZ>j/TxuwpNbDN31uExT[^L]KV3Yy,F*h$lMRd_3F;-Z8%u%p&'9%%9 U"%%%%-%V_O_:'Dev7i%*%%C%4%%1%%%%%%%%%&%%E%%%%%%%%%xrf#qqj'%jSgf% U"xup&%'9%9%%%%-L%)N_U:8.o-Yf2%(%CC%%%1%%%%%%%%%&%E[%%%=%*%%x%rfq U"q(j'jS(y'yu%p*+%%%%%'#%'%C[%%%T%8%%%%% END SUB CLOSE:IF S=57AND 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