Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50545/blkd10.for
There are 3 other files named blkd10.for in the archive. Click here to see a list.
      BLOCK DATA
C     RENBR(/FIXED INFORMATION FOR RESUME PROGRAM)
C
C     DONALD BARTH, YALE SCHOOL OF MANAGEMENT
C
C     CHARACTERS FOR WHICH TYPESET WIDTHS ARE AVAILABLE
      COMMON/RSMONE/LTRTYP(76)
C
C     PROPORTIONAL WIDTHS OF TYPESET CHARACTERS
      COMMON/RSMTWO/MAXTYP,LNGTYP(76),LNGSPA,LNGBUL,LNGODD,LNGGAP,
     1ITSWID,ITSHIH
C
C     CHARACTERS TO SHIFT DIABLO TYPING 1/120 INCH FOR BOLDING
      COMMON/RSMTHR/LTRDRK(7)
C
C     LOCATION OF THE FILES READ AND WRITTEN BY THIS PROGRAM
      COMMON/RSMFOU/NUMDIR(3),NUMYPS(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     LTRDRK = SEQUENCE TO MOVER DIABLO PRINTHEAD 1/120 INCH
C     THIS IS DONE BY CHANGING WIDTH OF EACH CHARACTER TO 1/120 INCH
C     TYPING A SPACE, THEN CHANGING WIDTH BACK TO 1/12 INCH
C     ESC, ^- OR US, ^B, SPACE, ESC, ^-, VT OR WHATEVER HAS CODE 11
      DATA LTRDRK/
     1"155004020100,"175004020100,"011004020100,
     21H ,
     3"155004020100,"175004020100,"055004020100/
C
C     CHARACTERS IN ORDER IN THE CHARACTER WIDTH TABLE
      DATA LTRTYP/
     1 1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
     2 1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,
     3 1HU,1HV,1HW,1HX,1HY,1HZ,1Ha,1Hb,1Hc,1Hd,
     4 1He,1Hf,1Hg,1Hh,1Hi,1Hj,1Hk,1Hl,1Hm,1Hn,
     5 1Ho,1Hp,1Hq,1Hr,1Hs,1Ht,1Hu,1Hv,1Hw,1Hx,
     6 1Hy,1Hz,1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,
     7 1H8,1H9,1H(,1H),1H-,1H#,1H/,1H%,1H",1H$,
     8 1H,,1H.,1H:,1H;,1H&,1H'/
C
C     WIDTHS OF THE TYPESET CHARACTERS
      DATA LNGTYP/
     1 107, 80, 95, 95, 75, 70,100, 90, 30, 80,
     2  80, 70,120, 95,105, 80,110, 83, 90, 90,
     3 100,100,150,100, 85, 86, 75, 75, 75, 85,
     4  75, 50, 85, 75, 30, 40, 70, 26,120, 75,
     5  85, 75, 85, 45, 70, 50, 75, 75,112, 70,
     6  75, 68, 90, 90, 90, 90, 90, 90, 90, 90,
     7  90, 90, 30, 30, 58, 95, 60,104, 60, 90,
     8  32, 28, 35, 35, 96, 35/
C
C     NUMBER OF CHARACTERS FOR WHICH WE HAVE TYPESET WIDTHS
      DATA MAXTYP/76/
C
C     TYPESET WIDTHS OF SPECIAL CHARACTERS
C     LNGSPA = WIDTH OF A SPACE
C     LNGBUL = WIDTH OF A BULLET AND FOLLOWING SPACE
C     LNGODD = WIDTH OF ANYTHING NOT IN TABLE
C     LNGGAP = WIDTH OF INTERCHARACTER GAP
      DATA LNGSPA,LNGBUL,LNGODD,LNGGAP/28,115,90,14/
C
C     DIMENSIONS OF TYPESET PAGE
C     ITSWID = MAXIMUM WIDTH OF A SINGLE LINE SUMMED OF WIDTHS
C              OF LETTERS IN ABOVE TABLE
C     ITSHIH = MAXIMUM HEIGHT OF A SINGLE PAGE
      DATA ITSWID,ITSHIH/5030,10000/
C
C     NUMDIR = DECSYSTEM10 PROJECT AND PROGRAMMER NUMBER OF
C              ACCOUNT WHERE RESUME AND ADMINISTRATOR FILES
C              ARE STORED
C     NUMYPS = DECSYSTEM10 PROJECT AND PROGRAMMER NUMBER OF
C              ACCOUNT TO WHICH FILES ARE TO BE COPIED BEFORE
C              BEING TYPESET
C     <S.P.RESUME>
      DATA NUMDIR/"4,"722,"0/
C     <S.P.YPS>
      DATA NUMYPS/"4,"76,0/
      END