Re: Hey Dusty!!! Suck on this MF 2000 bytes ROFL 1936 bytes!! Pooh RULEZ!!! - Pooh just go...

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


Quoted text here. Click to load it

We'll see about that...

First, I submit demo 1 that is 1920 bytes when compiled:

print"Dusty Buster. Version 3"
print"Written by Pooh the cat April 25th, 2014"
print""
print"Enter filename: ";
input filename$;
a=varptr(filename$)
bload filename$ a 6
c=a
FOR s = 1 to 6
a=peek(c)
if s = 4 then
GOSUB m:
partialblock=c&
endif
if s < 6 then
b=a
endif
c=c+1
NEXT s
GOSUB m:
totalsize&=c&*512
partialblock=512-partialblock
totalsize&=totalsize&-partialblock
print" "
print"Totalsize ";
print totalsize&;
print" bytes"
end
m:
c&=256*a
c&=c&+b
RETURN  

Now I submit demo 2 that is also 1920 bytes when compiled:

print"Dusty Buster. Version 3"
print"Written by Pooh the cat April 25th, 2014"
print""
print"Enter filename: ";
input filename$;
ax=varptr(filename$)
bload filename$ ax 6
y=ax+3
gosub m:
partialblock=256*temp
y=ax+2
gosub m:
partialblock=partialblock+temp
y=ax+5
gosub m:
blocks&=256&*temp
y=ax+4
gosub m:
blocks&=blocks&+temp
totalsize&=blocks&*512
partialblock=512-partialblock
totalsize&=totalsize&-partialblock
print" "
print"Totalsize ";
print totalsize&;
print" bytes"
end
m:
temp=peek(y)
return
  
Quoted text here. Click to load it

LOL.. Not you. :)
  
Quoted text here. Click to load it

1920 bytes, both demos. *laugh*
  

--  
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!


Site Timeline