[Info-vax] OpenVMS hobbyist license renewal.

[Andy Burns]

Phillip Helbig wrote:

>      | 1:fb <`"s                     !     else if 'From: pp <aa>' sntx, if ' <'!
>          1:fb>`"s                    !       then if ending '>' found!
>            qcj                       !         then go start pers name!
>            s <`-2dqb-2ub             !           find starting ' <' and delete!
>            qc,.xc                    !           store pers name qc!
>            qc,.k                     !           kill pers name!
>            s>`-dqb-1ub               !           find ending '>' and delete!
>            qc,.xlqc,.k               !           store addr in ql and kill!
>          |46^t.:=69^t4:=77^tqq=0tt   !         else bad msg fmt, output err msg!
>          '                           !         endif!
>        |                             !       else!
>          1:fb (`"s                   !         if 'From: aa (pp) sntx, if ' ('!
>            1:fb)`"s                  !         then if ending ')' found!
>              qcj                     !           then go start addr!
>              s (`-2dqb-2ub           !             delete ' (', fix qb!
>              qc,.xlqc,.k             !             put addr ql, delete!
>              s)`-dqb-1ud             !             go end pers, del ')', fix qb!
>              qc,.xcqc,.k             !             put pers name qc, delete!
>            |46^t.:=69^t5:=77^tqq=0tt !           else bad msg fmt, outpt err msg!
>            '                         !           endif!
>          |qcj                        !         else assume single addr case!
>            ::s<`"s-ds>`-dqb-2ub'     !           handle case 'From: <aa>'!
>              l2rqc,.xlqc,.k0,0xc     !           assume 'From: aa' syntax!
That code looks like an example where Kerninghan's "cleverly" quote 
would be apt.