Index: cABWIN.mac.rou
===================================================================
diff -u -r734 -r3542
--- cABWIN.mac.rou	(.../cABWIN.mac.rou)	(revision 734)
+++ cABWIN.mac.rou	(.../cABWIN.mac.rou)	(revision 3542)
@@ -1,66 +1,67 @@
-cABWIN(DMX)        ; BEHEER ^DMx ;%ABWIN ; [ 02/24/00  1:40 PM ]
- ;
-T1 ;Beginlijn;
-T2 ;Beginkolom;
-T3 ;Aantal lijnen;
-T4 ;Aantal kolommen;
-T5 ;Kader;0[] = neen   1[] = ja;Neen;Ja;
-T6 ;Mode;0[] = wscron   1[] = wscroff;Wscron;Wscroff;
-T7 ;Wrap;0[] = on   1[] = off;On;Off;
-T8 ;Scroll;0[] = on   1[] = off;On;Off;
- ;
-T20 ;Nummer element; Definitie window ;
- ;
- ; Window + titel
-1 D P^cA612(2,1,20,80,1,1,1,1,$P($T(T20),U,3),0,1,1,0,0)
-11 I '$D(@DMX@(0,"WIN")) S ^("WIN")="2\1\20\80\1\1\1\1"
- ;
- ; Tonen gegevens
-2 W /CUP(1,2),"1 ",/SGR(4),$$S1(1,2),/SGR(24),/CUP(1,20),": ",$$S2("WIN",1),/WCMD
-21 W /CUP(2,2),"2 ",/SGR(4),$$S1(2,2),/SGR(24),/CUP(2,20),": ",$$S2("WIN",2)
-23 W /CUP(3,2),"3 ",/SGR(4),$$S1(3,2),/SGR(24),/CUP(3,20),": ",$$S2("WIN",3)
-25 W /CUP(4,2),"4 ",/SGR(4),$$S1(4,2),/SGR(24),/CUP(4,20),": ",$$S2("WIN",4)
- ;
-3 W /CUP(5,2),"5 ",/SGR(4),$$S1(5,2),/SGR(24),/CUP(5,20),": ",$P($T(T5),U,4+$$S2("WIN",5))
-31 W /CUP(6,2),"6 ",/SGR(4),$$S1(6,2),/SGR(24),/CUP(6,20),": ",$P($T(T6),U,4+$$S2("WIN",6))
-33 W /CUP(7,2),"7 ",/SGR(4),$$S1(7,2),/SGR(24),/CUP(7,20),": ",$P($T(T7),U,4+$$S2("WIN",7))
-35 W /CUP(8,2),"8 ",/SGR(4),$$S1(8,2),/SGR(24),/CUP(8,20),": ",$P($T(T8),U,4+$$S2("WIN",8))
- ;
- ; Nummer element
-6 S R="U1\22\3\"_$P($T(T20),U,2)_"\\1\\$L(K)" D R0
-61 G YZ:K="-"!(K=","),6:K>8!'K
- ;
- ; Per rubriek
-7 S U1=+U1       
-701 I U1=1 D S3(1,2,"WIN",1,2) I K'="-",K'="," D S4("WIN",1)
-702 I U1=2 D S3(2,2,"WIN",2,2) I K'="-",K'="," D S4("WIN",2)
-703 I U1=3 D S3(3,2,"WIN",3,2) I K'="-",K'="," D S4("WIN",3)
-704 I U1=4 D S3(4,2,"WIN",4,2) I K'="-",K'="," D S4("WIN",4)
-705 I U1=5 D S3(5,2,"WIN",5,1) I K'="-",K'="," D S4("WIN",5)
-706 I U1=6 D S3(6,2,"WIN",6,1) I K'="-",K'="," D S4("WIN",6)
-707 I U1=7 D S3(7,2,"WIN",7,1) I K'="-",K'="," D S4("WIN",7)
-708 I U1=8 D S3(8,2,"WIN",8,1) I K'="-",K'="," D S4("WIN",8)
-79 G 6:K="-"!(K=","),2
- ;
-YZ D C^cA612 Q
- ;
- ; Tonen omschrijving
-S1(T,P) N R S R=$P($T(@("T"_T)),U,P)
-S1Z Q R
- ;
- ; Ophalen input
-S2(N,V) N R S R=$P($G(@DMX@(0,N)),D,V) 
-S2Z Q R
- ;
- ; Vraagstelling
-S3(T,P,N,V,L)      S I=$$S2(N,V),R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D  D R0
- . I T>4 S $P(R,D,5)=""""_$$S1(T,P+1)_""""
-S3Z Q
- ;
- ; Update
-S4(N,P) S $P(@DMX@(0,N),D,P)=I
-S4Z Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
-ZZ ; 10.04.00 - 11 u 03 * V7.3
\ No newline at end of file
+cABWIN(DMX)	       ; BEHEER ^DMx ;%ABWIN ; [ 03/29/01  9:43 AM ]
+	;
+T1	;Beginlijn;
+T2	;Beginkolom;
+T3	;Aantal lijnen;
+T4	;Aantal kolommen;
+T5	;Kader;0[] = neen   1[] = ja;Neen;Ja;
+T6	;Mode;0[] = wscron   1[] = wscroff;Wscron;Wscroff;
+T7	;Wrap;0[] = on   1[] = off;On;Off;
+T8	;Scroll;0[] = on   1[] = off;On;Off;
+	;
+T20	;Nummer element; Definitie window ;
+	;
+	; Window + titel
+1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(T20),U,3),0,1,1,0,0)
+11	I '$D(@DMX@(0,"WIN")) S ^("WIN")="2\1\20\80\1\1\1\1"
+	;
+	; Tonen gegevens
+2	W /CUP(1,2),"1 ",/SGR(4),$$S1(1,2),/SGR(24),/CUP(1,20),": ",$$S2("WIN",1),/WCMD
+21	W /CUP(2,2),"2 ",/SGR(4),$$S1(2,2),/SGR(24),/CUP(2,20),": ",$$S2("WIN",2)
+23	W /CUP(3,2),"3 ",/SGR(4),$$S1(3,2),/SGR(24),/CUP(3,20),": ",$$S2("WIN",3)
+25	W /CUP(4,2),"4 ",/SGR(4),$$S1(4,2),/SGR(24),/CUP(4,20),": ",$$S2("WIN",4)
+	;
+3	W /CUP(5,2),"5 ",/SGR(4),$$S1(5,2),/SGR(24),/CUP(5,20),": ",$P($T(T5),U,4+$$S2("WIN",5))
+31	W /CUP(6,2),"6 ",/SGR(4),$$S1(6,2),/SGR(24),/CUP(6,20),": ",$P($T(T6),U,4+$$S2("WIN",6))
+33	W /CUP(7,2),"7 ",/SGR(4),$$S1(7,2),/SGR(24),/CUP(7,20),": ",$P($T(T7),U,4+$$S2("WIN",7))
+35	W /CUP(8,2),"8 ",/SGR(4),$$S1(8,2),/SGR(24),/CUP(8,20),": ",$P($T(T8),U,4+$$S2("WIN",8))
+	;
+	; Nummer element
+6	S R="U1\22\3\"_$P($T(T20),U,2)_"\\1\\$L(K)" D R0
+61	G YZ:K="-"!(K=","),6:K>8!'K
+	;
+	; Per rubriek
+7	S U1=+U1       
+701	I U1=1 D S3(1,2,"WIN",1,2) I K'="-",K'="," D S4("WIN",1)
+702	I U1=2 D S3(2,2,"WIN",2,2) I K'="-",K'="," D S4("WIN",2)
+703	I U1=3 D S3(3,2,"WIN",3,2) I K'="-",K'="," D S4("WIN",3)
+704	I U1=4 D S3(4,2,"WIN",4,2) I K'="-",K'="," D S4("WIN",4)
+705	I U1=5 D S3(5,2,"WIN",5,1) I K'="-",K'="," D S4("WIN",5)
+706	I U1=6 D S3(6,2,"WIN",6,1) I K'="-",K'="," D S4("WIN",6)
+707	I U1=7 D S3(7,2,"WIN",7,1) I K'="-",K'="," D S4("WIN",7)
+708	I U1=8 D S3(8,2,"WIN",8,1) I K'="-",K'="," D S4("WIN",8)
+79	G 6:K="-"!(K=","),2
+	;
+YZ	D C^cA612 Q
+	;
+	; Tonen omschrijving
+S1(T,P)	N R S R=$P($T(@("T"_T)),U,P)
+S1Z	Q R
+	;
+	; Ophalen input
+S2(N,V)	N R S R=$P($G(@DMX@(0,N)),D,V) 
+S2Z	Q R
+	;
+	; Vraagstelling
+S3(T,P,N,V,L)	     S I=$$S2(N,V),R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D  D R0
+	. I T>4 S $P(R,D,5)=""""_$$S1(T,P+1)_""""
+S3Z	Q
+	;
+	; Update
+S4(N,P)	S $P(@DMX@(0,N),D,P)=I
+S4Z	Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+ZZ	; 18.05.01 - 11 u 18 * V7.86
+