geschafft:     move.w  #%1110,dmacon(a5)
               moveq   #5,d4
geschafft0:    move.w  #$0fff,$dff184
               moveq   #15,d6
               bsr     verzoegerung
               move.w  farbtab+4,$dff184
               moveq   #15,d6
               bsr     verzoegerung
               dbra    d4,geschafft0
               move.w  buchx+6,d0
               bne     geschafft2
               move.l  sound5adr,aud1lch(a5)
               move.w  #(sound6-sound5)/2,aud1len(a5)
               move.w  #$8000+2,dmacon(a5)
               move.w  bonus+2,d4
               mulu    #10,d4
               add.w   bonus,d4
               subq    #1,d4
geschafft1:    moveq   #1,d0
               bsr     scoreup
               bsr     bonusab
               moveq   #5,d6
               bsr     verzoegerung
               dbra    d4,geschafft1
               move.w  #2,dmacon(a5)
geschafft2:    move.w  bildnummer,d0
               addq    #1,d0
               cmpi.b  #6,d0
               bne     geschafft4
               move.w  leben,d0
               addq    #1,d0
               cmpi.b  #10,d0
               bne     geschafft21
               moveq   #9,d0
geschafft21:   move.w  d0,leben
               move.w  ganzahl,d0
               addq    #1,d0
               cmpi.b  #7,d0
               bne     geschafft3
               moveq   #6,d0
geschafft3:    move.w  d0,ganzahl
               moveq   #1,d0
geschafft4:    move.w  d0,bildnummer
               bsr     cls
               bra     schleife
verloren:      move.w  #%1110,dmacon(a5)
               move.l  sound7adr,aud1lch(a5)
               move.w  #(sounde-sound7)/2,aud1len(a5)
               move.w  #$8000+2,dmacon(a5)
               moveq   #5,d7
verloren1:     lea     pacl,a4
               bsr     verlorend
               lea     paco,a4
               bsr     verlorend
               lea     pacr,a4
               bsr     verlorend
               lea     pacu,a4
               bsr     verlorend
               dbra    d7,verloren1
               move.w  #2,dmacon(a5)
               move.w  leben,d0
               beq     verloren2
               subq    #1,d0
               move.w  d0,leben
               bsr     cls
               bra     schleife
verloren2:     moveq   #10,d0
               moveq   #16,d1
               lea     ga,a0
               bsr     show
               moveq   #11,d0
               moveq   #16,d1
               lea     me,a0
               bsr     show
               moveq   #12,d0
               moveq   #16,d1
               lea     leer,a0
               bsr     show
               moveq   #13,d0
               moveq   #16,d1
               lea     ov,a0
               bsr     show
               moveq   #14,d0
               moveq   #16,d1
               lea     erp,a0
               bsr     show
               move.w  score+8,d0
               cmp.w   high+8,d0
               blt     verloren22
               bgt     verloren21
               move.w  score+6,d0
               cmp.w   high+6,d0
               blt     verloren22
               bgt     verloren21
               move.w  score+4,d0
               cmp.w   high+4,d0
               blt     verloren22
               bgt     verloren21
               move.w  score+2,d0
               cmp.w   high+2,d0
               blt     verloren22
               bgt     verloren21
               move.w  score,d0
               cmp.w   high,d0
               blt     verloren22
verloren21:    move.l  score,high
               move.l  score+4,high+4
               move.w  score+8,high+8
verloren22:    moveq   #6,d0
               moveq   #1,d1
               lea     h,a0
               bsr     show
               moveq   #7,d0
               moveq   #1,d1
               lea     i,a0
               bsr     show
               moveq   #8,d0
               moveq   #1,d1
               lea     g,a0
               bsr     show
               moveq   #9,d0
               moveq   #1,d1
               lea     h,a0
               bsr     show
               moveq   #10,d0
               moveq   #1,d1
               lea     dp,a0
               bsr     show
               move.w  high+8,d0
               bsr     showscore1
               moveq   #11,d0
               moveq   #1,d1
               bsr     show
               move.w  high+6,d0
               bsr     showscore1
               moveq   #12,d0
               moveq   #1,d1
               bsr     show
               move.w  high+4,d0
               bsr     showscore1
               moveq   #13,d0
               moveq   #1,d1
               bsr     show
               move.w  high+2,d0
               bsr     showscore1
               moveq   #14,d0
               moveq   #1,d1
               bsr     show
               move.w  high,d0
               bsr     showscore1
               moveq   #15,d0
               moveq   #1,d1
               bsr     show
verloren3:     btst    #7,$bfe001
               bne     verloren3
               bsr     cls
               lea     spritex,a0
               moveq   #7,d0
verloren4:     move.l  #0,(a0)+
               dbra    d0,verloren4
               bsr     vertikal
               move.w  #64,aud0vol(a5)
               bra     titelbild
verlorend:     bsr     vertikal
               move.l  spriteadr,a0
               add.l   #4,a0
               moveq   #15,d0
verlorend1:    move.l  (a4)+,(a0)+
               dbra    d0,verlorend1
               moveq   #4,d6
               bsr     verzoegerung
               rts
               end