** convert password to lowercase
pass$=LOW(pass$)
** check if password match
If (pass$='jotocumim') Then
   ** show enhanced messagebox
   Caption$ = 'Password approved'
   Params$ = 'Continue to next page?'
   ** Yes/No buttons + question-mark
   Flag= 4 + 32
   Params$ = Params$+','+CHAR(Flag)
   MessageEx("Caption$","Params$")
   If (CBK_MsgEx=6) Then
     Show("Master Page::TextBTN")
     NextPage()
   Else
     Show("Master Page::TextBTN")
   End
Else
   ** show enhanced messagebox
   Caption$ = 'Incorrect Password!!!'
   Params$ = 'You have to enter it again!'
   ** OK button + exclamation-mark
   Flag= 48
   Params$ = Params$+','+CHAR(Flag)
   MessageEx("Caption$","Params$")
   pass$=''
   LoadText("EditBox","pass$")
   Hide("Master Page::TextBTN")
End

Message("Сообщение","")

[O1] <= 0 OR [O2] <= 0 OR [O3] <= 0 OR [O4] <= 0 OR [O5] <= 0 OR [O6] <= 0 OR [O7] <= 0 OR [O8] <= 0 OR [O9] <= 0 OR [O10] <= 0 OR [O11] <= 0 OR [O12] <= 0 OR [O13] <= 0 OR [O14] <= 0 OR [O15] <= 0 OR [O16] <= 0 OR [O17] <= 0 OR [O18] <= 0 OR [O19] <= 0 OR [O20] <= 0 OR [O21] <= 0 OR [O22] <= 0 OR [O23] <= 0 OR [O24] <= 0 OR [O25] <= 0 OR [O26] <= 0 OR [O27] <= 0 OR [O28] <= 0 OR [O29] <= 0 OR [O30] <= 0 OR [O31] <= 0 OR [O32] <= 0 OR [O33] <= 0