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