Fix 2 Lbl M ClrHome Menu("DXMCalc","Enter Weight",1,"Calc in mg",2,"Calc in Tsp",3,"Calc in X/100",4,"Exit",5 Lbl 1 Input ("Enter weight:",L L*.45üK ClrHome Goto M Lbl 2 ClrHome Output(1,1,"1. Output(1,4,1.5K Output(1,10,"- Output(1,11,2.5K Output(2,1,"2. Output(2,4,2.6K Output(2,10,"- Output(2,11,7.5K Output(3,1,"3. Output(3,4,7.6K) Output(3,10,"- Output(3,11,15K Output(4,1,"4. ù Output(4,5,15K Pause Goto M Lbl 3 ClrHome Output(1,1,"1. Output(1,4,1.5K/15 Output(1,10,"- Output(1,11,2.5K/15 Output(2,1,"2. Output(2,4,2.6K/15 Output(2,10,"- Output(2,11,7.5K/15 Output(3,1,"3. Output(3,4,7.6K/15 Output(3,10,"- Output(3,11,15K/15 Output(4,1,"4. ù Output(4,5,15K/15 Pause Goto M Lbl 4 ClrHome Input ("Enter dose in mg:",D ClrHome Output(1,1,D/708.8*100 Output(1,6,"ô/Ð Of 8oz Output(2,1,D/354.4*100 Output(2,6,"ô/Ð Of 4oz Pause Goto M Lbl 5 DelVar D DelVar K DelVar L Float Stop