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