4 lines
141 B
Text
4 lines
141 B
Text
C *--> FROM UCOMMON.UPPINT
|
|
C PPINIT PROGRAM INDICATOR COMMON BLOCK
|
|
COMMON /UPPINT/ IPPFLG
|
|
C
|