Inicio Explorar Axuda
Iniciar sesión
CNI
/
GalgasLab
2
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Rama: master
Ramas Etiquetas
GalgasLab
/
logos
/
hexagone.logo

hexagone.logo 237 B
Permalink Histórico Raw

123456789101112131415161718192021 
  1. PROGRAM
    2. 

  2. 

  3.   ROUTINE trace
    4. 

  4.   BEGIN
    5. 

  5.     FORWARD 70 ;
    6. 

  6.     ROTATE 60 ;
    7. 

  7.   END
    8. 

  8. 

  9. BEGIN
    10. 

  10.   FORWARD 100 ;
    11. 

  11.   ROTATE 90;
    12. 

  12.   FORWARD 100;
    13. 

  13.   ROTATE 270;
    14. 

  14.   PEN DOWN;
    15. 

  15.   CALL trace;
    16. 

  16.   CALL trace;
    17. 

  17.   CALL trace;
    18. 

  18.   CALL trace;
    19. 

  19.   CALL trace;
    20. 

  20.   CALL trace;
    21. 

  21. END.
    22.