KTO11 ;MODULE TEKSTLIJNEN ;Quit naar %F10 [ 08/07/2002   3:34 PM ]
 Q
 ;
S0 I UL>$P(UD,D,2) S FP=UL+1*100+1,UL=UL-1 W @F,@F1 S FP=UD*100+1 W @F,@FDL D S3
S0A S UL=UL+1
S0Z Q
 ;
S1 S FP=UL*100+1 W @F,@F1,$C(13),$J(UZ,4)
S1Z Q
 ;
S3 F I=UTEL-($P(UD,D,2)-$P(UD,D,1)):1:UTEL S:$D(UTA(UTB(I))) UTA(UTB(I))=UTA(UTB(I))-1
S3A K UTA(UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))),UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))
S3Z Q
 ;
SCROL(UO,Funct) 
 Set UO=$G(UO)
N1 Do SCROL^READ("Tekst",UTL,UO,"","","","L")
 If $G(Funct) Quit K
 Set:K="," K="-" Quit:K="-"  Set UO=K
 Set UUV=1,B(105)=UO,B(117)="KTO11"
 Quit:$G(ScrolToe)
 Do S1 Write ?5,UO For I=2,5,45,55,67,71,73,79 Set FP=UL*100+I Write @F,"|"
 Do S0 Set UTA(UZ)=UL-1,UTEL=UTEL+1,UTB(UTEL)=UZ
 Quit
 ;