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.