1.1 --- a/loader.oph	Sun Sep 18 00:58:14 2011 +0200
     1.2 +++ b/loader.oph	Sun Sep 18 00:59:39 2011 +0200
     1.3 @@ -94,8 +94,8 @@
     1.4  code_block: .byte <code_file_name, >code_file_name
     1.5                 .byte $00, $1e, 0, 0
     1.6                 .byte $00, $1e, 0, 0
     1.7 -               .byte $a0, $1f, 0, 0
     1.8 -               .byte $a0, $3d, 0, 0
     1.9 +               .byte $9c, $1f, 0, 0
    1.10 +               .byte $9c, $3d, 0, 0
    1.11  
    1.12  init_load_window_vdu_bytes: .byte 28,0,29,19,24
    1.13  

     2.1 --- a/mapcode.oph	Sun Sep 18 00:58:14 2011 +0200
     2.2 +++ b/mapcode.oph	Sun Sep 18 00:59:39 2011 +0200
     2.3 @@ -4524,8 +4524,22 @@
     2.4  
     2.5  game_over_vdu_bytes: .byte 28,4,17,15,15, 12, 26, 31,4,15, 17,2, "The journey", 31,9,17, "is over"
     2.6  
     2.7 +delay:
     2.8 +
     2.9 +    delay_loop:
    2.10 +
    2.11 +        jsr wait_for_vsync
    2.12 +        dec $5785
    2.13 +        bne delay_loop
    2.14 +
    2.15 +    rts
    2.16 +
    2.17  show_game_over:
    2.18  
    2.19 +    lda #128
    2.20 +    sta $5785
    2.21 +    jsr delay
    2.22 +
    2.23      ldx #0
    2.24      write_game_over_text_loop:
    2.25          lda game_over_vdu_bytes,x
    2.26 @@ -4536,11 +4550,7 @@
    2.27  
    2.28      lda #192
    2.29      sta $5785
    2.30 -    show_game_over_delay_loop:
    2.31 -
    2.32 -        jsr wait_for_vsync
    2.33 -        dec $5785
    2.34 -        bne show_game_over_delay_loop
    2.35 +    jsr delay
    2.36  
    2.37      rts
    2.38  
    2.39 @@ -4695,13 +4705,7 @@
    2.40  
    2.41      lda #64    ; initialise delay counter
    2.42      sta $5785
    2.43 -
    2.44 -    show_end_of_level_delay_loop1:
    2.45 -
    2.46 -        jsr wait_for_vsync
    2.47 -
    2.48 -        dec $5785
    2.49 -        bne show_end_of_level_delay_loop1
    2.50 +    jsr delay
    2.51  
    2.52      ldx #0
    2.53      end_of_level_text_loop2:
    2.54 @@ -4718,13 +4722,7 @@
    2.55  
    2.56      lda #192    ; initialise delay counter
    2.57      sta $5785
    2.58 -
    2.59 -    show_end_of_level_delay_loop2:
    2.60 -
    2.61 -        jsr wait_for_vsync
    2.62 -
    2.63 -        dec $5785
    2.64 -        bne show_end_of_level_delay_loop2
    2.65 +    jsr delay
    2.66  
    2.67      show_end_of_level_screen_exit:
    2.68      rts