Google
 

Trailing-Edge - PDP-10 Archives - DEC-20-OT20A-D-MC9 - 2-exercise-libary/kul05c.for
There are no other files named kul05c.for in the archive.
      INTEGER D1(80,5),D2(80,2),D3(80,5),D4(80,5),D5(80,2),D6(80,5)              
      INTEGER TITEL(20),PARBUF(16,21),X,Y                                        
      INTEGER IDENT,SPACE,UNIT,P1,P2,P3,P5                                       
      INTEGER ONE,ALL,CR,PR                                                      
      LOGICAL ALLFLA,NONFLA,ALGFLA                                               
      DATA SPACE/4H    /                                                         
      DATA ONE,ALL/4H ONE,4H ALL/                                                
      CR = 5                                                                     
      PR = 6                                                                     
      NONFLA = .FALSE.                                                           
      ALLFLA = .FALSE.                                                           
      ALGFLA = .FALSE.                                                           
      READ(CR,100) D1                                                            
      READ(CR,101) D2                                                            
      READ(CR,100) D3                                                            
      READ(CR,100) D4                                                            
      READ(CR,101) D5                                                            
      READ(CR,100) D6                                                            
                                                                                 
      IDENT = SPACE                                                              
      WRITE(PR,109)                                                              
      READ(CR,105) TITEL                                                         
      READ(CR,104)IE,IDENT,UNIT,LIST                                             
      IF(ID