-- starts at the cell to delete, replaces it with a Blank and then tracks until the end
delete (Q "GOTOEND", Blank) = (Q "COPYBACK", Blank, L)
delete (Q "GOTOEND", Blank) = (Q "COPYBACK", Blank, L)
delete (Q "GOTOEND", Blank) = (Q "COPYBACK", Blank, L)