Type e:\accounts\stock.txt to printer>Dear Experts
>set device to file &rlist >ln = 0 >c1 = 10 >@ ln, c1 say 'GATE PASS WISE CIRCLE SALES REPORT' >ln = ln+2 >@ ln, 10 say 'DATE:' >@ ln, 16 say f_date1 >@ ln, 30 say 'CIRCLE:' >@ ln, 38 say cir >ln = ln+2 >c1 = 0 >@ ln, c1 say "-" >c1 = c1+1 >@ ln, c1 say replicate("-", 06) >c1 = c1+6 >for b = 2 to j > if ar2(1,b)<>9999 > @ ln, c1 say "-" > @ ln, c1+1 say replicate("-", 06) > c1 = c1+7 > endif >endfor >>