            .ORG    40000 
            OUT     (254),a 
            CALL    3503 
            LD      h,88 
            LD      bc,3 
ATTR:                
            DEC     a 
            AND     7 
            JR      z,ATTR 
            LD      (hl),a 
            INC     hl 
            DJNZ    ATTR 
            DEC     c 
            JR      nz,ATTR 
            LD      hl,14528 
            LD      c,8 
PIXROW:                
            CALL    LOADHL 
            PUSH    hl 
            LD      b,5 
RNDBYTES:               
            LD      a,(de) 
            INC     de 
            AND     7 
            ADD     a,l 
            LD      l,a 
            LD      a,(de) 
            LD      (hl),a 
            DJNZ    RNDBYTES 
            POP     hl 
            DEC     c 
            JR      nz,PIXROW 
INFCYCLE:            
            LD      hl,14528 
            LD      bc,2048 
STRIPES:             
            INC     c 
            PUSH    bc 
            CALL    LOADHL 
SPEED:               
            PUSH    hl 
            POP     ix 
            LD      a,(hl) 
            RL      a 
            LD      e,32 
ROLL:                
            RL      (ix+31) 
            DEC     ix 
            DEC     e 
            JR      NZ,ROLL 
            DEC     c 
            JR      nz,SPEED 
            POP     bc 
            DJNZ    STRIPES 
            JR      INFCYCLE 
LOADHL:              
            LD      a,96 
            ADD     a,l 
            LD      l,a 
            RET     nc 
            LD      a,8 
            ADD     a,h 
            LD      h,a 
            RET      