Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0009/block.for
There are 3 other files named block.for in the archive. Click here to see a list.
      BLOCK DATA
      COMMON /LIMIT/LIMMNO,LIMLNO,LIMKNO,LIMEX
      COMMON BASIC (3527)
      COMMON MTABLE (5000)
      COMMON EXBANK (2)
      DATA LIMMNO/5000/,LIMLNO/500/, LIMKNO/100/,LIMEX/2/
	COMMON /LET/ NBLANK,LET(30),NPLUS,NUM(10)
	DATA LET /'A','B','C','D','E','F','G','H','I','J','K',
     1  'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
     2  '/',',','.','-'/
	DATA NUM /'0','1','2','3','4','5','6','7','8','9'/
	DATA NBLANK /'     '/,NPLUS /'+'/
      END