program rounding;
global
 int rounded_number;
 float number_to_round;  

begin
  set_mode(160,28,8);
 
  number_to_round=0;      
  write(0,5,5,0, "Number To Round:");
  write(0,5,15,0, "Rounded Number:");  
  write_float(0,120,5,0, &number_to_round);
  write_int(0,120,15,0, &rounded_number);      
  loop    
    if(number_to_round>=0)
      rounded_number=number_to_round+0.51;                
     end;
    if(number_to_round<0)
      rounded_number=number_to_round-0.51;
     end;      
    if(key(_control))
      number_to_round+=0.01;
     end;    
    if(key(_alt))    
      number_to_round-=0.01;
     end;
    frame;
   end;
 end;