$PROD CLTOC KERMIT KER LMU NONE
$ASS USL %2 SI USL SO SO
$POS %1
$IF %4=NONE,P/$EXE FR5,,$23,$4E,NOLO,NOMAP
$IFN %4=NONE,P/$EXE FR5,,$23,$4E
$WEO SO
$REW SO
$ASS SI SO BI BI BO BO
$EXE M5A,,NOLO,NOSC
$WEO BO
$REW BO
$ASS BI BO
$IF %4=NONE,P/$EXE M4EDIT,,NOMAP;$EXE M4EDIT
 ASS UL ULC
 LIB UL
 EDIT MAIN BI
 EXIT
$WEO BO
$REW BO
$ASS BI BO
$EXE TOC
 FIL %3
 NOVERIFY
 OVER %1
 CAT
 EXIT
$ENDDO