[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]

{
> Run this program, it will create ULONGS.ZIP, which contains the
> ULONGS.OBJ file needed for the LongXXX functions...
> That's too cool!  How'd you do that?  You got a program to do
> that with?

 Yes, it's a little utility that I wrote, named GBUG...

 It can transform a binary file into one of three ASCII files:
  1) a script that is fed to DEBUG.COM (this is the default mode)
  2) a Turbo Pascal source code file (using the /P option)
  3) a GW-BASIC source code file (using the /B option)

 The output file (.SCR, .PAS, or .BAS) can then be posted onto text-
 based mediums, such as BBS conferences.  Receivers can recover the
 binary file without any special decoding utilities.

 Since GBUG doesn't embed any error-detection code, it's best to
 _always_ compress the original binary -- so that transportation
 errors can be detected during the file decompression stage.

 Here's GBUG15B.LZH, which contains GBUG version 1.5b ...

(**********************************************************************)
}
PROGRAM A; VAR G:File; CONST V:ARRAY [ 1..1326 ] OF BYTE =(
33,109,45,108,104,53,45,10,5,0,0,226,5,0,0,100,18,82,26,32,1,8,71,66,
85,71,46,67,79,77,20,118,77,0,0,4,211,107,163,22,54,148,47,236,176,138,
139,32,197,189,172,76,77,133,38,141,28,57,194,120,25,2,68,75,109,198,
186,228,53,214,109,193,10,2,28,77,52,95,2,195,192,50,15,129,44,51,180,
218,203,178,10,169,45,234,6,28,90,117,182,234,84,128,83,173,215,96,217,
187,247,36,49,174,237,157,117,70,98,230,147,253,251,111,42,69,192,48,
155,127,169,135,192,222,194,198,211,108,80,245,3,16,102,204,61,183,213,
54,96,166,204,193,155,51,172,78,1,134,123,200,39,157,207,9,217,33,140,
113,225,131,38,253,173,179,124,144,190,120,238,36,80,198,146,113,231,
157,8,61,32,202,143,28,93,48,188,191,11,216,81,96,7,43,8,128,61,124,144,
189,129,6,245,216,78,114,229,173,229,190,20,28,76,113,99,145,33,237,249,
142,26,154,220,157,226,53,228,183,121,119,133,27,175,215,201,155,48,47,
109,174,27,113,240,116,213,70,196,148,70,167,214,215,14,73,212,156,96,
59,126,31,174,13,211,171,201,81,251,151,95,108,113,60,135,1,216,113,133,
140,27,247,135,133,230,4,88,120,17,66,116,64,254,114,131,37,52,48,67,
148,25,65,138,240,34,146,124,3,159,134,55,100,80,207,189,119,20,140,24,
143,185,167,246,112,163,29,125,133,141,218,230,227,97,198,236,144,244,
50,93,192,232,197,36,184,250,249,228,72,4,100,147,18,20,72,176,57,225,
199,76,200,41,153,133,245,199,43,144,225,173,231,24,208,202,200,200,205,
196,39,137,97,130,225,189,224,99,18,92,111,114,234,216,217,179,38,119,
112,28,220,222,55,146,24,47,112,32,135,165,139,202,251,49,110,186,97,
66,236,148,202,222,231,233,111,151,252,38,196,74,52,39,231,69,56,34,78,
84,199,16,120,215,46,66,43,102,182,237,220,145,64,145,136,248,247,189,
209,61,58,36,49,10,25,209,5,255,252,141,241,60,64,126,25,130,238,249,
59,147,255,39,216,183,216,54,2,232,50,84,171,87,89,79,177,189,189,234,
212,245,129,168,85,24,202,115,50,247,163,165,175,224,19,207,82,21,73,
108,210,176,155,49,110,232,53,213,131,150,174,185,104,250,22,185,107,
198,253,214,121,57,110,155,172,170,75,110,63,10,104,94,186,206,99,188,
26,125,166,38,242,195,118,57,201,111,6,199,118,63,108,158,132,35,52,54,
227,151,235,75,217,211,210,158,118,122,183,84,201,145,218,229,208,71,
49,215,242,194,114,57,58,254,95,136,205,142,30,188,73,45,25,154,218,218,
8,210,172,51,92,46,242,209,244,80,153,253,181,197,89,169,167,173,90,57,
41,46,27,153,181,181,131,164,35,42,196,201,42,101,171,81,76,204,98,81,
60,205,6,67,76,72,197,107,9,11,146,51,51,106,9,10,180,35,218,104,22,56,
157,99,240,99,84,72,234,117,127,24,93,47,3,132,106,107,183,35,232,168,
195,177,187,27,41,226,102,136,154,116,42,36,88,233,13,150,103,151,165,
128,179,42,36,33,57,198,117,157,168,151,76,86,233,14,22,181,137,99,33,
49,119,99,6,225,81,122,67,5,106,166,67,21,158,252,107,242,168,9,194,70,
85,180,203,168,145,169,213,176,102,60,245,102,165,104,173,165,237,68,
134,27,145,212,72,81,176,92,132,211,75,64,60,186,116,49,93,120,215,33,
114,225,36,57,60,193,226,6,185,120,215,87,80,69,71,186,103,188,185,8,
238,167,18,53,64,60,205,99,188,213,127,12,254,117,19,11,1,101,3,41,83,
29,248,218,59,7,113,85,159,12,75,216,217,12,202,181,228,167,190,254,126,
200,218,251,10,217,236,217,165,58,175,133,235,250,118,155,51,61,15,82,
117,94,238,126,209,69,167,179,180,243,128,146,163,52,44,135,19,104,161,
244,38,156,208,122,84,140,89,140,130,6,104,111,199,47,102,211,244,6,170,
146,137,5,159,16,69,240,198,102,213,114,196,35,155,156,73,162,153,228,
248,235,56,61,165,227,179,249,6,156,241,59,204,158,170,78,192,218,31,
29,85,5,30,106,242,92,166,83,133,75,95,193,215,172,225,107,163,236,50,
255,81,118,184,48,17,180,169,65,23,89,205,16,7,22,145,139,33,214,175,
26,15,205,237,161,12,223,192,30,209,69,237,209,2,210,139,226,8,31,1,69,
239,145,7,204,83,11,33,131,88,81,117,104,131,231,40,28,234,64,48,42,169,
32,146,172,121,232,131,226,41,65,218,120,215,97,110,21,169,221,228,222,
120,229,40,236,82,119,151,15,77,85,20,218,72,130,42,97,84,113,176,21,
229,22,249,16,62,41,82,83,145,151,76,65,235,21,232,178,68,68,181,233,
220,204,143,218,200,102,194,84,150,216,105,229,36,55,90,36,8,38,33,44,
242,134,85,19,18,196,163,190,13,34,191,236,201,126,111,132,187,113,131,
213,83,106,69,116,42,146,172,30,34,120,144,204,107,188,10,137,153,121,
190,136,37,20,231,232,76,97,214,171,53,89,49,55,182,70,115,102,167,143,
207,22,0,210,147,44,78,132,61,55,26,197,154,92,13,29,234,116,79,48,184,
104,131,136,165,57,75,229,82,93,218,32,226,169,177,33,196,178,35,242,
80,35,70,15,190,138,238,69,21,29,242,210,68,22,234,116,230,95,8,44,212,
151,222,68,29,53,54,51,196,142,142,216,96,154,85,131,52,152,146,134,19,
36,224,169,96,200,105,228,79,238,75,158,12,133,37,242,70,9,106,104,209,
212,227,208,176,35,127,220,164,187,81,131,252,82,15,97,79,152,244,175,
27,105,237,183,0,217,97,54,241,119,239,226,70,80,162,85,198,248,26,63,
147,111,233,253,215,110,3,96,182,209,127,238,118,30,204,255,112,192,0
); BEGIN Assign(G,'GBUG15B.LZH'); Rewrite(G,SizeOf(V));
 BlockWrite(G,V,1); Close(G); END {Gbug1.5b}.

[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]