.286
                jumps
                locals

Code16          segment public use16
                assume cs:Code16, ds:Code16

Start:          mov     ax,cs
                mov     ds,ax

                mov     ax,Music
                mov     es,ax
                call    InitPlayer
                call    SetInt

      mov ax,0003h
      int 10h                ; Clear the screen and set to 80x25 mode

      mov si,offset BK
      mov ax,0B800h
      mov es,ax

      xor di,di

      mov cx,1633            ; 1633 because of the blank lines at the bottom
      rep movsw              ; Put Black Knights ANSi on screen

@keyloop:
      mov dx,03dah
@v1:   in al,dx
      test al,08h
      jnz @v1
@v2:   in al,dx
      test al,08h
      jz @v2                 ; Wait for a vertical retrace

      mov bx,[BarY]
      mov cl,40

CLI                          ; Turn off the interrupts ÷:)
@waitforhorizretrace:        ; Wait for 'bx' number of horiz.retraces
@h1:   in al,dx
      test al,01h
      jz @h1
@h2:   in al,dx
      test al,01h
      jnz @h2
      dec bx
      jnz @waitforhorizretrace

@barloop:
@1:   in al,dx
      test al,01h
      jnz @1

      xor al,al
      mov dx,03c8h
      out dx,al
      inc dx
      out dx,al
      out dx,al
      mov al,40
      sub al,cl
      out dx,al

      mov al,56
      dec dx
      out dx,al

      inc dx

      mov al,61
      mov ah,cl
      sub al,ah
      out dx,al

      mov al,1
      mov ah,cl
      shr ah,1
      add al,ah
      out dx,al
      out dx,al

      mov dx,03dah
@2:   in al,dx
      test al,01h
      jz @2

      dec cl
      jnz @barloop           ; Draw the stoopid bar (top half)

      mov cl,40
@barloop2:
@b1:   in al,dx
      test al,01h
      jnz @b1

      xor al,al
      mov dx,03c8h
      out dx,al
      inc dx
      out dx,al
      out dx,al
      mov al,cl

      out dx,al

      mov al,56
      dec dx
      out dx,al

      inc dx
      mov al,21
      mov ah,cl
      add al,ah
      out dx,al

      mov al,21
      mov ah,cl
      shr ah,1
      sub al,ah
      out dx,al
      out dx,al

      mov dx,03dah
@b2:   in al,dx
      test al,01h
      jz @b2

      dec cl
      jnz @barloop2          ; Draw bar (bottom half)
STI

      mov dx,03c8h
      mov al,56
      out dx,al
      inc dx
      mov al,21
      out dx,al
      out dx,al
      out dx,al              ; Reset Palette

      cmp [DirF],0
      je @movebarup
      inc [BarY]

      cmp [BarY],200
      jl @skipbardown
      mov [DirF],0

      jmp @skipbardown
@movebarup:
      dec [BarY]

      cmp [BarY],2
      jg @skipbardown
      mov [DirF],1

@skipbardown:                 ; All shit to make it bounce

      in al,60h
      cmp al,1
      jne @keyloop            ; Check for 'ESC'

      mov ax,0003h
      int 10h                 ; Clear screen etc

      mov dx,offset endwrit
      mov ah,09h
      int 21h                 ; Write crap at the end

        ; stop tune
                call    ResetInt
                call    EndPlayer
                mov     ax,4c00h
                int     21h


;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
; Enables and starts the player interrupt.
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
SetInt:
                cli
                xor     ax,ax
                mov     es,ax
                mov     ax,es:[8*4]
                mov     word ptr OldInt,ax
                mov     ax,es:2[8*4]
                mov     word ptr OldInt+2,ax
                mov     word ptr es:[8*4], offset PlayerInt
                mov     es:2[8*4],cs

                sti
                ret






;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
; Disables the player interrupt.
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
ResetInt:
                cli
                xor     ax,ax
                mov     es,ax
                mov     ax,word ptr OldInt
                mov     es:[8*4],ax
                mov     ax,word ptr OldInt+2
                mov     es:2[8*4],ax

                sti
                ret






