KOF11 G 1 ;MODULE TEKSTLIJNEN ;Quit naar %F10 [ 08/05/2002  10:10 AM ]
 ;
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
 ;
1 S UUV=1,R="UO\22\3\TEKST\\"_UTL_"\\\\\L" D ^READ S:K="," K="-" G YZ:K="-"
3 S B(105)=UO,B(117)="KOF11" G YZZ:SW12
5 D S1 W ?5,UO F I=2,5,47,57,69,73,75,79 S FP=UL*100+I W @F,"|"
7 D S0 S UTA(UZ)=UL-1,UTEL=UTEL+1,UTB(UTEL)=UZ
 ;
YZ K UO Q
YZZ Q
 ;
SCROL(UO,Funct) 
 Set UO=$G(UO)
 Do SCROL^READ("Tekst",UTL,UO,"","","","L")
 If $G(Funct) Quit K
 Quit:K="-"  Set UO=K
 Set B(105)=UO,B(117)="KOF11"
 Quit
 ;