port = CreateObject("roMessagePort")
screen = CreateObject("roPinEntryDialog")
screen.SetMessagePort(port)
screen.SetTitle("Please enter your PIN to access")
screen.SetNumPinEntryFields(4)
screen.AddButton(1, "OK")
screen.AddButton(2, "CANCEL")
screen.Show()
Our system http://www.rokumanager.com