QST
   3
POSTERJOB
POSTERSRC
POSTRESRC
[\].
POSTERJOB
$JOB 73(005) 'POSTER' PAUL HENDERSON
$UIC <QST>
$DEL POSTER BIN
$WAT B_POSTER
$BTK POSTER
$REM POSTER
$INS POSTER
$REQ POSTER
$REM POSTER
$END
[\].
POSTERSRC
C     .TITLE POSTER
C
C  27 SEP 77 (PDH) CONVERT FROM ASCII TO THE INTERNAL EBCDIC SEQUENCE
C  26 SEP 77 (PDH) ATTEMPT TO MAKE IT RUN
C  12 SEP 77 (PDH) BEGIN CONVERSION FROM MIKE'S (VE3IXF) PROGRAM
C
C  THE FOLLOWING VARIABLES ARE USED IN CONVERTING FROM ASCII TO EBCDIC.
C  THE METHOD USED IS TO REDUCE THE ASCII CHARACTER TO AN INTEGER
C  VALUE (0-64), AND USE THIS AS AN INDEX INTO A CONVERSION TABLE
C  WHICH POINTS TO THE CHARACTER CONSTRUCTIONS.
C
      INTEGER*4 DBLINT
      INTEGER*2 I2(2)
      CHARACTER*1 CONVRT
      INTEGER AS2EB(0/63)/
     *   1, 1, 1,15, 7, 1, 1, 1, 5, 9, 8, 6, 1,10, 3,11,
     *  44,45,46,47,48,49,50,51,52,53,14, 1, 4,17,12,13,
     *  16,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,
     *  33,34,35,36,37,38,39,40,41,42,43, 1, 2, 1, 1, 1/
C
C  END OF CONVERSION VARIABLES
C
      INTEGER COPIES,LINES
      CHARACTER*1 TEXT(14)
      CHARACTER*7 STOTXT(20,14,9)     ,  STRTXT(20,14,9)
C
C  THE CHARACTERS AVAILABLE IN THIS PROGRAM ARE SHOWN BELOW IN THE
C  SEQUENCE REQUIRED BY THE ORIGINAL WATFIV PROGRAM:
C
C      CHARACTER*1  CHAR(53)/' ','\','.','<','(','+','$','*',')','-',
C     1'/','>','?',':','#','@','=','A','B','C','D','E','F','G','H','I',
C     2'J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y',
C     3'Z','0','1','2','3','4','5','6','7','8','9'/
C
C
C       USE:
C
C  FIRST DATA CARD SHOULD CONTAIN AN INTEGER INDICATING THE NUMBER OF
C  COPIES NEEDED.
C  FROM 2ND DATA CARD ONWARDS IS THE TEXT, AND THEY SHOULD BE PLACED
C  IN BETWEEN COLUMN 2 TO 15 INCLUSIVE.
C MAXIMUM NUMBER OF LINES OF TEXT IS 20.
C
      CHARACTER*7 LIBRAY(53,9)
      CHARACTER*7 LIBROY(53,9)
      COMMON /BIG/STOTXT,STRTXT
C
C  THE FOLLOWING UNUSUAL EQUIVALENCING IS REQUIRED IN THE
C  CONVERSION FROM A1 ASCII TO AN INTEGER INDEX.
C
      EQUIVALENCE (DBLINT,I2(1)),(I2(2),CONVRT)
