character_to_print := first printable character -- Start with the 1st printable character in the printer's character set
characters_printed := 0; -- We haven't printed anything yet!
-- Infinite loop to continuously print all characters from the printer's character set,
-- inserting line breaks where required
repeat
{
print character_to_print;
-- Count another character printed;
-- Check if we now need to insert a line break
increment characters_printed;
if characters_printed >= max characters per line then
{
print newline;
characters_printed := 0 -- Now back at the start of a line
}
-- Prepare to print the next character from the character set;
-- If we've just done the last character, start again at the first
increment character_to_print;
if character_to_print > last printable character then
{
character_to_print := first printable character
}
} forever