KNA1 G 1 ;OPENEN ADRESSEN ; [ 03/16/95  10:56 AM ]
1 S BJ=@("^"_Q_"BA(7)")+.88\1,QN=^(99,1),S=";",(K,X)=100,PNT="........................................"
10 S SL="\\\\\\\\\\\\\\\\\\\\\\\\\\",SPA="                                        ",(SW1,SW3,SW4)=0,SW2=1
11 S Y=SW4+'($N(@("^"_Q_"NA(0,(SW4+1)*100)"))=-1) G:Y=SW4 111 S SW4=Y G 11
111 S X=$N(^(X)) G 12:X=-1 S:($P(^(X),S,16)\100)>SW3 SW3=($P(^(X),S,16)\100) G 111
12 S FP=121+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,$P($T(KNA1),";",2),QN," ",@F5 S X=100,S4=0
13 I SW4>1 S FP=169 W @F,@F5 S FP=155 W @F,"ER BESTAAN ",@F4,SW4," ",@F5,"SCHERMEN."
130 S SW1=($N(@("^"_Q_"NA(0,(SW2+1)*100)"))=-1)
131 S X=$N(^(X)) G 14:X=-1!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 131
14 S FP=2302 W @F,"OP ELKE INGAVE KAN U MET  ,[] TERUG NAAR HET BEGIN VAN ",$P("HET ADRES\HET SCHERM",D,SW2>1+1)
140 S FP=2428 W @F,"-[] TERUG NAAR DE VORIGE RUBRIEK          [] = OK ",@F0 R:SW2=1&'$D(S7) K S S1=SW2*100 I SW4>1 S FP=355 W @F,"SCHERM ",SW2
15 S S1=$N(A(S1)) G 19:S1=-1 S FP=$P(A(S1),S,5)*100+$P(A(S1),S,6)-3 W @F,@F5,":" S FP=$P(A(S1),S,2)*100+$P(A(S1),S,3)
17 S S4=S4+1 W @F W:S4<10 " " W S4,@F6,$P(A(S1),S,1),@F5 G 15
19 S S1=SW2*100 I SW2=1 L
2 S S1=$N(A(S1)) G 35:S1=-1 S S2=A(S1),B($P(S2,S,16))="" I $L($P(S2,S,4)),@$P(S2,S,4) G 2:K'="-" S S1=S1-2 G 2
23 I $L($P(S2,S,7)),@$P(S2,S,14) S S3=@$P(S2,S,7),B($P(S2,S,16))=S3 G 33
25 S FP=2203+F60 W @F,@F1,$P(S2,S,1)," : ",$E(PNT,1,$P(S2,S,9)) W:$L($P(S2,S,10)) !,?2,$P(S2,S,10)
27 S FP=2200+F60+($L($P(S2,S,1))+6) W @F,@F0 R K G 27:K?.E1C.E,YZ:S1=101&(K="") I K="-" G 3:S1=101 S S1=S1-2 G 2
28 I K="," S S1=SW2*100 G 49
3 S X=$P(S2,S,11)_"&'(K[D)&($L(K)'>$P(S2,S,9))!(K="","")" I @X S B($P(S2,S,16))=K,S3=K G 32:S1=101&(K'="-"),33
31 G 25
32 I @("$D(^"_Q_"NA1(B(101)))") S FP=2403+F60 W @F,@F4,"DIT ADRESNUMMER BESTAAT REEDS ",@F5,@F2,@F0 H 2 G 19
320 L @("^"_Q_"NA1(B(101))"):2 E  S FP=2403+F60 W @F,@F4,"ADRES IN GEBRUIK ! ",@F5,@F2,@F0 H 2 G 19
33 S:$L($P(S2,S,8)) S3="S3="_$P(S2,S,8),@S3 S FP=$P(A(S1),S,5)*100+$P(A(S1),S,6)
34 W @F,$E(SPA,1,$P(A(S1),S,9)),$E(SPA,1,$P(A(S1),S,13)),@F,S3 G 2
35 S FP=2203+F60 W @F,@F1,"[] = OPENING OK   ,[] = HERNEMEN : ",@F0 R K G 35:K?.E1C.E,28:K=",",36:K="",35
36 G 7:SW2>1 I B(101) G 37
360 L @("^"_Q_"NA(0,1)"):2 E  S FP=2403+F60 W @F,@F4,"NUMMER IN GEBRUIK ! ",@F5,@F2,@F0 H 2 G 360
362 S B(101)=@("^"_Q_"NA(0,1)"),^(1)=^(1)+1 L @("^"_Q_"NA1(B(101))") S FP=$P(A(101),S,5)*100+$P(A(101),S,6) W @F,B(101),"    "
37 S I=$$UPTRIMAN^vhRtn1(B(102)),T=0
39 S I=$E(I,1,24)_" "_B(101),@("^"_Q_"NA(I,0)")=""
4 S S7="",T=T+100 I $N(B(T))=-1 G 43
40 S (S1,S2,S3)=""
41 F Y=1:1:25 S X=Y+T S:$D(B(X)) S7=S7_B(X) S S7=S7_D
42 S ^(T/100-1)=S7 G 4
43 I T\100<(SW3+1) S ^(T\100-1)=SL,T=T+100 G 43
45 S J="",@("^"_Q_"NA1(B(101))")=I
46 G:SW1 47 S FP=2203+F60 W @F,@F1,"[] = VOLGEND SCHERM    .[] = VOLGEND ADRES : ",@F0 R K G 46:K?.E1C.E,47:K=".",6:K="",46
47 G:SW2>1 5 S S1=101
49 S S1=$N(A(S1)) I S1>0 S FP=$P(A(S1),S,5)*100+$P(A(S1),S,6) W @F,$E(SPA,1,$P(A(S1),S,9)),$E(SPA,1,$P(A(S1),S,13)) G 49
5 G 19:SW2=1!(K=",") S FP=301 W @F,@F1 K A,B S SW2=1,(X,K)=100,S4=0 G 130
6 K A,B S SW2=SW2+1,S4=2,(X,K)=SW2*100 S FP=502 W @F,@F1 G 130
7 K A S (S1,S2,S3)="" F X=1:1:SW3 S B(X)=@("^"_Q_"NA(I,X-1)")
72 S S1=100
74 S S1=$N(B(S1)) G:S1=-1 76 S X=S1\100,Y=S1#100,S3=$P(B(X),D,1,Y-1) S:(Y-1) S3=S3_D S S3=S3_B(S1)_D_$P(B(X),D,Y+1,99),B(X)=S3 G 74
76 F X=1:1:SW3 S ^(X-1)=B(X)
78 G 46
YZ Q
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31