# Actions for EPSON Stylus Color 580
#
# Printer has following cartridges:
# - Black
# - Colour Cyan, Magenta, Yellow
#
# Created 05.05.2005 T. Milius
# Changed 18.05.2008 T. Milius Catridge Change sequence
#
GetCartridgeInfo:
hide 0 upwards
send 0,0,0,27,1,"@","E","J","L",32,"1","2","8","4",".","4",10,"@","E","J","L",32,32,32,32,32,10
send 27,"@",27,"@"
send 27,"(","R",8,0,0,"R","E","M","O","T","E","1"
send "I","Q",1,0,1
send 27,0,0,0
get c
split RESPONSE COL_0 COL_1 COL_2 COL_3 # %*[^:]%*c%2x%2x%2x%2x
eval COL_0 COL_0 # %0 * 10
cgorel 1 COL_0 # %0 > 50
show 1 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyCol580.LOW_B
eval COL_1 COL_1 # %0 * 10
cgorel 1 COL_1 # %0 > 50
show 2 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyCol580.LOW_C
eval COL_2 COL_2 # %0 * 10
cgorel 1 COL_2 # %0 > 50
show 3 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyCol580.LOW_M
eval COL_3 COL_3 # %0 * 10
cgorel 1 COL_3 # %0 > 50
show 4 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyCol580.LOW_Y
show 0 <PrtInfo$Dir>.Resources.Cartridges.EPSON.StyCol580
End
#
ChangeCatridge: 31
hide 0 upwards
End
#
ChangeCatridge: 32
hide 0 upwards
End
#
CleanHead: 30
hide 0 upwards
eval INT_0 # 0
cgorel 3 INT_0 # <Territory><>7 OR %0=1
show 0 <PrtInfo$Dir>.Resources.Warnings.EPSON.HC7
ask Fortfahren Abbrechen
eval INT_0 # 1
cgorel 3 INT_0 # <Territory><>35 OR %0=1
show 0 <PrtInfo$Dir>.Resources.Warnings.EPSON.HC7
ask Fortfahren Abbrechen
eval INT_0 # 1
cgorel 2 INT_0 # %0=1
show 0 <PrtInfo$Dir>.Resources.Warnings.EPSON.HC
ask Continue Cancel
cgorel 50 DIALOGRESULT # %0=4
send 0,0,0,27,1,"@","E","J","L",32,"1","2","8","4",".","4",10,"@","E","J","L",32,32,32,32,32,10
send 27,"@",27,"@"
send 27,"(","R",8,0,0,"R","E","M","O","T","E","1"
send "C","H",2,0,0,0
send 27,0,0,0
End
# Status is obtained by USB printer class request
GetStatus: USB
eval MESSAGE MANUFACTURER PRINTERTYPE # %0 + " " + %1
End
# Reset is done by USB printer class request
ResetPrinter: USB
End
#
PrintTestpattern:
eval INT_0 # 0
cgorel 3 INT_0 # <Territory><>7 OR %0=1
eval DIALOGMESSAGE # "Bitte Papier einlegen!"
ask Gemacht Abbrechen
eval INT_0 # 1
cgorel 3 INT_0 # <Territory><>35 OR %0=1
eval DIALOGMESSAGE # "Bitte Papier einlegen!"
ask Gemacht Abbrechen
eval INT_0 # 1
cgorel 2 INT_0 # %0=1
eval DIALOGMESSAGE # "Please insert paper!"
ask Done Cancel
cgorel 50 DIALOGRESULT # %0=4
send 0,0,0,27,1,"@","E","J","L",32,"1","2","8","4",".","4",10,"@","E","J","L",32,32,32,32,32,10
send 27,"@",27,"@"
send 27,"(","R",8,0,0,"R","E","M","O","T","E","1"
send "N","C",2,0,0,0
send 27,0,0,0
send 12
End
#
Init:
action GetStatus:
End
