0  BEGIN PGM 8185_ES MM 
1  ;Programa NC para redondear un
2  ;valor. Al principio del programa se
3  ;puede definir el valor numérico y
4  ;a qué número entero o posición
5  ;decimal se debe redondear.
6  ;Finalmente, el control numérico
7  ;ejecuta los cálculos y guarda el
8  ;valor redondeado en el parámetro
9  ;Q31.
10 ;
11 ;
12 ;Introducción de valores
13 Q30 = 12.6453 ;Número que se debe redondear
14 FN 0: Q40 =+0.02 ;Valor al que se debe redondear
15 ;
16 ;variables
17 FN 4: Q41 =+1 DIV +Q40
18 Q31 = INT ( ( Q30 * Q41 ) + ( 0.5 * SGN ( Q30 * Q41 ) ) ) / Q41
19 ;
20 ;En Q31 se guarda el valor
21 ;redondeado
22 STOP
23 ;
24 ;Final del programa
25 M30
26 END PGM 8185_ES MM