Re-added examples where AI failed to improve. Will deal with them manually later.

diff --git a/QBasic tutorial/Group 2/02.bas b/QBasic tutorial/Group 2/02.bas
new file mode 100755 (executable)
index 0000000..39b2c4e
--- /dev/null
+++ b/QBasic tutorial/Group 2/02.bas
@@ -0,0 +1,14 @@
+1\r
+s = s + 1       ' speed\r
+PRINT s; "x"\r
+\r
+FOR a = 100 TO 1000 STEP s\r
+  SOUND a, .1\r
+NEXT a\r
+\r
+FOR a = 1000 TO 100 STEP -s\r
+  SOUND a, .1\r
+NEXT a\r
+\r
+GOTO 1\r
+\r

diff --git a/QBasic tutorial/Group 2/04.bas b/QBasic tutorial/Group 2/04.bas
new file mode 100755 (executable)
index 0000000..a428f1e
--- /dev/null
+++ b/QBasic tutorial/Group 2/04.bas
@@ -0,0 +1,11 @@
+CLS\r
+\r
+a$ = "-two-"\r
+PRINT a$\r
+\r
+a$ = a$ + "three"\r
+PRINT a$\r
+\r
+a$ = "one" + a$\r
+PRINT a$\r
+\r

diff --git a/QBasic tutorial/Group 2/06.bas b/QBasic tutorial/Group 2/06.bas
new file mode 100755 (executable)
index 0000000..d7f192d
--- /dev/null
+++ b/QBasic tutorial/Group 2/06.bas
@@ -0,0 +1,5 @@
+' several commans may be at the single line, when separated by colon.\r
+\r
+1 a = a + 1: PRINT a; "x 7 ="; a * 7: IF a < 10 THEN GOTO 1\r
+\r
+\r

diff --git a/QBasic tutorial/Group 2/11.bas b/QBasic tutorial/Group 2/11.bas
new file mode 100755 (executable)
index 0000000..0831a84
--- /dev/null
+++ b/QBasic tutorial/Group 2/11.bas
@@ -0,0 +1,10 @@
+CLS\r
+\r
+INPUT "Enter some text:", t$\r
+\r
+FOR i = 1 TO LEN(t$)\r
+  a$ = LEFT$(t$, i)\r
+  b$ = RIGHT$(a$, 1)\r
+  PRINT "letter:"; b$\r
+NEXT i\r
+\r