TEXT

Quickie sample program:

gPassword$ = ""
gProgramEnd = 0
END GLOBALS

LOCAL FN doEdit
 X$ = TEKEY$
 gPassword$ = gPassword$ + X$
 TEKEY$ = " -- "
END FN

LOCAL FN doDialog
 evnt = DIALOG(0)
 id = DIALOG(evnt)
 LONG IF evnt = _btnClick
  gProgramEnd = 1
 END IF
END FN

ON EDIT FN doEdit
ON DIALOG FN doDialog
WINDOW 1, "Password Test", (3,41)-(509,338)
EDIT FIELD 1, "", (10,10)-(110,26)
BUTTON 1,1, "OK", (10,35)-(90,60),1

WHILE gProgramEnd = 0
 HANDLEEVENTS
WEND

CALL MOVETO (10,100)
PRINT "password = " gPassword$
DELAY 1000
END