call lprint c:\magdata\CAL1SPOL\wiredat.r13