31 lines
734 B
QBasic
31 lines
734 B
QBasic
_Title "Generic Ordering System"
|
|
REM Order System 0.1
|
|
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
|
|
print
|
|
PRINT
|
|
PRINT "First of all, please enter your name."
|
|
INPUT "Enter your first name: ", fname$
|
|
INPUT "Enter your last name: ", lname$
|
|
|
|
cls
|
|
PRINT TAB(15); "Thank you, " + fname$ + "!"
|
|
PRINT TAB(15); "Now, let's get to ordering."
|
|
PRINT
|
|
|