//
proc main;
	print "'ABCD XYZ'";
	print 'ABCD''XYZ';
	print 'ABCD\''XYZ';
	print 'A\tA';
	putline('A
B','XX');
	print 'A\
B';
	pri\
nt 'X';

	print 'abc\ndef\rghi\ajkl\bmno\fpqr\vstu';
	print 'XYZ\42ABC\x40DE';

	for (i=0;i<2;i++) do
print i;
		x=i;
	end do;
	print 0d10 0.d10;
	return $ERROR;
end proc;
