Help converting skill from IC5 to IC6

Hi All,

I have some skill code below im hoping to convert from IC5 to IC6. I know many functions/commands have changed with the switchover, however I haven't had much luck myself trying to convert.

I am also seeing that the keypad keys are non functional or semi functional in IC6. Would there be a workaround for this?

Any help much appreciated, thanks!

;Changing via type
procedure(BSchangetoVia1()
let((newMaster)
        foreach(fig geGetSelSet()
                when(fig~>objType=="inst"
                        newMaster=dbOpenCellViewByType(fig~>libName "met2_met1_b" fig~>viewName)
                        fig~>master=newMaster
                        dbClose(newMaster)
                        printf("Contact type = %L\n" fig~>cellName)
                );when
        );foreach
);let
);procedure
hiSetBindKey("Layout" "Alt<key>KP_End" "BSchangetoVia1()")

;Changing via columns
procedure(BSchangeViaVertDecPathFine()
let((message x1 x2 dx labelheight point win hs Right Left Top Bottom dx1000 intdx1000 a RightNew LeftNew LowerLeft UpperRight newbBox sum crdList firstPt lastPt areap)
        foreach(fig geGetSelSet()
                when(fig~>objType=="inst"
                        prop=dbFindProp(fig "column")
                        if( prop != nil
                                then    if( fig~>column >= 3
                                                then fig~>column = fig~>column - 1
                                                else dbDeletePropByName(fig "column")
                                        )
                                else    nil
                        );if
                        printf("Colums = %L\n" fig~>column)
                );when
        );foreach
);let
);procedure
hiSetBindKey("Layout" "Shift Alt<key>KP_Subtract" "BSchangeViaVertDecPathFine()")