cwTulp
 Quit
 ;
TKFAXTulp
 ;Do INIT^vhPRINTER()
 Do  ;:$D(Print)
 . ; < 5
 . ;Set Klant="DECORS"
 . ; = 5
 . ;Set Klant="ARTI-DESIGN & CREATIVITY"
 . ;Set Klant="BP KEUKENS"
 . ;Set Klant="DE GEUS PROJECTEN"
 . ;Set Klant="DE LAERE"
 . ;Set Klant="DEBUYSSCHER-STEURBAUT"
 . ;Set Klant="DIAPAL "
 . ;Set Klant="DUROCUB KEUKEN"
 . ;Set Klant="FAVERE CHRISTOPHE"
 . ;Set Klant="FINITOUCH"
 . ;Set Klant="FRANLY"
 . ;Set Klant="GIERKINK"
 . ;Set Klant="GILMACO"
 . ;Set Klant="IN-HOUT"
 . ;Set Klant="K-DESIGN"
 . ;Set Klant="KREDO KEUKENDESIGN"
 . ;Set Klant="KUIK WESSEL"
 . ;Set Klant="LEFEVER"
 . ;Set Klant="LUITEN"
 . ;Set Klant="MARTENS MK"
 . ;Set Klant="PARTIKULIER EUR"
 . ;Set Klant="SHOPEX BELGIUM"
 . ;Set Klant="SMET A. & ZONEN (BESLAG)"
 . ;Set Klant="UMS-PASTOE"
 . ;Set Klant="VAN DEN BERG INTERIEURS"
 . ;Set Klant="VASA"
 . ;Set Klant="WEYGERS INTERIEURBOUW"
 . ; = 6
 . ;Set Klant="BANUBAD NEDERLAND"
 . ;Set Klant="BEDA"
 . ;Set Klant="BOVRIE"
 . ;Set Klant="BRINK KANTOORMEUBELEN"
 . ;Set Klant="CORPUS"
 . ;Set Klant="DATABOUW"
 . ;Set Klant="DEBRAKEUKENS"
 . ;Set Klant="FERLIN WARD"
 . ;Set Klant="FRANSSEN PRODUCTS"
 . ;Set Klant="GENTINI'S KEUKENS"
 . ;Set Klant="INTECO BENELUX"
 . ;Set Klant="INTERSTOCK"
 . ;Set Klant="ITAB SHOP CENTER"
 . ;Set Klant="LODDER KEUKENS"
 . ;Set Klant="MK2 PRODUCTIE"
 . ;Set Klant="NECOMIJ (G. EN M.)"
 . ;Set Klant="R W & K"
 . ;Set Klant="ROVERDI"
 . ;Set Klant="SICAME"
 . ;Set Klant="STEGEN KOEN"
 . ;Set Klant="TANGHE DESIGN"
 . ;Set Klant="TOTAAL INTERIEUR"
 . ;Set Klant="VAN DER AA"
 . ;Set Klant="VONDER"
 . ;Set Klant="WOONPROJECT"
 . ; = 7
 . ;Set Klant="DE GIESSEN"
 . ;Set Klant="DE KEYZER GROUP"
 . ;Set Klant="FRANSEN MARIUS"
 . ;Set Klant="INTERFURN"
 . ;Set Klant="MERENO"
 . ;Set Klant="TOPLIJN KEUKENS"
 . ;Set Klant="VANDEBROEK"
 . ; = 8
 . ;Set Klant="BERMA-DECOR"
 . ;Set Klant="DE SCHEPPER"
 . ;Set Klant="DECOVAN"
 . ;Set Klant="DEHOLI"
 . ;Set Klant="DELEMA"
 . ;Set Klant="DEMOFORM"
 . ;Set Klant="DESTIL"
 . ;Set Klant="FERZO"
 . ;Set Klant="PAJACO"
 . ;Set Klant="PREMEDITE"
 . ;Set Klant="ROUX H. MEUBELPROJEKTEN"
 . ;Set Klant="VERGALLE INTERIEUR"
 . ; = 9
 . ;Set Klant="CASA VERO"
 . ;Set Klant="D & D DELARUE"
 . ;Set Klant="DE LEEUW"
 . ;Set Klant="DE MEUBELMAKER"
 . ;Set Klant="FRAKO"
 . ;Set Klant="GERO KEUKENS"
 . ;Set Klant="HORNICUB"
 . ;Set Klant="LOBELLE DESIGN"
 . ;Set Klant="WEBO"
 . ;Set Klant="WYNANTS WONEN ATELIER"
 . ; = 10
 . ;Set Klant="BAETEN-VAN ES"
 . ;Set Klant="CONINX"
 . ;Set Klant="CONVENTS PRODUCTS"
 . ;Set Klant="KEUKENRENOVATIE SYSTEMS"
 . ;Set Klant="LUNDIFORM"
 . ;Set Klant="VAN OVERSTRAETEN"
 . ;Set Klant="VEPA"
 . ;Set Klant="WYCOR"
 . ; > 10
 . ;Set Klant="FORÉ"
 . ;Set Klant="VAN ESSEN INTERIEURBOUW"
 . ;Set Klant="D'ESTILO"
 . ;Set Klant="PLANOFURN"
 . ;Set Klant="RINI"
 . ;Set Klant="TRYBOU M. & KINDEREN"
 . ;Set Klant="VERSCHUREN"
 . ;Set Klant="VIRTUS SHOP IN SHAPE"
 . ;Set Klant="ALCOMEL"
 . ;Set Klant="DECEUNINCK-DEFORCE"
 . ;Set Klant="JANSEN DOE HET ZELF"
 . ;Set Klant="NECOMIJ (VERTOMMEN)"
 . ;Set Klant="VAN BLADEL"
 . ;Set Klant="BRABANT PRODUKTIE"
 . ;Set Klant="CAMPE TONNY"
 . ;Set Klant="COOPMAN"
 . ;Set Klant="GOOSSENS"
 . ;Set Klant="IMBO-LINE KEUKENS"
 . ;Set Klant="K.W. KEUKENS-WOONINRICHT."
 . ;Set Klant="VETA KEUKENINTERIEUR"
 . ;Set Klant="BEJA"
 . ;Set Klant="HOOGENDOORN MBI"
 . ;Set Klant="MEUBELBESLAG HOLLAND"
 . ;Set Klant="DE DECKER JB"
 . ;Set Klant="LINSSEN YACHTS"
 . ;Set Klant="MAPECO"
 . ;Set Klant="ALMANOVA"
 . ;Set Klant="MOBIROC PRODUCTION"
 . ;Set Klant="THEYSSENS KEUKENS"
 . ; > 20
 . ;Set Klant="DU PONT"
 . ;Set Klant="VAN DER GUCHT (BESLAG)"
 . ;Set Klant="VAN DEN BULCKE LUC-PI"
 . ;Set Klant="ALCOM"
 . ;Set Klant="KOENIG-VERSCHOREN"
 . ;Set Klant="BUCHER BEAT"
 . ;Set Klant="VIKA"
 . ;Set Klant="BIEMAR-BOIS"
 . ; > 30
 . ;Set Klant="ASSENTI"
 . ;Set Klant="S.P.B."
 . ;Set Klant="NEW SOBELWOOD"
 . ; > 40
 . ;Set Klant="TINELLO"
 . ;Set Klant="HARMELING"
 . ;Set Klant="TRISTAR"
 . ; > 60
 . ;Set Klant="TTC"
 . ;Set Klant="HEIN F. GMBH"
 . ; > 80
 . ;Set Klant="VAN RAEMDONCK & CO"
 . ; > 100
 . ;Set Klant="TULP PRODUCTIE"
 . ;Set Klant="OPTIMA PACK"
 . ;Set Klant="HAEFELE NEDERLAND"
 . Set d=""
 . Write !!!!,Klant,!
 . For  Set d=$O(^TKFAXQ("DIR",d)) Quit:d=""  Do
 . . Set r=^(d)
 . . Quit:$p(r,D,32)'=Klant
 . . Write !,$P(r,D,4),?17,$P(r,D,5),?32,$P(r,D,6),?47,$E($P(r,D,31),1,25),?75,$P(r,D,23),?78,$P(r,D,30)
 . ;Write #
 . ;Do CLOSE^vhPRINTER
 Quit
 
TKFAXAll
 x "zl cwTulp"
 x "f ln=7:1 s lr=$t(+ln) i $e(lr,4,5)="";S"" s $e(lr,4)="""" zr +ln zi lr r r q:$l(r)  d TKFAXTulp"
 q