GalgasLab/logos/pentagone.logo

PROGRAM

  ROUTINE trace
  BEGIN
    FORWARD 70;
    ROTATE 72;
  END

BEGIN
  FORWARD 200;
  ROTATE 90;
  FORWARD 300;
  ROTATE 270;
  PEN DOWN;
  CALL trace;
  CALL trace;
  CALL trace;
  CALL trace;
  CALL trace;
END.