more PFS Pascal write checks

src/patchers/pfs.pascal.a

@@ -67,7 +67,16 @@
          !byte $00
          !byte $C3,$AB
          !byte $05,$A9
-         bcs   @exit      ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
+         bcc   @foundWriteCheck      ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
+
+         ldy   #$09
+         jsr   SearchTrack
+         !byte $9E,$06
+         !byte $9E,$22
+         !byte $00
+         !byte $C3,$A1
+         !byte $5D,$CD
+         bcs   @exit                 ; passport-test-suite/PFS Write 1984-09-27.woz [C=0] here
 
 @foundWriteCheck
          jsr   PrintByID

src/strings/en.a

@@ -369,7 +369,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-06-26",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-27",$00
 .bar9
          !text "_________",$00
 .bar18