DRAW_TITLE         PROC
; draws the title screen.

        PUSH    DX
        PUSH    CX      ; save counter register
        PUSH    BX      ; save BX
        PUSH    AX
        
        MOV     AH,0Ch  ; set function to draw pixel
        MOV     AL,STRCOLOR        ; set pixel color to color of strip
        
        MOV     BH,0    ; set initial value to 0 (page)
        MOV     CX,0    ; set col to 0
        MOV     DX,190  ; set row to 190



; now we display the word "VGA Fencing"

; cool box around it
        DRAWCH 10,31,BCLR,201
        DRAWCH 10,32,BCLR,205
        DRAWCH 10,33,BCLR,205
        DRAWCH 10,34,BCLR,205
        DRAWCH 10,35,BCLR,205
        DRAWCH 10,36,BCLR,205
        DRAWCH 10,37,BCLR,205
        DRAWCH 10,38,BCLR,205
        DRAWCH 10,39,BCLR,205
        DRAWCH 10,40,BCLR,205
        DRAWCH 10,41,BCLR,205
        DRAWCH 10,42,BCLR,205
        DRAWCH 10,43,BCLR,205
        DRAWCH 10,44,BCLR,205
        DRAWCH 10,45,BCLR,187
        DRAWCH 11,31,BCLR,186
        DRAWCH 11,45,BCLR,186
        DRAWCH 12,31,BCLR,200
        DRAWCH 12,45,BCLR,188
        DRAWCH 12,32,BCLR,205
        DRAWCH 12,33,BCLR,205
        DRAWCH 12,34,BCLR,205
        DRAWCH 12,35,BCLR,205
        DRAWCH 12,36,BCLR,205
        DRAWCH 12,37,BCLR,205
        DRAWCH 12,38,BCLR,205
        DRAWCH 12,39,BCLR,205
        DRAWCH 12,40,BCLR,205
        DRAWCH 12,41,BCLR,205
        DRAWCH 12,42,BCLR,205
        DRAWCH 12,43,BCLR,205
        DRAWCH 12,44,BCLR,205
       

        DRAWCH 11,33,WCLR,'V'
        DRAWCH 11,34,WCLR,'G'
        DRAWCH 11,35,WCLR,'A'
        DRAWCH 11,37,WCLR,'F'
        DRAWCH 11,38,WCLR,'e'
        DRAWCH 11,39,WCLR,'n'
        DRAWCH 11,40,WCLR,'c'
        DRAWCH 11,41,WCLR,'i'
        DRAWCH 11,42,WCLR,'n'
        DRAWCH 11,43,WCLR,'g'



        DRAWCH  13,37,WCLR,'B'
        DRAWCH  13,38,WCLR,'y'
        
        DRAWCH 15,33,WCLR,'A'
        DRAWCH 15,34,WCLR,'l'
        DRAWCH 15,35,WCLR,'b'
        DRAWCH 15,36,WCLR,'e'
        DRAWCH 15,37,WCLR,'r'
        DRAWCH 15,38,WCLR,'t'
        DRAWCH 15,39,WCLR,' '
        DRAWCH 15,40,WCLR,' '
        DRAWCH 15,41,WCLR,'M'
        DRAWCH 15,42,WCLR,'i'
        DRAWCH 15,43,WCLR,'n'
        DRAWCH 15,44,WCLR,'g'

        DRAWCH 16,33,WCLR,'W'
        DRAWCH 16,34,WCLR,'a'
        DRAWCH 16,35,WCLR,'r'
        DRAWCH 16,36,WCLR,'r'
        DRAWCH 16,37,WCLR,'e'
        DRAWCH 16,38,WCLR,'n'
        DRAWCH 16,39,WCLR,' '
        DRAWCH 16,40,WCLR,'C'
        DRAWCH 16,41,WCLR,'h'
        DRAWCH 16,42,WCLR,'a'
        DRAWCH 16,43,WCLR,'n'
        DRAWCH 16,44,WCLR,'g'

        DRAWCH 17,33,WCLR,'R'
        DRAWCH 17,34,WCLR,'o'
        DRAWCH 17,35,WCLR,'b'
        DRAWCH 17,36,WCLR,'e'
        DRAWCH 17,37,WCLR,'r'
        DRAWCH 17,38,WCLR,'t'
        DRAWCH 17,39,WCLR,' '
        DRAWCH 17,40,WCLR,' '
        DRAWCH 17,41,WCLR,'K'
        DRAWCH 17,42,WCLR,'o'
        DRAWCH 17,43,WCLR,'n'
        DRAWCH 17,44,WCLR,'g'
        
