!Your Weight:67#Icon:9#Task:PrevWeight = Value(C1) Set(ActiveCell(),Value(InputBox("Enter your weight in kg"))) if ActiveCell()="!!Val" Set(ActiveCell(),PrevWeight) MsgBox("You must enter your weight") endBeginning:rn20#Icon:9#Task:Set(ActiveCell(),ListBox2("Drinks",20,21,22,23,24,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19)) if Left(ActiveCell(),1)="#" Set(ActiveCell(),20) end fbChart -->#Icon:5#Task:ShowChart TopLeftCell(a1)Alcohol (g)in bloodPromile841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrinkNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinksNJChoose Drink#Icon:9#Task:SelectDrink841#Icon:9#Task:CountDrinks Sort of Drink ml%Absinth0,50#Icon:9#Task:Drinks 50Bacardi0,50#Icon:9#Task:Drinks 50Becher0,50#Icon:9#Task:Drinks 50Beefeater0,50#Icon:9#Task:Drinks 50Capa Negra0,50#Icon:9#Task:Drinks 50Cinzano:6100#Icon:9#Task:Aperitives 100Grant's0,50#Icon:9#Task:Drinks 50 Jack Daniel's0,50#Icon:9#Task:Drinks 50Martini:6100#Icon:9#Task:Aperitives 100Metaxa0,50#Icon:9#Task:Drinks 50($Napoleon De Goale0,50#Icon:9#Task:Drinks 50rn#Task:Set(h13,ActiveCell())#Task:Set(h13,ActiveCell()) Porto:6100#Icon:9#Task:Aperitives 100 Rum0,50#Icon:9#Task:Drinks 50Smirnoff0,50#Icon:9#Task:Drinks 50Tequila0,50#Icon:9#Task:Drinks 50B>Add New Drink#Task:AddNewDrink 67Weight BeginingNewDrink    ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y? ! 8@Y?                           ? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ?; 7@# 7@" ?"%      +' ?$   $? ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@ ,( P P @@@= T@Drinks Set(ActiveCell(),ListBox2("Bottle/Glass Size in ml",20,40,50,100)) if Left(ActiveCell(),1)="#" Set(ActiveCell(),50) end mlCountO T@AperitivesSet(ActiveCell(),ListBox2("Bottle/Glass size in ml",100,200,750,1000)) if Left(ActiveCell(),1)="#" Set(ActiveCell(),100) end mlCountC T@ VineSet(ActiveCell(),ListBox2("Bottle/Glass size in ml",200,700,750,1000)) if Left(ActiveCell(),1)="#" Set(ActiveCell(),200) end mlCount T@AddNewDrink Sel(ActiveCell()) InsertCells(False) Set(CellRef(1,LastRow(1)-1,2),InputBox("Enter Name of Drink")) if IsBlank(CellRef(1,LastRow(1)-1,2)) Sel(CellRef(1,LastRow(1)-1,2)) DeleteCells(False) MsgBox("Name of the drink must be entered!") Return() end Sel(CellRef(1,LastRow(1)-1,2)) FormatPainter(CellRef(1,LastRow(1)-2,2)) Sel(CellRef(2,LastRow(1)-1,2)) Set(CellRef(2,LastRow(1)-1,2),ListBox2("Drink,Aperitive or Vine?","Drink","Aperitive","Vine")) if IsBlank(CellRef(2,LastRow(1)-1,2)) MsgBox("Wrong Entry. Please try again!") Sel(CellRef(1,LastRow(1)-1,2)) DeleteCells(False) Return() elsif CellRef(2,LastRow(1)-1,2)="Drink" CellTask(" ","Drinks",9) elsif CellRef(2,LastRow(1)-1,2)="Aperitive" CellTask(" ","Aperitives",9) else CellTask(" ","Vine",9) end Sel(CellRef(2,LastRow(1)-1,2)) FormatPainter(CellRef(2,LastRow(2)-1,2)) Set(CellRef(3,LastRow(1)-1,2),InputBox("Enter % of Alcohol")) if IsBlank(CellRef(3,LastRow(1)-1,2)) Sel(CellRef(1,LastRow(1)-1,2)) DeleteCells(False) Return() end Sel(CellRef(3,LastRow(1)-1,2)) FormatPainter(CellRef(1,LastRow(1)-2,2)) Sel(CellRef(4,LastRow(1)-2,2)) Copy() Sel(CellRef(4,LastRow(1)-1,2)) Paste() Sel(CellRef(4,LastRow(1)-1,2)) FormatPainter(CellRef(1,LastRow(1)-2,2)) T@mlCountbSet(CellRef(5,Row(ActiveCell()),2),ActiveCell()) T@SelectDrinkActiveSheet(2) LRow=LastRow(1)-1 ActiveSheet(1) ItemIndex = ListBox("Select Drink",RangeRef(1,2,1,LRow,2)) Set(ActiveCell(),CellRef(1,ItemIndex+1,2)) ValErr = ActiveCell() 'Left(ActiveCell(),Find("#",ActiveCell(),1)-1) if ValErr="!!Val" Set(ActiveCell(),"Choose Drink") if Column(ActiveCell())=2 Set(CellRef(9,Row(ActiveCell()),1),0) else Set(CellRef(11,Row(ActiveCell()),1),0) end elsif Column(ActiveCell())=2 Set(CellRef(9,Row(ActiveCell()),1),CellRef(4,ItemIndex+1,2)) else Set(CellRef(11,Row(ActiveCell()),1),CellRef(4,ItemIndex+1,2)) endK T@ShowChartSel(a3:z4) Chart("Type:LineMarkers","Title:Alcohol Chart","XTitle:Hours","YTitle:Promile","Legend:No","XGrid","YGrid") TopLeftCell(a1) T@CountDrinksItemIndex = ListBox2("Count your drinks",1,2,3,4,5,6,7,8,9) if Column(ActiveCell())=3 if ItemIndex="" Set(ActiveCell(),1) Set(CellRef(10,Row(ActiveCell()),1),1) else Set(ActiveCell(),ItemIndex) Set(CellRef(10,Row(ActiveCell()),1),ItemIndex) end else if ItemIndex="" Set(ActiveCell(),1) Set(CellRef(12,Row(ActiveCell()),1),1) else Set(ActiveCell(),ItemIndex) Set(CellRef(12,Row(ActiveCell()),1),ItemIndex) end endAlcohol ListOTahomaft - o@hu@@8lt POArialft - o@hu@@8lt POArialft - o@hu@@8lt POArialft - o@hu@@8lt POArialft - o@hu@@8lt POArialft - o@hu@@8lt PO"Tahomaft - o@hu@@8lt PO"Tahomaft - o@hu@@8lt P  - - Kc- Kc Kc- Kc%-%d.M.yyd-MMM-yyd-MMMMMM-yyh:mm tt H:mmh:mm:ss ttH:mm:ssd.M.yy H:mm         @ @   I A@                                 @  @    @   @   @                      Z&?'?(?)?*, d# !         j        @   P @       3@4@5@6@7@8@?@@ @ @ @ @  @"@$@&@(@*@,@.@0@1@2@3@  ? !"#$%&'()*+,-./012 Q @3@3   @4@4   5 6 7  ?  ?  @5@8    9 : ;  ?  ?  @6@<   = > ?  ?  ?  @7@@   A B C  ?  ? @D   E F G  ?  ? @?H   I J K  ?  ? @@L ! "# M N O  ?  ? @@P $% &' Q R S  ?  ? @@T () *+ U V W  ?  ?  @@X ,- ./ Y Z [  ?  ?  @@\ 01 23 ] ^ _  ?  ?  @@` 45 67 a b c  ?  ?  @ @d 89 :; e f g  ?  ?  @"@h <= >? i j k  ?  ?  @$@l @A BC m n o  ?  ?  @&@p DE FG q r s  ?  ?  @(@t HI JK u v w  ?  ?  @*@x LM NO y z {  ?  ?  @,@| PQ RS } ~   ?  ?  @.@ TU VW   ?  ?  @0@ XY Z[   ?  ?  @1@ \] ^_   ?  ?  @2@ `a bc   ?  ?  @3@ de fg   ?  ? Z&?'?(?)?*,@d# c     E  'hij ;klN@8@m ;noB@.@p )qrC@ffffff.@s ;tuD@0@v >wxB@,@y >z{.@(@| ,}~D@0@ >E@3333331@ ; 2@,@ ; C@ffffff.@ H B@,@ ; 3@ffffff.@ ; D@0@ ;D@0@ A@C@ffffff.@                  ! " # $ % & '