\DIBUJO_OBJ


; Este proceso lleva a cabo el dibujado de los objetos portados
; en las ventanas destinadas a los mismos. Realmente no habr¡a sido
; necesario usar ventanas, pues el icono se puede colocar con una
; simple orden MOVETO, pero usar las ventanas es una forma m s c¢moda
; de hacerlo y reduce considerablemente el c¢digo. De otro modo habr¡a
; que hacer una interminable sucesi¢n de "CARRIED n   MOVETO x y ICON n"
; y de este modo se automatiza.

-* *
PUSHAT 1    ; PRESERVO POSICION DE ESCRITURA
PUSH 1 24   ; PRESERVO N§ PANTALLA DE TEXTO ACTIVA
TEXTWIN 2   ; La primera ventana de objeto es la 3
NOTDONE

-* *
DOALL 254
INC 24      ; Cojo siguiente ventana
WINTOP      ; Me coloco en su inicio
ICON @9 0   ; pongo el icono correspondiente
NOTDONE


-* *           ; Bucle para vaciar las ventanas de objetos vac¡as
LABEL BUCLE
INC 24
JGT FIN 6 24
WINTOP
ICON 200 0     ; ICONO DE VENTANA DE OBJETO VACIA
JUMP BUCLE
LABEL FIN
NOTDONE

-* *
POP 1 24       ; RECUPERO VENTANA DE TEXTO ACTIVA
POPAT 1        ; RECUPERO POSICION DE ESCRITURA
DONE