000100 Identification Division.
000200 Program-id. OVN6.
000300 Environment Division.
000400 Configuration Section.
000500 Special-Names.
000600     Decimal-Point is Comma.
000700 Data Division.
000800 Working-Storage Section.
000900 77 RadSpace    Pic X(30) Value Space.
001000 77 RadStart    Pic X(30) Value 'Specifikation:'.
001100 77 RadSlut     Pic X(30) Value 'Slut på Faktura'.
001200
001300 01 Rad1.
001400    05 R1Ant1   Pic X(02).
001500    05          Pic X(02) Value Space.
001600    05          Pic X(23) Value 'Stänkskärm, Vä-Fram,a'.
001700    05 R1Apris1 Pic Z(06).
001800    05          Pic X(02) Value ':-'.
001900    05          Pic X(02) Value Space.
002000    05 R1Pris   Pic Z(04)99.
002100    05          Pic X(02) Value ':-'.
002200
002300 01 Rad2.
002400    05 R2Ant2   Pic x(02).
002500    05          Pic X(02) Value Space.
002600    05          Pic X(23) Value 'Vindrutetorkare, a'.
002700    05 R2Apris2 Pic Z(06).
002800    05          Pic X(02) Value ':-'.
002900    05          Pic X(02) Value Space.
003000    05 R2Pris   Pic Z(04)99.
003100    05          Pic X(02) Value ':-'.
003200
003300 01 Rad3.
003400    05          Pic X(37) Value 'Delsumma'.
003500    05 R3Pris   Pic Z(04)99.
003600    05          Pic X(02) Value ':-'.
003700
003800 01 Rad4.
003900    05          Pic X(13) Value 'Avgår rabatt'.
004000    05 R4Rab    Pic Z(02).
004100    05          Pic X(01) Value '%'.
004200    05          Pic X(21) Value Space.
004300    05 R4Pris   Pic Z(04)99.
004400    05          Pic X(02) Value ':-'.
004500
004600 01 Rad5.
004700    05          Pic X(37) Value 'Att betala exkl Moms'.
004800    05 R5Pris   Pic Z(06).
004900    05          Pic X(02) Value ':-'.
005000
005100 01 Rad6.
005200    05          Pic X(16) Value 'Tillkommer moms'.
005300    05 R6Moms   Pic Z(02).
005400    05          Pic X(01) Value '%'.
005500    05          Pic X(18) Value Space.
005600    05 R6Pris   Pic Z(04)99.
005700    05          Pic X(02) Value ':-'.
005800
005900 01 Rad7.
006000    05          Pic X(37) Value 'Totalsumma att betala'.
006100    05 R7Pris   Pic Z(04)99.
006200    05          Pic X(02) Value ':-'.
006300
006400 77 Apris1      Pic 9(06) Value 1250.
006500 77 Apris2      Pic 9(06) Value 390.
006600 77 Ant1        Pic 9(02) Value 1.
006700 77 Ant2        Pic 9(02) Value 3.
006800 77 Rab         Pic 9(02) Value 15.
006900 77 Moms        Pic 9(02) Value 25.
007000 77 Delsumma1   Pic 9(06).
007100 77 Delsumma2   Pic 9(06).
007200 77 Delsumma3   Pic 9(06).
007300 77 Rabatt      Pic 9(06).
007400 77 Attbet      Pic 9(06).
007500 77 Tillmoms    Pic 9(06).
007600 77 Totsumma    Pic 9(06).
007700
007800 Procedure Division.
007900     Compute Delsumma1 = Ant1 * Apris1
008000     Move Ant1 to R1Ant1
008100     Move APris1 to R1Apris1
008200     Move Delsumma1 to R1Pris
008300
008400     Compute Delsumma2 = Ant2 * Apris2
008500     Move Ant2 to R2Ant2
008600     Move APris2 to R2Apris2
008700     Move Delsumma2 to R2Pris
008800
008900     Compute Delsumma3 = Delsumma1 + Delsumma2
009000     Move Delsumma3 to R3Pris
009100
009200     Compute Rabatt = (Delsumma3 * Rab ) / 100
009300     Move Rab to R4Rab
009400     Move Rabatt To R4Pris
009500
009600     Compute Attbet = Delsumma3 - Rabatt
009700     Move Attbet To R5Pris
009800
009900     Compute Tillmoms = (Attbet * Moms ) / 100
010000     Move Moms to R6Moms
010100     Move Tillmoms To R6Pris
010200
010300     Compute Totsumma = Attbet + Tillmoms
010400     Move Totsumma To R7Pris
010500
010600     Display RadStart
010700     Display RadSpace
010800     Display Rad1
010900     Display Rad2
011000     Display RadSpace
011100     Display Rad3
011200     Display RadSpace
011300     Display Rad4
011400     Display RadSpace
011500     Display Rad5
011600     Display RadSpace
011700     Display Rad6
011800     Display RadSpace
011900     Display Rad7
012000     Display RadSpace
012100     Display RadSlut
012200     GoBack
012300     .