
titb=!singlespace $Titb
keyw=!singlespace $Keyw
prev=!word 1 of $Prev
next=!word 1 of $Next
upbl=!word 1 of $Upbl
dat1=!word 1 of $Dat1
dat2=!word 1 of $Dat2

saveb=$titb\
$keyw\
$prev\
$next\
$upbl\
$dat1\
$dat2

!read scripts/edfile.proc
!if $error!=$empty
 job=edit
!endif

!read read.proc
