cleaner refresh of main menu after slot cycle, and shave some bytes elsewhere

src/adstyle.a

@@ -13,7 +13,6 @@
 ;        exits via ReadWithRWTS
 ;-------------------------------
 ADStyle
-         jsr   IncProgress
          jsr   PrintByID
          !byte s_diskrwts
 ;

src/apidefs.a

@@ -48,6 +48,7 @@ ID_FILE_ON_HARD_DISK = %10000000     ; BIT + BMI ->       target is a file on a
 
 ; Standard zero-page addresses
 TEXTTOP  =     $22
+HPOS     =     $24
 VPOS     =     $25
 
 ; Standard addresses

src/crackme.a

@@ -1,4 +1,5 @@
 ReadWithRWTS
+         jsr   IncProgress
          lda   #$22
          jsr   ChangeTrackNW
          lda   #$0F

src/passport.a

@@ -47,6 +47,7 @@ MainMenu
          txs
          jsr   Cleanup               ; RAM/HD files might be left open after Ctrl-Reset
          jsr   ClearScreen
+@refreshMainMenu
          jsr   PrintByID
          !byte s_header
          jsr   PrintByID
@@ -84,9 +85,13 @@ MainMenu
 +        cmp   #k_slot
          bne   +
          jsr   NextSlot
+         lda   #0
+         sta   HPOS
+         sta   VPOS
+         jsr   $FBC1
          lda   #TRUE
          sta   gChangedPrefs
-         beq   MainMenu              ; always branches
+         beq   @refreshMainMenu      ; always branches
 
 +        cmp   #k_verify
          bne   +
@@ -447,8 +452,8 @@ _byte_skip_hi:
          !source "id/davidson.a"
          !source "id/holle.a"
          !source "id/phoenix.a"
-         !source "id/555.a"
          !source "id/bootfailure.a"
+         !source "id/555.a"
          !source "print.a"
          !source "compare.a"
          !source "modify.a"

src/universalstyle.a

@@ -11,7 +11,6 @@
 ;        exits via ReadWithRWTS
 ;-------------------------------
 UseUniversal
-         jsr   IncProgress
 ;
 ; Copy built-in RWTS into place ($B800..$BFFF)
 ;