?? RIGHT := 110 ??
?? NEWTITLE := 'MODULE nfm$$block_text' ??
MODULE nfm$$block_text;

{  PURPOSE:    To generate a list of strings to represent the block text of
{              a string provided to this procedure.
{
{  DESCRIPTION: This routine uses the characters in a string to access the
{              boolean values of a large predefined record. Using these boolean
{              values, a list of strings is created to emulate the block text
{              found on the banner page of a CDCNET banner.
{
{  INPUT PARAMETERS: PARAMETER_LIST, created and initialized by the SCL function call.
{
{  OUTPUT PARAMETERS: WORK_AREA, the memory used by this procedure to create the SCL
{                       list of strings.
{                     RESULT, a pointer to the actual SCL type returned.
{                     STATUS, the status from clp$evaluate_parameters.
{
{  ALGORITHM:
{              Evaluate the parameters passed on the SCL function call.
{              For row = 1 to max row
{               For each character in the string passed in
{                 For column = 1 to max column
{                   Set the appropriate character value for the character position
{                     in the list of strings.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clt$data_value
*copyc clt$parameter_list
*copyc clt$pdt_header
*copyc clt$work_area
*copyc ost$status
?? POP ??
*copyc clp$evaluate_parameters
*copyc clp$make_list_value
*copyc clp$make_string_value
?? OLDTITLE ??
?? NEWTITLE := 'Global Declarations Declared by This Module', EJECT ??

CONST
    max_row = 10,
    max_column = 10,
    o = FALSE,
    space_between_chars = 3,
    x = TRUE;

CONST
    max_built_str_size = ( (max_row + space_between_chars) * {max_input_str} 256);

  TYPE
    block_char = packed array [1..max_row] of packed array [1..max_column] of boolean;

  VAR
    block_char_array: [READ] array [char] of block_char := [
      REP 33 OF
        { CHR (32)  ' '
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (33)  '!'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (34)  '"'
        [ [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, x, o, x, x, x, o ],
          [ o, o, o ,x, x, o, o, x, x, o ],
          [ o, o, o ,x, x, o, o, x, x, o ],
          [ o, o, o ,x, o, o, o, x, o, o ],
          [ o, o, x ,o, o, o, x, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (35)  '#'
        [ [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ]],
        { CHR (36)  '$'
        [ [ o, o, x ,x, x, x, x, x, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, o, o ],
          [ o, o, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, x ,x, x, x, x, x, o, o ]],
        { CHR (37)  '%'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, x, x ],
          [ o, x, o ,o, x, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, x, o, o, x ],
          [ x, x, o ,o, o, o, o, x, x, o ]],
        { CHR (38)  '&'
        [ [ o, o, o ,o, x, o, o, o, o, o ],
          [ o, o, o ,x, o, x, o, o, o, o ],
          [ o, o, o ,x, o, x, o, o, o, o ],
          [ o, o, o ,o, x, o, o, o, o, o ],
          [ o, o, o ,o, x, o, o, o, o, o ],
          [ o, o, o ,x, o, x, o, o, o, o ],
          [ o, o, x ,o, o, o, x, o, x, o ],
          [ o, x, o ,o, o, o, o, x, o, o ],
          [ o, x, o ,o, o, o, x, o, x, o ],
          [ o, o, x ,x, x, x, o, o, o, x ]],
        { CHR (39)  '''
        [ [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, x, o ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, o, o, x, o, o ],
          [ o, o, o ,o, o, o, x, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (40)  '('
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (41)  ')'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (42)  '*'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, x, o ,o, x, x, o, o, x, o ],
          [ o, o, x ,o, x, x, o, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,o, x, x, o, x, o, o ],
          [ o, x, o ,o, x, x, o, o, x, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (43)  '+'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (44)  ','
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,x, x, x, o, o, o, o ],
          [ o, o, x ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, o, x, o, o, o, o ],
          [ o, o, o ,o, x, o, o, o, o, o ]],
        { CHR (45)  '-'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (46)  '.'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (47)  '/'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, x, x ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ]],
        { CHR (48)  'o'
        [ [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, x, x, x, x, o, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, x, x, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ]],
        { CHR (49)  '1'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, x ,x, x, x, o, o, o, o ],
          [ o, o, x ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (50)  '2'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, x, x ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (51)  '3'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, x, o, o, o ],
          [ o, o, o ,o, o, o, x, x, x, o ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (52)  '4'
        [ [ o, o, o ,o, o, x, x, x, o, o ],
          [ o, o, o ,o, x, x, x, x, o, o ],
          [ o, o, o ,x, x, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,o, o, o, x, x, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ]],
        { CHR (53)  '5'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (54)  '6'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (55)  '7'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ]],
        { CHR (56)  '8'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (57)  '9'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (58)  ':'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, x, x, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, x, x, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (59)  ';'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,x, x, x, o, o, o, o ],
          [ o, o, x ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,x, x, x, o, o, o, o ],
          [ o, o, x ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, o, x, o, o, o, o ],
          [ o, o, o ,o, x, o, o, o, o, o ]],
        { CHR (60)  '<'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ]],
        { CHR (61)  '='
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (62)  '>'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ]],
        { CHR (63)  '?'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (64)  '@'
        [ [ o, o, o ,x, x, x, o, o, o, o ],
          [ o, o, x ,x, x, x, x, o, o, o ],
          [ o, x, o ,o, o, o, o, x, o, o ],
          [ o, o, o ,o, o, o, o, x, o, o ],
          [ o, o, o ,x, x, o, o, x, x, o ],
          [ o, o, x ,o, o, x, o, x, x, o ],
          [ o, x, x ,o, o, x, o, x, x, o ],
          [ o, x, x ,o, o, x, o, x, x, o ],
          [ o, o, x ,o, o, x, o, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ]],
        { CHR (65)  'A'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (66)  'B'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (67)  'C'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (68)  'D'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (69)  'E'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (70)  'F'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ]],
        { CHR (71)  'G'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, x, x, x, x, x ],
          [ x, x, o ,o, o, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, x ]],
        { CHR (72)  'H'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (73)  'I'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (74)  'J'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ o, x, x ,x, x, o, o, o, o, o ]],
        { CHR (75)  'K'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, o, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, o, x, x, o, o, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (76)  'L'
        [ [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (77)  'M'
        [ [ x, x, x ,o, o, o, o, x, x, x ],
          [ x, x, x ,x, o, o, x, x, x, x ],
          [ x, x, o ,x, x, x, x, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (78)  'N'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,o, o, o, o, o, x, x ],
          [ x, x, o ,x, o, o, o, o, x, x ],
          [ x, x, o ,x, x, o, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, o, x, x, o, x, x ],
          [ x, x, o ,o, o, o, x, o, x, x ],
          [ x, x, o ,o, o, o, o, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (79)  'O'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (80)  'P'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ]],
        { CHR (81)  'Q'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, x, x, x, o, x, x ],
          [ x, x, o ,o, o, o, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, o, x, x, x ]],
        { CHR (82)  'R'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, x, x, o, o, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (83)  'S'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (84)  'T'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (85)  'U'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (86)  'V'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (87)  'W'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,x, x, x, x, o, x, x ],
          [ o, x, x ,x, o, o, x, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ]],
        { CHR (88)  'X'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (89)  'Y'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (90)  'Z'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (91)  '['
        [ [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ]],
        { CHR (92)  '\'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ o, x, x ,o, o, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, o, o, x, x, o ],
          [ o, o, o ,o, o, o, o, o, x, x ]],
        { CHR (93)  ']'
        [ [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ]],
        { CHR (94)  '^'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (95)  '_'
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (96)  '`'
        [ [ o, o, x ,x, x, o, o, o, o, o ],
          [ o, x, x ,x, x, x, o, o, o, o ],
          [ o, x, x ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, o, o, o, o, o, o ],
          [ o, o, o ,o, x, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (97)  'a'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (98)  'b'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (99)  'c'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (100) 'd'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ]],
        { CHR (101) 'e'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (102) 'f'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ]],
        { CHR (103) 'g'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, x, x, x, x, x ],
          [ x, x, o ,o, o, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, x ]],
        { CHR (104) 'h'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (105) 'i'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (106) 'j'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, x, o, o, o, o ],
          [ o, x, x ,x, x, o, o, o, o, o ]],
        { CHR (107) 'k'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, x ,x, x, o, o, o, o, o ],
          [ x, x, o ,o, x, x, o, o, o, o ],
          [ x, x, o ,o, o, x, x, o, o, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (108) 'l'
        [ [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (109) 'm'
        [ [ x, x, x ,o, o, o, o, x, x, x ],
          [ x, x, x ,x, o, o, x, x, x, x ],
          [ x, x, o ,x, x, x, x, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (110) 'n'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,o, o, o, o, o, x, x ],
          [ x, x, o ,x, o, o, o, o, x, x ],
          [ x, x, o ,x, x, o, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, o, x, x, o, x, x ],
          [ x, x, o ,o, o, o, x, o, x, x ],
          [ x, x, o ,o, o, o, o, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (111) 'o'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (112) 'p'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, o ,o, o, o, o, o, o, o ]],
        { CHR (113) 'q'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, x, x, x, o, x, x ],
          [ x, x, o ,o, o, o, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, o, x, x, x ]],
        { CHR (114) 'r'
        [ [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ x, x, o ,o, o, x, x, o, o, o ],
          [ x, x, o ,o, o, o, x, x, o, o ],
          [ x, x, o ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (115) 's'
        [ [ o, x, x ,x, x, x, x, x, x, o ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, o ,o, o, o, o, o, o, x ],
          [ x, x, o ,o, o, o, o, o, o, o ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, o, o, o, o, x, x ],
          [ x, o, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (116) 't'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (117) 'u'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ],
          [ o, x, x ,x, x, x, x, x, x, o ]],
        { CHR (118) 'v'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (119) 'w'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,o, x, x, o, o, x, x ],
          [ x, x, o ,x, x, x, x, o, x, x ],
          [ o, x, x ,x, o, o, x, x, x, o ],
          [ o, x, x ,o, o, o, o, x, x, o ]],
        { CHR (120) 'x'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ x, x, o ,o, o, o, o, o, x, x ],
          [ x, x, o ,o, o, o, o, o, x, x ]],
        { CHR (121) 'y'
        [ [ x, x, o ,o, o, o, o, o, x, x ],
          [ o, x, x ,o, o, o, o, x, x, o ],
          [ o, o, x ,x, o, o, x, x, o, o ],
          [ o, o, o ,x, x, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (122) 'z'
        [ [ x, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, o ],
          [ o, o, o ,o, o, o, x, x, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, x, x ,x, x, x, x, x, x, x ],
          [ x, x, x ,x, x, x, x, x, x, x ]],
        { CHR (123) '{'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, x ,x, o, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (124) '|'
        [ [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ]],
        { CHR (125) ' '
        [ [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, o, x, x, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,o, x, x, o, o, o, o ],
          [ o, o, o ,x, x, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (126) '~'
        [ [ o, o, x ,x, o, o, o, o, x, x ],
          [ o, x, x ,x, x, o, o, o, x, x ],
          [ x, x, o ,o, x, x, x, x, x, o ],
          [ x, x, o ,o, o, x, x, x, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]],
        { CHR (127) DEL
        [ [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ],
          [ o, o, o ,o, o, o, o, o, o, o ]]];

?? OLDTITLE ??
?? NEWTITLE := 'PROCEDURE nfp$$block_text', EJECT ??

  PROCEDURE [XDCL] nfp$$block_text
    (    parameter_list: clt$parameter_list;
     VAR work_area: ^clt$work_area;
     VAR result: ^clt$data_value;
     VAR status: ost$status);

{ FUNCTION $block_text (
{   string: string 1..256 = $required
{   )

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 1] of clt$pdt_parameter_name,
      parameters: array [1 .. 1] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$string_type_qualifier,
        recend,
    recend := [
    [1,
    [90, 6, 14, 17, 34, 27, 414],
    clc$function, 1, 1, 1, 0, 0, 0, 0, ''], [
    ['STRING                         ',clc$nominal_entry, 1]],
    [
{ PARAMETER 1
    [1, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation,
  clc$standard_parameter_checking, 8, clc$required_parameter, 0, 0]],
{ PARAMETER 1
    [[1, 0, clc$string_type], [1, 256, FALSE]]];

?? FMT (FORMAT := ON) ??
?? POP ??

    CONST
      p$string = 1;

    VAR
      built_string: string (max_built_str_size),
      char_index: 1..256,
      column_index: 1..max_column,
      list_entry: ^clt$data_value,
      pvt: array [1 .. 1] of clt$parameter_value,
      row_index: 1..max_row,
      string_length: 1..256;

    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    string_length := STRLENGTH (pvt [p$string].value^.string_value^);

    FOR row_index := 1 TO max_row DO
      built_string := '';
      FOR char_index := 1 TO string_length DO
        FOR column_index := 1 TO max_column DO
          IF block_char_array [pvt[p$string].value^.string_value^(char_index)][row_index][column_index]
              THEN
            built_string ( ((char_index - 1) * (max_column + space_between_chars) + column_index), 1)
               := pvt[p$string].value^.string_value^(char_index);
          ELSE
            built_string ( ((char_index - 1) * (max_column + space_between_chars) + column_index), 1)
               := ' ';
          IFEND;
        FOREND;
        IF char_index < string_length THEN
          built_string (char_index * max_column + (space_between_chars * (char_index - 1)) + 1,
              space_between_chars) := '   ';
        IFEND;
      FOREND;

      IF row_index = 1 THEN
        clp$make_list_value (work_area, result);
        list_entry := result;
      ELSE
        clp$make_list_value (work_area, list_entry^.link);
        list_entry := list_entry^.link;
      IFEND;

      clp$make_string_value (built_string(1, ( (string_length - 1) * (max_row + space_between_chars)
          + max_row)), work_area, list_entry^.element_value);
    FOREND;
  PROCEND nfp$$block_text;
MODEND nfm$$block_text;
