Para su ejecución usted debe bajar los archivos (sombra.lwr y figuras.shp)
y copiarlos en un subdirectorio de su LogoWr.
PARA P INSERTA "FPOS INSERTA CAR 91 INSERTA ENTERO COORX INSERTA CAR 32 INSERTA ENTERO COORY ES CAR 93 FIN PARA X INSERTACM "FPOS INSERTACM CAR 91 INSERTACM POS MUESTRA CAR 93 FIN PARA DIB FFIG 1 SP LAPIZ FIN PARA LAPIZ DA "X LEECAR SI :X = 8[FRUMBO 0 AD 1] SI :X = 9[FRUMBO 45 AD 1] SI :X = 6[FRUMBO 90 AD 1] SI :X = 3[FRUMBO 135 AD 1] SI :X = 2[FRUMBO 180 AD 1] SI :X = 1[FRUMBO 225 AD 1] SI :X = 4[FRUMBO 270 AD 1] SI :X = 7[FRUMBO 315 AD 1] SI :X = "Q [ALTO] SI :X = "X [P] SI :X = "P[SP ES "SP] SI :X = "L[CP ES "CP] SI :X = "B[PB] LAPIZ FIN PARA RELOJ ffig 1 fcolor 240 sp fpos[-31 -86] CP FPOS[-36 -54] FPOS[-31 -43] FPOS[0 -20] FPOS[44 -20] FPOS[70 28] FPOS[76 24] FPOS[63 -30] FPOS[44 -20] SP FPOS[75 25] CP fpos[80 20] FPOS[84 -25] FPOS[63 -30] SP FPOS[84 -23] CP FPOS[128 -23] FPOS[144 -40] FPOS[147 -50] FPOS[-23 -50] FPOS[-30 -45] SP FPOS[-21 -50] cp fpos[-3 -94] cp FPOS[107 -94] FPOS[122 -58] FPOS[122 -60] FPOS[131 -50] FPOS[148 -50] FPOS[150 -62] FPOS[145 -94] fpos[108 -94] FPOS[-6 -94] fpos[-31 -86] fin para sol dile 1 ad 1 dile 0 fin para inicio traefigs et dile 1 sp ffig 49 fcolor 14 mt frumbo 250 fpos[-5 85] dile 0 cargadib "reloj2.dib espera 30 som fin para som da "x 64 fcolor 169 repite 60[sol sp fpos[64 -31]cp fx :x fpos[84 -26] da "x :x + 1 espera 10 ] fin