cwtransp ; ;[ 09/22/2000  11:08 AM ]
 ;
 Kill
 Do INIT^vhTERMINA
 For  Do  Quit:'BONNr
 .Write @F11,@F1
 .;Set Derde("K")=1984
 .Set BONNr=$$SELECT^FLOW("KUL","KU1",1,,.Derde)
 .Do:BONNr VERWERK^TRANSP(BONNr)
 Quit
 ;