Initial data commit

Task/HTTPS-Authenticated/Run-BASIC/https-authenticated.basic

@@ -0,0 +1,32 @@
+html "
+<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 border=1 bgcolor=wheat>
+<TR><TD colspan=2 bgcolor=tan align=center>LOGIN</TD></TR>
+<TR><TD align=right>UserName</TD><TD>"
+ TEXTBOX #userName, ""
+html "</TR></TD><TR><TD align=right>Password:</TD><TD>"
+PasswordBox  #passWord, ""
+
+html "</TD></TR><TD align=center colspan=2>"
+button #si, "Signin", [doSignin]
+html "   "
+button #ex, "Exit", [exit]
+html "</TD></TR></TABLE>"
+WAIT
+
+[doSignin]
+loginUserName$    = trim$(#userName contents$())
+loginPassWord$    = trim$(#passWord contents$())
+if (loginUserName$ = "admin" and loginPassWord$ = "admin" then
+   print "Login ok"
+  else
+   print "invalid User or Pass"
+   cls
+   goto [loop]
+end if
+
+print Platform$    ' OS where Run BASIC is being hosted
+print UserInfo$    ' Information about the user's web browser
+print UserAddress$ ' IP address of the user
+
+[exit]
+end