Trailing-Edge
-
PDP-10 Archives
-
decuslib20-08
-
decus/20-0175/blkd10.for
There are 3 other files named blkd10.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(3)
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 <S.P.TEST>
C DATA NUMDIR/"4,"3667,"0/
C
C <S.P.JOBS>
C DATA NUMDIR/"4,"417,"0/
C
DATA NUMDIR/"4,"417,"0/
END