Change FOREACH to FOR (#680)

test/asm/for.asm

@@ -0,0 +1,48 @@
+for n, 10
+	printt "{d:n} "
+endr
+	printt "-> {d:n}\n"
+
+for v, 0
+	printt "unreached"
+endr
+
+for v, 2, 1
+	printt "unreached"
+endr
+
+for v, 1, 2, 0
+	printt "unreached"
+endr
+
+for x, 1, 5+1
+	printt "{d:x} "
+endr
+	printt "-> {d:x}\n"
+
+for v, 10, -1, -1
+	printt "{d:v} "
+v = 42
+endr
+	printt "-> {d:v}\n"
+
+for q, 5, 21, 5
+	printt "{d:q} "
+purge q
+endr
+	printt "-> {d:q}\n"
+
+s EQUS "x"
+for s, 3, 30, 3
+	printt "{d:x} "
+endr
+	printt "-> {d:x}\n"
+
+for v, 10
+	printt "{d:v}\n"
+if v == 3
+purge v
+v equ 42 ; causes a fatal error
+endc
+endr
+	printt "-> {d:v}\n"