开钱箱

procedure openMoneyBox(sPort: string = 'lpt1');
var
   tf: textfile;
begin
     try
       assignfile(tf, sPort);
       rewrite(tf);
       writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22));
    finally
      closefile(tf);
end;

end;