C
C
C NEW DATA STARTS HERE *********
C
      DATA LIBROY(1,1),LIBROY(1,2),LIBROY(1,3),LIBROY(1,4),LIBROY(1,5),
     *     LIBROY(1,6),LIBROY(1,7),LIBROY(1,8),LIBROY(1,9)/
     *                         '       ','       ','       ','       ',    BLANK
     *'       ','       ','       ','       ','       '/                   BLANK
      DATA LIBROY(2,1),LIBROY(2,2),LIBROY(2,3),LIBROY(2,4),LIBROY(2,5),
     *     LIBROY(2,6),LIBROY(2,7),LIBROY(2,8),LIBROY(2,9)/
     *                         '   *   ','   *   ',' ******','*  *   ',        \
     *'*  *   ','*  *   ',' ******','   *   ','   *   '/                       \
      DATA LIBROY(3,1),LIBROY(3,2),LIBROY(3,3),LIBROY(3,4),LIBROY(3,5),
     *     LIBROY(3,6),LIBROY(3,7),LIBROY(3,8),LIBROY(3,9)/
     *                         '       ','       ','       ','       ',        .
     *'       ','       ','       ','       ','*      '/                       .
      DATA LIBROY(4,1),LIBROY(4,2),LIBROY(4,3),LIBROY(4,4),LIBROY(4,5),
     *     LIBROY(4,6),LIBROY(4,7),LIBROY(4,8),LIBROY(4,9)/
     *                         '      *','     * ','    *  ','   *   ',        <
     *'  *    ','   *   ','    *  ','     * ','      *'/                       <
      DATA LIBROY(5,1),LIBROY(5,2),LIBROY(5,3),LIBROY(5,4),LIBROY(5,5),
     *     LIBROY(5,6),LIBROY(5,7),LIBROY(5,8),LIBROY(5,9)/
     *                         '      *','     * ','    *  ','   *   ',
     *'   *   ','   *   ','    *  ','     * ','      *'/                       (
      DATA LIBROY(6,1),LIBROY(6,2),LIBROY(6,3),LIBROY(6,4),LIBROY(6,5),
     *     LIBROY(6,6),LIBROY(6,7),LIBROY(6,8),LIBROY(6,9)/
     *                         '   *   ','   *   ','   *   ','   *   ',        +
     *'*******','   *   ','   *   ','   *   ','   *   '/                       +
      DATA LIBROY(7,1),LIBROY(7,2),LIBROY(7,3),LIBROY(7,4),LIBROY(7,5),
     *     LIBROY(7,6),LIBROY(7,7),LIBROY(7,8),LIBROY(7,9)/
     *                         '   *   ',' ******','*  *   ','*  *   ',        $
     *' ***** ','   *  *','   *  *','****** ','   *   '/                       $
      DATA LIBROY(8,1),LIBROY(8,2),LIBROY(8,3),LIBROY(8,4),LIBROY(8,5),
     *     LIBROY(8,6),LIBROY(8,7),LIBROY(8,8),LIBROY(8,9)/
     *                         '   *   ','*  *  *',' * * * ','  ***  ',        *
     *'   *   ','  ***  ',' * * * ','*  *  *','   *   '/                       *
      DATA LIBROY(9,1),LIBROY(9,2),LIBROY(9,3),LIBROY(9,4),LIBROY(9,5),
     *     LIBROY(9,6),LIBROY(9,7),LIBROY(9,8),LIBROY(9,9)/
     *                         '*      ',' *     ','  *    ','   *   ',
     *'   *   ','   *   ','  *    ',' *     ','*      '/                       )
      DATA LIBROY(10,1),LIBROY(10,2),LIBROY(10,3),LIBROY(10,4),
     * LIBROY(10,5),LIBROY(10,6),LIBROY(10,7),LIBROY(10,8),LIBROY(10,9)/
     *                          '       ','       ','       ','       ',       -
     *'*******','       ','       ','       ','       '/                       -
      DATA LIBROY(11,1),LIBROY(11,2),LIBROY(11,3),LIBROY(11,4),
     * LIBROY(11,5),LIBROY(11,6),LIBROY(11,7),LIBROY(11,8),LIBROY(11,9)/
     *                          '       ','      *','     * ','    *  ',       /
     *'   *   ','  *    ',' *     ','*      ','       '/                       /
      DATA LIBROY(12,1),LIBROY(12,2),LIBROY(12,3),LIBROY(12,4),
     * LIBROY(12,5),LIBROY(12,6),LIBROY(12,7),LIBROY(12,8),LIBROY(12,9)/
     *                          '*      ',' *     ','  *    ','   *   ',       >
     *'    *  ','   *   ','  *    ',' *     ','*      '/                       >
      DATA LIBROY(13,1),LIBROY(13,2),LIBROY(13,3),LIBROY(13,4),
     * LIBROY(13,5),LIBROY(13,6),LIBROY(13,7),LIBROY(13,8),LIBROY(13,9)/
     *                          '  ***  ',' *   * ','*     *','     * ',       ?
     *'    *  ','   *   ','   *   ','       ','   *   '/                       ?
      DATA LIBROY(14,1),LIBROY(14,2),LIBROY(14,3),LIBROY(14,4),
     * LIBROY(14,5),LIBROY(14,6),LIBROY(14,7),LIBROY(14,8),LIBROY(14,9)/
     *                          '       ','       ','       ','   *   ',       :
     *'       ','   *   ','       ','       ','       '/                       :
      DATA LIBROY(15,1),LIBROY(15,2),LIBROY(15,3),LIBROY(15,4),
     * LIBROY(15,5),LIBROY(15,6),LIBROY(15,7),LIBROY(15,8),LIBROY(15,9)/
     *                          '    *  ','  * *  ','  * *  ',' ******',       #
     *'  * *  ','****** ','  * *  ','  * *  ','  *    '/                       #
     *'       ','*******','       ','       ','       '/                       =
      DATA LIBROY(18,1),LIBROY(18,2),LIBROY(18,3),LIBROY(18,4),
     * LIBROY(18,5),LIBROY(18,6),LIBROY(18,7),LIBROY(18,8),LIBROY(18,9)/
     *                          '   *   ','  * *  ',' *   * ','*     *',       A
     *'*******','*     *','*     *','*     *','*     *'/                       A
      DATA LIBROY(19,1),LIBROY(19,2),LIBROY(19,3),LIBROY(19,4),
     * LIBROY(19,5),LIBROY(19,6),LIBROY(19,7),LIBROY(19,8),LIBROY(19,9)/
     *                          '*****  ','*    * ','*     *','*    * ',       B
     *'*****  ','*    * ','*     *','*    * ','*****  '/                       B
      DATA LIBROY(20,1),LIBROY(20,2),LIBROY(20,3),LIBROY(20,4),
     * LIBROY(20,5),LIBROY(20,6),LIBROY(20,7),LIBROY(20,8),LIBROY(20,9)/
     *                          ' ******','*      ','*      ','*      ',       C
     *'*      ','*      ','*      ','*      ',' ******'/                       C
      DATA LIBROY(21,1),LIBROY(21,2),LIBROY(21,3),LIBROY(21,4),
     * LIBROY(21,5),LIBROY(21,6),LIBROY(21,7),LIBROY(21,8),LIBROY(21,9)/
     *                          '****   ','*   *  ','*    * ','*     *',       D
     *'*     *','*     *','*    * ','*   *  ','****   '/                       D
      DATA LIBROY(22,1),LIBROY(22,2),LIBROY(22,3),LIBROY(22,4),
     * LIBROY(22,5),LIBROY(22,6),LIBROY(22,7),LIBROY(22,8),LIBROY(22,9)/
     *                          '*******','*      ','*      ','*      ',       E
     *'*****  ','*      ','*      ','*      ','*******'/                       E
      DATA LIBROY(23,1),LIBROY(23,2),LIBROY(23,3),LIBROY(23,4),
     * LIBROY(23,5),LIBROY(23,6),LIBROY(23,7),LIBROY(23,8),LIBROY(23,9)/
     *                          '*******','*      ','*      ','*      ',       F
     *'*****  ','*      ','*      ','*      ','*      '/                       F
      DATA LIBROY(24,1),LIBROY(24,2),LIBROY(24,3),LIBROY(24,4),
     * LIBROY(24,5),LIBROY(24,6),LIBROY(24,7),LIBROY(24,8),LIBROY(24,9)/
     *                          ' ******','*      ','*      ','*      ',       G
     *'*      ','*  *** ','*     *','*     *',' ***** '/                       G
      DATA LIBROY(25,1),LIBROY(25,2),LIBROY(25,3),LIBROY(25,4),
     * LIBROY(25,5),LIBROY(25,6),LIBROY(25,7),LIBROY(25,8),LIBROY(25,9)/
     *                          '*     *','*     *','*     *','*     *',       H
     *'*******','*     *','*     *','*     *','*     *'/                       H
      DATA LIBROY(26,1),LIBROY(26,2),LIBROY(26,3),LIBROY(26,4),
     * LIBROY(26,5),LIBROY(26,6),LIBROY(26,7),LIBROY(26,8),LIBROY(26,9)/
     *                          '*******','   *   ','   *   ','   *   ',       I
     *'   *   ','   *   ','   *   ','   *   ','*******'/                       I
      DATA LIBROY(27,1),LIBROY(27,2),LIBROY(27,3),LIBROY(27,4),
     * LIBROY(27,5),LIBROY(27,6),LIBROY(27,7),LIBROY(27,8),LIBROY(27,9)/
     *                          '*******','   *   ','   *   ','   *   ',       J
     *'   *   ','   *   ','   *   ','* *    ',' *     '/                       J
      DATA LIBROY(28,1),LIBROY(28,2),LIBROY(28,3),LIBROY(28,4),
     * LIBROY(28,5),LIBROY(28,6),LIBROY(28,7),LIBROY(28,8),LIBROY(28,9)/
     *                          '*     *','*    * ','*   *  ','*  *   ',       K
     *'***    ','*  *   ','*   *  ','*    * ','*     *'/                       K
      DATA LIBROY(29,1),LIBROY(29,2),LIBROY(29,3),LIBROY(29,4),
     * LIBROY(29,5),LIBROY(29,6),LIBROY(29,7),LIBROY(29,8),LIBROY(29,9)/
     *                          '*      ','*      ','*      ','*      ',       L
     *'*      ','*      ','*      ','*      ','*******'/                       L
      DATA LIBROY(30,1),LIBROY(30,2),LIBROY(30,3),LIBROY(30,4),
     * LIBROY(30,5),LIBROY(30,6),LIBROY(30,7),LIBROY(30,8),LIBROY(30,9)/
     *                          '*     *','**   **','* * * *','*  *  *',       M
     *'*     *','*     *','*     *','*     *','*     *'/                       M
      DATA LIBROY(31,1),LIBROY(31,2),LIBROY(31,3),LIBROY(31,4),
     * LIBROY(31,5),LIBROY(31,6),LIBROY(31,7),LIBROY(31,8),LIBROY(31,9)/
     *                          '*     *','**    *','* *   *','*  *  *',       N
     *'*   * *','*    **','*     *','*     *','*     *'/                       N
      DATA LIBROY(32,1),LIBROY(32,2),LIBROY(32,3),LIBROY(32,4),
     * LIBROY(32,5),LIBROY(32,6),LIBROY(32,7),LIBROY(32,8),LIBROY(32,9)/
     *                          ' ***** ','*     *','*     *','*     *',       O
     *'*     *','*     *','*     *','*     *',' ***** '/                       O
      DATA LIBROY(33,1),LIBROY(33,2),LIBROY(33,3),LIBROY(33,4),
     * LIBROY(33,5),LIBROY(33,6),LIBROY(33,7),LIBROY(33,8),LIBROY(33,9)/
     *                          ' ***** ','*     *','*     *','*     *',       P
     *'****** ','*      ','*      ','*      ','*      '/                       P
      DATA LIBROY(34,1),LIBROY(34,2),LIBROY(34,3),LIBROY(34,4),
     * LIBROY(34,5),LIBROY(34,6),LIBROY(34,7),LIBROY(34,8),LIBROY(34,9)/
     *                          ' ***** ','*     *','*     *','*     *',       Q
     *'*     *','*     *','*   * *','*    **',' ******'/                       Q
      DATA LIBROY(35,1),LIBROY(35,2),LIBROY(35,3),LIBROY(35,4),
     * LIBROY(35,5),LIBROY(35,6),LIBROY(35,7),LIBROY(35,8),LIBROY(35,9)/
     *                          ' ***** ','*     *','*     *','*     *',       R
     *'****** ','*  *   ','*   *  ','*    * ','*     *'/                       R
      DATA LIBROY(36,1),LIBROY(36,2),LIBROY(36,3),LIBROY(36,4),
     * LIBROY(36,5),LIBROY(36,6),LIBROY(36,7),LIBROY(36,8),LIBROY(36,9)/
     *                          ' ******','*      ','*      ','*      ',       S
     *' ***** ','      *','      *','      *','****** '/                       S
      DATA LIBROY(37,1),LIBROY(37,2),LIBROY(37,3),LIBROY(37,4),
     * LIBROY(37,5),LIBROY(37,6),LIBROY(37,7),LIBROY(37,8),LIBROY(37,9)/
     *                          '*******','   *   ','   *   ','   *   ',
     *'   *   ','   *   ','   *   ','   *   ','   *   '/                       T
      DATA LIBROY(38,1),LIBROY(38,2),LIBROY(38,3),LIBROY(38,4),
     * LIBROY(38,5),LIBROY(38,6),LIBROY(38,7),LIBROY(38,8),LIBROY(38,9)/
     *                          '*     *','*     *','*     *','*     *',       U
     *'*     *','*     *','*     *','*     *',' ***** '/                       U
      DATA LIBROY(39,1),LIBROY(39,2),LIBROY(39,3),LIBROY(39,4),
     * LIBROY(39,5),LIBROY(39,6),LIBROY(39,7),LIBROY(39,8),LIBROY(39,9)/
     *                          '*     *','*     *','*     *','*     *',       V
     *'*     *','*     *',' *   * ','  * *  ','   *   '/                       V
      DATA LIBROY(40,1),LIBROY(40,2),LIBROY(40,3),LIBROY(40,4),
     * LIBROY(40,5),LIBROY(40,6),LIBROY(40,7),LIBROY(40,8),LIBROY(40,9)/
     *                          '*     *','*     *','*     *','*     *',       W
     *'*     *','*     *','*  *  *','* * * *',' *   * '/                       W
      DATA LIBROY(41,1),LIBROY(41,2),LIBROY(41,3),LIBROY(41,4),
     * LIBROY(41,5),LIBROY(41,6),LIBROY(41,7),LIBROY(41,8),LIBROY(41,9)/
     *                          '*     *','*     *',' *   * ','  * *  ',       X
     *'   *   ','  * *  ',' *   * ','*     *','*     *'/                       X
      DATA LIBROY(42,1),LIBROY(42,2),LIBROY(42,3),LIBROY(42,4),
     * LIBROY(42,5),LIBROY(42,6),LIBROY(42,7),LIBROY(42,8),LIBROY(42,9)/
     *                          '*     *','*     *',' *   * ','  * *  ',       Y
     *'   *   ','   *   ','   *   ','   *   ','   *   '/                       Y
      DATA LIBROY(43,1),LIBROY(43,2),LIBROY(43,3),LIBROY(43,4),
     * LIBROY(43,5),LIBROY(43,6),LIBROY(43,7),LIBROY(43,8),LIBROY(43,9)/
     *                          '*******','      *','     * ','    *  ',       Z
     *'   *   ','  *    ',' *     ','*      ','*******'/                       Z
     *                          ' ***   ','*   *  ','     * ','    *  ',       3
     *'  **   ','    *  ','     * ','*   *  ',' ***   '/                       3
      DATA LIBROY(48,1),LIBROY(48,2),LIBROY(48,3),LIBROY(48,4),
     * LIBROY(48,5),LIBROY(48,6),LIBROY(48,7),LIBROY(48,8),LIBROY(48,9)/
     *                          '    *  ','   **  ','  * *  ',' *  *  ',       4
     *'*******','    *  ','    *  ','    *  ','    *  '/                       4
      DATA LIBROY(49,1),LIBROY(49,2),LIBROY(49,3),LIBROY(49,4),
     * LIBROY(49,5),LIBROY(49,6),LIBROY(49,7),LIBROY(49,8),LIBROY(49,9)/
     *                          '*******','*      ','*      ',' ***** ',
     *'      *','      *','      *','*     *',' ***** '/                       5
      DATA LIBROY(50,1),LIBROY(50,2),LIBROY(50,3),LIBROY(50,4),
     * LIBROY(50,5),LIBROY(50,6),LIBROY(50,7),LIBROY(50,8),LIBROY(50,9)/
     *                          ' ****  ','*      ','*      ','*      ',       6
     *'****** ','*     *','*     *','*     *',' ***** '/                       6
      DATA LIBROY(51,1),LIBROY(51,2),LIBROY(51,3),LIBROY(51,4),
     * LIBROY(51,5),LIBROY(51,6),LIBROY(51,7),LIBROY(51,8),LIBROY(51,9)/
     *                          '****** ','      *','      *','     * ',       7
     *'    *  ','   *   ','  *    ',' *     ','*      '/                       7
      DATA LIBROY(52,1),LIBROY(52,2),LIBROY(52,3),LIBROY(52,4),
     * LIBROY(52,5),LIBROY(52,6),LIBROY(52,7),LIBROY(52,8),LIBROY(52,9)/
     *                          '  ***  ',' *   * ',' *   * ',' *   * ',       8
     *'  ***  ',' *   * ','*     *','*     *',' ***** '/                       8
      DATA LIBROY(53,1),LIBROY(53,2),LIBROY(53,3),LIBROY(53,4),
     * LIBROY(53,5),LIBROY(53,6),LIBROY(53,7),LIBROY(53,8),LIBROY(53,9)/
     *                          ' ***** ','*     *','*     *','*     *',       9
     *' ******','      *','      *','*     *',' ***** '/                       9
