if(CFlag<>^h)then Identity:=Identity+upcase(CFlag)\r
else delete(Identity,length(Identity),2);\r
gotoxy(1,11);Cn(' '+Identity+' ');\r
if(CFlag<>^h)then Identity:=Identity+upcase(CFlag)\r
else delete(Identity,length(Identity),2);\r
gotoxy(1,11);Cn(' '+Identity+' ');\r