home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31a.dsk / MAY.1987 / ADD.txt next >
Text File  |  2023-02-26  |  938b  |  47 lines
  1.         p ADD
  2. start   ny
  3.         pnd
  4.         laddress.format
  5.         b
  6.         ppr 
  7.         psx 1
  8.         ppr
  9.         ppr        ADD AN ADDRESS
  10.         ppr        --------------
  11.         ppr You may enter up to seven lines.
  12.         ppr For a blank line press space bar.
  13.         ppr Press Return twice when finished.
  14.         ppr        --------------
  15.         ppr
  16.         ppr Enter line no.:
  17. enter   pin (x): =$a
  18.         pcs/$a//
  19.         pgo replace
  20. find    f/((x))/$a/a
  21.         pgo loop1
  22.         pgo append
  23. loop2   psx+1
  24. replace f/((x))/</
  25.         y?
  26.         pgo loop2
  27.         pgo append
  28. loop1   psx+1
  29.         pcs /(x)/8/
  30.         pgo replace
  31.         pgo enter
  32. append  b
  33.         saddresses!<!+
  34.         y
  35. again   pin Add another address (y or n)?: =$b
  36.         pcs/$b/y/
  37.         pgo start
  38.         pcs/$b/Y/
  39.         pgo start
  40.         pcs/$b/n/
  41.         pgo quit
  42.         pcs/$b/N/
  43.         pgo quit
  44.         pgo again
  45. quit    ny
  46.         pdo write
  47.