[HolyDel]

1. Вручную.

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

Type edit
Field x,y,text$,focus,name$
End Type

name.edit=add_edit(10,10,"name")
pass.edit=add_edit(10,40,"pass")

While Not KeyDown(1)
Cls

If KeyDown(57)

Text 500,100,name\Text
Text 500,130,pass\Text
EndIf
updateedits()
Flip
Wend

Function add_edit.edit(x,y,name$)
e.edit=New edit
e\x=x
e\y=y
e\name=name
Return e
End Function

Function Find_edit.edit(name$)
For e.edit=Each edit
If e\name=name Then Return e.edit
Next
End Function

Function UpdateEdits()
For e.edit=Each edit
If e\focus
Locate e\x+5,e\y+FontHeight()/2
Rect e\x,e\y,200,20,0
e\Text=Input("")
e\focus=0
EndIf

If MouseX()>e\x And MouseY()>e\y And MouseX()<e\x+200 And MouseY()<e\y+20 And MouseDown(1)
e\focus=1
EndIf
Rect e\x,e\y,200,20,0
Text e\x+5,e\y+FontHeight()/2,e\Text
Next
End Function