cA201 ;OPENEN ;%A200 ;Do naar %A202,%A218 ; [ 01/23/96 4:54 PM ] G 1 ; T0 ;Openen ; 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 ; T1F ;Il y a ;écrans.; T2F ;A chaque introduction avec ,[] vous revenez au début; -[] vous revenez à la rubrique précédente [] = ok ; T3F ;Ecran ; T4F ;Ecran suivant\"[] = écran suivant .[] = ; ; T0E ;Openen ; 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),$P(U2,U,2)=$P(U2,U,5) S FP=FP-3 W @F,@F9,":" 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 Y=100,Q3="^"_Q_Q1_"(0,1)",Q4="^"_Q_Q2_"(NR)",PNT="",$P(PNT,".",40)="." 11 S SL="",$P(SL,D,25)=D,(SW1,SW3,SW4,SW6)=0,(SW2,SW5)=1,SW7="",X2=$P(@("^"_Q_Q1_"(0,0)"),U,1) S:$D(^(2)) X3=^(2) S:$D(^(7)) SW7=^(7) D SO^cA243 I $L(SW7) D S6^cA907 13 S X=$O(^(SW4+1*100)) I X\100-1=SW4 S SW4=SW4+1 G 13 15 S Y=$O(^(Y)) I Y?1.N,Y\100'>SW4 S X=$P(^(Y),U,16)\100 S:X>SW3 SW3=X G 15 17 S K=$P($T(@("T0"_QT)),U,2)_X2_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 19 I SW4>1 S FP=269 W @F,@F5 S FP=254,K=$T(@("T1"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) 21 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 D S4^cA907:$L(SW7) F X=1:1:SW3 S B(X)=SL 27 D S1 I SW4>1 S FP=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=601 W @F,@F1 D S3 G 27 35 S SW5=1,SW2=SW2+1,FP=601 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)=SL 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 K:$L(SW7) ^HULP(boot,$J+(500/10000)),^($J+(600/10000)) Q ; S1 S SW1=$O(@("^"_Q_Q1_"(0,SW2+1*100)")),SW1=SW2=SW4,Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K,U1=K S1A S X=$O(^(X)) I X?1.N,X