p ADD
start   ny
        pnd
        laddress.format
        b
        ppr 
        psx 1
        ppr
        ppr        ADD AN ADDRESS
        ppr        --------------
        ppr You may enter up to seven lines.
        ppr For a blank line press space bar.
        ppr Press Return twice when finished.
        ppr        --------------
        ppr
        ppr Enter line no.:
enter   pin (x): =$a
        pcs/$a//
        pgo replace
find    f/((x))/$a/a
        pgo loop1
        pgo append
loop2   psx+1
replace f/((x))/</
        y?
        pgo loop2
        pgo append
loop1   psx+1
        pcs /(x)/8/
        pgo replace
        pgo enter
append  b
        saddresses!<!+
        y
again   pin Add another address (y or n)?: =$b
        pcs/$b/y/
        pgo start
        pcs/$b/Y/
        pgo start
        pcs/$b/n/
        pgo quit
        pcs/$b/N/
        pgo quit
        pgo again
quit    ny
        pdo write