From 250a292421f2eabc343cb8a124d06b4ce8d3c1d6 Mon Sep 17 00:00:00 2001
From: John Paul Wohlscheid <wohlschied@gmail.com>
Date: Wed, 3 Mar 2021 20:40:43 -0500
Subject: [PATCH] update basic apps and add ldpl folder

---
 ldpl/hello.ldpl       | 10 ++++++++++
 qb64/order-system.bas | 30 +++++++++++++++++++++++-------
 2 files changed, 33 insertions(+), 7 deletions(-)
 create mode 100644 ldpl/hello.ldpl

diff --git a/ldpl/hello.ldpl b/ldpl/hello.ldpl
new file mode 100644
index 0000000..101cb06
--- /dev/null
+++ b/ldpl/hello.ldpl
@@ -0,0 +1,10 @@
+# LDPL 'Hello World' example
+
+data:
+name is text # Your name will go here.
+
+procedure:
+display "Hello World!" lf "What's your name? "
+accept name
+display "你好, " name ", welcome to LDPL!" lf
+
diff --git a/qb64/order-system.bas b/qb64/order-system.bas
index 8f4a023..2e743b4 100644
--- a/qb64/order-system.bas
+++ b/qb64/order-system.bas
@@ -1,7 +1,23 @@
-REM Order System 1.0
-rem by John Paul Wohlscheid
-
-print tab(15); "Welcome to the first version of the Order System."
-print tab(15); "In order to place your order, enter the amount you"
-print tab(15); "of each item you want and the amount will be totalled"
-print tab(15); "at the end."
\ No newline at end of file
+REM Order System 1.0
+REM by John Paul Wohlscheid
+
+REM Variables
+
+DIM items% 'item total
+DIM fname$ 'customer first name
+DIM lname$ 'customer last name
+DIM total% 'order total
+
+REM Main Program
+
+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 TAB(15); "First of all, please enter your name."
+INPUT "Enter your first name: ", fname$
+INPUT "Enter your last name: ", lname$
+PRINT "Thank you," + fname$ + "!"
+PRINT
+