*COMDECK ALASC2DSP
      SUBROUTINE ASC2DSP(VALUE) 
C 
C 
C 
C        THIS ROUTINE CONVERTS THE CHARACTER IN "VALUE" FROM ASCII
C        TO DISPLAY CODE. 
C 
C 
*CALL ALCOMMON
      DIMENSION TABLE(64) 
C 
C 
      DATA MINCNVT,MAXCNVT / 40B , 137B / 
C 
      DATA TABLE /
     1 1R ,1R!,1R",1R#,1R$,1R%,1R&,1R', 
     2 1R(,1R),1R*,1R+,1R,,1R-,1R.,1R/, 
     3 1R0,1R1,1R2,1R3,1R4,1R5,1R6,1R7, 
     4 1R8,1R9,1R:,1R;,1R<,1R=,1R>,1R?, 
     5 1R@,1RA,1RB,1RC,1RD,1RE,1RF,1RG, 
     6 1RH,1RI,1RJ,1RK,1RL,1RM,1RN,1RO, 
     7 1RP,1RQ,1RR,1RS,1RT,1RU,1RV,1RW, 
     8 1RX,1RY,1RZ,1R[,1R\,1R],1R^,1R_/ 
C 
C 
C 
C 
      IF (VALUE.LT.MINCNVT .OR. VALUE.GT.MAXCNVT) GO TO 10
      VALUE = TABLE(VALUE - MINCNVT + 1)
      RETURN
   10 VALUE = BLANK 
      RETURN
      END 
C 
C 
