$c+
module test7 { strings}
private
integer x;
begin
x := 6;
write 'This is a test of strings.';
write " You can quote or double quote strings,";
write "and", " you ", 'can ', "put " , "several (", x,")";
write "on a line.  ", "Colons ':' are special.";
write "";
write "To embed single 'quotes', use the other kind.";
write 'Ditto for "double quotes".';
write "You can even quote a quote ( '",'"',"'",")";
write "but it isn't pretty.";
end.
