Data update

Task/100-doors/MSX-Basic/100-doors-2.basic

@@ -0,0 +1,22 @@
+REM "100 Doors" program for QB64 BASIC (http://www.qb64.net/), a QuickBASIC-like compiler.
+REM Author: G. A. Tippery
+REM Date: 12-Feb-2014
+REM
+REM   Unoptimized (naive) version, per specifications at http://rosettacode.org/wiki/100_doors
+
+DEFINT A-Z
+CONST N = 100
+DIM door(N)
+
+FOR stride = 1 TO N
+    FOR index = stride TO N STEP stride
+        LET door(index) = NOT (door(index))
+    NEXT index
+NEXT stride
+
+PRINT "Open doors:"
+FOR index = 1 TO N
+    IF door(index) THEN PRINT index
+NEXT index
+
+END

Task/100-doors/MSX-Basic/100-doors-3.basic

@@ -0,0 +1,16 @@
+DIM doors(0 TO 99)
+FOR pass = 0 TO 99
+	FOR door = pass TO 99 STEP pass + 1
+		PRINT doors(door)
+		PRINT NOT doors(door)
+		doors(door) = NOT doors(door)
+	NEXT door
+NEXT pass
+FOR i = 0 TO 99
+	PRINT "Door #"; i + 1; " is ";
+	IF NOT doors(i) THEN
+		PRINT "closed"
+	ELSE
+		PRINT "open"
+	END IF
+NEXT i

Task/100-doors/MSX-Basic/100-doors-4.basic

@@ -0,0 +1,12 @@
+DIM doors(0 TO 99)
+FOR door = 0 TO 99
+	IF INT(SQR(door)) = SQR(door) THEN doors(door) = -1
+NEXT door
+FOR i = 0 TO 99
+	PRINT "Door #"; i + 1; " is ";
+	IF NOT doors(i) THEN
+		PRINT "closed"
+	ELSE
+		PRINT "open"
+	END IF
+NEXT i