.ENABLE SUBSTITUTION
.100: .ASKS N NAME
PIP SY:[1,31]/RE/CD=[1,10]'N'.*;*
PIP 'N'.*;*/PR/FO
.GOTO 100