)rv comment
set u = 'UNIX'
special keypunch
set un = 'UNIX'
set DEC = 'Digitital Equipment Corporation'
set bdc = 'Biosciences Data Centre'
set p = ' )l2w5ri1p '
no control list
paragraph indent 0
indents (8,0) (12,0)  (16,0)
set i = ' )w3l2r ~ !par.1 )i1 '
set sw = ' !i(-!par.1!) '
set head = ' !count(pt,1,1,integer)  )l2w5r@ !par.1 )l-@i1-u '
set note = '!head(''note !par.1'')'
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 bugs = '!head(''Bugs'') '
set diag = '!head(''Diagnostics'') '
set examples = '!head(''examples !par.1'')'
define manual
! )rv comment 
! set udate = '!filedate(*/*/*,mm,dd,yy)'
! page 1
! title
! )@ !null('!par.2!',,'UBC~!par.2')
!  !udate )-@ Page~~~ )gm !par.1 )-ml2e
! go
! )s !null('!par.2!',,'!head(Description) ')
 
define name
! )rv comment 
! set u.name = '!par.1!'
! call null('!par.3','set section = ''I'' ','set section = ''!par.3'' ')
! call null('!par.4','set udate = ''!filedate(*/*/*,mm,dd,yy)'' ','set udate = ''!par.4!'' ')
! call exist(u.contents,' ','page 1,2,31')
! title
! )@ !par.5!!par.1!(!section!-UBC) )-@
! )@ !udate )-@
! )@ !par.5!!par.1!(!section!-UBC) )-@
! )gm ~--~~~~-- )mle
! go
! )s !head(NAME) !par.1 - !par.2 
! !exist(u.contents,'!u.contents(''!par.1!'',2)!',' ')
 
set unix.head = '!head(''!par.1'')'
set synopsys = '!syn'
set unix.file = '!i(''!par.1'')'
set see = '!head(''see also'') '
define unix.writeup
!call name('!unix.name!','!unix.title','!unix.type')
set lib = ' !files !unix.file(-l!par.1!) contains the object for )@ "!u.name!". )-@ '
set wlib = ' !files !unix.file(-lw) contains the object for )@ "!u.name!". )-@ '
define string.bug
! !bugs since "!u.name!" accepts a string argument which is supposed to be
! null terminated it will blow up if the trailing null byte is missing.
define statsname
! )rv comment
! call name('!par.1','!par.2','!par.3')
! )rv comment
! comment indents at (10,10) (15,10) (20,10)
! tab 32 57
! go
! !head(Note) see the STATS manual page for information on how the control
! cards, formats, and data cards are set up for all of these statistics
! programs.

define stats.ex
! !head('Example')
! assuming that the following control cards and data were in the file control
! one would invoke !u.name! as follows: !u.name! 5=control
! )w20
! !head('Sample Control Cards and Data')
! )r )a

define stats.end
! !head('Sample Outputs')
! a sample printout, and (where applicable) a plot may be 
! obtained by means of the following command:
! )l2
! !u.name! 5=/usr/sample/!u.name!.ex 6=+ ^lpr )l2
! !files !i('/usr/bin/!u.name!') for !u.name itself.
! !i('/usr/sample/!u.name!.ex') contains the sample control cards and data
! above.

comm for zittin's progs
set at = '!46'
