Using inkey

[ardentcrest]

HUMMMMM. Posts when missing

Need help. This compiles with no errors but still will not work. Any help.

Code:

10 dim z$ : let z$="this is a test of an inkey$ editor " : gosub 2000 :stop 2000 rem INPUT+ 2002 poke 23658,0 : let length=len z$ 2004 for row=length to 1 step -1 2005if z$(row)=" " then CONTINUE FOR: end if : next xx 2006 let x$="*" 2008 print at 10,0; bright 1;z$( to row );x$;z$( row+1 to ) 2010 let k=code inkey$ : if k then beep .02,0 : end if 2011 if k>31 and k<128 then goto 2264 : end if 2012 if k=13 then end :end if 2018 let row=0 : goto 2008 2020 goto 2004 2022 poke 23658,8 and not peek 23658 : goto 2006 2024 let z$="" : let row=0 : goto 2008 2026 if not row then goto 2010 : end if 2027 let row=row-1 : goto 2008 2028 if row=length then goto 2010 :end if 2029 let row=row+1 : goto 2008 2030 if row+32>length then goto 2010 :end if 2031 let row=row+32 : goto 2008 2032 if row<32 then goto 2010 : end if 2033 let row=row-32 : goto 2008 2034 if not row then goto 2010 : end if 2035 let row=row-1 : goto 2041 2036 print at 10,0;z$;">" : return 2038 goto 2010 2040 if row=length then goto 2010 : end if 2041 let z$( row+1 to )=z$( row+2 to ) : let z$(length)="" : goto 2008 2264 if row=150 then goto 2010 : end if 2265 let row=row+1 : if row<length then let z$( row+1 to )=z$( row to ):end if 2266 print k:let z$(row)=chr$(k) : goto 2008 2499 goto 2010