BBS: Inland Empire Archive Date: 07-11-92 (18:46) Number: 98 From: RICH GELDREICH Refer#: NONE To: ALL Recvd: NO Subj: Postit! Conf: (2) Quik_Bas
Anybody want something better than QB2BIN2? This program takes a binary input file, like a .ZIP file, and converts it to a series of smaller text files that can be posted easily. The output program is capatible with DOS 5's QBASIC, QB 4.5, or PDS7.1. Some programs get 4 postable bytes for every two. Some even get 3 postable bytes for every two. Mine gets 2.666 bytes for every two! And the loader is only _9_ lines long(counting the title line)!! Just capture this program, run it, and PKUNZIP the POSTIT.ZIP file it generates.. 'PostIt! by Rich Geldreich 1992 DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT OPEN "B",1,"postit.zip":B$=" ":I=1 FOR A=1 TO 1742:IF L=0 THEN GOSUB G: L=6 W=T\P(6-L) DO WHILE L<8: GOSUB G: W=W OR T*P(L):L=L+6: LOOP L=L-8:B$=CHR$(W AND 255):PUT #1,,B$:NEXT:END G:IF I>LEN(W$) THEN READ W$: I=1 T=ASC(MID$(W$,I))-35:I=I+1:RETURN DATA"3PW#'K####K$##VFNF4<K=(\;<###3:#C%####3`W77H'8Q+736XC#$+T+77D0ZC" DATA"9E=Q02(;C'637TY>\`2,7B^?L>=L>+&<+$L3V.+H==*.=$\4..>,N?.6UV;IV?-V)M" DATA"S658W993-YW]YS-*SZW`0IR&]76]3$\3BN>@><*6a.FZQWHQ;_RK[(QO0/ERCAM&JB" DATA"31XZY)]ZS8QR`OU0OP@QC_PXHQS4[0+LDT]_5ZU[_YOR8QCOOYP/2.R^>44Y=3#Q)2" DATA"72>Vb^7]53)7Za9]#`91(.QR%a`/G2A<#R&%LQ66X^\9ZTQIK:GR@.>V6]L]A>6>=&" DATA"V43O+@WD3>JOCCP-_:N@JIXbU)IT]S0OJ$P^]%:3KR)'X>=R&V@REM+ATa1,:@DW7_" DATA"RH.<J..%bOZM-\,O-ML^HHQWD?`?%MIPOT,*^RM5P?NV:YJN1$L5N6VNIA=RB^@+J(" DATA"OZ9[#W(]6JaIWAT<*G8@1<RD]5X=5D-+9N2Jb_=Z@^<5ATW@=W5P?W6\;Ob3:2*ZX\" DATA",B(WNDMUF&_:OH$PA<'I@`@QM`0@MU2028?QQQJ(0X0UOS`BODP1M^,(GG0PGXPJSR" DATA"*X=Y9IYXQ,\(3KVFT/bZU4K*:Q5BR)S(CT,/^+`\#*K$D;39YZWbLOa0,.E]APH\OF" DATA"Q8Sa3RZ3Q.FBS0.+,=3L=3Aa-68]/LBZ//N,bWC(I]M%JU-[D$;T]E\8RHXJNTQM:<" DATA"\=&T=`P>%.*1U1>PNbE@/&M-W13./F`,=40=5@-8K&@.XUUNIJ&HL$8M((G)PM1@K7" DATA"0L2XLCWLXPPU?-D@653EUCI%R61XM-GE;4(=D#]&O&A=Q&^391S`@47ZQ<^6^.[`3#" DATA":2(`X7<S:3R^,+></O6P4U_`?9A]WJ;@(\6Fa7LWXXW2/EAb73AF6B2HbQ0.@YYGaH" DATA",+`EYNKZ1PK;H-L2<%58KN)A&XMSb9G6D2_T9IV39YBW_A*Ma`_W(22,T]VJ%XE]'M" DATA"F/+1:SBXQ4&U4)FQa/`L6\<HZ-X&Q%<`X8X<<`/aD+4.&@-CEM(J4b)RK/IP_).TUZ" DATA"A@aJ%KY)B]5F[WM`&)S]X^N4NL_`b2Fb&\E#a#;F\[OU:GQ7GC?(C*$Q,<UA-<5W^V" DATA"3[.DPIJQK\MUM6M4A1IZG),[XK1EZ7).F)-6=TUK=AO//2*ZU+K1E\O).F),V]R0;I" DATA"*'?a?1K96SYR>;?0JEaINEUO,&FXOW/I7.*/^$L'$H;UMB%O>0GIU<<>.JS+Z\3^07" DATA"'E99Y%0&Q?17G-85EU<5F%*89KHFN\@$7<FRFTBZ:$6R:F^&_.'2L;6FZ5;'aAKKD8" DATA"@,Z&UXOC:M1YU&O#T\IR(*(G&>-]ES%8L+;GE_,J=P>%0%O=,NZD4;O]P+9@K0EPNa" DATA",Q\5WDX>Z/\]&A00D<1P$\>PORSM+GI=_XG<.EAQA5]\9S%Y1:+-%YFGF)L1S0`A;>" DATA"]Y7J3,Y_`7IALXO;0&\FC:>V`XU?J%$\?9[K:-:K>D,]9b49J%HG`;aOE4NVGYV;31" DATA"';=@/;]C_V-4,=W)4VM6<-GR$;bAC]-2]6A8VFMFKB>?/'R=2L-:9MYIPGLL[QC^=`" DATA"84=5C58_>AE6@_B%ZZ:('\^78(VREBNFIX/@HYC=b,U8XB'Sa>,15M#+=UR&M6,%J5" DATA":V='b=0)B=0.<DY._ONFPQ,5a4_+Z@I7BG'I`>5IEa9\-X$Tb8VN&V8GDHM`#2W&(H" DATA"00L'D?JGO/,[88LXX;0bGQ%=JEa08NM7@M+AH+9VY:94`E:3(_aK(<L@3UE<J(@HC#" DATA")XEL:IB,EMKASY;`DR$H^HS3_I?>K94@Z_3_@0'R37#XRGS[H?P0..E*[;W4WLK^5N" DATA"O,a(4=?R1^9ILSb9&:MF(+_3#;]LE'4AJ+Y)=9WN6U%;8OO;MKKA?BGE0+<TH$99_N" DATA"6SI0F+X\_@S=EV^TO)WKA3L#ITS^M<44XXaS6%LI73A8S&(Q]4-FKFF9$$JFWZ/X6-" DATA"'N137#*U6KN#(^26([92V8$'3A)P%;GX;+8SSX8G;6*%UD3<6^%<=9WSTGS%&NN[_$" DATA"4M+`-/ba_7=7,OA$.KW``3A&+(36JE+24L`<DG#V_-1$%F^N;T_M+a%ZF.2.Q[F3VT" DATA"?b)*E:DL5,<EK0-U[A,VCJLNHY?)E_V<9&Z#1L)2:aA6&'27'=KY%UTA8ET/[85GES" DATA"'?9?'BY+??8#.Ta<+Y*(2=[#?A-EP(2YC&C1/*$+&7.(C#.#C%####)##/2Q1)HDM8" DATA"GFH$###@0###-#########3###%#########3`W77H'8Q+736$X5(;######$#3##C" DATA"###C)######" Ha Ha!!! Beat that. 6 bits are used for each text character sent out. (I hope the fidonet likes the characters I used!! I'm crossing my fingers!!) Rich Geldreich (P.S. I'll give 5 microdollars to anybody that can decifer the 8-line loader...) --- RBBSMAIL 17.2A * Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees NJ (RBBS-PC 1:266/29)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET