KPSBT1 ;TONEN GEGEVENS PRODUKT BIJ TOELEVERINGEN
 ;
 Set FP=1903 Write @F,$P("NIET-ST\STOCK",D,$P(R,D,1)+1)
 Set FP=1911 Write @F,": ",$P(R,D,2)
 Set FP=2003 Write @F,"BEST/ST : ",$P(R,D,3)
 Set FP=2028 Write @F,"M BST H  : ",$P(R,D,5)
 Set FP=2054 Write @F,"PPL     : ",$P(R,D,6)," ",$P(R,D,10),"/",$P(R,D,11)
 Set FP=2102 Write @F,@F92,"LEVERT  : ",$P(R,D,4),@F93
 Set FP=2128 Write @F,"GROOT VP : ",$P(R,D,12)
 Set FP=2154 Write @F,"KORTING : "
 If $P(R,D,7) W $J($P(R,D,7),4,2)," %  " I $P(R,D,8) Write $J($P(R,D,8),4,2)," %"
 Set FP=2202 Write @F,@F92,"AANTAL  : ",$P(R,D,13),@F93
 Set FP=2228 Write @F,"MAX.L.ST.: ",$P(R,D,14)
 Set FP=2254 Write @F,"AANK PR : ",$J($P(R,D,9),0,2)," ",$P(R,D,10),"/",$P(R,D,11)
 Kill R
 Quit
 ;