special keypunch
macro case distinction
tabs 5 10 15 20 25 30 35 40 45 50 55 60 65 70
set af = ' '
set PN = ' !page.number(!par.1) '
paragraph 0
text 5 1
width 72
lines 60
define PT
! )rl2 !count(pt) )i+5 

set I = ' )u !null(''!par.1'','' !input '','' !par.1 '') )-u '
set IR = ' )u !par.1 )-u !null(''!par.2'',,'' )b !par.2 '')'
set IP = ' )rli+3 '
set R = ' )-u '
set LP = ' )l2 '
set UX = 'UNIX'
set DS = ' )l2i+3 !generate '
set DE = '!generate(off) )i-3 '
set B = '!par.1'
set RS = ' )l2i+3 '
set RE = ' )li-3 '
set SH = ' )w5rl2 '
set sp.c = ' '
set sp.s = ' '
set sp.f = ' '
set sp.5c = ''
set de = ' '
set sp.00 = ''
set sp.e = '\'

define TL
! )rv comment
! no page
! go
! )s 
! )rj2m@ !null('!par.1','!input','!par.1') )rl2
! !page.number(on)
! !page(roman,2)

no page
go
