Data commit

Task/Flow-control-structures/M2000-Interpreter/flow-control-structures-1.m2000

@@ -0,0 +1,38 @@
+Module Inner {
+	long x=random(1, 2)
+	on x goto 90, 100
+090	print "can print here if is "+x  // if x=1
+100	Print "ok"
+	gosub 500
+alfa:  // no statement here only comments because : is also statement separator
+	print "ok too"
+	integer c
+	Every 100 { // every 100 miliseconds this block executed
+		c++
+		gosub printc
+		if c>9 then 200
+	}
+	print "no print here"
+200	Gosub exitUsingGoto
+	Every 100 { // every 100 miliseconds this block executed
+		c++
+		gosub printc
+		if c>19 then exit
+	}
+	gosub 500
+	try ok {
+		on x gosub 400, 1234
+	}
+	if ok else print error$ // sub not found (if x=2)
+	goto 1234  ' not exist so this is an exit from module
+400	print "can print here if is "+x  // if x=1
+	end
+printc:
+		Print c
+		return
+500	Print "exit from block using exit" : return
+exitUsingGoto:
+		Print "exit from block using goto"
+		return
+}
+Inner

Task/Flow-control-structures/M2000-Interpreter/flow-control-structures-2.m2000

@@ -0,0 +1,27 @@
+module outer {
+	static m as long=100  // if m not exist created
+	module count (&a(), b) {
+		long c=1
+		do
+			if b(c) then exit
+			call a(c)
+			c++
+		always
+	}
+	
+	long z, i=100
+	// function k used as call back function, through lazy$()
+	function k {
+		read new i
+		print i   // print 1 and 2
+		z+=i
+		m++
+	}
+	
+	count lazy$(&k()), (lambda (i)->i>=3)
+	print z=3, i=100, m
+}
+clear  // clear variables (and static variables) from this point
+outer // m is 102
+outer // m is 104
+outer // m is 106

Task/Flow-control-structures/M2000-Interpreter/flow-control-structures-3.m2000

@@ -0,0 +1,29 @@
+Module checkSelect {
+	long m, i, k
+	for k=1 to 10
+	m=10
+	i=random(5, 10)
+	select case i
+	case <6
+		print "less than 6"
+	case 6
+	{
+		m++: break   // break case block, and continue to next block
+	}
+	case 7
+	{
+		m++: break
+	}
+	case 8
+	{
+		m++: continue // exit after end select
+	}
+	case 9
+		print "is 9"
+	case else
+		print "more than 9"
+	end select
+	print m, i
+	next
+}
+checkSelect