TYPE emplo
    nombre AS STRING * 30
    antiguedad AS SINGLE
END TYPE
PRINT "Cuantos empleados hay?"
INPUT num
DIM empleado(num) AS emplo
DIM aux(num) AS emplo
FOR z = 1 TO num
    PRINT "Introduzca el nombre"
    INPUT empleado(z).nombre
    PRINT "¨Cuantos a¤os lleva trabajando " + empleado(z).nombre + "?"
    INPUT empleado(z).antiguedad
NEXT

FOR i = 2 TO num
    FOR j = 0 TO (num - 1)
        IF empleado(j).antiguedad > empleado(j + 1).antiguedad THEN
            aux(j) = empleado(j)
            empleado(j) = empleado(j + 1)
            empleado(j + 1) = aux(j)
        END IF
    NEXT
NEXT
PRINT "Esta es la lista de empleados ordenados de menor a mayor antiguedad"
FOR i = 1 TO num
    PRINT empleado(i).nombre + STR$(empleado(i).antiguedad)
NEXT