cI17 ;OPSPOREN KONTROLEKARAKTERS IN PROGRAMMA'S ;%I17; [ 02/21/00  5:29 PM ]
 ;
1 W !,$P($T(+1),";",2),! D ^cRSEL G YZ:$D(QUIT)
11 S %PRG=$P($T(+1)," "),PRG=""
13 S A="ZL @PRG F K=1:1 S L=$T(+K) X:$L(L) B I '$L(L) ZL @%PRG Q"
15 S B="I L?.E1C.E S NR=NR+1,^HULP(boot,$J,NR)=PRG_"":""_L W !,PRG,"" >>> FOUT IN LIJN +"",K,!,L,!"
17 S NR=0 K ^HULP(boot,$J) W !
 ;
2 S PRG=$O(^UTILITY($J,PRG)) I PRG'="" W PRG,$J("",10-$L(PRG)) X A G 2
21 I 'NR W !!,$C(7),"ER WERDEN GEEN FOUTEN GEVONDEN",$C(7) G YZ
23 W !!,$C(7),"U VINDT DE FOUTMELDINGEN IN GLOBAL : ^HULP(boot,$J,x)",$C(7)
25 F A=1:1:NR S K=^HULP(boot,$J,A) D S1
 ;
YZ Q
 ;
S1 W !,K F I=1:1:$L(K) I $E(K,I)?1C W !,$J("",I-1),"^ --> *",$A(K,I)
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3