to dump :x :l
if :l = 0 [make "l 1]
repeat (:l + 7) / 8 [dumpline :x make "x :x + 8]
end


to dumpline :x
prf "|%w - | :x
repeat 8 [prf "|%w | readf :x make "x :x + 1]
prs " wait 3
end

