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

new qb64projects

Browse Source
This commit is contained in:
John Paul Wohlscheid
2021-04-20 22:22:17 -04:00
parent 250a292421
commit fcd9b60b3c
3 changed files with 58 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
qb64/order-system.bas
View File

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