4 printf "\x1BPr;$color\r"
11 print "\x1BPmi;$feeder;s\r";
14 print "\x1BPc;$color;=;$temperature\r"
16 # improve output FIXME not used by cups
19 # FIXME ? only implemented in windows
22 print "\x1BPpws;1281732635\r";
24 # FIXME load card into printer
29 my $command_size = 11682
30 print "\x1BDbc;k;2;11682;"; # bitmap data
33 # even page on two side-printing
36 print "\x1BPc;k;=;10\r";
38 print "\x1BDbc;k;2;31744;"; # bitmap data
41 # print "\033Ste\015"; # keep card after encoding
42 print "\x1BSe\r"; # eject card
43 print "\x00" x 64; # FIXME some padding?
46 my $data = "1234567890"; # data for track
47 print "\033Ss\015", $data;
48 print "\033Smw\015"; # write?