%begin
printstring("xxx"); printsymbol(27); printstring("[2p"); printstring("yyy")
printsymbol(27); printstring("[0p"); printstring("xxx"); newline
%endofprogram