CBNB-10-PURPS

(EXAMPLE
     :NAME                   CBNB-10-PURPS
     :GENERATEDFORM          "Stiskněte Enter pro ukončení křivky."
     :GLOSS                  ( :ENGLISH
                               "press enter.nb for ending.nb/acc polyline.nb/gen"
                               )
     :TARGETFORM             "Stiskněte Enter pro ukončení křivky."
     :LOGICALFORM
     (R / RST-PURPOSE
          :SPEECHACT IMPERATIVE
          :DOMAIN
          (P / DM::PRESS
               :SPEECHACT IMPERATIVE
               :ACTEE
               (D / OBJECT
                    :NAME GUI-RETURN
                    :CONTEXTUAL-BOUNDNESS NO )
               )

          :RANGE
          (E / DM::END-LINE
               :CONTEXTUAL-BOUNDNESS NO
               :ACTEE (P2 / DM::POLYLINE ) )
          )
     :SET-NAME               |TBCbNb|
     )

Return to index. DNESS NO )