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

FreeBasic version of generic Ordering System

Browse Source
This commit is contained in:
John Paul Wohlscheid
2021-04-19 00:00:11 +00:00
parent 250a292421
commit da8b947bf7
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
basic/ordering-system.bas Normal file
View File

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