to boxword
if :col = :limitc [move]
if :limitr = 0 [stop]
type first :words
make "words word butfirst :words  first :words 
make "col :col + 1
boxword
end

to move
make "row 1
make "limitr :limitr - 1
make "col :limitc - :sq
setcursor :row :col
end

to setcursor :row :col
repeat :row [pr "]
repeat :col [type char 32]
end

to start :row :col :sq
ct
make "words "supercalifragilisticexpialidocious
make "limitc :sq + :col
make "limitr :sq
setcursor :row :col
boxword
end

Make "limitc 40
Make "limitr 0
Make "words "idocioussupercalifragilisticexpial
