000100 Identification Division.
000200 Program-Id. OVN101.
000300 Environment Division.
000400 Configuration Section.
000500 Special-Names.
000600     Class Vokaler is
000700           'A' 'O' 'U' 'Å' 'E' 'I' 'Y' 'Ä' 'Ö'
000800     Class Konsonanter Is
000900         'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J' 'K' 'L' 'M'
001000         'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'V' 'W' 'X' 'Z'
001100         .
001200 Data Division.
001300 Working-Storage Section.
001400 01 Texten    Pic X(72).
001500 01 RTexten   Pic X(72).
001600 01 Diverse.
001700    49 AVslutandeblanka Pic 99 Value 0.
001800    49 Textpekare       Pic 99 Value 0.
001900    49 AntalPicture     Pic 99 Value 0.
002000    49 AntalTecken      Pic 99 Value 0.
002100    49 AntalVokaler     Pic 99 Value 0.
002200    49 AntalKonsonanter Pic 99 Value 0.
002300    49 AntalSiffror     Pic 99 Value 0.
002400    49 AntalAndra       Pic 99 Value 0.
002500    49 AndraTecken      Pic X(30) Value Space.
002600    49 StrPekare        Pic 99 Value 1.
002700    49 SparPekare       Pic 99.
002800    49 SparatTecken     Pic X(01).
002900
003000 Procedure Division.
003100     Accept Texten from SYSIN
003200
003300     Move Length of Texten to AntalPicture
003400
003500     Move Function Reverse(Texten) to Rtexten
003600
003700     Inspect Rtexten Tallying AvslutandeBlanka
003800        For Leading Spaces
003900
004000     Compute AntalTecken =
004100             AntalPicture - AvslutandeBlanka
004200
004300     Display '*** Textvariabelns längd    : ' AntalPicture
004400     Display '*** Textvariabelns innehåll : ' Texten
004500     Display '*** Totalt antal tecken     : ' AntalTecken
004600
004700     Perform Varying Textpekare from 1 by 1
004800        Until Textpekare > AntalTecken
004900        Evaluate True
005000            When Texten(Textpekare:1)
005100                 Is Numeric
005200               Add 1 to AntalSiffror
005300
005400            When Texten(Textpekare:1)
005500                 Is Vokaler
005600               Add 1 to AntalVokaler
005700
005800            When Texten(Textpekare:1)
005900                 Is Konsonanter
006000               Add 1 to AntalKonsonanter
006100
006200            When Other
006300               Add 1 to AntalAndra
006400               Perform SparaAndraTecken
006500        End-Evaluate
006600     End-Perform
006700
006800     Display '*** Totalt antal siffror    : ' AntalSiffror
006900     Display '*** Totalt antal vokaler    : ' AntalVokaler
007000     Display '*** Totalt antal konsonanter: ' AntalKonsonanter
007100     Display '*** Antal andra tecken      : ' AntalAndra
007200     Display '*** Andra tecken            : ' AndraTecken
007300
007400     GoBack
007500     .
007600 SparaAndraTecken.
007700     If Texten(Textpekare:1) = Space
007800        Move '_' to SparatTecken
007900     Else
008000        Move Texten(Textpekare:1) to SparatTecken
008100     End-If
008200
008300     String
008400        SparatTecken      Delimited By Size
008500        Space             Delimited By Size
008600        Into AndraTecken
008700        With Pointer StrPekare
008800     End-String
008900     .
009000 End Program OVN101.