Initial data commit

Task/100-doors/XBasic/100-doors.basic

@@ -0,0 +1,29 @@
+PROGRAM "100doors"
+VERSION "0.0001"
+
+IMPORT "xma"
+IMPORT "xst"
+
+DECLARE FUNCTION Entry()
+
+FUNCTION Entry()
+  maxpuertas = 100
+  cont = 0
+  DIM puertas[100]
+
+  FOR p = 1 TO maxpuertas
+    IF INT(SQRT(p)) = SQRT(p) THEN puertas[p] = 1
+  NEXT p
+
+  PRINT "The doors are open: ";
+  FOR p = 1 TO maxpuertas
+    IF puertas[p] = 1 THEN
+       PRINT p; " ";
+       INC cont
+    END IF
+  NEXT p
+
+  PRINT CHR$(10); "Are "; STR$(cont); " open doors."
+
+END FUNCTION
+END PROGRAM