PROC2BES ;PROCEDURES & FUNCFTIES ;PROC; Beschrijving [ 10/26/93  11:10 AM ]
 Q
WL S R="WL" G Print
 ; Write list
 ; Doel:        het op het scherm brengen van een lijst
 ; Input:       geindexeerde DL
 ;              DL(1) = de naam van de lijstdefinitie
 ;              DL(2) = beginschermlijn voor refresh
 ;              DL(3) = eindschermlijn voor refresh
 ; Output:de lijst op het scherm
 ; Variabelen:  DLal = aantal lijnen op het sherm waar men de lijst kan tonen
 ;DLb  = beginschermlijn voor refresh
 ;DLbl = de lijn waar men de lijst begint te tonen
 ;DLe  = einschermlijn voorrefresh
 ;DLf  = de uit tevoeren functie
 ;DLfx = de uit te voeren functie
 ;DLfe = is scroll functie test EL of niet
 ;DLi  = hulpvariabele
 ;DLll = aantal karakters per lijn
 ;DLo  = offset
 ;DLse = geselekteerde lijn
 ;DLsl = de te selekteren lijn
 ;DLsw = met of zonder time out
 ;DLt  = referentie naar de tabel
 ;DLti = titel plaatsen
 ;DLv  = de index van de opeenvolgende datalijnen in de tabel
 ;DLvx = tijdelijke bewaring van DLv
 ;
Print F I=1:1 Q:$P($T(+I)," ",1)=R
 F I=I+1:1 Q:$L($P($T(+I)," ",1))  W !,$P($T(+I),U,2)
 Q
 ;
Z X ^cZ Q
ZZ ; 18.06.91 -  8 u 33