LOGOCOL  ld   hl,20731
         ld   de,LOG_BUF
         ld   b,8
LOG_0    push bc
         push hl
         ld   b,5
LOG_1    ld   a,(de)
         ld   (hl),a
         inc  hl
         inc  de
         djnz LOG_1
         pop  hl
         call DOWNHL
         pop  bc
         djnz LOG_0
         xor  a
         ld   h,d
         ld   l,e
         ld   de,23296-6
         ld   (de),a
         inc  de
         ldi  
         ldi  
         ldi  
         ldi  
         ldi  
         ret  
         
LOG_BUF  defb 1,254,254,254,254
         defb 3,252,252,252,252
         defb 7,248,248,248,248
         defb 15
         defb 240,240,240,240
         defb 31
         defb 224,224,224,224
         defb 63
         defb 192,192,192,192
         defb 127
         defb 128,128,128,128
         defb 255,0,0,0,0
         defb 66,114,102,76,65

DOWNHL   inc  h
         ld   a,h
         and  7
         ret  nz
         ld   a,l
         add  a,32
         ld   l,a
         ld   a,h
         jr   c,DOWNHL2
         sub  8
         ld   h,a
DOWNHL2  cp   88
         ret  c
         ld   h,64
         ret