From da8b947bf7cb69eb981bb4a813dd700eb2eb406b Mon Sep 17 00:00:00 2001 From: John Paul Wohlscheid Date: Mon, 19 Apr 2021 00:00:11 +0000 Subject: [PATCH] FreeBasic version of generic Ordering System --- basic/ordering-system.bas | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 basic/ordering-system.bas diff --git a/basic/ordering-system.bas b/basic/ordering-system.bas new file mode 100644 index 0000000..149f90a --- /dev/null +++ b/basic/ordering-system.bas @@ -0,0 +1,23 @@ +REM Order System 0.5 - FreeBasic Edition +REM by John Paul Wohlscheid + +REM Variables + +DIM items as integer 'item total +DIM fname as string 'customer first name +DIM lname as string 'customer last name +DIM total as integer '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 +