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