cA235 ;OPENEN \VOLGENS PATROON ;%A200 ; [ 01/23/96 5:01 PM ] G 1 ; T0 ;Openen \volgens patroon ; T1 ;Er bestaan ;schermen.; T2 ;Op elke ingave kan u met ,[] terug naar het begin;-[] terug naar de vorige rubriek [] = ok ; T3 ;Scherm ; T4 ;Volgend scherm\"[] = volgend scherm .[] = ; ; T0F ;Création du fichier \suivant masque ; T1F ;Il y a ;écrans.; T2F ;A chaque introduction avec ,[] vous revenez au début; -[] vous revenez à la rubrique precedente [] = ok ; T3F ;Ecran ; T4F ;Ecran suivant\"[] = écran suivant .[] = ; ; T0E ;Openen \volgens patroon ; T1E ;Er bestaan ;schermen.; T2E ;Op elke ingave kan u met ,[] terug naar het begin;-[] terug naar de vorige rubriek [] = ok ; T3E ;Scherm ; T4E ;Volgend scherm\"[] = volgend scherm .[] = ; ; S2 S FP=$P(U2,U,5)*100+$P(U2,U,6) W:'SW5!(SW5&SW6) @F,$J("",$P(U2,U,9)+$P(U2,U,13)) G S2Z:'SW5!(U1<103&SW6) S2A I '$P(U2,U,23) S FP=FP-2 W @F,": " S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U),@F9 S2Z Q ; 1 S Q3="^"_Q_Q1_"(0,1)",Q4="^"_Q_Q2_"(NR)",VFP=$G(VFP) 11 S K=$P(@("^"_Q_Q1_"(0,0)"),U) 110 I 'VFP S K=$P($P($T(@("T0"_QT)),U,2),D)_K_" "_$P($P($T(+1),U,2),D,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 111 I VFP S FP=VFP W @F,@F1 12 S SL=D,$P(SL,D,25)=D,(SW1,SW3,SW4,SW6)=0,(SW2,SW5)=1,SW7="",X3=$G(@("^"_Q_Q1_"(0,2)")) D SO^cA243 120 S X=0,Y=100 121 S R=$O(^(X+1*100)) I R\100-1=X S X=X+1 G 121 122 S Y=$O(^(Y)) I Y\100,Y\100'>X S R=$P(^(Y),U,16)\100 S:R>SW3 SW3=R G 122 13 S R="UP\2000\"_Q1 D ^cA221 G YZ:K="-"!(K=",") 14 S X=$D(@("^"_Q_"BA(""%A"",1,Q1,UP,0)")) X "F X=1:1:SW3 D S4" S C(0)=0,(X,Y)=100,K=$S(VFP:VFP\100-1,1:3),R=0 K ^HULP(boot,$J) 15 S X=$O(@("^"_Q_Q1_"(0,X)")) G 17:X'?1.N S U2=^(X),I=$P(U2,U,16) S:'R R=$P(U2,U,3) G 15:$P(C(I\100),D,I#100)'="?" 16 S K=K+1,Y=Y+1 S:K>19 K=$S(VFP:VFP\100+2,1:6),Y=Y\100+1*100+1 S $P(U2,U,2)=K,$P(U2,U,3)=R,$P(U2,U,5)=K,^HULP(boot,$J,Y)=U2 G 15 17 S X=$D(^HULP(boot,$J,0)) 18 S X=$O(^(SW4+1*100)) I X'="" S SW4=SW4+1 G 18 19 I SW4>1 S FP=$S(VFP:VFP\100,1:2)_69 W @F,@F5 S FP=FP-15,K=$T(@("T1"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) 21 I 'VFP S FP=2203+F60,K=$T(@("T2"_QT)) W @F,$P(K,U,2) S FP=2329+F60 W @F,$P(K,U,3),@F0 R K G YZ:K="-" 25 F X=1:1:SW3 S B(X)=C(X) D S5 27 D S1 I SW4>1 S FP=$S(VFP:VFP\100+1_(54+$L($P($T(@("T1"_QT)),U,2))+4+$L(SW4)),1:355) W @F,$P($T(@("T3"_QT)),U,2),SW2 29 S U1=$O(A(U1)) I U1'="" S U2=A(U1) D S2 G 29 31 S SW6=1 D ^cA202 G YZ:K="-",93:K=",",7 ; 33 S (SW2,SW5)=1,FP=$S(VFP:VFP\100+2,1:6)_"01" W @F,@F1 D S3 G 27 35 S SW5=1,SW2=SW2+1,FP=$S(VFP:VFP\100+2,1:6)_"01" W @F,@F1 D S3 F X=1:1:SW3 S B(X)=@("^"_Q_Q1_"(I,X-1)") 37 G 27 ; 7 G 73:$L(NR) L @Q3:2 E S R=14 D F2 G 7 71 S NR=@Q3,^(1)=^(1)+1 G 71:$D(@Q4) L @Q4:2 E S NR="" G 7 72 S FP=$P(A(101),U,5)*100+$P(A(101),U,6),B(1)=NR_D_$P(B(1),D,2,99) W @F,NR," " 73 I SW2=1,$D(@Q4) S R=12 D F2,7^cA202 G YZ:K="-",93:K=",",73 75 I $D(X3),$L($P(X3,U)) K OK D @$P(X3,U) G 87:OK=1 I 'OK D 7^cA202 G YZ:K="-",93:K=",",73 ; 79 D ^cA218 83 S @%Q1=0 F X=1:1:SW3 S @("^"_Q_Q1_"(I,X-1)")=B(X) 85 S @Q4=I,@%Q1=1 87 I 'SW1 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_X4_"""\1\\"".""[K" D R0 G 35:K="" 89 F X=1:1:SW3 S B(X)=C(X) D S5 91 G 95:SW2>1 S U1=101 93 S U1=$O(A(U1)) I U1'="" S U2=A(U1) D S2 G 93 95 G 31:U4="," I $D(X3),$L($P(X3,U,2)) D @$P(X3,U,2) 97 G 31:SW2=1,33 ; YZ K A,B,C,^HULP(boot,$J) Q ; S1 S SW1=$O(^HULP(boot,$J,SW2+1*100))="",Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K,U1=K,R=0 S1A S X=$O(^(X)) I X?1.N,X