'TextboxForTBS.BAS
 
 const c.LGray   = RGB(190,190,190)
 Const c.Get_PW  = RGB(Cyan)
 Const TB.Password = 1
 Const TB.Get_PW   = 2  '
 
 font 3
 GUI TEXTBOX TB.Password,1,170,mm.hres-2,40,RGB(green),c.LGray
 GUI DISPLAYBOX TB.Get_PW, 1,1,mm.hres/2,40,c.Get_PW, rgb(Black)
 CTRLVAL(TB.Get_PW) = "Get PW"
 
 GUI INTERRUPT PenDown   ', PenUp
 CLS
 GUI Show TB.Get_PW
'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
 do
     
 Loop While ASC(Inkey$) <> 27
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
End
 
Sub PenDown
 select case touch(ref)
   case TB.Password
     print "Password Entered"
   Case TB.Get_PW
     print "'Get_PW' Tapped"
     Get_Password
 end Select
End Sub 'PenDown
 
SUB PenUp
 SELECT CASE TOUCH(LASTREF)
   CASE TB.PassWord
     Print "Here at PenUp"
 END SELECT
END SUB
 
Sub Get_Password
 Cls
 Gui Show TB.Password
 CtrlVal(TB.Password) = ""
 GUI TEXTBOX ACTIVATE 1  '#1 gives error  'TB.Password
 
do:loop while CtrlVal(TB.Password) = ""
 gui hide TB.Password 'Without this it is still active.
 Text MM.Hres/2,mm.vres/2, CTRLVAL(TB.Password), CM, 3,, RGB(Green)
 pause 3000
end Sub

CLS
Font 3
GUI TEXTBOX 1,0,200,MM.HRes-2,40,RGB(green),c.LGray
CtrlVal(1) = "##Enter password"

' GUI INTERRUPT PenDown

Do
  GUI TEXTBOX ACTIVATE 1
  Pause 3000
  GUI TEXTBOX CANCEL
  Pause 3000
Loop
End

Sub PenDown
Select Case Touch(ref)
  Case 1
    Print "Password Entered"
End Select
End Sub

if(*pp == '#') p++;

if(*pp == '#') pp++;