Quantity Pricing

Isiposs1-price (style br?)


IF test > value1 LENGTH OR
                          @sale-price
                          @price
          value2 1
   then CALL :price-table 
          OR
            @sale-price
            @price
   else WITH= variable reg
              value OR
                      @price
                      @sale-price
          WITH= variable sale
                value AND
                        @price
                        @sale-price
            WHEN sale
              TEXT @regular-price-text
              TEXT " "
              TEXT-STYLE :strike
                TEXT CALL :isiposs1-price-text 
                       ELEMENTS sequence reg
                                last 0
              IF test br?
                 then LINEBREAK
                 else SHIM height 1
                           width 10
            WITH= variable price
                  value OR
                          sale
                          reg
              WHEN sale
                IF test @emphasis-color
                   then FONT color @emphasis-color
                          TEXT @sale-price-text
                   else TEXT @sale-price-text
                TEXT " "
              WITH= variable prtext
                    value CALL :isiposs1-price-text 
                            price
                IF test EQUALS value1 style
                               value2 :big
                   then IMAGE source RENDER text prtext
                                            text-color @emphasis-color
                                            font @display-font
                                            font-size @display-font-size
                              align :absmiddle
                              alt prtext
                   else TEXT-STYLE WHEN EQUALS value1 style
                                               value2 :normal
                                     :bold
                          IF test sale
                             then IF test @emphasis-color
                                     then FONT color @emphasis-color
                                            TEXT prtext
                                     else TEXT prtext
                             else TEXT prtext