Um timer simples
Para fazer animações simples e eficientes

Toda animação está inserida em um bloco repetitivo de instruções. Porém devemos sempre considerar que o computador vai executar tudo muito rápido e fatalmente não veremos nada. Por causa disso, teremos que dispor de uma instrução que apenas "gaste" um pouco de tempo, sem maiores consequências:

   pause v1

Esta instrução faz com que o processamento seja interrompido por v1 milésimos de segundos, independentemente do clock dele e dos recursos disponíveis na máquima. Com isso podemos criar uma animação com o aviãozinho voando de um lado para outro, na tela, com a seguinte programação:

   let #20,10
:loop
   cls
   fig "av1",#20,50,0
   pause 33
   add #20,5
   if> #20,500,saida
   goto loop
:saida
   cls

 
online