*TRAP ON
*TRANSLATE DMS$DEF_PAPER
*EQUATE <$REGPAPER$> <...TRAN>
*TRAP OFF
*EQUATE <$PAPERTYPE$> <<@Enter form type <$REGPAPER$>  @>>
*IF <...LEN> LT# <1>
*EQUATE <$PAPERTYPE$> <$REGPAPER$>
*ENDIF
*TRAP ON
*TRANSLATE DMS$DEF_PRINT
*EQUATE <$REGPRINT$> <...TRAN>
*TRAP OFF
*EQUATE <$PRINTER$> <<@Print on which printer <$REGPRINT$>  @>>
*IF <...LEN> LT# <1>
*EQUATE <$PRINTER$> <$REGPRINT$>
*ENDIF
*EQUATE/PREV <$PAPERTYPE$> <$PAPERTYPE$>
*EQUATE/PREV <$PRINTER$> <$PRINTER$>
$ !
$ ! <@1? First Budget Responsible Person..@>
*EQUATE <$YR$> <<@Year for Talentstu file (98 etc, blank=current) @>>