p 
menu    ny
        pnd
        ppr 
        ppr   *******************************
        ppr   * WRITE CORRESPONDENCE SYSTEM *
        ppr   * by William Gillitt          *
        ppr   * Copyright (c) 1987          *
        ppr   * by MicroSPARC, Inc.         *
        ppr   * Concord, MA  01742          *
        ppr   *******************************
        ppr
        ppr    WRITE Options Menu:
        ppr
        ppr    (1) Write a Letter
        ppr    (2) Add an Address
        ppr    (3) Change an Address
        ppr    (4) Address an Envelope
        ppr    (5) Quit
        ppr
select  pin    Select a number (1 - 5):  =$a
        pcs/$a/1/
        pgo LETTER
        pgo ADD
LETTER  ppr 
        ppr
        ppr    WRITE A LETTER
        psr correct
        pdo ADD
CHANGE  pcs/$a/3/
        pgo CC
        pgo ENVLPE
CC      ppr 
        ppr
        ppr    CHANGE AN ADDRESS
        psr correct
        pdo CHANGE
ENVLPE  pcs/$a/4/
        pgo EE
        pgo QUIT
EE      ppr 
        ppr
        ppr    ADDRESS AN ENVELOPE
        psr correct
        pdo ENVELOPE
QUIT    pcs/$a/5/
        pqt
        pgo menu
correct pin    (y or n)? =$b
        pcs/$b/n/
        pgo menu
        pcs/$b/N/
        pgo menu
        pcs/$b/y/
        prt
        pcs/$b/Y/
        prt
        pgo correct