From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Sun, 21 Jul 2024 10:58:19 +0000 (+0300)
Subject: Re-added examples where AI failed to improve. Will deal with them manually later.
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=c55d4097f3a01e14a20de53325d40d50346e6654;p=qbasicapps.git

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
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
+