print "\x1BMr;s\r";
print "\x1BPpws;1281732635\r";
-# SEQUENCE RECTO
+# FIXME load card into printer
print "\x1BSs\r";
print "\x1BSr\r";
print "\x1BDbc;k;2;11682;"; # bitmap data
print "\r";
+# even page on two side-printing
print "\x1BSv\r";
+
print "\x1BPc;k;=;10\r";
print "\x1BDbc;k;2;31744;"; # bitmap data
print "\r";
-print "\x1BSe\r";
+# print "\033Ste\015"; # keep card after encoding
+print "\x1BSe\r"; # eject card
+print "\x00" x 64; # FIXME some padding?
+
+sub encoding {
+my $data = "1234567890"; # data for track
+print "\033Ss\015", $data;
+print "\033Smw\015"; # write?
+}
+