Function setconP
	creset=chr(27)+chr(69)
	cportret=chr(27)+chr(38)+chr(108)+chr(48)+chr(79) && chr(48)->chr(49) PORTRAIT
*	cportret=chr(27)+chr(38)+chr(108)+chr(49)+chr(79) && chr(48)->chr(49) pt. lanscape
    csetcarPC8=chr(27)+chr(40)+chr(49)+chr(48)+chr(85)
*   ccod_stg=chr(27)+chr(38)+chr(97)+chr(48)+chr(53)+chr(76)
*    ccondens=chr(27)+chr(40)+chr(115)+chr(49)+chr(54)+chr(72)
return creset+cportret+csetcarPC8 && +ccondens && +ccod_stg
*RETURN CHR(15)+chr(27)+'0'