Timetable file bg_def.ttt

   1  # { [ (
   2  ###############################################################################
   3  #                                                                            ##
   4  #    Backgrounds                                  ##
   5  #                                                                            ##
   6  ###############################################################################
   7
   8  #==============================================================================
   9  #
  10  # Timetable modifier
  11  #
  12  #==============================================================================
  13
  14  $DEF STMOD=$FLG(P,($FLG(S,[C-=[!C]]),[M=STOP][P=*50]))
  15  $DEF STRMOD=$FLG(R,($FLG(S,[C-=[!C]]),[M=STOP][P=*50]))
  16
  17  #==============================================================================
  18  #
  19  # Sky
  20  #
  21  #==============================================================================
  22
  23  # Drawn background - hills and sky
  24  $DEF SKYP =                                                                                             &\
  25      [BG-=BgPaint/BCKGRD_01.JPG:..,,<=>,440,1410;]|                                                      &\
  26      [BG-=BgPaint/BCKGRD_04.JPG:..,,<=>;]|                                                               &\
  27      [BG-=BgPaint/BCKGRD_05.JPG:..,,<=>,160,470;]|                                                       &\
  28      [BG-=BgPaint/BCKGRD_06.JPG:..,,<=>,732,1480;]|                                                      &\
  29      [BG-=BgPaint/BCKGRD_10.JPG:..,,<=>,0,1394;]|                                                        &\
  30      [BG-=BgPaint/BCKGRD_15.JPG:..,,<=>,598,1101;]|                                                      &\
  31      [BG-=BgPaint/BCKGRD_18.JPG:..,,<=>,272,1086;]|                                                      &\
  32      [BG-=BgPaint/BCKGRD_23.JPG:..,,<=>,843,1379;]|                                                      &\
  33      [BG-=BgPaint/BCKGRD_31.JPG:..;]|                                                                    &\
  34      [BG-=BgPaint/BCKGRD_32.JPG:..,,<=>,200,1182;]|                                                      &\
  35      [BG-=BgPaint/BCKGRD_33.JPG:..,,<=>,99,1391;]|                                                       &\
  36      [BG-=BgPaint/BCKGRD_35.JPG:..,,#;]|                                                                 &\
  37      [BG-=BgPaint/BCKGRD_36.JPG:..,,<=>,0,765;]|                                                         &\
  38      [BG-=BgPaint/BCKGRD_37.JPG:..,,<=>,569,1360;]
  39
  40  # %*DEFINE(SKYDEF(N,Y)=
  41  # $DEF %N;=([BGC=(180,210,234)],[BG-=BgSky/SKY(55|114|115|122|138|154|171|176|177|179).JPG:,%Y;;]) |
  42  #    ([BGC=(157,193,229)],[BG-=BgSky/CLOUD(59|60|61|62|63|64|65|66|67|68|69|70).JPG:,%Y;;])
  43  # )
  44  # %SKYDEF(SKYC,200)
  45  # %SKYDEF(SKYS,20)
  46  # %SKYDEF(SKYD,-100)
  47
  48  $DEF SKYMIX1=[WMIXF:,                                                                                   &\
  49      BgSky/CLOUD59.JPG,                                                                                  &\
  50      BgSky/CLOUD60.JPG,                                                                                  &\
  51      BgSky/CLOUD62.JPG,                                                                                  &\
  52      BgSky/CLOUD63.JPG,                                                                                  &\
  53      BgSky/CLOUD64.JPG,                                                                                  &\
  54      BgSky/CLOUD65.JPG,                                                                                  &\
  55      BgSky/CLOUD66.JPG,                                                                                  &\
  56      BgSky/CLOUD67.JPG,                                                                                  &\
  57      BgSky/CLOUD68.JPG,                                                                                  &\
  58      BgSky/CLOUD69.JPG,                                                                                  &\
  59      BgSky/CLOUD70.JPG]
  60  $DEF BGC1=[BGC=(157,193,229)]
  61
  62  $DEF SKYMIX2=[WMIXF:,                                                                                   &\
  63      BgSky/SKY54.JPG[CROPR:-20],                                                                         &\
  64      BgSky/SKY55.JPG[CROPR:-20],                                                                         &\
  65      BgSky/SKY114.JPG[CROPL:-20],                                                                        &\
  66      BgSky/SKY115.JPG[CROPL:-20],                                                                        &\
  67      BgSky/SKY122.JPG[CROPR:-20],                                                                        &\
  68      BgSky/SKY138.JPG[CROPR:-20],                                                                        &\
  69      BgSky/SKY154.JPG[CROPR:-20],                                                                        &\
  70      BgSky/SKY171.JPG[CROPL:-20],                                                                        &\
  71      BgSky/SKY176.JPG[CROPR:-20],                                                                        &\
  72      BgSky/SKY177.JPG[CROPR:-20],                                                                        &\
  73      BgSky/SKY179.JPG[CROPR:-20]]
  74
  75  $DEF BGC2=[BGC=(175,210,232)]
  76
  77  $DEF SKYM=([BG-=SKYMIX1:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(157,193,229)]:..;]))|                     \
  78      ([BG-=SKYMIX2:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(175,210,232)]:..;]))
  79
  80  $DEF SKYD=([BG-=SKY01:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(132,148,181)]:..;]))|                       \
  81      ([BG-=SKY02:..,$1,0;]$IF($1>0,[BG-=100[B:0,0,,$1,(191,220,247)]:..;]))
  82
  83  $DEF SKY130=[BG-=SKYB02:..;]
  84  $DEF SKY300=$SKYD(0)
  85  $DEF SKY400=$SKYM(0)
  86
  87  $DEF SKY=$IF($BGUP<=130,(SKY130|SKY300|SKY400),$IF($BGUP<=300,(SKY300|SKY400),SKY400))
  88
  89  #==============================================================================
  90  #
  91  # Track
  92  #
  93  #==============================================================================
  94
  95  $DEF BLBK=[W=X],[BG<=100[B:0,0,100,20,#000]:..,^0;]
  96
  97  # $DEF EMB_BK=[WR=X][BG<=100[B:0,0,100,20,#000]:..,^0;]
  98  # $DEF EMB_WD=[WR=X][BG+=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C):..,^0;]
  99
 100  # $DEF RAIL_GO=[BG+=TRBED(50|37|40):..,^0;]
 101  # $DEF RAIL_GS=[BG+=TRBED(3|26|38|24|32|49|15|25|43|22|13|1|8):..,^0;]
 102
 103  $DEF TRACK=[BG+=EMB(3|4)|NL_BRIDGE03(A|C):..,^0,#;                                                      \
 104      TRBED(1|5|6|7|8|11|12|13|15|17|19|20|22|24|25|28|31):..,^0;][WR=[W=X]]
 105
 106  # Bahndamm Erde-Schotter
 107  $DEF TRACKFGBS=EMB14|EMB13|EMB15|EMB01
 108  $DEF EMBS=[BG+=EMB14|EMB13|EMB15|EMB01:..,^0;]
 109
 110  # Gleis ohne Schotter
 111  $DEF TRACKFGGO=TRBED(50|37|40)
 112  $DEF TRKGO=[W=X],[BG+=TRBED(50|37|40):..,^0;]
 113
 114  # Gleis mit Schotter ohne Damm
 115  $DEF TRKDB1=[BG+=TRBED(25|45):..,^0;]
 116  $DEF TRACKFGGS=TRBED(49|15|25|43|22|13|1|8)
 117  $DEF TRKGS=[BG+=TRBED(49|15|25|43|22|13|1|8):..,^0;]
 118  $DEF TRKDB=BLBK,TRKDB1
 119
 120  # Gleis mit Schotter Damm Schotter
 121  $DEF TRACKFGDB=TRBED45|TRBED25
 122  $DEF TRKES=EMBS,TRKDB1
 123  $DEF TRKST=[BG+=TRBED25:..,^0;]
 124
 125  # Gleis mit Schotter Damm Wiese
 126  $DEF TRACKFGDW=TRBED(39|11|42_BUILDPROFILE|47|7)
 127  $DEF TRKDW=[BG+=TRBED(39|11|42|47|7):..,^0;]
 128
 129  # Gleis mit Schotter Damm Wiese hell
 130  $DEF TRACKFGDH=TRBED(51|12|31)
 131  $DEF TRKDH=[BG+=TRBED(51|12|31):..,^0;] 
 132  $DEF TRKDHB=[BG+=EMB7:..,^0;TRBED(51|12|31):..,^0;] 
 133  $DEF TRKGR=[BG+=TRBED(7|28|31):..,^0;]
 134
 135  # Gleis mit Schotter Damm Schnee
 136  $DEF TRACKFGDS=TRBED(41|48)
 137  $DEF TRKDS=[BG+=TRBED(41|48):..,^0;]
 138
 139
 140  # Bahndamm Wiese dunkel
 141  $DEF TRACKFGWD=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C)
 142  $DEF TRKWD=[BG+=EMB(3|4|5|6)|NL_BRIDGE0(2A|2G|3A|3C):..,^0;]      
 143
 144
 145  # Bahndamm Wiese hell
 146  $DEF TRACKFGWH=EMB7
 147
 148  # Bahndamm
 149
 150  $DEF EMBG=[BG+=EMB(3|4|5|6|7|10|12A|12B):..,^-5;]
 151
 152  # Gleis mit Schotter, ohne Bahndamm
 153  $DEF TRKND=[BG+=TRBED22|TGIF_TRBED3|TGIF_TRBED4|TRBED14|TRBED20|TRBED43|TRBED44|TRBED10|TGIF_TRBED12|   \
 154      TRBED22|TGIF_TRBED11|TGIF_TRBED6|TRBED5|TRBED1|TRBED8|TGIF_TRBED13:..,^0;]
 155
 156  # Gleis mit Schotter und Bahndamm, hoch
 157  $DEF TRKHI=[BG+=TRBED(11|42|42_BUILDPROFILE|51|47|7|12|31):..,^0;]
 158
 159  # Gleis mit Schotter, niedrig
 160  $DEF TRKLO=[BG+=(2:TRBED(1|5|8|13|14|22|38|43|44|45)|TGIF_TRBED(1|3|4|6|11|12|13)):..,^0;]
 161
 162  #==============================================================================
 163  #
 164  # Catenary
 165  #
 166  #==============================================================================
 167
 168  $DEF WX=[W=X]
 169
 170  $DEF M_CAT1B=[BG<=;M_BB,M_VEZ:..,#-58,#;]
 171  $DEF M_CAT1F=[FG>=;M_BF,M_VEZF:..,#-64,#;]
 172  $DEF M_CAT2B=[BG<=;M_VB,M_VEZ:..,#-58,#;]
 173  $DEF M_CAT2F=[FG>=;M_VF,M_VEZF:..,#-64,#;]
 174  $DEF M_CAT3B=[BG<=;M_BDB,M_VEZ:..,#-58,#;]
 175  $DEF M_CAT3F=[FG>=;M_BDF,M_VEZF:..,#-64,#;]
 176  $DEF M_CAT4B=[BG<=;M_VDB,M_VEZ:..,#-58,#;]
 177  $DEF M_CAT4F=[FG>=;M_VDF,M_VEZF:..,#-64,#;]
 178  $DEF M_CAT5B=[BG<=;M_VKB[M],M_VEZ,M_VDB,M_VEZ,M_VKB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
 179  $DEF M_CAT5F=[FG>=;M_VKF[M],M_VEZF,M_VDF,M_VEZF,M_VKF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
 180  $DEF M_CAT6B=[BG<=;M_VKB[M],M_VEZ,M_VDB,M_VEZ,M_VDB,M_VFB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
 181  $DEF M_CAT6F=[FG>=;M_VKF[M],M_VEZF,M_VDF,M_VEZF,M_VDF,M_VFF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
 182  $DEF M_CAT7B=[BG<=;M_VFB[M],M_VDB,M_VEZ,M_VDB,M_VEZ,M_VKB:..,#-58,#,(M_VB,M_VEZ),(M_VEZ,M_VB);]
 183  $DEF M_CAT7F=[FG>=;M_VFF[M],M_VDF,M_VEZF,M_VDF,M_VEZF,M_VKF:..,#-64,#,(M_VF,M_VEZF),(M_VEZF,M_VF);]
 184  $DEF M_CAT=M_CAT(1|2|3|4|5|6|7)F
 185  $DEF M_CATB=M_CAT(1|2|3|4|5|6|7)(F|B)
 186  $DEF CATHU=                                                                                             &\
 187      [WE=M_CAT,WX]                                                                                       &\
 188      [WR=WX]
 189
 190  $DEF DRG_CAT1=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
 191  $DEF DRG_CAT2=[FG>=;FL_DRG_F:..,#-62,#;]
 192  $DEF KPEV_CATTRI=[BG<=FL_3PHB[BC:-40,0],40*FL_3PHA[BC:-40,0]:..,0,#;]
 193  $DEF DB_3RAIL=[FG>=;SBERLIN_3FG:..,-2,#;]
 194  $DEF DB_3RAILH=[FG>=;SHAMBURG_3FG:..,-2,#;]
 195  $DEF CATDRG=                                                                                            &\
 196      [WE=$FLG(G,DRG_CAT1,$FLG(2,DRG_CAT2,$FLG(X,KPEV_CATTRI,DRG_CAT1))),WX]              &\
 197      [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX]                                                                  &\
 198      [WR=WX]                             &\
 199      [WT=DRG_CAT1,WX]
 200
 201  $DEF D_CAT=[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,#-63,#;]
 202  $DEF D_CATB=[BG<=;FL_DB_M(4:1|2),FL_DB_F:..,#-58,#;]
 203  $DEF DB_CAT=[BG<=;FL_DB_F,FL_DB_M(4:1|2):..,#-58,#;]
 204  $DEF DB_NBS1=[BG<=;FL_DB_NBS1:..,#-65,#;]
 205  $DEF DB_NBS2=[BG<=;FL_DB_NBS2:..,#-65,#;]
 206  $DEF DB_GCAT=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
 207  $DEF DR_CAT=[FG>=;FL_DR:..,#-62,#;]
 208  $DEF DR_CATB=[BG<=;FL_DR_B:..,#-62,#;]
 209  $DEF CATDB=                                                                                             &\
 210      [WE=$FLG(G,DB_GCAT,$FLG(3,D_CAT,$FLG(X,DB_NBS(2|1),(1:DR_CAT|3:D_CAT)))),WX]                        &\
 211      [WL=$FLG(G,DB_GCAT,DB_CAT),WX]                                                                      &\
 212      [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX]                                                                  &\
 213      [WR=WX]                                                                                             &\
 214      [WT=$FLG(G,DB_GCAT,DB_CAT),WX]                                                              
 215  $DEF CATDE=$FLG(1,CATDRG,$FLG(2,CATDRG,CATDB))
 216  $DEF CATDR=                                                                                             &\
 217      [WE=$FLG(G,DB_GCAT,DR_CAT),WX]                                                                      &\
 218      [WM=$FLG(X,DB_3RAILH,DB_3RAIL),WX]                                                                  &\
 219      [WR=WX]
 220
 221  $DEF SBB_GCAT=[FG>=;FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
 222  $DEF SBB_CAT1=[FG>=;FL_SBB_M1,(3:FL_SBB_F|FL_SBB_F2):..,#-62,#;]
 223  $DEF SBB_CAT2=[FG>=;                                                                                    \
 224      FL_SBB_M2,FL_SBB_F2,2*(FL_SBB_M1,FL_SBB_F2),#FL_SBB_M2:..,#-62,#,(FL_SBB_M1,FL_SBB_F),              \
 225      (FL_SBB_F,FL_SBB_M1);]
 226  $DEF SBB_CAT3=[FG>=;FL_SBB1_M1,FL_SBB_F2:..,#-62,#;]
 227  $DEF SBB_CAT4=[FG>=;FL_SBBR_M(1|2),FL_SBB_F:..,#-62,#;]
 228  $DEF SBB_CAT5=[FG>=;FL_SBB_F(|2),FL_SBB(1_M1|R_M1|R_M2|_M1):..,#-62,#;]
 229  $DEF SBB_CAT=SBB_CAT(1|2|3|4|5)
 230  $DEF CATCH=                                                                                             &\
 231      [WE=$FLG(G,SBB_GCAT,SBB_CAT),WX]                                                                    &\
 232      [WL=$FLG(G,SBB_GCAT,SBB_CAT),WX]                                                                    &\
 233      [WR=WX]
 234
 235  $DEF A_CAT=[FG>=;FL_OBB:..,#-62,#;]
 236  $DEF A_6CAT=[FG>=;(3:FL_OBB6|1:FL_OBB):..,#-62,#;]
 237  $DEF A_NCAT=[FG>=;FL_OBB_ASPMA,FL_OBB_MA2,4*(FL_OBB_MA2,FL_OBB_MA2):..,#-62;]
 238  $DEF CATOS=                                                                                             &\
 239      [WE=$FLG(N,A_NCAT,$FLG(G,SBB_GCAT,$FLG(6,A_6CAT,$FLG(5,A_6CAT,A_CAT)))),WX]                         &\
 240      [WL=$FLG(N,A_NCAT,$FLG(G,SBB_GCAT,A_CAT)),WX]                                                       &\
 241      [WR=WX]
 242
 243  $DEF GB_CAT=[FG>=;FL_BRH2,FL_BRH3,3*FL_BRH1:..,#-63,#;]
 244  $DEF GB_LCAT=[FG>=;FL_BRH2,FL_BRH3,3*FL_BRH1:..,#-63,#;]
 245  $DEF GB_3RAIL=[FG>=;PLM_3RBG_M:..,-1;]
 246  $DEF CATGB=[WE=GB_CAT,WX][WL=GB_LCAT,WX][WM=GB_3RAIL,WX][WR=WX]
 247
 248  $DEF F_HCAT=[FG>=;FL_MAURIENNE_M1,FL_SBB_F2:..,-4;]
 249  $DEF F_GCAT1=[BG<=;FL_SNCFC_M1,FL_SNCFC_F:..,#-62;]
 250  $DEF F_GCAT2=[BG<=;FL_SNCFC_M1,FL_SNCFC_F:..,#-62,#,(FL_SNCFC_M1,FL_SNCFC_F);]
 251  $DEF F_GCAT10=[BG<=;FL_SNCF_1500V3BG:..,0,#;]
 252  $DEF F_GCAT3=[BG<=;                                                                                     \
 253      FL_SNCFC_M1,FL_SNCFC_F,FL_SNCFC_M1,FL_SNCFC_F,FL_SNCFC_M1:..,#-62,#,(FL_SNCFC_M1,FL_SNCFC_F),       \
 254      (FL_SNCFC_F,FL_SNCFC_M1);]
 255  $DEF F_GCAT4=[FG>=;FL_SNCF_MIDI1,2*FL_SNCF_MIDI2:..,#-63,#;]
 256  $DEF F_GCAT5=[FG>=;FL_SNCF_MIDI3,2*FL_SNCF_MIDI4:..,#-63,#;]
 257  $DEF F_GCAT6=[FG>=;FL_SNCF_MIDI5,2*FL_SNCF_MIDI6:..,#-63,#;]
 258  $DEF F_GCAT7=[FG>=;FL_SNCF_1500V1:..,-6,#;]
 259  $DEF F_GCAT8=[FG>=;FL_SNCF_1500V2:..,-6,#;]
 260  $DEF F_GCAT9=[FG>=;FL_SNCF_1500V3:..,-6,#;]
 261  $DEF F_GCAT11=[FG>=;FL_SNCF_MIDI7:..,-6,#;]
 262
 263
 264
 265  $DEF F_GCAT=F_GCAT(4|5|6|7|8|9)
 266  $DEF F_GCATBG=F_GCAT(1|2|3|10)
 267  $DEF F_CAT1=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
 268  $DEF F_CAT2=[FG>=;FL_SNCF_25KV1:..,-6,#;]
 269  $DEF F_CAT=F_CAT(2|1)
 270
 271  $DEF F_3RAIL=[FG>=;PLM_3RBG_M:..,-1;]
 272  $DEF F_N3RAIL=[FG>=;SNCF_3eRail_FG:..,-2,#;]
 273  $DEF CATFR=                                                                                             &\
 274      [WE=$FLG(2,F_HCAT,$FLG(G,$FLG(3,F_GCAT7,($FLG(X,F_GCAT11,F_GCAT))),F_CAT)),WX]                                                              &\
 275      [WL=$FLG(G,($FLG(X,F_GCAT10,F_GCAT)),F_CAT),WX]                                                                     &\
 276      [WM=$FLG(N,F_N3RAIL,F_3RAIL),WX]                                                                    &\
 277      [WT=F_GCAT,WX]                                                                                      &\
 278      [WR=WX]
 279
 280  $DEF B_CAT=[FG>=;FL_SNCB_F,FL_SNCFC_M1:..,-4,#;]
 281  $DEF CATBE=                                                                                             &\
 282      [WE=B_CAT,WX]                                                                                       &\
 283      [WR=WX]
 284
 285  $DEF L_CAT=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
 286  $DEF CATLU=                                                                                             &\
 287      [WE=L_CAT,WX]                                                                                       &\
 288      [WR=WX]
 289
 290  $DEF NL_CAT1=[FG>=;FL_NS1:..,-6,#;]
 291  $DEF NL_CAT2=[FG>=;FL_NS2:..,-6,#;]
 292  $DEF NL_CAT3=[FG>=;FL_NS3:..,-6,#;]
 293  $DEF NL_CAT4=[FG>=;FL_NS_BETUWE:..,-6,#;]
 294
 295
 296  $DEF CATNL=                                                                                             &\
 297      [WE=$FLG(6,NL_CAT(1|2|3|4),$FLG(5,NL_CAT(1|2|3|4),NL_CAT(1|2|3))),WX]                                                                                       &\
 298      [WR=WX]
 299
 300  $DEF DK_CAT=[FG>=;FL_SBB_F(|2),FL_DSB_M1:..,-5,#;]
 301  $DEF CATDK=                                                                                             &\
 302      [WE=$FLG(G,DK_CAT,FL_SBBM1),WX]                                                             &\
 303      [WR=WX]
 304
 305  $DEF N_CAT=[FG>=;FL_SJ_M1,FL_SBB_F:..,-4,#;]
 306  $DEF CATNO=                                                                                             &\
 307      [WE=N_CAT,WX]                                                                                       &\
 308      [WR=WX]
 309
 310  $DEF S_CAT=[FG>=;FL_SJ_M1,FL_SBB_F:..,-4,#;]
 311  $DEF CATSE=                                                                                             &\
 312      [WE=S_CAT,WX]                                                                                       &\
 313      [WR=WX]
 314
 315  $DEF FI_CAT=[FG>=;FL_SNCF_MIDI6[SP:460-660,111]:..,#-63,#;]
 316  $DEF CATFI=[VH=62]                                                                                      &\
 317      [WE=FI_CAT,WX]                                                                                      &\
 318      [WR=WX]
 319
 320  $DEF P_CAT=[BG<=;FL_RF_UNIF:..,-25,#;]
 321  $DEF CATPO=                                                                                             &\
 322      [WE=P_CAT,WX]                                                                                       &\
 323      [WR=WX]
 324
 325  $DEF E_CAT1=[FG>=;FL_RF_NORTE2:..,#-67,#;]
 326  $DEF E_CAT2=[FG>=;FL_RF1:..,#-67,#;]
 327  $DEF E_CAT3=[FG>=;(FL_RF_UNIF[B:29,81,3,20,#757575]):..,#-83,#;]
 328  $DEF E_CAT4=[BG<=;FL_RF_UNIF:..,#-83,#;]
 329  $DEF CATES=                                                                                             &\
 330      [WE=$FLG(2,E_CAT2,$FLG(3,E_CAT(1|2),E_CAT3)),WX]                                                    &\
 331      [WL=$FLG(2,E_CAT2,$FLG(3,E_CAT(1|2),E_CAT3)),WX]                                                    &\
 332      [WR=WX]
 333
 334  $DEF I_CAT1=[FG>=;FL_FS_F,FL_FS_M(1|2|3|4|5),FL_FS_F,FL_FS_M(1|3|4):..,#-62,#;]
 335  $DEF I_CAT2=[FG>=;FL_FS5C,FL_FS5B,2*(FL_FS5A,FL_FS5B),4*(FL_FS4A,FL_FS4B):..,#-62,#;]
 336  $DEF I_CAT=I_CAT(1|2)
 337  $DEF I_3PHCAT=[FG>=;PALO_TT:..,#-62,#;]
 338  $DEF I_NCAT=[FG>=;FS_FS1_A,FS_FS1_B:..,#-73,#;]
 339  $DEF I_3RAIL=[FG>=;SNCF_3eRail_FG:..,-2,#;]
 340  $DEF I_CAT3=(FL_FS3_F,FL_FS3_M(8:1|2))
 341  $DEF CATIT=                                                                                             &\
 342      [WE=$FLG(N,I_NCAT,$FLG(X,I_3PHCAT,I_CAT)),WX]                                                       &\
 343      [WL=$FLG(N,I_NCAT,$FLG(X,I_3PHCAT,I_CAT)),WX]                                                       &\
 344      [WT=I_NCAT,WX]                                                                                      &\
 345      [WM=I_3RAIL,WX]                                                                                     &\
 346      [WR=WX]
 347
 348  $DEF CZ_CAT1=[FG>=;(8:FL_CZ1A[M]|FL_CZ1D[M]),FL_CZ1L,(8:FL_CZ1A[M]|FL_CZ1D[M]),FL_CZ1L:..,#-62,#;]
 349  $DEF CZ_CAT2=[FG>=;(8:FL_CZ1B[M]|FL_CZ1E[M]),FL_CZ1L,(8:FL_CZ1B[M]|FL_CZ1E[M]),FL_CZ1L:..,#-62,#;]
 350  $DEF CZ_CAT3=[FG>=;                                                                                     \
 351      (8:FL_CZ1B[M]|FL_CZ1(E|F|G)[M]),FL_CZ1L,(8:FL_CZ1B[M]|FL_CZ1(E|F|G)[M]),FL_CZ1L:..,#-62,#;]
 352  $DEF CZ_CAT4=[FG>=;FL_CZ1H[M],FL_CZ1L:..,#-62,#;]
 353  $DEF CZ_CAT5=[FG>=;FL_CZ1H[M],FL_CZ1L,(4:FL_CZ1H[M]|FL_CZ1X),FL_CZ1L:..,#-62,#;]
 354  $DEF CZ_CAT=CZ_CAT(1|2|3|4|5)
 355  $DEF CZ_NCAT=[FG>=FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;]
 356  $DEF CATCS=                                                                                             &\
 357      [WE=$FLG(N,CZ_NCAT,CZ_CAT),WX]                                                                      &\
 358      [WL=CZ_CAT,WX]                                                                                      &\
 359      [WR=WX]
 360
 361  $DEF PL_CAT=M_CAT
 362  $DEF CATPL=                                                                                             &\
 363      [WE=PL_CAT,WX]                                                                                      &\
 364      [WL=PL_CAT,WX]                                                                                      &\
 365      [WR=WX]
 366
 367  $DEF RO_CAT=CZ_CAT
 368  $DEF CATRO=                                                                                             &\
 369      [WE=RO_CAT,WX]                                                                                      &\
 370      [WR=WX]
 371
 372  $DEF SLO_CAT=CZ_CAT
 373  $DEF CATSL=                                                                                             &\
 374      [WE=SLO_CAT,WX]                                                                                     &\
 375      [WR=WX]
 376
 377  $DEF HR_CAT=CZ_CAT
 378  $DEF CATHR=                                                                                             &\
 379      [WE=HR_CAT,WX]                                                                                      &\
 380      [WR=WX]
 381
 382  $DEF YU_CAT=CZ_CAT
 383  $DEF CATYU=                                                                                             &\
 384      [WE=YU_CAT,WX]                                                                                      &\
 385      [WL=YU_CAT,WX]                                                                                      &\
 386      [WR=WX]
 387
 388  $DEF BG_CAT=CZ_CAT
 389  $DEF CATBG=                                                                                             &\
 390      [WE=BG_CAT,WX]                                                                                      &\
 391      [WR=WX]
 392
 393  $DEF GR_CAT=M_CAT(1|2|3|4)F
 394  $DEF CATGR=                                                                                             &\
 395      [WE=GR_CAT,WX]                                                                                      &\
 396      [WR=WX]
 397
 398  $DEF TR_CAT=M_CAT(1|2|3|4)F
 399  $DEF CATTR=                                                                                             &\
 400      [WE=TR_CAT,WX]                                                                                      &\
 401      [WR=WX]
 402
 403  $DEF SU_CAT62=[FG>=;(538[O:FL_DRG_F,0,4][B:92,0,4,8,#757575][B:91,0,1,8,#858585][B:95,0,1,8,#656565])|   \
 404       (538[O:FL_DR,0,4][B:92,0,4,8,#757575][B:91,0,1,8,#858585][B:95,0,1,8,#656565]):..,#-62,#;]
 405  $DEF SU_CAT58=[FG>=;FL_DRG_F|FL_DR:..,#-58,#;]
 406  $DEF CATSU=                                                                                             &\
 407      [VH=62]                                                                                             &\
 408      [WE=$FLG(X,SU_CAT58,SU_CAT62),WX]                                                                   &\
 409      [WR=WX]
 410
 411  $DEF US_CAT1=[FG>=;FL_USA_1|MILW_CATENARY:..,#-67,#;]
 412  $DEF US_CAT2=[FG>=;FL_INTERURB70_(M2,F1,M1,F1,M2[M],F1,M1,F1):..,#-74,#;]
 413  $DEF US_CAT3=[FG>=;FL_DR:..,#-62,#;]
 414  $DEF CATUS=[VH=70]                                                                                      &\
 415      [WE=$FLG(6,US_CAT3,$FLG(5,US_CAT3,US_CAT1|US_CAT2)),WX]                                             &\
 416      [WL=US_CAT2,WX]                                                                                     &\
 417      [WR=WX]
 418
 419  $DEF J_CAT1B=[BG<=;FL_J7:..,,#-51;]
 420  $DEF J_CAT2=[FG>=;FL_J3F:..,#-56,#;]
 421  $DEF J_CAT2B=[BG<=;FL_J3B:..,#-56,#;]
 422  $DEF J_CAT3B=[BG<=;FL_J8:..,#-58,#;]
 423  $DEF J_CAT4=[FG>=;FL_J1F:..,#-60,#;]
 424  $DEF J_CAT=J_CAT(2|4)
 425  $DEF J_CATB=J_CAT(1|2|3)B
 426  $DEF J_TCAT1=[FG>=;FL_J4:..,#-55,#;]
 427  $DEF J_CAT58A=[FG>=;FL_J1F:..,-2,#;]
 428  $DEF J_CAT58B=[BG<=;FL_J8:..,0,#;]
 429  $DEF J_CAT58=J_CAT58A
 430  $DEF CATJP=                                                                                             &\
 431      [WE=J_CAT58,WX]                                                                                     &\
 432      [WL=J_CAT,WX]                                                                                       &\
 433      [WT=J_TCAT1,WX]                                                                                     &\
 434      [WR=WX]
 435
 436  $DEF CATAU=                                                                                             &\
 437      [WE=GB_CAT,WX]                                                                                      &\
 438      [WL=GB_LCAT,WX]                                                                                     &\
 439      [WM=GB_3RAIL,WX]                                                                                    &\
 440      [WR=WX]
 441
 442  $DEF CN_CAT1=[FG>=;FL_SBB_F,FL_SNCFA_M1:..,#-62,#;]
 443  $DEF CN_CAT2=[FG>=;FL_J1F:..,#-60,#;]
 444  $DEF CN_CAT=CN_CAT(3:1|2)
 445  $DEF CATCN=                                                                                             &\
 446      [WE=CN_CAT,WX]                                                                                      &\
 447      [WL=CN_CAT,WX]                                                                                      &\
 448      [WR=WX]
 449
 450  $DEF CATSA=                                                                                             &\
 451      [VH=70]                                                                                             &\
 452      [WE=$FLG(X,US_CAT2,US_CAT3),WX]                                                                     &\
 453      [WR=WX]
 454
 455  $DEF CATOTH=                                                                                            &\
 456      [WE=M_CAT(1|2|3|4)F,WX]                                                                             &\
 457      [WL=M_CAT(1|2|3|4)F,WX]                                                                             &\
 458      [WR=WX]
 459
 460  $DEF CATENARY=[BG<=;FL_DB_F,(5:FL_DB_M1|1:FL_DB_M2):..,,#;]
 461
 462  $DEF SET_E=[SW=E]
 463
 464  #==============================================================================
 465  #
 466  # Forest, Vegetation
 467  #
 468  #==============================================================================
 469
 470  $DEF BG_BUSH_0_24=FOREST13A|FOREST13G|FOREST15A
 471  $DEF BG_BUSH_24_0=FOREST13F|FOREST13I|FOREST14R|FOREST15N
 472  $DEF BG_BUSH_24_24=FOREST13B|FOREST13C|FOREST13D|FOREST13E|FOREST13H|FOREST15F|FOREST15J
 473  $DEF BG_BUSH_0_39=FOREST14A
 474  $DEF BG_BUSH_39_39=FOREST14B|FOREST14C|FOREST14D|FOREST14G|FOREST14J|FOREST14N|FOREST14O|FOREST14P|     \
 475      FOREST15C|FOREST15D|FOREST15H
 476  $DEF BG_BUSH_39_31=FOREST14E|FOREST14H|FOREST14K
 477  $DEF BG_BUSH_31_39=FOREST14F|FOREST14I|FOREST14M
 478  $DEF BG_BUSH_39_24=FOREST14Q|FOREST15E|FOREST15I|FOREST15M
 479  $DEF BG_BUSH_24_39=FOREST15B|FOREST15G|FOREST15K
 480
 481  $DEF BG_FORESTB=[BG<=([WMIXF:,FOREST31(|[M]),FOREST32(|[M])]|[WMIXF:,FOREST11(|[M])]):..,0,#;]
 482
 483  $DEF BG_FOREST1=[BG<=[WMIXF:,FOREST21,FOREST22,FOREST23]:..,0,#;]
 484  $DEF BG_FOREST3=[BG<=[WMIXF:,                                                                           \
 485      10:BG_BUSH_39_39|(BG_BUSH_39_24,1-3*BG_BUSH_24_24,BG_BUSH_24_39)|(BG_BUSH_39_31,BG_BUSH_31_39)]:.., \
 486      0,#;]
 487
 488  $DEF BG_GREEN1=[BG<=[WMIXF:,GREEN3,GREEN4,GREEN5]:..,0,#;]
 489
 490  $DEF BG_FORESTP1=$HL162([BC:-0.18,.6])
 491
 492  $DEF TREE_SUMMER=TREE1|TREE3|TREE3A|TREE3B|TREE3C|TREE3D|TREE4|TREE4A|TREE4B|TREE4C|TREE4D|TREE4E|      \
 493      TREE5A|TREE5G|TREE5H|TREE21|TREE22|TREE23|TREE29|TREE111|TREE66|TREE40|TREE45A|TREE45|TREE46A|      \
 494      TREE46|TREE47|TREE49|TREE79|TREE80|TREE115|TREE83|TREE86|TREE89|TREE3C|TREE55|TREE56|TREE24|        \
 495      TREE57|TREE13|TREE97|TREE97A|TREE43|TREE52|TREE65|TREE11|TREE114
 496  $DEF TREE_AUTUMN=TREE3F|TREE3G|TREE3H|TREE3I|TREE3J|TREE4F|TREE4G|TREE4H|TREE4I|TREE4J|TREE4K|TREE5B|   \
 497      TREE5C|TREE5D|TREE5E|TREE5F|TREE5I
 498  $DEF TREE_WINTER=TREE3SN|TREE3SN2|TREE3SN3|TREE3SN4|TREE4SN|TREE4SN2|TREE4SN3|TREE4SN4|TREE4SN5|        \
 499      TREE5SN|TREE5SN2|TREE5SN3|TREE5SN4|TREE5SN5
 500  $DEF PINE=(BOROVICE|TREE12|TREE60|TREE62|TREE63|TREE64|SMRK|TREE25|TREE26|TREE28|TREE29|TREE21|TREE22|  \
 501      TREE51|TREE110|TREE108|PINE1)(|[M])
 502  $DEF ITREE=(TREE43|TREE44|TREE52|TREE53|TREE54|TREE15|TREE11|TREE7|TREE30|TREE31|TREE32|TREE33|TREE38|  \
 503      TREE94|TREE93|TREE92|EUCALYPT04|EUCALYPT07)(|[M])
 504  $DEF TREE_COLD=(TREE8|TREE55|TREE56|TREE12|TREE60|TREE12|TREE91|TREE108|TREE109|TREE55|TREE56|BUSH17)   \
 505      (|[M])
 506
 507  $DEF TREESOUTH=TREE83|TREE98A|TREE75|PALM7T|PALM8|PALM9|PALM10|PINUS1|PALM12|PALM15|PALM7T|PALM22|      \
 508      PALM23|PALM24|PALM25|PALM27|PALM28|PALM29|PALM30|PALM31|PALM32|PALM33|PALM34|PALM35|PALM36|PALM37|  \
 509      TREE103W|TREE98C|TREE101W|TREE75|TREE57|TREE44|TREE54|TREE49
 510
 511  $DEF Vegetation=5:GRASS02|5:GRASS03|3:BUSH09|2:BUSH12|2:BUSH10|2:BUSH11|TREE6|TREE3C|TREE13|TREE43|     \
 512      TREE76|TREE11
 513  $DEF TREES_SUMMER=0-10*20,10*(TREE_SUMMER,0-10*20)
 514  $DEF TREES_AUTUMN=0-10*20,10*(TREE_AUTUMN,0-10*20)
 515  $DEF TREES_WINTER=0-10*20,10*(TREE_WINTER,0-10*20)
 516  $DEF TREES_COLD=0-10*20,10*(TREE_COLD,0-10*20)
 517  $DEF TREES_SOUTH=0-10*20,10*(TREESOUTH,0-10*20)
 518  $DEF GRAS_SUMMER=BG_GRAS1
 519  $DEF GRAS_AUTUMN=BG_GRAS1
 520  $DEF GRAS_WINTER=BG_GRAS1W
 521
 522  $DEF BGBASE=[BG-=SKY02:..; @@TRBED5:..,^0;]
 523
 524  $DEF BG_SUMMER=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_SUMMER:*+0-400;],                  \
 525      [BG<=GRAS_SUMMER:..,-12;]
 526  $DEF BG_AUTUMN=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_AUTUMN:*+0-400;],                  \
 527      [BG<=GRAS_AUTUMN:..,-12;]
 528  $DEF BG_WINTER=BGBASE,1:0|2:1|3:2|4:3|6:4|4:5|3:6|2:7|1:8*[BG<=TREES_WINTER:*+0-400;],                  \
 529      [BG<=GRAS_WINTER:..,-12;],[C-=[!W]]
 530
 531  $DEF BG1=3:BG_SUMMER|1:BG_AUTUMN|1:BG_WINTER|                                                           \
 532      1:(BG_WINTER,[TB-=1,[SNOW:S=20;V=40;I=3.5;B=-5],12],[TE+=,[STOP_SNOW:TE=15],15])
 533
 534  %*DEFINE(FOREST39LST=FOREST14B,FOREST14C,FOREST14D,FOREST14F,FOREST14G,FOREST14J,FOREST14N,FOREST14O, \
 535  FOREST14P,FOREST15C,FOREST15D,FOREST15H)
 536  %*DEFINE(FOREST39_30LST=FOREST14E,FOREST14H,FOREST14K,FOREST14Q)
 537  %*DEFINE(FOREST30_30LST=FOREST14I,FOREST14M)
 538
 539  $DEF BG_FOREST01=[BG<=FOREST10:..,,<=>,21,1358;]
 540  $DEF BG_FOREST02=[BG<=FOREST02:..,,<=>;]
 541  $DEF BG_FOREST03=[BG<=FOREST03:..,,<=>,62,894;]
 542
 543  $DEF BG_FOREST04=[BG<=FOREST09:..,,<=>,144;]
 544  $DEF BG_FOREST05=[BG<=FOREST17:..,,<=>;]
 545  $DEF BG_FOREST06=[BG<=[WMIXM:..,%FOREST39LST];]
 546  $DEF BG_FOREST07=[BG<=FOREST31:..,,<=>,11,610;]
 547  $DEF BG_FOREST08=[BG<=FOREST32:..,,<=>;]
 548
 549  #==============================================================================
 550  #
 551  # Repeated pictures for wide backgrounds
 552  #
 553  #==============================================================================
 554
 555  $DEF AG87=[BG-=BDWH/AG_87A.JPG[BC:-40,40][CROPL:-20][CROPB:-$1]:..,,<=>,18,1828;]
 556  $DEF AG134=[BG-=BDWH/AG_134M.JPG[BC:-30,40][CROPR:-20][CROPB:-$1]:..,,<=>,58,1710;]
 557  $DEF AG158=[BG-=BDWH/AG_158M.JPG[BC:-30,40][CROPR:-20][CROPB:-$1]:..,,<=>,146,1803;]
 558  $DEF CM183=[BG-=BDWH/CM_183M.JPG[BC:-30,40][CROPL:-20][CROPB:-$1]:..,,<=>,84,1673;]
 559  $DEF HL180=[BG-=BDWH/HL_180M.JPG[BC:-40,40][CROPR:-20][CROPB:-$1]:..,,<=>,203,1845;]
 560  # USA + general
 561  $DEF HL981014=[BG-=BDWH/HL_981014A.JPG[BC:-40,40][CROPL:-20][CROPB:-$1],                                                \
 562      BDWH/HL_981014B.JPG[BC:-40,40][COL:114][CROPR:-20][CROPB:-$1]:..,,<=>,35,3722;]
 563  $DEF MTS980510=[BG-=BDWH/MTS_980510.JPG[BC:-30,40][CROPR:-28][CROPB:-$1]:..,,<=>;]
 564
 565  # USA + general
 566  $DEF AG79=[BG-=BDWH/AG_79A.JPG[BC:-30,40][CROPL:-20][CROPB:-$1],BDWH/AG_79B.JPG[BC:-30,40][COL:45][CROPB:-$1]:..,,<=>,152,      \
 567      3388;]
 568  # USA
 569  $DEF AG110=[BG-=BDWH/AG_110A.JPG[BC:-30,30][CROPL:-20][CROPB:-$1],                                              \
 570      BDWH/AG_110B.JPG[BC:-30,30][COL:73][CROPR:-20][CROPB:-$1]:..,,<=>,157,1391;]
 571  # USA
 572  $DEF AG159=[BG-=BDWH/AG_159A.JPG[BC:-40,30][CROPL:-20][CROPB:-$1],                                              \
 573      BDWH/AG_159B.JPG[BC:-40,30][COL:80][CROPR:-20][CROPB:-$1]:..,,<=>,603,1662;]
 574  # USA + general
 575  $DEF AG165=[BG-=BDWH/AG_165A.JPG[BC:-45,45][CROPL:-20][CROPB:-$1],                                              \
 576      BDWH/AG_165B.JPG[BC:-45,45][COL:71][CROPR:-20][CROPB:-$1]:..,,<=>,0,3116;]
 577  # USA
 578  $DEF AG186=[BG-=BDWH/AG_186A.JPG[BC:-40,30][CROPL:-20][CROPB:-$1],                                              \
 579      BDWH/AG_186B.JPG[BC:-40,30][COL:70][CROPR:-20][CROPB:-$1]:..,,<=>;]
 580  # USA
 581  $DEF AG197=[BG-=BDWH/AG_197A.JPG[BC:-40,30][CROPL:-20][CROPB:-$1],                                              \
 582      BDWH/AG_197B.JPG[BC:-40,30][COL:56][CROPR:-20][CROPB:-$1]:..,,<=>,323,3271;]
 583  # USA + general
 584  $DEF AG198=[BG-=BDWH/AG_198A.JPG[BC:-40,30][CROPL:-20][CROPB:-$1],                                              \
 585      BDWH/AG_198B.JPG[BC:-40,30][COL:56][CROPR:-20][CROPB:-$1]:..,,<=>,505,3064;]
 586  # USA + general
 587  $DEF HL133=[BG-=BDWH/HL_133A.JPG[BC:-40,30][CROPL:-20][CROPB:-$1],                                              \
 588      BDWH/HL_133B.JPG[BC:-40,30][COL:58][CROPR:-20][CROPB:-$1]:..,,<=>,790,3580;]
 589  # USA + general
 590  $DEF HL162=[BG-=BDWH/HL_162A.JPG[BC:-35,30][CROPL:-20]$1,BDWH/HL_162B.JPG[BC:-40,30][COL:72]$1,                         \
 591      BDWH/HL_162C.JPG[BC:-35,30][COLF:73][CROPR:-20]$1:,-40;]
 592  # USA Town
 593  $DEF CM139=[BG-=BDWH/CM_139A.JPG[BC:-30,45][CROPL:-20][CROPB:-$1],BDWH/CM_139B.JPG[BC:-30,45][COL:82][CROPR:-20][CROPB:-$1];] \
 594      [DX=3620]
 595
 596  $DEF BGWP_01=[BG-=BGPIC/SXC1085695.JPG:..,0,<=>,14,4107;]
 597  # Fehler $DEF BGWP_02=[BG-=BGHS/BGM01.JPG[SM:1.7]:..,,<=>,15,2640;]
 598  $DEF BGWP_02=[BG-=BGHS/BGM01.JPG:..,,<=>,15,2660;]
 599  $DEF BGWP_03=[BG-=BGHS/BGM02.JPG:..,,<=>,225,2520;]
 600  $DEF BGWP_04=[BG-=BGHS/BGM03.JPG:..,,<=>,28,2616;]
 601  $DEF BGWP_05=[BG-=BGHS/BGM04.JPG:..,,<=>,,2555;]
 602
 603  $DEF BGWP_06=[BG-=BGHS/BGM05.JPG:..,,<=>,59,3780;]
 604
 605  $DEF BGRU_01A=[BG-=BGHS/RU01.JPG:..,-60,<=>,,1950;]
 606  $DEF BGRU_01B=[BG-=BGHS/RU01.JPG:..,-50,<=>,,1950;]
 607  $DEF BGRU_01C=[BG-=BGHS/RU01.JPG:..,-10,<=>,,1950;]
 608  $DEF BGRU_01D=[BG-=BGHS/RU01.JPG:..,0,<=>,,1950;]
 609
 610  $DEF STRIPEBG=                                                                                          &\
 611      [BG-=BDWH/AG_79A.JPG:..,-70,<=>,194,1872;][BGC=(137,180,215)]|                                      &\
 612      [BG-=BDWH/AG_79B.JPG:,-50;][BGC=(137,180,215)]|                                                     &\
 613      [BG-=BDWH/AG_87A.JPG:,-50;][BGC=(143,183,219)]|                                                     &\
 614      [BG-=BDWH/AG_88A.JPG:,-50;][BGC=(139,179,215)]|                                                     &\
 615      [BG-=BDWH/AG_134M.JPG:,-160;][BGC=(208,216,239)]|                                                   &\
 616      [BG-=BDWH/AG_144A.JPG:,-50;][BGC=(208,216,239)]|                                                    &\
 617      [BG-=BDWH/AG_158M.JPG:,-40;][BGC=(140,179,218)]|                                                    &\
 618      [BG-=BDWH/AG_159A.JPG:,-80;][BGC=(208,216,239)]|                                                    &\
 619      [BG-=BDWH/AG_165A.JPG:,-60;][BGC=(203,215,237)]|                                                    &\
 620      [BG-=BDWH/AG_165B.JPG:,-60;][BGC=(203,215,237)]
 621
 622  $DEF BGVIA01=[BG-=SCENE_I01:..,0,<=>,22;]
 623  $DEF BGVIA02=[BG-=SCENE_I02:..,0,<=>,,700;]
 624
 625  $DEF BGNORD_120=BGVIA01|BGVIA02
 626  $DEF BGNORD_400=BGWP_01|BGWP_02|BGWP_03|BGWP_04|BGWP_05|BGRU_01(A|B|C|D)
 627  $DEF BGNORD1=$IF($BGUP<=120,(BGNORD_120|BGNORD_400),BGNORD_400)
 628
 629  # Wald Laubbäume Deutschland-Mitteleuropa
 630  $DEF STBGFO1=(SKY,BG_FOREST1,BG_GREEN1),TRKDH
 631  $DEF STBGFO2=$AG79(100),TRKDH
 632  $DEF STBGFO3=$AG165(50),TRKDH
 633  $DEF STBGFO4=$HL133(20),TRKDH
 634  $DEF STBGFO5=BGWP_06,TRKDH
 635
 636  $DEF STBGFO=STBGFO(3:1|1:2|1:3|1:4|2:5)
 637
 638
 639  #==============================================================================
 640  #
 641  # Track
 642  #
 643  # Citytraffic
 644  # Bus
 645  $DEF ENV_WAYA=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;][W=X]
 646  # OBUS
 647  $DEF ENV_WAYO=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0; FL_FS3:..,#-62,#;][W=X]
 648  # Gleis ohne Oberleitung
 649  $DEF ENV_WAY=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;][W=X]
 650  # Tram alt
 651  $DEF ENV_WAYT1=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4;FL_TRAM:..,#-62,#;][W=X]
 652  $DEF GRP_WAYT1=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4;FL_TRAM:..,$EVAL($1-62),#;][W=X]
 653  # Tram neu
 654  $DEF ENV_WAYT2=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-4;FL_FS3:..,#-62,#;][W=X]
 655  # Stromschiene
 656  $DEF ENV_WAYM=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;SNCF_3eRail_FG:..,-2,#;][W=X]
 657  # Val-Metro
 658  $DEF ENV_WAYV=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;FL_FS3_F:..,-62,#;SNCF_3eRail_FG:..,-2,#;][W=X]
 659  # Stadtbahn
 660  $DEF ENV_WAYT3=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,#-62,#;][W=X]
 661  # Stadtbahn Wien
 662  $DEF ENV_WAYT4=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SNCF_MIDI5:..,#-63,#;][W=X]
 663  # Holzmasten Hochkette
 664  $DEF ENV_WAYT5=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;                                        \
 665      FL_INTERURB70_M1,FL_INTERURB70_F1:..,#-74,#;][W=X]
 666  # Wechselstrom
 667  $DEF ENV_WAYT6=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_DRG_F:..,#-62,#;][W=X]
 668  # S-Bahn Kopenhagen
 669  $DEF ENV_WAYT7=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_DSB_M1,FL_SBB_F:..,#-62,#;][W=X]
 670  # Metro Italien
 671  $DEF ENV_WAYT8=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FS_FS1_A,FS_FS1_B:..,#-73,#;][W=X]
 672  # RER Paris
 673  $DEF ENV_WAYT9=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,-4,#;][W=X]
 674  # S-Bahn Stockholm E
 675  $DEF ENV_WAYT10=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_SJ_M1,FL_SBB_F:..,-4,#;][W=X]
 676  # S-Bahn Stockholm Diesel
 677  $DEF ENV_WAYT11=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;][W=X]
 678  # Metro Spanien
 679  $DEF ENV_WAYTUN1=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;FL_FSTTQF[CROPT:-20]:..,#-58,#;][W=X]
 680
 681  # Translohr System
 682  $DEF ENV_WAYTT=[FG=10[B:0,0,10,15,#585038]:..,^0; STREET01:..,^0;][BG+=FL_TRAMFR:..,#-60,#;][W=X]
 683  # Tram Paris T2
 684  $DEF ENV_WAYTP2=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;][BG<=FL_TRAM_RATP_T2[BC:-15-15]:..,#-60,#;][W=X]
 685  # Tram Paris T3
 686  $DEF ENV_WAYTP3=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;][BG<=FL_TRAM_RATP_T3[BC:-15-15]:..,#-60,#;][W=X]
 687  # Tram Paris T8
 688  $DEF ENV_WAYTP8=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;][BG<=FL_TRAM_RATP_T8[BC:-15-15]:..,#-60,#;][W=X]
 689  # Tram Rouen
 690  $DEF ENV_WAYTR=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;][BG<=FL_TRAM_ROUEN[BC:-15-15]:..,#-60,#;][W=X]
 691  # Tram France
 692  $DEF ENV_WAYTF=[FG=10[B:0,0,10,15,#585038]:..,^0; TRBED25:..,^0;STREET01:..,^-2;][BG<=FL_TRAMFR:..,#-60,#;][W=X]
 693
 694  %*DEFINE(TITLE(TX)=TITLE;
 695  M=NONE; AB=0; BL=30; IMGY=10; TX=%TX;; TXX=*50; TXS=20; Y=^; T=1000;)
 696
 697  %*DEFINE(FOOTER(TX)=TITLE;
 698  M=NONE; AB=0; BL=15; IMGY=10; TX=%TX;; TXX=>95; TXS=12; Y=_; T=5000;)
 699
 700  #---------------------------------------------------------------------------------------------------------------------
 701  #
 702  # Platforms
 703  #
 704  #---------------------------------------------------------------------------------------------------------------------
 705  # Pavements
 706  %*DEF(PLPDEF(N,E,M)=$DEF %N=[BG<=$1[OMH:%E,%M,#%E,,0]:,^$2;]
 707  )
 708  %PLPDEF(PLP1,PLF_NL1A,PLF_NL1B)
 709  %PLPDEF(PLP2,PLF_NL1A,PLF_NL2)
 710  %PLPDEF(PLP3,PLF_NL6A,PLF_NL3)
 711  %PLPDEF(PLP4,PLF_NL4A,PLF_NL4B)
 712  %PLPDEF(PLP5,PLF_NL1A,PLF_NL5)
 713  %PLPDEF(PLP6,PLF_NL6A,PLF_NL6)
 714  $DEF PLP7=[BG<=$1[OMH:,PLF_NL7]:,^$2;]
 715  %PLPDEF(PLP9,PLF_NL1A,PLF_NL9)
 716
 717  # Roofs
 718
 719  #---------------------------------------------------------------------------------------------------------------------
 720  # House in a garden with fence
 721
 722  $DEF HG_J=0[AR:4-12*5,                                                                                  \
 723      J_H001|J_H002|J_H003|J_H005|J_H006|J_H044|J_H045|J_H015|J_H016|J_H017|J_H018|J_H019|J_H020,5-12*5]  \
 724      ([OMH:,STACCION,,,0]|[OMH:,PALE5,,,0]|[OMH:,FENCE6,,,0]|[OMH:,FENCE8,,,0]|[OMH:,FENCE9A,,,0]|       \
 725      [OMH:,FENCE10C,,,0]|[OMH:,FENCE_13,,,0]|[OMH:,FENCE14,,,0]|[OMH:,FENCE15,,,0])
 726
 727
 728  #---------------------------------------------------------------------------------------------------------------------
 729  # Fence in whole width
 730
 731  $DEF BGFNC=PALE1|PALE5|STACCION|FENCE6|FENCE7|FENCE17B|FENCE8|FENCE9(A,4-6*B)|FENCE9(B,4-6*C)|          \
 732      FENCE9(E,5-7*F)|FENCE10(C,4*B)|FENCE16(A,8-10*B)|FENCE_13|FENCE15|WALL27A|WALL27B|WALL28|WALL29|    \
 733      WALL_UF1
 734  #---------------------------------------------------------------------------------------------------------------------
 735  # House blocks
 736
 737  $DEF HBLK_DDR1=$MIX(5-7,DDR_H01,DDR_H02,DDR_H03,DDR_H04,DDR_H05,DDR_H06,DDR_H07)
 738  $DEF HBLK_M6A=$MIX(4-6,BERLIN_H001,BERLIN_H002,BERLIN_H003,BERLIN_H004,BERLIN_H005,BERLIN_H006)
 739
 740  # -- out of focus, only for the back row
 741  $DEF HBLK_RU4A=$MIX(3-4,RU_H019A,RU_H020A,RU_H021,RU_H018_1)
 742
 743  # Industrial blocks
 744
 745  $DEF IBLK_01A=0[AR:D_FABRIK01(I,E,I,1-4*M,(I,E,I)|M,1-2*C,D,1-2*C,A,2-4@(N|B),A)]                       \
 746      [OB:D_FABRIK01(H,G),<-102,0]
 747  $DEF IBLK_01B=0[AR:D_FABRIK01(A,1-4*B,A)]
 748  $DEF IBLK_01F=FENCE7|FENCE17(3-8*(A,B),A)
 749
 750  # Hintergrund Stadt
 751
 752  # Stadt Mitteleurpa moderne Häuser
 753  $DEF BGCITYDM1=NL_THARDE_1,NL_OFFICE03A,NL_OFFICE01C,NL_OFFICE01_1,250,D_H062,D_H055,D_H041,D_H040,     \
 754      D_H033,D_H038_2,200,D_H038_2,250,D_MUNCHEN09A,D_MUNCHEN08,D_MUNCHEN07,D_MUNCHEN05C,D_MUNCHEN06,     \
 755      220,D_H038_3,280,D_H078_1,230,D_H038_1,200,S_BILTEMA,200,BLD_PEUGEOT(1|2|3),240,D_H064,200,         \
 756      D_BONN01A,D_H066B,D_H067,D_H071,D_H062,D_RADISSON,OFFICE01,220,D_H052,D_H064,D_BONN03A,D_H064A,     \
 757      D_H077,D_ROHBAU,200,
 758  $DEF BGCITYDM2=D_H078_1,230,D_H038_1,200,NL_OFFICE03A,NL_OFFICE01C,NL_THARDE_1,NL_OFFICE01_1,250,       \
 759      D_H064,240,D_H038_2,250,D_H038_3,280,D_H062,D_H055,D_H038_2,200,D_H064,D_H066B,D_H067,D_H071,       \
 760      D_H064A,D_H033,D_BONN03A,D_H077,D_ROHBAU,D_H041,D_H040,D_H052,200,S_BILTEMA,200,                    \
 761      BLD_PEUGEOT(1|2|3),220,D_RADISSON,OFFICE01,D_H062,D_BONN01A,220,D_MUNCHEN09A,D_MUNCHEN08,           \
 762      D_MUNCHEN07,D_MUNCHEN05C,D_MUNCHEN06,200,
 763
 764  # Stadt Mitteleurpa alte Häuser
 765
 766
 767  # EP 1-2
 768  $DEF BGCITYDA3=D_MUNCHEN03B,D_H063,NL_HAARLEM06_1,D_MUNCHEN03A,D_MUNCHEN01A,170,D_H063,180,D_H125_1,            \
 769      D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],170,D_MUNCHEN01C,150,D_FABRIK01_3,                \
 770      D_FABRIK01_1,FENCE7,100,D_H146,D_H149,D_H147,D_H149,D_H148,D_H145,170,D_H080,NL_HAARLEM06F,         \
 771      DDR_H07,100,RU_H019A[COFL:3],RU_H021,RU_H020A,RU_H018_1[COFR:4],170,D_H143,D_H142,D_H141,D_H140,    \
 772      D_H139,220,CHURCH01A,200,HBLK_M6A,150
 773  $DEF BGCITYDA4=D_MUNCHEN03B,D_H063,D_MUNCHEN03A,D_MUNCHEN01A,70,                                        \
 774      D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],70,D_MUNCHEN01C,100,D_H141,D_H140,        \
 775      D_H142,D_H143,D_H139,165,D_H080,NL_HAARLEM06_1,NL_HAARLEM06F,DDR_H07,100,HBLK_M6A,200,D_H144,       \
 776      D_H145,D_H146,D_H147,D_H148,D_H149,165,CHURCH01B,220,RU_H020A,RU_H019A[COFL:3],RU_H018_1[COFR:4],   \
 777      RU_H021,150,D_FABRIK01_3,D_FABRIK01_1,FENCE7,150
 778
 779  # EP 3ff
 780  $DEF BGCITYDA1=D_MUNCHEN03B,D_H063,D_H081[SM:0.8],190,D_H125_1,200,D_H144,D_H145,D_H146,D_H147,D_H148,  \
 781      D_H149,165,NL_HAARLEM06_1,D_MUNCHEN03A,D_MUNCHEN01A,70,70,D_MUNCHEN01C,150,D_FABRIK01_3,            \
 782      D_FABRIK01_1,FENCE7,100,D_H080,NL_HAARLEM06F,HBLK_DDR1,100,RU_H019A[COFL:3],RU_H021,RU_H020A,       \
 783      RU_H018_1[COFR:4],220,CHURCH01A,200,170,D_H143,D_H142,D_H141,D_H140,D_H139,220,CHURCH01A,200,       \
 784      HBLK_M6A,150,HBLK_M6A,150
 785  $DEF BGCITYDA2=D_MUNCHEN03B,D_H063,D_MUNCHEN03A,D_MUNCHEN01A,120,D_MUNCHEN01C,D_MUNCHEN02B,100, \
 786      D_H080,NL_HAARLEM06_1,NL_HAARLEM06F,HBLK_DDR1,D_H063,170,D_H125_1,145,D_H141,D_H140,D_H142,D_H143,  \
 787      D_H139,100,HBLK_M6A,200,D_H146,D_H149,D_H147,D_H149,D_H148,D_H145,170,CHURCH01B,220,RU_H020A,       \
 788      RU_H019A[COFL:3],RU_H018_1[COFR:4],RU_H021,150,D_FABRIK01_3,D_FABRIK01_1,FENCE7,150
 789
 790
 791  # Stadt Deutschland Rheinland alte Häuser EP2
 792  $DEF BGCITYDR1=D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,NL_LIMBURG01_2,NL_LIMBURG01E,50,               \
 793      D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],D_BWG009,50,D_H013,230,SHRUBBERY7,250,D_BWG004,320,       \
 794      NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,150,D_FABRIK01_2,200,             \
 795      D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,AU_CLUNES_RSLB,210,
 796  $DEF BGCITYDR2=D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50,   \
 797      D_H013,230,SHRUBBERY7,                                                                              \
 798      D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4]     \
 799      [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,200,D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,   \
 800      510,H_PECS01,D_H035,AU_CLUNES_RSLB,210,
 801        
 802  # Stadt Deutschland Rheinland alte + neue Häuser EP 3-4
 803  $DEF BGCITYDR3=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,              \
 804      AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,  \
 805      150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,                                     \
 806      D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50,      \
 807      D_H013,H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,250,
 808  $DEF BGCITYDR4=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,              \
 809      AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,  \
 810      150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,                                     \
 811      D_H081[O:(6*PLF_J2A),10,34][O:(6*PLF_J2A),127,34][SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50,D_H013,       \
 812      H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,                                   \
 813      D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4]     \
 814      [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,D_MUNCHEN06,D_MUNCHEN08,D_MUNCHEN07,D_BWG006,D_H049A,         \
 815      D_H048A,D_H065,300,
 816
 817  # Stadt Deutschland Rheinland alte + neue Häuser EP 5-6
 818  $DEF BGCITYDR5=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,              \
 819      AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,  \
 820      150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN09A,D_BONN01A,D_H066B,D_H067,D_H071,220,D_H052,          \
 821      D_MUNCHEN02B,D_MUNCHEN03A,40,D_H081[SM:0.8],NL_LIMBURG01_2,NL_LIMBURG01E,50,D_BWG009,50,D_H013,H_PECS06,    \
 822      D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,250,
 823  $DEF BGCITYDR6=D_MONSCHAU06A,D_MONSCHAU07A,D_MONSCHAU01A,D_MONSCHAU04,510,H_PECS01,D_H035,              \
 824      AU_CLUNES_RSLB,210,D_BWG004,320,NL_H050_1,269,NL_SPOORZICHT_1,10,CS_H001,D_BONN_POST1,90,FOREST24,  \
 825      150,D_FABRIK01_2,200,D_MUNCHEN01A,D_MUNCHEN02B,D_MUNCHEN03A,40,D_H081[SM:0.8],NL_LIMBURG01_2,               \
 826      NL_LIMBURG01E,50,D_BWG009,50,D_H013,H_PECS06,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,          \
 827      SHRUBBERY7,                                                                                         \
 828      D_VOSSLOH2[COBL:126][COFR:96][O:D_VOSSLOH1,79,70][B:79,67,23,5,#CAc2A4][B:640,64,54,12,#CAc2A4]     \
 829      [B:640,127,54,12,#CAc2A4],#SHRUBBERY7,D_MUNCHEN06,D_MUNCHEN08,D_MUNCHEN07,D_BWG006,D_H049A,         \
 830      D_H048A,D_H065,300,NL_THARDE_1,250,D_H062,D_H055,D_H038_2,200,250,D_MUNCHEN09A,D_H038_3,280,        \
 831      D_H078_1,200,BLD_PEUGEOT(1|2|3),240,D_H064,200,D_BONN01A,D_H066B,D_H067,D_H071,D_H062,D_RADISSON,   \
 832      220,D_H052,D_H064,D_BONN03A,D_H064A,D_H077,D_ROHBAU,200,
 833
 834  # Kleinstadt Alpen
 835  $DEF BGCITYAUH=A_H006|A_H009|A_H004|A_H003|D_H076|A_H002B|CS_H002|A_H001|A_H002B|A_H005|A_H010|A_H008|  \
 836      A_H007
 837  $DEF BGCITYAU3=50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,    \
 838      BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,     \
 839      BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,BGCITYAUH,50-100*1,     \
 840      BGCITYAUH,
 841
 842  # Stadt Österreich/Ungarn
 843  # groß
 844  $DEF BGCITYAU1=RU_HOTEL1,160,RU_H014[COFR:6],140,RU_H015,RU_H016A[COFL:12],170,H_PECS05,H_PECS04,       \
 845      H_PECS03_1,200,A_PALACE1,200,H_BUDAPEST02C,H_PECS05F,H_BUDAPEST02B,H_BUDAPEST01A,H_BUDAPEST01C,200,
 846  $DEF BGCITYAU2=RU_H015,RU_H016A[COFL:12],170,H_PECS05,H_PECS04,H_PECS03_1,H_BUDAPEST02C,H_PECS05F,      \
 847      D_H145,D_H148,D_H144,200,A_PALACE1,200,A_H024,D_H034,RU_H018_1,180,RU_HOTEL1,\
 848      160,RU_H014[COFR:6],140,
 849
 850  # Stadt Großbritannien
 851  $DEF BGCITYGB1=GB_H002,GB_H003,GB_H004A,GB_H004B,GB_H005_1,GB_H001A,GB_H001B,GB_H001C,GB_H007,170,      \
 852      GB_H006A,190,GB_H006(C|B),200,
 853  $DEF BGCITYGB2=GB_H005_1,GB_H001A,GB_H002,GB_H003,GB_H004A,GB_H004B,GB_H001B,GB_H001C,GB_H007,190,      \
 854      GB_H006(C|B),170,GB_H006A,200,
 855
 856  # Stadt Niederlande
 857  $DEF BGCITYNL1=[WMIXF:,(100,NL_HAARLEM03,100),NL_HAARLEM08A,NL_HAARLEM07,NL_HAARLEM09,NL_HAARLEM06_1,   \
 858      NL_HAARLEM05B,NL_HAARLEM06A,NL_HAARLEM06F,NL_HAARLEM04A,NL_HAARLEM10H,                              \
 859      (180,NL_DELFZIJL_CHURCH2,220),NL_HAARLEM13A,NL_DENHAAG04B,NL_DENHAAG04C,NL_DENHAAG05B,              \
 860      NL_DENHAAG05A,NL_DENHAAG05C,NL_GOOISCHE2,NL_AMSTERDAM12,NL_DENHAAG03C,NL_DENHAAG03B,NL_DENHAAG01,   \
 861      NL_AMSTERDAM11,NL_POTTERSTRAAT1,NL_AMSTERDAM05B,NL_AMSTERDAM05A,NL_AMSTERDAM13A,NL_AMSTERDAM06,     \
 862      NL_GRACHTENPAND,NL_GOOISCHE1,NL_AMSTERDAM13B,170,200,200]
 863
 864  $DEF BGCITYNL2=[WMIXF:,NL_AMSTERDAM13A,NL_AMSTERDAM06,NL_AMSTERDAM05B,NL_AMSTERDAM05A,NL_GRACHTENPAND,  \
 865      NL_GOOISCHE1,NL_AMSTERDAM13B,NL_DENHAAG04B,NL_DENHAAG04C,NL_DENHAAG05B,NL_DENHAAG05A,               \
 866      NL_DENHAAG05C,NL_DENHAAG03C,NL_DENHAAG03B,NL_DENHAAG01,NL_GOOISCHE2,NL_AMSTERDAM12,NL_AMSTERDAM11,  \
 867      NL_POTTERSTRAAT1,NL_HAARLEM03,(150,NL_DELFZIJL_CHURCH1,220),NL_HAARLEM09,NL_HAARLEM08A,             \
 868      NL_HAARLEM07,NL_HAARLEM06_1,NL_HAARLEM05B,NL_HAARLEM06A,NL_HAARLEM06F,NL_HAARLEM04A,NL_HAARLEM10H,  \
 869      NL_HAARLEM13A,170,180,200,200]
 870
 871  # Stadt Nordeuropa
 872  $DEF BGCITYDK1=DK_H001,DK_H009,DK_H008,170,DK_H004,DK_H005,DK_H007B,DK_H007A,DK_H006,DK_H002B,          \
 873      DK_H002A,200,DK_H003A,DK_H003B,DK_H003A,200,US_STORE03B[COFR:3],US_STORE04B,US_STORE04A,            \
 874      US_STORE03D[COFL:3],180,BLD_007A,30,D_CUXHAVEN01_(1|2),40,BLD_004A,30,BLD_004B,40,BLD_007A,40,      \
 875      BLD_008E,35,BLD_007C,50,BLD_007B,35,BLD_004D,45,BLD_004C,40,BLD_003A,200
 876  $DEF BGCITYDK2=BLD_007B,35,BLD_004D,45,D_CUXHAVEN01_(1|2),40,BLD_004A,30,BLD_004B,40,BLD_007A,30,       \
 877      BLD_007A,40,BLD_008E,35,BLD_007C,50,BLD_004C,35,BLD_003A,170,US_STORE03B[COFR:3],US_STORE04A,       \
 878      US_STORE04B,US_STORE03D[COFL:3],180,DK_H003A,DK_H003B,DK_H003A,DK_H001,DK_H005,DK_H007B,DK_H007A,   \
 879      DK_H006,DK_H002B,DK_H009,DK_H002A,DK_H008,170,DK_H004,170
 880
 881  # Stadt Südeuropa
 882  $DEF BGCITYIT1=I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065,    \
 883      185,(I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H008,    \
 884      I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1,      \
 885      I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170
 886  $DEF BGCITYIT2=I_H008,I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,(I_CURCH1|I_CHURCH2),220,         \
 887      I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H006B[COFR:8],I_H051,I_H054,I_H010,   \
 888      I_H017_1,I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,I_H007A[COFL:4],I_H047B,         \
 889      I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065,185
 890
 891  # Stadt Osteuropa
 892  $DEF BGCITYPL1=H_RAKTAR2,100,H_OBUDA03A,50,H_OBUDA01D,H_OBUDA01C,170,H_BUDAPEST02C,H_BUDAPEST02B,       \
 893      H_BUDAPEST01B,H_BUDAPEST01C,H_BUDAPEST02A,H_BUDAPEST01A,D_H144,D_H130,45,CS_H001,50,CS_H002,200,H_PECS01,   \
 894      H_PECS02,H_PECS04,H_PECS05,H_PECS06,H_PECS05F,B_H003,170,
 895  $DEF BGCITYPL2=H_BUDAPEST02C,H_BUDAPEST02B,H_BUDAPEST01B,H_BUDAPEST01C,H_BUDAPEST02A,H_BUDAPEST01A,30,  \
 896      RU_H019A[BC:-30,30]200,H_PECS01,H_PECS02,H_PECS04,H_PECS05,H_PECS06,H_PECS05F,B_H003,170,           \
 897      H_RAKTAR2,100,H_OBUDA03A,50,H_OBUDA01D,H_OBUDA01C,45,CS_H001,50,CS_H002,170
 898
 899  # Stadt Russland
 900  $DEF BGCITYRU1=RU_H019A[COFR:3],RU_H018_1,RU_H015,RU_H021,RU_H020A[COFL:3],200,RU_SHOP6,180,            \
 901      RU_H013A[COFR:6],RU_H011,RU_H012,RU_H017A,RU_HOTEL1,RU_H013B[COFL:7],200,RU_H016A,35,RU_SHOP5,45,   \
 902      RU_SHOP1,50,RU_H014,RU_SHOP1,55,45,RU_SHOP2,50,RU_H016B,40,RU_H004,45,RU_H006,200,RU_H022_1,        \
 903      RU_H26_1,200
 904  $DEF BGCITYRU2=RU_H013A[COFR:6],RU_H011,RU_H012,RU_H022_1,RU_H26_1,200,RU_SHOP6,100,RU_H019A[COFR:3],   \
 905      RU_H018_1,RU_H015,RU_H021,RU_H020A[COFL:3],180,RU_H016A,35,RU_H014,50,RU_H016B,40,RU_SHOP5,45,      \
 906      RU_H004,45,RU_SHOP1,55,45,RU_SHOP2,50,RU_H006,200,RU_H017A,RU_HOTEL1,RU_H013B[COFL:7],200
 907
 908
 909  # Stadt Australien
 910  $DEF BGCITYAUS=RU_BANK1,RU_SHOP1,200,US_DONUT1,US_STARBUCKS2,200,BARN01A,10,BARN01B,200,AU_BEALIBA_PO,  \
 911      AU_CL_HOTEL,AU_CLUNES_SSBB,AU_CLUNES_RSL,AU_CLUNES_SSB,AU_CLUNES_RSLB,AU_MID_HOTEL
 912  #--------------------------------------------------------------------------------------------------
 913  # Hintergrund Streifen
 914  #-------------------------------------------------------------------------------------------------
 915  #
 916  # Stadtverkehr
 917
 918  # Stadt Mitteleurpa moderne Häuser
 919  $DEF STBGMD=SKY,BG_FOREST1,[BG<=BGCITYDM1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDM2:..,0,#;]
 920
 921  # Stadt Mitteleurpa alte Häuser
 922  $DEF STBGEU=SKY,BG_FOREST1,[BG<=BGCITYDA1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDA2:..,0,#;]
 923
 924  # Stadt Deutschland Rheinland moderne Häuser
 925  $DEF STBGDRM=SKY,BG_FOREST1,[BG<=BGCITYDR3:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDR4:..,0,#;]
 926
 927  # Stadt Deutschland Rheinland alte Häuser
 928  $DEF STBGDRA=SKY,BG_FOREST1,[BG<=BGCITYDR1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDR2:..,0,#;]
 929
 930  # Stadt Deutschland Wuppertal
 931  $DEF BGCITYDWU1=70,D_MONSCHAU06A,D_MONSCHAU07A,510,D_H035,AU_CLUNES_RSLB,210,D_BWG004,
 932  $DEF BGCITYDWU2=320,NL_H050_1,269,NL_SPOORZICHT_1
 933  $DEF BGCITYDWU3=10,CS_H001,D_MUNCHEN01A,D_MUNCHEN02B,
 934  $DEF BGCITYDWU4=D_BONN_POST1,90,FOREST24,150,D_MUNCHEN08,D_BONN03A,D_H033,D_MUNCHEN07,230,SHRUBBERY7,\
 935        1800,D_BONN_POST1,77,FOREST24,250,D_MUNCHEN08,D_BONN03A,D_H033,D_BONN_POST1,D_MUNCHEN07,230,\
 936        SHRUBBERY7,
 937  # Stadt Österreich/Ungarn
 938  $DEF STBGAU=SKY,BG_FOREST1,[BG<=BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYAU2,:..,0,#;]
 939
 940  # Stadt Südeuropa
 941  $DEF STBGES=SKY,                                                                                        \
 942      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#;TREES_SOUTH,:..,0,#;              \
 943      BGCITYIT2:..,0,#;]
 944
 945  # Stadt Großbritannien
 946  $DEF STBGGB=SKY,BG_FOREST1,[BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYGB2:..,0,#;]
 947
 948  # Stadt Niederlande
 949  $DEF STBGNL=SKY,[BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYNL2:..,0,#;]
 950
 951  # Stadt Osteuropa
 952  $DEF STBGEO=SKY,BG_FOREST1,[BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYPL1:..,0,#;]
 953
 954  # Stadt Nordeuropa
 955  $DEF STBGNO=SKY,BG_FOREST1,[BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#;BGCITYDK2:..,0,#;]
 956
 957  # Stadt Russland
 958  $DEF STBGRU=SKY,BG_FOREST1,[BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#;]
 959
 960  # Stadt Japan
 961  $DEF A1006C=SCENE_A1006:..,0,<=>,102,1600;
 962  $DEF A1007C=SCENE_A1007:..,0,<=>;
 963
 964  $DEF JCITY1M=[BG<=10[B:0,0,10,150,#222]:..,$1,#; [WMIXF:,CITY_J022,CITY_J023]:,$EVAL(50+$1),#;          \
 965      [WMIXF:,CITY_J022,CITY_J023]:,$EVAL(110+$1),#;                                                      \
 966      [WMIX:,CITY_J001,CITY_J002,CITY_J004,CITY_J005,CITY_J006,CITY_J007,CITY_J008,CITY_J009,CITY_J011,   \
 967      CITY_J012,CITY_J013,CITY_J014,CITY_J019,CITY_J020]:..,$1,#;]
 968
 969  $DEF STBGJP05A=SKY,$JCITY1M(4),[BG<=FENCE10(3*B,C):..;],TRKND|TRKGS
 970  $DEF STBGJP05B=$SKYM(70),$JCITY1M(62),                                                                  \
 971      [BG<=WALL09A|WALL23|WALL28A|BRIDGE36:..,^58;FENCE10(3*B,C):..,58;]|                                 \
 972      [BG<=WALL19|WALL20|WALL22B:..,^70;],BLBK,TRKND
 973
 974  $DEF STBGJP05C=SKY,                                                                                     \
 975      [BG<=[WMIXF:,CITY_J030,CITY_J035];                                                                  \
 976      [WMIXF:,                                                                                            \
 977      (10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E|TREE4C|        \
 978      TREE24|TREE57|TREE43|TREE44|TREE52)];[WMIXF:,(4-6*HG_J,8-15*10)];],TRKND
 979
 980  # Stadt USA
 981  $DEF STBGUS=SKY,                                                                                        \
 982      [BG<=(20*(10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E|      \
 983      TREE4C|TREE24|TREE57|TREE43|TREE44|TREE52)):..,0;                                                   \
 984      US_STORE04B,US_STORE04A,US_STORE05A,US_ALMA8,US_ALMA7,US_ROSLYN_BRICK2,US_STORE13B,US_STORE16A,     \
 985      US_STORE15A,200,US_STORE06B,US_STORE05A,US_STORE07A,US_STORE07B,US_STORE10A,US_STORE09B,            \
 986      US_STORE09A,US_STORE17D,190,US_STORE19C[COFR:3],US_STORE18B,US_STORE18A,US_STORE17C,210,            \
 987      US_STORE01C,55,US_STORE02A,65,US_STORE03B,45,US_STORE03D,55,US_ROSLYN_CAFE2,55,US_STORE03A,45,      \
 988      US_STORE03C,65,US_STORE13C,75,US_STORE14A,45,US_STORE14C,65,US_STORE18B,65,US_STORE19A,40,          \
 989      US_STORE19B,40,US_STORE20B,55,US_STORE21A,65,US_STORE21C,60,US_STORE24B,55,US_STORE24C,200,:..,0,#; \
 990      1-40*1,TREES_SUMMER:..,0,#;                                                                         \
 991      US_STORE19C[COFR:3],US_STORE18B,US_STORE18A,US_STORE17C,200,US_STORE06B,US_STORE05A,US_STORE07A,    \
 992      US_STORE07B,US_STORE10A,US_STORE09B,US_STORE09A,US_STORE17D,190,US_STORE03C,65,US_STORE24C,55,      \
 993      US_STORE13C,75,US_STORE14A,45,US_STORE14C,65,US_STORE18B,65,US_STORE19A,40,US_STORE01C,55,          \
 994      US_STORE02A,65,US_STORE03B,45,US_STORE03D,55,US_ROSLYN_CAFE2,55,US_STORE03A,45,US_STORE19B,40,      \
 995      US_STORE20B,55,US_STORE21A,65,US_STORE21C,60,US_STORE24B,55,200,US_STORE04B,US_STORE04A,            \
 996      US_STORE05A,US_ALMA8,US_ALMA7,US_ROSLYN_BRICK2,US_STORE13B,US_STORE16A,US_STORE15A,210,200,,,:..,   \
 997      0,#;]
 998
 999  # Stadt 3. Welt
1000  $DEF STBGTW=SKY,                                                                                        \
1001      [BG<=SCENE_DESERT3:..,0;                                                                            \
1002      (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1|      \
1003      EUCALYPT02)(|[M])):..,0;                                                                            \
1004      20,CH_BARN1,40,HUT_004A,60,I_H020B,45,I_H039_1,35,SHOP_003,55,HUT_001A,25,I_H020_1,30,BLD_011,50,   \
1005      I_H040_1,20,I_H031,40,H_RAKTAR2,60,SHOP_001,45,SHOP_002,35,BLD_004A,55,AU_CLUNES_RSLB,25,HUT_003A,  \
1006      30,BLD_004C,:..,0,#;                                                                                \
1007      (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1|      \
1008      EUCALYPT02)(|[M])):..,0;                                                                            \
1009      50,I_H040_1,20,I_H031,20,CH_BARN1,40,HUT_004A,55,HUT_001A,40,H_RAKTAR2,35,BLD_004A,55,              \
1010      AU_CLUNES_RSLB,25,I_H020_1,30,BLD_011,25,HUT_003A,30,BLD_004C,60,SHOP_001,45,SHOP_002,60,I_H020B,   \
1011      45,I_H039_1,35,SHOP_003,:..,0,#;]
1012
1013  # U-Bahn Mauer
1014  $DEF STBGUB=[BG<=(WALL01C|WALL19):..,0;]
1015
1016  #--------------------------------------------------------------------------------------------------#
1017  #                                                                 #
1018  # Strecken nach Epoche und Region                                                                  #
1019  #                                                                                                  #
1020  #--------------------------------------------------------------------------------------------------#
1021  # allgemein
1022
1023  # Wall
1024
1025  $DEF BGWALLE6=(WALL_UF1|WALL_UF2[BT:0,32]|WALL_UF3[BT:0,32]|WALL_UF4[BT:0,32]|WALL_UF5[BT:0,32]|        \
1026      WALL_UF7[BT:0,32]|WALL_UF8|[BT:0,32])
1027
1028  #--------------------------------------------------------------------------------------------------#
1029
1030  #Platform
1031
1032  #--------------------------------------------------------------------------------------------------#
1033  # Platform acessuars
1034
1035  #Platform Passenger
1036  $DEF BGPASS1=PAS(01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|   \
1037      29|30|31|32|64|65)(|[M])
1038
1039  #--------------------------------------------------------------------------------------------------#
1040
1041  #Background
1042  # Plattform     
1043
1044  # general
1045  $DEF BG_PLF1=[BG<=B_PLF1E,$1@B_PLF(1|2),#B_PLF1E:,^8;]     
1046
1047
1048  # Acessuares
1049
1050  #length 1800 H
1051  $DEF BGPLATT1800H=BGPASS1,25,PASG03,5,LAMP04,5,PLF_J2D,20,PASG02,20,BANK8,30,PASG01,25,BGPASS1,         \
1052      DUSTBIN1,11,PLF_J2D,25,DBAG_STAIRS,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,30,BGPASS1,15,       \
1053      BANK04,30,PLF_J2D,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,20,LAMP04,85,PERS01,15,PERS03,
1054
1055  #length 1800 NL
1056  $DEF BGPLATT1800NL=BGPASS1,85,LAMP01,40,BGPASS1,20,BGPASS1,20,BGPASS1,15,BGPASS1,20,PLF_J2D,26,BGPASS1, \
1057      25,PASG03,60,PASG02,20,B_STAIR1,30,PASG01,25,BGPASS1,DUSTBIN1,45,J_PBANK,15,J_PBANK,20,BGPASS1,28,  \
1058      BGPASS1,20,J_PBANK,35,DUSTBIN1,20,BGPASS1,15,J_PBANK,30,PLF_J2D,26,BGPASS1,35,J_PBANK,DUSTBIN1,15,  \
1059      BGPASS1,12,LAMP01,70,PERS01,20,BGPASS1
1060
1061  #length 1800 CH5
1062  $DEF BGPLATT1800CH=BGPASS1,25,PASG03,25,PLF_J2D,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,25,BGPASS1,        \
1063      DUSTBIN1,11,PLF_J2D,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,30,BGPASS1,     \
1064      15,BANK04,30,CH_TIMTAB1,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,85,PERS01,15,PERS03,
1065
1066
1067  #length 1800 CS5
1068  $DEF BGPLATT1800C=BGPASS1,25,PASG03,25,CH_TIMTAB1,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,25,BGPASS1,      \
1069      DUSTBIN1,11,CH_TIMTAB1,25,B_STAIR1,B_STAIR1[COFL:20],15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,    \
1070      DUSTBIN1,30,BGPASS1,15,BANK04,30,PLF_J2D,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,85,     \
1071      PERS01,15,PERS03,
1072
1073  #length 1400 AT
1074  $DEF BGPLATT1400A=BGPASS1,25,PASG03,25,PLF_J2D,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,11,DUSTBIN1,11,     \
1075      PLF_J2D,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,DUSTBIN1,30,BGPASS1,15,BANK04,30,PLF_J2D,     \
1076      26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,5,PERS01,15,PERS03
1077
1078  #length 1400 CH
1079  $DEF BGPLATT1400CH=BGPASS1,25,PASG03,25,CH_TIMTAB1,2,LAMP14,2,PASG02,20,BANK8,30,PASG01,11,DUSTBIN1,    \
1080      11,CH_TIMTAB1,15,PASG10,10,PASG09,15,BANK8,20,BGPASS1,28,BGPASS1,20,DUSTBIN1,30,BGPASS1,15,BANK04,  \
1081      30,CH_TIMTAB1,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP14,5,PERS01,15,PERS03
1082
1083  # Bahnsteig EP1-3 DE
1084  $DEF BGPLATT_DE1=BGPASS1,16,LAMP06,47,D_BOEDERITZ3S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,    \
1085      I_TIMTAB1,26,BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,       \
1086      I_TIMTAB1,16,BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,D_BOEDERITZ3S,17,LAMP06,12,PERS01,20,PERS03
1087
1088  # Bahnsteig EP4 DE
1089  $DEF BGPLATT_DE4=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,16,LAMP01,47,D_KRUMBACH4S,30,      \
1090      BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26,BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,   \
1091      40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16,BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,   \
1092      D_KRUMBACH4S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50
1093
1094  # Bahnsteig EP5 DE
1095  $DEF BGPLATT_DE5=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,  \
1096      50,BGPASS1,16,LAMP01,47,D_DUHBF5S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26,     \
1097      BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16,       \
1098      BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,D_DUHBF5S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40,      \
1099      BGPASS1,20,BGPASS1,10,BGPASS1,50
1100
1101  # Bahnsteig EP6 DE
1102  $DEF BGPLATT_DE6=BGPASS1,40,BGPASS1,20,BGPASS1,10,BGPASS1,50,BGPASS1,16,LAMP01,20,DBAG_6STREU,20,       \
1103      D_OBHBF6S,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,DBAG_6INFO1,06,BGPASS1,20,BANK04,20,      \
1104      DBAG_STAIRS,15,DBAG_6TICKET,5,BANK8,2,DBAG_6DUSTBIN1,10,BGPASS1,15,PASG01,28,BGPASS1,20,            \
1105      DBAG_6BANK,5,DBAG_6DUSTBIN2,10,DBAG_6INFO3,16,BGPASS1,30,BGPASS1,15,DBAG_6BANK,6,DBAG_6DUSTBIN2,    \
1106      20,BGPASS1,5,#DBAG_6STREU,5,D_OBHBF6S,17,LAMP01,12,PERS01,20,PERS03,BGPASS1,40,BGPASS1,20,BGPASS1,  \
1107      10,BGPASS1,50
1108      
1109
1110  #--------------------------------------------------------------------------------------------------#
1111  # Ungarn 
1112  # Strecke
1113  # E 1-3
1114  $DEF STBGHU01T=[BG-=BgHs/BG_HUNGARY02.jpg:..,-120,<=>;CABLE5:..,0;],TRKDH
1115  # E 4-6
1116  $DEF STBGHU01O=[BG-=BgHs/BG_HUNGARY02.jpg:..,-120,<=>;],TRKDH
1117  #01,03 auch A,SK,D,F,BE,L,PL  E1-6
1118  $DEF STBGHU02=[BG-=BgHs/BG_HUNGARY03.jpg:..,-50,<=>;],TRKDH
1119  $DEF STBGHU03=[BG-=BgHs/BG_HUNGARY04.jpg:..,0,<=>;],TRKDHB
1120  $DEF STBGHU04=[BG-=BgHs/BG_HUNGARY06.jpg:..,-0,<=>;],TRKDHB
1121  # E 1-3
1122  $DEF STBGHU05T=[BG-=BgHs/BG_HUNGARY05.jpg:..,-0,<=>,5,2270;CABLE5:..,0;],TRKDHB
1123  # E 4-6
1124  $DEF STBGHU05O=[BG-=BgHs/BG_HUNGARY05.jpg:..,-0,<=>,5,2270;],TRKDHB
1125  #05 auch A,SK,D,F,BE,L  E1-6
1126
1127  #Bahnhof E 3/4
1128  $DEF STBGHUB13O=SKY,BG_FOREST1,                                                                 \
1129      [BG<=BGCityAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCityAU2,:..,0,#;                               \
1130      M_KELENFOLDB|(M_ALSOORS_U[O:H_BUD_NYUG,235,60][B:241,66,31,1,#838383]),:,8;1000,WATERCOLUMN02:,-4;  \
1131      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; H_BUD_NYUG,480,H_BUD_NYUG,:,42;                    \
1132      H_BUD_NYUGS,1450,H_BUD_NYUGS,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES;
1133  $DEF STBGHUB13H=STMOD,STBGHUB13O
1134  $DEF STBGHUB13=$FLG(O,STBGHUB13O,STBGHUB13H);                                                                           
1135
1136  # Ungarn Bahnhof E 5/6
1137  $DEF STBGHUB15O=SKY,BG_FOREST1,                                                                 \
1138      [BG<=BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYAU2,:..,0,#;                               \
1139      M_KELENFOLDB|(M_ALSOORS_U[O:H_BUD_NYUG,235,60][B:241,66,31,1,#838383]),:,8;                         \
1140      J_TICKET,200,J_TICKET,:,8;(0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;                          \
1141      H_BUD_NYUG,480,H_BUD_NYUG,:,42; H_BUD_NYUGS,560,J_TICKET,300,J_TICKET,560,H_BUD_NYUGS,:,8;          \
1142      BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES    
1143  $DEF STBGHUB15H=STMOD,STBGHUB15O
1144  $DEF STBGHUB15=$FLG(O,STBGHUB15O,STBGHUB15H);                                                                           
1145
1146  #--------------------------------------------------------------------------------------------------#
1147  #--------------------------------------------------------------------------------------------------#
1148  # Deutschland-Mitteleuropa
1149
1150  # Wald Laubbäume mit Telegrafen Deutschland-Mitteleuropa EP 1-2
1151  $DEF STBGFT=SKY,BG_FOREST1,BG_GREEN1,[BG<=CABLE5:..,0;],TRKDH
1152
1153  # Strecke Wiese EP 1-3
1154  $DEF STBGDE01T=$AG165(30)|$HL180(30)|$HL981014(30),[BG<=CABLE5:..,0;],TRKDH        
1155  # Strecke Wiese EP 4-6
1156  $DEF STBGDE01O=$AG165(30)|$HL180(30)|$HL981014(30),TRKDH  
1157
1158
1159
1160  # Strecke EP 3
1161  $DEF STBGDE02T=[BG-=BgHs/BG_GERMANY01.jpg:..,-130,<=>;CABLE5:..,0;],TRKDH
1162  # Strecke EP 4-6
1163  $DEF STBGDE02O=[BG-=BgHs/BG_GERMANY01.jpg:..,-130,<=>;],TRKDH
1164  # Strecke EP 1-3
1165  $DEF STBGDE03T=[BG-=BgHs/BG_GERMANY03.jpg:..,-120,<=>;CABLE5:..,0;],TRKDHB    
1166  # Strecke EP 4-6
1167  $DEF STBGDE03O=[BG-=BgHs/BG_GERMANY03.jpg:..,-120,<=>;],TRKDHB    
1168  #03 auch A,SK,D,F,BE,L,PL  E1-6
1169
1170  # Strecke Mittelgebirge Herbst EP 1-3
1171  $DEF STBGDE04T=[BG-=BgHs/BG_GERMANY02.jpg:..,-10,<=>;CABLE5:..,0;],TRKDHB
1172  # Strecke Mittelgebirge Herbst EP 4-6
1173  $DEF STBGDE04O=[BG-=BgHs/BG_GERMANY02.jpg:..,-10,<=>;],TRKDHB
1174
1175  # Strecke Usedom EP 1-3
1176  $DEF STBGDE07T=[BG-=BgHs/BG_Usedom.jpg:..,-325,<=>,242,6980;CABLE5:..,0;],TRKDHB
1177  # Strecke Mittelgebirge Herbst EP 4-6
1178  $DEF STBGDE07O=[BG-=BgHs/BG_Usedom.jpg:..,-325,<=>,242,6980;],TRKDHB
1179  #08 auch PL,DK,D,NL  E1-6
1180
1181
1182  # Strecke Winter EP 1-3
1183  $DEF STBGDE05T=[BG=(BgHs/BG_GERWIN01.jpg[BC:25,0]:..,0,<=>;BG_GRAS1W:..,^-7,<=>;CABLE5:..,0;)],TRKDS
1184  # Strecke Winter EP 4-6
1185  $DEF STBGDE05O=[BG=(BgHs/BG_GERWIN01.jpg[BC:25,0]:..,0,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
1186  # Strecke Mittelgebirge EP 4-6
1187  $DEF STBGDE06O=[BG-=BgPic/BGLSDE04.jpg:..,-30,<=>,80,2920;],TRKDHB      
1188
1189
1190  #--------------------------------------------------------------------------------------------------#
1191  # Industriegebäude Deutschland-Mitteleuropa E2
1192  $DEF STBGDI2=SKY,BG_GREEN1,                                                                             \
1193      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1194      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#;                                               \
1195      FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,\
1196      250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,150,\
1197      FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+;       \
1198      (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;],EMBS,TRKES
1199
1200
1201  # Industriegebäude Deutschland-Mitteleuropa E3-5
1202  $DEF STBGDI1=SKY,BG_GREEN1,                                                                             \
1203      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1204      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#;                                               \
1205      FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150,         \
1206      FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+;     \
1207      (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;],EMBS,TRKES
1208
1209  # Industriegebäude Deutschland-Mitteleuropa E4-6
1210  $DEF STBGDI4=SKY,BG_GREEN1,                                                                             \
1211      [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,          \
1212      INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1213      STORE02,280:..,-10,#;                                                                               \
1214      INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1215      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1216      STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;   \
1217      BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;],EMBS,TRKES
1218  #--------------------------------------------------------------------------------------------------#
1219  # Güterbahnhof Deutschland-Mitteleuropa
1220
1221  # E1-2
1222  $DEF STBGDG2N=SKY,BG_GREEN1,                                                                            \
1223      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1224      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#;                                               \
1225      FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,250,   \
1226      FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,150,     \
1227      FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-10,#;                                  \
1228      (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+; BUSH20:10-45+,-8;   \
1229      0|1*BUSH20:35-80+,-8;                                                                               \
1230      WATERTOWER12[SM:0.7],50,WATERCOLUMN04,50,BLD_030A|D_DROLSHAGEN2,                                            \
1231      (D_MARIENFELDE2,3*D_MARIENFELDE3)|D_DERSCHLAG,30,D_BARTH_ST,20,CROSS_H1:..,0,#;],EMBS,TRKES
1232  $DEF STBGDG2=$FLG(X,STBGDE01O,STBGDG2N)     
1233          
1234          
1235
1236
1237  # E3-5
1238  $DEF STBGDG3=SKY,BG_GREEN1,                                                                             \
1239      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1240      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#;                                               \
1241      FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150,         \
1242      FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+;     \
1243      (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;                 \
1244      D_DEFUNC_1|D_GSCH01_1,30,STELLWERK1(6|2|3),30,D_BW02_1,20,WATERTOWER11:..,0,#;],EMBS,TRKES
1245      
1246
1247  # E4-6
1248  $DEF STBGDG4=SKY,BG_GREEN1,                                                                             \
1249      [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,          \
1250      INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1251      STORE02,280:..,-10,#;                                                                               \
1252      INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1253      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1254      STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;   \
1255      BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;                                                             \
1256      WALL_UF5,WALL_UF7,WALL_UF2,WALL_UF8,WALL_UF4,WALL_UF1,15,D_BAIERSBRONN3,30,F_POSTE2:..,0,#;],       \
1257      EMBS,TRKES
1258   
1259
1260  #--------------------------------------------------------------------------------------------------#
1261  # Landbahnhof Deutschland
1262
1263  $DEF D_LANDH1=40,                                                                                       \
1264      D_H042A|D_H042B|D_H042C|D_H042D|D_H042E|D_H043A|D_H043B|D_H044A|D_H044B|D_H045A|D_H045B|D_H046A|    \
1265      D_H046B|D_H047,40
1266  $DEF D_LANDH2=40,D_RATHAUS1|D_H013,40
1267  $DEF D_LANDH3=40,G_H021B|D_H022B|D_H024|D_H026|D_H027|D_H028A,40
1268  $DEF D_LANDH4=40,D_H00(5|8)(|[VD:,37,,29])|D_H010
1269  $DEF D_LANDROW=$MIX(3,(40,D_H076,40),(40,NL_LIMBURG03_1[SM:0.8],40),D_LANDH1,D_LANDH2),300,             \
1270      $MIX(3,D_LANDH1,D_LANDH3,D_LANDH4)
1271
1272  $DEF BG_LANDBHF=[BG<=D_LANDBAHNHOF[O:$1,*150,^42]|D_LANDBAHNHOF2[O:$1,*131,^38]|                        \
1273      D_LANDBAHNHOF3[O:$1,*131,^38]|D_WORPSWEDE[B:129,30,64,6,(203,203,203)][O:$1,*160,*35]|              \
1274      GUMPENRIEDASBACH[O:$1,*96,44];]
1275
1276  #E1-3
1277  $DEF STBGDBB11O=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],$BG_LANDBHF(D_BOEDERITZ3),            \
1278      [BG<=D_WAREHOUSE1:50+670,0;                                                                         \
1279      D_BOEDERITZ3S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30,      \
1280      LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,50,D_BOEDERITZ3S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),       \
1281      [FG+=WATERCOLUMN03:50+500,-4;]
1282  $DEF STBGDBB11H=STRMOD,STBGDBB11O
1283  $DEF STBGDBB11G=$FLG(O,STBGDBB11O,STBGDBB11H);                                                                          
1284
1285  $DEF STBGDBB11N=STBGDBB11G,TRKGS
1286  $DEF STBGDBB11=$FLG(X,STBGDE01O,STBGDBB11N)     
1287  $DEF STBGDBB12=STBGDBB11G,TRKDW
1288  $DEF STBGDBB13=STBGDBB11G,TRKDW
1289  #E3-5 DR
1290  $DEF STBGDDRB1=STBGDBB11G,TRKGS
1291  #E4 DB
1292  $DEF STBGDBB14O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RUCK4),                 \
1293      [BG<=D_WAREHOUSE1:50+670,0;                                                                         \
1294      D_RUCK4S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30,LAMP09,    \
1295      50,BGPASS1,40,PERS01,10,BGPASS1,50,D_RUCK4S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;]
1296  $DEF STBGDBB14H=STRMOD,STBGDBB14O
1297  $DEF STBGDBB14G=$FLG(O,STBGDBB14O,STBGDBB14H);                                                                          
1298
1299  $DEF STBGDBB14E=STBGDBB14G,[W=X],TRKWD,                                                                 \
1300      [FG=WATERCOLUMN03:50+500,-4;<FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1301  $DEF STBGDBB14D=STBGDBB14G,[FG=TRACKFGDW:..,^0;1000,WATERCOLUMN03:,-4;]
1302  $DEF STBGDBB14=$FLG(E,STBGDBB14E,STBGDBB14D)
1303  #E5
1304  $DEF STBGDBB15O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RIEGEL6),               \
1305      [BG<=D_WAREHOUSE1:50+670,0;                                                                         \
1306      LAMP_DB5A,10,BANK_DB5A,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP_DB5A,30,BGPASS1,70,BGPASS1,30,BANK_DB5A,    \
1307      30,LAMP_DB5A,50,BGPASS1,40,PERS01,10,BGPASS1,50,LAMP_DB5A:,9;10*PLF_5D:,0;],TRKDW
1308  $DEF STBGDBB15H=STRMOD,STBGDBB15O
1309  $DEF STBGDBB15G=$FLG(O,STBGDBB15O,STBGDBB15H);                                                                          
1310  $DEF STBGDBB15E=STBGDBB15G,[W=X],([FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]|[FG>=;FL_DR:..,-4,#;]);
1311  $DEF STBGDBB15=$FLG(E,STBGDBB15E,STBGDBB15G)     
1312
1313
1314  #E6
1315  $DEF STBGDBB16O=SKY,BG_FOREST1,BG_GREEN1,[BG<=D_LANDROW;],$BG_LANDBHF(D_RIEGEL6),                       \
1316      [BG<=D_WAREHOUSE1:50+670,0;                                                                         \
1317      PLF_LAMP_DB5B,10,DBAG_6BANK,55,DBAG_6STREU,60,DBAG_6DUSTBIN1,60,DBAG_6INFO1,50,PLF_LAMP_DB5B,30,    \
1318      70,BGPASS1,30,DBAG_6TICKET,30,PLF_LAMP_DB5B,50,40,DBAG_6DUSTBIN1,10,BGPASS1,50,PLF_LAMP_DB5B:,9;    \
1319      10*PLF_5D:,0;],TRKDW
1320  $DEF STBGDBB16H=STRMOD,STBGDBB16O
1321  $DEF STBGDBB16G=$FLG(O,STBGDBB16O,STBGDBB16H);                                                                          
1322  $DEF STBGDBB16E=STBGDBB15G,[W=X],([FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]|[FG>=;FL_DR:..,-4,#;]);
1323  $DEF STBGDBB16=$FLG(E,STBGDBB16E,STBGDBB16G)     
1324
1325  #--------------------------------------------------------------------------------------------------#
1326  # Bahnhof Hauptstrecke
1327
1328  # Hintergrund EP 1&2
1329
1330  $DEF CITYBGE1=[BG<=BGCITYDA3:..,0,#;(1-40*1),TREES_SUMMER:..,0,#;BGCITYDA4:..,0,#;]
1331
1332  # Hintergrund EP 3-4
1333  $DEF CITYBGE3=[BG<=BGCITYDA1:..,0,#; (1-40*1),TREES_SUMMER:..,0,#; BGCITYDA2:..,0,#;]                           \
1334
1335  # Hintergrund EP 5-6
1336  $DEF CITYBGE5=[BG<=BGCITYD(A|M)1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYD(A|M)2:..,0,#;]                     \
1337
1338  # Bahnhof BG EP1
1339  $DEF BFHLBGE1=[BG<=(25*WALL18(|[M])),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0;             \
1340      D_SCHUPPENSTEG:90;                                  \
1341      MARK_45101A,KPEV_G10_MBH(|L),12,#BOCK2:90;                  \
1342      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(NL_MEPPEL[O:D_BOEDERITZ3,227,28])|     \
1343      (RO_BASARAB1[O:D_BOEDERITZ3,195,36])|                                                               \
1344      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])|                                 \
1345      (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8; WATERCOLUMNDB:9,3;]
1346          
1347  # Bahnhof BG EP2
1348  $DEF BFHLBGE2=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0;               \
1349      PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90;                                     \
1350      D_SCHUPPENSTEG:90;                                  \
1351      DRG_2_G_MUE,DRG_2_G_MUE_H,12,#BOCK2:90;                                                             \
1352      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(NL_MEPPEL[O:D_BOEDERITZ3,227,28])|     \
1353      (RO_BASARAB1[O:D_BOEDERITZ3,195,36])|                                                               \
1354      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])|                                 \
1355      (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8; WATERCOLUMNDB:9,3;]
1356
1357  # Bahnhof BG EP3
1358  $DEF BFHLBGE3=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0;               \
1359      D_SCHUPPENSTEG:90;(PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]):90;                         \
1360      DB_3B_GMS54BL,DB_3B_GMHS35KEMB,12,#BOCK2:90;                                                        \
1361      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_BOEDERITZ3,143,35])|(RO_BANEASA1[O:D_BOEDERITZ3,952,31])|   \
1362      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_BOEDERITZ3,402,37])|                                 \
1363      (NL_MEPPEL[O:D_BOEDERITZ3,227,28])|(RO_BASARAB1[O:D_BOEDERITZ3,195,36])|                            \
1364      (D_OLPE[O:D_BOEDERITZ3,533,30][B:594,0,15,40,#D7D8D2]):,8;3;WATERCOLUMNDB:9,3;]
1365
1366  # Bahnhof BG EP4
1367  $DEF BFHLBGE4=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;WASSERTURM_KOETHEN,1100:,0;               \
1368      PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]                                         \
1369      :90;(PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]):90;                               \
1370      DB_4B_GS204E,DB_4B_GKLMS207M,12,#BOCK2:90;                                                          \
1371      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_KRUMBACH4,143,35])|                                         \
1372      (RO_CARANSEBES[B:611,43,37,2,#60645C][O:D_KRUMBACH4,611,45])|(RO_BANEASA1[O:D_KRUMBACH4,952,31])|   \
1373      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_KRUMBACH4,402,37]):,8; WATERCOLUMNDB:9,3;]
1374
1375  # Bahnhof BG EP5
1376  $DEF BFHLBGE5=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12; WASSERTURM_KOETHEN,1100:,0;              \
1377      PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]                                         \
1378      :90;DBAG_5_365221S(|L),122,#BOCK2:90;                                                                       \
1379      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_DUHBF5,143,35])|                                            \
1380      (0[AR:D_BHF1(A,B,C,D,D,C)][O:D_DUHBF5,149,35])|                                                     \
1381      (RO_CARANSEBES[B:611,43,37,2,#60645C][O:D_DUHBF5,611,45])|(RO_BANEASA1[O:D_DUHBF5,952,31])|         \
1382      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_DUHBF5,402,37]):,8;]
1383
1384  # Bahnhof BG EP6
1385  $DEF BFHLBGE6=[BG<=25*WALL18(|[M]),1100,25*WALL18(|[M]),:,-12;          \
1386      PLF2P[AR:1*PLF2P][O:NL_GENDLOOS5,10,9][O:NL_GENDLOOS4,84,9]:90;                                     \
1387      DBAG_363141S(|L),122,#BOCK2:90;     \
1388      (RO_CARANSEBES[B:611,45,37,7,#28273D][B:611,43,37,2,#60645C][O:D_OBHBF6,611,45])|                   \
1389      (D_WORPSWEDE[B:130,30,62,5,#BDBDBD][O:D_OBHBF6,143,35])|                                            \
1390      (0[AR:D_BHF1(A,B,C,D,D,C)][O:D_OBHBF6,149,35])|(RO_BANEASA1[O:D_OBHBF6,952,31])|                    \
1391      (D_MUHLHEIM_STYRUM[B:380,35,88,11,#805038][O:D_OBHBF6,402,37]):,8;]
1392
1393  #Plattform background
1394
1395  # Bahnsteig EP1-3
1396  $DEF PLFHLBGE1B=[BG<=BGPLATT_DE1:,8; PLF_I1_1,PLF_I1_1:,8;]
1397
1398  # Bahnsteig EP4
1399  $DEF PLFHLBGE4B=[BG<=BGPLATT_DE4:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1400
1401  # Bahnsteig EP5
1402  $DEF PLFHLBGE5B=[BG<=BGPLATT_DE5:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1403
1404  # Bahnsteig EP6
1405  $DEF PLFHLBGE6B=[BG<=BGPLATT_DE6:,8; 15*PLF_5D;#PLF_D01B,6*PLF_D01C,PLF_D01B:,8;]
1406
1407
1408  #Plattform foreground with track
1409
1410  # Bahnsteig EP1-3
1411  $DEF PLFHLBGE1F=[FG>=BGPLATT_DE1:,8; PLF_I1_1,PLF_I1_1:,8;TRACKFGBS:..,^0;TRACKFGDB:..,^0;WATERCOLUMNDB:93,-4;]
1412
1413  # Bahnsteig EP4
1414  $DEF PLFHLBGE4F=[FG>=BGPLATT_DE4:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0;TRACKFGDB:..,^0;        \
1415      WATERCOLUMNDB:93,-4;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1416
1417  # Bahnsteig EP5
1418  $DEF PLFHLBGE5F=[FG>=BGPLATT_DE5:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0;TRACKFGDB:..,^0;        \
1419      2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1420
1421  # Bahnsteig EP6
1422  $DEF PLFHLBGE6F=[FG>=BGPLATT_DE6:,8; 20*PLF_5D;#PLF_D01B,8*PLF_D01C,PLF_D01B:,8;TRACKFGBS:..,^0;TRACKFGDB:..,^0;        \
1423      2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1424
1425
1426
1427  # Bahnhof Deutschland E1
1428  $DEF STBGDBB21O=SKY,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1B, $BG_PLF1(13),TRKES,[FG+=WATERCOLUMNDB:93,-4;]
1429  $DEF STBGDBB21H=STMOD,STBGDBB21O
1430  $DEF STBGDBB21S=$FLG(O,STBGDBB21O,STBGDBB21H)                                                                           
1431
1432
1433  $DEF STBGDBB21=$FLG(X,STBGDE01O,$FLG(G,STBGDBB12,$FLG(N,STBGDBB12,STBGDBB21S)))
1434
1435  # Bahnhof Deutschland E2
1436  $DEF STBGDBB22O=SKY,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1B, $BG_PLF1(13),TRKES,[FG+=WATERCOLUMNDB:93,-4;]
1437  $DEF STBGDBB22H=STMOD,STBGDBB22O
1438  $DEF STBGDBB22S=$FLG(O,STBGDBB22O,STBGDBB22H)                                                                           
1439  $DEF STBGDBB22E=STBGDBB22S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1440
1441  $DEF STBGDBB22=$FLG(G,STBGDBB12,$FLG(N,STBGDBB12,$FLG(E,STBGDBB22E,STBGDBB22S)))
1442
1443
1444  # Bahnhof Deutschland E3
1445  $DEF STBGDBB23O=SKY,BG_FOREST1,CITYBGE3,BFHLBGE3,PLFHLBGE1B,$BG_PLF1(13),TRKES,[FG+=WATERCOLUMNDB:93,-4;]
1446  $DEF STBGDBB23H=STMOD,STBGDBB23O
1447  $DEF STBGDBB23S=$FLG(O,STBGDBB23O,STBGDBB23H)                                                                           
1448  $DEF STBGDBB23E=STBGDBB23S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1449
1450  $DEF STBGDBB23=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,$FLG(E,STBGDBB23E,STBGDBB23S)))
1451
1452  # Bahnhof Deutschland E4
1453  $DEF STBGDBB24O=SKY,BG_FOREST1,CITYBGE3,BFHLBGE4,PLFHLBGE4B,TRKES,[FG+=WATERCOLUMNDB:93,-4;]
1454  $DEF STBGDBB24H=STMOD,STBGDBB24O                                                                        
1455  $DEF STBGDBB24S=$FLG(O,STBGDBB24O,STBGDBB24H)                                                                           
1456  $DEF STBGDBB24E=STBGDBB24S,[W=X],[FG>=;FL_DB_M(4:1F5|2_5),FL_DB_F5:..,-5,#;]
1457
1458  $DEF STBGDBB24=$FLG(G,STBGDBB14G,$FLG(N,STBGDBB14G,$FLG(E,STBGDBB24E,STBGDBB24S)))
1459
1460  # Bahnhof Deutschland E5
1461
1462  $DEF STBGDBB25O=SKY,BG_FOREST1,CITYBGE5,BFHLBGE5,PLFHLBGE5B,TRKES,[FG>=;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;];                                  
1463  $DEF STBGDBB25H=STMOD,STBGDBB25O
1464
1465  $DEF STBGDBB25S=$FLG(O,STBGDBB25O,STBGDBB25H)                                                                           
1466  $DEF STBGDBB25=$FLG(G,STBGDBB15G,$FLG(N,STBGDBB21,STBGDBB25S))
1467
1468  # BAHNHOF DEUTSCHLAND E6;
1469
1470  $DEF STBGDBB26O=SKY,BG_FOREST1,CITYBGE5,BFHLBGE6,PLFHLBGE6B,TRKES,[FG>=;2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]                                   
1471  $DEF STBGDBB26H=STMOD,STBGDBB26O
1472    
1473  $DEF STBGDBB26S=$FLG(O,STBGDBB26O,STBGDBB26H)                                                                           
1474  $DEF STBGDBB26=$FLG(G,STBGDBB16G,$FLG(N,STBGDBB21,STBGDBB26S))
1475
1476  #--------------------------------------------------------------------------------------------------#
1477   
1478  # BW Dampf Nebenbahn Deutschland E2
1479   $DEF STBGDBW22S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],                                     \
1480       [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0;                      \
1481       BOCK4,150,WUE_G10TBT,DRG_O10J1,DRG_O_NUR_VBHL,200,DRG_CIGDPR91,1700:,0;                            \
1482       30,WATERCOLUMNDB,120,DRG_744ML,50,D_COAL(4|10),110,DRG_931186L[O:D_SAND,50,0],80,                  \
1483       D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;7*(LAMP23,200),:,0;],(TRKGS|TRKDW),              \
1484       [FG+=WATERCOLUMN03:50+500,-4;]
1485   $DEF STBGDBW22=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW22S))
1486
1487  # BW Nebenbahn Deutschland DB E3
1488   $DEF STBGDBW23S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],                                     \
1489       [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0;                      \
1490       BOCK4,150,DB_3B_OM12UL,DB_3A_O10,200,DB_3B_BAU2,500:,0;                                            \
1491       D_TANK3,15,DB_3B_VT95_S1L,DB_3B_VB142001L,30,WATERCOLUMNDB,120,                                    \
1492       DB_64_106[BT:55,44,48,14,99,43,2,1,92,43,2,1][OT:BSOD,0,0],50,D_COAL(4|10),110,                    \
1493       DB_3B931097[O:D_SAND,50,0],80,D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;                   \
1494       7*(LAMP23,200),:,0;],(TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1495   $DEF STBGDBW23=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW23S))
1496    
1497  # BW Nebenbahn Deutschland DB E4
1498   $DEF STBGDBW24S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],                                     \
1499       [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0;                      \
1500       BOCK4,150,DB_4A_GLM200,30,DB_BAU4G3,DB_MD4IE_GER2L,500:,0;                                         \
1501       D_TANK3,15,DB_4_998_2,DB_4_798_F2,30,WATERCOLUMNDB,120,                                    \
1502       DB_4_332092,110,                   \
1503       DB_4_211RL,D_SAND,80,D_LOKSCH(5|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;                      \
1504       7*(LAMP23,200),:,0;],TRKGS|TRKDW
1505   $DEF STBGDBW24=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW24S))
1506    
1507  # BW Nebenbahn Deutschland DR E3
1508   $DEF STBGDBW53S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],                                     \
1509       [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0;                      \
1510       BOCK4,150,DR_3PWGS56L,200,DR_3_G05L,500:,0;                                                \
1511       DR_3_931024,30,WATERCOLUMNDB,120,                                  \
1512       DR_553644,50,D_COAL(4|10),110,                     \
1513       DR_64_007[O:D_SAND,50,0],80,D_LOKSCH(5|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;                       \  
1514       7*(LAMP23,200),:,0;],(TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1515   $DEF STBGDBW53=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW53S))
1516    
1517  # BW Nebenbahn Deutschland DR E4
1518   $DEF STBGDBW54S=SKY,BG_GREEN1,BG_FOREST1,[BG<=D_LANDROW;],                                     \
1519       [BG<=TREES_SUMMER,1-50*2,:..,0,#;30*WALL18(|[M]),:,-12;D_WAREHOUSE1:50+670,0;                      \
1520       BOCK4,150,DR_4SHZ1,DR_4BAAI,500:,0;                                                \
1521       D_TANK3,15,DR_4A_VB971606,DR_4A_VT171006,30,WATERCOLUMNDB,120,                                     \
1522       DR_110K,50,D_COAL(4|10),110,                       \
1523       DR_4_861460L[O:D_SAND,50,0],80,D_LOKSCH(5|8|2_1),150,STELLWERK5,150,H_ORHAZ4,:,0;                  \
1524       7*(LAMP23,200),:,0;],(TRKGS|TRKDW),[FG+=WATERCOLUMN03:50+500,-4;]
1525   $DEF STBGDBW54=$FLG(G,STBGDBB21,$FLG(N,STBGDBB21,STBGDBW54S))
1526    
1527    
1528  #--------------------------------------------------------------------------------------------------#
1529
1530
1531  # Gross-BW Dampf Deutschland E2
1532  $DEF STBGDBW12S=SKY,BG_GREEN1,BG_FOREST1,                                                               \
1533      [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,  \
1534      250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,     \
1535      150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#;           \
1536      40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0;                                        \
1537      WUE_TBTKRANL,DRG_8970M,30,WATERCOLUMNDB,200,WATERCOLUMNDB,120,D_RINGLOK1A,                          \
1538      D_RINGLOK1B[O:DRG_553100A,287,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0;                    \
1539      1800,DRG_94959L[O:D_SAND,50,0],100,                                                                 \
1540      D_COAL7[OB:D_COAL6,24,0][O:DRG_381340L,92,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60,      \
1541      STELLWERK10:,0;1200,BOCK4,350,DRG_OOT8,350,DRG_CIGDPR91L:,0; 9*(LAMP23,200),:,0;],TRKGS|TRKDW
1542  $DEF STBGDBW12=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW12S))
1543
1544  # Gross-BW Dampf Deutschland DB E3
1545  $DEF STBGDBW13S=SKY,BG_GREEN1,BG_FOREST1,                                                               \
1546      [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,  \
1547      250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,     \
1548      150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#;           \
1549      40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0;                                        \
1550      D_TANK3,DB_3V200001,30,WATERCOLUMNDB,200,WATERCOLUMNDB,120,D_RINGLOK1A,                             \
1551      D_RINGLOK1B[O:DB_3B01159,275,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0;                     \
1552      1800,DB_3B23100L[O:D_SAND,50,0],100,                                                                \
1553      D_COAL7[OB:D_COAL6,24,0][O:DB_50_2640L,72,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60,      \
1554      STELLWERK10:,0;1400,BOCK4,150,DB_3B_OM12UL,DB_3A_O10,200,DB_3B_BAU2:,0; 9*(LAMP23,200),:,0;],       \
1555      TRKGS|TRKDW
1556  $DEF STBGDBW13=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW13S))
1557   
1558  # Gross-BW Dampf Deutschland DR E3
1559  $DEF STBGDBW43S=SKY,BG_GREEN1,BG_FOREST1,                                                               \
1560      [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,  \
1561      250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,     \
1562      150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#;           \
1563      40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0;                                        \
1564      DR_3_01018,30,WATERCOLUMNDB,20,DR_3A83_1001,80,WATERCOLUMNDB,120,D_RINGLOK1A,                               \
1565      D_RINGLOK1B[O:DR_43010L,275,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0;                      \
1566      1800,DR_22_001_1968L[O:D_SAND,50,0],100,                                                            \
1567      D_COAL7[OB:D_COAL6,24,0][O:DR_58_411[BT:23,46,141,12],102,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60,      \
1568      STELLWERK10:,0;1400,BOCK4,150,DR_3_OMU37VBBL,DR_3PWGS56L,200,DR_3_G05L:,0; 9*(LAMP23,200),:,0;],    \
1569      TRKGS|TRKDW
1570  $DEF STBGDBW43=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDBB21,STBGDBW43S))
1571   
1572  # Gross-BW Dampf Deutschland DR E4
1573  $DEF STBGDBW44S=SKY,BG_GREEN1,BG_FOREST1,[W=X],                                                                 \
1574      [BG<=FACT23,110,D_MINE01C[BT:62,115,256,],150,FACT15_1,200,D_FABRIK01_3,D_FABRIK01_2,250,J_FACT02,  \
1575      250,FACT28_1,180,FACT31,FACT32,200,FACT05_1,280,NL_SPOORZICHT_1,150,FACT24_1,100,NL_BRICKYARD2,     \
1576      150,FACT14_1,FACT03D,FACT02A,FACT02B,200,10,I_SOTSTAZELE2,20:..,-5,#;TREES_SUMMER:..,0,#;           \
1577      40*WALL18(|[M]),:,-12;FACT23,100,WASSERTURM_KOETHEN,3000:,0;                                        \
1578      D_TANK3,DR_120_366L,30,WATERCOLUMNDB,30,DR_102_125L,80,WATERCOLUMNDB,120,D_RINGLOK1A,                               \
1579      D_RINGLOK1B[O:DR_4_242_008,295,0][O:D_DREHSCHEIBE,280,0],D_RINGLOK1C,1100,500:,0;                   \
1580      1800,DR_4_411144[O:D_SAND,50,0],100,                                                                \
1581      D_COAL7[OB:D_COAL6,24,0][O:DR_4_528040,72,0][O:D_COAL8,34,0][O:D_COAL5,199,0],150,H_ORHAZ4,60,      \
1582      STELLWERK10:,0;1400,BOCK4,150,DR_4KRANB,DR_4SHZ1:,0; 9*(LAMP23,200),:,0;],  \
1583      TRKGS|TRKDW,[FG+=2*FL_DRQT,FL_DRQB,2*FL_DRQT,FL_DRQA,2*FL_DRQT:..,-4;]
1584  $DEF STBGDBW44=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDBB21,STBGDBW44S))
1585
1586  #--------------------------------------------------------------------------------------------------#
1587
1588  # Gross-BW E-Lok Deutschland DB E3
1589  $DEF STBGDBW33S=SKY,BG_GREEN1,BG_FOREST1,[W=X],                                                 \
1590      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1591      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-5,#;                                                \
1592      FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150,         \
1593      FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-5,#;TREES_SUMMER:..,0,#;                     \
1594      40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0;                                                  \
1595      D_TANK3,DB_3V200001,30,DB_V36_2L,50,166[O:DB_E10259,0,0][OT:DB_41JHPD,18,40][O:BSOD,0,0],40,        \
1596      165[O:DB_E403G,0,0][BT:111,44][OT:DB_41JHPD,112,42],200,D_LOKSCH7_1,300,D_BW02_1,50,D_RB_B1,60,     \
1597      STELLWERK16,:,0;1400,BOCK4,150,DB_VT08_5AL,DB_VM08_5L,DB_VT08_5B|DB_VS08_5:,0; 9*(LAMP23,200),:,0;], \
1598      TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1599  $DEF STBGDBW33=$FLG(G,STBGDE0(1|2|3)T,$FLG(N,STBGDE0(1|2|3)T,STBGDBW33S))
1600
1601  # Gross-BW E-Lok Deutschland DB E4
1602  $DEF STBGDBW34S=SKY,BG_GREEN1,BG_FOREST1,[W=X],                                                 \
1603      [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,   \
1604      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1605      STORE03:..,-5,#;                                            \
1606      D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,               \
1607      INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1608      STORE02,280:..,-5,#;TREES_SUMMER:..,0,#;                    \
1609      40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0;                                                  \
1610      D_TANK3,SHELTER_001,40,DB_4_212R3L,30,DB_4_216013L[O:DB_O216AN,62,18][O:DB_O216RL,64,20],50,195[O:DB_4_103105L,0,0]\
1611      [OT:DB_103PDS,18,40][OT:DB_103PDS,139,40],\
1612    40,195[O:DB_4_150042,0,0][OT:DB_E41PD,20,42][OT:DB_E41PD,137,42],100,DEPOT3_1,230,DEPOT2_1,50,D_RB_B1,60,RU_SENTRYBOX01,:,0;\
1613    700,BOCK4,150,DB_4_332R,50,DB_BAU4G,DB_4BAU5,DB_4BAU7,50,BR515~LIP,BR815~LIP:,0; 9*(LAMP23,200),:,0;], \
1614      TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1615  $DEF STBGDBW34=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW34S))
1616
1617
1618
1619  # Gross-BW E-Lok Deutschland DB E5
1620  $DEF STBGDBW35S=SKY,BG_GREEN1,BG_FOREST1,[W=X],                                                 \
1621      [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,   \
1622      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1623      STORE03:..,-5,#;                                                                                    \
1624      D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,INDUSTRY01,    \
1625      300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,STORE02,280:..,    \
1626      -5,#;TREES_SUMMER:..,0,#; 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0;                        \
1627      D_TANK3,SHELTER_001,40,DBAG_5_232(051|477)(|L),30,DBAG_5_216(025A|034A)(|L),50,                     \
1628      167[O:DB_5_112_147L,0,0][OT:DB_103E1,21,42],40,                                                     \
1629      197[O:DB_155_214,0,0][OT:DBAG_140774_PAN,18,43],100,DEPOT3_1,230,DEPOT2_1,50,               \
1630      D_RB_B1,60,RU_SENTRYBOX01,:,0;                                                                      \
1631      700,BOCK4,150,(DB_365132S[OT:#AKRW3,100,5][OT:AKRW3,0,5][OT:PRESS_363028O,18,4][O:DBAG_LW,44,22])|\
1632      (DB_4_365221SL[OT:#AKRW3,100,5][OT:AKRW3,0,5][OT:ESG_363OL,25,8][O:DBAG_LW,57,23]),50,\
1633      DB_610_015_515:,0;                  \
1634      9*(LAMP23,200),:,0;],TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1635  $DEF STBGDBW35=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW35S))
1636
1637
1638  # Gross-BW E-Lok Deutschland DB E6
1639  $DEF STBGDBW36S=SKY,BG_GREEN1,BG_FOREST1,[W=X],                                                 \
1640      [BG<=INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,   \
1641      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1642      STORE03:..,-5,#;                                                                                    \
1643      D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,INDUSTRY01,    \
1644      300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,STORE02,280:..,-5, \
1645      #;;TREES_SUMMER:..,0,#; 40*WALL18(|[M]),:,-12;D_BW01_1,100,FACT31,3000:,0;                          \
1646      D_TANK6,,SHELTER_001,40,DBAG_218182U,30,DBAG_363649AL,50,                                           \
1647      168[O:DBAG_111_003,0,0][O:DB_LNRUICK,76,13][B:79,12,9,1,#606060][OT:DBAG_140RZPD,23,41],40,         \
1648      191[O:DBAG_101_003,0,0][O:DB_LNRUICR,88,15][B:91,14,9,1,#C01428][OT:RAI_185_142P2,38,42],200,       \
1649      DEPOT3_1,300,DEPOT2_1,50,D_RB_B1,60,RU_SENTRYBOX01,:,0;1100,BOCK4,150,DBAG_425R,:,0;                \
1650      9*(LAMP23,200),:,0;],TRKGS|TRKDW,[FG+=2*FL_DBQT,FL_DBQB,2*FL_DBQT,FL_DBQA,2*FL_DBQT:..,-4;]
1651  $DEF STBGDBW36=$FLG(G,STBGDE0(1|2|3)O,$FLG(N,STBGDE0(1|2|3)O,STBGDBW36S))
1652
1653  #--------------------------------------------------------------------------------------------------#
1654  # Gebirge-Schweiz
1655
1656  # Wald Nadelbaum Gebirge-Schweiz
1657  $DEF STBGFN=BGNORD1,[BG<=20*(10|3|7|TREE12|TREE91|TREE108|TREE109|TREE55|TREE56|BUSH17):..,0;],TRKWD,   \
1658      TRKDW
1659
1660
1661  # Bahnhof Schweiz Großstadt 5
1662  $DEF STBGCHB15O=SKY,BG_FOREST1,                                                                 \
1663      [BG<=BGCITYDA1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYAU2:..,0,#;            \
1664      50*SWALL1B,1000,50*SWALL1B,1000,:,-2; A_LANDL|NL_AMERSFOORT_NCS[O:CH_STMORITZ6,246,40]:,8;          \
1665      CH_TICKETAUTOMAT1,200,CH_TICKETAUTOMAT1,:,8;                                                        \
1666      CH_STMORITZ6S,540,CH_TICKETAUTOMAT1,500,CH_TICKETAUTOMAT1,460,CH_STMORITZ6S,:,8; BGPLATT1800CH:,8;  \
1667      PLF_CZ01,PLF_CZ13A,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05[BT:28,35,36,9][O:CH_STMORITZ6,37,39],        \
1668      PLF_CZ04,PLF_CZ05[BT:28,35,36,9][O:CH_STMORITZ6,37,39],PLF_CZ03,PLF_CZ08,PLF_CZ13,PLF_CZ10,         \
1669      PLF_CZ14 :,-2;],TRKES          
1670  $DEF STBGCHB15H=STMOD,STBGCHB15O
1671  $DEF STBGCHB15=$FLG(O,STBGCHB15O,STBGCHB15H);                                                                           
1672      
1673  # Kleinstadt 5
1674  $DEF STBGCHB25O=BGNORD1,                                                                                \
1675      [BG<=BGCITYAU3:..,0,#; TREES_COLD,:..,0,#;BGCITYAU3:..,0,#;                                         \
1676      (A_WEIZELSDORF1[O:A_GRIESIMPINSGAU6,103,25])|(A_FERLACH[O:A_GRIESIMPINSGAU6,31,27])|RHB_ZIZERS,:,8; \
1677      CH_TICKETAUTOMAT1,200,:,8;                                                                          \
1678      CH_STMORITZ6S,340,CH_TICKETAUTOMAT1,300,CH_TICKETAUTOMAT1,360,CH_STMORITZ6S,:,5;                    \
1679      PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5;BGPLATT1400CH:,+5;                                        \
1680      PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;],TRKES   
1681  $DEF STBGCHB25H=STMOD,STBGCHB25O
1682  $DEF STBGCHB25=$FLG(O,STBGCHB25O,STBGCHB25H);                                                                           
1683
1684  #--------------------------------------------------------------------------------------------------#
1685  # Österreich
1686
1687  # Strecke Alpen Winter
1688  $DEF STBGATS01=[BG-=(BgHs/BG_Austria01.jpg:..,-10,<=>;BG_GRAS1W:..,^-5,<=>;)],TRKDS
1689  $DEF STBGATS02=[BG-=(BgHs/BG_Winter01.jpg:..,0,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
1690  # Bahnhof Großstadt 5     
1691
1692  # Strecke Alpen/Voralpen 
1693  # Telegrafenleitung bis E3
1694  $DEF STBGATS03T=[BG-=BgHs/BG_alpen2.jpg:..,0,<=>,326,5821;CABLE5:..,0;],TRKDHB
1695  # ab E4
1696  $DEF STBGATS03O=[BG-=BgHs/BG_alpen2.jpg:..,0,<=>,326,5821;],TRKDHB
1697
1698
1699  $DEF STBGAT15O=SKY,BG_FOREST1,                                                                  \
1700      [BG<=BGCITYDA1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYAU2,:..,0,#;           \
1701      A_LANDL|NL_AMERSFOORT_NCS[O:A_GRIESIMPINSGAU6,226,40],:,8; J_TICKET,200,J_TICKET,:,8;               \
1702      A_GRIESIMPINSGAU6,540,J_TICKET,500,J_TICKET,460,A_GRIESIMPINSGAU6,:,8; BGPLATT1800CH,:,8;           \
1703      PLF_CZ01,PLF_CZ13A,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05[BT:28,35,36,9][O:A_GRIESIMPINSGAU6,20,39],   \
1704      PLF_CZ04,PLF_CZ05[BT:28,35,36,9][O:A_GRIESIMPINSGAU6,20,39],PLF_CZ03,PLF_CZ08,PLF_CZ13,PLF_CZ10,    \
1705      PLF_CZ14,:,-2;],TRKES
1706  $DEF STBGAT15H=STMOD,STBGAT15O
1707  $DEF STBGAT15=$FLG(O,STBGAT15O,STBGAT15H);                                                                              
1708
1709  # Kleinstadt 3
1710  $DEF STBGAT23O=BGNORD1,                                                                         \
1711      [BG<=BGCITYAU3:..,0,#; TREES_COLD,:..,0,#;BGCITYAU3:..,0,#;                                         \
1712      (A_WEIZELSDORF1[O:D_AMSDORF,113,25])|A_UEBELBACH|(A_FERLACH[O:D_AMSDORF,41,27])|RHB_ZIZERS,:,8;                     \
1713      D_AMSDORFS,1000,D_AMSDORFS,:,5;1000,WATERCOLUMN02:,0; PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5;    \
1714      BGPLATT1400A:,+5; PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;],TRKES
1715  $DEF STBGAT23H=STMOD,STBGAT23O
1716  $DEF STBGAT23=$FLG(O,STBGAT23O,STBGAT23H);                                                                              
1717
1718  # Kleinstadt 5
1719  $DEF STBGAT25O=BGNORD1,                                                                         \
1720      [BG<=BGCITYAU3:..,0,#; TREES_COLD,:..,0,#;BGCITYAU3:..,0,#;                                         \
1721      (A_WEIZELSDORF1[O:A_GRIESIMPINSGAU6,103,25])|A_WAIDOFEN|A_BHF1[O:A_GRIESIMPINSGAU6,211,29]|A_LANDL|A_MU_STOLZALPE[B:167,41,37,9][O:A_GRIESIMPINSGAU6,174,42]|(A_FERLACH[O:A_GRIESIMPINSGAU6,31,27])|RHB_ZIZERS,:,8; \
1722      J_TICKET,200,:,8; A_GRIESIMPINSGAU6S,340,J_TICKET,300,J_TICKET,360,A_GRIESIMPINSGAU6S,:,5;          \
1723      PLF_NORTES4,4*PLF_NORTES1,PLF_NORTES3:,-5;BGPLATT1400A:,+5; PLF_NL1A,12*PLF_NL(5|2),#PLF_NL1A,:,-7;], \
1724      TRKES    
1725  $DEF STBGAT25H=STMOD,STBGAT25O
1726  $DEF STBGAT25=$FLG(O,STBGAT25O,STBGAT25H);                                                                              
1727      
1728  #--------------------------------------------------------------------------------------------------#
1729  # Großbritannien
1730                                                                        
1731  # Strecke
1732  $DEF STBGGB01=[BG-=BgHs/BG_BRIT01.jpg:..,-10,<=>;],TRKDH
1733  $DEF STBGGB02=[BG-=BgHs/BG_BRITAIN02.jpg:..,-0,<=>;],TRKDHB  
1734  $DEF STBGGB03=[BG-=BgHs/BG_BRITAIN03.jpg:..,0,<=>;],TRKDHB
1735  $DEF STBGGB04=[BG-=BgHs/BG_BRITAIN04.jpg:..,-30,<=>;],TRKDHB
1736  $DEF STBGGB05=[BG-=BgHs/BG_BRITAIN05.jpg:..,0,<=>,38,2630;],TRKDHB
1737
1738  # Bahnhof E 3
1739  $DEF STBGGBB13O=SKY,BG_FOREST1,                                                                 \
1740      [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#;                                \
1741      (NL_MEPPEL[O:GB_WATCHET3,230,25])|(NL_DELFZIJL[O:GB_WATCHET3,342,54]),:,8; 1000,WATERCOLUMN02:,-4;  \
1742      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8; GB_WATCHET3S,1100,GB_WATCHET3S,:,8;                \
1743      BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1744  $DEF STBGGBB13H=STMOD,STBGGBB13O
1745  $DEF STBGGBB13=$FLG(O,STBGGBB13O,STBGGBB13H);                                                                           
1746
1747  # Bahnhof E 4
1748  $DEF STBGGBB14O=SKY,BG_FOREST1,                                                                 \
1749      [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#;                                \
1750      (NL_MEPPEL[O:GB_BLENCOW3,235,27])|(NL_DELFZIJL[O:GB_BLENCOW3,342,52]),:,8;                          \
1751      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8; GB_BLENCOW3S,1100,GB_BLENCOW3S,:,8;                \
1752      BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1753  $DEF STBGGBB14H=STMOD,STBGGBB14O
1754  $DEF STBGGBB14=$FLG(O,STBGGBB14O,STBGGBB14H);                                                                           
1755
1756  # Bahnhof E 5/6
1757  $DEF STBGGBB15O=SKY,BG_FOREST1,                                                                 \
1758      [BG<=BGCITYGB1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYGB2:..,0,#;                                \
1759      (NL_MEPPEL[O:GB_AUBURN6,236,23])|(NL_DELFZIJL[O:CH_STMORITZ6,342,48]),:,8;                          \
1760      J_TICKET,200,J_TICKET,:,8;(0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,8;                          \
1761      GB_AUBURN6S,410,J_TICKET,300,J_TICKET,410,GB_AUBURN6S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
1762  $DEF STBGGBB15H=STMOD,STBGGBB15O
1763  $DEF STBGGBB15=$FLG(O,STBGGBB15O,STBGGBB15H);                                                                           
1764
1765
1766
1767  #--------------------------------------------------------------------------------------------------#
1768  #  Irland
1769  # Strecke
1770  $DEF STBGIR01=[BG-=BgHs/BG_EIRE01.jpg:..,0,<=>,0,1965;],TRKDHB
1771  $DEF STBGIR02=[BG-=BgHs/BG_EIRE02.jpg:..,-10,<=>;],TRKDHB  
1772
1773  #--------------------------------------------------------------------------------------------------#
1774  #  Frankreich
1775  # Strecke
1776  $DEF STBGFRS1=[BG-=BgHs/F_BURGUNDY1.JPG:..,-10,<=>,28,1800;],EMBG,TRKDH
1777  $DEF STBGFRS2=[BG-=BgHs/F_PROV1.JPG:..,,<=>,259,2295;],TRKLO
1778  #E1-3
1779  $DEF STBGFRS3T=[BG-=BgHs/BG_FRANCE01.jpg:..,-35,<=>;CABLE5:..,0;],TRKDHB
1780  #E4-6
1781  $DEF STBGFRS3O=[BG-=BgHs/BG_FRANCE01.jpg:..,-35,<=>;],TRKDHB
1782  #03 auch A,SK,D,F,BE,L,PL  E1-6
1783  $DEF STBGFRS4=[BG-=BgHs/BG_FRANCE02.JPG:..,-60,<=>;],TRKDHB
1784
1785  # Landbahnhof 
1786
1787  # Hintergrund 
1788  $DEF CITYBGFD=[BG<=F_VILLAGE02,F_VILLAGE03:..,0,#; (1-40*1),TREES_SUMMER:..,0,#; F_VILLAGE01,(150-300)*1,#F_VILLAGE03:..,0,#;]                          \
1789   
1790  $DEF BG_GAREVIL=[BG<=F_SENS[O:$1,*215,^42]|F_VILLENEUVE1[O:$1,*110,^35]|(F_STATION04C,100,F_STATION04A,150,F_STATION04B)|       \
1791      F_STATION02_3[O:$1,*78,^43]|F_STATION03[O:$1,*157,^35]|             \
1792      F_VILLENEUVE2[B:12,32,36,8][O:$1,*134,^39]|F_BUSSANG[O:$1,*98,^68];]
1793
1794  $DEF STBGFRB231O=SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_CANFRANC3),            \
1795      [BG<=F_CANFRANC3S,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30,      \
1796      LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_CANFRANC3S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),    \
1797      [FG+=WATERCOLUMN02:50+500,-4;]
1798  $DEF STBGFRB231H=STRMOD,STBGFRB231O
1799  $DEF STBGFRB232O=SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_QUIBERON),             \
1800      [BG<=F_QUIBERONS,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30,       \
1801      LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_QUIBERONS:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),     \
1802      [FG+=WATERCOLUMN02:50+500,-4;]
1803  $DEF STBGFRB232H=STRMOD,STBGFRB232O
1804  $DEF STBGFRB233O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_EPINAL),                \
1805      [BG<=F_EPINALS,10,BANK01,20,J_TICKET,30,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP09,30,BGPASS1,70,BGPASS1,30,BANK01,30, \
1806      LAMP09,50,BGPASS1,40,PERS01,10,BGPASS1,20,J_TICKET,30,F_EPINALS:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW),       \
1807      [FG+=WATERCOLUMN02:50+500,-4;]
1808  $DEF STBGFRB233H=STRMOD,STBGFRB233O
1809  $DEF STBGFRB23O=STBGFRB23(1|2|3)O
1810  $DEF STBGFRB23H=STBGFRB23(1|2|3)H
1811  $DEF STBGFRB23=$FLG(O,STBGFRB23O,STBGFRB23H);                                                                           
1812  $DEF STBGFRB24O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_CHATELLERAULT),          \
1813      [BG<=F_CHATELLERAULTS,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP01,30,BGPASS1,70,BGPASS1,30,BANK01,30,      \
1814      LAMP01,50,BGPASS1,40,PERS01,10,BGPASS1,50,F_CHATELLERAULTS:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW)
1815  $DEF STBGFRB24H=STRMOD,STBGFRB24O
1816  $DEF STBGFRB24=$FLG(O,STBGFRB24O,STBGFRB24H);
1817  $DEF STBGFRB26O=STRMOD,SKY,BG_GREEN1,BG_FOREST1,CITYBGFD,$BG_GAREVIL(F_BOUZONVILLE6),           \
1818      [BG<=F_BOUZONVILLE6S,10,BANK01,55,BGPASS1,60,BGPASS1,60,PLF_J2D,50,LAMP01,30,BGPASS1,70,BGPASS1,30,BANK01,30,       \
1819      LAMP01,50,BGPASS1,40,PERS01,10,BGPASS1,50,F_BOUZONVILLE6S:,5;PLF2EL,12*PLF2P,PLF2E:,-4;],(TRKGS|TRKDW)
1820  $DEF STBGFRB26H=STRMOD,STBGFRB26O
1821  $DEF STBGFRB26=$FLG(O,STBGFRB26O,STBGFRB26H);                                                                           
1822
1823  # Bahnhof  Großstadt
1824  # E3
1825  $DEF STBGFRB131O=SKY,BG_FOREST1,                                                                        \
1826      [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_CHARLEVILLE[OT:F_CANFRANC3,423,52][OT:F_CANFRANC3,115,52][OT:F_CANFRANC3,732,52],:,8;         \
1827      PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,  \
1828      -6;F_CANFRANC3,500,F_CANFRANC3,:,37;                                                                \
1829      BGPASS1,16,F_CANFRANC3S,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER,26,    \
1830      BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D,25,  \
1831      BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30,B_SHELTER,26,BGPASS1,     \
1832      35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CANFRANC3S,12,PERS01,20,PERS03:,8;],$BG_PLF1(18),TRKES
1833  $DEF STBGFRB132O=SKY,BG_FOREST1,                                                                        \
1834      [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_STATION02_2[OT:F_QUIBERON,206,36]:,8;         \
1835      PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,  \
1836      -6;F_CANFRANC3,500,F_CANFRANC3,:,37;                                                                \
1837      BGPASS1,16,F_QUIBERONS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER,26,     \
1838      BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D,25,  \
1839      BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,15,BANK04,30,B_SHELTER,26,BGPASS1,     \
1840      35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_QUIBERONS,12,PERS01,20,PERS03:,8;],$BG_PLF1(18),TRKES
1841  $DEF STBGFRB13O=STBGFRB13(1|2)O
1842  $DEF STBGFRB13H=STMOD,STBGFRB13O
1843  $DEF STBGFRB13=$FLG(N,STBGFRB23,$FLG(O,STBGFRB13O,STBGFRB13H));                                                                         
1844
1845  # E4
1846  $DEF STBGFRB14O=SKY,BG_FOREST1,                                                                 \
1847      [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_CHARLEVILLE[OT:F_CHATELLERAULT,423,52][OT:F_CHATELLERAULT,115,52][OT:F_CHATELLERAULT,732,52],:,8;                                                             \
1848      PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,  \
1849      -6;F_CHATELLERAULT,480,F_CHATELLERAULT,:,38;                                                                \
1850      BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER,26,\
1851      BGPASS1,25,PASG03,10,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1,11,   \
1852      PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,16,BGPASS1,15,BANK04,        \
1853      10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CHATELLERAULTS,12,PERS01,20, \
1854      PERS03,:,8;],$BG_PLF1(18),TRKES  
1855  $DEF STBGFRB14H=STMOD,STBGFRB14O
1856  $DEF STBGFRB14=$FLG(N,STBGFRB24,$FLG(O,STBGFRB14O,STBGFRB14H))                                                                          
1857
1858  #  E5
1859  $DEF STBGFRB15O=SKY,BG_FOREST1,                                                                 \
1860      [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#;F_STATION02_2[OT:F_CHATELLERAULT,206,36]:,8;                                                            \
1861      PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,  \
1862      -6;F_CHATELLERAULT,480,F_CHATELLERAULT,:,38;                                                                \
1863      BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER,26,\
1864      BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,DUSTBIN1,11,  \
1865      PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,J_TICKET,16,BGPASS1,15,BANK04,       \
1866      10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CHATELLERAULTS,12,PERS01,20, \
1867      PERS03,:,8;],$BG_PLF1(18),TRKES  
1868  $DEF STBGFRB15H=STMOD,STBGFRB15O
1869  $DEF STBGFRB15=$FLG(N,STBGFRB25,$FLG(O,STBGFRB15O,STBGFRB15H))                                                                          
1870
1871  #  E6
1872  $DEF STBGFRB16O=SKY,BG_FOREST1,                                                                 \
1873      [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#;F_VILLENEUVE3[OT:F_PANTIN,73,30],50,\
1874      F_VILLENEUVE4[SM:0.7]:,8;F_BOUZONVILLE6,480,F_BOUZONVILLE6,:,38;\
1875      BGPASS1,16,F_PANTINS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,B_SHELTER,26,       \
1876      BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,WALL22B[BC:-20,20][BT:,10][B:0,10,84,1,#842],30,PASG01,25,BGPASS1,DUSTBIN1,11, \
1877      PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,J_TICKET,16,BGPASS1,15,BANK04,       \
1878      30,B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_PANTINS,12,PERS01,20,  \
1879      PERS03,:,8;19*PLF_5D,:,0;#PLF_D01B,10*PLF_D01C,PLF_D01B,:,0;],TRKES      
1880  $DEF STBGFRB16H=STMOD,STBGFRB16O
1881  $DEF STBGFRB16=$FLG(N,STBGFRB26,$FLG(O,STBGFRB16O,STBGFRB16H))                                                                          
1882      
1883  # Güterbahnhof    
1884  # E3-5
1885  $DEF STBGFG3=SKY,BG_GREEN1,                                                                             \
1886      [BG<=FACT21_1,50,FACT05_2,FACT05_1,60,STORE02,150,I_SOTSTAZELE2,NL_SPOORZICHT_1,80,FACT24_1,90,     \
1887      D_FABRIK01_2,D_FABRIK01_1,100,NL_BRICKYARD2:..,-10,#;                                               \
1888      FACT24_1,90,D_FABRIK01_2,D_FABRIK01_1,100,NL_SPOORZICHT_1,80,NL_BRICKYARD2,200,STORE02,150,         \
1889      FACT05_2,FACT05_1,60,FACT21_1,50,I_SOTSTAZELE2,200:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+;     \
1890      (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;                 \
1891      D_DEFUNC_1|D_GSCH01_1,30,A_FRUTIGEN1,30,D_BW02_1,20,WATERTOWER11,80,WATERCOLUMN05:..,0,#;],EMBS,TRKES
1892      
1893
1894  # E4-6
1895  $DEF STBGFG4=SKY,BG_GREEN1,                                                                             \
1896      [BG<=D_SILO02,200,US_TIMS2,300,J_FACT02,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,STORE03,          \
1897      INDUSTRY01,300,3*STORAGESHED,350,J_FACT03,250,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1898      STORE02,280:..,-10,#;                                                                               \
1899      INDUSTRY01,300,J_FACT03,250,3*STORAGESHED,350,D_STERNQUELL3,D_STERNQUELL2,D_STERNQUELL1,150,        \
1900      STORE02,280,D_SILO02,300,J_FACT02,200,US_TIMS2,350,J_FACT01,US_PLANT43_1,US_PLANT42C,250,           \
1901      STORE03:..,-10,#; (3:0|2:1|1:2)*(Vegetation):0-100+; (2:1|1:2)*(Vegetation|Vegetation[M]):0-100+;   \
1902      BUSH20:10-45+,-8; 0|1*BUSH20:35-80+,-8;                                                             \
1903      WALL_UF5,WALL_UF7,WALL_UF2,WALL_UF8,WALL_UF4,WALL_UF1,15,D_BAIERSBRONN3,30,F_POSTE1|F_VILLENEUVE4:..,0,#;], \
1904      EMBS,TRKES     
1905
1906
1907  #--------------------------------------------------------------------------------------------------#
1908  #  Belgien
1909
1910  #Strecke
1911  $DEF STBGBE01=[BG-=BgHs/BG_BELGIUM01.jpg:..,0,<=>,;],TRKDW
1912  $DEF STBGBE02=[BG-=BgHs/BG_BELGIUM03.jpg:..,0,<=>,50,1900;],TRKDHB
1913
1914  #  Bahnhof E 3/4
1915  $DEF STBGBEB14O=SKY,BG_FOREST1,                                                                 \
1916      [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#;           \
1917      RO_BUZAU3[B:368,28,23,2,#787080][OT:B_GENT6,361,36],:47,3;1000,WATERCOLUMN02:,0;                    \
1918      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31;                         \
1919      B_GENT6,480,B_GENT6,:,42; B_GENT6S,1450,B_GENT6S,:,8;BGPLATT1800H,:,8; ],$BG_PLF1(16),TRKES  
1920  $DEF STBGBEB14H=STMOD,STBGBEB14O
1921  $DEF STBGBEB14=$FLG(O,STBGBEB14O,STBGBEB14H);                                                                           
1922      
1923
1924  #  Bahnhof E 5/6
1925  $DEF STBGBEB15O=SKY,BG_FOREST1,                                                                 \
1926      [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#;           \
1927      RO_BUZAU3[B:368,28,23,2,#787080][OT:B_GENT6,361,36],:,8;                                            \
1928      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31;                         \
1929      B_GENT6,480,B_GENT6,:,42; B_GENT6S,1450,B_GENT6S,:,8;J_TICKET,200,J_TICKET,:,8;                     \
1930      J_TICKET,500,J_TICKET,:,8;BGPLATT1800H,:,8;],$BG_PLF1(16),TRKES
1931  $DEF STBGBEB15H=STMOD,STBGBEB15O
1932  $DEF STBGBEB15=$FLG(O,STBGBEB15O,STBGBEB15H);                                                                           
1933
1934  #--------------------------------------------------------------------------------------------------#
1935  #  Luxemburg
1936
1937  #Strecke E 1-3
1938  $DEF STBGLU01T=[BG-=BgHs/BG_LUX01.jpg:..,-40,<=>;CABLE5:..,0;],TRKDH
1939  #Strecke E 4-6
1940  $DEF STBGLU01O=[BG-=BgHs/BG_LUX01.jpg:..,-80,<=>;],TRKDH
1941
1942  #  Bahnhof E 5/6
1943  $DEF STBGLUB15O=SKY,BG_FOREST1,                                                                 \
1944      [BG<=BGCITYDA1|BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDA2|BGCITYNL2,:..,0,#;           \
1945      RO_CARANSEBES[B:612,44,35,7,#0F2169][OT:L_LUXEMBURG6,620,45],:,8;1000,WATERCOLUMN02:,0;             \
1946      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;B_GENT6,400,B_GENT6,:,31;                         \
1947      L_LUXEMBURG6,480,L_LUXEMBURG6,:,42; L_LUXEMBURG6S,1450,L_LUXEMBURG6S,:,8;                           \
1948      J_TICKET,200,J_TICKET,:,8; J_TICKET,500,J_TICKET,:,8;BGPLATT1800H,:,8;],$BG_PLF1(16),TRKDH
1949  $DEF STBGLUB15H=STMOD,STBGLUB15O
1950  $DEF STBGLUB15=$FLG(O,STBGLUB15O,STBGLUB15H);                                                                           
1951
1952  #--------------------------------------------------------------------------------------------------#
1953  #  Niederlande
1954
1955  $DEF BGNL01=[BG-=BGHS/NL01.JPG;],TRKHI
1956  $DEF BGNL02=[BG-=BGHS/NL02.JPG[CROPB:-420]:..,0,<=>;],TRKDH
1957  $DEF BGNL03=[BG-=BGHS/NL03.JPG[CROPB:-687]:..,0,<=>;TRBED12:..,^0;]     
1958
1959  $DEF STBGNL01=[BG-=BgHs/BG_NETHERLAND01.jpg:..,-205,<=>;],TRKDHB
1960  $DEF STBGNL02=[BG-=BgHs/BG_NETHERLAND02.jpg:..,-150,<=>;],TRKDHB
1961  #02 auch DK,PL E3-6
1962
1963
1964  $DEF BHF_NL61=NL_ROOSENDAAL[O:47[B:,0,,9,#005CBF],*960,^39][O:D_RUCK4,*967,^39][O:D_RUCK4,*686,^39][O:D_RUCK4,*1214,^39]
1965  $DEF BHF_NL62=NL_AMERSFOORT_NCS[O:47[B:,0,,7,#005CBF],*255,^45][O:D_RUCK4,*255,^45]
1966  $DEF BHF_NL63=NL_APPINGEDAM1[O:47[B:,0,,7,#005CBF],*,45][O:D_RUCK4,*,45]
1967  $DEF BHF_NL64=NL_DELFZIJL[O:47[B:,0,,7,#005CBF],*358,37][O:D_RUCK4,*358,37]
1968  $DEF BHF_NL65=NL_GRONINGEN_CS[O:47[B:,0,,7,#005CBF],*659,*61][O:D_RUCK4,*659,*61]
1969  $DEF BHF_NL66=NL_KAMPEN[O:47[B:,0,,7,#005CBF],*318,38][O:D_RUCK4,*318,38]
1970  $DEF BHF_NL67=NL_MEPPEL[O:47[B:,0,,7,#005CBF],*246,39][O:D_RUCK4,*246,39]
1971  $DEF BHF_NL68=NL_SLAPPHUT1[O:47[B:,0,,7,#005CBF],*140,30][O:D_RUCK4,*140,30]
1972  $DEF BHF_NL41=NL_ROOSENDAAL[O:48[B:,0,,9,#C4C4C4],*967,^39][O:D_RUCK4,*967,^39][O:D_RUCK4,*686,^39][O:D_RUCK4,*1214,^39]
1973  $DEF BHF_NL42=NL_AMERSFOORT_NCS[O:48[B:,0,,7,#C4C4C4],*255,^45][O:D_RUCK4,*255,^45]
1974  $DEF BHF_NL43=NL_APPINGEDAM1[O:48[B:,0,,7,#C4C4C4],*,45][O:D_RUCK4,*,45]
1975  $DEF BHF_NL44=NL_DELFZIJL[O:48[B:,0,,7,#C4C4C4],*358,37][O:D_RUCK4,*358,37]
1976  $DEF BHF_NL45=NL_GRONINGEN_CS[O:48[B:,0,,7,#C4C4C4],*659,*61][O:D_RUCK4,*659,*61]
1977  $DEF BHF_NL46=NL_KAMPEN[O:48[B:,0,,7,#C4C4C4],*318,38][O:D_RUCK4,*318,38]
1978  $DEF BHF_NL47=NL_MEPPEL[O:48[B:,0,,7,#C4C4C4],*246,39][O:D_RUCK4,*246,39]
1979  $DEF BHF_NL48=NL_SLAPPHUT1[O:48[B:,0,,7,#C4C4C4],*140,30][O:D_RUCK4,*140,30]
1980
1981  $DEF BHF_NL4=BHF_NL4(1|2|3|4|5|6|7|8)
1982  $DEF BHF_NL6=BHF_NL6(1|2|3|4|5|6|7|8)
1983
1984  #  Bahnhof E3
1985  $DEF STBGNLB13O=STMOD,SKY,BG_FOREST1,                                                                   \
1986      [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#; BGFNC:..;BHF_NL4:,8;           \
1987      &FLG(3&,WATERCOLUMN02:50+500,0;)B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;                  \
1988      D_RUCK4,550,D_RUCK4,:,31; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8;                             \
1989      PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
1990  $DEF STBGNLB13H=STMOD,STBGNLB13O
1991  $DEF STBGNLB13=$FLG(O,STBGNLB13O,STBGNLB13H);                                                                           
1992
1993  #  Bahnhof E4
1994  $DEF STBGNLB14O=STMOD,SKY,BG_FOREST1,                                                                   \
1995      [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#;  BGFNC:..;BHF_NL4:,8;          \
1996      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; D_RUCK4,550,D_RUCK4,:,31;                        \
1997      D_RUCK4S,1450,D_RUCK4S:,8; BGPLATT1800NL:,8; PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
1998      TRKES
1999  $DEF STBGNLB14H=STMOD,STBGNLB14O
2000  $DEF STBGNLB14=$FLG(O,STBGNLB14O,STBGNLB14H);                                                                           
2001
2002  #  Bahnhof E5-6
2003  $DEF STBGNLB15O=STMOD,SKY,BG_FOREST1,                                                                   \
2004      [BG<=BGCITYNL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYNL2:..,0,#;  BGFNC:..;BHF_NL6:,8;          \
2005      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8; NL_UTRECHT6,550,NL_UTRECHT6,:,31;                \
2006      NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8;             \
2007      BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2008  $DEF STBGNLB15H=STMOD,STBGNLB15O
2009  $DEF STBGNLB15=$FLG(O,STBGNLB15O,STBGNLB15H);                                                                           
2010
2011  #--------------------------------------------------------------------------------------------------#
2012  #  Dänemark
2013
2014  # Strecke
2015  $DEF STBGDK01=[BG-=BgHs/BG_DENMARK01.jpg:..,-10,<=>;],TRKDHB
2016
2017  # Stadt Nordeuropa
2018  #  Bahnhof E3
2019  $DEF STBGDKB13O=STMOD,SKY,BG_FOREST1,                                                                   \
2020      [BG<=1-40*1,TREES_SUMMER:..,0,#; DK_VILLAGE02,DK_VILLAGE02:..,0,#;                          \
2021      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8;1000,WATERCOLUMN02:,0;                                   \
2022      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;D_RUCK4,550,D_RUCK4,:,31;                         \
2023      D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8;                             \
2024      PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2025  $DEF STBGDKB13H=STMOD,STBGDKB13O
2026  $DEF STBGDKB13=$FLG(O,STBGDKB13O,STBGDKB13H);                                                                           
2027
2028  #  Bahnhof E4
2029  $DEF STBGDKB14O=STMOD,SKY,BG_FOREST1,                                                                   \
2030      [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDK2:..,0,#;                                \
2031      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;      \
2032      D_RUCK4,550,D_RUCK4,:,31; D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8;   \
2033      PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2034  $DEF STBGDKB14H=STMOD,STBGDKB14O
2035  $DEF STBGDKB14=$FLG(O,STBGDKB14O,STBGDKB14H);                                                                           
2036
2037  #  Bahnhof E5-6
2038  $DEF STBGDKB15O=STMOD,SKY,BG_FOREST1,                                                                   \
2039      [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYDK2:..,0,#;                                \
2040      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;      \
2041      NL_UTRECHT6,550,NL_UTRECHT6,:,31; NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8;     \
2042      J_TICKET,500,J_TICKET,:,8; BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
2043      TRKES
2044  $DEF STBGDKB15H=STMOD,STBGDKB15O
2045  $DEF STBGDKB15=$FLG(O,STBGDKB15O,STBGDKB15H);                                                                           
2046
2047
2048  #--------------------------------------------------------------------------------------------------#
2049  #  Nordeuropa Schweden
2050  # Strecke
2051  $DEF STBGSW05=[BG-=BgHs/BG_SWEDEN06.jpg:..,0,<=>,0,2451;],TRKDHB
2052  $DEF STBGSW03=[BG-=BgHs/BG_SWEDEN03.jpg:..,-20,<=>,60,2280;],TRKDW
2053  $DEF STBGSW02=[BG-=BgHs/BG_SWEDEN02.jpg:..,-40,<=>;],TRKDHB
2054  $DEF STBGSW01=[BG-=BgHs/BG_SWEDEN01.jpg:..,-0,<=>;],TRKES
2055  # Strecke Winter
2056  $DEF STBGSW04=[BG-=(BgHs/BG_SWEDEN04.jpg:..,-50,<=>;BG_GRAS1W:..,^-7,<=>;)],TRKDS
2057
2058  #--------------------------------------------------------------------------------------------------#
2059  #  Nordeuropa Norwegen 
2060  #  Bahnhof E3
2061  $DEF STBGNOB13O=STMOD,BGNORD1,                                                                          \
2062      [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_COLD:..,0,#; BGCITYDK2:..,0,#;                                  \
2063      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8;1000,WATERCOLUMN02:,0;                                   \
2064      B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;D_RUCK4,550,D_RUCK4,:,31;                         \
2065      D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8;                             \
2066      PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2067  $DEF STBGNOB13H=STMOD,STBGNOB13O
2068  $DEF STBGNOB13=$FLG(O,STBGNOB13O,STBGNOB13H);                                                                           
2069
2070  #  Bahnhof E4
2071  $DEF STBGNOB14O=STMOD,BGNORD1,                                                                          \
2072      [BG<= 1-40*1,TREES_COLD:..,0,#; SK_VILLAGE02,SK_VILLAGE01:..,0,#;                                   \
2073      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;      \
2074      D_RUCK4,550,D_RUCK4,:,31; D_RUCK4,480,D_RUCK4,:,42; D_RUCK4S,1450,D_RUCK4S,:,8; BGPLATT1800NL:,8;   \
2075      PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;],TRKES
2076  $DEF STBGNOB14H=STMOD,STBGNOB14O
2077  $DEF STBGNOB14=$FLG(O,STBGNOB14O,STBGNOB14H);                                                                           
2078
2079  #  Bahnhof E5-6
2080  $DEF STBGNOB15O=STMOD,BGNORD1,                                                                          \
2081      [BG<=BGCITYDK1:..,0,#; 1-40*1,TREES_COLD:..,0,#; BGCITYDK2:..,0,#;                                  \
2082      DK_STATION1|NL_SLAPPHUT|NL_USQUERT_OLD,:,8; B_PLFCOV[COFL:28],6*B_PLFCOV,B_PLFCOV[COFR:28]:,8;      \
2083      NL_UTRECHT6,550,NL_UTRECHT6,:,31; NL_UTRECHT6S,1450,NL_UTRECHT6S,:,8;J_TICKET,200,J_TICKET,:,8;     \
2084      J_TICKET,500,J_TICKET,:,8; BGPLATT1800NL:,8;PLF_NL1A[COFR:8],16@PLF_NL(2|5),#PLF_NL1A[COFL:8]:,-4;], \
2085      TRKES  
2086  $DEF STBGNOB15H=STMOD,STBGNOB15O
2087  $DEF STBGNOB15=$FLG(O,STBGNOB15O,STBGNOB15H);                                                                           
2088
2089  #  Strecke
2090  $DEF STBGNO01=[BG-=BgHs/BG_norway01.jpg:..,-220,<=>;],TRKDH    
2091      
2092  #--------------------------------------------------------------------------------------------------#
2093  #  Finnland
2094  $DEF STBGFI01=[BG-=BgHs/BG_FINLAND02.jpg:..,-30,<=>;],TRKDH
2095  $DEF STBGFI02=[BG-=BgHs/BG_FINLAND01.jpg:..,0,<=>;],TRKDHB
2096  $DEF STBGFI03=[BG-=BgHs/BG_FINLAND03.jpg:..,-0,<=>;],TRKDHB
2097
2098  #--------------------------------------------------------------------------------------------------#
2099  # Südeuropa-Italien    
2100
2101  # Strecke Italien
2102  $DEF STBGIT01=[BG-=BgHs/BG_ITALY01.jpg:..,-55,<=>;],TRKDHB
2103  $DEF STBGIT02=[BG-=BgHs/BG_ITALY02.jpg:..,-55,<=>;],TRKDHB
2104  $DEF STBGIT03=[BG-=BgHs/BG_ITALY03.jpg:..,-55,<=>;],TRKDHB
2105  $DEF STBGIT04=[BG-=BgHs/BG_ITALY04.jpg:..,0,<=>;],TRKDHB
2106  $DEF STBGIT05=[BG-=BgHs/BG_ITALY08.jpg:..,-0,<=>;],TRKDHB
2107  $DEF STBGIT06=[BG-=BgHs/BG_ITALY07.jpg:..,-0,<=>;],TRKDHB
2108  $DEF STBGIT07=[BG-=BgHs/BG_ITALY05.jpg:..,-0,<=>,8,1757;],TRKDHB
2109
2110  # Strecke Südeuropa Südeuropa-Italien
2111  $DEF STBGITW=SKY,                                                                                       \
2112      [BG<=(GRASS06|GREEN5):..,0;                                                                         \
2113      (20*(10|20|30|25|15|5|TREE49|TREE83|TREE57|TREE44|TREE54|TREE103W|TREE98C|TREE101W|TREE75|          \
2114      EUCALYPT06|PALM12|PALM15|PALM7T)):..,0;TRACKFGDH:..,^0;]
2115
2116  # Strecke Italien mit Bahnhof
2117  #E3-4 D
2118  $DEF STBGITS1S3O=SKY,                                                                           \
2119      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#;              \
2120      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2121      I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]|                                    \
2122      I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]|              \
2123      I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]|                                                                       \
2124      I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA|     \
2125      I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]|    \
2126      I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1;             \
2127      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2128      8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3;                                         \
2129      BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20,DBAG_STAIRS,    \
2130      BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,     \
2131      BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKST 
2132      $DEF STBGITS1S3H=STMOD,STBGITS1S3O
2133      $DEF STBGITS1S3=$FLG(O,STBGITS1S3O,STBGITS1S3H);                                                                            
2134
2135  #E3-4 DG
2136  $DEF STBGITS1G3O=SKY,                                                                           \
2137      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#;              \
2138      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2139      I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]|                                    \
2140      I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]|              \
2141      I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]|                                                                       \
2142      I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA|     \
2143      I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]|    \
2144      I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q;  \
2145      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2146      8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3;                                         \
2147      BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20,DBAG_STAIRS,    \
2148      BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,     \
2149      BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;9*FL_FS4QF;],TRKES|TRKST
2150      $DEF STBGITS1G3H=STMOD,STBGITS1G3O
2151      $DEF STBGITS1G3=$FLG(O,STBGITS1G3O,STBGITS1S3H);                                                                            
2152  #E3-4 DD
2153  $DEF STBGITS1D3O=SKY,                                                                           \
2154      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH:..,0,#;              \
2155      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2156      I_STAZ6[O:I_VENTIMIGLIA3,53,34]|I_STAZ7[O:I_VENTIMIGLIA3,49,38]|                                    \
2157      I_STAZIONE_C[O:I_VENTIMIGLIA3,54,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_VENTIMIGLIA3,59,38]|              \
2158      I_CESI[O:I_VENTIMIGLIA3,101,34]|0[AR:I_STATION01(A,B,C,#B,#A)][O:I_VENTIMIGLIA3,,30]|                                                                       \
2159      I_MONTECASTRILLI[O:I_VENTIMIGLIA3,116,42][B:144,43,12,5,#D09464][B:103,44,4,4,#D09464]|I_ORMEA|     \
2160      I_PISCILLE[O:I_VENTIMIGLIA3,69,39][B:69,38,27,1,#786058]|I_SAN_SECONDOB[O:I_VENTIMIGLIA3,58,36]|    \
2161      I_SAN_SEPOLCRO[O:I_VENTIMIGLIA3,163,53]|I_UMBERTIDE:20;E_RENTERIA1,20,STELLWERK4B:55,1;             \
2162      18*FL_FSTTQ;                                                                                        \
2163      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2164      8*(FS_MAR03[BT:,9]),40,WATERCOLUMNFS,20,SIF_FS3_2L,700:,-3;                                         \
2165      BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20,DBAG_STAIRS,    \
2166      BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,     \
2167      BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;18*FL_FSTTQF;],TRKES|TRKST
2168      $DEF STBGITS1D3H=STMOD,STBGITS1D3O
2169      $DEF STBGITS1D3=$FLG(O,STBGITS1D3O,STBGITS1D3H);                                                                            
2170  $DEF STBGITS13=$FLG(X,STBGITS1D3,$FLG(E,STBGITS1G3,STBGITS1S3))
2171
2172  #E5 D
2173  $DEF STBGITS1S5O=SKY,                                                                           \
2174      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2175      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2176      I_STAZ6[O:I_FIRENZESM5,55,34]|I_STAZ7[O:I_FIRENZESM5,51,38]|I_STAZIONE_C[O:I_FIRENZESM5,56,38]|     \
2177      I_BRISIGHELLA|I_CANOSCIO[O:I_FIRENZESM5,61,38]|I_CESI[O:I_FIRENZESM5,103,34]|                       \
2178      I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_FIRENZESM5,118,42]|I_ORMEA|                             \
2179      I_PISCILLE[O:I_FIRENZESM5,71,39][B:69,38,27,3,#786058]|I_SAN_SECONDOB[O:I_FIRENZESM5,60,36]|        \
2180      I_SAN_SEPOLCRO[O:I_FIRENZESM5,165,53]|I_UMBERTIDE:20; E_RENTERIA1,20,STELLWERK4B:55,1;              \
2181      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2182      8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3;                                                          \
2183      BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20,DBAG_STAIRS,    \
2184      BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,     \
2185      BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKES
2186      $DEF STBGITS1S5H=STMOD,STBGITS1S5O
2187      $DEF STBGITS1S5=$FLG(O,STBGITS1S5O,STBGITS1S5H);                                                                            
2188  #E5 DG
2189  $DEF STBGITS1G5O=SKY,                                                                           \
2190      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2191      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2192      I_STAZ6[O:I_FIRENZESM5,55,34]|I_STAZ7[O:I_FIRENZESM5,51,38]|I_STAZIONE_C[O:I_FIRENZESM5,56,38]|     \
2193      0[AR:I_STATION01(A,B,C,#B,#A)][O:I_FIRENZESM5,385,31]|I_BRISIGHELLA|I_CANOSCIO[O:I_FIRENZESM5,61,38]|                       \
2194      I_CESI[O:I_FIRENZESM5,103,34]|I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_FIRENZESM5,118,42]|       \
2195      I_ORMEA|I_PISCILLE[O:I_FIRENZESM5,71,39][B:69,38,27,1,#786058]|                                     \
2196      I_SAN_SECONDOB[O:I_FIRENZESM5,60,36]|I_SAN_SEPOLCRO[O:I_FIRENZESM5,165,53]|I_UMBERTIDE:20;          \
2197      E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q;                                                         \
2198      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2199      8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3;                                                          \
2200      BGPASS1,16,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20,DBAG_STAIRS,    \
2201      BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,10,BANK06,24,     \
2202      BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;9*FL_FS4QF;],TRKES
2203      $DEF STBGITS1G5H=STMOD,STBGITS1G5O
2204      $DEF STBGITS1G5=$FLG(O,STBGITS1G5O,STBGITS1G5H);                                                                            
2205  $DEF STBGITS15=$FLG(E,STBGITS1G5,STBGITS1S5)
2206
2207  #E6 D
2208  $DEF STBGITS1S6O=SKY,                                                                           \
2209      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2210      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2211      I_STAZ6[O:I_SVINCENZO6,56,34]|I_STAZ7[O:I_SVINCENZO6,52,38]|I_STAZIONE_C[O:I_SVINCENZO6,57,38]|     \
2212      0[AR:I_STATION01(A,B,C,#B,#A)][O:I_SVINCENZO6,,30][O:I_SVINCENZO6,57,38]|I_BRISIGHELLA|I_CANOSCIO[O:I_SVINCENZO6,62,38]|                    \
2213      I_CESI[O:I_SVINCENZO6,104,34]|I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_SVINCENZO6,119,43]|       \
2214      I_ORMEA|I_PISCILLE[B:69,38,28,7,#786058][O:I_SVINCENZO6,72,39]|                                     \
2215      I_SAN_SECONDOB[O:I_SVINCENZO6,61,36]|I_SAN_SEPOLCRO[O:I_SVINCENZO6,166,53]|I_UMBERTIDE:20;          \
2216      E_RENTERIA1,20,STELLWERK4B:55,1;                                                                    \
2217      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2218      8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3;                                                          \
2219      BGPASS1,16,LAMP17,15,I_LINEAGIALLAS,15,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2220      DBAG_STAIRS,BANK8,20,BGPASS1,5,I_LINEAGIALLAS,5,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16, \
2221      BGPASS1,20,BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;],TRKES
2222      $DEF STBGITS1S6H=STMOD,STBGITS1S6O
2223      $DEF STBGITS1S6=$FLG(O,STBGITS1S6O,STBGITS1S6H);                                                                            
2224  #E6 DG
2225  $DEF STBGITS1G6O=SKY,                                                                           \
2226      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2227      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;                                                             \
2228      I_STAZ6[O:I_SVINCENZO6,56,34]|I_STAZ7[O:I_SVINCENZO6,52,38]|I_STAZIONE_C[O:I_SVINCENZO6,57,38]|     \
2229      0[AR:I_STATION01(A,B,C,#B,#A)][O:I_SVINCENZO6,,30]|I_BRISIGHELLA|I_CANOSCIO[O:I_SVINCENZO6,62,38]|                  \
2230      I_CESI[O:I_SVINCENZO6,104,34]|I_MONTECASTRILLI[B:103,42,53,6,#D09464][O:I_SVINCENZO6,119,43]|       \
2231      I_ORMEA|I_PISCILLE[B:69,38,28,7,#786058][O:I_SVINCENZO6,72,39]|                                     \
2232      I_SAN_SECONDOB[O:I_SVINCENZO6,61,36]|I_SAN_SEPOLCRO[O:I_SVINCENZO6,166,53]|I_UMBERTIDE:20;          \
2233      E_RENTERIA1,20,STELLWERK4B:55,1; 9*FL_FS4Q;                                                         \
2234      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2235      8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3;                                                          \
2236      BGPASS1,16,LAMP17,15,I_LINEAGIALLAS,15,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,20, \
2237      DBAG_STAIRS,BANK8,20,BGPASS1,5,I_LINEAGIALLAS,5,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16, \
2238      BGPASS1,20,BGPASS1,10,BANK06,24,BGPASS1,18,17,LAMP17,12,PERS01,15,PERS03,100:,6;9*FL_FS4QF;]\
2239      ,TRKES
2240      $DEF STBGITS1G6H=STMOD,STBGIT1G6O
2241      $DEF STBGITS1G6=$FLG(O,STBGITS1G6O,STBGITS1G3H);                                                                            
2242  $DEF STBGITS16=$FLG(E,STBGITS1G6,STBGITS1S6)
2243
2244
2245  #--------------------------------------------------------------------------------------------------#
2246  # Portugal
2247   $DEF STBGPO01=[BG-=BgHs/BG_Portugal1.jpg:..,-280,<=>;],TRKDW
2248   $DEF STBGPO02=[BG-=BgHs/BG_Portugal2.jpg:..,-300,<=>;],TRKDHB
2249   $DEF STBGPO03=[BG-=BgHs/BG_PORTUGAL3.jpg:..,-100,<=>;],TRKDH
2250  #--------------------------------------------------------------------------------------------------#
2251  # Spanien
2252
2253  $DEF STBGES01=[BG-=BgHs/BG_SPAIN04.jpg:..,-115,<=>;],TRKDHB
2254  $DEF STBGES02=[BG-=BgHs/BG_SPAIN03.jpg:..,-80,<=>;],TRKDHB
2255  $DEF STBGES03=[BG-=BgHs/BG_SPAIN05.jpg:..,-10,<=>;],TRKDHB   
2256
2257  # Bahnhof E3 E4
2258  $DEF STBGESB13EO=SKY,                                                                           \
2259      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2260      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;(E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8;                 \
2261      1000,WATERCOLUMN02:,0;I_VENTIMIGLIA3S,1450,I_VENTIMIGLIA3S,:,8; BGPLATT1800H,:,8;                   \
2262      I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8;I_VENTIMIGLIA3,690,I_VENTIMIGLIA3,:,36;]\
2263      [FG>=;FL_RF_NORTE2:..,#-67,#;],$BG_PLF1(18),TRKES  
2264      $DEF STBGESB13EH=STMOD,STBGESB13EO
2265      $DEF STBGESB13E=$FLG(O,STBGESB13EO,STBGESB13EH);                                                                            
2266  $DEF STBGESB13DO=SKY,                                                                           \
2267      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2268      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90;(E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8;                 \
2269      1000,WATERCOLUMN02:,0;I_VENTIMIGLIA3S,1450,I_VENTIMIGLIA3S,:,8; BGPLATT1800H,:,8;                   \
2270      I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8;I_VENTIMIGLIA3,690,I_VENTIMIGLIA3,:,36;],\
2271      $BG_PLF1(18),TRKES   
2272      $DEF STBGESB13DH=STMOD,STBGESB13DO
2273      $DEF STBGESB13D=$FLG(O,STBGESB13DO,STBGESB13DH);                                                                            
2274   $DEF STBGESB13=$FLG(E,STBGESB13E,STBGESB13D)
2275     
2276      
2277
2278  # Bahnhof E5 E6
2279  $DEF STBGESB15O=SKY,                                                                            \
2280      [BG<=TREES_SOUTH,:..,0,#;(GRASS06|GREEN5):..,0; BGCITYIT1,:..,0,#; TREES_SOUTH,:..,0,#;             \
2281      BGCITYIT2:..,0,#;LAMP11:80;I_FACT06:90; (E_BIURRUN1,25,E_RENTERIA1)|E_IRUN_INT3,:,8;                \
2282      E_SEVILLA6S,1450,E_SEVILLA6S,:,8;BGPLATT1800H,:,8; J_TICKET,200,J_TICKET,:,8;                       \
2283      J_TICKET,500,J_TICKET,:,8;I_PENSIL1,8*I_PENSIL2,I_PENSIL3,:,8; E_SEVILLA6,680,E_SEVILLA6,:,36;      \
2284      PLF_CZ01,18*PLF_CZ02[BT:19,10,71],#PLF_CZ01:,-2;]\
2285      [FG>=;(FL_RF_UNIF[B:29,81,3,20,#757575]):..,#-83,#;],TRKES
2286      $DEF STBGESB15H=STMOD,STBGESB15O
2287      $DEF STBGESB15=$FLG(O,STBGESB15O,STBGESB15H);                                                                               
2288
2289  #--------------------------------------------------------------------------------------------------#
2290  # Tschechien Bahnhof E 3/4
2291
2292  #Strecke
2293
2294  $DEF STBGCZ01=[BG-=BgHs/BG_CZECH01.jpg:..,-100,<=>;],TRKDHB
2295  $DEF STBGCZ02=[BG-=BgHs/BG_CZECH02.jpg:..,-120,<=>;],TRKDHB
2296  $DEF STBGCZ03=[BG-=BgHs/BG_CZECH03.jpg:..,-120,<=>;],TRKDHB
2297
2298  $DEF STBGCSB13O=SKY,BG_FOREST1,                                                                 \
2299      [BG<=BGCITYPL2|BGCITYAU2:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#;           \
2300      (CS_GOLCUV,25,WC1)|SUCHDOL|(LEDEC,20,STRDOMEK)|(LIBEN_DOLNY,20,ZALOV7),:,8;1000,WATERCOLUMN02:,-4;  \
2301      D_BOEDERITZ3,480,D_BOEDERITZ3,:,42; D_BOEDERITZ3S,1450,D_BOEDERITZ3S,:,8;BGPLATT1800H,:,8;          \
2302      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2303      $DEF STBGCSB13H=STMOD,STBGCSB13O
2304      $DEF STBGCSB13=$FLG(O,STBGCSB13O,STBGCSB13H);                                                                               
2305
2306  # Tschechien Bahnhof E 5/6
2307  $DEF STBGCSB15O=SKY,BG_FOREST1,                                                                 \
2308      [BG<=BGCITYPL1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#;           \
2309      (CS_GOLCUV,25,WC1)|SUCHDOL|(LEDEC,20,STRDOMEK)|(LIBEN_DOLNY,20,ZALOV7),:,8;                         \
2310      J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8; BGPLATT1800C,:,8;                              \
2311      PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03,         \
2312      PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2313      $DEF STBGCSB15H=STMOD,STBGCSB15O
2314      $DEF STBGCSB15=$FLG(O,STBGCSB15O,STBGCSB15H);                                                                               
2315
2316
2317  #--------------------------------------------------------------------------------------------------#
2318  # Slowakei
2319  # Strecke
2320  $DEF STBGSK01=[BG-=BgHs/BG_SLOVAKIA01.jpg:..,-10,<=>;],TRKDHB
2321
2322  #--------------------------------------------------------------------------------------------------#
2323  # Polen Bahnhof E 3/4
2324
2325  $DEF STBGPLB13O=SKY,BG_FOREST1,                                                                 \
2326      [BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL1,:..,0,#;                               \
2327      (RO_CHITILA[O:D_BOEDERITZ3,438,38]),:,8;1000,WATERCOLUMN02:,-4;                                     \
2328      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; D_BOEDERITZ3,480,D_BOEDERITZ3,:,42;                \
2329      D_BOEDERITZ3S,1450,D_BOEDERITZ3S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
2330      $DEF STBGPLB13H=STMOD,STBGPLB13O
2331      $DEF STBGPLB13=$FLG(O,STBGPLB13O,STBGPLB13H);                                                                               
2332
2333
2334  # Polen Bahnhof E 5/6
2335  $DEF STBGPLB15O=SKY,BG_FOREST1,                                                                 \
2336      [BG<=BGCITYPL1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2,:..,0,#;                               \
2337      (RO_CHITILA[O:PL_POZNAN5,438,38]),:,8; J_TICKET,200,J_TICKET,:,8;                                   \
2338      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4; PL_POZNAN5,480,PL_POZNAN5,:,42;                    \
2339      PL_POZNAN5S,560,J_TICKET,300,J_TICKET,560,PL_POZNAN5S,:,8; BGPLATT1800H,:,8;],$BG_PLF1(18),TRKES
2340      $DEF STBGPLB15H=STMOD,STBGPLB15O
2341      $DEF STBGPLB15=$FLG(O,STBGPLB15O,STBGPLB15H);                                                                               
2342
2343  $DEF STBGPLS01=[BG-=BgHs/BG_POLAND01.jpg:..,-15,<=>;],TRKDH
2344  # E 1-3
2345  $DEF STBGPLS02T=[BG-=BgHs/BG_POLAND02.jpg:..,-15,<=>;CABLE5:..,0;],TRKDH
2346  # E 4-6
2347  $DEF STBGPLS02O=[BG-=BgHs/BG_POLAND02.jpg:..,-15,<=>;],TRKDH
2348  #02 auch SK,D,F,BE,L,HU,CS  E1-6
2349
2350  #--------------------------------------------------------------------------------------------------#
2351  # Landschaft Bulgarien E1-6
2352  $DEF STBGBGS1=[BG<=;BgLs/LS_BULGARIA1S.jpg:..,-10,<=>;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2353  #01 auch YU,SRB,HR,SLO,  E3-6
2354  $DEF STBGBGS2=[BG<=;BgLs/LS_BULGARIA2S.jpg:..,-45,<=>;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2355  #02 auch SK,D,F,BE,L,PL,HU,CS  E1-6
2356
2357  #--------------------------------------------------------------------------------------------------#
2358  # Rumänien
2359  # Landschaft E1-3
2360  $DEF STBGROS1T=[BG<=;BgLs/LS_ROMANIA1S.jpg:..,-20,<=>;CABLE5:..,0;],TRKGR
2361  # Landschaft E4-6
2362  $DEF STBGROS1O=[BG<=;BgLs/LS_ROMANIA1S.jpg:..,-20,<=>;],TRKGR
2363  #01 auch SK,D,F,BE,L,PL,HU,CS  E1-6
2364  $DEF STBGROS2=[BG-=BgLs/LS_Romania2s.jpg:..,-80,<=>;],TRKGR
2365
2366  # Bahnhof E 3/4
2367  $DEF STBGROB13O=SKY,BG_FOREST1,                                                                 \
2368      [BG<=BGCITYPL2|BGCITYAU2:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#;           \
2369      (RO_GARA01A|RO_APAHIDA[B:399,72,27,4,#A4A8AC][B:399,66,27,6,#B0B8B8][O:RO_AUREL4,394,47]|RO_ARAD|   \
2370      RO_ATEL|RO_AUREL_VLAICU|RO_AVRIG|RO_BASARAB1|RO_BOBOC|RO_BLAJ1|RO_BUDA|RO_BUZAU|RO_BUZAU2|          \
2371      RO_CALARASI|RO_CAMPINA|RO_CANEPISTI|RO_CHITILA),:,8; 1000,WATERCOLUMN02:,-4;                        \
2372      RO_AUREL4,480,RO_AUREL4,:,42;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800H,:,8;                      \
2373      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2374      $DEF STBGROB13H=STMOD,STBGROB13O
2375      $DEF STBGROB13=$FLG(O,STBGROB13O,STBGROB13H);                                                                               
2376
2377  # Bahnhof E 5/6
2378  $DEF STBGROB15O=SKY,BG_FOREST1,                                                                 \
2379      [BG<=BGCITYPL1|BGCITYAU1:..,0,#; 1-40*1,TREES_SUMMER:..,0,#; BGCITYPL2|BGCITYAU2,:..,0,#;           \
2380      RO_CAMPULUNG_EST2|RO_CARANSEBES|RO_ADJUD|RO_APAHIDA|RO_ARAD|RO_ATEL|RO_AUREL_VLAICU|RO_BACAU|       \
2381      RO_BANEASA1|RO_BARABANT|RO_BARTOLOMEU|RO_BECLEAN_PE_SOMES|RO_BLAJ1|RO_BRASOV|RO_BUSTENI|RO_BUZAU|   \
2382      RO_CALARASI|RO_CAMPINA|RO_CAMPULUNG_EST2|RO_CANEPISTI|RO_CARACAL|RO_CHITILA,:,8;                    \
2383      J_TICKET,200,J_TICKET,:,8;J_TICKET,500,J_TICKET,:,8,;RO_ALBA6S,1450,RO_ALBA6S,:,8;                  \
2384      BGPLATT1800C,:,8;                                                                                   \
2385      PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03,         \
2386      PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2387      $DEF STBGROB15H=STMOD,STBGROB15O
2388      $DEF STBGROB15=$FLG(O,STBGROB15O,STBGROB15H);                                                                               
2389
2390  #--------------------------------------------------------------------------------------------------#
2391  # Slovenien
2392  # Gebirge
2393
2394  $DEF STBGSLO01=[BG-=BgHs/BG_SLOVENIA_02.jpg:..,-10,<=>;],TRKDHB      
2395
2396  #--------------------------------------------------------------------------------------------------#
2397  # Kroatien
2398  $DEF STBGCR01=[BG-=BgHs/BG_CROATIA01.jpg:..,-140,<=>;],TRKDHB
2399
2400
2401  #--------------------------------------------------------------------------------------------------#
2402  # Jugoslawien / Serbien
2403  $DEF STBGSB01=[BG-=BgHs/BG_SERBIA01.jpg:..,-0,<=>;],TRKDHB
2404     
2405  #--------------------------------------------------------------------------------------------------#
2406  # Montenegro
2407     
2408  $DEF STBGMON01=[BG-=BgHs/BG_Montenegro02.jpg:..,-20,<=>;],TRKDH   
2409  $DEF STBGMON02=[BG-=BgHs/BG_Montenegro01.jpg:..,-20,<=>;],TRKDHB   
2410     
2411  #--------------------------------------------------------------------------------------------------#
2412  # Griechenland    
2413
2414  # Landschaft
2415  $DEF STBGGR01=[BG-=BgHs/BG_GREECE01.jpg:..,-50,<=>;],TRKES
2416
2417  # Bahnhof 
2418  $DEF STBGGRB13O=SKY,                                                                            \
2419      [BG<=TREES_SOUTH,:..,0,#; (GRASS06|GREEN5),:..,0;                                                   \
2420      I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075,I_H076,I_H071,I_H028B,I_H028C,I_H065,185,           \
2421      (I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6],I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H008,        \
2422      I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1,      \
2423      I_H029_1,I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,:..,0,#; TREES_SOUTH,:..,0,#;             \
2424      I_H008,I_H063,I_H064,I_H062,I_H066,I_H065,I_H061_1,200,(I_CURCH1|I_CHURCH2),220,I_H069_2[COFR:6],   \
2425      I_H005B,I_H024,I_H009B,I_H015B,I_H009A,180,I_H006B[COFR:8],I_H051,I_H054,I_H010,I_H017_1,I_H029_1,  \
2426      I_H060B,I_H027,I_H031,I_H035,I_H006A[COFL:8],170,I_H007A[COFL:4],I_H047B,I_H068_1,I_H068B,I_H075,   \
2427      I_H076,I_H071,I_H028B,I_H028C,I_H065,185,:..,0,#; LAMP11:80;I_FACT06:90;                            \
2428      RO_CALARASI[O:GR_NAFPILO5,178,31]:20;E_RENTERIA1,20,STELLWERK4B:55,1;                               \
2429      200,8*(FS_MAR03[BT:,9]),FS_MAR01,FS_MAR03,FS_MAR02,FS_MAR04,FS_MAR02,FS_MAR03,FS_MAR01,             \
2430      8*(FS_MAR03[BT:,9]),80,SIF_FS3_2L,700:,-3;                                                          \
2431      BGPASS1,16,GR_NAFPILO5S,10,LAMP17,27,30,BGPASS1,20,BGPASS1,10,BGPASS1,154,BGPASS1,10,I_TIMTAB1,16,BANK04,   \
2432      20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,18,BGPASS1,10,BANK06,BANK05,14,I_TIMTAB1,16,BGPASS1,20,BGPASS1,   \
2433      10,BANK06,24,BGPASS1,18,17,LAMP17,5,GR_NAFPILO5S,12,PERS01,15,PERS03,100:,6;],TRKES
2434      $DEF STBGGRB13H=STMOD,STBGGRB13O
2435      $DEF STBGGRB13=$FLG(O,STBGGRB13O,STBGGRB13H);                                                                               
2436  #--------------------------------------------------------------------------------------------------#
2437  # Türkei
2438  # Landschaft Gebirge E1-6
2439  $DEF STBGTK01=[BG-=BgHs/BG_TURKEY01.jpg:..,-40,<=>;],TRKDW
2440  #--------------------------------------------------------------------------------------------------#
2441  # Russland
2442  # Landschaft Russland E1-6
2443
2444  $DEF STBGRUS1=[BG<=;BgLs/LS_Russia1.jpg:..,-30,#;TRACKFGWD:..,^0;TRACKFGDW:..,^0]
2445  $DEF STBGRUS2=[BG-=BgHs/BG_RUSSIA05.jpg:..,-155,<=>;],TRKDHB 
2446  $DEF STBGRUS3=[BG-=BgHs/BG_RUSSIA06.jpg:..,-100,<=>;],TRKDH
2447  # Bahnhof E 3/4
2448  $DEF STBGRUB13O=SKY,BG_FOREST1,                                                                 \
2449      [BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#;                                  \
2450      ((RU_BOIARKA1,50,RU_BOIARKA2)|RU_BRYANSK_ORLOVSKY|RU_PERM1),:,8; 1000,WATERCOLUMN02:,-4;            \
2451      RO_AUREL4,480,RO_AUREL4,:,42;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800H,:,8;                      \
2452      (0[AR:PLF_I1(2*C,4*B,A,6*(37*B,A),4*B,2*C)]):,4;],$BG_PLF1(18),TRKES
2453      $DEF STBGRUB13H=STMOD,STBGRUB13O
2454      $DEF STBGRUB13=$FLG(O,STBGRUB13O,STBGRUB13H);                                                                               
2455
2456  # Bahnhof E 5/6
2457  $DEF STBGRUB15O=SKY,BG_FOREST1,                                                                 \
2458      [BG<=BGCITYRU1:..,0,#;1-40*1,TREES_SUMMER:..,0,#;BGCITYRU2:..,0,#;                                  \
2459      ((RU_BOIARKA1,50,RU_BOIARKA2)|RU_BRYANSK_ORLOVSKY|RU_PERM1),:,8; J_TICKET,200,J_TICKET,:,8;         \
2460      J_TICKET,500,J_TICKET,:,8,;RO_AUREL4S,1450,RO_AUREL4S,:,8; BGPLATT1800C,:,8;                        \
2461      PLF_CZ01,PLF_CZ13A,PLF_CZ02,PLF_CZ06,PLF_CZ07,PLF_CZ03,PLF_CZ05,PLF_CZ04,PLF_CZ05,PLF_CZ03,         \
2462      PLF_CZ08,PLF_CZ13,PLF_CZ10,PLF_CZ14,:,-2;],TRKES
2463      $DEF STBGRUB15H=STMOD,STBGRUB15O
2464      $DEF STBGRUB15=$FLG(O,STBGRUB15O,STBGRUB15H);                                                                               
2465
2466  #--------------------------------------------------------------------------------------------------#
2467  # USA
2468
2469  # Stadt modern USA E56
2470  $DEF STBGUS01=$CM139(20)|([BG-=BGPIC/SXC1344351.JPG:,-25;][DX=1920]),TRKGR
2471  # Srecke E1-6
2472  $DEF STBGUS02=$AG198(55),TRKGR
2473  $DEF STBGUS03=$AG87(22),TRKGR
2474  $DEF STBGUS04=$MTS980510(1),TRKGR
2475  $DEF STBGUS06=$AG110(30),TRKGR
2476  $DEF STBGUS07=$AG159(20),TRKGR
2477  $DEF STBGUS08=$AG186(40),TRKGR
2478  # Strecke USA E56
2479  $DEF STBGUS05=$CM183(25),TRKGR
2480
2481  #--------------------------------------------------------------------------------------------------#
2482  # Australien
2483
2484  # Strecke Australien
2485  $DEF STBGAUS1=SKY,                                                                                      \
2486      [BG<=SCENE_DESERT(2|1):..,0; (20*(10|20|30|EUCALYPT0(1|2|3|4|5|6|7)|TREE92|PALM6)):..,0;],EMBS,TRKES
2487  $DEF STBGAUS2=[BG-=BgHs/BG_Australia02.jpg:..,-90,<=>;],TRKES
2488  $DEF STBGAUS3=[BG-=BgHs/BG_Australia03.jpg:..,-10,<=>;],TRKDH
2489  $DEF STBGAUS4=[BG-=BgHs/BG_Australia01.jpg:..,0,<=>;],TRKES
2490
2491  # Bahnhof Australien
2492  $DEF STBGAUSB14O=SKY,                                                                           \
2493      [BG<=SCENE_DESERT(2|1):..,0; BGCITYAUS:..,0,#;                                                      \
2494      (20*(10|20|30|EUCALYPT0(1|2|3|4|5|6|7)|TREE92|PALM6)):..,0;BGCITYAUS:..,0,#;                        \
2495      (AU_NSW_PC2|                                                                                        \
2496      (AU_NSW_PLF1[AR:3*AU_NSW_PLF2,#AU_NSW_PLF1][OB:(22*AU_NSW_A4A),,12]                                 \
2497      [OT:AU_NSW_A(8|4)|AU_VR_CARISBROOK1,,12])):,0;                                                      \
2498      PASG06,10,PASG07,5,PLF_J2D,5,PASG02,5,PLF_J2D,20,PASG01,:,12;],EMBS,TRKES
2499      $DEF STBGAUSB14H=STMOD,STBGAUSB14O
2500      $DEF STBGAUSB14=$FLG(O,STBGAUSB14O,STBGAUSB14H);                                                                            
2501
2502  #--------------------------------------------------------------------------------------------------#
2503  # Japan
2504  # Strecke Japan
2505  $DEF STBGJP=[BG-=((|#)SCENE_A1006):..,0,<=>,101;                                                                \
2506      (20*(10|3|7|TREE63|TREE64|TREE14|TREE21|TREE17|TREE48|TREE83|TREE89|TREE93|TREE3C|TREE3E|TREE4C|    \
2507      TREE24|TREE57|TREE43|TREE44|TREE52)):..,0;]
2508  # Strecke Japan 2
2509  $DEF STBGJP02=$AG158(30),TRKGR
2510  # Strecke Japan 3
2511  $DEF STBGJP03=[BG-=BgLs/LS_Japan_Hokkaido1S.jpg:..,-20,#;TRACKFGWD:..,^0;TRACKFGDW:..,^0;]
2512
2513  # Bahnhof Japan EP 5-6
2514
2515  $DEF STBGJPST05O=SKY,                                                                           \
2516      [BG<=[WMIXF:,CITY_J016,CITY_J017,CITY_J018,CITY_J024]:..,,#;                                        \
2517      150,J_GERONAMES,20,BGPASS1,15,LAMP01,17,J_PBANK,30,BGPASS1,10,BGPASS1,30,BGPASS1,12,BGPASS1,17,BGPASS1,40,  \
2518      J_ZAUN,J_GERO,20,BGPASS1,15,BGPASS1,30,J_PBANK,10,PASG01,30,BGPASS1,12,BGPASS1,7,LAMP01,17,PASG01,20,       \
2519      J_GERONAMES:,9; J_GEROREL,4*J_GERORM,1054,4*J_GERORM,J_GERORE,13:,9;55*PLF_GERO;],EMBS,TRKES    
2520      $DEF STBGJPST05H=STMOD,STBGJPST05O
2521      $DEF STBGJPST05=$FLG(O,STBGJPST05O,STBGJPST05H);                                                                            
2522  #--------------------------------------------------------------------------------------------------#
2523  # Indien
2524   $DEF STBGIN02=[BG-=BgPic/India_Matheran.JPG:..,-620,<=>;TRBED51:..,^0;]
2525   $DEF STBGIN01=[BG-=BgLs/LS_India.jpg:..,-20,#;],TRKES
2526  #--------------------------------------------------------------------------------------------------#
2527  # China
2528  # Strecke China
2529  $DEF STBGCN01=[BG-=BgLs/LS_china_muztaghS.jpg:..,-40,#;TRACKFGDH:..,^0;]
2530  $DEF STBGCN02=[BG-=BgLs/LS_China_YangshuoS.jpg:..,-14;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2531  #--------------------------------------------------------------------------------------------------#
2532  # Naher Osten
2533   $DEF STBGNE01=[BG-=BgHs/BG_ARABIA1.jpg:..,-650,<=>;],TRKGS
2534   $DEF STBGNE02=[BG-=BgHs/BG_ARABIA2.jpg:..,-210,<=>;],TRKGS
2535   $DEF STBGNE03=[BG-=BgHs/BG_ARABIA3.jpg:..,-10,<=>;],TRKDB
2536  #--------------------------------------------------------------------------------------------------#
2537  # Afrika
2538
2539  # Strecke Afrika
2540  $DEF STBGAFS1=SKY,                                                                                      \
2541      [BG<=SCENE_DESERT3:..,0;                                                                            \
2542      (20*(40|60|90|20|25|50|70|80|TREE106W|AGAVE1|TREE92|EUCALYPT10|PALM12|PALM16|PALMLINE1|PINUS1|      \
2543      EUCALYPT02)(|[M])):..,0;],EMBS,TRKDB
2544
2545  $DEF STBGAFS2=[BG-=BgHs/BG_AFRICA01.jpg:..,-10,<=>;],TRKST    
2546  $DEF STBGAFS3=[BG-=BgHs/BG_AFRICA02.jpg:..,0,<=>;],TRKST
2547  $DEF STBGAFS4=[BG-=BgHs/BG_AFRICA03.jpg:..,-0,<=>,20,1843;],TRKDHB
2548  #--------------------------------------------------------------------------------------------------#
2549  # Südamerika
2550
2551  # Strecke Argentinien
2552  $DEF STBGSAS1=[BG-=BgLs/LS_argentina2S.jpg:..,-15,#;TRACKFGWH:..,^0;TRACKFGDH:..,^0;]
2553  $DEF STBGSAS2=[BG-=BgLs/LS_Argentina_PatagoniaS.jpg:..,-15,#;],EMBS,TRKDB
2554
2555  #--------------------------------------------------------------------------------------------------
2556  #
2557  # Hintergrund Streifen für open door (Bahnsteig vorn)
2558  #
2559  #--------------------------------------------------------------------------------------------------#
2560  # Deutschland
2561
2562  # E1
2563  $DEF STBGOPD1=SKY,,BG_FOREST1,CITYBGE1,BFHLBGE1,PLFHLBGE1F
2564
2565  # E2
2566  $DEF STBGOPD2=SKY,,BG_FOREST1,CITYBGE1,BFHLBGE2,PLFHLBGE1F
2567
2568  # E3
2569  $DEF STBGOPD3=SKY,BG_FOREST1,CITYBGE3,BFHLBGE3,PLFHLBGE1F
2570
2571  # E4
2572  $DEF STBGOPD4=SKY,[WX],BG_FOREST1,CITYBGE3,BFHLBGE4,PLFHLBGE4F  
2573      
2574  # E5
2575  $DEF STBGOPD5=SKY,[W=X],BG_FOREST1,CITYBGE5,BFHLBGE5,PLFHLBGE5F
2576
2577  # E6
2578  $DEF STBGOPD6=SKY,[W=X],BG_FOREST1,CITYBGE5,BFHLBGE6,PLFHLBGE6F
2579
2580  # France Catenary E3
2581      $DEF STBGOPF3=SKY,[W=X],                                                                            \
2582          [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;                                                    \
2583          F_CHARLEVILLE[OT:F_CANFRANC3,423,52][OT:F_CANFRANC3,115,52][OT:F_CANFRANC3,732,52],:,8;],       \
2584          [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,                            \
2585          PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CANFRANC3,500,F_CANFRANC3,:,43;                  \
2586          BGPASS1,16,F_CANFRANC3S,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,     \
2587          B_SHELTER,26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,        \
2588          DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,    \
2589          15,BANK04,30,B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_CANFRANC3S,12,   \
2590          PERS01,20,PERS03:,8;PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4;TRBED25:..,^0;FL_SBB_F,FL_SNCFA_M1:..,-4,#;]     
2591    
2592  # France Catenary E4
2593      $DEF STBGOPF4=SKY,[W=X],                                                                            \
2594          [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;                                                    \
2595          F_CHARLEVILLE[OT:F_CHATELLERAULT,423,52][OT:F_CHATELLERAULT,115,52][OT:F_CHATELLERAULT,732,52], \
2596          :,8;],[FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,                              \
2597          PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CHATELLERAULT,480,F_CHATELLERAULT,:,42;          \
2598          BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,    \
2599          20,B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,  \
2600          BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,     \
2601          J_TICKET,16,BGPASS1,15,BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,  \
2602          12,LAMP01,15,F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4;TRBED25:..,^0;         \
2603          FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2604
2605
2606  # France Catenary E5
2607      $DEF STBGOPF5=SKY,[W=X],                                                                            \
2608          [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#;                                            \
2609          F_STATION02_2[OT:F_CHATELLERAULT,206,36]:,8;],                                                  \
2610          [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,                                    \
2611          PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_CHATELLERAULT,480,F_CHATELLERAULT,:,43;          \
2612          BGPASS1,16,F_CHATELLERAULTS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,    \
2613          20,B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,  \
2614          BGPASS1,DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,     \
2615          J_TICKET,16,BGPASS1,15,BANK04,10,B_SHELTER,10,F_COMP,10,BGPASS1,25,BANK01,DUSTBIN1,15,BGPASS1,  \
2616          12,LAMP01,15,F_CHATELLERAULTS,12,PERS01,20,PERS03,:,8;18*PLF_5D:,-1;TRBED25:..,^0;              \
2617          FL_SBB_F,FL_SNCFA_M1:..,-4,#;]
2618
2619  # France Catenary E6
2620      $DEF STBGOPF6=SKY,[W=X],                                                                            \
2621          [BG<=BGCITYDA(1|2):..,0,#;BGCITYDM(1|2),150,:..,0,#;                                            \
2622          F_VILLENEUVE3,50,F_VILLENEUVE4[SM:0.7]:,8;],                                                    \
2623  [FG=BGPASS1,16,F_PANTINS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,    \
2624          B_SHELTER,26,BGPASS1,25,PASG03,10,J_TICKET,5,PLF_J2D,20,PASG02,20,                              \
2625          WALL22B[BC:-20,20][BT:,10][B:0,10,84,1,#842],30,PASG01,25,BGPASS1,DUSTBIN1,11,PLF_J2D,25,       \
2626          BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,4,J_TICKET,16,BGPASS1,15,BANK04,30,   \
2627          B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_PANTINS,12,PERS01,20,PERS03,  \
2628          :,8;19*PLF_5D,:,0;#PLF_D01B,10*PLF_D01C,PLF_D01B,:,9;TRBED25:..,^0;                             \
2629          FL_SBB_F,FL_SNCFA_M1:..,-4,#;]  
2630
2631  # France Stromschiene
2632      $DEF STBGOPFM=SKY,[W=X],                                                                            \
2633          [BG<=BGCITYDA1:..,0,#;BGCITYDA2,150,:..,0,#;F_STATION02_2[OT:F_EPINAL,206,36]:,8;],             \
2634          [FG=PLF_GASTEIZ3[BT:0,0,89,65][BT:0,0,92,53],8*PLF_GASTEIZ3,                            \
2635          PLF_GASTEIZ3[BT:6,0,89,65][BT:3,0,92,53]:,-2;F_EPINAL,500,F_EPINAL,:,43;                        \
2636          BGPASS1,16,F_EPINALS,30,LAMP01,40,BGPASS1,20,BGPASS1,5,PLF_J2D,10,BGPASS1,15,BGPASS1,20,        \
2637          B_SHELTER,26,BGPASS1,25,PASG03,35,PLF_J2D,20,PASG02,20,DBAG_STAIRS,30,PASG01,25,BGPASS1,        \
2638          DUSTBIN1,11,PLF_J2D,25,BANK8,15,BANK8,20,BGPASS1,28,BGPASS1,20,BANK8,35,DUSTBIN1,20,BGPASS1,    \
2639          15,BANK04,30,B_SHELTER,26,BGPASS1,35,BANK01,DUSTBIN1,15,BGPASS1,12,LAMP01,15,F_EPINALS,12,      \
2640          PERS01,20,PERS03:,8;PLF_CH1B,17*PLF_CH1A,#PLF_CH1B:,-4;TRBED25:..,^0;           \
2641          SNCF_3eRail_FG:..,-2,#;]
2642
2643  # Italien
2644
2645      $DEF STBGOPI=SKY,[W=X],                                                                             \
2646          [BG<=TREE31,8,TREE47,10,TREE46,6,TREE16,16,TREE53,12,TREE23:..,0;                               \
2647          I_H079,I_H061_1,NL_THARDE_1,NL_OFFICE01_3,D_ROHBAU,D_FASHION,D_H064A,D_H055,D_H067,D_H033,      \
2648          D_MUNCHEN09A:..,0; D_RAUENSTEIN1B,D_RAUENSTEIN2,3;FL_FS4Q:..;],                                 \
2649          [FG=BGPASS1,16,LAMP01,47,PAS14,30,BGPASS1,20,BGPASS1,20,BGPASS1,154,BGPASS1,20,I_TIMTAB1,26,    \
2650          BANK04,20,DBAG_STAIRS,BANK8,20,BGPASS1,40,PASG01,28,BGPASS1,20,BANK06,BANK05,24,I_TIMTAB1,16,   \
2651          BGPASS1,30,BGPASS1,30,BANK06,24,BGPASS1,18,PAS06,17,LAMP01,12,PERS01,20,PERS03:,8;15*PLF_5D;    \
2652          #PLF_D01B,6*PLF_D01C,PLF_D01B:,8;TRACKFGDB:..,^0;FL_FS4QF:..;]
2653
2654  # Japan
2655
2656      $DEF STBGOPJ=SKY,                                                                                   \
2657          [BG<=CITY_J016,CITY_J017,CITY_J018,#CITY_J024;                                                  \
2658          150,J_GERONAMES,20,BGPASS1,15,LAMP01,17,J_PBANK,30,BGPASS1,10,BGPASS1,30,BGPASS1,12,BGPASS1,    \
2659          17,BGPASS1,40,J_ZAUN,J_GERO,20,BGPASS1,15,BGPASS1,30,J_PBANK,10,PASG01,30,BGPASS1,12,BGPASS1,   \
2660          7,LAMP01,17,PASG01,20,J_GERONAMES:,9; J_GEROREL,4*J_GERORM,1054,4*J_GERORM,J_GERORE,13:,9;],    \
2661          [FG=BGPASS1,15,BGPASS1,30,J_PBANK,33,J_GERONAMES,38,PASG02,20,BGPASS1,30,BGPASS1,12,BGPASS1,    \
2662          30,BGPASS1,10,BGPASS1,17,J_PBANK,30,BGPASS1,50,#PLF_GASTEIZ4,BGPASS1,15,LAMP01,17,J_TICKET,     \
2663          20,J_PBANK,10,PLF_GASTEIZ4,40,BGPASS1,40,PASG01,30,BGPASS1,12,BGPASS1,7,BGPASS1,28,BGPASS1,     \
2664          15,BGPASS1,30,J_PBANK,10,LAMP01,17,PASG01,20,J_GERONAMES,44,J_PBANK,40,BGPASS1:,9;              \
2665          J_GEROREL,30*J_GERORM,J_GERORE,13:,9;55*PLF_GERO; ],EMBS,TRKES
2666  #--------------------------------------------------------------------------------------------------
2667  # Night
2668  $DEF STBGNIGHTD=[W=X][BG-=BgHs/BG_GERMANY03.jpg[BC:-90,-30]:..,-120,<=>;EMB7[BC:-90,-30]:..,^0;         &\
2669          TRBED(51|12|31)[BC:-90,-30]:..,^0;]
2670  $DEF STBGNIGHTE=[W=X][BG-=BgHs/BG_GERMANY03.jpg[BC:-90,-30]:..,-120,<=>;EMB7[BC:-90,-30]:..,^0;         &\
2671          TRBED(51|12|31)[BC:-90,-30]:..,^0;]                                                             &\
2672          [FG>=;FL_DB_M(4:1F5|2_5)[BC:-90,-30],FL_DB_F5[BC:-90,-30]:..,#-63,#;]
2673  $DEF STBGNIGHT=$FLG(E,STBGNIGHTE,STBGNIGHTD)
2674
2675  #--------------------------------------------------------------------------------------------------  
2676
2677  # Hintergrund Streifen für Länderpools
2678
2679  %*DEF(ENVDEF(N,B,C)=$DEF %N=[BG#=@@;],$IF($BGTYPE>=1,($IF($BGTYPE>=3,%B,$IF($BGTYPE==2,TRACK)),%C)))
2680  %*DEF(BGPDEF(N)=$DEF BGP%N=$FLG(B,BGP%N;N,$FLG(A,BGP%N;A,$FLG(T,BGP%N;T,$FLG(O,BGP%N;O,$FLG(1,BGP%N;1,\
2681        $FLG(2,BGP%N;2,$FLG(3,BGP%N;3,$FLG(4,BGP%N;4,$FLG(5,BGP%N;5,BGP%N;6))))))))))
2682
2683  # Ungarn
2684  $DEF BGPHU1=STBGFO|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T|STBGDE03T
2685  $DEF BGPHU2=STBGFO|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T|STBGDE03T
2686  $DEF BGPHU3=STBGFO|STBGHUB13|STBGDE03T|STBGCZ01|STBGHU01T|STBGHU02|STBGHU03|STBGHU05T|STBGROS1T|        \
2687      STBGBGS2|STBGDE03T
2688  $DEF BGPHU4=STBGFO|STBGHUB13|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04|         \
2689      STBGROS1O|STBGROS1O|STBGBGS2
2690  $DEF BGPHU5=STBGFO|STBGHUB15|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04|         \
2691      STBGROS1O|STBGBGS2
2692  $DEF BGPHU6=STBGFO|STBGHUB15|STBGDE03O|STBGCZ01|STBGHU01O|STBGHU02|STBGHU03|STBGHU05O|STBGHU04|         \
2693      STBGROS1O|STBGBGS2
2694  $DEF BGPHUA=STBGDE05O
2695  $DEF BGPHUN=STBGNIGHT
2696  $DEF BGPHURF=$FLG(1,STBGDG2,$FLG(2,STBGDG2,$FLG(3,STBGDG(2|3),$FLG(4,STBGDG(3|4),STBGDG4)))) 
2697  $DEF BGPHUT=STBGOPD4
2698  $DEF BGPHUO=$FLG(F,BGPHURF,$FLG(5,STBGHUB15,$FLG(6,STBGHUB15,STBGHUB13))) 
2699  %BGPDEF(HU)
2700  %ENVDEF(M_ENV,BGPHU,CATHU)
2701
2702  # Deutschland
2703  $DEF BGPDE1=STBGFT|STBGDI2|STBGDE01T|STBGDBB11|STBGPLS02T|STBGDE03T|STBGLU01T|STBGDE05T|STBGDE04T|      \
2704      STBGFRS3T|STBGDBB21|STBGHU01T|STBGHU05T|STBGROS1T|STBGDE07T|STBGHU03|STBGDG2
2705  $DEF BGPDE2=STBGFT|STBGDI2|STBGDE01T|STBGDBB12|STBGDBB22|STBGPLS02T|STBGDE03T|STBGLU01T|STBGDE05T|      \
2706      STBGDE04T|STBGFRS3T|STBGDBW22|STBGDBW12|STBGHU01T|STBGHU05T|STBGROS1T|STBGDE07T|STBGHU03|STBGDG2
2707  $DEF BGPDE3=STBGFO|STBGDI1|STBGDE01O|STBGDE01T|STBGDBB13|STBGDBB23|STBGDE02T|STBGDE03T|STBGLU01T|       \
2708      STBGDE05T|STBGDE04T|STBGFRS3T|STBGDBW23|STBGDBW13|STBGDBW33|STBGFRS4|STBGHU01T|STBGHU05T|           \
2709      STBGROS1T|STBGBGS2|STBGPLS02T|STBGDE07T|STBGHU03|STBGDG3
2710  $DEF BGPDE4=STBGFO|STBGDI1|STBGDI4|STBGDE01O|STBGDBB14|STBGDBB24|STBGDE02O|STBGDE03O|STBGLU01O|         \
2711      STBGDE05O|STBGDE04O|STBGFRS3O|STBGDBW24|STBGDBW34|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|  \
2712      STBGPLS02O|STBGDE06O|STBGDE07O|STBGHU03|STBGDG3|STBGDG4
2713  $DEF BGPDE5=STBGFO|STBGDI1|STBGDI4|STBGDE01O|STBGDBB15|STBGDBB25|STBGDE02O|STBGDE03O|STBGLU01O|         \
2714      STBGDE05O|STBGDE04O|STBGFRS3O|STBGDBW36|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|            \
2715      STBGPLS02O|STBGDE06O|STBGDE07O|STBGHU03|STBGDG4
2716  $DEF BGPDE6=STBGFO|STBGDI4|STBGDE01O|STBGDBB16|STBGDBB26|STBGDE02O|STBGDE03O|STBGLU01O|STBGDE05O|       \
2717      STBGDE04O|STBGFRS3O|STBGDBW36|STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|           \
2718      STBGDE06O|STBGDE07O|STBGHU03|STBGDG4
2719
2720          # Bahnhof für Rangierbewegung
2721  $DEF BGPDERP=$FLG(1,STBGDBB21,$FLG(2,STBGDBB22,$FLG(3,STBGDBB23,$FLG(4,STBGDBB24,$FLG(5,STBGDBB25,STBGDBB26))))) 
2722  $DEF BGPDERF=$FLG(1,STBGDG2,$FLG(2,STBGDG2,$FLG(3,STBGDG(2|3),$FLG(4,STBGDG(3|4),STBGDG4)))) 
2723  $DEF BGPDEO=$FLG(P,BGPDERP,BGPDERF)        
2724          # Bahnhof für mit Halt hinter dem Bahnsteig für offene Türen
2725  $DEF BGPDET=$FLG(1,STBGOPD1,$FLG(2,STBGOPD2,$FLG(3,STBGOPD3,$FLG(4,STBGOPD4,$FLG(5,STBGOPD5,STBGOPD6))))) 
2726          # Def Winter
2727  $DEF BGPDEA=$FLG(4,(STBGDE05O|STBGATS02),$FLG(5,(STBGDE05O|STBGATS02),$FLG(6,(STBGDE05O|STBGATS02),(STBGDE05T|STBGATS02))))  
2728  $DEF BGPDEN=STBGNIGHT
2729  %BGPDEF(DE)
2730  %ENVDEF(DRG_ENV,BGPDRG,CATDRG)
2731  %ENVDEF(DB_ENV,BGPDB,CATDB)
2732  %ENVDEF(DE_ENV,BGPDE,CATDE)
2733
2734  # Deutschland-DDR
2735  $DEF BGPDR3=STBGDDRB1|STBGFO|STBGDE01T|STBGDI1|STBGDK01|STBGDE03T|STBGFRS3T|STBGDBW53|STBGDBW43|        \
2736      STBGHU01T|STBGHU05T|STBGROS1T|STBGBGS2|STBGDE04T|STBGPLS02T|STBGDE07T|STBGHU03|STBGDG3
2737  $DEF BGPDR4=STBGDDRB1|STBGFO|STBGDI1|STBGDK01|STBGDE03O|STBGLU01O|STBGFRS3O|STBGDBW54|STBGDBW44|        \
2738      STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGDE01O|STBGDE04O|STBGPLS02O|STBGDE07O|STBGDE07O|STBGHU03|STBGDG(3|4)
2739  $DEF BGPDR5=STBGFO|STBGDI1|STBGDI4|STBGDBB15|STBGDBB25|STBGDE02O|STBGDE03O|STBGLU01O|STBGDE05O|         \
2740      STBGDE04O|STBGFRS3O|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGDE01O|STBGPLS02O|STBGDE07O|STBGHU03|STBGDG4
2741  $DEF BGPDR1=BGPDR3
2742  $DEF BGPDR2=BGPDR3
2743  $DEF BGPDR6=BGPDR5
2744          # Bahnhof für Rangierbewegung  DDR
2745  $DEF BGPDRRP=STBGDBB23 
2746  $DEF BGPDRRF=$FLG(5,STBGDG4,STBGDG(2|3)) 
2747  $DEF BGPDRO=$FLG(P,BGPDRRP,BGPDRRF)        
2748          # Bahnhof für mit Halt hinter dem Bahnsteig für offene Türen
2749  $DEF BGPDRT=STBGOPD3
2750  $DEF BGPDRA=BGPDEA 
2751  $DEF BGPDRN=STBGNIGHT
2752
2753  %BGPDEF(DR)  
2754  %ENVDEF(DR_ENV,BGPDR,CATDR)
2755
2756  # Schweiz
2757  $DEF BGPCH1=STBGFN|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2758  $DEF BGPCH2=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2759  $DEF BGPCH3=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGATS03T
2760  $DEF BGPCH4=STBGFN|STBGAT23|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2761  $DEF BGPCH5=STBGFN|STBGCHB15|STBGCHB25|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2762  $DEF BGPCH6=STBGFN|STBGCHB15|STBGCHB25|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGATS03O
2763  $DEF BGPCHA=(STBGATS01|STBGATS02)
2764  $DEF BGPCHT=STBGOPD4
2765  $DEF BGPCHO=$FLG(F,BGPDERF,$FLG(5,STBGCHB15,$FLG(6,STBGCHB15,STBGAT23))) 
2766  $DEF BGPCHN=STBGNIGHT
2767   
2768  %BGPDEF(CH)
2769  %ENVDEF(CH_ENV,BGPCH,CATCH)
2770
2771  # Österreich
2772  $DEF BGPOS1=STBGFN|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T|STBGLU01T|     \
2773      STBGATS03T|STBGHU03
2774  $DEF BGPOS2=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T|      \
2775      STBGLU01T|STBGATS03T|STBGHU03
2776  $DEF BGPOS3=STBGFN|STBGAT23|STBGIT03|STBGDE03T|STBGATS01|STBGATS02|STBGHU01T|STBGHU05T|STBGPLS02T|      \
2777      STBGLU01T|STBGATS03T|STBGHU03
2778  $DEF BGPOS4=STBGFN|STBGAT23|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O|STBGHU05O|       \
2779      STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2780  $DEF BGPOS5=STBGFN|STBGAT15|STBGAT25|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O|        \
2781      STBGHU05O|STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2782  $DEF BGPOS6=STBGFN|STBGAT15|STBGAT25|STBGSLO01|STBGIT03|STBGDE03O|STBGATS01|STBGATS02|STBGHU01O|        \
2783      STBGHU05O|STBGPLS02O|STBGLU01O|STBGATS03O|STBGHU03
2784  $DEF BGPOSA=(STBGATS01|STBGATS02)
2785  $DEF BGPOST=STBGOPD4
2786  $DEF BGPOSO=$FLG(F,BGPDERF,$FLG(5,STBGAT15,$FLG(6,STBGAT15,STBGAT23))) 
2787
2788  %BGPDEF(OS)
2789  %ENVDEF(A_ENV,BGPOS,CATOS)
2790
2791  # Großbritannien
2792  $DEF BGPGB1=STBGFO|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2793  $DEF BGPGB2=STBGFO|STBGGBB13|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2794  $DEF BGPGB3=STBGFO|STBGGBB13|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2795  $DEF BGPGB4=STBGFO|STBGGBB14|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2796  $DEF BGPGB5=STBGFO|STBGGBB15|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2797  $DEF BGPGB6=STBGFO|STBGGBB15|STBGGB01|STBGGB02|STBGGB03|STBGGB04|STBGGB05
2798  $DEF BGPGBA=STBGSW04
2799  $DEF BGPGBT=STBGOPD4
2800  $DEF BGPGBO=$FLG(F,BGPDERF,$FLG(5,STBGGBB15,$FLG(6,STBGGBB15,$FLG(6STBGGBB14,STBGGBB13)))) 
2801  %BGPDEF(GB)
2802  %ENVDEF(GB_ENV,BGPGB,CATGB)
2803
2804
2805  # Irland
2806  $DEF BGPIR1=STBGFO|STBGIR02
2807  $DEF BGPIR2=STBGFO|STBGGBB13|STBGGB01|STBGIR02
2808  $DEF BGPIR3=STBGFO|STBGGBB13|STBGGB01|STBGIR02
2809  $DEF BGPIR4=STBGFO|STBGGBB14|STBGGB01|STBGIR01|STBGIR02
2810  $DEF BGPIR5=STBGFO|STBGGBB15|STBGGB01|STBGIR01|STBGIR02
2811  $DEF BGPIR6=STBGFO|STBGGBB15|STBGGB01|STBGIR01|STBGIR02
2812  $DEF BGPIRA=STBGSW04
2813  $DEF BGPIRT=STBGOPD4
2814  $DEF BGPIRO=$FLG(F,BGPDERF,$FLG(5,STBGGBB15,$FLG(6,STBGGBB15,$FLG(6STBGGBB14,STBGGBB13)))) 
2815  %BGPDEF(IR)
2816  %ENVDEF(IR_ENV,BGPIR,CATGB)
2817
2818  # Frankreich
2819  $DEF BGPFR1=STBGFO|STBGFRS1|STBGES01|STBGATS01|STBGIT06|STBGFRS3T|STBGHU01T|STBGHU05T|STBGPLS02T|       \
2820      STBGLU01T|STBGHU03|STBGFRB23
2821  $DEF BGPFR2=STBGFO|STBGFRS1|STBGFRB13|STBGES01|STBGATS01|STBGIT06|STBGFRS3T|STBGHU01T|STBGHU05T|        \
2822      STBGPLS02T|STBGLU01T|STBGHU03|STBGFRB23|STBGFRB13|
2823  $DEF BGPFR3=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB13|STBGES01|STBGATS01|STBGDE03T|   \
2824      STBGIT06|STBGFRS3T|STBGFRS4|STBGHU01T|STBGHU05T|STBGPLS02T|STBGLU01T|STBGHU03|STBGFRB23
2825  $DEF BGPFR4=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB14|STBGES01|STBGATS01|STBGDE03O|   \
2826      STBGIT06|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB23|STBGFRB24
2827  $DEF BGPFR5=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB15|STBGES01|STBGATS01|STBGDE03O|   \
2828      STBGIT06|STBGFRS3O|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB24
2829  $DEF BGPFR6=STBGFO|STBGFRS1 &IF(BGUP<=200||W<=2560,|STBGFRS2)|STBGFRB16|STBGES01|STBGATS01|STBGDE03O|   \
2830      STBGIT06|STBGFRS3O|STBGFRS4|STBGHU01O|STBGHU05O|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFRB26
2831  $DEF BGPFRRF=$FLG(4,STBGFG(3|4),$FLG(5,STBGFG4,$FLG(6,STBGFG4,STBGFG3))) 
2832  $DEF BGPFRO=$FLG(F,BGPFRRF,$FLG(5,STBGFRB14,$FLG(6,STBGFRB16,STBGFRB13))) 
2833  $DEF BGPFRT=$FLG(M,STBGOPFM,$FLG(5,STBGOPF5,$FLG(6,STBGOPF6,$FLG(4,STBGOPF4,STBGOPF3))))
2834  $DEF BGPFRA=(STBGATS01|STBGATS02)
2835  %BGPDEF(FR)
2836  %ENVDEF(F_ENV,BGPFR,CATFR)
2837
2838  # Belgien
2839  $DEF BGPBE1=STBGFO|STBGDE03T|STBGFRS3T|STBGBE02|STBGHU01T|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2840  $DEF BGPBE2=STBGFO|STBGDE03T|STBGFRS3T|STBGBE02|STBGHU01T|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2841  $DEF BGPBE3=STBGFO|STBGBEB14|STBGDK01|STBGDE02T|STBGNL02|STBGDE03T|STBGFRS3T|STBGBE01|STBGBE02|         \
2842      STBGFRS4|STBGHU01T|STBGHU05T|STBGROS1T|STBGBGS2|STBGPLS02T|STBGLU01T|STBGHU03|STBGFG3
2843  $DEF BGPBE4=STBGFO|STBGBEB14|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02|         \
2844      STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG(3|4)
2845  $DEF BGPBE5=STBGFO|STBGBEB15|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02|         \
2846      STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG4
2847  $DEF BGPBE6=STBGFO|STBGBEB15|STBGDK01|STBGDE02O|STBGNL02|STBGDE03O|STBGFRS3O|STBGBE01|STBGBE02|         \
2848      STBGFRS4|STBGHU01O|STBGHU05O|STBGROS1O|STBGBGS2|STBGPLS02O|STBGLU01O|STBGDE06O|STBGHU03|STBGFG4
2849  $DEF BGPBEA=STBGSW04
2850  $DEF BGPBET=STBGOPD4
2851  $DEF BGPBEO=$FLG(F,BGPDERF,$FLG(5,STBGBEB15,$FLG(6,STBGBEB15,STBGBEB14))) 
2852  %BGPDEF(BE)
2853  %ENVDEF(B_ENV,BGPBE,CATBE)
2854
2855  # Luxemburg
2856  $DEF BGPLU1=STBGFO|STBGDK01|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T|STBGHU03
2857  $DEF BGPLU2=STBGFO|STBGDK01|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T|STBGHU03
2858  $DEF BGPLU3=STBGFO|STBGBEB14|STBGDK01|STBGDE02T|STBGDE03T|STBGLU01T|STBGHU01T|STBGHU05T|STBGPLS02T|STBGHU03
2859  $DEF BGPLU4=STBGFO|STBGBEB14|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O|       \
2860      STBGPLS02O|STBGHU03
2861  $DEF BGPLU5=STBGFO|STBGLUB15|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O|       \
2862      STBGPLS02O|STBGHU03
2863  $DEF BGPLU6=STBGFO|STBGLUB15|STBGDK01|STBGDE02O|STBGDE03O|STBGLU01O|STBGFRS4|STBGHU01O|STBGHU05O|       \
2864      STBGPLS02O|STBGHU03
2865  $DEF BGPLUA=STBGDE05O
2866  $DEF BGPLUO=$FLG(F,BGPDERF,$FLG(5,STBGLUB15,$FLG(6,STBGLUB15,STBGFRB13))) 
2867  $DEF BGPLUT=STBGOPD4
2868  %BGPDEF(LU)
2869  %ENVDEF(L_ENV,BGPLU,CATLU)
2870
2871  # Niederlande
2872  $DEF BGPNL1=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNL01|STBGDE07T
2873  $DEF BGPNL2=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNL01|STBGDE07T
2874  $DEF BGPNL3=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNLB13|STBGNL01|STBGNL02|STBGDE07T
2875  $DEF BGPNL4=STBGFO &IF(W<=1920,|BGNL01|BGNL02)|STBGNLB14|STBGNL01|STBGNL02|STBGDE07O
2876  $DEF BGPNL5=STBGFO &IF(W<=1920,|BGNL01|BGNL02|BGNL03)|STBGNLB15|STBGNL01|STBGNL02|STBGDE07O
2877  $DEF BGPNL6=STBGFO &IF(W<=1920,|BGNL01|BGNL02|BGNL03)|STBGNLB15|STBGNL01|STBGNL02|STBGDE07O
2878  $DEF BGPNLA=STBGSW04
2879  $DEF BGPNLO=$FLG(F,BGPDERF,$FLG(5,STBGNLB15,$FLG(6,STBGNLB15,$FLG(4,STBGNLB14,STBGNLB13)))) 
2880  $DEF BGPNLT=STBGOPD4
2881  %BGPDEF(NL)
2882  %ENVDEF(NL_ENV,BGPNL,CATNL)
2883
2884  # Dänemark
2885  $DEF BGPDK1=STBGFO|STBGDKB13|STBGDK01|STBGDE07T
2886  $DEF BGPDK2=STBGFO|STBGDKB13|STBGDK01|STBGDE07T
2887  $DEF BGPDK3=STBGFO|STBGDKB13|STBGDK01|STBGNL02|STBGDE07T
2888  $DEF BGPDK4=STBGFO|STBGDKB14|STBGDK01|STBGNL02|STBGDE07O
2889  $DEF BGPDK5=STBGFO|STBGDKB15|STBGDK01|STBGNL02|STBGDE07O
2890  $DEF BGPDK6=STBGFO|STBGDKB15|STBGDK01|STBGNL02|STBGDE07O
2891  $DEF BGPDKA=STBGSW04
2892  $DEF BGPDKO=$FLG(F,BGPDERF,$FLG(5,STBGDKB15,$FLG(6,STBGDKB15,$FLG(4,STBGDKB14,STBGDKB13)))) 
2893  $DEF BGPDKT=STBGOPD4
2894  %BGPDEF(DK)
2895  %ENVDEF(DK_ENV,BGPDK,CATDK)
2896
2897  # Norwegen
2898  $DEF BGPNO1=STBGFN|STBGNOB13|STBGNO01
2899  $DEF BGPNO2=STBGFN|STBGNOB13|STBGNO01
2900  $DEF BGPNO3=STBGFN|STBGNOB13|STBGNO01
2901  $DEF BGPNO4=STBGFN|STBGNOB14|STBGNO01
2902  $DEF BGPNO5=STBGFN|STBGNOB15|STBGNO01
2903  $DEF BGPNO6=STBGFN|STBGNOB15|STBGNO01
2904  $DEF BGPNOA=STBGDE05O
2905  $DEF BGPNOO=$FLG(5,STBGNOB15,$FLG(6,STBGNOB15,$FLG(4,STBGNOB14,STBGNOB13)))
2906  $DEF BGPNOT=STBGOPD4
2907  %BGPDEF(NO)
2908  %ENVDEF(N_ENV,BGPNO,CATNO)
2909
2910  # Schweden
2911  $DEF BGPSE1=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2912  $DEF BGPSE2=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2913  $DEF BGPSE3=STBGFN|STBGNOB13|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2914  $DEF BGPSE4=STBGFN|STBGNOB14|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2915  $DEF BGPSE5=STBGFN|STBGNOB15|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2916  $DEF BGPSE6=STBGFN|STBGNOB15|STBGFI01|STBGSW01|STBGSW02|STBGSW03|STBGSW04|STBGSW05
2917  $DEF BGPSEA=STBGSW04
2918  $DEF BGPSEO=$FLG(F,BGPDERF,$FLG(5,STBGDKB15,$FLG(6,STBGDKB15,$FLG(4,STBGDKB14,STBGDKB13)))) 
2919  $DEF BGPSET=STBGOPD4
2920  %BGPDEF(SE)
2921  %ENVDEF(S_ENV,BGPSE,CATSE)
2922
2923  # Finnland
2924  $DEF BGPSF1=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI03
2925  $DEF BGPSF2=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI03
2926  $DEF BGPSF3=STBGFN|STBGNOB13|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2927  $DEF BGPSF4=STBGFN|STBGNOB14|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2928  $DEF BGPSF5=STBGFN|STBGNOB15|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2929  $DEF BGPSF6=STBGFN|STBGNOB15|STBGNO01|STBGFI01|STBGFI02|STBGFI03
2930  $DEF BGPSFA=STBGDE05O
2931  $DEF BGPSFO=$FLG(5,STBGNOB15,$FLG(6,STBGNOB15,$FLG(4,STBGNOB14,STBGNOB13))) 
2932  $DEF BGPSFT=STBGOPD4
2933  %BGPDEF(SF)
2934  %ENVDEF(FI_ENV,BGPSF,CATFI)
2935
2936  # Portugal
2937  $DEF BGPPO1=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2938  $DEF BGPPO2=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2939  $DEF BGPPO3=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2940  $DEF BGPPO4=STBGITW|STBGESB13|STBGPO01|STBGPO02|STBGES02|STBGPO03
2941  $DEF BGPPO5=STBGITW|STBGESB15|STBGPO01|STBGPO02|STBGES02|STBGPO03
2942  $DEF BGPPO6=STBGITW|STBGESB15|STBGPO01|STBGPO02|STBGES02|STBGPO03
2943  $DEF BGPPOA=STBGDE05O
2944  $DEF BGPPOO=$FLG(5,STBGESB15,$FLG(6,STBGESB15,STBGESB13)) 
2945  $DEF BGPPOT=STBGOPD4
2946  %BGPDEF(PO)
2947  %ENVDEF(P_ENV,BGPPO,CATPO)
2948
2949  # Spanien
2950  $DEF BGPES1=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2951  $DEF BGPES2=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2952  $DEF BGPES3=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02
2953  $DEF BGPES4=STBGITW|STBGESB13|STBGPO02|STBGES01|STBGES02|STBGES03
2954  $DEF BGPES5=STBGITW|STBGESB15|STBGPO02|STBGES01|STBGES02|STBGES03
2955  $DEF BGPES6=STBGITW|STBGESB15|STBGPO02|STBGES01|STBGES02|STBGES03
2956  $DEF BGPESA=STBGATS02
2957  $DEF BGPESO=$FLG(5,STBGESB15,$FLG(6,STBGESB15,STBGESB13)) 
2958  $DEF BGPEST=STBGOPD4
2959  %BGPDEF(ES)
2960  %ENVDEF(E_ENV,BGPES,CATES)
2961
2962  # Italien
2963  $DEF BGPIT1=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT06|STBGIT07
2964  $DEF BGPIT2=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT06|STBGIT07
2965  $DEF BGPIT3=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT03|STBGIT05|STBGIT06|STBGIT07
2966  $DEF BGPIT4=STBGITW|STBGITS13|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2967  $DEF BGPIT5=STBGITW|STBGITS15|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2968  $DEF BGPIT6=STBGITW|STBGITS16|STBGES01|STBGIT01|STBGIT02|STBGIT03|STBGIT04|STBGIT05|STBGIT06|STBGIT07
2969  $DEF BGPITA=(STBGATS01|STBGATS02)
2970  $DEF BGPITN=STBGNIGHT
2971  $DEF BGPITT=STBGOPI
2972  $DEF BGPITO=$FLG(F,BGPDERF,$FLG(5,STBGITS15,$FLG(6,STBGITS16,STBGITS13))) 
2973  %BGPDEF(IT)
2974  %ENVDEF(I_ENV,BGPIT,CATIT)
2975
2976  # Tschechien
2977  $DEF BGPCS1=STBGFO|STBGDE03T|STBGCZ02|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2978  $DEF BGPCS2=STBGFO|STBGDE03T|STBGCZ02|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2979  $DEF BGPCS3=STBGFO|STBGCSB13|STBGDE02T|STBGDE03T|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1T|STBGPLS02T|       \
2980      STBGLU01T|STBGHU03
2981  $DEF BGPCS4=STBGFO|STBGCSB13|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O|        \
2982      STBGPLS02O|STBGLU01O|STBGHU03
2983  $DEF BGPCS5=STBGFO|STBGCSB15|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O|        \
2984      STBGPLS02O|STBGLU01O|STBGHU03
2985  $DEF BGPCS6=STBGFO|STBGCSB15|STBGDE02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGCZ02|STBGCZ03|STBGROS1O|        \
2986      STBGPLS02O|STBGLU01O|STBGHU03
2987  $DEF BGPCSA=STBGDE05O
2988  $DEF BGPCSO=$FLG(F,BGPDERF,$FLG(5,STBGCSB15,$FLG(6,STBGCSB15,STBGDBB23))) 
2989  $DEF BGPCST=STBGOPD4
2990  %BGPDEF(CS)
2991  %ENVDEF(CS_ENV,BGPCS,CATCS)
2992
2993  # Slowakei
2994  $DEF BGPSK1=STBGFO|STBGDE03T|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2995  $DEF BGPSK2=STBGFO|STBGDE03T|STBGSK01|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T|STBGLU01T|STBGHU03
2996  $DEF BGPSK3=STBGFO|STBGCSB13|STBGDE03T|STBGCZ01|STBGSK01|STBGSK01|STBGHU05T|STBGROS1T|STBGPLS02T|       \
2997      STBGLU01T|STBGHU03
2998  $DEF BGPSK4=STBGFO|STBGCSB13|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O|        \
2999      STBGPLS02O|STBGLU01O|STBGHU03
3000  $DEF BGPSK5=STBGFO|STBGCSB15|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O|        \
3001      STBGPLS02O|STBGLU01O|STBGHU03
3002  $DEF BGPSK6=STBGFO|STBGCSB15|STBGDE03O|STBGLU01O|STBGCZ01|STBGSK01|STBGSK01|STBGHU05O|STBGROS1O|        \
3003      STBGPLS02O|STBGLU01O|STBGHU03
3004  $DEF BGPSKA=STBGDE05O
3005  $DEF BGPSKO=$FLG(F,BGPDERF,$FLG(5,STBGCSB15,$FLG(6,STBGCSB15,STBGDBB23))) 
3006  $DEF BGPSKT=STBGOPD4
3007  %BGPDEF(SK)
3008  %ENVDEF(SK_ENV,BGPSK,CATCS)
3009
3010  # Polen
3011  $DEF BGPPL1=STBGFT|STBGPLS02T|STBGDE03T|STBGLU01T|STBGLU01O|STBGHU01T|STBGROS1T|STBGDE07T|STBGHU03
3012  $DEF BGPPL2=STBGFT|STBGPLS02T|STBGDE03T|STBGLU01T|STBGLU01O|STBGHU01T|STBGROS1T|STBGDE07T|STBGHU03
3013  $DEF BGPPL3=STBGFT|STBGPLB13|STBGPLS02T|STBGDE03T|STBGHU01T|STBGROS1T|STBGNL02|STBGDE07T|STBGHU03
3014  $DEF BGPPL4=STBGFO|STBGPLB13|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O|     \
3015      STBGNL02|STBGDE07O|STBGHU03
3016  $DEF BGPPL5=STBGFO|STBGPLB15|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O|     \
3017      STBGNL02|STBGDE07O|STBGHU03
3018  $DEF BGPPL6=STBGFO|STBGPLB15|STBGPLS01|STBGPLS02O|STBGDE03O|STBGLU01O|STBGCZ01|STBGHU01O|STBGROS1O|     \
3019      STBGNL02|STBGDE07O|STBGHU03
3020  $DEF BGPPLA=STBGDE05O
3021  $DEF BGPPLO=$FLG(F,BGPDERF,$FLG(5,STBGPLB15,$FLG(6,STBGPLB15,STBGPLB13))) 
3022  $DEF BGPPLT=STBGOPD4
3023  %BGPDEF(PL)
3024  %ENVDEF(PL_ENV,BGPPL,CATPL)
3025
3026  # Rumänien
3027  $DEF BGPRO1=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3028  $DEF BGPRO2=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3029  $DEF BGPRO3=STBGFO|STBGROS1T|STBGROS2|STBGROB13|STBGSK01|STBGPLS02T|STBGHU05T
3030  $DEF BGPRO4=STBGFO|STBGROS1O|STBGROS2|STBGROB13|STBGSK01|STBGPLS02O|STBGHU05O
3031  $DEF BGPRO5=STBGFO|STBGROS1O|STBGROS2|STBGROB15|STBGSK01|STBGPLS02O|STBGHU05O
3032  $DEF BGPRO6=STBGFO|STBGROS1O|STBGROS2|STBGROB15|STBGSK01|STBGPLS02O|STBGHU05O
3033  $DEF BGPROA=STBGDE05O
3034  $DEF BGPROO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3035  $DEF BGPROT=STBGOPD4
3036  %BGPDEF(RO)
3037  %ENVDEF(RO_ENV,BGPRO,CATRO)
3038
3039  # Slowenien
3040  $DEF BGPSL1=STBGFO|STBGSLO01|STBGIT03|STBGIT06|STBGBGS1|STBGPLS02T
3041  $DEF BGPSL2=STBGFO|STBGSLO01|STBGIT03|STBGIT06|STBGBGS1|STBGPLS02T
3042  $DEF BGPSL3=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02T
3043  $DEF BGPSL4=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3044  $DEF BGPSL5=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3045  $DEF BGPSL6=STBGFO|STBGSLO01|STBGIT03|STBGIT05|STBGIT06|STBGBGS1|STBGPLS02O|STBGATS03O
3046  $DEF BGPSLA=STBGATS02
3047  $DEF BGPSLO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3048  $DEF BGPSLT=STBGOPD4
3049  %BGPDEF(SL)
3050  %ENVDEF(SLO_ENV,BGPSL,CATSL)
3051
3052  # Kroatien
3053  $DEF BGPHR1=STBGITW|STBGMON01|STBGCR01|STBGBGS1
3054  $DEF BGPHR2=STBGITW|STBGMON01|STBGCR01|STBGBGS1
3055  $DEF BGPHR3=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3056  $DEF BGPHR4=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3057  $DEF BGPHR5=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3058  $DEF BGPHR6=STBGITW|STBGMON01|STBGCR01|STBGIT05|STBGBGS1
3059  $DEF BGPHRA=STBGDE05O
3060  $DEF BGPHRO=STBGOPD4
3061  $DEF BGPHRT=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3062  %BGPDEF(HR)
3063  %ENVDEF(HR_ENV,BGPHR,CATHR)
3064
3065  # Serbien
3066  $DEF BGPSB1=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3067  $DEF BGPSB2=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3068  $DEF BGPSB3=STBGFO|STBGMON01|STBGSB01|STBGBGS1
3069  $DEF BGPSB4=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3070  $DEF BGPSB5=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3071  $DEF BGPSB6=STBGFO|STBGMON01|STBGMON02|STBGSB01|STBGBGS1
3072  $DEF BGPSBA=STBGDE05O
3073  $DEF BGPSBO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3074  $DEF BGPSBT=STBGOPD4
3075  %BGPDEF(SB)
3076  %ENVDEF(YU_ENV,BGPSB,CATYU)
3077
3078  # Montenegro
3079  $DEF BGPMO1=STBGITW|STBGMON01|STBGBGS1
3080  $DEF BGPMO2=STBGITW|STBGMON01|STBGBGS1
3081  $DEF BGPMO3=STBGITW|STBGMON01|STBGBGS1
3082  $DEF BGPMO4=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3083  $DEF BGPMO5=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3084  $DEF BGPMO6=STBGITW|STBGMON01|STBGMON02|STBGBGS1
3085  $DEF BGPMOA=STBGDE05O
3086  $DEF BGPMOT=STBGOPD4
3087  $DEF BGPMOO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3088  %BGPDEF(MO)
3089
3090  # Bulgarien
3091  $DEF BGPBG1=STBGFO|STBGFRS3T|STBGROS1T
3092  $DEF BGPBG2=STBGFO|STBGFRS3T|STBGROS1T
3093  $DEF BGPBG3=STBGFO|STBGBGS2|STBGFRS3O|STBGROS1T
3094  $DEF BGPBG4=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3095  $DEF BGPBG5=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3096  $DEF BGPBG6=STBGFO|STBGBGS1|STBGBGS2|STBGFRS3O|STBGROS1O
3097  $DEF BGPBGA=STBGSW04
3098  $DEF BGPBGT=STBGOPD4
3099  $DEF BGPBGO=$FLG(5,STBGROB15,$FLG(6,STBGROB15,STBGROB13))
3100  %BGPDEF(BG)
3101  %ENVDEF(BG_ENV,BGPBG,CATBG)
3102
3103
3104  # Griechenland
3105  $DEF BGPGR1=STBGITW|STBGGR01
3106  $DEF BGPGR2=STBGITW|STBGGR01
3107  $DEF BGPGR3=STBGITW|STBGGRB13|STBGGR01
3108  $DEF BGPGR4=STBGITW|STBGGRB13|STBGGR01
3109  $DEF BGPGR5=STBGITW|STBGGRB13|STBGGR01
3110  $DEF BGPGR6=STBGITW|STBGGRB13|STBGGR01
3111  $DEF BGPGRA=STBGSW04
3112  $DEF BGPGRT=STBGOPD4
3113  $DEF BGPGRO=STBGGRB13
3114  %BGPDEF(GR)
3115  %ENVDEF(GR_ENV,BGPGR,CATGR)
3116
3117  # Türkei
3118  $DEF BGPTR1=STBGITW|STBGTK01
3119  $DEF BGPTR2=STBGITW|STBGTK01
3120  $DEF BGPTR3=STBGITW|STBGTK01
3121  $DEF BGPTR4=STBGITW|STBGTK01
3122  $DEF BGPTR5=STBGITW|STBGTK01
3123  $DEF BGPTR6=STBGITW|STBGTK01
3124  $DEF BGPTRA=STBGDE05O
3125  $DEF BGPTRT=STBGOPD4
3126  $DEF BGPTRO=STBGGRB13
3127  %BGPDEF(TR)
3128  %ENVDEF(TR_ENV,BGPTR,CATTR)
3129
3130  # Russland, ex SU
3131  $DEF BGPSU1=STBGFN|STBGRUS1|STBGRUS3
3132  $DEF BGPSU2=STBGFN|STBGRUS1|STBGRUS2|STBGRUS3
3133  $DEF BGPSU3=STBGFN|STBGRUS1|STBGRUB13|STBGRUS2|STBGRUS3
3134  $DEF BGPSU4=STBGFN|STBGRUS1|STBGRUB13|STBGRUS2|STBGRUS3
3135  $DEF BGPSU5=STBGFN|STBGRUS1|STBGRUB15|STBGRUS2|STBGRUS3
3136  $DEF BGPSU6=STBGFN|STBGRUS1|STBGRUB15|STBGRUS2|STBGRUS3
3137  $DEF BGPSUA=STBGATS02
3138  $DEF BGPSUT=STBGOPD4
3139  $DEF BGPSUO=$FLG(5,STBGRUB15,$FLG(6,STBGRUB15,STBGRUB13))
3140  %BGPDEF(SU)
3141  %ENVDEF(SU_ENV,BGPSU,CATSU)
3142
3143  # USA-Nordamerika
3144  $DEF BGPUS1=3:STBGFN|2:STBGUS0(2|3|4)|STBGDE01O
3145  $DEF BGPUS2=3:STBGFN|2:STBGUS0(2|3|4|7)|STBGDE01O
3146  $DEF BGPUS3=3:STBGFN|2:STBGUS0(2|3|4|7)|STBGDE01O
3147  $DEF BGPUS4=3:STBGFN|3:STBGUS0(2|3|4|6|7|8)|STBGDE01O
3148  $DEF BGPUS5=3:STBGFN|3:STBGUS0(1|2|3|4|5|6|7|8)|STBGDE01O
3149  $DEF BGPUS6=3:STBGFN|3:STBGUS0(1|2|3|4|5|6|7|8)|STBGDE01O
3150  $DEF BGPUSA=(STBGATS01|STBGATS02)
3151  $DEF BGPUST=STBGOPD4
3152  $DEF BGPUSO=STBGUS01
3153  %BGPDEF(US)
3154  %ENVDEF(US_ENV,BGPUS,CATUS)
3155
3156  # Strecke Japan
3157  $DEF BGPJP1=STBGFN|STBGJP02
3158  $DEF BGPJP2=STBGFN|STBGJP02
3159  $DEF BGPJP3=STBGFN|STBGJP02
3160  $DEF BGPJP4=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)
3161  $DEF BGPJP5=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)|STBGJP05A &IF(BGUP>120,|STBGJP05B)|STBGJP05C|       \
3162      STBGJPST05
3163  $DEF BGPJP6=STBGFN|STBGJP02 &IF(BGUP<130,|STBGJP03)|STBGJP05A|STBGJPST05
3164  $DEF BGPJPA=STBGATS02
3165  $DEF BGPJPT=STBGOPJ
3166  $DEF BGPJPO=STBGJPST05
3167  %BGPDEF(JP)
3168  %ENVDEF(J_ENV,BGPJP,CATJP)
3169
3170  # Strecke Australien
3171  $DEF BGPAU1=STBGAUS1|STBGAUS2|STBGAUS4
3172  $DEF BGPAU2=STBGAUS1|STBGAUS2|STBGAUS4
3173  $DEF BGPAU3=STBGAUS1|STBGAUS2|STBGAUS4
3174  $DEF BGPAU4=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4
3175  $DEF BGPAU5=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4 
3176  $DEF BGPAU6=STBGAUS1|STBGAUSB14|STBGAUS3|STBGAUS2|STBGAUS4
3177  $DEF BGPAUA=STBGDE05O
3178  $DEF BGPAUT=STBGOPD4
3179  $DEF BGPAUO=STBGAUSB14
3180  %BGPDEF(AU)
3181  %ENVDEF(AUS_ENV,BGPAU,CATAU)
3182
3183  # Naher Osten
3184  $DEF BGPNE1=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3185  $DEF BGPNE2=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3186  $DEF BGPNE3=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3187  $DEF BGPNE4=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3188  $DEF BGPNE5=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3189  $DEF BGPNE6=STBGAFS1|STBGNE01|STBGNE02|STBGNE03
3190  $DEF BGPNEA=STBGDE05O
3191  $DEF BGPNET=STBGOPD4
3192  $DEF BGPNEO=STBGNE01
3193  %BGPDEF(NE)
3194  %ENVDEF(NE_ENV,BGPNE,CATOTH)
3195
3196  # Strecke Afrika
3197  $DEF BGPAF1=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3198  $DEF BGPAF2=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3199  $DEF BGPAF3=STBGAFS1|STBGNE03|STBGNE01|STBGAFS3|STBGAFS4
3200  $DEF BGPAF4=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3201  $DEF BGPAF5=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3202  $DEF BGPAF6=STBGAFS1|STBGNE03|STBGNE01|STBGAFS2|STBGAFS3|STBGAFS4
3203  $DEF BGPAFA=STBGDE05O
3204  $DEF BGPAFT=STBGOPD4
3205  $DEF BGPAFO=STBGAFS1
3206  %BGPDEF(AF)
3207  %ENVDEF(AF_ENV,BGPAF,CATOTH)
3208
3209  # Asien
3210  $DEF BGPAS1=STBGAUS1|STBGIN01|STBGIN02
3211  $DEF BGPAS2=STBGAUS1|STBGIN01|STBGIN02
3212  $DEF BGPAS3=STBGAUS1|STBGIN01|STBGIN02
3213  $DEF BGPAS4=STBGAUS1|STBGIN01|STBGIN02
3214  $DEF BGPAS5=STBGAUS1|STBGIN01|STBGIN02
3215  $DEF BGPAS6=STBGAUS1|STBGIN01|STBGIN02
3216  $DEF BGPASA=STBGATS02
3217  $DEF BGPAST=STBGOPJ
3218  $DEF BGPASO=STBGJPST05
3219  %BGPDEF(AS)
3220  %ENVDEF(AS_ENV,BGPAS,CATOTH)
3221
3222  # China
3223  $DEF BGPCN1=STBGFN|STBGJP02|STBGCN01|STBGCN02
3224  $DEF BGPCN2=STBGFN|STBGJP02|STBGCN01|STBGCN02
3225  $DEF BGPCN3=STBGFN|STBGJP02|STBGCN01|STBGCN02
3226  $DEF BGPCN4=STBGFN|STBGJP02|STBGCN01|STBGCN02
3227  $DEF BGPCN5=STBGFN|STBGJP02|STBGCN01|STBGCN02
3228  $DEF BGPCN6=STBGFN|STBGJP02|STBGCN01|STBGCN02
3229  $DEF BGPCNA=STBGATS02
3230  $DEF BGPCNT=STBGOPJ
3231  $DEF BGPCNO=STBGJPST05
3232  %BGPDEF(CN)
3233  %ENVDEF(CN_ENV,BGPCN,CATCN)
3234
3235  # India
3236  #   ToDo
3237  %ENVDEF(IND_ENV,BGPAS,CATOTH)
3238
3239  # Südamerika
3240  $DEF BGPSA1=STBGAUS1|STBGSAS1|STBGSAS2
3241  $DEF BGPSA2=STBGAUS1|STBGSAS1|STBGSAS2
3242  $DEF BGPSA3=STBGAUS1|STBGSAS1|STBGSAS2
3243  $DEF BGPSA4=STBGAUS1|STBGSAS1|STBGSAS2
3244  $DEF BGPSA5=STBGAUS1|STBGSAS1|STBGSAS2
3245  $DEF BGPSA6=STBGAUS1|STBGSAS1|STBGSAS2
3246  $DEF BGPSAA=STBGATS02
3247  $DEF BGPSAT=STBGOPD4
3248  $DEF BGPSAO=STBGSAS2
3249  $DEF BGPSAN=STBGNIGHT
3250  %BGPDEF(SA)
3251  %ENVDEF(SA_ENV,BGPSA,CATSA)
3252
3253  %ENVDEF(OTH_ENV,BGPHU,CATHU)
3254
3255
3256  #-----------------------------------------------------------------------------------------
3257  # Kombination Hintergrund + Weg für Citytraffic
3258  #-----------------------------------------------------------------------------------------
3259  # Hintergrund in Groups
3260
3261  # Verschiedene Verkehrsmittel, unterschiedlicher BG und Way 
3262  $DEF CBG=&IF(BGTYPE>=1,[$1#=&IF(BGTYPE>=3,$2),$3])
3263
3264  # "normerle" MM-Strecke für Citytraffic - Kombination mit CBG
3265  $DEF CWX=&IF(BGTYPE>=1,$1)
3266
3267  # Verschiedene Verkehrsmittel, einheitlicher BG und unterschiedlicher Way 
3268  $DEF EWX=&IF(BGTYPE>=1,[$1#=$2])
3269  $DEF EBG=&IF(BGTYPE>=3,$1)
3270
3271  # Verschiedene Verkehrsmittel, einheitlicher BG und einheitlicher Way mit Flags
3272  %*DEF(ETA(B,T)=ENV=&IF(BGTYPE>=3,%B),&IF(BGTYPE>=1,[WT=%T][WA=ENV_WAYA]))
3273
3274  # Weg + Hintergrund für ein Verkehrsmittel
3275  %*DEF(GBG(B,C)=ENV=[BG#=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));)
3276
3277  #-------------------------------------------------------------------
3278  #Hintergrund in Einzelzeilen
3279  # Weg + Hintergrund für ein Verkehrsmittel
3280  %*DEF(LBG(B,C)=AP=[BG=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));)
3281     
3282  # Weg + Hintergrund BUS
3283  %*DEF(ABG(B)=%LBG(%B,ENV_WAYA))   
3284
3285  # ) ] }