cA306 ;SELECTIEPROGRAMMA ;%A306 ;do %AN003 ; [ 11/27/95  11:09 AM ]
 ;
T0 ;Selectieprogramma ;
 ;
T0F ;Sélections ;
 ;
T0E ;Selectieprogramma ;
 G 1
 ;
 ;inputvariabelen : TXT
 ;outputvariabelen: LIM1,LIM2 of ^HULP(boot,$J)
 ;
1 W /CUP(4,1),/WCMD,/WDSP
11 N Q1 S Q1=$P(TXT,D,5)
13 D ^cAN003(4,Q1)
15 S (LIM1,LIM2)="",PP(3)=0 I K="-" G YZ
 ;
2 S LIM1=LIM1(Q1),LIM2=LIM2(Q1)
21 I K="U" S PP(3)=+LIM2,LIM2=" "
 ;
YZ S PP(1)=LIM1,PP(2)=LIM2 K %A327,TXT Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84