.codigo;
&a := %ANCHOPANTALLA;
&b := %ALTOPANTALLA;
&r := 0;
&v := 0;
&aa := 0;
&c := %RVA &r &v &aa;
.ventana &a &b;
.memograf &a &b &c;
.vergraf;
&x := 11;
&y := 11;
&cc := 16000000;
&n := 0;
&i := 1;
&pu := 1200;
:pinta;
&n := &n + 1;
&x := %RND &i &a;
&y := %RND &i &b;
&color := %RND &i &cc;
.punto &x &y &color;
.vergraf;
.cmp &n &pu;
.saltarcero :pinta;
.vergraf;
&rt := ~Ya_hemos_terminado_de_crear_la_Galaxia;
.aviso &rt;
&l := %BLANCO;
.reseteamemograf &l;
.vergraf;
&ano := 2025;
&mes := 11;
&x := 10;
&y := 10;
&cborde := %GRISCLARO;
&cfondo := %BLANCO;
&fuente := ~Tahoma;
&tfuente := 10;
.mesgraf &ano &mes &x &y &cborde &cfondo &fuente &tfuente;
.vergraf;
&xx := 300;
&yy := 300;
&estilo := 5;
&grado := 90;
.posicion &xx &yy;
.color &cborde &cfondo;
.fuente &fuente &tfuente &estilo &grado;
.textograf &rt;
.vergraf;
&bb := %ROJO;
&pluma := 5;
.pluma &pluma;
.linea &x &y &xx &yy &bb;
.vergraf;
&xxx := 444;
&yyy := 22;
&xcv := 800;
&yyu := 300;
&mm := 600;
&uio := %AZUL;
&esquina := 0;
&tiporelleno := 0;
.caja &xxx &yyy &xcv &yyu &esquina &uio &uio &tiporelleno;
.circulo &xxx &yyu &xcv &mm &uio &uio &tiporelleno;
&name := ~star.bmp;
&zx := 222;
&zy := 500;
.leermapbit &name &zx &zy;
.vergraf;
&ne := ~grande.bmp;
.grabarmemo &ne;
.fin;