Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
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