datos segmentdibujo db ' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»' ,13,10 db ' º PRESIONE 0 PARA SALIR º',13,10 db ' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ',13,10,'$' datos endspila segment stack db 128 dup ('pila') pila endscodigo segment assume cs:codigo, ss:pila, ds:datos PANTA PROC NEAR PUSH AX ;la clave esta en esta rutina, por eso solo te voy PUSH BX ; a explicar esta PUSH CX PUSH DX MOV CX,0 MOV DX,2479h MOV BH,12h ;es justamente aqui en BH que se especifica eso ;ese 12h indica 1=fondo azul 2=letras verdes ; si fuera 21h seria 2=fondo verde =letras azules ;4= es rojo 0=es negro , si pones 04 fondo negro letras rojas ;7 = es blanco MOV AX,0600H INT 10h POP DX POP CX POP BX POP AX RET PANTA ENDP CURSOR PROC NEAR PUSH AX PUSH BX PUSH CX MOV BH,00 MOV AH,02 INT 10h POP CX POP BX POP AX RET CURSOR ENDP STRING PROC NEAR PUSH AX PUSH BX PUSH CX MOV AH,09 INT 21h POP CX POP BX POP AX RET STRING ENDP PROGRA PROC FARINICIO: push ds sub ax,ax ;para regresar al sistema operativo push ax mov ax,datos mov ds,ax ;inicializa el ds al segmento de datos MOV AX,0000 MOV BX,0000 MOV CX,0000 MOV DX,0000 CALL PANTA MOV DX,0600h CALL CURSOR LEA DX,dibujo CALL STRING MOV AH,01 INT 21h CMP AL,30h jz fin JMP INICIOfin: MOV AX,4C00h INT 21h PROGRA ENDP codigo endsend PROGRAEND
para win 98