! this program gives you the number of bytes per blocking factor
! for files

map1 stuffer,s,3,"###"

? tab(-1,0)
? "bytes per record        blocking factor"

for n = 1 to 256
	? "    ";n using stuffer;".......................";(int(512/n) using stuffer)
	if int(n/19) = n/19 then gosub halt
next n
gosub halt
? : ? "the end"

end

halt:
	? tab(23,1); 
	input line "hit return to continue", a$
	? tab(3,1);tab(-1,10);
return