Filter
Top Products
ftn7x,l,q,s,c
*
* NAME: FFL
* SOURCE: 92077–18067
* RELOC: 92077–16067
* PGMR: sb
*
* ****************************************************************
* * (C) COPYRIGHT HEWLETT–PACKARD COMPANY 1984. ALL RIGHTS *
* * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, *
* * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT *
* * THE PRIOR WRITTEN CONSENT OF HEWLETT–PACKARD COMPANY. *
* ****************************************************************
*
block data ffl
+,92077–16067 REV.6100 <930709.1609>
*
* Do not alter these declarations !!
*
common /defoptions/ defbanner,header
logical*2 defbanner,header
common /ff/ numffs
integer*2 numffs
common /outputlu/ outputlu
integer*2 outputlu
common /lengths/ printerlength,filelength,
+ printerbanspace,filebanspace
integer*2 printerlength,filelength,
+ printerbanspace,filebanspace
common /optprintmsg/ printmsgquiet
logical*2 printmsgquiet
common /drivers/ driversok
integer*2 driversok(0:3)
*
* Tailor the values within the slashes below according to local tastes
*
data defbanner /.true./ ! print banner before each file?
data header /.true./ ! print header before each file?
data numffs /2/ ! number of form feeds after last file