A: Postscript example:				HPLaserjet example:

---------------------------- Example code starts here -------------------------
begin-report 				|	begin-report
 print-direct 'statusdict begin'	|	 encode '<27>' into $esc	
 print-direct '1 setpapertray ' 	|	 let $printstr = $esc || '&l2G'
 print-direct 'end' 			| 	 print-direct $printstr
 do main				|	 do main
end-report				|	end-report
					|
begin-setup				|	begin-setup
 declare printer        		|	 declare printer
 	type = postscript		|		type = hplaserjet
end-setup				|	end-setup
---------------------------- Example code ends here ---------------------------