A401 ;^CYBFA -> LOKALE VARIABELEN ;%A401; [ 08/21/92  8:44 AM ]
 G 1
 ;
T1 ;NR.;DATUM;UUR;OMSCHRIJVING;Q;
T2 ;---;-----;---;------------;-;
T3 ;[] = vervolg   xxx-[] = lijn verwijderen   xxx[] = lijn opladen > .;
T4 ;ER ZIJN GEEN FOUTEN !;LIJN ; VERWIJDERD; OPGELADEN;
 ;
S1 W $P(%(2),";",2),?6,$P(%(2),";",3),?16,$P(%(2),";",4),?25,$P(%(2),";",5),?75,$P(%(2),";",6),!
S1Z Q
 ;
S2 W %(1),?6,$P(%(2),"\"),?16,$P(%(2),"\",2),?25,$P(%(2),"\",3),?39,$E($P(%(2),"\",4),1,74-$X),?75,$P(%(2),"\",5),!
S2Z Q
 ;
1 S %(1)=0,%(2)=$O(^CYBFA(%(1))) I %(2)="" W !!,$P($T(T4),";",2),*7,! G YZ
11 W ! F %(2)=$T(T1),$T(T2) D S1
13 F %(3)=1:1:10 S %(1)=$O(^CYBFA(%(1))) Q:%(1)=""  I $D(^(%(1),0)) S %(2)=^(0) D S2
 ;
2 W !,$P($T(T3),";",2),*8 R %(2) I "-^"[%(2) G YZ:%(2)="-"!(%(2)="^") I %(2)="" W ! G 1:(%(1)="")!($O(^CYBFA(%(1)))=""),11
21 I '$D(^CYBFA(+%(2),0)) G 27
23 I %(2)?1.N1"-" K ^CYBFA(+%(2)) W !,$P($T(T4),";",3),+%(2),$P($T(T4),";",4) S:$O(^(0))="" ^(0)=1 G 1:$O(^(0))="",2
25 I %(2)?1.N G 3
27 W "   ???",*7 G 2
 ;
3 K (%) S %=^CYBFA(+%(2),0),%(1)=0 W !,"."
31 S %(1)=$O(^(%(1)+.5)) G 4:%(1)="" I '(%(1)#1),$D(^(%(1)+.1)) S @^(%(1))=^(%(1)+.1)
33 W:'(%(1)#10) "." G 31
 ;
4 W $P($T(T4),";",3),+%(2),$P($T(T4),";",5),!!,%,!
 ;
YZ K %(1),%(2),%(3) Q
 ;
Z X ^cZ Q
ZZ ; 03.08.92 - 16 u 58 * 3.0.12-r1.8