SUBROUTINE PAGE CHST FLXIO.FLX - SETS /LINES/ PAGLIN TO ZERO C C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C C SUBROUTINE PAGE C C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C C C PURPOSE: C TO GENERATE A NEW PAGE IN THE FLECS LISTING C C USAGE: C CALL PAGE C C METHOD: C SET /LINES/ PAGLIN TO ZERO C C SUBPROGRAMS REQUIRED: C PUT -FLXIO.FLX C PARAMETERS: C NONE C INPUT: C NONE C OUTPUT: C /LINES/ PAGLIN SET TO ZERO C C SIDE EFFECTS: C NONE C C EDIT HISTORY: C BEGUN 19-JUL-80 BY R.CARTER C CHEN$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C $P C C INCLUDE "FLX:FLXSY3" $NOLIST INCLUDE "FLX:FLXSY3" $LIST IF (LSTFLG) PAGLIN = 0 RETURN END