johnblood/learning-to-code
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update basic apps and add ldpl folder

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-03-03 20:40:43 -05:00
parent ba1daaea6b
commit 250a292421
2 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ldpl/hello.ldpl Normal file
View File

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

30
qb64/order-system.bas
View File

@ -1,7 +1,23 @@
REM Order System 1.0 REM Order System 1.0
rem by John Paul Wohlscheid REM by John Paul Wohlscheid
print tab(15); "Welcome to the first version of the Order System." REM Variables
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" DIM items% 'item total
print tab(15); "at the end." 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