From c55d4097f3a01e14a20de53325d40d50346e6654 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Sun, 21 Jul 2024 13:58:19 +0300
Subject: [PATCH] Re-added examples where AI failed to improve. Will deal with
 them manually later.

---
 QBasic tutorial/Group 2/02.bas | 14 ++++++++++++++
 QBasic tutorial/Group 2/04.bas | 11 +++++++++++
 QBasic tutorial/Group 2/06.bas |  5 +++++
 QBasic tutorial/Group 2/11.bas | 10 ++++++++++
 4 files changed, 40 insertions(+)
 create mode 100755 QBasic tutorial/Group 2/02.bas
 create mode 100755 QBasic tutorial/Group 2/04.bas
 create mode 100755 QBasic tutorial/Group 2/06.bas
 create mode 100755 QBasic tutorial/Group 2/11.bas

diff --git a/QBasic tutorial/Group 2/02.bas b/QBasic tutorial/Group 2/02.bas
new file mode 100755
index 0000000..39b2c4e
--- /dev/null
+++ b/QBasic tutorial/Group 2/02.bas	
@@ -0,0 +1,14 @@
+1
+s = s + 1       ' speed
+PRINT s; "x"
+
+FOR a = 100 TO 1000 STEP s
+  SOUND a, .1
+NEXT a
+
+FOR a = 1000 TO 100 STEP -s
+  SOUND a, .1
+NEXT a
+
+GOTO 1
+
diff --git a/QBasic tutorial/Group 2/04.bas b/QBasic tutorial/Group 2/04.bas
new file mode 100755
index 0000000..a428f1e
--- /dev/null
+++ b/QBasic tutorial/Group 2/04.bas	
@@ -0,0 +1,11 @@
+CLS
+
+a$ = "-two-"
+PRINT a$
+
+a$ = a$ + "three"
+PRINT a$
+
+a$ = "one" + a$
+PRINT a$
+
diff --git a/QBasic tutorial/Group 2/06.bas b/QBasic tutorial/Group 2/06.bas
new file mode 100755
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.
+
+1 a = a + 1: PRINT a; "x 7 ="; a * 7: IF a < 10 THEN GOTO 1
+
+
diff --git a/QBasic tutorial/Group 2/11.bas b/QBasic tutorial/Group 2/11.bas
new file mode 100755
index 0000000..0831a84
--- /dev/null
+++ b/QBasic tutorial/Group 2/11.bas	
@@ -0,0 +1,10 @@
+CLS
+
+INPUT "Enter some text:", t$
+
+FOR i = 1 TO LEN(t$)
+  a$ = LEFT$(t$, i)
+  b$ = RIGHT$(a$, 1)
+  PRINT "letter:"; b$
+NEXT i
+
-- 
2.20.1