program-id. 
    a02-cteni-cmd-stdin-klavesnice.
        *> text argumentů v rámečku CMD-line není povinný
        *> textové řádky jsou povinně v rámečku Stdin  
        *>    musí končit prázdným řádkem "Enter"
        *> zapnutí tlačítka "Interactive" způsobí ignorování standardního vstupu Stdin,
        *>    vstupní řádky jsou povinně z klávesnice na pozici kurzoru v rámečku Result,
        *>    musí končit prázným řádkem "Enter"

data division.
    working-storage section.
        77 RADEK-C pic x(80) value "*".
        77 RADEK-S pic x(80) value "*".
            88 KONEC value " ".

procedure division.
    perform PRECTI-C
    perform PRECTI-S
    stop run.
    
PRECTI-C.
    accept RADEK-C from command-line
    display "----- C = " RADEK-C
    .
PRECTI-S.
    perform until KONEC
        accept RADEK-S 
        if not KONEC
            display "S = " RADEK-S 
        end-if end-perform
    display "----- KONEC"
    .