Using inkey

[ardentcrest]

Sorry Sorry sorry......

Code:

INK 7 : PAPER 0 : BORDER 0 : CLS

#include <keys.bas>

let length=60 : let rowx=0 : let xx$="<"

NETinputloop:

    if rowx=0 then print at 22,0;xx$ : goto NetJump1 : end if
    print at 22,0; : FOR ii = 0 TO rowx : print chr$(peek (@MyLabel + ii)); : NEXT ii : print xx$;"  "

NetJump1:
    let k=code inkey$ : if k then beep .2,0 : end if
    if k>31 and k<128 then goto NetKeyPress : end if
    if k=13 then end : end if
    if k=12 then goto NetDeleteKey : end if
    goto NetJump1

NetDeleteKey:
    if rowx=0 then goto NETinputloop : end if
    POKE (@MyLabel + rowx), 0
    let rowx=rowx-1
    goto NETinputloop

NetKeyPress:
    if rowx=length then goto NETinputloop : end if
    POKE (@MyLabel + rowx), k
    let rowx=rowx+1
    goto NETinputloop


    MyLabel:
    ASM
    text1:
    ds 1024  ;  1024 bytes of space MAX!!
    END ASM


    MyLabel2:
    ASM
    lenth1:
    ds 1  ;  1024 bytes of space MAX!!
    END ASM

When NetDeleteKey: it should move the cursor back but does not. What am I missing.