************************************************
function BRO2SLO(BROJKA)
PRIVATE SLO1,SLO2,SLO3
brojka=abs(brojka)
SLO=' KN'
SLO1=' '
SLO2=' '
SLO3=' '
BROJK=INT(BROJKA)
SET DECIMALS TO 0
OST=(BROJKA-BROJK)*100
IF OST>0
OST=LTRIM(RTRIM(STR(OST)))
OST=LEFT(OST,2)
OST=STRTRAN(OST,'.',' ')
SLO=SLO+' I '+OST+' Lp'
IF BROJK=0
SLO=STRTRAN(SLO,'KN I',' ')
ENDIF
ENDIF
SET DECIMALS TO 0
BROJK=LTRIM(RTRIM(STR(BROJK)))
L_BROJK=LEN(BROJK)
brojk=right('000000000'+brojk,9)
NISTA=0
FOR K=0 TO  2
NISTA=NISTA+VAL(SUBSTR(BROJK,3*K+1,3))
NEXT K
NISTA=NISTA+BROJKA-INT(BROJKA)
IF NISTA=0
SLO=' NULA KN'
RETURN(SLO)
ENDIF
for k=0 to 8 
BRO=SUBSTR(BROJK,9-k,1)
if k=0 .OR. k=3 .OR. K=6 
SLO1(BRO)
IF K=3 .AND. VAL(SUBSTR(BROJK,4,3))>0
IF BRO='2'  .OR. BRO='3' .OR. BRO='4'
SLO='TISUCE'+SLO
ELSE
SLO='TISUCA'+SLO
ENDIF
if val(substr(brojk,5,2))>=12 .AND. VAL(SUBSTR(BROJK,5,2))<=14
SLO=STRTRAN(SLO,'TISUCE','TISUCA')
ENDIF
ENDIF
IF K=6 .AND. VAL(SUBSTR(BROJK,1,3))>0
IF BRO='1' 
SLO='MILIJUN'+SLO
ELSE
SLO='MILIJUNA'+SLO 
ENDIF
ENDIF
ENDIF
IF K= 1 .OR. K=4 .OR. K=7
BRO=SUBSTR(BROJK,9-k,1)
IF BRO<>'1'
SLO=SLO1+SLO
ENDIF
SLO2(BRO)
SLO=SLO2+SLO
ENDIF
IF K=2 .OR. K=5 .OR. K=8
bro=substr(brojk,9-k,1)
slo3(bro)
slo=slo3+slo
ENDIF
SLO=STRTRAN(SLO,'  ',' ')
next
RETURN(SLO)
************************************
FUNCTION SLO1(BRO)
DO CASE 
 CASE BRO='1'
 SLO1='JEDNA'
IF K=6
SLO1='JEDAN'
ENDIF 
CASE BRO='2'
 SLO1='DVI'
IF K=6
SLO1='DVA'
ENDIF
CASE BRO='3'
 SLO1='TRI'
 CASE BRO='4'
 SLO1='CETERI'
CASE BRO='5'
 SLO1='PET'
 CASE BRO='6'
 SLO1='SEST'
CASE BRO='7'
 SLO1='SEDAM'
 CASE BRO='8'
 SLO1='OSAM'
CASE BRO='9'
 SLO1='DEVET'
 CASE BRO='0'
 SLO1='  '
 END CASE
 RETURN(SLO1)
******************************
FUNCTION SLO2(BRO)
DO CASE 
CASE BRO='2'
SLO2='DVADESET'
CASE BRO='3'
SLO2='TRIDESET'
CASE BRO='4'
SLO2='CETRDESET'
CASE BRO='5'
SLO2='PEDESET'
CASE BRO='6'
SLO2='SESDESET'
CASE BRO='7'
SLO2='SEDAMDESET'
CASE BRO='8'
SLO2='OSAMDESET'
CASE BRO='9'
SLO2='DEVEDESET'
CASE BRO='0'
SLO2=''
CASE BRO='1'
BRO1=SUBSTR(BROJK,10-k,1)
DO CASE
 CASE BRO1='0'
  SLO2='DESET'
 CASE BRO1='1'
  SLO2='JEDANAEST'
 CASE BRO1='2'
   SLO2='DVANAEST'
 CASE BRO1='3'
   SLO2='TRINAEST'
 CASE BRO1='4'
  SLO2='CETRNAEST'
 CASE BRO1='5'
  SLO2='PETNAEST'
 CASE BRO1='6'
   SLO2='SESNAEST'
 CASE BRO1='7'
  SLO2='SEDAMNAEST'
 CASE BRO1='8'
  SLO2='OSAMNAEST'
 CASE BRO1='9'
   SLO2='DEVETNAEST'
 ENDCASE
END CASE
RETURN (SLO2)
*--------------------
FUNCTION SLO3(BRO)
DO CASE 
CASE BRO='1'
SLO3='STO'
CASE BRO='2'
SLO3='DVJESTA'
CASE BRO='3'
SLO3='TRISTA'
CASE BRO='4'
SLO3='CETRSTO'
CASE BRO='5'
SLO3='PESTO'
CASE BRO='6'
SLO3='SESTO'
CASE BRO='7'
SLO3='SEDAMSTO'
CASE BRO='8'
SLO3='OSAMSTO'
CASE BRO='9'
SLO3='DEVETSTO'
CASE BRO='0'
SLO3=''
END CASE
RETURN (SLO3)
************************************