verify explicitly all six sectors in RW18 mode

src/id/bootfailure.a

@@ -155,6 +155,12 @@ VerifyInfocom18
 .verifyrw18
          ldx   #$06       ; six sectors, three times the usual size
          stx   tmp        ; sector counter
+         stx   $40
+         stx   $41
+         stx   $42
+         stx   $43
+         stx   $44
+         stx   $45
          bne   +
 
 .retryrw18
@@ -166,7 +172,11 @@ VerifyInfocom18
          bne   --
          jsr   .rw18pro
          bne   .badrw18
-+        ldy   #4
++        ldx   $2D
+         cmp   $40,x
+         beq   .badrw18
+         sta   $40,x
+         ldy   #4
 -        dey
          beq   .badrw18
 .x4

src/strings/en.a

@@ -365,7 +365,7 @@ StringTableHigh           ; must be kept in sync with constants in enid.a
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-02-04",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-02-05",$00
 .bar9
          !text "_________",$00
 .bar18