to lpt1test openAppend "LPT1 setwriter "LPT1 poall setwriter [] close "LPT1 end