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

! 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