keyDelete:
    kld a,(ConsolePointer-ConsoleProgramStart)
    cp 0
        jr z,$F
    kcall DeleteChar-ConsoleProgramStart
    jr ConsoleProgramInputLoop
$$  kcall ClearChar-ConsoleProgramStart
    ld a,(TextX)
    dec a
    dec a
    dec a
    dec a
    ld (TextX),a
    jr ConsoleProgramInputLoop
DeleteChar:
    push bc
    kcall ClearChar-ConsoleProgramStart
    ld a,(TextX)
    dec a
    dec a
    dec a
    dec a
    ld (TextX),a
    ld a,(TextX)
    cp 0
    jr z,lineback
    dec a
    dec a
    dec a
    dec a
    jr xdone
lineback:
    ld a,(TextY)
    dec a
    dec a
    dec a
    dec a
    dec a
    dec a
    ld (TextY),a
    ld a,92S
xdone:
    ld (TextX),a
    kld hl,Buffer-ConsoleProgramStart
    kld a,(ConsolePointer-ConsoleProgramStart)
    ld c,a
    xor a
    ld b,a
    add hl,bc
    ld a,(HL)
    call XORChar
    ld (HL),0
    kld a,(ConsolePointer-ConsoleProgramStart)
    dec a
    kld (ConsolePointer-ConsoleProgramStart),a
    ld a,(TextX)
    dec a
    dec a
    dec a
    dec a
    ld (TextX),a
    pop bc
    ret