improve Micrograms ID and patcher (fixes Shapes and Patterns)

src/id/micrograms.a

@@ -22,8 +22,8 @@ IDMicrograms
          !byte $85,$3F
          bcs   .exit
          ldx   #$42
-         ldy   #$03
+         ldy   #$02
          jsr   compare
-         !byte $4C,$00,$0D
+         !byte $4C,$00
 .exit    rts
 }

src/patchers/micrograms.a

@@ -7,26 +7,16 @@
 ; Wild West Math Level 3
 ; Wild West Math Level 4
 ; Wild West Math Level 5
+; Shapes and Patterns
 ;-------------------------------
 !zone {
-         lda   #$06
-         ldx   #$01
          ldy   #$09
-         jsr   compare    ; if T00,S06,$01 ==
-         !byte $AD,$EC,$C0
-         !byte $10,$FB
-         !byte $C9,$BE
-         !byte $D0,$E5
-         bcc   .patch
-         ldx   #$07
-         ldy   #$09
-         jsr   compare    ; or if T00,S06,$07 ==
+         jsr   SearchTrack
          !byte $AD,$EC,$C0
          !byte $10,$FB
          !byte $C9,$BE
          !byte $D0,$E5
          bcs   .exit
-.patch
          inx
          inx
          inx
@@ -36,7 +26,7 @@
          inx
          inx
          ldy   #$01
-         jsr   modify     ; then set T00,S06,$xx =
+         jsr   modify     ; change BNE to continue instead
          !byte $00
 .exit
 }

src/strings/en.a

@@ -137,7 +137,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2017-12-27",$00
+         !text "Passport by 4am               2017-12-29",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "