$inifile = "d:\kix\aup_files\@USERID.ini"

Select
	Case ReadProfileString($inifile,"Pol ID","Agreement 1") <> "agreed pol1"

		$Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP1",324)

		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 1", "agreed pol1")
		EndIf

	Case ReadProfileString($inifile,"Pol ID","Agreement 2") <> "agreed pol2"
		
		$Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP2",324)
		
		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 2", "agreed pol2")
		EndIf

	Case ReadProfileString($inifile,"Pol ID","Agreement 3") <> "agreed pol3"

		$Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP3",324)

		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 3", "agreed pol3")
		EndIf

EndSelect

 
Break On 
	$msg1="Password has to be minimum 6 characters @CRLF"
	$msg2="Password has to be combination of number and alphabets @CRLF"
	
	$msg3="E-Mail has to be Business Usage @CRLF"
	$msg4="Mail box size should not exceed more than 5 mb @CRLF"
	
	$msg5="Internet has to be Business purpose @CRLF"
	$msg6="Internet usage need to be restricted @CRLF"
	
	$System = CreateObject("Kixtart.System")
	$form1 = $System.Form();
	$button1 = $form1.Controls.Button ()
	$button2 = $form1.Controls.Button ()
	$button1.Text = "OK";
	$button1.Location = $System.Point (10, 400)
	$button2.Text = "Cancel";
	$button2.Location = $System.Point (500, 400)
	
	
	$button1.DialogResult = $System.DialogResult.OK
	$button2.DialogResult = $System.DialogResult.Cancel
	
	$form1.Text = "Abu Dhabi Islamic Bank AUP"
	$form1.FormBorderStyle = $System.FormBorderStyle.FixedDialog
	$form1.StartPosition = $system.formStartPosition.centerScreen
	$Form1.Width = 680
	$Form1.bottom = 700
	
 If Exist ("D:\kix\aup_files\@USERID.ini")=0	
	 $label1 = $form1.label("ABC Password Policy")
	 $label1.FontSize=20
	 $label1.Left = 200
	 $label1.width = $form1.scalewidth-$label1.Left-90
	 $label1.height = 50
	 $label2 = $form1.label($msg1)
	 $label2.FontSize=15
	 $label2.location = 5,50
	 $label2.width = 680
	 $label3 = $form1.label($msg2)
	 $label3.FontSize=15
	 $label3.location = 5,80
	 $label3.width = 680
	 
	 $button1.default = true
	 $button2.cancel = true
	
	$= $form1.ShowDialog()
	If ($form1.DialogResult = $System.DialogResult.OK)
	 $= $System.MessageBox.Show("AUP Agreed")
	 $=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 1", "@Userid agreed pol1") 
	Else
	 $= $System.MessageBox.Show("AUP Declined");
	EndIf
	Gosub end
EndIf
	
If ReadProfileString("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 2") <> "@Userid agreed pol2"

	$label1 = $form1.label("ABC E-Mail Policy")
	$label1.FontSize=20
	$label1.Left = 200
	$label1.width = $form1.scalewidth-$label1.Left-90
	$label1.height = 50
	$label2 = $form1.label($msg3)
	$label2.FontSize=15
	$label2.location = 5,50
	$label2.width = 680
	$label3 = $form1.label($msg4)
	$label3.FontSize=15
	$label3.location = 5,80
	$label3.width = 680
	
	$button1.default = true
	$button2.cancel = true
	$= $form1.ShowDialog()
	If ($form1.DialogResult = $System.DialogResult.OK)
	 $= $System.MessageBox.Show("AUP Agreed")
	 $=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 2", "@Userid agreed pol2") 
	Else
	 $= $System.MessageBox.Show("AUP Declined");
	EndIf
	Gosub end
EndIf 

If ReadProfileString("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 3") <> "@Userid agreed pol3"

	$label1 = $form1.label("ABC Internet Policy")
	$label1.FontSize=20
	$label1.Left = 200
	$label1.width = $form1.scalewidth-$label1.Left-90
	$label1.height = 50
	$label2 = $form1.label($msg5)
	$label2.FontSize=15
	$label2.location = 5,50
	$label2.width = 680
	$label3 = $form1.label($msg6)
	$label3.FontSize=15
	$label3.location = 5,80
	$label3.width = 680
	
	
	$button1.default = true
	$button2.cancel = true
	$= $form1.ShowDialog()
	If ($form1.DialogResult = $System.DialogResult.OK)
	 $= $System.MessageBox.Show("AUP Agreed")
	 $=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 3", "@Userid agreed pol3") 
	Else
	 $= $System.MessageBox.Show("AUP Declined");
	EndIf
	Gosub end
EndIf 

:end
Exit