KY125N G R13 ; GETALLEN VOLUIT SCHRIJVEN ;KY125N;
 ;
T10 ;EEN\TWEE\DRIE\VIER\VIJF\ZES\ZEVEN\ACHT\NEGEN
T11 ;TIEN\TWINTIG\DERTIG\VEERTIG\VIJFTIG\ZESTIG\ZEVENTIG\TACHTIG\NEGENTIG
T12 ;ELF\TWAALF\DERTIEN\VEERTIEN\VIJFTIEN\ZESTIEN\ZEVENTIEN\ACHTIEN\NEGENTIEN
T13 ;HONDERD
T14 ;EN
T15 ;EN
T16 ;EN
T17 ;EN
T18 ; MILJOEN 
T19 ;DUIZEND 
T20 ;EENDUIZEND 
T21 ;DUIZEND 
T22 ;KOMMA 
T24 ;NUL
 ;
R13 S R=$J(R,1,2),(R0,RS)=+$P(R,".",2),R7=+$P(R,".",1),(RR,RR1)=""
R13A S R4=$P($T(T10),";",2),R5=$P($T(T11),";",2)
R13B S R6=$P($T(T12),";",2)
R13C F R=$L(R7):1:8 S R7="0"_R7
R134D F R=1:1:3 S R7(R)=$E(R7,R*3-2,R*3)
R13E S R="" F R8=1:1:3 S R7=R7(R8) D R13L
R13F S R1="" S R9=0,RL=$L(R),R=R_" " G:RL<59 R13I
R13G F R9=1:1:20 S R2=$P(R," ",1,R9) I $L(R2)>59 G R13H
R13H S R1=$P(R," ",R9,999),R=$P(R," ",1,R9-1)
R13I K R2,R3,R4,R5,R6,R8,R7
R13J S RL=$L(R) I $L(R1) S RL=RL+1+$L(R1)
R13K G R13T
R13L ;    per 3 cijfers
R13M Q:'R7  S R1=$E(R7,1),R2=$E(R7,2),R3=$E(R7,3) G R13R:R7=1&(R8=2),R13N:'R1 S R=R_$P(R4,D,R1-(R1=1))_$P($T(T13),";",2)
R13N I 'R3 S:R2=1&(R'="") R=R_$P($T(T14),";",2) S R=R_$P(R5,D,R2) G R13R
R130 I R2>1 S R=R_$P(R4,D,R3)_$P($T(T15),";",2)_$P(R5,D,R2) G R13R
R13P I R2=0 S:R'="" R=R_$P($T(T16),";",2) S R=R_$P(R4,D,R3) G R13R
R13Q S:R3<3&'(R="") R=R_$P($T(T17),";",2) S R=R_$P(R6,D,R3)
R13R S:R8=1 R=R_$P($T(T18),";",2) S:R8=2 R=R_$P($T(T19),";",2) I R=$P($T(T20),";",2) S R=$P($T(T21),";",2)
R13S Q
R13T G R13V:$L(RR) S RR=R,RR1=R1,RRL=RL+6,(R,R1,RL)="" G R13V:'RS
R13U S:RRL<60 RR=RR_$P($T(T22),";",2) S:RRL>59 RR1=RR1_$P($T(T22),";",2) S R7=R0,RS="" G R13A
R13V S RL=RL+RRL S:R0<10&(R0>0) RL=RL+3 I RL<60 S:R0<10&(R0>0) RR=RR_$P($T(T24),";",2) S R=RR_R G R13X
R13W S:R0<10&(R0>0) RR1=RR1_$P($T(T24),";",2) S R1=RR1_R,R=RR
R13X K RS,RR,RR1,RRL,R0
R13Z Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36