check for multiple PFS write checks per track

src/patchers/pfs.pascal.a

@@ -17,13 +17,14 @@
          !byte $AD,$EC,$C0; LDA $C0EC
          !byte $10,$FB    ; BPL -
          !byte $C9,$93    ; CMP #$93
-         bcs   +          ; passport-test-suite/PFS Graph.woz [C=0] matches
+         bcs   @writeCheck; passport-test-suite/PFS Graph.woz [C=0] matches
          jsr   PrintByID
          !byte s_fbff
          inx
          jsr   modify1
          !byte $25        ; unconditional jump to success path
-+
+
+@writeCheck
          ldy   #$09
          jsr   SearchTrack
          !byte $9E,$06
@@ -51,4 +52,5 @@
          jsr   inx4
          jsr   modify1
          !byte $CB        ; NEQI instead of EQUI because we expect the UREAD to succeed
+         bvc   @writeCheck; always branches (may find additional write checks on same track)
 @exit

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," 2021-10-05",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-10-07",$00
 .bar9
          !text "_________",$00
 .bar18