Oh, you mean password enter way, so you enter a password and it'll appear as stars?
Then you'll need to make your own input code, (or borrow one from me, just a moment)
This is probably what you want:
value=0
cmsg$=""
stars$=""
period=0
Color 0,0,0
While value<>13
value=GetKey()
If value<>0 And value<>13 Then
If value<>8 Then
If Len(cmsg)<24 Then
cmsg=cmsg+Chr(value)
stars=stars+"*"
End If
Else
cmsg=LSet(cmsg,Len(cmsg)-1)
stars=LSet(stars,Len(cmsg)-1)
End If
End If
Color 255,255,255
Rect 0,0,200,15
Color 0,0,0
If period<250 Then
Text 0,0,stars
Else
Text 0,0,stars + "_"
End If
Delay 2
period=period+1
If period=500 Then period=0
Wend
|