« 10 RAND * IP 0 -> r <-n « DO "ADIVINA EL NÚMERO MÁGICO" "" INPUT OBJ? '<-n' STO CASE <-n r > THEN "MÁS BAJO..." END <-n r < THEN "MÁS ALTO..." END "ACERTASTE" END MSGBOX UNTIL r <-n == END » »
Programa para calcular números primos. Calcula el tiempo empleado en formato HMS.
<<
“INTRODUCE EL NÚMERO:”
“”
INPUT OBJ
TIME SWAP
3 t p n
<<
DO p n /
IF FP 0 ==
THEN p “NO ES PRIMO” n KILL
END
n 2 + ‘n’ STO
UNTIL n 2 ^ p >
END CLEAR p “PRIMO”
TIME HMS→ t HMS→ - →HMS
>>
>>