Function posinput$(x,y,quest$)
   
   FlushKeys
   Repeat
      
      Cls
      Key=GetKey()
      If Key<>8 And Key<>0 And Key<>3 Then
         tex$=tex+Chr$(Key) Key=0
      ElseIf key=8 And tex<>"" Then
         ntext$ = Left(tex$,Len(tex$)- 1) tex=ntext$
      EndIf
      Text x,y,quest
      Text x+StringWidth(quest)+10,y,tex
      curs=MilliSecs()/500 Mod 2
      If curs<1 Line x+StringWidth(tex)+14+StringWidth(quest),y,x+StringWidth(tex)+14+StringWidth(quest),y+FontHeight()
         Flip
      Until KeyHit(28)
      Return tex$
End Function