Text Editor

I felt imbarrassed to post my feeble attempt, and managed to hunt it down. :lol:

;Text Editor
Const xres=800,yres=600
Graphics xres,yres
SetBuffer BackBuffer()

Global Limit=70
Global EditText$,Show$
Global Key

Global posx,posy

While Not KeyHit(1)
Cls
	Do_Ya_Thing()
Flip
Wend


Function Do_Ya_Thing()
Key=GetKey()
If Key>31 And Key<128

	EditText$ = EditText$ + Chr$(key)
	;posx=posx+8
End If

If Key=13
	
	EditText$=EditText$ +Chr$(key)
	
	posx=0
	posy=posy+8
End If

;Draw Border
Rect 50,50,Limit*8,400,0

End Function

Thanks for your time and help,
-Mikey F :)