WHILE 1 READ CHR_NAME$[WORK] IF CHR_NAME$[WORK]=="" THEN BREAK READ CHR_YOMI$[WORK],CHR_INFO... WEND