Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-08 - decus/20-0175/blkd20.for
There are 3 other files named blkd20.for in the archive. Click here to see a list.
      BLOCK DATA
C
C     COMMON BLOCKS FOR THE JOB INTERVIEW REQUEST SYSTEM
C
C     DONALD BARTH, YALE SCHOOL OF MANAGEMENT
C
C     LOCK USED TO ASSURE THAT THIS BLOCK DATA IS LOADED
      COMMON/JOBONE/LOADED
C
C     LOCATION OF THE ACCOUNT USED TO STORE STUDENT FILES
      COMMON/JOBTWO/NUMDIR
      CHARACTER*40 NUMDIR
C
C     UPPER CASE A-Z, LOWER CASE A-Z AND DIGITS 0-9
      COMMON/RSMFIV/LTRABC(26),LWRABC(26),LTRDGT(10)
C
C     ARRAY CONTAINING UPPER CASE LETTERS A THROUGH Z
      DATA LTRABC /1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
     1 1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,
     2 1HX,1HY,1HZ/
C
C     ARRAY CONTAINING LOWER CASE LETTERS A THROUGH Z
      DATA LWRABC /1Ha,1Hb,1Hc,1Hd,1He,1Hf,1Hg,1Hh,1Hi,1Hj,
     1 1Hk,1Hl,1Hm,1Hn,1Ho,1Hp,1Hq,1Hr,1Hs,1Ht,1Hu,1Hv,1Hw,
     2 1Hx,1Hy,1Hz/
C
C     ARRAY CONTAINING DIGITS 0 THROUGH 9
      DATA LTRDGT /1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/
C
C     LET PROGRAMS KNOW THAT THIS COMMON BLOCK IS LOADED
      DATA LOADED/1234/
C
C     NUMDIR = DECSYSTEM20 ACCOUNT SPECIFICATION WHERE
C              FIRM FILE AND REQUEST FILES ARE STORED
C
C     THIS IS 40 CHARACTERS LONG WITH BLANK FILL
C
C     DATA NUMDIR/'1234567890123456789012345678901234567890'/
      DATA NUMDIR/'S.P.JOBS                                '/
C
      END