;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
; The player interrupt.  Called 50 times a second.
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
PlayerInt:
                call PlayMusic
                jmp     cs:OldInt               ; call old interrupt handlers


                include Player.asm


OldInt          dd      ?

DirF db 1
BarY dw 60

Endwrit DB 'Code+ANSi+Music: Goblin/NiS',0dh,0ah
        DB 'Music Player: RAD by Reality',0dh,0ah
        DB 'Original Music: Chris Korte/Xography',0dh,0ah,'$'

BK      DB      ' ',00,' ',15,' ',15,'Ü',4,'ß',4,'ß',4,'ß',4,'ß',4,'ß'
        DB      4,'ß',4,'Ü',4,'Ü',4,'ß',4,'ß',4,'ß',4,'Ü',4,' ',15,' '
        DB      01,' ',15,' ',15,' ',15,' ',15,' ',15,'Ü',4,'ß',4,'ß'
        DB      4,'ß',4,'ß',4,'ß',4,'Ü',4,' ',4,' ',4,'Ü',4,'ß',4,'ß'
        DB      4,'ß',4,'ß',4,'ß',4,'ß',4,'Ü',4,' ',4,'Ü',4,'ß',4,'ß'
        DB      4,'ß',4,'Ü',4,' ',4,' ',4,'Ü',4,'ß',4,'ß',4,'ß',4,'Ü'
        DB      4,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      01,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      01,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      01,' ',15,' ',15,' ',15,' ',4,'Ü',4,'ß',4,' ',4,'Ü',8
        DB      '²',120,'±',120,'±',120,'°',120,'Ü',7,' ',7,'ß',4,' '
        DB      4,'ß',8,'Ü',8,' ',8,'ß',4,'Ü',4,' ',4,' ',4,' ',4,'Ü'
        DB      4,'ß',4,' ',4,'Ü',8,'±',120,'±',120,'°',120,'Ü',7,' '
        DB      7,'ß',4,'ß',4,' ',4,'Ü',8,'²',120,'±',120,'±',120,'°'
        DB      120,'Ü',7,' ',7,'Û',4,' ',4,'Ü',8,'Û',8,' ',8,'Û',4,'Ü'
        DB      4,'ß',4,' ',4,'Ü',7,'ß',7,' ',7,'Û',4,' ',4,'Ú',8,'Ä'
        DB      7,'Ä',7,'Ä',7,'Ä',8,'ù',8,'ú',8,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      8,'Û',4,' ',4,'Û',8,'Û',8,'ß',8,' ',8,' ',8,'ß',7,'°'
        DB      120,'°',120,' ',15,'Û',4,' ',4,'Û',8,'²',120,' ',15,'Û'
        DB      4,' ',4,' ',4,' ',4,'Û',4,' ',4,'Û',8,'²',120,'ß',8,' '
        DB      8,'ß',7,'°',120,'°',120,' ',15,' ',15,'Û',8,'Û',8,'ß'
        DB      8,' ',8,' ',8,'ß',7,'°',120,'Ý',7,'Þ',4,' ',4,'Û',8,'Û'
        DB      8,' ',8,'Û',4,'Û',4,' ',4,'°',120,'°',120,' ',15,'Û',4
        DB      ' ',4,' ',4,'³',8,' ',8,' ',8,'B',15,'l',7,'a',7,'c',7
        DB      'k',7,' ',7,'K',15,'n',7,'i',7,'g',7,'h',7,'t',7,'s',7
        DB      ' ',7,' ',7,'ú',8,'ù',8,'Ä',8,'Ä',7,'Ä',7,'Ä',7,'¿',15
        DB      ' ',15,'Þ',4,'Ý',4,'Þ',8,'Û',8,'Ý',8,' ',8,'ß',4,'ß',4
        DB      ' ',4,'Ü',7,'±',120,' ',15,'Û',4,' ',4,'ß',8,'Û',8,' '
        DB      8,'Û',4,' ',4,' ',4,' ',4,'Û',4,' ',4,'Û',8,'Û',8,' '
        DB      8,'ß',4,' ',4,'±',120,'°',120,' ',15,'Þ',8,'Û',8,'Ý',8
        DB      ' ',8,'Û',4,' ',4,'Ü',7,'ß',7,' ',7,'Û',4,' ',4,'Û',8
        DB      'Û',8,' ',8,'ß',4,' ',4,'Ü',8,'±',120,'ß',7,' ',7,'Û'
        DB      4,' ',4,' ',4,'³',8,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,'B',15,'B',15,'S',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,'³',7,' ',15,' ',7,'Û',4,' ',4,'Û',8,'ß'
        DB      8,' ',8,'ß',8,'ß',8,'ß',7,'±',120,'Ü',7,' ',7,'ß',4,' '
        DB      4,'Ü',8,' ',8,'þ',4,'Û',4,' ',4,' ',4,' ',4,'Û',4,' '
        DB      4,'Û',8,'ß',8,' ',8,'ß',8,'ß',8,'±',120,'±',120,' ',15
        DB      ' ',15,'Û',8,' ',8,'Û',4,'Û',4,'Ü',4,'Ü',4,'þ',4,'ß',4
        DB      'ß',4,' ',4,'Û',8,'ß',8,' ',8,'ß',8,'ß',8,'Û',8,'Ü',8
        DB      ' ',8,'ß',4,'Ü',4,' ',4,' ',4,'Ã',7,'-',7,'-',7,'-',8
        DB      '-',8,' ',8,' ',8,'N',15,'i',15,'S',15,' ',15,' ',15,'ú'
        DB      8,' ',8,' ',8,'W',15,'H',15,'Q',15,' ',15,' ',15,' ',15
        DB      '-',8,'-',7,'Ä',7,'´',7,' ',15,' ',7,'Û',4,'þ',4,' ',4
        DB      'Ü',8,'ß',8,' ',8,'Û',4,'þ',4,' ',4,'±',120,'±',120,' '
        DB      15,' ',15,'Û',8,'Û',8,' ',8,'Û',4,' ',4,' ',4,' ',4,'Û'
        DB      4,'þ',4,' ',4,'Ü',8,'ß',8,' ',8,' ',8,'²',120,'±',120
        DB      ' ',15,'þ',4,' ',4,'Ü',8,' ',8,'Û',4,'Û',4,' ',4,'Ü',8
        DB      '±',120,' ',15,'þ',4,' ',4,'Ü',8,'ß',8,'Þ',4,'Ü',4,' '
        DB      4,'²',120,'±',120,' ',15,'Û',4,'Ä',4,'Ä',4,'¿',7,' ',7
        DB      ' ',7,' ',7,'+',8,'6',7,'1',7,'(',8,'0',7,'2',7,')',8
        DB      ' ',8,'7',15,'7',15,'3',15,'-',8,'6',15,'6',15,'3',15
        DB      '0',15,' ',15,' ',15,' ',15,' ',15,'³',7,' ',15,' ',7
        DB      'Û',4,' ',4,'²',72,'²',72,'Ü',8,' ',8,' ',8,'Ü',8,'Û'
        DB      8,'²',120,'ß',7,' ',7,' ',7,'²',72,'²',72,'Ü',8,' ',8
        DB      'ß',4,'ß',4,'ß',4,'Û',4,' ',4,'²',72,'²',72,' ',15,'Û'
        DB      4,' ',4,'²',120,'²',120,' ',15,' ',15,'²',72,'²',72,'Ü'
        DB      8,' ',8,' ',8,'Ü',8,'²',120,'²',120,' ',15,' ',15,'²'
        DB      72,'²',72,' ',15,'Û',4,'Û',4,' ',4,'²',120,'²',120,' '
        DB      15,'Û',4,' ',4,' ',4,'³',7,' ',7,'A',7,'N',7,'S',7,'i'
        DB      15,' ',15,'b',8,'y',8,' ',8,'G',15,'o',7,'b',7,'l',7,'i'
        DB      7,'n',7,' ',7,'\',8,'\',8,' ',8,'N',7,'i',15,'S',7,' '
        DB      7,'³',7,' ',15,' ',7,'Û',4,' ',4,'Û',120,'²',72,'²',72
        DB      'Û',8,'Û',8,'Û',8,'ß',8,' ',8,'Ü',4,'Û',4,' ',4,'ß',8
        DB      '²',72,'²',72,'Û',8,'Û',8,'Û',8,'Ü',8,' ',8,' ',8,'Û'
        DB      8,'²',72,' ',15,'Û',4,' ',4,'ß',8,'²',120,' ',15,'Ü',4
        DB      ' ',4,'ß',8,'²',72,'Û',8,'Û',8,'Û',8,'ß',8,' ',8,'Ü',4
        DB      ' ',4,'Û',8,'²',72,' ',15,'Û',4,'Û',4,' ',4,'ß',8,'²'
        DB      120,' ',15,'ß',4,'Ü',4,' ',4,'À',15,'Ä',7,'¿',7,'Ä',7
        DB      'Ä',7,'Ä',7,'Ä',8,'ù',8,'ú',8,' ',8,'Ü',7,'°',120,'±'
        DB      120,'Ü',8,' ',8,' ',8,'ú',8,'ù',8,'Ä',8,'Ä',8,'Ä',8,'Ä'
        DB      7,'¿',7,'Ä',8,'Ù',7,' ',15,' ',7,'Û',4,' ',4,'Û',8,'ß'
        DB      8,' ',8,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'ß',4,' ',4,' ',4,'ß'
        DB      4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,' ',4,'ß',8,' '
        DB      8,'Û',8,'ß',8,' ',8,'Û',4,'ß',4,'Ü',4,'Ü',4,'Ü',4,'ß'
        DB      4,'ß',4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'Ü',4,'ß',4,'Û'
        DB      4,' ',4,'Û',8,'ß',8,' ',8,'Û',4,' ',4,'ß',4,'Ü',4,' '
        DB      4,'ß',8,' ',8,'Û',4,' ',4,' ',4,' ',4,'ù',8,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,'Þ',7,'°',120,'ß',7,'ß'
        DB      8,'ß',8,'Û',8,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,'ù',8,' ',15,' ',15,' ',15,' ',8,'ß',4,'Ü',4,'Ü'
        DB      4,'Ü',4,'ß',4,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      'ß',4,'ß',4,'Ü',4,'Ü',4,'Ü',4,'ß',4,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,'ß',4,'Ü',4,'Ü',4,'Ü',4,'ß',4
        DB      ' ',4,' ',4,' ',4,' ',4,'ß',4,'ß',4,'ß',4,' ',4,' ',4
        DB      ' ',4,' ',4,'ú',8,' ',8,' ',8,' ',8,' ',8,'Ü',7,'Ü',7
        DB      ' ',7,'ß',7,'°',120,'Ý',7,'Û',8,'ß',8,' ',8,'Ü',7,'Ü'
        DB      7,' ',7,' ',7,' ',7,' ',7,'ú',8,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,'ß',7,'ß',7,' ',119,'°',120,'Ü'
        DB      7,'Ü',8,'Ü',8,' ',8,' ',8,'ß',8,'°',120,'ß',7,'ß',7,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',7,'Ü'
        DB      4,'°',120,' ',120,' ',15,'Ü',4,'²',127,'Û',15,' ',15,'Ü'
        DB      4,'°',120,' ',120,'°',127,'±',127,'²',127,'Ü',15,' ',15
        DB      'Ü',4,'²',127,'Û',15,' ',15,'Ü',4,'°',120,' ',120,'°'
        DB      127,'±',127,'²',127,'Û',127,' ',15,'Ü',4,'°',120,' ',120
        DB      ' ',15,'Ü',4,'²',127,'Û',15,' ',15,'Ü',4,'°',120,' ',120
        DB      '°',127,'±',127,'²',127,'Û',15,' ',15,'Ü',4,'°',120,' '
        DB      120,'°',127,'±',127,'²',127,'Û',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,'Þ',7,'°',120,'Ü',7,' ',7
        DB      '±',120,'²',120,'Ý',120,'‡',118,'Ý',7,'°',127,'ß',112
        DB      ' ',15,'ß',112,'°',120,'ß',112,' ',15,'ß',112,'²',120
        DB      ' ',15,' ',15,' ',15,' ',8,'ß',4,'ß',4,' ',4,'Ü',4,'Ü'
        DB      71,'±',127,'²',127,' ',15,'ß',4,'ß',4,'ß',4,'ß',4,' '
        DB      68,'±',127,'²',127,' ',15,'ß',4,'ß',4,' ',4,' ',4,'ß'
        DB      4,'ß',4,'ß',4,'ß',4,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß'
        DB      4,' ',4,' ',4,' ',68,'±',127,'²',127,' ',15,'ß',4,'ß'
        DB      4,'ß',4,'ß',4,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß',4,'ß'
        DB      4,'ß',4,'ß',4,'ß',4,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',116,'°',120,'Ý',8,' ',8,'²',120
        DB      'Û',8,'Û',8,'Û',8,'Ý',8,' ',120,' ',120,' ',120,' ',120
        DB      '‡',118,' ',118,'°',120,'±',120,'²',120,' ',15,' ',15
        DB      ' ',15,' ',8,'Ü',4,'²',120,'±',120,'°',120,' ',120,'ß'
        DB      7,' ',7,' ',7,'Ü',4,'²',120,'±',120,' ',15,' ',72,'°'
        DB      127,'±',127,' ',15,'Ü',4,'°',127,'±',127,' ',15,'Ü',4
        DB      '²',120,'±',120,' ',15,'Ü',7,'Ü',7,'Ü',7,' ',7,'Ü',4,'²'
        DB      120,'±',120,'Ü',7,'Ü',71,'°',127,'±',127,' ',15,' ',15
        DB      ' ',15,'Ü',4,' ',116,'°',127,' ',15,' ',15,' ',15,'Ü'
        DB      4,'°',120,' ',120,'ß',112,'ß',112,'ß',112,'ß',112,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,'Þ',7,'°',120,'²'
        DB      120,' ',15,' ',15,'ß',8,'ß',8,'Û',8,'Û',8,'Û',8,'Þ',7
        DB      ' ',119,' ',119,' ',119,'°',120,'°',120,'±',120,'²',120
        DB      'Ý',8,' ',15,' ',15,' ',15,' ',8,' ',72,'Û',120,'²',120
        DB      'ß',72,'°',120,' ',120,'ß',112,' ',15,' ',64,'Û',120,'²'
        DB      120,' ',15,' ',72,' ',120,'°',127,' ',15,' ',79,' ',127
        DB      '°',127,' ',15,' ',79,'Û',120,'²',120,'ß',4,' ',68,' '
        DB      116,'°',127,' ',15,' ',79,'Û',120,'²',120,'ß',7,'ß',71
        DB      ' ',119,'°',127,' ',15,' ',15,' ',15,' ',79,'°',120,' '
        DB      120,' ',15,' ',15,' ',15,' ',72,'ß',71,'ß',71,'ß',71,'ß'
        DB      71,'°',127,'±',127,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      'þ',8,'°',120,'±',120,'Ý',8,' ',8,' ',8,'²',120,'Ü',8
        DB      'Ü',8,'Ü',8,'Ü',8,' ',8,' ',120,'°',120,'°',120,'±',120
        DB      '²',120,'²',120,'Û',120,' ',15,' ',15,' ',15,' ',15,' '
        DB      8,' ',72,'²',8,'Û',120,' ',15,' ',72,'°',120,' ',120,' '
        DB      15,' ',72,'²',8,'Û',120,' ',15,' ',72,'°',120,' ',120
        DB      ' ',15,' ',72,'°',120,' ',120,' ',15,' ',72,'²',8,'Û'
        DB      120,' ',15,' ',72,'°',120,' ',120,' ',15,' ',72,'²',8
        DB      'Û',120,' ',15,' ',72,'°',120,' ',120,' ',15,' ',15,' '
        DB      15,' ',72,'±',120,'°',120,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,'Ä',8,'Í',8,'Í',7,'Í',120,'Í',120,'Í',7,'Í',7,'Í'
        DB      7,'Í',7,'Í',7,'µ',7,'þ',8,'þ',8,'þ',8,' ',8,' ',8,'±'
        DB      120,'²',120,'Û',8,' ',8,'Û',8,'Ü',8,' ',8,'ß',7,'±',120
        DB      '²',120,'Û',120,'ß',8,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',8,' ',72,'±',8,'²',8,' ',8,' ',72,'±',120,'°',120
        DB      ' ',15,' ',72,'±',8,'²',8,' ',8,' ',72,'±',120,'°',120
        DB      ' ',15,' ',72,'±',120,'°',120,' ',15,' ',72,'±',8,'²'
        DB      8,'Û',120,'²',120,'±',120,'°',120,' ',15,' ',72,'±',8
        DB      '²',8,' ',8,' ',72,'±',120,'°',120,' ',15,' ',15,' ',15
        DB      ' ',72,'²',120,'±',120,' ',15,' ',15,' ',15,'Ü',4,'²'
        DB      8,'Û',120,'²',120,'±',120,'°',120,' ',120,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      'Þ',8,'°',120,'±',120,'Ý',8,' ',8,'Þ',8,'²',120,'Û',8
        DB      'Ý',8,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',8,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß'
        DB      4,' ',4,' ',4,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß',4,' '
        DB      4,' ',4,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß',4,'ß',4,'ß'
        DB      4,'ß',4,'ß',4,' ',4,' ',4,'ß',4,'ß',4,' ',4,' ',4,'ß'
        DB      4,'ß',4,' ',4,' ',4,' ',4,' ',4,'ß',4,'ß',4,' ',4,' '
        DB      4,' ',4,' ',4,'ß',4,'ß',4,'ß',4,'ß',4,'ß',4,'ß',4,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,'Þ',8,'±',120,'²',120,'Ý',8,' ',8,'Þ'
        DB      8,'±',120,'²',120,'Ý',8,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,'¿',8,'Â',4,'Ä',4,'¿',4,'Â',4,'Ä',4,'¿'
        DB      4,'Ú',4,'Ä',4,'¿',4,'Ú',8,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,'ß',112,'ß',120,'Û',120,' ',15,' ',15,' ',15,'ß'
        DB      120,'ß',120,'Ü',8,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,'ú',8,'ù',8,'Ä',8,'Ä',8,'Ä',7
        DB      'Ä',7,'´',7,'Ã',12,'Ä',12,'´',12,'Ã',12,'Ä',12,'´',12
        DB      'À',12,'Ä',12,'¿',12,'Ã',7,'Ä',7,'Ä',7,'Ä',8,'Ä',8,'ù'
        DB      8,'ú',8,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' '
        DB      15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,'ß',112,'°'
        DB      120,'±',120,'²',120,'ß',8,' ',8,' ',8,' ',8,'ß',7,'±'
        DB      120,'²',120,'Û',120,'Ü',8,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
        DB      ' ',15,'Ù',8,'Á',4,'Ä',4,'Ù',4,'Á',4,'Ä',4,'Ù',4,'À',4
        DB      'Ä',4,'Ù',4,'À',8
ends

Music           segment para public use16
                include bkmus.inc
                ends

Stack16         segment para public use16 stack
                dw      100h dup (?)
                ends

                end     Start