>:pldup/basT "r",,"ar2r/dat"o ,  AS A$,  AS B$d: )"Price level duplicator"nx "Enter source acct#:";SA$τ}SA(SA$)ۄ , SA턌 (A$,,) "Enter destination acct#";DA$&DA(DA$)2 , DAD (A$,,)o "Copy discount structure Y/N?";YN$ YN$"Y" , SASB$(A$,,):SX$(A$,,) ,DA(A$,,)SB$:(A$,,)SX$ , DA: "acct updated..."