/*  check_block  29.01.1995  J.Paruzel  .   Procedura  ta przesyîa wyrazy z
zaznaczonego  bloku  tekstu w edytorze ced do programu 'Orto_Slownik' celem
ich sprawdzenia pod wglëdem poprawnoôci gramatycznej */

options results
address 'rexx_ced'

copy block
status 60
line = result
if line ='' then exit

options results
address 'Orto_Slownik'

right=0
DO while (right<= length(line))
 char = ' '
 DO while (~(datatype(char,'A'))) & (right <= length(line))
    right = right + 1                                       /* Szukamy poczatek wyrazu */
    char = substr(line,right,1)
 END
 left = right
 char = 'A'
 DO while (datatype(char,'A')) & (right <= length(line))
    right = right + 1                                       /* Szukamy koniec wyrazu */
    char = substr(line,right,1)
 END
 target = substr(line,left,right-left)
 say target
 ssearch target
 if result='0' then exit
END