C     NAME: CHRSUM
C
C    LANGUAGE:  FORTRAN
C
C    OPERATING SYSTEM:  UNIVERSAL
C
C    ORDER NUMBER:  5428-SE
C
C    PART NUMBER:  000-026366  NOVEMBER 1985
C
C    PRODUCT:  UNIVERSAL VERSAPLOT COLOR RANDOM 2.0
C
C    VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C    A XEROX COMPANY
C
C    Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C    "NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C    INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C    LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C    PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C    REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C    THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C    VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C    AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C    THE COPYRIGHT ACT OF 1976."
C
C
       DIMENSION KNP(16)
C
       DATA KNP/48,49,50,51,52,53,54,55,56,57,65,66,67,68,
     1 69,70/
C
      CALL PLOTS(0,0,0)
C
C...  REDUCE PLOT TO FIT 8.5" WIDE PLOTTER
      CALL FACTOR (.78)
      CALL PLOT(0.0,10.2,3)
      CALL PLOT(8.0,10.2,2)
      CALL PLOT(8.0, 0.0,2)
      CALL PLOT(0.0, 0.0,2)
      CALL PLOT(0.0,10.2,2)
C
C...  PLOT TITLE PARAGRAPH.
C
       CALL SYMBOL(.45,9.8,0.14,
     146HCHARACTERS AVAILABLE IN THE UVS SYMBOL ROUTINE,0.0,46)
       CALL SYMBOL(.25,9.45,0.1,75HCODES NEXT TO EACH SYMBOL ARE: 1. INT
     1EGER CODE USED IN SPECIAL SYMBOL CALL.,0.0,75)
       CALL SYMBOL(3.35,9.30,0.1,43H2. INTERNAL HEXADECIMAL CODE (MODULO
     1 128). ,0.0,43)
       CALL SYMBOL(.25,9.15,0.1,66HSEE THE IVS OPERATING MANUAL FOR CORR
     1ESPONDING PUNCHED CARD CODES.,0.0,66)
C
C... PLOT SYMBOL SET 8 ROWS , 16 SYMBOLS PER ROW.
C
      X=0.25
      M=0
      DO  20  I=1,8
        Y=8.55
        DO  10  J=1,16
          Z=M
          CALL NUMBER(X,Y+.15,.1 ,Z     ,0.0,-1)
          CALL SYMBOL(X   ,Y ,.1 ,KNP(I),0.0,-1)
          CALL SYMBOL(X+.1,Y ,.1 ,KNP(J),0.0,-1)
          CALL SYMBOL(X+.4,Y,.35,M  ,0.0,-1)
          M=M+1
 10       Y=Y-.50
 20     X=X+0.95
C
C...  PLOT CLOSING 'NOTES'.
C
      CALL SYMBOL(.25,0.70,0.1,7HNOTES: ,0.0,7)
       CALL SYMBOL(.95,0.70,0.1,59H 1. THE FIRST 14 SYMBOLS IN THE TABLE
     1 ARE CENTERED SYMBOLS.,0.0,59)
       CALL SYMBOL(.95,.55,.1,55H 2. ALL SYMBOLS ARE ACCESSIBLE VIA SYMB
     1OL NUMBER AND A ,0.0,55)
       CALL SYMBOL(.95,.40,0.10,57H    SUBSET ARE ACCESSIBLE VIA HOLLERI
     1TH PUNCH CARD CODES.,0.0,57)
      CALL PLOT (0.,0.,999)
C
      STOP
      END