From fcd9b60b3c28d813e843c415fa6b359e65480c33 Mon Sep 17 00:00:00 2001
From: John Paul Wohlscheid <wohlschied@gmail.com>
Date: Tue, 20 Apr 2021 22:22:17 -0400
Subject: [PATCH] new qb64projects

---
 qb64/Artillery3.bas    | 25 +++++++++++++++++++++++
 qb64/guessing-game.bas | 46 +++++++++++++++++++++---------------------
 qb64/order-system.bas  | 13 +++++++++---
 3 files changed, 58 insertions(+), 26 deletions(-)
 create mode 100644 qb64/Artillery3.bas

diff --git a/qb64/Artillery3.bas b/qb64/Artillery3.bas
new file mode 100644
index 0000000..fcaf212
--- /dev/null
+++ b/qb64/Artillery3.bas
@@ -0,0 +1,25 @@
+PRINT "Artillery 3"
+PRINT TAB(7); "Copyright 1979 Creative Computing"
+INPUT "Do you need instructions?"; I$
+t = 0
+DIM S(2, 9)
+DIM V(3), X(3), P(3), R(3, 3)
+DATA 1,2,2,3,3,1,1,3,3,2,2,1,2,3,3,1,1,2,0
+IF LEFT$(I$, 1) = "Y" THEN 1240 ELSE CLS
+
+players:
+
+PRINT
+PRINT "No. of Players"
+INPUT N
+IF N = 2 THEN 170
+IF N = 3 THEN 200
+PRINT "Error -- Two or Three Players!"
+PRINT
+RETURN
+
+GOSUB players
+
+N1 = 1
+PRINT ""
+
diff --git a/qb64/guessing-game.bas b/qb64/guessing-game.bas
index e2ff766..c09527b 100644
--- a/qb64/guessing-game.bas
+++ b/qb64/guessing-game.bas
@@ -1,24 +1,24 @@
-score = 0
-PRINT "Hello, Player! What is your name?"
-INPUT ; name$
-PRINT
-PRINT "Welcome " + name$ + "!"
-PRINT "Please answer the following questions."
-PRINT "A score of 5 is perfect."
-PRINT "What is the result of 1 + 1?"
-INPUT ; answer
-IF answer = 2 THEN score = score + 1
-PRINT "What does 3 times 4 equal?"
-INPUT ; answer
-IF answer = 12 THEN score = score + 1
-PRINT "What is the answer to 81 divided by 9"
-INPUT ; answer
-IF answer = 9 THEN score = score + 1
-print "What does 7 time 8 plus 10 equal"
-INPUT ; answer
-if answer = 66 then score = score + 1
-print "What is the answer to the ultimate auestion of life, the universe, and everything."
-input ; answer
-if answer = 42 then score = score + 1
+score% = 0
+Print "Hello, Player! What is your name?"
+Input ; name$
+Print
+Print "Welcome " + name$ + "!"
+Print "Please answer the following questions."
+Print "A score of 5 is perfect."
+Print "What is the result of 1 + 1?"
+Input ; answer
+If answer = 2 Then score = score + 1
+Print "What does 3 times 4 equal?"
+Input ; answer
+If answer = 12 Then score = score + 1
+Print "What is the answer to 81 divided by 9"
+Input ; answer
+If answer = 9 Then score = score + 1
+Print "What does 7 time 8 plus 10 equal"
+Input ; answer
+If answer = 66 Then score = score + 1
+Print "What is the answer to the ultimate auestion of life, the universe, and everything."
+Input ; answer
+If answer = 42 Then score = score + 1
 print "Your score: " + score
-print "You have the skillof 
\ No newline at end of file
+print "You have the skill of
diff --git a/qb64/order-system.bas b/qb64/order-system.bas
index 2e743b4..b95ad94 100644
--- a/qb64/order-system.bas
+++ b/qb64/order-system.bas
@@ -1,4 +1,5 @@
-REM Order System 1.0
+_Title "Generic Ordering System"
+REM Order System 0.1
 REM by John Paul Wohlscheid
 
 REM Variables
@@ -14,10 +15,16 @@ PRINT TAB(15); "Welcome to the first version of this Order System."
 PRINT TAB(15); "To place your order, enter the amount you of each"
 PRINT TAB(15); "item you want and the amount will be totalled"
 PRINT TAB(15); "at the end."
+print
+print
+print
 PRINT
-PRINT TAB(15); "First of all, please enter your name."
+PRINT "First of all, please enter your name."
 INPUT "Enter your first name: ", fname$
 INPUT "Enter your last name: ", lname$
-PRINT "Thank you," + fname$ + "!"
+
+cls
+PRINT TAB(15); "Thank you, " + fname$ + "!"
+PRINT TAB(15); "Now, let's get to ordering."
 PRINT