KPSCHKT ;PRODUKTEN - (schaduw korttekst) [ 03/16/95  11:13 AM ]
 ;
 S %R=21,%C=3,ln=$P(U2,U,9),prompt=$P(U2,U)_" : "
 S X=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
 S FP=%R+1*100+%C W @F,"*[] = ",$P(B(1),D)
 S FP=FP+100 I PROG="KPE31" W @F,"([] = vorig   )[] = volgend   "
 Do ^vhINP
 I X="*" S X=$P(B(1),D)
 S K=X