Graphics 640, 480, 16, 2
SetBuffer BackBuffer()

String$ = "Select the character to replace with the arrow keys and hit enter."
X = 0
While Not KeyDown(28)
	Cls
	Line X*8, 1, (X*8) + 10, 1: Line (X*8) + 10, 1, (X*8) + 5, 10: Line (X*8) + 5, 10, X*8, 1
	Text 1, 14, String$
	If KeyHit(203) And X > 0 Then X = X - 1
	If KeyHit(205) And X < 700 Then X = X + 1
	Text 1, 464, "Char: " + (X + 1)
	Flip
Wend

FlushKeys()
Locate 1, 28: Char$ = Input$("Replace character " + (X+1) + " with: ")
String2$ = Mid(String$, 1, X) + Char$ + Mid(String$, (X + 2), Len(String$)-(X+1))
Text 1, 44, String2$
FlushKeys()
WaitKey()