TitleScreen2:
        moveq   #$FFFFFFE4,d0
        jsr (PlaySound).l
        jsr (ClearPLC).l
        jsr (Pal_FadeFrom).l
        move    #$2700,sr
        move.w  (VDP_reg_1_command).w,d0
        andi.b  #$BF,d0
        move.w  d0,(VDP_control_port).l
        bsr.w   ClearVRAM
        jsr (ClearScreen).l
        lea (VDP_control_port).l,a6
        move.w  #$8004,(a6)
        move.w  #$8230,(a6)
        move.w  #$8407,(a6)
        move.w  #$8230,(a6)
        move.w  #$8700,(a6)
        move.w      #$8720,(a6)
        move.w  #$8C81,(a6)
        move.w      #$9011,(a6)
        move.w  #$8B03,(a6)
        clr.b (Last_star_post_hit).w
        move.w  #$100,(V_scroll_value).w
        lea (Sprite_table_input).w,a1
        moveq   #0,d0
        move.w  #$FF,d1
@1      move.l  d0,(a1)+
        dbf d1,@1
        lea (Object_RAM).w,a1
        moveq   #0,d0
        move.w  #$7FF,d1
@2      move.l  d0,(a1)+
        dbf d1,@2
        lea (Camera_RAM).w,a1
        moveq   #0,d0
        move.w  #$3F,d1
@3      move.l  d0,(a1)+
        dbf d1,@3
        clr.w   (DMA_queue).w
        move.l  #DMA_queue,(DMA_queue_slot).w
        vram    $2820
        lea (ArtText_TitleScreen).l,a0
        jsr (NemDec).l
        vram    $2C20
        lea (ArtNem_TitleScreen_Text).l,a0
        jsr (NemDec).l
        lea (ArtBG_TitleScreen).l,a0
        lea (RAM_start).l,a1
        movea.w #$20,a2
        jsr KosArt_To_VDP(pc)
        move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        lea (ArtFG_TitleScreen).l,a0
        lea (RAM_start).l,a1
        movea.w #$520,a2
        jsr KosArt_To_VDP(pc)
        move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        lea (ArtFG2_TitleScreen).l,a0
        lea (RAM_start).l,a1
        movea.w #$940,a2
        jsr KosArt_To_VDP(pc)
        move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        lea    (RAM_start).l,a1
        lea    (MapFG2_TitleScreen).l,a0
        move.w  #$4A,d0
        jsr (EniDec).l
        lea (RAM_start).l,a1
        vram    $C310,d0
        moveq   #$17,d1
        moveq   #$D,d2
        jsr (Plane_Map_To_VRAM).l
        move    #$2700,sr
        vram    $D000,d0
        move.w  #$3FF,d3
        bsr.w   ClearVRAMArea
        move    #$2300,sr
        bsr.w   Clear_Palette

        lea Pal_TitleScreen(pc),a1
        lea (Target_palette).w,a2
        moveq   #$17,d0
@4      move.l  (a1)+,(a2)+
        dbf d0,@4

        move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        move.w  #$C0,(Demo_timer).w
        move.w  (VDP_reg_1_command).w,d0
        ori.b   #$40,d0
        move.w  d0,(VDP_control_port).l
        jsr (Pal_FadeTo).l

@5      move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        bsr.w   DynamicPalette_TitleScreen
        bsr.w   PlaneFall
        tst.w   (Demo_timer).w
        bne.s   @5

        moveq   #$FFFFFF9B,d0
        jsr (PlaySound).l

        move.w      #$9001,(VDP_control_port).l
        lea    (RAM_start).l,a1
        lea    (MapBG_TitleScreen).l,a0
        move.w  #$6001,d0
        jsr (EniDec).l

        lea (RAM_start).l,a1
        vram    $E000,d0
        moveq   #$3F,d1
        moveq   #$1B,d2
        jsr (Plane_Map_To_VRAM).l

        lea    (RAM_start).l,a1
        lea    (MapFG_TitleScreen).l,a0
        move.w  #$6029,d0
        jsr (EniDec).l

        lea (RAM_start).l,a1
        vram    $C000,d0
        moveq   #$3F,d1
        moveq   #$1B,d2
        jsr (Plane_Map_To_VRAM).l

        lea    (RAM_start).l,a1
        lea    (MapFG2_TitleScreen).l,a0
        move.w  #$4A,d0
        jsr (EniDec).l

        lea (RAM_start).l,a1
        vram    $C310,d0
        moveq   #$17,d1
        moveq   #$D,d2
        jsr (Plane_Map_To_VRAM).l

        move.b  #$F,(Object_RAM).w
        bsr.w   Load_Title_Text

        lea Pal_TitleScreen+$60(pc),a1
        lea (Target_palette_line_4).w,a2
        moveq   #7,d0
@6      move.l  (a1)+,(a2)+
        dbf d0,@6

        jsr (Pal_MakeWowWhite).l
@7      move.b  #$16,(V_int_routine).w
        jsr (DelayProgram).l
        jsr (ObjectsLoad).l
        jsr (BuildSprites).l
        bsr.w   DynamicPalette_TitleScreen
        bsr.w   Title_Deform
        bsr.w   TitleScreen_Code
        tst.b   (Joypad|Press).w
        bpl.s   @7
        tst.b   ($FFFFFFE0).w
        beq.s   @8
        btst    #6,(Joypad|Held).w
        beq.s   @8
        jmp (Jmp_LevelSelect).l
@8      move.b  #3,(Current_act).w
        jmp (PlayLevel).l