000100 Identification Division.
000200 Program-id. OVN61D. *> Med decimaler
000300 Environment Division.
000400 Configuration Section.
000500 Special-Names.
000600     Decimal-Point is Comma.
000700 Data Division.
000800 Working-Storage Section.
000810 01 Fasta-Varden.
000820    05 Apris1      Pic 9(06) Value 1250.
000830    05 Apris2      Pic 9(06) Value 390.
000840    05 Ant1        Pic 9(02) Value 1.
000850    05 Ant2        Pic 9(02) Value 3.
000860    05 Rab         Pic 9(02) Value 15.
000870    05 Moms        Pic 9(02) Value 25.
000880
000890 01 Beraknade-Varden.
000891    05 Delsumma1   Pic 9(06)V99.
000892    05 Delsumma2   Pic 9(06)V99.
000893    05 Delsumma3   Pic 9(06)V99.
000894    05 Rabatt      Pic 9(06)V99.
000895    05 Attbet      Pic 9(06)V99.
000896    05 Tillmoms    Pic 9(06)V99.
000897    05 Totsumma    Pic 9(06)V99.
000898
000900 01 Diverse-Rader.
001000    05 RadSpace    Pic X(30) Value Space.
001100    05 RadStart    Pic X(30) Value 'Specifikation:'.
001200    05 RadSlut     Pic X(30) Value 'Slut pa Faktura'.
001300
001400 01 Rad1.
001500    05 R1Ant1   Pic X(02).
001600    05          Pic X(02) Value Space.
001700    05          Pic X(20) Value 'Stankskarm, Va-Fram'.
001800    05          Pic X(03) Value 'a '.
001900    05 R1Apris1 Pic Z(06).
002000    05          Pic X(02) Value ':-'.
002100    05          Pic X(02) Value Space.
002200    05 R1Pris   Pic Z(04)99,99.
002300    05          Pic X(02) Value ':-'.
002400
002500 01 Rad2.
002600    05 R2Ant2   Pic x(02).
002700    05          Pic X(02) Value Space.
002800    05          Pic X(20) Value 'Vindrutetorkare'.
002900    05          Pic X(03) Value 'a '.
003000    05 R2Apris2 Pic Z(06).
003100    05          Pic X(02) Value ':-'.
003200    05          Pic X(02) Value Space.
003300    05 R2Pris   Pic Z(04)99,99.
003400    05          Pic X(02) Value ':-'.
003500
003600 01 Rad3.
003700    05          Pic X(37) Value 'Delsumma'.
003800    05 R3Pris   Pic Z(04)99,99.
003900    05          Pic X(02) Value ':-'.
004000
004100 01 Rad4.
004200    05          Pic X(13) Value 'Avgar rabatt'.
004300    05 R4Rab    Pic Z(02).
004400    05          Pic X(01) Value '%'.
004500    05          Pic X(21) Value Space.
004600    05 R4Pris   Pic Z(04)99,99.
004700    05          Pic X(02) Value ':-'.
004800
004900 01 Rad5.
005000    05          Pic X(37) Value 'Att betala exkl Moms'.
005100    05 R5Pris   Pic Z(06),99.
005200    05          Pic X(02) Value ':-'.
005300
005400 01 Rad6.
005500    05          Pic X(16) Value 'Tillkommer moms'.
005600    05 R6Moms   Pic Z(02).
005700    05          Pic X(01) Value '%'.
005800    05          Pic X(18) Value Space.
005900    05 R6Pris   Pic Z(04)99,99.
006000    05          Pic X(02) Value ':-'.
006100
006200 01 Rad7.
006300    05          Pic X(37) Value 'Totalsumma att betala'.
006400    05 R7Pris   Pic Z(04)99,99.
006500    05          Pic X(02) Value ':-'.
006600
008400 Procedure Division.
008500*    Compute Delsumma1 = Ant1 * Apris1
008600     Multiply
008700        Ant1 By Apris1
008800        Giving Delsumma1
008900     End-Multiply
009000
009100     Move Ant1 to R1Ant1
009200     Move APris1 to R1Apris1
009300     Move Delsumma1 to R1Pris
009400
009500*    Compute Delsumma2 = Ant2 * Apris2
009600     Multiply
009700        Ant2 By Apris2
009800        Giving Delsumma2
009900     End-Multiply
010000
010100     Move Ant2 to R2Ant2
010200     Move APris2 to R2Apris2
010300     Move Delsumma2 to R2Pris
010400
010500*    Compute Delsumma3 = Delsumma1 + Delsumma2
010600*    Add Delsumma1 to Delsumma2 Giving Delsumma3
010700     Add Delsumma1 Delsumma2 Giving Delsumma3
010800
010900     Move Delsumma3 to R3Pris
011000
011100*    Compute Rabatt = (Delsumma3 * Rab ) / 100
011200     Multiply  Delsumma3 by Rab giving Rabatt
011210     Divide    Rabatt by 100    giving Rabatt
011220
011300     Move Rab to R4Rab
011400     Move Rabatt To R4Pris
011500
011600*    Compute Attbet = Delsumma3 - Rabatt
011610     Subtract Rabatt from Delsumma3 giving Attbet
011620
011700     Move Attbet To R5Pris
011800
011900*    Compute Tillmoms = (Attbet * Moms ) / 100
011910     Multiply Attbet by Moms giving Tillmoms
011920     Divide Tillmoms by 100 giving Tillmoms
011930
012000     Move Moms to R6Moms
012100     Move Tillmoms To R6Pris
012200
012300*    Compute Totsumma = Attbet + Tillmoms
012301     Add Attbet  Tillmoms giving Totsumma
012310
012400     Move Totsumma To R7Pris
012500
012600     Display RadStart
012700     Display RadSpace
012800     Display Rad1
012900     Display Rad2
013000     Display RadSpace
013100     Display Rad3
013200     Display RadSpace
013300     Display Rad4
013400     Display RadSpace
013500     Display Rad5
013600     Display RadSpace
013700     Display Rad6
013800     Display RadSpace
013900     Display Rad7
014000     Display RadSpace
014100     Display RadSlut
014200     GoBack
014300     .