Data commit

Task/Loops-Wrong-ranges/FreeBASIC/loops-wrong-ranges.basic

@@ -0,0 +1,24 @@
+data -2,2,1,"Normal",-2,2,0,"Zero increment",-2,2,-1,"Increments away from stop value"
+data -2,2,10,"First increment is beyond stop value",2,-2,1,"Start more than stop: positive increment"
+data 2,2,1,"Start equal stop: positive increment",2,2,-1,"Start equal stop: negative increment"
+data 2,2,0,"Start equal stop: zero increment",0,0,0,"Start equal stop equal zero: zero increment"
+
+dim as integer i, start, fin, inc, vr, count
+dim as string cmt
+for i = 1 to 9
+    count = 0
+    read start, fin, inc, cmt
+    print cmt
+    print using "  Looping from ### to ### in increments of ##"; start; fin; inc
+    for vr = start to fin step inc
+        print "        Loop index = ",vr
+        count += 1
+        if count = 10 then
+            print "        Breaking infinite loop"
+            exit for
+        end if
+    next vr
+    print "  Loop finished"
+    print
+    print
+next i