The following example shows how to print each yacht built by
       Pearson, and modify the price if you want to:

       DTR> SET NO PROMPT
       DTR> READY YACHTS WRITE
       DTR> FOR YACHTS WITH BUILDER = "PEARSON"
       CON>    BEGIN
       CON>         PRINT
       CON>         IF *."Y TO MODIFY PRICE, N TO SKIP" CONT "Y"
       CON>            THEN MODIFY PRICE ELSE
       CON>            PRINT "NO CHANGE"
       CON>         IF *."Y TO CONTINUE" NOT CONT "Y" THEN
       CON>            ABORT "END OF PRICE CHANGES"
       CON>    END

                                       LENGTH
                                       OVER
       MANUFACTURER   MODEL     RIG    ALL   WEIGHT BEAM  PRICE

        PEARSON     10M        SLOOP   33    12,441  11
       Enter Y TO MODIFY PRICE, N TO SKIP: N
       NO CHANGE
       Enter Y TO CONTINUE, N TO ABORT: Y
        PEARSON     26         SLOOP   26     5,400  08
       Enter Y TO MODIFY PRICE, N TO SKIP: N
       NO CHANGE
       Enter Y TO CONTINUE, N TO ABORT: N
       ABORT: END OF PRICE CHANGES

       DTR>

       In the following example the IF statement is used to select
       families with fathers named Jim and list the children in those
       families:

       DTR> READY FAMILIES
       DTR> FOR FAMILIES WITH ANY KIDS
       CON>      IF FATHER EQ "JIM" THEN
       CON>         PRINT "The Kids of JIM and"|||MOTHER,
       CON>         ALL KID_NAME ("Kids with Fathers"/
       CON>             "Named Jim") OF KIDS, SKIP

                                      Kids with Fathers
                                          Named Jim

       The Kids of JIM and ANN           URSULA
                                         RALPH

       The Kids of JIM and LOUISE        ANNE
                                         JIM
                                         ELLEN
                                         DAVID
                                         ROBERT

       DTR>