learning-to-code/qb64/order-system.bas

_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