KFSP725 ;DRUKKEN SPOORDOKUMENTEN C725;KFSPD; Quit naar KFSPD [ 11/29/2003   1:16 PM ]
 G 1
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
S1 S R=GEW_D_7_D_(V+53)_D_$L($P(GEW,".",2)) D:+R R3
S1Z Q
 ;
1 S R=72 D ^KFOLE
 ;
2 S FNR=-1
21 S FNR=$N(^HULP($J,"EXTRAS","S",FNR)) G 7:FNR=-1 S KC=$P(^(FNR),D,1),(UR,LN)=0,K=""
23 S UR=$N(@("^"_Q_"FA(US,FNR,UR)")) I UR'=-1 S X=^(UR,3) G 23:'$P(X,D,1) S K=X
25 S:K="" K=@("^"_Q_"KL(^"_Q_"K1(KC),0)") S KN=$P(K,D,2),KN2=$P(K,D,3),KA=$P(K,D,4),KS=$P(K,D,5),KP=$P(K,D,6),KW=$P(K,D,7)
27 S KT=$P(K,D,9),TL=$F("NFDE",KT)-1,KT1=$P(K,D,13),K=@("^"_Q_"FA(US,FNR,0,3)"),PAL=$P($P(K,D,21),"#",1),COL=$P($P(K,D,21),"#",2)
29 S KAR=$P($P(K,D,21),"#",3),GEW=$J($P(K,D,22),0,1) S:'(GEW#1) GEW=GEW\1 I 'PAL,'COL,'KAR,'GEW G 21
 ;
3 W !!!!!!!!!!!!!?V+2,KA W:$L(KA) " " W $E(KN,1,28-$L(KA)),?V+68,"1 5 4"
31 W !?V+2,KN2,!?V+2,KS,!?V+2,$E(KP_"   "_KW,1,28)
33 W !?V+2,KT1,?V+72,1,!!!!!!!
 ;
4 S GEWS=GEW I PAL W ! S LN=LN+1,R=PAL_D_7_D_V D R3 I GEWS D S1 S GEWS=0
41 I COL W ! S LN=LN+1,R=COL_D_7_D_V D R3 I GEWS D S1 S GEWS=0
43 I KAR W ! S LN=LN+1,R=KAR_D_7_D_V D R3 I GEWS D S1 S GEWS=0
45 F I=LN+1:1:28 W !
 ;
5 D S1 W !!!?V+35,DT,# G 21
 ;
7 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
 ;
YZ Q
 ;