Quelle  kaputt.rtf   Sprache: unbekannt

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\fprq1\fcharset0 Fixedsys;}
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue128;\red0\green128\blue128;\red255\green0\blue255;}
{\*\generator Msftedit 5.41.15.1507;}
\viewkind4\uc1\pard\lang1031\f0\fs16}
       \cf1 \f1 identification \cf0\f0  \cf1 \f1 division \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
       \cf1 \f1 program-id \cf0\f0 \cf2 \f1 . \cf0\f0  \cf4 \f1 calculate \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
\cf6 \f1       *--------------------------------  \cf0\f0 
\par 
\cf6 \f1       * aus Spillner /Linz S.41 \cf0\f0 
\par 
\cf6 \f1       * Berechnung eines Gesamtpreises  \cf0\f0 
\par 
\cf6 \f1       *--------------------------------  \cf0\f0 
\par 
       \cf1 \f1 author \cf0\f0 . "JD".
\par 
       \cf1 \f1 date-written \cf0\f0 . 2.12.2005.
\par 
       \cf1 \f1 date-compiled \cf0\f0 .
\par 
       \cf1 \f1 data \cf0\f0  \cf1 \f1 division \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
       \cf1 \f1 working-storage \cf0\f0  \cf1 \f1 section \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 addon-discount \cf0\f0  \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 result \cf0\f0          \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
       \cf1 \f1 linkage \cf0\f0  \cf1 \f1 section \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
\cf6 \f1       * Grundpreis des Fahrzeuges   \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 baseprice \cf0\f0       \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
\cf6 \f1       * Sondermodellaufschlag  \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 specialprice \cf0\f0    \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
\cf6 \f1       * Preis der Zusatzausstattung  \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 extraprice \cf0\f0      \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
\cf6 \f1       * Anzahl der Zusatzausstattungen  \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 extras \cf0\f0          \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 4 \cf0\f0 )V99.
\par 
\cf6 \f1       * Händlerrabatt  \cf0\f0 
\par 
       \cf3 \f1 77 \cf0\f0  \cf4 \f1 discount \cf0\f0        \cf2 \f1 pic \cf0\f0  9(\cf2 \f1 8 \cf0\f0 )V99.
\par 
       \cf1 \f1 procedure \cf0\f0  \cf1 \f1 division \cf0\f0  \cf1 \f1 using \cf0\f0  \cf4 \f1 baseprice \cf0\f0 \cf2 \f1 , \cf0\f0 
\par 
                                \cf4 \f1 specialprice \cf0\f0 \cf2 \f1 , \cf0\f0 
\par 
                                \cf4 \f1 extraprice \cf0\f0 \cf2 \f1 , \cf0\f0 
\par 
                                \cf4 \f1 extras \cf0\f0 \cf2 \f1 , \cf0\f0 
\par 
                                \cf4 \f1 discount \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
\cf6 \f1       * ermittle den Gesamtpreis  \cf0\f0 
\par 
         \cf1 \f1 if \cf0\f0       \cf4 \f1 extras \cf0\f0  \cf2 \f1 > \cf0\f0 \cf2 \f1 = \cf0\f0  \cf3 \f1 3 \cf0\f0  \cf1 \f1 then \cf0\f0  \cf1 \f1 move \cf0\f0  \cf3 \f1 10 \cf0\f0    \cf1 \f1 to \cf0\f0  \cf4 \f1 addon-discount \cf0\f0 
\par 
         \cf1 \f1 else \cf0\f0  \cf1 \f1 if \cf0\f0  \cf4 \f1 extras \cf0\f0  \cf2 \f1 > \cf0\f0 \cf2 \f1 = \cf0\f0  \cf3 \f1 5 \cf0\f0  \cf1 \f1 then \cf0\f0  \cf1 \f1 move \cf0\f0  \cf3 \f1 15 \cf0\f0    \cf1 \f1 to \cf0\f0  \cf4 \f1 addon-discount \cf0\f0 
\par 
         \cf1 \f1 else \cf0\f0                      \cf1 \f1 move \cf0\f0  \cf3 \f1 0 \cf0\f0     \cf1 \f1 to \cf0\f0  \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
         
\par 
         \cf1 \f1 if \cf0\f0  \cf4 \f1 discount \cf0\f0  \cf2 \f1 > \cf0\f0  \cf4 \f1 addon-discount \cf0\f0  \cf1 \f1 then \cf0\f0 
\par 
           \cf1 \f1 move \cf0\f0  \cf4 \f1 discount \cf0\f0  \cf1 \f1 to \cf0\f0  \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
           
\par 
         \cf1 \f1 compute \cf0\f0  \cf4 \f1 result \cf0\f0  \cf2 \f1 = \cf0\f0 
\par 
             \cf4 \f1 baseprice \cf0\f0  \cf2 \f1 / \cf0\f0  \cf3 \f1 100 \cf0\f0  \cf2 \f1 * \cf0\f0  \cf2 \f1 ( \cf0\f0 \cf3 \f1 100 \cf0\f0  \cf2 \f1 - \cf0\f0  \cf4 \f1 discount \cf0\f0 \cf2 \f1 ) \cf0\f0 
\par 
           \cf2 \f1 + \cf0\f0  \cf4 \f1 specialprice \cf0\f0 
\par 
           \cf2 \f1 + \cf0\f0  \cf4 \f1 extraprice \cf0\f0 \cf2 \f1 / \cf0\f0 \cf3 \f1 100 \cf0\f0 \cf2 \f1 * \cf0\f0 \cf2 \f1 ( \cf0\f0 \cf3 \f1 100 \cf0\f0  \cf2 \f1 - \cf0\f0  \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 ) \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
         
\par 
         \cf1 \f1 display \cf0\f0  \cf2 \f1 "Gesamtpreis des Fahrzeuges =" \cf0\f0 \cf4 \f1 result \cf0\f0 \cf2 \f1 . \cf0\f0 
\par 
         
\par 
        \cf1 \f1 end-program \cf0\f0 \cf4 \f1  calculat \cf0\f0 \cf2 \f1 e \cf0\f0 . }