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