Psst.. Hey Pooh.. 1429 bytes. :)

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Threaded View
First, 1429 bytes:

rem Since I couldn't make this smaller as is
rem  I decided to see what could be done  
rem about the exe file itself.  
rem Compile as a .com, put this header in front of it to make it an .EXE  
again; but smaller :)
rem header included:
rem DATA &HEX4D,&HEX5A,&HEX95,&HEX1,&HEX3,&HEX0,&HEX0,&HEX0,&HEX2,&HEX0
rem DATA &HEX0,&HEX0,&HEXFF,&HEXFF,&HEXF0,&HEXFF,&HEXFE,&HEXFF,&HEX0,&HEX0
rem DATA &HEX0,&HEX1,&HEXF0,&HEXFF,&HEX1C,&HEX0,&HEX0,&HEX0,&HEX0,&HEX0
rem DATA &HEX0,&HEX0

rem This results in a much smaller .exe. compile asicc dustn.asi e b/com
rem copy/b mz1.exe+dustn.com dustn.exe (walla!) 1429 bytes.

print"Dusty Buster. Version 3"
print"Written by Pooh the cat April 25th, 2014"
print""
print"Enter filename: ";
input filename$;
bload filename$ 0 6
y=2
gosub humptydumpty:
partialblock=512-c&
gosub humptydumpty:
c&=c&*512
c&=c&-partialblock
print""
print"Totalsize ";
print c&;
print" bytes"
end

math_run:  
b=a
gosub next_value:
c&=256*a
c&=c&+b
return

next_value:
a=peek(y)
y=y+1
return

humptydumpty:
gosub next_value:
gosub math_run:
return


And now, 1430 bytes:

rem Since I couldn't make this smaller as is
rem  I decided to see what could be done  
rem about the exe file itself.  
rem Compile as a .com, put this header in front of it to make it an .EXE  
again; but smaller :)
rem header included:
rem DATA &HEX4D,&HEX5A,&HEX96,&HEX1,&HEX3,&HEX0,&HEX0,&HEX0,&HEX2,&HEX0
rem DATA &HEX0,&HEX0,&HEXFF,&HEXFF,&HEXF0,&HEXFF,&HEXFE,&HEXFF,&HEX0,&HEX0
rem DATA &HEX0,&HEX1,&HEXF0,&HEXFF,&HEX1C,&HEX0,&HEX0,&HEX0,&HEX0,&HEX0
rem DATA &HEX0,&HEX0

rem This results in a much smaller .exe. compile asicc dustn.asi e b/com
rem copy/b mz1.exe+dustn.com dustn.exe (walla!) 1430 bytes
  
print"Dusty Buster. Version 3"
print"Written by Pooh the cat April 25th, 2014"
print""
print"Enter filename: ";
input filename$;
bload filename$ 0 6
y=2
gosub next_value:
gosub math_run:
partialblock=512-c&
gosub next_value:
gosub math_run:
c&=c&*512
c&=c&-partialblock
print" "
print"Totalsize ";
print c&;
print" bytes"
end
math_run:  
b=a
gosub next_value:
c&=256*a
c&=c&+b
return
next_value:
a=peek(y)
y=y+1
return



--  
Take it easy... Don't let the sound of your own wheels drive you crazy.  
Lighten up while you still can. Don't even try to understand.  
Just find a place to make your stand and take it easy!


Re: Psst.. Hey Pooh.. 1429 bytes. :)

On Wed, 14 May 2014 22:56:13 +0000, Dustin wrote:

Quoted text here. Click to load it

And all this without 'knowing' your 'enemy'. And the slimy Limey  
considered it such an essential.

LOL.



--  
None are so hopelessly enslaved, as those who falsely believe they  
are free. The truth has been kept from the depth of their minds by  
masters who rule them with lies.  
-Johann von Goethe  

Site Timeline