C
C  NEW DATA ENDS HERE
C
      DATA LIBRAY( 1,1),LIBRAY( 1,2),LIBRAY( 1,3),LIBRAY( 1,4),
     * LIBRAY( 1,5),LIBRAY( 1,6),LIBRAY( 1,7),LIBRAY( 1,8),LIBRAY( 1,9)/
     *                         '       ','       ','       ','       ',    BLANK
     *'       ','       ','       ','       ','       '/                   BLANK
      DATA LIBRAY( 2,1),LIBRAY( 2,2),LIBRAY( 2,3),LIBRAY( 2,4),
     * LIBRAY( 2,5),LIBRAY( 2,6),LIBRAY( 2,7),LIBRAY( 2,8),LIBRAY( 2,9)/
     *                         '   O   ','   O   ',' OOOOOO','O  O   ',        \
     *'O  O   ','O  O   ',' OOOOOO','   O   ','   O   '/                       \
      DATA LIBRAY( 3,1),LIBRAY( 3,2),LIBRAY( 3,3),LIBRAY( 3,4),
     * LIBRAY( 3,5),LIBRAY( 3,6),LIBRAY( 3,7),LIBRAY( 3,8),LIBRAY( 3,9)/
     *                         '       ','       ','       ','       ',        .
     *'       ','       ','       ','       ','O      '/                       .
      DATA LIBRAY( 4,1),LIBRAY( 4,2),LIBRAY( 4,3),LIBRAY( 4,4),
     * LIBRAY( 4,5),LIBRAY( 4,6),LIBRAY( 4,7),LIBRAY( 4,8),LIBRAY( 4,9)/
     *                         '      O','     O ','    O  ','   O   ',        <
     *'  O    ','   O   ','    O  ','     O ','      O'/                       <
      DATA LIBRAY( 5,1),LIBRAY( 5,2),LIBRAY( 5,3),LIBRAY( 5,4),
     * LIBRAY( 5,5),LIBRAY( 5,6),LIBRAY( 5,7),LIBRAY( 5,8),LIBRAY( 5,9)/
     *                         '      O','     O ','    O  ','   O   ',        (
     *'   O   ','   O   ','    O  ','     O ','      O'/                       (
      DATA LIBRAY( 6,1),LIBRAY( 6,2),LIBRAY( 6,3),LIBRAY( 6,4),
     * LIBRAY( 6,5),LIBRAY( 6,6),LIBRAY( 6,7),LIBRAY( 6,8),LIBRAY( 6,9)/
     *                         '   O   ','   O   ','   O   ','   O   ',        +
     *'OOOOOOO','   O   ','   O   ','   O   ','   O   '/                       +
      DATA LIBRAY( 7,1),LIBRAY( 7,2),LIBRAY( 7,3),LIBRAY( 7,4),
     * LIBRAY( 7,5),LIBRAY( 7,6),LIBRAY( 7,7),LIBRAY( 7,8),LIBRAY( 7,9)/
     *                         '   O   ',' OOOOOO','O  O   ','O  O   ',        $
     *' OOOOO ','   O  O','   O  O','OOOOOO ','   O   '/                       $
      DATA LIBRAY( 8,1),LIBRAY( 8,2),LIBRAY( 8,3),LIBRAY( 8,4),
     * LIBRAY( 8,5),LIBRAY( 8,6),LIBRAY( 8,7),LIBRAY( 8,8),LIBRAY( 8,9)/
     *                         '   O   ','O  O  O',' O O O ','  OOO  ',        *
     *'   O   ','  OOO  ',' O O O ','O  O  O','   O   '/                       *
      DATA LIBRAY( 9,1),LIBRAY( 9,2),LIBRAY( 9,3),LIBRAY( 9,4),
     * LIBRAY( 9,5),LIBRAY( 9,6),LIBRAY( 9,7),LIBRAY( 9,8),LIBRAY( 9,9)/
     *                         'O      ',' O     ','  O    ','   O   ',        )
     *'   O   ','   O   ','  O    ',' O     ','O      '/                       )
      DATA LIBRAY(10,1),LIBRAY(10,2),LIBRAY(10,3),LIBRAY(10,4),
     * LIBRAY(10,5),LIBRAY(10,6),LIBRAY(10,7),LIBRAY(10,8),LIBRAY(10,9)/
     *                          '       ','       ','       ','       ',       -
     *'OOOOOOO','       ','       ','       ','       '/                       -
      DATA LIBRAY(11,1),LIBRAY(11,2),LIBRAY(11,3),LIBRAY(11,4),
     * LIBRAY(11,5),LIBRAY(11,6),LIBRAY(11,7),LIBRAY(11,8),LIBRAY(11,9)/
     *                          '       ','      O','     O ','    O  ',       /
     *'   O   ','  O    ',' O     ','O      ','       '/                       /
      DATA LIBRAY(12,1),LIBRAY(12,2),LIBRAY(12,3),LIBRAY(12,4),
     * LIBRAY(12,5),LIBRAY(12,6),LIBRAY(12,7),LIBRAY(12,8),LIBRAY(12,9)/
     *                          'O      ',' O     ','  O    ','   O   ',       >
     *'    O  ','   O   ','  O    ',' O     ','O      '/                       >
      DATA LIBRAY(13,1),LIBRAY(13,2),LIBRAY(13,3),LIBRAY(13,4),
     * LIBRAY(13,5),LIBRAY(13,6),LIBRAY(13,7),LIBRAY(13,8),LIBRAY(13,9)/
     *                          '  OOO  ',' O   O ','O     O','     O ',       ?
     *'    O  ','   O   ','   O   ','       ','   O   '/                       ?
      DATA LIBRAY(14,1),LIBRAY(14,2),LIBRAY(14,3),LIBRAY(14,4),
     * LIBRAY(14,5),LIBRAY(14,6),LIBRAY(14,7),LIBRAY(14,8),LIBRAY(14,9)/
     *                          '       ','       ','       ','   O   ',       :
     *'       ','   O   ','       ','       ','       '/                       :
      DATA LIBRAY(15,1),LIBRAY(15,2),LIBRAY(15,3),LIBRAY(15,4),
     * LIBRAY(15,5),LIBRAY(15,6),LIBRAY(15,7),LIBRAY(15,8),LIBRAY(15,9)/
     *'   O   ','   O   ','   O   ','O O    ',' O     '/                       J
      DATA LIBRAY(28,1),LIBRAY(28,2),LIBRAY(28,3),LIBRAY(28,4),
     * LIBRAY(28,5),LIBRAY(28,6),LIBRAY(28,7),LIBRAY(28,8),LIBRAY(28,9)/
     *                          'O     O','O    O ','O   O  ','O  O   ',       K
     *'OOO    ','O  O   ','O   O  ','O    O ','O     O'/                       K
      DATA LIBRAY(29,1),LIBRAY(29,2),LIBRAY(29,3),LIBRAY(29,4),
     * LIBRAY(29,5),LIBRAY(29,6),LIBRAY(29,7),LIBRAY(29,8),LIBRAY(29,9)/
     *                          'O      ','O      ','O      ','O      ',       L
     *'O      ','O      ','O      ','O      ','OOOOOOO'/                       L
      DATA LIBRAY(30,1),LIBRAY(30,2),LIBRAY(30,3),LIBRAY(30,4),
     * LIBRAY(30,5),LIBRAY(30,6),LIBRAY(30,7),LIBRAY(30,8),LIBRAY(30,9)/
     *                          'O     O','OO   OO','O O O O','O  O  O',       M
     *'O     O','O     O','O     O','O     O','O     O'/                       M
      DATA LIBRAY(31,1),LIBRAY(31,2),LIBRAY(31,3),LIBRAY(31,4),
     * LIBRAY(31,5),LIBRAY(31,6),LIBRAY(31,7),LIBRAY(31,8),LIBRAY(31,9)/
     *                          'O     O','OO    O','O O   O','O  O  O',       N
     *'O   O O','O    OO','O     O','O     O','O     O'/                       N
      DATA LIBRAY(32,1),LIBRAY(32,2),LIBRAY(32,3),LIBRAY(32,4),
     * LIBRAY(32,5),LIBRAY(32,6),LIBRAY(32,7),LIBRAY(32,8),LIBRAY(32,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       O
     *'O     O','O     O','O     O','O     O',' OOOOO '/                       O
      DATA LIBRAY(33,1),LIBRAY(33,2),LIBRAY(33,3),LIBRAY(33,4),
     * LIBRAY(33,5),LIBRAY(33,6),LIBRAY(33,7),LIBRAY(33,8),LIBRAY(33,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       P
     *'OOOOOO ','O      ','O      ','O      ','O      '/                       P
      DATA LIBRAY(34,1),LIBRAY(34,2),LIBRAY(34,3),LIBRAY(34,4),
     * LIBRAY(34,5),LIBRAY(34,6),LIBRAY(34,7),LIBRAY(34,8),LIBRAY(34,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       Q
     *'O     O','O     O','O   O O','O    OO',' OOOOOO'/                       Q
      DATA LIBRAY(35,1),LIBRAY(35,2),LIBRAY(35,3),LIBRAY(35,4),
     * LIBRAY(35,5),LIBRAY(35,6),LIBRAY(35,7),LIBRAY(35,8),LIBRAY(35,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       R
     *'OOOOOO ','O  O   ','O   O  ','O    O ','O     O'/                       R
      DATA LIBRAY(36,1),LIBRAY(36,2),LIBRAY(36,3),LIBRAY(36,4),
     * LIBRAY(36,5),LIBRAY(36,6),LIBRAY(36,7),LIBRAY(36,8),LIBRAY(36,9)/
     *                          ' OOOOOO','O      ','O      ','O      ',       S
     *' OOOOO ','      O','      O','      O','OOOOOO '/                       S
      DATA LIBRAY(37,1),LIBRAY(37,2),LIBRAY(37,3),LIBRAY(37,4),
     * LIBRAY(37,5),LIBRAY(37,6),LIBRAY(37,7),LIBRAY(37,8),LIBRAY(37,9)/
     *                          'OOOOOOO','   O   ','   O   ','   O   ',       T
     *'   O   ','   O   ','   O   ','   O   ','   O   '/                       T
      DATA LIBRAY(38,1),LIBRAY(38,2),LIBRAY(38,3),LIBRAY(38,4),
     * LIBRAY(38,5),LIBRAY(38,6),LIBRAY(38,7),LIBRAY(38,8),LIBRAY(38,9)/
     *                          'O     O','O     O','O     O','O     O',       U
     *'O     O','O     O','O     O','O     O',' OOOOO '/                       U
      DATA LIBRAY(39,1),LIBRAY(39,2),LIBRAY(39,3),LIBRAY(39,4),
     * LIBRAY(39,5),LIBRAY(39,6),LIBRAY(39,7),LIBRAY(39,8),LIBRAY(39,9)/
     *                          'O     O','O     O','O     O','O     O',       V
     *'O     O','O     O',' O   O ','  O O  ','   O   '/                       V
      DATA LIBRAY(40,1),LIBRAY(40,2),LIBRAY(40,3),LIBRAY(40,4),
     * LIBRAY(40,5),LIBRAY(40,6),LIBRAY(40,7),LIBRAY(40,8),LIBRAY(40,9)/
     *                          'O     O','O     O','O     O','O     O',       W
     *'O     O','O     O','O  O  O','O O O O',' O   O '/                       W
      DATA LIBRAY(41,1),LIBRAY(41,2),LIBRAY(41,3),LIBRAY(41,4),
     * LIBRAY(41,5),LIBRAY(41,6),LIBRAY(41,7),LIBRAY(41,8),LIBRAY(41,9)/
     *                          'O     O','O     O',' O   O ','  O O  ',       X
     *'   O   ','  O O  ',' O   O ','O     O','O     O'/                       X
      DATA LIBRAY(42,1),LIBRAY(42,2),LIBRAY(42,3),LIBRAY(42,4),
     * LIBRAY(42,5),LIBRAY(42,6),LIBRAY(42,7),LIBRAY(42,8),LIBRAY(42,9)/
     *                          'O     O','O     O',' O   O ','  O O  ',       Y
     *'   O   ','   O   ','   O   ','   O   ','   O   '/                       Y
      DATA LIBRAY(43,1),LIBRAY(43,2),LIBRAY(43,3),LIBRAY(43,4),
     * LIBRAY(43,5),LIBRAY(43,6),LIBRAY(43,7),LIBRAY(43,8),LIBRAY(43,9)/
     *                          'OOOOOOO','      O','     O ','    O  ',       Z
     *'   O   ','  O    ',' O     ','O      ','OOOOOOO'/                       Z
      DATA LIBRAY(44,1),LIBRAY(44,2),LIBRAY(44,3),LIBRAY(44,4),
     * LIBRAY(44,5),LIBRAY(44,6),LIBRAY(44,7),LIBRAY(44,8),LIBRAY(44,9)/
     *                          ' OOOOO ','O     O','O    OO','O   O O',       0
     *'O  O  O','O O   O','OO    O','O     O',' OOOOO '/                       0
      DATA LIBRAY(45,1),LIBRAY(45,2),LIBRAY(45,3),LIBRAY(45,4),
     * LIBRAY(45,5),LIBRAY(45,6),LIBRAY(45,7),LIBRAY(45,8),LIBRAY(45,9)/
     *                          '   O   ','  OO   ','   O   ','   O   ',       1
     *'   O   ','   O   ','   O   ','   O   ','OOOOOOO'/                       1
      DATA LIBRAY(46,1),LIBRAY(46,2),LIBRAY(46,3),LIBRAY(46,4),
     * LIBRAY(46,5),LIBRAY(46,6),LIBRAY(46,7),LIBRAY(46,8),LIBRAY(46,9)/
     *                          ' OOOOO ','O     O','     O ','    O  ',       2
     *'   O   ','  O    ',' O     ','O     O','OOOOOOO'/                       2
      DATA LIBRAY(47,1),LIBRAY(47,2),LIBRAY(47,3),LIBRAY(47,4),
     * LIBRAY(47,5),LIBRAY(47,6),LIBRAY(47,7),LIBRAY(47,8),LIBRAY(47,9)/
     *                          ' OOO   ','O   O  ','     O ','    O  ',       3
     *'  OO   ','    O  ','     O ','O   O  ',' OOO   '/                       3
      DATA LIBRAY(48,1),LIBRAY(48,2),LIBRAY(48,3),LIBRAY(48,4),
     * LIBRAY(48,5),LIBRAY(48,6),LIBRAY(48,7),LIBRAY(48,8),LIBRAY(48,9)/
     *                          '    O  ','   OO  ','  O O  ',' O  O  ',       4
     *'OOOOOOO','    O  ','    O  ','    O  ','    O  '/                       4
      DATA LIBRAY(49,1),LIBRAY(49,2),LIBRAY(49,3),LIBRAY(49,4),
     * LIBRAY(49,5),LIBRAY(49,6),LIBRAY(49,7),LIBRAY(49,8),LIBRAY(49,9)/
     *                          'OOOOOOO','O      ','O      ',' OOOOO ',       5
     *'      O','      O','      O','O     O',' OOOOO '/                       5
      DATA LIBRAY(50,1),LIBRAY(50,2),LIBRAY(50,3),LIBRAY(50,4),
     * LIBRAY(50,5),LIBRAY(50,6),LIBRAY(50,7),LIBRAY(50,8),LIBRAY(50,9)/
     *                          ' OOOO  ','O      ','O      ','O      ',       6
     *'OOOOOO ','O     O','O     O','O     O',' OOOOO '/                       6
      DATA LIBRAY(51,1),LIBRAY(51,2),LIBRAY(51,3),LIBRAY(51,4),
     * LIBRAY(51,5),LIBRAY(51,6),LIBRAY(51,7),LIBRAY(51,8),LIBRAY(51,9)/
     *                          'OOOOOO ','      O','      O','     O ',       7
     *'    O  ','   O   ','  O    ',' O     ','O      '/                       7
      DATA LIBRAY(52,1),LIBRAY(52,2),LIBRAY(52,3),LIBRAY(52,4),
     * LIBRAY(52,5),LIBRAY(52,6),LIBRAY(52,7),LIBRAY(52,8),LIBRAY(52,9)/
     *                          '  OOO  ',' O   O ',' O   O ',' O   O ',       8
     *'  OOO  ',' O   O ','O     O','O     O',' OOOOO '/                       8
      DATA LIBRAY(53,1),LIBRAY(53,2),LIBRAY(53,3),LIBRAY(53,4),
     * LIBRAY(53,5),LIBRAY(53,6),LIBRAY(53,7),LIBRAY(53,8),LIBRAY(53,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       9
     *' OOOOOO','      O','      O','O     O',' OOOOO '/                       9
C
  100 FORMAT(1X,14A1)
  110 FORMAT(' **',T132,'**')
  120 FORMAT(' ',132('*'))
  130 FORMAT(' **',14(2X,A7),2X,'**')
  140 FORMAT('1')
  150 FORMAT('+  ',14(2X,A7),2X,'  ')
C
C
C     *** HOW MANY COPIES WE WANT ? ***
      READ,COPIES
      PRINT,'  NUMBER OF COPIES FOR THIS RUN ------->',COPIES
C     ********************************
C
      LINES = 1
C  *********************************************************************
C
C     *** READ IN TEXT ***
      READ(5,100,END=1700)(TEXT(I),I=1,14)
C     ********************
 1500 DO 1 I=1,14
C  GENERATE THE CORRECT TABLE INDEX
C
      CONVRT = TEXT(I)
      DBLINT = DBLINT/2048 - 32
      IF ((DBLINT .LT. 0) .OR. (DBLINT .GT. 63)) DBLINT = 0
      ITEST = AS2EB(DBLINT)
C
C        <<< ASSIGN BLOCK>>> ---
         DO 6 JJ=1,9
            STOTXT(LINES,I,JJ) = LIBRAY(ITEST,JJ)
            STRTXT(LINES,I,JJ) = LIBROY(ITEST,JJ)
    6    CONTINUE
C        <<< END OF ASSIGN BLOCK >>> ---
C
    1 CONTINUE
C
C     *** READ IN TEXT ***
C
 1600 READ(5,100,END=1000)(TEXT(I),I=1,14)
C     ********************
      LINES = LINES+1
      IF(LINES.LT.21)GO TO 1500
      PRINT,'  NUMBER OF LINES OF TEXT EXCEEDED 20 LINES'
      GO TO 1800
C
C     *************
C     PRINT ROUTINE
C     *************
C
 1000 DO 2222 I=1,COPIES
      PRINT 140
      PRINT 120
      PRINT 120
      PRINT 110
      PRINT 110
      DO 2224 III=1,LINES
         DO 2223 II=1,9
            PRINT 130,(STOTXT(III,JJ,II),JJ=1,14)
            PRINT 150,(STRTXT(III,JJ,II),JJ=1,14)
 2223    CONTINUE
         PRINT 110
         PRINT 110
 2224 CONTINUE
      PRINT 110
      PRINT 110
      PRINT 120
      PRINT 120
 2222 CONTINUE
      PRINT 140
      GO TO 1800
 1700 PRINT, '  NO TEXT PROVIDED ????????????'
 1800 STOP
      END
[\].
POSTRESRC
C     .TITLE POSTRE - EBCDIC VERSION OF THE POSTER PROGRAM
C
C  27 SEP 77 (PDH) ATTEMPT TO MAKE IT RUN
C  12 SEP 77 (PDH) BEGIN CONVERSION FROM MIKE'S (VE3IXF) PROGRAM
C
      INTEGER LOW/1/,LIMIT/0/,COPIES,LINES
      CHARACTER*1 TEXT(14)
      CHARACTER*7 STOTXT(20,14,9)     ,  STRTXT(20,14,9)
C
C  THE CHARACTERS AVAILABLE IN THIS PROGRAM ARE:
C
      CHARACTER*1  CHAR(53)/' ','\','.','<','(','+','$','*',')','-',
     1'/','>','?',':','#','@','=','A','B','C','D','E','F','G','H','I',
     2'J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y',
     3'Z','0','1','2','3','4','5','6','7','8','9'/
C
C
C       USE:
C
C  FIRST DATA CARD SHOULD CONTAIN AN INTEGER INDICATING THE NUMBER OF
C  COPIES NEEDED.
C  FROM 2ND DATA CARD ONWARDS IS THE TEXT, AND THEY SHOULD BE PLACED
C  IN BETWEEN COLUMN 2 TO 15 INCLUSIVE.
C MAXIMUM NUMBER OF LINES OF TEXT IS 20.
C
      CHARACTER*7 LIBRAY(53,9)
      CHARACTER*7 LIBROY(53,9)
      COMMON /BIG/STOTXT,STRTXT
C
C NEW DATA STARTS HERE *********
C
      DATA LIBROY(1,1),LIBROY(1,2),LIBROY(1,3),LIBROY(1,4),LIBROY(1,5),
     *     LIBROY(1,6),LIBROY(1,7),LIBROY(1,8),LIBROY(1,9)/
     *                         '       ','       ','       ','       ',    BLANK
     *'       ','       ','       ','       ','       '/                   BLANK
      DATA LIBROY(2,1),LIBROY(2,2),LIBROY(2,3),LIBROY(2,4),LIBROY(2,5),
     *     LIBROY(2,6),LIBROY(2,7),LIBROY(2,8),LIBROY(2,9)/
     *                         '   *   ','   *   ',' ******','*  *   ',        \
     *'*  *   ','*  *   ',' ******','   *   ','   *   '/                       \
      DATA LIBROY(3,1),LIBROY(3,2),LIBROY(3,3),LIBROY(3,4),LIBROY(3,5),
     *     LIBROY(3,6),LIBROY(3,7),LIBROY(3,8),LIBROY(3,9)/
     *                         '       ','       ','       ','       ',        .
     *'       ','       ','       ','       ','*      '/                       .
      DATA LIBROY(4,1),LIBROY(4,2),LIBROY(4,3),LIBROY(4,4),LIBROY(4,5),
     *     LIBROY(4,6),LIBROY(4,7),LIBROY(4,8),LIBROY(4,9)/
     *                         '      *','     * ','    *  ','   *   ',        <
     *'  *    ','   *   ','    *  ','     * ','      *'/                       <
      DATA LIBROY(5,1),LIBROY(5,2),LIBROY(5,3),LIBROY(5,4),LIBROY(5,5),
     *     LIBROY(5,6),LIBROY(5,7),LIBROY(5,8),LIBROY(5,9)/
     *                         '      *','     * ','    *  ','   *   ',
     *'   *   ','   *   ','    *  ','     * ','      *'/                       (
      DATA LIBROY(6,1),LIBROY(6,2),LIBROY(6,3),LIBROY(6,4),LIBROY(6,5),
     *     LIBROY(6,6),LIBROY(6,7),LIBROY(6,8),LIBROY(6,9)/
     *                         '   *   ','   *   ','   *   ','   *   ',        +
     *'*******','   *   ','   *   ','   *   ','   *   '/                       +
      DATA LIBROY(7,1),LIBROY(7,2),LIBROY(7,3),LIBROY(7,4),LIBROY(7,5),
     *     LIBROY(7,6),LIBROY(7,7),LIBROY(7,8),LIBROY(7,9)/
     *                         '   *   ',' ******','*  *   ','*  *   ',        $
     *' ***** ','   *  *','   *  *','****** ','   *   '/                       $
      DATA LIBROY(8,1),LIBROY(8,2),LIBROY(8,3),LIBROY(8,4),LIBROY(8,5),
     *     LIBROY(8,6),LIBROY(8,7),LIBROY(8,8),LIBROY(8,9)/
     *                         '   *   ','*  *  *',' * * * ','  ***  ',        *
     *'   *   ','  ***  ',' * * * ','*  *  *','   *   '/                       *
      DATA LIBROY(9,1),LIBROY(9,2),LIBROY(9,3),LIBROY(9,4),LIBROY(9,5),
     *     LIBROY(9,6),LIBROY(9,7),LIBROY(9,8),LIBROY(9,9)/
     *                         '*      ',' *     ','  *    ','   *   ',
     *'   *   ','   *   ','  *    ',' *     ','*      '/                       )
      DATA LIBROY(10,1),LIBROY(10,2),LIBROY(10,3),LIBROY(10,4),
     * LIBROY(10,5),LIBROY(10,6),LIBROY(10,7),LIBROY(10,8),LIBROY(10,9)/
     *                          '       ','       ','       ','       ',       -
     *'*******','       ','       ','       ','       '/                       -
      DATA LIBROY(11,1),LIBROY(11,2),LIBROY(11,3),LIBROY(11,4),
     * LIBROY(11,5),LIBROY(11,6),LIBROY(11,7),LIBROY(11,8),LIBROY(11,9)/
     *                          '       ','      *','     * ','    *  ',       /
     *'   *   ','  *    ',' *     ','*      ','       '/                       /
      DATA LIBROY(12,1),LIBROY(12,2),LIBROY(12,3),LIBROY(12,4),
     * LIBROY(12,5),LIBROY(12,6),LIBROY(12,7),LIBROY(12,8),LIBROY(12,9)/
     *                          '*      ',' *     ','  *    ','   *   ',       >
     *'    *  ','   *   ','  *    ',' *     ','*      '/                       >
      DATA LIBROY(13,1),LIBROY(13,2),LIBROY(13,3),LIBROY(13,4),
     * LIBROY(13,5),LIBROY(13,6),LIBROY(13,7),LIBROY(13,8),LIBROY(13,9)/
     *                          '  ***  ',' *   * ','*     *','     * ',       ?
     *'    *  ','   *   ','   *   ','       ','   *   '/                       ?
      DATA LIBROY(14,1),LIBROY(14,2),LIBROY(14,3),LIBROY(14,4),
     * LIBROY(14,5),LIBROY(14,6),LIBROY(14,7),LIBROY(14,8),LIBROY(14,9)/
     *                          '       ','       ','       ','   *   ',       :
     *'       ','   *   ','       ','       ','       '/                       :
      DATA LIBROY(15,1),LIBROY(15,2),LIBROY(15,3),LIBROY(15,4),
     * LIBROY(15,5),LIBROY(15,6),LIBROY(15,7),LIBROY(15,8),LIBROY(15,9)/
     *                          '    *  ','  * *  ','  * *  ',' ******',       #
     *'  * *  ','****** ','  * *  ','  * *  ','  *    '/                       #
      DATA LIBROY(16,1),LIBROY(16,2),LIBROY(16,3),LIBROY(16,4),
     * LIBROY(16,5),LIBROY(16,6),LIBROY(16,7),LIBROY(16,8),LIBROY(16,9)/
     *                          '****** ','      *','      *','      *',       @
     *' ***  *','*   * *','*   * *','*   * *',' ***** '/                       @
      DATA LIBROY(17,1),LIBROY(17,2),LIBROY(17,3),LIBROY(17,4),
     * LIBROY(17,5),LIBROY(17,6),LIBROY(17,7),LIBROY(17,8),LIBROY(17,9)/
     *                          '       ','       ','       ','*******',       =
     *'       ','*******','       ','       ','       '/                       =
      DATA LIBROY(18,1),LIBROY(18,2),LIBROY(18,3),LIBROY(18,4),
     * LIBROY(18,5),LIBROY(18,6),LIBROY(18,7),LIBROY(18,8),LIBROY(18,9)/
     *                          '   *   ','  * *  ',' *   * ','*     *',       A
     *'*******','*     *','*     *','*     *','*     *'/                       A
      DATA LIBROY(19,1),LIBROY(19,2),LIBROY(19,3),LIBROY(19,4),
     * LIBROY(19,5),LIBROY(19,6),LIBROY(19,7),LIBROY(19,8),LIBROY(19,9)/
     *                          '*****  ','*    * ','*     *','*    * ',       B
     *'*****  ','*    * ','*     *','*    * ','*****  '/                       B
      DATA LIBROY(20,1),LIBROY(20,2),LIBROY(20,3),LIBROY(20,4),
     * LIBROY(20,5),LIBROY(20,6),LIBROY(20,7),LIBROY(20,8),LIBROY(20,9)/
     *                          ' ******','*      ','*      ','*      ',       C
     *'*      ','*      ','*      ','*      ',' ******'/                       C
      DATA LIBROY(21,1),LIBROY(21,2),LIBROY(21,3),LIBROY(21,4),
     * LIBROY(21,5),LIBROY(21,6),LIBROY(21,7),LIBROY(21,8),LIBROY(21,9)/
     *                          '****   ','*   *  ','*    * ','*     *',       D
     *'*     *','*     *','*    * ','*   *  ','****   '/                       D
      DATA LIBROY(22,1),LIBROY(22,2),LIBROY(22,3),LIBROY(22,4),
     * LIBROY(22,5),LIBROY(22,6),LIBROY(22,7),LIBROY(22,8),LIBROY(22,9)/
     *                          '*******','*      ','*      ','*      ',       E
     *'*****  ','*      ','*      ','*      ','*******'/                       E
      DATA LIBROY(23,1),LIBROY(23,2),LIBROY(23,3),LIBROY(23,4),
     * LIBROY(23,5),LIBROY(23,6),LIBROY(23,7),LIBROY(23,8),LIBROY(23,9)/
     *                          '*******','*      ','*      ','*      ',       F
     *'*****  ','*      ','*      ','*      ','*      '/                       F
      DATA LIBROY(24,1),LIBROY(24,2),LIBROY(24,3),LIBROY(24,4),
     * LIBROY(24,5),LIBROY(24,6),LIBROY(24,7),LIBROY(24,8),LIBROY(24,9)/
     *                          ' ******','*      ','*      ','*      ',       G
     *'*      ','*  *** ','*     *','*     *',' ***** '/                       G
      DATA LIBROY(25,1),LIBROY(25,2),LIBROY(25,3),LIBROY(25,4),
     * LIBROY(25,5),LIBROY(25,6),LIBROY(25,7),LIBROY(25,8),LIBROY(25,9)/
     *                          '*     *','*     *','*     *','*     *',       H
     *'*******','*     *','*     *','*     *','*     *'/                       H
      DATA LIBROY(26,1),LIBROY(26,2),LIBROY(26,3),LIBROY(26,4),
     * LIBROY(26,5),LIBROY(26,6),LIBROY(26,7),LIBROY(26,8),LIBROY(26,9)/
     *                          '*******','   *   ','   *   ','   *   ',       I
     *'   *   ','   *   ','   *   ','   *   ','*******'/                       I
      DATA LIBROY(27,1),LIBROY(27,2),LIBROY(27,3),LIBROY(27,4),
     * LIBROY(27,5),LIBROY(27,6),LIBROY(27,7),LIBROY(27,8),LIBROY(27,9)/
     *                          '*******','   *   ','   *   ','   *   ',       J
     *'   *   ','   *   ','   *   ','* *    ',' *     '/                       J
      DATA LIBROY(28,1),LIBROY(28,2),LIBROY(28,3),LIBROY(28,4),
     * LIBROY(28,5),LIBROY(28,6),LIBROY(28,7),LIBROY(28,8),LIBROY(28,9)/
     *                          '*     *','*    * ','*   *  ','*  *   ',       K
     *'***    ','*  *   ','*   *  ','*    * ','*     *'/                       K
      DATA LIBROY(29,1),LIBROY(29,2),LIBROY(29,3),LIBROY(29,4),
     * LIBROY(29,5),LIBROY(29,6),LIBROY(29,7),LIBROY(29,8),LIBROY(29,9)/
     *                          '*      ','*      ','*      ','*      ',       L
     *'*      ','*      ','*      ','*      ','*******'/                       L
      DATA LIBROY(30,1),LIBROY(30,2),LIBROY(30,3),LIBROY(30,4),
     * LIBROY(30,5),LIBROY(30,6),LIBROY(30,7),LIBROY(30,8),LIBROY(30,9)/
     *                          '*     *','**   **','* * * *','*  *  *',       M
     *'*     *','*     *','*     *','*     *','*     *'/                       M
      DATA LIBROY(31,1),LIBROY(31,2),LIBROY(31,3),LIBROY(31,4),
     * LIBROY(31,5),LIBROY(31,6),LIBROY(31,7),LIBROY(31,8),LIBROY(31,9)/
     *                          '*     *','**    *','* *   *','*  *  *',       N
     *'*   * *','*    **','*     *','*     *','*     *'/                       N
      DATA LIBROY(32,1),LIBROY(32,2),LIBROY(32,3),LIBROY(32,4),
     * LIBROY(32,5),LIBROY(32,6),LIBROY(32,7),LIBROY(32,8),LIBROY(32,9)/
     *                          ' ***** ','*     *','*     *','*     *',       *
     *'*     *','*     *','*     *','*     *',' ***** '/                       *
      DATA LIBROY(33,1),LIBROY(33,2),LIBROY(33,3),LIBROY(33,4),
     * LIBROY(33,5),LIBROY(33,6),LIBROY(33,7),LIBROY(33,8),LIBROY(33,9)/
     *                          ' ***** ','*     *','*     *','*     *',       P
     *'****** ','*      ','*      ','*      ','*      '/                       P
      DATA LIBROY(34,1),LIBROY(34,2),LIBROY(34,3),LIBROY(34,4),
     * LIBROY(34,5),LIBROY(34,6),LIBROY(34,7),LIBROY(34,8),LIBROY(34,9)/
     *                          ' ***** ','*     *','*     *','*     *',       Q
     *'*     *','*     *','*   * *','*    **',' ******'/                       Q
      DATA LIBROY(35,1),LIBROY(35,2),LIBROY(35,3),LIBROY(35,4),
     * LIBROY(35,5),LIBROY(35,6),LIBROY(35,7),LIBROY(35,8),LIBROY(35,9)/
     *                          ' ***** ','*     *','*     *','*     *',       R
     *'****** ','*  *   ','*   *  ','*    * ','*     *'/                       R
      DATA LIBROY(36,1),LIBROY(36,2),LIBROY(36,3),LIBROY(36,4),
     * LIBROY(36,5),LIBROY(36,6),LIBROY(36,7),LIBROY(36,8),LIBROY(36,9)/
     *                          ' ******','*      ','*      ','*      ',       S
     *' ***** ','      *','      *','      *','****** '/                       S
      DATA LIBROY(37,1),LIBROY(37,2),LIBROY(37,3),LIBROY(37,4),
     * LIBROY(37,5),LIBROY(37,6),LIBROY(37,7),LIBROY(37,8),LIBROY(37,9)/
     *                          '*******','   *   ','   *   ','   *   ',
     *'   *   ','   *   ','   *   ','   *   ','   *   '/                       T
      DATA LIBROY(38,1),LIBROY(38,2),LIBROY(38,3),LIBROY(38,4),
     * LIBROY(38,5),LIBROY(38,6),LIBROY(38,7),LIBROY(38,8),LIBROY(38,9)/
     *                          '*     *','*     *','*     *','*     *',       U
     *'*     *','*     *','*     *','*     *',' ***** '/                       U
      DATA LIBROY(39,1),LIBROY(39,2),LIBROY(39,3),LIBROY(39,4),
     * LIBROY(39,5),LIBROY(39,6),LIBROY(39,7),LIBROY(39,8),LIBROY(39,9)/
     *                          '*     *','*     *','*     *','*     *',       V
     *'*     *','*     *',' *   * ','  * *  ','   *   '/                       V
      DATA LIBROY(40,1),LIBROY(40,2),LIBROY(40,3),LIBROY(40,4),
     * LIBROY(40,5),LIBROY(40,6),LIBROY(40,7),LIBROY(40,8),LIBROY(40,9)/
     *                          '*     *','*     *','*     *','*     *',       W
     *'*     *','*     *','*  *  *','* * * *',' *   * '/                       W
      DATA LIBROY(41,1),LIBROY(41,2),LIBROY(41,3),LIBROY(41,4),
     * LIBROY(41,5),LIBROY(41,6),LIBROY(41,7),LIBROY(41,8),LIBROY(41,9)/
     *                          '*     *','*     *',' *   * ','  * *  ',       X
     *'   *   ','  * *  ',' *   * ','*     *','*     *'/                       X
      DATA LIBROY(42,1),LIBROY(42,2),LIBROY(42,3),LIBROY(42,4),
     * LIBROY(42,5),LIBROY(42,6),LIBROY(42,7),LIBROY(42,8),LIBROY(42,9)/
     *                          '*     *','*     *',' *   * ','  * *  ',       Y
     *'   *   ','   *   ','   *   ','   *   ','   *   '/                       Y
      DATA LIBROY(43,1),LIBROY(43,2),LIBROY(43,3),LIBROY(43,4),
     * LIBROY(43,5),LIBROY(43,6),LIBROY(43,7),LIBROY(43,8),LIBROY(43,9)/
     *                          '*******','      *','     * ','    *  ',       Z
     *'   *   ','  *    ',' *     ','*      ','*******'/                       Z
      DATA LIBROY(44,1),LIBROY(44,2),LIBROY(44,3),LIBROY(44,4),
     * LIBROY(44,5),LIBROY(44,6),LIBROY(44,7),LIBROY(44,8),LIBROY(44,9)/
     *                          ' ***** ','*     *','*    **','*   * *',       0
     *'*  *  *','* *   *','**    *','*     *',' ***** '/                       0
      DATA LIBROY(45,1),LIBROY(45,2),LIBROY(45,3),LIBROY(45,4),
     * LIBROY(45,5),LIBROY(45,6),LIBROY(45,7),LIBROY(45,8),LIBROY(45,9)/
     *                          '   *   ','  **   ','   *   ','   *   ',       1
     *'   *   ','   *   ','   *   ','   *   ','*******'/                       1
      DATA LIBROY(46,1),LIBROY(46,2),LIBROY(46,3),LIBROY(46,4),
     * LIBROY(46,5),LIBROY(46,6),LIBROY(46,7),LIBROY(46,8),LIBROY(46,9)/
     *                          ' ***** ','*     *','     * ','    *  ',       2
     *'   *   ','  *    ',' *     ','*     *','*******'/                       2
      DATA LIBROY(47,1),LIBROY(47,2),LIBROY(47,3),LIBROY(47,4),
     * LIBROY(47,5),LIBROY(47,6),LIBROY(47,7),LIBROY(47,8),LIBROY(47,9)/
     *                          ' ***   ','*   *  ','     * ','    *  ',       3
     *'  **   ','    *  ','     * ','*   *  ',' ***   '/                       3
      DATA LIBROY(48,1),LIBROY(48,2),LIBROY(48,3),LIBROY(48,4),
     * LIBROY(48,5),LIBROY(48,6),LIBROY(48,7),LIBROY(48,8),LIBROY(48,9)/
     *                          '    *  ','   **  ','  * *  ',' *  *  ',       4
     *'*******','    *  ','    *  ','    *  ','    *  '/                       4
      DATA LIBROY(49,1),LIBROY(49,2),LIBROY(49,3),LIBROY(49,4),
     * LIBROY(49,5),LIBROY(49,6),LIBROY(49,7),LIBROY(49,8),LIBROY(49,9)/
     *                          '*******','*      ','*      ',' ***** ',
     *'      *','      *','      *','*     *',' ***** '/                       5
      DATA LIBROY(50,1),LIBROY(50,2),LIBROY(50,3),LIBROY(50,4),
     * LIBROY(50,5),LIBROY(50,6),LIBROY(50,7),LIBROY(50,8),LIBROY(50,9)/
     *                          ' ****  ','*      ','*      ','*      ',       6
     *'****** ','*     *','*     *','*     *',' ***** '/                       6
      DATA LIBROY(51,1),LIBROY(51,2),LIBROY(51,3),LIBROY(51,4),
     * LIBROY(51,5),LIBROY(51,6),LIBROY(51,7),LIBROY(51,8),LIBROY(51,9)/
     *                          '****** ','      *','      *','     * ',       7
     *'    *  ','   *   ','  *    ',' *     ','*      '/                       7
      DATA LIBRAY(52,1),LIBRAY(52,2),LIBRAY(52,3),LIBRAY(52,4),
     * LIBRAY(52,5),LIBRAY(52,6),LIBRAY(52,7),LIBRAY(52,8),LIBRAY(52,9)/
     *                          '  ***  ',' *   * ',' *   * ',' *   * ',       8
     *'  ***  ',' *   * ','*     *','*     *',' ***** '/                       8
      DATA LIBRAY(53,1),LIBRAY(53,2),LIBRAY(53,3),LIBRAY(53,4),
     * LIBRAY(53,5),LIBRAY(53,6),LIBRAY(53,7),LIBRAY(53,8),LIBRAY(53,9)/
     *                          ' ***** ','*     *','*     *','*     *',       9
     *' ******','      *','      *','*     *',' ***** '/                       9
C
C  NEW DATA ENDS HERE
C
      DATA LIBRAY( 1,1),LIBRAY( 1,2),LIBRAY( 1,3),LIBRAY( 1,4),
     * LIBRAY( 1,5),LIBRAY( 1,6),LIBRAY( 1,7),LIBRAY( 1,8),LIBRAY( 1,9)/
     *                         '       ','       ','       ','       ',    BLANK
     *'       ','       ','       ','       ','       '/                   BLANK
      DATA LIBRAY( 2,1),LIBRAY( 2,2),LIBRAY( 2,3),LIBRAY( 2,4),
     * LIBRAY( 2,5),LIBRAY( 2,6),LIBRAY( 2,7),LIBRAY( 2,8),LIBRAY( 2,9)/
     *                         '   O   ','   O   ',' OOOOOO','O  O   ',        \
     *'O  O   ','O  O   ',' OOOOOO','   O   ','   O   '/                       \
      DATA LIBRAY( 3,1),LIBRAY( 3,2),LIBRAY( 3,3),LIBRAY( 3,4),
     * LIBRAY( 3,5),LIBRAY( 3,6),LIBRAY( 3,7),LIBRAY( 3,8),LIBRAY( 3,9)/
     *                         '       ','       ','       ','       ',        .
     *'       ','       ','       ','       ','O      '/                       .
      DATA LIBRAY( 4,1),LIBRAY( 4,2),LIBRAY( 4,3),LIBRAY( 4,4),
     * LIBRAY( 4,5),LIBRAY( 4,6),LIBRAY( 4,7),LIBRAY( 4,8),LIBRAY( 4,9)/
     *                         '      O','     O ','    O  ','   O   ',        <
     *'  O    ','   O   ','    O  ','     O ','      O'/                       <
      DATA LIBRAY( 5,1),LIBRAY( 5,2),LIBRAY( 5,3),LIBRAY( 5,4),
     * LIBRAY( 5,5),LIBRAY( 5,6),LIBRAY( 5,7),LIBRAY( 5,8),LIBRAY( 5,9)/
     *                         '      O','     O ','    O  ','   O   ',        (
     *'   O   ','   O   ','    O  ','     O ','      O'/                       (
      DATA LIBRAY( 6,1),LIBRAY( 6,2),LIBRAY( 6,3),LIBRAY( 6,4),
     * LIBRAY( 6,5),LIBRAY( 6,6),LIBRAY( 6,7),LIBRAY( 6,8),LIBRAY( 6,9)/
     *                         '   O   ','   O   ','   O   ','   O   ',        +
     *'OOOOOOO','   O   ','   O   ','   O   ','   O   '/                       +
      DATA LIBRAY( 7,1),LIBRAY( 7,2),LIBRAY( 7,3),LIBRAY( 7,4),
     * LIBRAY( 7,5),LIBRAY( 7,6),LIBRAY( 7,7),LIBRAY( 7,8),LIBRAY( 7,9)/
     *                         '   O   ',' OOOOOO','O  O   ','O  O   ',        $
     *' OOOOO ','   O  O','   O  O','OOOOOO ','   O   '/                       $
      DATA LIBRAY( 8,1),LIBRAY( 8,2),LIBRAY( 8,3),LIBRAY( 8,4),
     * LIBRAY( 8,5),LIBRAY( 8,6),LIBRAY( 8,7),LIBRAY( 8,8),LIBRAY( 8,9)/
     *                         '   O   ','O  O  O',' O O O ','  OOO  ',        *
     *'   O   ','  OOO  ',' O O O ','O  O  O','   O   '/                       *
      DATA LIBRAY( 9,1),LIBRAY( 9,2),LIBRAY( 9,3),LIBRAY( 9,4),
     * LIBRAY( 9,5),LIBRAY( 9,6),LIBRAY( 9,7),LIBRAY( 9,8),LIBRAY( 9,9)/
     *                         'O      ',' O     ','  O    ','   O   ',        )
     *'   O   ','   O   ','  O    ',' O     ','O      '/                       )
      DATA LIBRAY(10,1),LIBRAY(10,2),LIBRAY(10,3),LIBRAY(10,4),
     * LIBRAY(10,5),LIBRAY(10,6),LIBRAY(10,7),LIBRAY(10,8),LIBRAY(10,9)/
     *                          '       ','       ','       ','       ',       -
     *'OOOOOOO','       ','       ','       ','       '/                       -
      DATA LIBRAY(11,1),LIBRAY(11,2),LIBRAY(11,3),LIBRAY(11,4),
     * LIBRAY(11,5),LIBRAY(11,6),LIBRAY(11,7),LIBRAY(11,8),LIBRAY(11,9)/
     *                          '       ','      O','     O ','    O  ',       /
     *'   O   ','  O    ',' O     ','O      ','       '/                       /
      DATA LIBRAY(12,1),LIBRAY(12,2),LIBRAY(12,3),LIBRAY(12,4),
     * LIBRAY(12,5),LIBRAY(12,6),LIBRAY(12,7),LIBRAY(12,8),LIBRAY(12,9)/
     *                          'O      ',' O     ','  O    ','   O   ',       >
     *'    O  ','   O   ','  O    ',' O     ','O      '/                       >
      DATA LIBRAY(13,1),LIBRAY(13,2),LIBRAY(13,3),LIBRAY(13,4),
     * LIBRAY(13,5),LIBRAY(13,6),LIBRAY(13,7),LIBRAY(13,8),LIBRAY(13,9)/
     *                          '  OOO  ',' O   O ','O     O','     O ',       ?
     *'    O  ','   O   ','   O   ','       ','   O   '/                       ?
      DATA LIBRAY(14,1),LIBRAY(14,2),LIBRAY(14,3),LIBRAY(14,4),
     * LIBRAY(14,5),LIBRAY(14,6),LIBRAY(14,7),LIBRAY(14,8),LIBRAY(14,9)/
     *                          '       ','       ','       ','   O   ',       :
     *'       ','   O   ','       ','       ','       '/                       :
      DATA LIBRAY(15,1),LIBRAY(15,2),LIBRAY(15,3),LIBRAY(15,4),
     * LIBRAY(15,5),LIBRAY(15,6),LIBRAY(15,7),LIBRAY(15,8),LIBRAY(15,9)/
     *                          '    O  ','  O O  ','  O O  ',' OOOOOO',       #
     *'  O O  ','OOOOOO ','  O O  ','  O O  ','  O    '/                       #
      DATA LIBRAY(16,1),LIBRAY(16,2),LIBRAY(16,3),LIBRAY(16,4),
     * LIBRAY(16,5),LIBRAY(16,6),LIBRAY(16,7),LIBRAY(16,8),LIBRAY(16,9)/
     *                          'OOOOOO ','      O','      O','      O',       @
     *' OOO  O','O   O O','O   O O','O   O O',' OOOOO '/                       @
      DATA LIBRAY(17,1),LIBRAY(17,2),LIBRAY(17,3),LIBRAY(17,4),
     * LIBRAY(17,5),LIBRAY(17,6),LIBRAY(17,7),LIBRAY(17,8),LIBRAY(17,9)/
     *                          '       ','       ','       ','OOOOOOO',       =
     *'       ','OOOOOOO','       ','       ','       '/                       =
      DATA LIBRAY(18,1),LIBRAY(18,2),LIBRAY(18,3),LIBRAY(18,4),
     * LIBRAY(18,5),LIBRAY(18,6),LIBRAY(18,7),LIBRAY(18,8),LIBRAY(18,9)/
     *                          '   O   ','  O O  ',' O   O ','O     O',       A
     *'OOOOOOO','O     O','O     O','O     O','O     O'/                       A
      DATA LIBRAY(19,1),LIBRAY(19,2),LIBRAY(19,3),LIBRAY(19,4),
     * LIBRAY(19,5),LIBRAY(19,6),LIBRAY(19,7),LIBRAY(19,8),LIBRAY(19,9)/
     *                          'OOOOO  ','O    O ','O     O','O    O ',       B
     *'OOOOO  ','O    O ','O     O','O    O ','OOOOO  '/                       B
      DATA LIBRAY(20,1),LIBRAY(20,2),LIBRAY(20,3),LIBRAY(20,4),
     * LIBRAY(20,5),LIBRAY(20,6),LIBRAY(20,7),LIBRAY(20,8),LIBRAY(20,9)/
     *                          ' OOOOOO','O      ','O      ','O      ',       C
     *'O      ','O      ','O      ','O      ',' OOOOOO'/                       C
      DATA LIBRAY(21,1),LIBRAY(21,2),LIBRAY(21,3),LIBRAY(21,4),
     * LIBRAY(21,5),LIBRAY(21,6),LIBRAY(21,7),LIBRAY(21,8),LIBRAY(21,9)/
     *                          'OOOO   ','O   O  ','O    O ','O     O',       D
     *'O     O','O     O','O    O ','O   O  ','OOOO   '/                       D
      DATA LIBRAY(22,1),LIBRAY(22,2),LIBRAY(22,3),LIBRAY(22,4),
     * LIBRAY(22,5),LIBRAY(22,6),LIBRAY(22,7),LIBRAY(22,8),LIBRAY(22,9)/
     *                          'OOOOOOO','O      ','O      ','O      ',       E
     *'OOOOO  ','O      ','O      ','O      ','OOOOOOO'/                       E
      DATA LIBRAY(23,1),LIBRAY(23,2),LIBRAY(23,3),LIBRAY(23,4),
     * LIBRAY(23,5),LIBRAY(23,6),LIBRAY(23,7),LIBRAY(23,8),LIBRAY(23,9)/
     *                          'OOOOOOO','O      ','O      ','O      ',       F
     *'OOOOO  ','O      ','O      ','O      ','O      '/                       F
      DATA LIBRAY(24,1),LIBRAY(24,2),LIBRAY(24,3),LIBRAY(24,4),
     * LIBRAY(24,5),LIBRAY(24,6),LIBRAY(24,7),LIBRAY(24,8),LIBRAY(24,9)/
     *                          ' OOOOOO','O      ','O      ','O      ',       G
     *'O      ','O  OOO ','O     O','O     O',' OOOOO '/                       G
      DATA LIBRAY(25,1),LIBRAY(25,2),LIBRAY(25,3),LIBRAY(25,4),
     * LIBRAY(25,5),LIBRAY(25,6),LIBRAY(25,7),LIBRAY(25,8),LIBRAY(25,9)/
     *                          'O     O','O     O','O     O','O     O',       H
     *'OOOOOOO','O     O','O     O','O     O','O     O'/                       H
      DATA LIBRAY(26,1),LIBRAY(26,2),LIBRAY(26,3),LIBRAY(26,4),
     * LIBRAY(26,5),LIBRAY(26,6),LIBRAY(26,7),LIBRAY(26,8),LIBRAY(26,9)/
     *                          'OOOOOOO','   O   ','   O   ','   O   ',       I
     *'   O   ','   O   ','   O   ','   O   ','OOOOOOO'/                       I
      DATA LIBRAY(27,1),LIBRAY(27,2),LIBRAY(27,3),LIBRAY(27,4),
     * LIBRAY(27,5),LIBRAY(27,6),LIBRAY(27,7),LIBRAY(27,8),LIBRAY(27,9)/
     *                          'OOOOOOO','   O   ','   O   ','   O   ',       J
     *'   O   ','   O   ','   O   ','O O    ',' O     '/                       J
      DATA LIBRAY(28,1),LIBRAY(28,2),LIBRAY(28,3),LIBRAY(28,4),
     * LIBRAY(28,5),LIBRAY(28,6),LIBRAY(28,7),LIBRAY(28,8),LIBRAY(28,9)/
     *                          'O     O','O    O ','O   O  ','O  O   ',       K
     *'OOO    ','O  O   ','O   O  ','O    O ','O     O'/                       K
      DATA LIBRAY(29,1),LIBRAY(29,2),LIBRAY(29,3),LIBRAY(29,4),
     * LIBRAY(29,5),LIBRAY(29,6),LIBRAY(29,7),LIBRAY(29,8),LIBRAY(29,9)/
     *                          'O      ','O      ','O      ','O      ',       L
     *'O      ','O      ','O      ','O      ','OOOOOOO'/                       L
      DATA LIBRAY(30,1),LIBRAY(30,2),LIBRAY(30,3),LIBRAY(30,4),
     * LIBRAY(30,5),LIBRAY(30,6),LIBRAY(30,7),LIBRAY(30,8),LIBRAY(30,9)/
     *                          'O     O','OO   OO','O O O O','O  O  O',       M
     *'O     O','O     O','O     O','O     O','O     O'/                       M
      DATA LIBRAY(31,1),LIBRAY(31,2),LIBRAY(31,3),LIBRAY(31,4),
     * LIBRAY(31,5),LIBRAY(31,6),LIBRAY(31,7),LIBRAY(31,8),LIBRAY(31,9)/
     *                          'O     O','OO    O','O O   O','O  O  O',       N
     *'O   O O','O    OO','O     O','O     O','O     O'/                       N
      DATA LIBRAY(32,1),LIBRAY(32,2),LIBRAY(32,3),LIBRAY(32,4),
     * LIBRAY(32,5),LIBRAY(32,6),LIBRAY(32,7),LIBRAY(32,8),LIBRAY(32,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       O
     *'O     O','O     O','O     O','O     O',' OOOOO '/                       O
      DATA LIBRAY(33,1),LIBRAY(33,2),LIBRAY(33,3),LIBRAY(33,4),
     * LIBRAY(33,5),LIBRAY(33,6),LIBRAY(33,7),LIBRAY(33,8),LIBRAY(33,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       P
     *'OOOOOO ','O      ','O      ','O      ','O      '/                       P
      DATA LIBRAY(34,1),LIBRAY(34,2),LIBRAY(34,3),LIBRAY(34,4),
     * LIBRAY(34,5),LIBRAY(34,6),LIBRAY(34,7),LIBRAY(34,8),LIBRAY(34,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       Q
     *'O     O','O     O','O   O O','O    OO',' OOOOOO'/                       Q
      DATA LIBRAY(35,1),LIBRAY(35,2),LIBRAY(35,3),LIBRAY(35,4),
     * LIBRAY(35,5),LIBRAY(35,6),LIBRAY(35,7),LIBRAY(35,8),LIBRAY(35,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       R
     *'OOOOOO ','O  O   ','O   O  ','O    O ','O     O'/                       R
      DATA LIBRAY(36,1),LIBRAY(36,2),LIBRAY(36,3),LIBRAY(36,4),
     * LIBRAY(36,5),LIBRAY(36,6),LIBRAY(36,7),LIBRAY(36,8),LIBRAY(36,9)/
     *                          ' OOOOOO','O      ','O      ','O      ',       S
     *' OOOOO ','      O','      O','      O','OOOOOO '/                       S
      DATA LIBRAY(37,1),LIBRAY(37,2),LIBRAY(37,3),LIBRAY(37,4),
     * LIBRAY(37,5),LIBRAY(37,6),LIBRAY(37,7),LIBRAY(37,8),LIBRAY(37,9)/
     *                          'OOOOOOO','   O   ','   O   ','   O   ',       T
     *'   O   ','   O   ','   O   ','   O   ','   O   '/                       T
      DATA LIBRAY(38,1),LIBRAY(38,2),LIBRAY(38,3),LIBRAY(38,4),
     * LIBRAY(38,5),LIBRAY(38,6),LIBRAY(38,7),LIBRAY(38,8),LIBRAY(38,9)/
     *                          'O     O','O     O','O     O','O     O',       U
     *'O     O','O     O','O     O','O     O',' OOOOO '/                       U
      DATA LIBRAY(39,1),LIBRAY(39,2),LIBRAY(39,3),LIBRAY(39,4),
     * LIBRAY(39,5),LIBRAY(39,6),LIBRAY(39,7),LIBRAY(39,8),LIBRAY(39,9)/
     *                          'O     O','O     O','O     O','O     O',       V
     *'O     O','O     O',' O   O ','  O O  ','   O   '/                       V
      DATA LIBRAY(40,1),LIBRAY(40,2),LIBRAY(40,3),LIBRAY(40,4),
     * LIBRAY(40,5),LIBRAY(40,6),LIBRAY(40,7),LIBRAY(40,8),LIBRAY(40,9)/
     *                          'O     O','O     O','O     O','O     O',       W
     *'O     O','O     O','O  O  O','O O O O',' O   O '/                       W
      DATA LIBRAY(41,1),LIBRAY(41,2),LIBRAY(41,3),LIBRAY(41,4),
     * LIBRAY(41,5),LIBRAY(41,6),LIBRAY(41,7),LIBRAY(41,8),LIBRAY(41,9)/
     *                          'O     O','O     O',' O   O ','  O O  ',       X
     *'   O   ','  O O  ',' O   O ','O     O','O     O'/                       X
      DATA LIBRAY(42,1),LIBRAY(42,2),LIBRAY(42,3),LIBRAY(42,4),
     * LIBRAY(42,5),LIBRAY(42,6),LIBRAY(42,7),LIBRAY(42,8),LIBRAY(42,9)/
     *                          'O     O','O     O',' O   O ','  O O  ',       Y
     *'   O   ','   O   ','   O   ','   O   ','   O   '/                       Y
      DATA LIBRAY(43,1),LIBRAY(43,2),LIBRAY(43,3),LIBRAY(43,4),
     * LIBRAY(43,5),LIBRAY(43,6),LIBRAY(43,7),LIBRAY(43,8),LIBRAY(43,9)/
     *                          'OOOOOOO','      O','     O ','    O  ',       Z
     *'   O   ','  O    ',' O     ','O      ','OOOOOOO'/                       Z
      DATA LIBRAY(44,1),LIBRAY(44,2),LIBRAY(44,3),LIBRAY(44,4),
     * LIBRAY(44,5),LIBRAY(44,6),LIBRAY(44,7),LIBRAY(44,8),LIBRAY(44,9)/
     *                          ' OOOOO ','O     O','O    OO','O   O O',       0
     *'O  O  O','O O   O','OO    O','O     O',' OOOOO '/                       0
      DATA LIBRAY(45,1),LIBRAY(45,2),LIBRAY(45,3),LIBRAY(45,4),
     * LIBRAY(45,5),LIBRAY(45,6),LIBRAY(45,7),LIBRAY(45,8),LIBRAY(45,9)/
     *                          '   O   ','  OO   ','   O   ','   O   ',       1
     *'   O   ','   O   ','   O   ','   O   ','OOOOOOO'/                       1
      DATA LIBRAY(46,1),LIBRAY(46,2),LIBRAY(46,3),LIBRAY(46,4),
     * LIBRAY(46,5),LIBRAY(46,6),LIBRAY(46,7),LIBRAY(46,8),LIBRAY(46,9)/
     *                          ' OOOOO ','O     O','     O ','    O  ',       2
     *'   O   ','  O    ',' O     ','O     O','OOOOOOO'/                       2
      DATA LIBRAY(47,1),LIBRAY(47,2),LIBRAY(47,3),LIBRAY(47,4),
     * LIBRAY(47,5),LIBRAY(47,6),LIBRAY(47,7),LIBRAY(47,8),LIBRAY(47,9)/
     *                          ' OOO   ','O   O  ','     O ','    O  ',       3
     *'  OO   ','    O  ','     O ','O   O  ',' OOO   '/                       3
      DATA LIBRAY(48,1),LIBRAY(48,2),LIBRAY(48,3),LIBRAY(48,4),
     * LIBRAY(48,5),LIBRAY(48,6),LIBRAY(48,7),LIBRAY(48,8),LIBRAY(48,9)/
     *                          '    O  ','   OO  ','  O O  ',' O  O  ',       4
     *'OOOOOOO','    O  ','    O  ','    O  ','    O  '/                       4
      DATA LIBRAY(49,1),LIBRAY(49,2),LIBRAY(49,3),LIBRAY(49,4),
     * LIBRAY(49,5),LIBRAY(49,6),LIBRAY(49,7),LIBRAY(49,8),LIBRAY(49,9)/
     *                          'OOOOOOO','O      ','O      ',' OOOOO ',       5
     *'      O','      O','      O','O     O',' OOOOO '/                       5
      DATA LIBRAY(50,1),LIBRAY(50,2),LIBRAY(50,3),LIBRAY(50,4),
     * LIBRAY(50,5),LIBRAY(50,6),LIBRAY(50,7),LIBRAY(50,8),LIBRAY(50,9)/
     *                          ' OOOO  ','O      ','O      ','O      ',       6
     *'OOOOOO ','O     O','O     O','O     O',' OOOOO '/                       6
      DATA LIBRAY(51,1),LIBRAY(51,2),LIBRAY(51,3),LIBRAY(51,4),
     * LIBRAY(51,5),LIBRAY(51,6),LIBRAY(51,7),LIBRAY(51,8),LIBRAY(51,9)/
     *                          'OOOOOO ','      O','      O','     O ',       7
     *'    O  ','   O   ','  O    ',' O     ','O      '/                       7
      DATA LIBRAY(52,1),LIBRAY(52,2),LIBRAY(52,3),LIBRAY(52,4),
     * LIBRAY(52,5),LIBRAY(52,6),LIBRAY(52,7),LIBRAY(52,8),LIBRAY(52,9)/
     *                          '  OOO  ',' O   O ',' O   O ',' O   O ',       8
     *'  OOO  ',' O   O ','O     O','O     O',' OOOOO '/                       8
      DATA LIBRAY(53,1),LIBRAY(53,2),LIBRAY(53,3),LIBRAY(53,4),
     * LIBRAY(53,5),LIBRAY(53,6),LIBRAY(53,7),LIBRAY(53,8),LIBRAY(53,9)/
     *                          ' OOOOO ','O     O','O     O','O     O',       9
     *' OOOOOO','      O','      O','O     O',' OOOOO '/                       9
C
  100 FORMAT(1X,14A1)
  110 FORMAT(' **',T132,'**')
  120 FORMAT(' ',132('*'))
  130 FORMAT(' **',14(2X,A7),2X,'**')
  140 FORMAT(10(/))
  150 FORMAT('+  ',14(2X,A7),2X,'  ')
C
      NCHAR = 53
      NHIGH = NCHAR+1
      LMTCK = 7
      ITEST = (LOW+NHIGH)/2
C
C     *** HOW MANY COPIES WE WANT ? ***
      READ,COPIES
      PRINT,'  NUMBER OF COPIES FOR THIS RUN ------->',COPIES
C     ********************************
C
      LINES = 1
C  *********************************************************************
C
C     *** READ IN TEXT ***
      READ(5,100,END=1700)(TEXT(I),I=1,14)
      WRITE (16,*) 'DATA:',TEXT
C     ********************
 1500 DO 1 I=1,14
      WRITE (16,*) 'I,TEXT(I):',I,TEXT(I)
C
         IF(CHAR(ITEST).NE.TEXT(I))GO TO 1400
      WRITE (16,*) 'ASSIGN BLOCK 1'
C
C        <<< ASSIGN BLOCK >>> ---
         DO 2 JJ=1,9
            STOTXT(LINES,I,JJ) = LIBRAY(ITEST,JJ)
            STRTXT(LINES,I,JJ) = LIBROY(ITEST,JJ)
    2    CONTINUE
C        <<< END OF ASSIGN BLOCK >>>---
         GO TO 1
C
C        **********************************
C        BINARY SEARCH PROCESS
C        **********************************
C
 1400    LIMIT = LIMIT+1
      WRITE (16,*) 'ITEST,CHAR(ITEST):',ITEST,CHAR(ITEST)
         IF(CHAR(ITEST).GT.TEXT(I)) GO TO 1201
         LOW = ITEST
         GO TO 1200
 1201    NHIGH = ITEST
 1200    ITEST = (LOW+NHIGH)/2
         IF(LIMIT.LT.LMTCK)GO TO 1300
      WRITE (16,*) 'BLANK CHARACTER ASSIGNMENT'
C
C        <<< BLANK CHARACTER ASSIGN BLOCK >>>---
         DO 3 JJ=1,9
            STOTXT(LINES,I,JJ) = LIBRAY(1,JJ)
            STRTXT(LINES,I,JJ) = LIBRAY(1,JJ)
    3    CONTINUE
C        <<< END OF BLANK CHARACTER ASSIGN BLOCK>>>---
         GO TO 7
C
 1300 IF(CHAR(ITEST).NE.TEXT(I)) GO TO 1400
      WRITE (16,*) 'ITEST,CHAR(ITEST):',ITEST,CHAR(ITEST),
     * 'ASSIGN BLOCK 2'
C
C        <<< ASSIGN BLOCK>>> ---
         DO 6 JJ=1,9
            STOTXT(LINES,I,JJ) = LIBRAY(ITEST,JJ)
            STRTXT(LINES,I,JJ) = LIBROY(ITEST,JJ)
    6    CONTINUE
C        <<< END OF ASSIGN BLOCK >>> ---
C
   7     LIMIT = 0
         LOW = 1
         NHIGH = NCHAR+1
    1 CONTINUE
C     *** END OF BINARY SEARCH PROCESS ***
C
C     *** READ IN TEXT ***
 1600 READ(5,100,END=1000)(TEXT(I),I=1,14)
      WRITE (16,*) 'DATA:',TEXT
C     ********************
      LINES = LINES+1
      IF(LINES.LT.21)GO TO 1500
      PRINT,'  NUMBER OF LINES OF TEXT EXCEEDED 20 LINES'
      GO TO 1800
C
C     *************
C     PRINT ROUTINE
C     *************
C
 1000 DO 2222 I=1,COPIES
      PRINT 140
      PRINT 120
      PRINT 120
      PRINT 110
      PRINT 110
      DO 2224 III=1,LINES
         DO 2223 II=1,9
            PRINT 130,(STOTXT(III,JJ,II),JJ=1,14)
            PRINT 150,(STRTXT(III,JJ,II),JJ=1,14)
 2223    CONTINUE
         PRINT 110
 2224 CONTINUE
      PRINT 110
      PRINT 110
      PRINT 120
      PRINT 120
 2222 CONTINUE
      PRINT 140
      GO TO 1800
 1700 PRINT, '  NO TEXT PROVIDED ????????????'
 1800 STOP
      END
[\].
