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
Download Patch File Download Diff File Expand all files Collapse all files

30
qb64/order-system.bas
View File

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