13 lines
345 B
Awk
Executable File
13 lines
345 B
Awk
Executable File
#!/usr/bin/awk -f
|
|
BEGIN {FS=","}
|
|
{
|
|
print "N";
|
|
print "q603";
|
|
system("make-qr-epl 10 10 180 \""gensub("\"","\\\\\"","g",$0)"\"");
|
|
print "A210,75,0,4,1,2,N,\""$1"\"";
|
|
print "A275,10,0,2,1,1,N,\""$4" "$5"\"";
|
|
print "A275,35,0,3,1,1,N,\""$2" "$3"\"";
|
|
system("./format_block 275 60 \""gensub("\"","\\\\\"","g",$6)"\"");
|
|
print "P";
|
|
}
|