Posted to tcl by qih at Thu Jan 04 08:38:23 GMT 2018view pretty
# Code after execution, one loop qih proj003 $ tclsh medtrack.tcl Welcome, today's date is Thursday, 01/04/2018 ------------------------------------------------------- Are you adding a new medication? (Yes or No) Yes Please answer the following questions: -------------------------------------- What is the name of this medicine? >> Yuckycloxindine How many do you have currently? >> 7 How many doses per day, do you need to take? >> 2 How many tablets per dose, do you need to take? >> 2 How many tablets have you been issued? >> 30 How many days lead time do you want for reissuing? >> 5 The current supply of this medication is 9 days. You will need more of this medication in 4 days. Which will be Monday, 01/08/2018