Postit!

 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)
Outer Court
Echo Basic Postings

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