KY125F G R23 ; GETALLEN VOLUIT SCHRIJVEN ;KY125F;
 ;
T1 ;UN\DEUX\TROIS\QUATRE\CINQ\SIX\SEPT\HUIT\NEUF
T2 ;DIX\VINGT\TRENTE\QUARANTE\CINQUANTE\SOIXANTE\SEPTANTE\QUATREVINGT\NONANTE
T3 ;ONZE\DOUZE\TREIZE\QUATORZE\QUINZE\SEIZE\DIX-SEPT\DIX-HUIT\DIX-NEUF
T4 ;CENT
T5 ; CENT
T6 ;-\ ET 
T7 ;-\ ET 
T8 ; MILLION 
T9 ; MILLE 
T23 ;VIRGULE 
T25 ;ZERO
 ;
R23 S R=$J(R,1,2),(R0,RS)=+$P(R,".",2),R8=+$P(R,".",1),(RR,RR1)=""
R23A S R4=$P($T(T1),";",2),R5=$P($T(T2),";",2)
R23B S R6=$P($T(T3),";",2)
R23C F R=$L(R8):1:8 S R8="0"_R8
R23D F R=1:1:3 S R8(R)=$E(R8,R*3-2,R*3)
R23E S R="" F R7=1:1:3 S R8=R8(R7) D R23L
R23F S R1="" S R9=0,RL=$L(R),R=R_" " G:RL<59 R23I
R23G F R9=1:1:20 S R2=$P(R," ",1,R9) I $L(R2)>59 G R23H
R23H S R1=$P(R," ",R9,999),R=$P(R," ",1,R9-1)
R23I K R2,R3,R4,R5,R6,R7,R8
R23J S RL=$L(R) I $L(R1) S RL=RL+1+$L(R1)
R23K G R23T
R23L ;3 CIFRES
R23M Q:'R8  S R1=$E(R8,1),R2=$E(R8,2),R3=$E(R8,3) G R23R:R8=1&(R7=2),R23N:'R1 S:R1=1 R=R_$P($T(T4),";",2) S:R1>1 R=R_$P(R4,D,R1)_$P($T(T5),";",2)
R23N I 'R2&'R3 S:R1>1 R=R_"S" G R23R
R23O I R2=1&R3 S:$L(R) R=R_$P($P($T(T6),";",2),D,1+(R3=1)) S R=R_$P(R6,D,R3) G R23R
R23P I R2 S:$L(R) R=R_"-" S R=R_$P(R5,D,R2)
R23Q I R3 S:$L(R) R=R_$P($P($T(T7),";",2),D,1=(R3=1)) S R=R_$P(R4,D,R3)
R23R S:R7=1 R=R_$P($T(T8),";",2) S:R7=2 R=R_$P($T(T9),";",2)
R23S Q
R23T G R23V:$L(RR) S RR=R,RR1=R1,RRL=RL+8,(R,R1,RL)="" G R23V:'RS
R23U S:RRL<60 RR=RR_$P($T(T23),";",2) S:RRL>59 RR1=RR1_$P($T(T23),";",2) S R8=R0,RS="" G R23A
R23V S RL=RL+RRL S:R0<10&(R0>0) RL=RL+4 I RL<60 S:R0<10&(R0>0) RR=RR_$P($T(T25),";",2) S R=RR_R G R23X
R23W S:R0<10&(R0>0) RR1=RR1_$P($T(T25),";",2) S R1=RR1_R,R=RR
R23X K RS,RR,RR1,RRL,R0
R23Z Q
 ;
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36