Proyectos en LogoWriter

Guarde varios dibujos con el comando GUARDADIB "DIBUJOX.DIB. Este programa mostrará los dibujos mediante un menú. Si desea hacer un menu vertical tenga presente la tabla de direcciones.
Las figuras 5 y 6 deben ser dos pajaritos (u otro personaje) en diferente posición.


DIRECCIONES
	DE 333
	IZ 331
	ARRIBA 328
	ABAJO 336

para rec :a :b
repite 2 [ad :a de 90 ad :b de 90]
fin


para menu
RG
da "sale 0
sp fpos [-100 -60] CP
REPITE 6[REC 25 30 FX COORX + 30]
SP FPOS [-85 -25]
ffig 5 fcolor 14
elec
FIN

para menu2
sp fpos [105 -70] CP
REPITE 6[ REC 25 30
          FY COORY + 25]
FIN

para al
ffig 6 espera 3
fin

para al2
ffig 5 espera 3
fin


PARA ELEC
si :sale = 1 [alto]
SI coorx < -85  [fx  65]
SI coorx > 65  [fx  -85]
DA "TECLA  ASCII LEECAR 
DA "TECLA :TECLA - 100
SI :tecla = 233 [al fx coorx + 30 AL2]
SI :tecla = 231 [al fx coorx - 30 AL2]
SI :tecla = -87 [opc]
SI :tecla = "Q [ALTO]
elec
fin

para opc
SI coorx  = -85 [cargadib "dibujo1.dib]
SI coorx  = -55 [cargadib "dibujo2.dib]
SI coorx  = -25 [cargadib "dibujo3.dib]
SI coorx  = 5 [cargadib "dibujo4.dib]
SI coorx  = 35 [cargadib "dibujo5.dib]
SI coorx  = 65 [da "sale 1]
fin