TTFIL jmd_asia.ttt

   1  {FILELEVEL=1?
   2    $INCLUDE SINGLE.TTT
   3  }
   4
   5  $REQUIRE JMD_DEF.TTT
   6
   7  {CN?
   8    %ADDPOOL(POOL_CN,CN_ENV)
   9  #
  10  # CHINA
  11  #
  12      {E5?
  13        TX=Jing Peng Pass (01.2001);                                                                      \
  14          C=CR_QJ~HEN,6*CR_COAL,CR_BOX1,CR_BOX2,CR_C63,CR_FLAT,2*CR_COAL,CR_CAB;
  15        TX=Jing Peng Pass (01.2001);                                                                      \
  16          C=2*CR_QJ~HEN,CR_C63,3*CR_COKE,20*CR_C63,8*CR_BOX1,CR_FLAT,2*CR_C63,CR_BOX2,CR_CAB;
  17        TX=Gantang;                                                                                       \
  18          C=2*CR_QJ~HEN,32*CR_C63,CR_CAB;
  19        TX=Nanpio (02.2004);                                                                              \
  20          C=CR_SY,14*CR_C63;
  21        TX=Nanpio (02.2004);                                                                              \
  22          C=CR_SY,CR_UZ22,3*CR_YZ22;
  23        TX=Chengde;                                                                                       \
  24          C=CR_SY,CR_COKE,2*CR_COAL,8*CR_COKE,2*CR_JSN;
  25        TX=Simingyi (16.11.2004);                                                                         \
  26          C=2*CR_QJ~HEN,50*CR_COAL;
  27        TX=Simingyi (16.11.2004);                                                                         \
  28          C=CR_DF4,CR_QJ~HEN,50*CR_COAL;
  29        TX=Shangdian (18.11.2004);                                                                        \
  30          C=CR_DF4,5*CR_C63,CR_C63T,CR_C60,CR_FLAT[O:C4R09,,12],CR_C63T,4*CR_C60,CR_HOP,5*CR_COAL,        \
  31            5*CR_BOX1,CR_T17Y,4*CR_BOX1,15*CR_C63,5*CR_T17E;
  32      }
  33      {E6?
  34        TX=Baiyin (14.05.2011);                                                                           \
  35          C=CR_SY,CR_YW22,4*CR_YZ22,CR_YW22;
  36        TX=Beijing (27.10.2012);                                                                          \
  37          C=CR_SS3,CR_XL22,7*CR_YZ22,CR_CA23,3*CR_RZ22;
  38        TX=Beijing (20.04.2013);                                                                          \
  39          C=CR_8K014,27*CR_C60|CR_C63,2*CR_BOX1|CR_BOX2,2*CR_C60|CR_C63,CR_BOX1|CR_BOX2,18*CR_C60|CR_C63;
  40        TX=Ma Liu Shui (10.09.2014);                                                                      \
  41          C=<KCR_SP1L,KCR_SP2L,KCR_SP3L,KCR_SP2L,4*KCR_SP3,KCR_SP2,KCR_SP4L,KCR_SP3,KCR_SP2,KCR_SP1;
  42        TX=Guangzhou (05.10.2014);                                                                        \
  43          C=CR_DF4~TKH,33*CR_T17E;
  44        TX=Hong Kong <-> Guangzhou (05.10.2014);                                                          \
  45          C=<KCR_KTT2L,4*KCR_KTTT(1|2)(|L),2*KCR_KTTT(3|4)(|L),2@(KCR_KTTT1,KCR_KTTT2),KCR_KTT2;
  46      }
  47    %ENDPOOL;
  48  }
  49
  50  {J?
  51    %ADDPOOL(POOL_JP,J_ENV)
  52      {E4?
  53        C=JR_40_(100A|100B|2000|500A|500B)(|L);                                                           \
  54          F=DU4;
  55  # 15.11.1985 in Omine
  56        C=2*(<J_165TCL,J_164M80L,J_165TC);                                                                \
  57          F=LU4;
  58  #05.1986
  59        C=<J_165TCL,J_164M80L,J_165TC;                                                                    \
  60          F=LU4;
  61  #03.1987
  62        C=JR_EF81_ORG[PU],5*JR_HOKI2200(|B),                                                              \
  63            JR_TAKI29100U(|L)|JR_TAKI29103M(|C|CL|K|KL|L)|                                                \
  64            JR_TAKI291(16AK1|16AK1L|16AK2|16AK2L|16N|16NL|21S|21SL);                                      \
  65          F=L4;
  66  # 1987
  67        C=<JR_C3810AL,3@(JR_M381,JR_M380),JR_M381,JR_C3810A;                                              \
  68          F=LU4;
  69  #03.1987
  70        C=<JR_122L,JR_125,JR_116,JR_125,JR_126,JR_121;                                                    \
  71          F=LU4;
  72        C=J_TSEXP;                                                                                        \
  73          F=DU4;
  74  #01.1988
  75
  76      }
  77      {E5?
  78        C=2*JR_ED79_50(|L),8*JR_WAKI5000(A1|B1|B2),                                                       \
  79            10*JR_KOKI106[O:C1_JR(7|8|F5|F7|F8|F6|F10),<4,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),<42,10]        \
  80            [O:C1_JR(7|8|F5|F7|F8|F6|F10),118,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),156,10];                   \
  81          F=L5;
  82  # 08.1992
  83        C=<J_167TC_1,J_164M,J_165TC_3;                                                                    \
  84          F=LU5;
  85        C=<NAN_1201A,NAN_1201B;                                                                           \
  86          F=L5;
  87  # Nankai (1994)
  88        C=JR_EF65_0[PU]|JR_EF65_500~ZAG[PU],JR_TAKI10300M2(|L),JR_WAKI5000B(1|2),5*JR_WAMU83000,          \
  89            JR_TAKI15802MT(|L),6*JR_TAKI143645J(|L),5*JR_WAKI5000B(1|2);                                  \
  90          F=L5;
  91  #Leaving Hiroshima anno 1994
  92        C=<J_400,J_480,J_480L,J_400L;                                                                     \
  93          F=DU5;
  94  # Hakodate (07.1994)
  95        C=3*JRE_DC40_NGT;                                                                                 \
  96          F=DU5;
  97  # Tokusawa 07.1994
  98        C=J_EF66_1[PU],JR_TAKI5450N(1A|2B|2BF|2BFL|2BL),2*JR_WAKI5000(A1|B1|B2),4*JR_WAMU83000,           \
  99            7*JR_WAKI5000(A1|B1|B2),JR_WAMU83000,JR_TAKI5950KAO(|L)|JR_TAKI5952KAO(|L),JR_WAMU83000,      \
 100            2*JR_WAKI5000(A1|B1|B2);                                                                      \
 101          F=L5;
 102        C=<JR_TS381FL,JR_M381,JR_M380,JR_M381,JR_M380,JR_M381,JR_C3810A;                                  \
 103          F=LU5;
 104  # 08.1996
 105        C=JRE_EF81_RBW[PU],JR_EF65_1100[PU],                                                              \
 106            (<J_SRF14706,J_OR14711,J_OR14712,J_OR12715,J_OR14713,J_OR14714,J_SRF14705);                   \
 107          F=LP5;
 108  #23.12.1996
 109        C=<JRE_115OA,JRE_114O,JRE_115OF,JRE_115OA,JRE_115OC,JRE_114O,JRE_115OF;                           \
 110          F=LU5;
 111  #04.01.1997
 112        C=<JR_922_21,JR_922_22,JR_922_24,JR_921_21,JR_922_25,JR_922_26;                                   \
 113          F=LU5;
 114        C=<JRE_TC111OL,JRE_M112OL,JRE_124S,JRE_TO111S,JRE_M112O,JRE_M113O,JRE_M113OL,JRE_M112O,JRE_TC111O; \
 115          F=LU5;
 116  # Tokaido 03.1997
 117        C=JR_ED75_1000BL(|L),JR_KOKI50000,2*JR_WAMU280000G,3*JR_WAMU380000G,3*JR_WAMU280000G,             \
 118            JR_WAMU380000G,JR_WAMU280000G,2*JR_WAMU380000G,5*JR_TAKI18703J(|L),                           \
 119            JR_TAKI5450K(1A|2A|2B|2BF)(|L),3*JR_TAKI43100J(|L)|JR_TAKI43486J(|L);                         \
 120          F=L5;
 121  #12.04.1997
 122        TX=Shizuoka <-> Kakegawa (01.1998);                                                               \
 123          C=<JR_SH300AFL,JR_SH300A1,JR_SH300A2,JR_SH300A3,JR_SH300A4,JR_SH300A5,JR_SH300A6,JR_SH300A7,    \
 124            JR_SH300A8,JR_SH300A9,JR_SH300A10,JR_SH300A11,JR_SH300A12,JR_SH300A13,JR_SH300AF;             \
 125          V=10-22;                                                                                        \
 126          F=LU5;
 127        TX=Shizuoka <-> Kakegawa (01.1998);                                                               \
 128          C=<JR_SH500KFL,JR_SH500K1,JR_SH500K2,JR_SH500K3,JR_SH500K4,JR_SH500K5,JR_SH500K6,JR_SH500K7,    \
 129            JR_SH500K8,JR_SH500K9,JR_SH500K10,JR_SH500KF;                                                 \
 130          V=10-22;                                                                                        \
 131          F=LU5;
 132        C=2*(<JRE_115BL,JRE_114B,JRE_115B);                                                               \
 133          F=LU5;
 134  #01.05.1998
 135        TX=Inadazutsumi <-> Yanokuchi (19.07.1998);                                                       \
 136          C=JR_EF64_1000A,20*J_HOKI95(A|B|C|D|E|F|G|H|I|J|K|L);                                           \
 137          F=L5;
 138        C=JR_EF64_3[PU],JR_EF64_9[PU],2*JR_10CF_GRAY,2*JR_KOKI106[O:JR_10CONT,<4,10][O:JRF_10CONT,156,10]; \
 139          F=L5;
 140  # 28.06.1998
 141        TX=Hakata <-> Mojiko (26.07.1998);                                                                \
 142          C=<JRE_411L,JRE_415,JRE_414,JRE_411;                                                            \
 143          F=LU5;
 144        C=<J_351TC1L,J_351M1,J_351M2,J_351TC2,J_351TC2L,J_351M1,J_351TC1;                                 \
 145          F=LU5;
 146  # 17.08.1998
 147        C=2*JR_EF64_9[PU],                                                                                \
 148            9*JR_TAKI7250NG(|L)|JR_TAKI14300J(|L)|JR_TAKI15700J(|L)|JR_TAKI15702NG(|L)|JR_TAKI16200NG(|L), \
 149            3*JR_TAKI38000J(|L)|JR_TAKI40000J(|L);                                                        \
 150          F=L5;
 151  # 17.08.1998
 152        C=2*JR_EF64_1000A(|L)[PU],13*JR_HOKI5700AC|JR_HOKI5700C1|JR_HOKI5700C2;                           \
 153          F=L5;
 154  #14.09.1998
 155        C=2*JR_ED78_S1,7*JR_CMNT_T(|R|W);                                                                 \
 156          F=L5;
 157  #19.09.1998
 158        C=<J_ROFU12L,J_RO12A,J_RO12,J_RO12L,4*J_RO12A,JR_EF64_66[PU];                                     \
 159          F=LP5;
 160  #15.01.1999
 161        C=<JR_EF64_66[PU],3*J_RO12A,J_RO12L,J_RO12,J_RO12A,J_RO12L,J_RO12,J_ROFU12;                       \
 162          F=LP5;
 163  #15.01.1999
 164        C=2*JR_EF64_49[PU],                                                                               \
 165            18*(5:(JR_TAKI1000J(|L)|JR_TAKI243646J2(|L))|(JR_TAKI43486J(|L)|JR_TAKI43100J(|L)));          \
 166          F=L5;
 167  #18.01.1999
 168        TX=Kii Tahara <-> Koza (31.03.1999);                                                              \
 169          C=<JR_TS381FL,JR_M381,JR_M380,JR_M381,JR_M380,JR_M381,JR_C3810A;                                \
 170          F=LU5;
 171        TX=Yamato <-> Ogino (05.1999);                                                                    \
 172          C=2*JRE_DC40_NGT;                                                                               \
 173          F=DU5;
 174        C=2*JR_ED75_WHITE(|L),JR_10CF_GRAY,J_20CF_GRAY,                                                   \
 175            JR_KOKI106[O:C1_JR(7|8|F5|F7|F8|F6|F10),<4,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),<42,10]           \
 176            [O:C1_JR(7|8|F5|F7|F8|F6|F10),118,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),156,10],6*JR_KOKI106(|L),  \
 177            J_20CF_GRAY,3*JR_KOKI106(|L)|JR_KOKI104(|L),J_20CF_GRAY;                                      \
 178          F=L5;
 179  #14.06.1999
 180        C=JR_DD16,2*J_HF502510;                                                                           \
 181          F=DP5;
 182  # 21.06.1999
 183        TX=Shizuoka <-> Kakegawa (09.1999);                                                               \
 184          C=2*(<JR_121_3000,JR_126_3000B,JR_125_3000,JR_126_3000A,JR_125_3800,JR_126_3000C,JR_179_3000,   \
 185            JR_168_3000,JR_179_3100,JR_178_3000,JR_125_3700,JR_126_3000B,JR_125_3000B,JR_126_3000A,       \
 186            JR_125_3000B,JR_122_3000);                                                                    \
 187          V=10-22;                                                                                        \
 188          F=LU5;
 189        TX=Shizuoka <-> Kakegawa (09.1999);                                                               \
 190          C=<JR_SH300AFL,JR_SH300A1,JR_SH300A2,JR_SH300A3,JR_SH300A4,JR_SH300A5,JR_SH300A6,JR_SH300A7,    \
 191            JR_SH300A8,JR_SH300A9,JR_SH300A10,JR_SH300A11,JR_SH300A12,JR_SH300A13,JR_SH300AF;             \
 192          V=10-22;                                                                                        \
 193          F=LU5;
 194        C=2*JRC_DC40_TOKAI;                                                                               \
 195          F=DU5;
 196  # 10.1999
 197        C=J_DD51_101,(<J_ROFU12L,J_RO12L,J_RO12,J_RO12A,J_RO12L,J_RO12,J_RO12A,J_ROFU12);                 \
 198          F=DP5;
 199  #24.10.1999
 200
 201      }
 202      {E6?
 203        C=JRF_DF200_(0|50|900A|900B),J_20CF_GRAY,                                                         \
 204            6*JR_KOKI106[O:C1_JR(7|8|F5|F7|F8|F6|F10),<4,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),<42,10]         \
 205            [O:C1_JR(7|8|F5|F7|F8|F6|F10),118,10][O:C1_JR(7|8|F5|F7|F8|F6|F10),156,10],                   \
 206            4*JR_KOKI10(4|4L|6|6L),J_20CF_GRAY,6*JR_KOKI10(4|4L|6|6L),2*JR_10CF_GRAY;                     \
 207          F=D6;
 208  #14.1.2000
 209        C=2*J_DE10(|L),                                                                                   \
 210            2*JR_KOKI106[O:C1_JR(7|8),<4,10]                                                              \
 211            [O:C1020|C1026|C1027|C1022|C1030|C1021|C1031|C1024|C1029|C1025|C1028|C1023|C1032|             \
 212            C1_JR(10|12|7|8|9|F10|F11|F5|F6|F7|F8|F9)|C1_JOT(1|10|11|12|13|2|3|4|5|6|7|8|9),<42,10]       \
 213            [O:C1_JRF(5|7|8|6|10),80,10][O:C1_JRF(5|7|8|6|10),118,10][O:C1_JR(7|8),156,10],J_10CF_GRAY,   \
 214            9*JR_TAKI45000J2(|L)|JR_TAKI44507J(|L)|JR_TAKI43600J(|L)|JR_TAKI35000J2(|L)|                  \
 215            JR_TAKI14300J(|L)|JR_TAKI7750K1H(|L);                                                         \
 216          F=D6;
 217  #29.01.2000
 218        TX=Shin-Tsurumi <-> Fuchu-Hommachi (20.05.2000);                                                  \
 219          C=J_DE10(|L),JRF_EH500A[PD];                                                                    \
 220          F=6;
 221        C=2*J_DC66_3;                                                                                     \
 222          F=DU6;
 223  # Kurate (03.2000)
 224        C=J_EF66_3,                                                                                       \
 225            2-3*(<JR_KOKI106EBL[O:C3_J(1|2|3),<11,10][O:C3_J(1|2|3),>199,10],                             \
 226            JR_KOKI106EB[O:C3_J(1|2|3),<5,10][O:C3_J(1|2|3),>193,10]),JR_KOKI250000,                      \
 227            JR_KOKIFU10000~FOM[O:J_10CONT,*24,11][O:J_10CONT,*67,11][O:J_10CONT,*109,11];                 \
 228          D=L;                                                                                            \
 229          F=L6;
 230        C=<JR_TS381FL,JR_M381,JR_M380,JR_M381,JR_M380,JR_M381,JR_C3810A;                                  \
 231          F=LU6;
 232  # 07.2001
 233        C=<JRE_103GA,JRE_103GB,JRE_103GC,JRE_103GF;                                                       \
 234          F=LU6;
 235  # Kawagoe Route 1.8.2001
 236        TX=Iwai <-> Tomiura (08.2002);                                                                    \
 237          C=<J_TC254,J_M254,J_M255,J_T254,J_T255,J_TS255,J_TC255;                                         \
 238          F=LU6;
 239        C=<JRC_CS3830B,JRC_M3830AB,JRC_T3830AB,JRC_M3831BB,JRC_T3830BB,JRC_MC3830BA,JRC_CS3831A,          \
 240            JRC_M3830AB,JRC_T3831A,JRC_MC3830AA;                                                          \
 241          F=LU6;
 242        C=JR_EF64_10,JR_KOKI71,10*J_10CF_GRAY;                                                            \
 243          F=L6;
 244  #Yonago 23.10.2002
 245        C=J_DE10(|L),                                                                                     \
 246            JR_KOKI106[O:C1_JR(7|8),<4,10][O:C1_JRF(5|7|8|6|10),<42,10][O:C1_JRF(5|7|8|6|10),80,10]       \
 247            [O:C1_JRF(5|7|8|6|10),118,10][O:C1_JR(7|8),156,10],                                           \
 248            JR_KOKI106[O:C1020|C1026|C1027|C1022|C1030|C1021|C1031|C1024|C1029|C1025|C1028|C1023|C1032|   \
 249            C1_JR(10|12|7|8|9|F10|F11|F5|F6|F7|F8|F9)|C1_JOT(1|10|11|12|13|2|3|4|5|6|7|8|9),<4,10]        \
 250            [O:C1_JRF(5|7|8|6|10),<42,10][O:C1_JRF(5|7|8|6|10),80,10][O:C1_JOT(1|12|13|2|5|8|9),118,10]   \
 251            [O:C1_JRF(5|7|8|6|10),156,10];                                                                \
 252          F=D6;
 253  #23.03.2003 Mito
 254        TX="Ome Tokkai" Nishi-Kokubunji <-> Tokyo (25.03.2003);                                           \
 255          C=2*(<JRE_TC200O1L,JRE_M201O1,JRE_M200O,JRE_TC200O1);                                           \
 256          F=LU6;
 257        C=J_EF66_5[PU],JR_WAMU380000,2*JR_WAMU280000,JR_WAMU380000,5*JR_WAMU280000;                       \
 258          F=L6;
 259  #25.03.2003 Nishi-Kokubunji
 260        C=JR_EF65_1100[PU],5*JR_TOKI25000(|K)|JR_TOKI29400(|K);                                           \
 261          F=L6;
 262  #Ofuna 30.06.2003 - should be EF65-1000 class
 263        C=JR_EF64_1000AL[PU],JR_EF64_1000A[PU],                                                           \
 264            15*JR_TAKI243646JL|JR_TAKI243646J|JR_TAKI243646J2L|JR_TAKI243646J2|JR_TAKI243646J3L|          \
 265            JR_TAKI243646J3|JR_TAKI43100JL|JR_TAKI43100J|JR_TAKI43486JL|JR_TAKI43486J|JR_TAKI43600JL|     \
 266            JR_TAKI43600J;                                                                                \
 267          F=L6;
 268  #Hachioji Station 12.07.2003
 269        C=2*JRW_DC40_HIROSHIMA;                                                                           \
 270          F=DU6;
 271  # Hiroshima 19.07.2003
 272        C=<JRK_885KA,JRK_885KB,JRK_885KC,JRK_885KD,JRK_885KE,JRK_885KF;                                   \
 273          F=LU6;
 274  #Hakata 20.07.2003
 275        C=<J_26FL,J_26B,J_26C,3*J_27B,J_27A,J_26A,JRE_EF81_CAS;                                           \
 276          D=R;                                                                                            \
 277          F=LP6;
 278        C=2*(<JRE_TC115BL,JRE_M114800B,JRE_MC115B);                                                       \
 279          F=LU6;
 280  #Hachioji 13.09.2003
 281        M=SIMPLE|STOP|BACK;                                                                               \
 282          C=J_DE10(|L);                                                                                   \
 283          F=O6;
 284  #Hachioji 13.09.2003
 285        C=<JRE_103GA,JRE_103GB,JRE_103GC,JRE_103GF;                                                       \
 286          F=LU6;
 287  #Hachioji 13.09.2003
 288        TX=Koide <-> Aizu Wakamatsu (anno xxxx);                                                          \
 289          C=JRE_DC40_SENDAI;                                                                              \
 290          F=DU6;
 291        C=JR_EF65_1100[PU],J_RONE14_1(|L);                                                                \
 292          F=LP6;
 293  #Kyoto 7.11.2003
 294        C=J_EF66_5[PU],3*JR_TAKI43100J(|L)|JR_TAKI43486J(|L),2*JR_TAKI243646J(|L),JR_TAKI243646J3(|L),    \
 295            JR_TAKI243646J(|L),3*JR_TAKI243646J3(|L);                                                     \
 296          F=L6;
 297        C=JRE_EF65A,JR_TAKI(1000J|1000JL|243646J2|243646J2L),JR_KOKI104L,JR_KOKI200,JR_TOKI1000(|L),      \
 298            J_FC0003_1,JR_KOKI104;                                                                        \
 299          F=L6;
 300        TX="Sunrise Izumo" Tokyo <-> Izumoshi (20.04.2003);                                               \
 301          C=2*(<J_TC285L,J_T285_A,J_M285_1,J_TS285_1,J_M285_A,J_T285_A,J_TC285);                          \
 302          F=LU6;
 303        C=JRF_EF210_1(|L),JR_TAKI9550J(|L),JR_TAKI243646J2(|L),                                           \
 304            JR_TAKI43100J(|L)|JR_TAKI43486J(|L)|JR_TAKI43600J(|L)|JR_TAKI243646J(|L),                     \
 305            JR_TAKI243646J2(|L),                                                                          \
 306            4*JR_TAKI43100J(|L)|JR_TAKI43486J(|L)|JR_TAKI43600J(|L)|JR_TAKI243646J(|L),                   \
 307            2*JR_TAKI243646J2(|L),                                                                        \
 308            JR_TAKI43100J(|L)|JR_TAKI43486J(|L)|JR_TAKI43600J(|L)|JR_TAKI243646J(|L),                     \
 309            3*JR_TAKI243646J2(|L);                                                                        \
 310          F=L6;
 311  #10.01.2004 Nishi-Urawa Station
 312        TX=Tokyo <-> Morioka;                                                                             \
 313          C=<JR_E223_10J,JR_E226_11J,JR_E226_12J,JR_E226_11J,JR_E225_11J,JR_E226_13J,JR_E225_10J,         \
 314            JR_E226_11J,JR_E215_10J,JR_E224_10J;                                                          \
 315          F=LU6;
 316        C=<JRE_401L,JRE_402,JRE_403,JRE_401,JRE_402,JRE_403,JRE_401;                                      \
 317          F=LU6;
 318  # 24.07.2004
 319        C=JRE_EF65A,2*JR_KOKI50000,JR_KOKI104(|L),2*JR_KOKI50000,                                         \
 320            JR_TAKI3707(D0|D1|D2|NG|NK)(|L)|JR_TAKI3743(D1|D2|DK|KR)(|L)|JR_TAKI3767(D1|D2|DK|KR)|        \
 321            JR_TAKI7750(DK1H|DK2F|DS1H|DS1NB|DS2N|K1H|K2N|N2F|N2N|SD1NA|SD1NB|SD2F|SD2N|TG1NA|TG1NB|      \
 322            TG2F|TG2N|TK2N|TS1H|TS2F)(|L),JR_WAMU(280000P|380000G),JR_KOKI106(|L);                        \
 323          F=L6;
 324  #10.01.2004 Nishi-Urawa Station
 325        C=<JR_KH3,JR_MH2A,JR_MH3A,JR_SH3,JR_MH2B,JR_MH3B,JR_KH2;                                          \
 326          F=LU6;
 327        C=<JRE_411L,JRE_414,JRE_415,JRE_T411,JRE_414,JRE_415,JRE_411;                                     \
 328          F=LU6;
 329  # 24.07.2004
 330        TX=Tachikawa Station (21.10.2004);                                                                \
 331          C=JR_EF65_1100~ZAG[PU],6*JR_TAKI243646J2L|JR_TAKI243646J2|JR_TAKI243646J3L|JR_TAKI243646J3,     \
 332            JR_TAKI243646JL|JR_TAKI243646J;                                                               \
 333          F=L6;
 334        C=JRE_EF81_CAS,(<J_26AL,7*J_27AL,J_27BL,J_26CL,J_26BL,J_26F),2*JRE_EF81_CAS;                      \
 335          F=LP6;
 336        TX=Hamakawasaki <-> Okawa (15.11.2005);                                                           \
 337          C=J_DE10(|L),2*JR_TAKI5450(K2A|K2B|K2BF|TG2AF|TG2B|TG3B)(|L);                                   \
 338          F=D6;
 339        C=<JRE_411L,JRE_414,JRE_415,JRE_411;                                                              \
 340          F=LU6;
 341        TX=Train 5993 Kawasaki-kamotsu <-> Ogimachi (24.11.2005);                                         \
 342          C=JRE_EF65A,JR_TAKI43100J(|L)|JR_TAKI43486J(|L)|JR_TAKI43600J(|L)|JR_TAKI243646J(|L),           \
 343            3*JR_TAKI1000J(|E|EL|L),JR_TAKI5450(K2A|K2B|K2BF|TG2AF|TG2B|TG3B)(|L),                        \
 344            JR_TAKI18600(D|I1|I2|J|K|M|N5|N5S|N7|N7L|N7S|S);                                              \
 345          F=L6;
 346        C=<JRE_411_1500L,JRE_414_1500L,JRE_415_1500,JRE_411_1500,JRE_415_1500,JRE_414_1500L,              \
 347            JRE_415_1500,JRE_415_1900;                                                                    \
 348          F=LU6;
 349        C=<JRE_E257A,JRE_E257B,JRE_E257C,JRE_E257D,JRE_E257E,JRE_E257F,JRE_E257G,JRE_E257H,JRE_E257I,     \
 350            JRE_E257J,JRE_E257K;                                                                          \
 351          AP=[TX="Azusa" Shinjuku <-> Matsumoto]|[TX="Kaiji" Shinjuku <-> Matsumoto];                     \
 352          F=LU6;
 353        C=<JR_E223,JR_E226_1,JR_E225_4,JR_E226_2,JR_E225,JR_E226_2,JR_E215,JR_E224;                       \
 354          F=LU6;
 355  #2006 irgendwo
 356        C=<JR_SH500KFL,JR_SH500K1,JR_SH500K2,JR_SH500K3,JR_SH500K4,JR_SH500K5,JR_SH500K6,JR_SH500K7,      \
 357            JR_SH500K8,JR_SH500K9,JR_SH500K10,JR_SH500KF;                                                 \
 358          F=LU6;
 359        C=JRF_EF210_1L,20*J_(10|20)CF_(BLUE|GRAY),JR_EF81_ORG[PU];                                        \
 360          F=L6;
 361  # Should be EF200 and EF67, Between Seno and Hachihonmatsu
 362        C=<JRE_C48130BBKNL,JRE_M48530ABKN,JRE_M48430ABKN,JRE_M48530ABKN,JRE_M48430ABKN,JRE_TS48130BKN,    \
 363            JRE_C48130BAKN;                                                                               \
 364          F=LU6;
 365        C=<JRE_CS48115AIL,JRE_M48510AAI,JRE_M48410AAI,JRE_M48510ICAI,JRE_M48410BAI,JRE_C4813AI;           \
 366          F=LU6;
 367        C=<JRK_C4812MIL,JRK_M485MI,JRK_M4842HTBA,JRK_M485MI,JRK_M4842HTBA,JRK_CS481AMI;                   \
 368          F=LU6;
 369        C=JR_EF65_500~ZAG,12*J_(10|20)CF_(BLUE|GRAY);                                                     \
 370          F=L6;
 371        C=<JRK_MC4851KHB,JRK_M4842KHB1,JRK_T4810HTBB,JRK_C4812HTBB;                                       \
 372          F=LU6;
 373        C=<J_165TCL,J_164M80,J_165TC_3[B:43,11,13,8],J_167M_1,J_165TS,J_165TBL,J_164M80,J_167M_1,         \
 374            J_165TC_3[B:43,11,13,8],J_167M_1,J_164M80,J_165TC;                                            \
 375          F=LU6;
 376        C=JR_KIHA120L|JR_KIHA120;                                                                         \
 377          F=DU6;
 378        C=JRE_EF65A,23*JR_HOKI10000C(|L),                                                                 \
 379            12*JR_TAKI1000J(|L)|JR_TAKI1000JE(|L)|JR_TAKI1000JOT(|L)|JR_TAKI1000JOT_E(|L);                \
 380          F=L6;
 381        C=2*(<JRE_115OA,JRE_114O,JRE_115OC,JRE_115OF);                                                    \
 382          F=LU6;
 383        C=<JRW_223_1000A,JRW_223_1000C,2*JRW_223_1000B,JRW_223_1000C,2*JRW_223_1000B,JRW_223_1000E;       \
 384          F=LU6;
 385        C=JRF_EH200901,                                                                                   \
 386            20*JR_TAKI1000O1L|JR_TAKI1000O1|JR_TAKI1000O2L|JR_TAKI1000O2|JR_TAKI1000OTL|JR_TAKI1000OT;    \
 387          F=L6;
 388  # tanks should have feather logo
 389        C=<JRW_205K2A,JRW_205K2B,JRW_205K2C,JRW_205K2D,JRW_205K2B,JRW_205K2C,JRW_205K2F;                  \
 390          F=LU6;
 391        C=<JRW_207A,JRW_207B,JRW_207E,JRW_207A,JRW_207C,JRW_207B,JRW_207E;                                \
 392          F=LU6;
 393        C=<JRW_103GA,JRW_103GB,JRW_103GC,JRW_103GF;                                                       \
 394          F=LU6;
 395        C=<JRW_103A,JRW_103D,JRW_103C,JRW_103B,JRW_103C,JRW_103F;                                         \
 396          F=LU6;
 397        C=<JRW_103OA,JRW_103OB,JRW_103OC,3*JRW_103OD,JRW_103OF;                                           \
 398          F=LU6;
 399      }
 400    %ENDPOOL;
 401  }
 402
 403  {IND?
 404    %ADDPOOL(POOL_IND,IND_ENV)
 405  #
 406  # INDIA
 407  #
 408  #    {E5?
 409  #
 410  #    }
 411      {E6?
 412        TX="SBC Jaipur 9775 Express" (anno 2003);                                                         \
 413          C=INR_WDMP,INR_LR1,2*INR_GS1,2*INR_C33,INR_C34,INR_LR1,10*INR_SL1,INR_LR1;
 414  # ^ middle LR should be a diner
 415        TX="Karnataka Express" (anno 2003);                                                               \
 416          C=$DIR(INR_CR_WDM2_17904L,INR_CR_WDM2_17904),$DIR(INR_TKD_WDM2_16004,INR_TKD_WDM2_16004L),      \
 417            INR_LR1,2*INR_GS1,19*INR_SL1,INR_GS1,2*INR_LR1;
 418  # ^ lead loco should have all green front, not stripes. Last car full baggage, not RPO.
 419        TX="Kerala Express" New Delhi <-> Trivandrum Central (04.01.2007);                                \
 420          C=INR_WAP1,INR_LR1,INR_GS1,2*INR_SL1,INR_C34,INR_C33,3*INR_CS2;
 421        TX="Rajkot-Verval Express" in Virpur (07.01.2008);                                                \
 422          C=INR_WDM2R,INR_LR1,5*INR_GS1,INR_CS2;
 423        TX="Andhra Pradesh Express" in Ghatkesar (09.03.2008);                                            \
 424          C=INR_WAP4,INR_LR1,INR_GS1,13*INR_SL1,2*INR_C34,INR_CS2;
 425        TX=Train 2124 "Deccan Queen" Pune <-> Mumbai (01.06.2009);                                        \
 426          C=INR_WCAM3,INR_LR3,INR_GS2,13*INR_CC3,4*INR_CC4;
 427        TX=Tindharia (26.11.2009);                                                                        \
 428          C=DARJ_SL2,DARJ_P5,DARJ_P1,DARJ_P6;                                                             \
 429          V=1-2;
 430        TX=Dehar Ka Balaji (15.01.2010);                                                                  \
 431          C=INR_YM41,INR_MG2,10*INR_MG1;
 432        TX=Ernakulam (18.01.2015);                                                                        \
 433          C=INR_WAP4,INR_GS1,INR_LR1,11*INR_GS1,INR_LR1;
 434        TX=Alappuzha <-> Ernakulam (18.01.2015);                                                          \
 435          C=INR_WAP4,11*INR_GS1,2*INR_CS2,INR_LR1;
 436        TX="Mangalore Chennai Superfast Express" Mangalore Central <-> Chennai Central (27.03.2016);      \
 437          C=INR_WAP4,INR_LH4,16*INR_LH3;
 438  # ^Generator should be silver with red & blue stripes. First 2 coaches have middle door. Coaches 6-9 have raised roof.
 439        TX=Chennai (16.04.2016);                                                                          \
 440          C=INR_WG71,3*INR_BCNA(|L),2*INR_ER_BCN(|L),INR_BCNA(|L),3*INR_ER_BCN(|L),8*INR_BCNA(|L),        \
 441            INR_ER_BCN(|L),6*INR_BCNA(|L),INR_ER_BCN(|L),5*INR_BCNA(|L),INR_BVZI(|L);
 442  # ^Should be blue WAG-7 with yellow stripe
 443        TX="Shatabdi Express" in Chennai (16.04.2016);                                                    \
 444          C=INR_WAP4,INR_LH2,15*INR_LH1;
 445        TX="Alappuzha Ernakulam Express" in Aroor (19.09.2016);                                           \
 446          C=INR_WAP4,INR_LR1,12*INR_GS1,INR_LR1;
 447        TX=Pune <-> Lonavla (01.2017);                                                                    \
 448          C=(<INR_SR_WDM2_18332,INR_ED_WDM2_17714L),30*INR_ER_BCN(|L)|INR_BCNA(|L),INR_BVZI(|L);
 449        TX=Chittoor (19.03.2017);                                                                         \
 450          C=2*INR_WG71,INR_ER_BCN(|L),INR_BCNA(|L),3*INR_ER_BCN(|L),18*INR_BCNA(|L),3*INR_ER_BCN(|L),     \
 451            4*INR_BCNA(|L),INR_BVZI(|L);
 452  # ^ WAG-7s should be maroon with yellow stripe
 453        TX="Trivandrum-Mumbai CST Express" in Aroor (10.09.2017);                                         \
 454          C=INR_WAP4,INR_LR1,7*INR_GS1,INR_SL1,INR_LR1,3*INR_SL1,3*INR_C34,3*INR_CS2,INR_LR1;
 455        TX="Kannur-Coimbatore Fast" in Shoranur (16.12.2017);                                             \
 456          C=INR_WAP5,INR_LR1,12*INR_GS1,INR_C34,INR_CS2;
 457        TX=Shindawane (23.06.2018);                                                                       \
 458          C=(<INR_MS_WDM2_16256L,INR_MS_WDM2_16256),                                                      \
 459            12*(<INR_BLCAML[O:C2I_CONCOR(5|6),<18,10][O:C2I_CONCOR(5|6),<79,10],                          \
 460            3*INR_BLCBM(|L)[O:C2I_CONCOR(5|6),3,10][O:C2I_CONCOR(5|6),64,10],                             \
 461            INR_BLCAM[O:C2I_CONCOR(5|6),<4,10][O:C2I_CONCOR(5|6),<65,10]);
 462  # ^ Should be modernized WDG-3A in similar color but simple stripe. not heffalumps
 463        TX="Chennai Egmore-Karaikudi Paliavan SF Express" in Chennai (27.09.2018);                        \
 464          C=INR_WAP5,INR_LR1,14*INR_GS1,INR_CS2,2*INR_C34,INR_CS2;
 465  # ^ should be a WAP-7 in this livery
 466        TX="Chandigarh-Kochuveli Express" in Mararikulam (28.09.2018);                                    \
 467          C=$DIR(INR_GSC_WDM2_18597L,INR_GSC_WDM2_18597),$DIR(INR_WDM2_18712,INR_WDM2_18712L),INR_LR1,    \
 468            12*INR_GS1,2*INR_C34,INR_SL1,INR_LR1;
 469        C=INR_BWN_WDM2_16402(|L),5*IR_DOUBLE,INR_BVZI(|L);                                                \
 470          VH=74;
 471        C=INR_WDMP,                                                                                       \
 472            5*(<INR_BCMCBAAEL,6@INR_BCMCBAAM(|L),INR_BCMCBAAE)|                                           \
 473            (<INR_BCMCBAAEL,6@INR_BCMCBAAM(|L),INR_BCMCBAAE),INR_BVZI(|L);
 474        C=INR_WCAM3,24*10:INR_BCNA(|L)|3:INR_BCNAHS(|L)|10:INR_ER_BCN(|L)|INR_SR_BCN(|L),INR_BVZI(|L);
 475        C=INR_WDMP|INR_WCAM3,                                                                             \
 476            10*(<INR_BLCAML[O:C2I_CONCOR(20:1|20:2|3|4|5|6),<18,10]                                       \
 477            [O:C2I_CONCOR(20:1|20:2|3|4|5|6),<79,10],                                                     \
 478            3*INR_BLCBM(|L)[O:C2I_CONCOR(20:1|20:2|3|4|5|6),3,10][O:C2I_CONCOR(20:1|20:2|3|4|5|6),64,10], \
 479            INR_BLCAM[O:C2I_CONCOR(20:1|20:2|3|4|5|6),<4,10][O:C2I_CONCOR(20:1|20:2|3|4|5|6),<65,10]),    \
 480            INR_BVZI(|L);
 481        C=INR_WM41,                                                                                       \
 482            (52-58*INR_ACC_BCCM_BC95081(|L))|(52-58*INR_ACC_BCCM_BC09137(|L))|                            \
 483            (52-58*(INR_BCCW_V(|L)|4:INR_BCCW_V200(|L)))|                                                 \
 484            (52-58*(INR_UTC_BCCWC_RCU445(|L)|INR_UTC_BCCWC_RCU446(|L)),INR_BVZI(|L),2*INR_WCAM3);
 485      }
 486    %ENDPOOL;
 487  }