PROC1BES ;PROCEDURES & FUNCFTIES ;PROC; Beschrijving
 Q
 ;
IK S R="IK" G Print
 ; Inkey
 ; Doel:het inlezen en eventueel vertalen (fuctietoetsen) van input
 ; Input:geindexeerde IK
 ;IK(1) = de vertaaltabel
 ;formaat: functietoets;vertaling\...
 ;IK(2) = de eventuele time out
 ; Output:de ingedrukte toets, of de vertaalde functietoets, of empty (indien time out verstreken)
 ; Variabelen:IKv = de vertaaltabel
 ;IKt = de time out
 ;
CL S R="CL" G Print
 ; Clear list
 ; Doel:het wegvegen van alle lijnen binnen de scrollarea
 ; Input:geindexeerde DL
 ;DL(1) = de naam van de lijstdefinitie
 ; Output:blanko scherm binnen de geselekteerde scrollarea
 ; Variabelen:DLal = aantal lijnen op het sherm waar men de lijst kan tonen
 ;DLbl = de lijn waar men de lijst begint te tonen
 ;DLi  = hulpvariabele
 ;
RL S R="RL" G Print
 ; Renumber list
 ; Doel:het in numerieke volgorde brengen van een alfanumerisch gerangschikte tabel
 ; Input:geindexeerde DL
 ;DL(1) = de naam van de lijstdefinitie
 ; Output:de numerisch gerangschikte tabel
 ; Variabelen:DLi = referentie naar de nieuwe index
 ;DLn = de oude index
 ;DLt = referentie naar de oude index
 ;DLv = de nieuwe index
 ;
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 ; 25.04.91 - 14 u 21