module EndProg (endD) where
import States  

endD :: DState -> KState -> CState -> Bool
endD dst kst cst= if ((keyFlag kst) == True || (dCursorPos cst >= 1))	then	True
						else	False