no control list
special keypunch
set un = 'UNIX'
set p = ' )l2w5ri1p '
paragraph indent 0
indents (8,0)
set i = ' )w3l2r ~ !par.1 )i1 '
define head 
! !count(pt,1,1,integer) )l2w5ru !par.1 )i1-u !null('!par.2',' )p ',' !par.2 ') 
set pt = ' )l2w5r ~~ !count(pt) )i1 ')
set syn = '!head(''synopsis !par.1'')'
set desc = '!head(''description !par.1'')'
set files = '!head(''files !par.1'')'
set examples = '!head(''examples !par.1'')'
define name
! )rv comment 
! title
! )m !par.1 - !par.2 )ml2e
! go
! )s !head(NAME,~) !par.1 - !par.2 
 
set fc = 'FC'
set where = ' )lw5lr ~ where !var(''!par.1'') '
set var = ' )lw5lr ~~ "!par.1"  )i1 '
tabs 8,16,24
call name(FC,'Fortran 77 compiler user''s guide')
