EJEMPLO DE WINDOW

    Vamos a practicar todo lo anterior.   

    Este es un ejemplo de uso de las ventanas. En este ejemplo vamos a llenar la pantalla con mesajes a través del bucle For...Next. Esperamos pulsación  para luego tomar el fondo de pantalla con getwindow. Posteriormente dibujaremos una ventana con el título "Prueba"mediante draw_win. Esperamos a pulsar y reponemos el fondo original mediante putwindow.




PWINDOW1.MAC 

; Copyright (C) 2013  José Ángel Moneo Fernández

;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 3 of the License, or
;   (at your option) any later version.

;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.

;    You should have received a copy of the GNU General Public License
;    along with this program.  If not, see <http://www.gnu.org/licenses/>.

include main.mac
include stdio.mac
include window.mac
include hi_nivel.mac


.model compact,pascal
.stack 200

.data
 ; Tamaño de la ventana  20-5=15 por lo que debemos reservar una mas 16  dw caracter y color
 buffer   dw 16*16 dup (0)   
 valor db 3
 Texto db "Prueba",0
.code

p proc far
        main     
  for valor,0,15
      gotoxy 10,valor
      puts texto
   next valor 
        getch al
        getwindow 5,5,20,20,buffer
        draw_win 5,5,20,20,texto
        getch  al
        putwindow 5,5,20,20,buffer

        exit 0
p endp

end p