24 lines
625 B
QBasic
24 lines
625 B
QBasic
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
|
|
|