[VarSet,value,-2.99] [VarSet,i,1] [RoutineDef,GetCeiling, [If,num>0, [VarSet,num,num+1] ] [VarSet,num,INT(num)] ,num] [RoutineDef,GetFloor, [If,num<0, [VarSet,num,num-1] ] [VarSet,num,INT(num)] ,num] [IButton,GetFloor&Ceiling,, [VarSet,value,[Val,value * NEG(i)]] [VarSet,floor,value] [RoutineCall,GetFloor,#floor] [VarSet,ceiling,value] [RoutineCall,GetCeiling,#ceiling] [Note,[StrMerge,"Value: ", #value," Floor: ", #floor, " Ceiling: ", #ceiling]] [VarInc,i] ]