Integer Lform(0:255)
	Character*5 Cform(0:255)
	Save Lform,Cform
	Data Lform/8*5,8*4,8*5,5,4,5,5,4*4,
     $             88*1,7*1,5,
     $             8*5,5*5,4,2*5,5*5,4,2*5,4*5,4,5,4,5,
     $             5,7*1,80*1,7*1,5/

	Data Cform /
     $ '<NUL>','<SOH>','<STX>','<ETX>','<EOT>','<ENQ>','<ACK>','<BEL>',
     $ '<BS>','<HT>','<LF>','<VT>','<FF>','<CR>','<SO>','<SI>',
     $ '<DLE>','<DC1>','<DC2>','<DC3>','<DC4>','<NAK>','<SYN>','<ETB>',
     $ '<CAN>','<EM>','<SUB>','<ESC>','<FS>','<GS>','<RS>','<US>',
     $ ' ','!','"','#','$','%','&','''',
     $ '(',')','*','+',',','-','.','/',
     $ '0','1','2','3','4','5','6','7',
     $ '8','9',':',';','<','=','>','?',
     $ '@','A','B','C','D','E','F','G',
     $ 'H','I','J','K','L','M','N','O',
     $ 'P','Q','R','S','T','U','V','W',
     $ 'X','Y','Z','[','\',']','^','_',
     $ '`','a','b','c','d','e','f','g',
     $ 'h','i','j','k','l','m','n','o',
     $ 'p','q','r','s','t','u','v','w',
     $ 'x','y','z','{','|','}','~','<DEL>',
     $ '<x80>','<x81>','<x82>','<x83>','<IND>','<NEL>','<SSA>','<ESA>',
     $ '<HTS>','<HTJ>','<VTS>','<PLD>','<PLU>','<RI>','<SS2>','<SS3>',
     $ '<DCS>','<PU1>','<PU2>','<STS>','<CCH>','<MW>','<SPA>','<EPA>',
     $ '<x98>','<x99>','<x9A>','<CSI>','<ST>','<OSC>','<PM>','<APC>',
     $ '<xA0>','¡','¢','£','¤','¥','¦','§',
     $ '¨','©','ª','«','¬','­','®','¯',
     $ '°','±','²','³','´','µ','¶','·',
     $ '¸','¹','º','»','¼','½','¾','¿',
     $ 'À','Á','Â','Ã','Ä','Å','Æ','Ç',
     $ 'È','É','Ê','Ë','Ì','Í','Î','Ï',
     $ 'Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×',
     $ 'Ø','Ù','Ú','Û','Ü','Ý','Þ','ß',
     $ 'à','á','â','ã','ä','å','æ','ç',
     $ 'è','é','ê','ë','ì','í','î','ï',
     $ 'ð','ñ','ò','ó','ô','õ','ö','÷',
     $ 'ø','ù','ú','û','ü','ý','þ','<xFF>'/