# Actions for EPSON Stylus PHOTO 700
#
# Printer has following cartridges:
# - Black
# - Colour Cyan, light Cyan, Magenta, light Magenta, Yellow
#
# Created 05-05-2005 T. Milius
# Changed 05-05-2005 T. Milius
# 
GetCartridgeInfo:
hide 0 upwards
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 COL_11 COL_12 # %*[^:]%*c%2x%2x%2x%2x%2x%2x
eval COL_0 COL_0 # %0 * 10
cgorel 1 COL_0 # %0 > 50
show 1 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_B
eval COL_1 COL_1 # %0 * 10
cgorel 1 COL_1 # %0 > 50
show 2 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_C
eval COL_2 COL_2 # %0 * 10
cgorel 1 COL_2 # %0 > 50
show 3 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_M
eval COL_3 COL_3 # %0 * 10
cgorel 1 COL_3 # %0 > 50
show 4 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_Y
eval COL_11 COL_11 # %0 * 10
cgorel 1 COL_11 # %0 > 50
show 1 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_lC
eval COL_12 COL_12 # %0 * 10
cgorel 1 COL_12 # %0 > 50
show 1 <PrtInfo$Dir>.Resources.Warnings.EPSON.StyPho700.LOW_lM
show 0 <PrtInfo$Dir>.Resources.Cartridges.EPSON.StyPho700
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 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 parallel interface lines
GetStatus: Parallel
eval MESSAGE MANUFACTURER PRINTERTYPE # %0 + " " + %1
End
# Reset is done by parallel interface line
ResetPrinter: Parallel
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 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