; read key
        MOV     AH,1
        INT     21H
;        
;erase the stuff
        DRAWCH 10,31,BCLR,0
        DRAWCH 10,32,BCLR,0
        DRAWCH 10,33,BCLR,0
        DRAWCH 10,34,BCLR,0
        DRAWCH 10,35,BCLR,0
        DRAWCH 10,36,BCLR,0
        DRAWCH 10,37,BCLR,0
        DRAWCH 10,38,BCLR,0
        DRAWCH 10,39,BCLR,0
        DRAWCH 10,40,BCLR,0
        DRAWCH 10,41,BCLR,0
        DRAWCH 10,42,BCLR,0
        DRAWCH 10,43,BCLR,0
        DRAWCH 10,44,BCLR,0
        DRAWCH 10,45,BCLR,0
        DRAWCH 11,31,BCLR,0
        DRAWCH 11,45,BCLR,0
        DRAWCH 12,31,BCLR,0
        DRAWCH 12,45,BCLR,0
        DRAWCH 12,32,BCLR,0
        DRAWCH 12,33,BCLR,0
        DRAWCH 12,34,BCLR,0
        DRAWCH 12,35,BCLR,0
        DRAWCH 12,36,BCLR,0
        DRAWCH 12,37,BCLR,0
        DRAWCH 12,38,BCLR,0
        DRAWCH 12,39,BCLR,0
        DRAWCH 12,40,BCLR,0
        DRAWCH 12,41,BCLR,0
        DRAWCH 12,42,BCLR,0
        DRAWCH 12,43,BCLR,0
        DRAWCH 12,44,BCLR,0
       

        DRAWCH 11,33,WCLR,' '
        DRAWCH 11,34,WCLR,' '
        DRAWCH 11,35,WCLR,' '
        DRAWCH 11,37,WCLR,' '
        DRAWCH 11,38,WCLR,' '
        DRAWCH 11,39,WCLR,' '
        DRAWCH 11,40,WCLR,' '
        DRAWCH 11,41,WCLR,' '
        DRAWCH 11,42,WCLR,' '
        DRAWCH 11,43,WCLR,' '
                            


        DRAWCH  13,37,WCLR,' '
        DRAWCH  13,38,WCLR,' '
                             
        DRAWCH 15,33,WCLR,' '
        DRAWCH 15,34,WCLR,' '
        DRAWCH 15,35,WCLR,' '
        DRAWCH 15,36,WCLR,' '
        DRAWCH 15,37,WCLR,' '
        DRAWCH 15,38,WCLR,' '
        DRAWCH 15,39,WCLR,' '
        DRAWCH 15,40,WCLR,' '
        DRAWCH 15,41,WCLR,' '
        DRAWCH 15,42,WCLR,' '
        DRAWCH 15,43,WCLR,' '
                            
        DRAWCH 16,33,WCLR,' '
        DRAWCH 16,34,WCLR,' '
        DRAWCH 16,35,WCLR,' '
        DRAWCH 16,37,WCLR,' '
        DRAWCH 16,36,WCLR,' '
        DRAWCH 16,37,WCLR,' '
        DRAWCH 16,38,WCLR,' '
        DRAWCH 16,39,WCLR,' '
        DRAWCH 16,40,WCLR,' '
        DRAWCH 16,41,WCLR,' '
        DRAWCH 16,42,WCLR,' '
        DRAWCH 16,43,WCLR,' '
                            
        DRAWCH 17,33,WCLR,' '
        DRAWCH 17,34,WCLR,' '
        DRAWCH 17,35,WCLR,' '
        DRAWCH 17,36,WCLR,' '
        DRAWCH 17,37,WCLR,' '
        DRAWCH 17,38,WCLR,' '
        DRAWCH 17,39,WCLR,' '
        DRAWCH 17,40,WCLR,' '
        DRAWCH 17,41,WCLR,' '
        DRAWCH 17,42,WCLR,' '
        DRAWCH 17,43,WCLR,' '

        POP     DX      ; restore registers
        POP     CX
        POP     BX
        POP     AX

        RET

DRAW_TITLE         ENDP
