TXMACS

SeqSORTBYCOL Source TXMNAMESORTBYCOL TXMBODY
13 %ABG %LBG(%B,ENV_WAYA)
15 %ADDPOOL $ADDPOOL N=%N;; %POOLFLAGS; AP2=%E;;
40 %BDHWLST2 %BDWH(AG_107M,>,,BWU1) %BDWH(AG_110A,<,,BWU2) %BDWH(AG_110B,>,,BWU3) %BDWH(AG_159B,>,,BWU4) %BDWH(AG_186A,<,,BWU5) %BDWH(AG_186B,>,,BWU6) %BDWH(CM_116A,<,,BWU7) %BDWH(CM_116B,>,,BWU8) %BDWH(CM_117M,>,,BWU9) %BDWH(CM_118M,>,,BWU10) %BDWH(CM_121M,<,,BWU11) %BDWH(CM_124M,>,,BWU12) %BDWH(CM_139A,<,,BWU13) %BDWH(CM_139B,>,,BWU14) %BDWH(CM_172M,<,,BWU15) %BDWH(CM_173B,<,,BWU16) %BDWH(CM_183M,<,,BWU17) %BDWH(CM_193A,<,,BWU18) %BDWH(CM_193B,>,,BWU19) %BDWH(CM_196A,<,,BWU20) %BDWH(CM_196B,>,,BWU21) %BDWH(CM_97A,<,,BWU22) %BDWH(HL_166M,<,,BWU23) %BDWH(IN_164A,<,,BWU24) %BDWH(IN_164B,>,,BWU25) %BDWH(IN_90A,<,,BWU26) %BDWH(IN_90B,>,,BWU27)
42 %BDWH $SECTION ML=1; $GROUP NAME=%NAM;; LC=2; SEQ=D; AB=407; BL=40; BG=(BDWH_%BG:,,%SIDE,20; @@ TRBED12:..,^0); Y=*; \ DX=1832; VM=HEAD,JUMP; POOL=(POOL_USA:DF)|US_FR1; $ENDGROUP $ENDSECTION
39 %BDWHLST1 %BDWH(AG_134M,>,QP,BWP1) %BDWH(AG_144A,<,QP,BWP2) %BDWH(AG_158M,>,QM,BWM1) %BDWH(AG_159A,<,QP,BWP3) %BDWH(AG_165A,<,QP,BWP4) %BDWH(AG_165B,>,QP,BWP5) %BDWH(AG_197A,<,QH,BWH1) %BDWH(AG_197B,>,QH,BWH2) %BDWH(AG_198A,<,QP,BWP6) %BDWH(AG_198B,>,QP,BWP7) %BDWH(AG_79A,<,QP,BWP8) %BDWH(AG_79B,>,QP,BWP9) %BDWH(AG_87A,<,QP,BWP10) %BDWH(AG_88A,<,QP,BWP11) %BDWH(AG_89A,<,QP,BWP12) %BDWH(CM_142M,<,QH,BWH3) %BDWH(HILLS_981227,>,QP,BWP13) %BDWH(HL_132A,<,QH,BWH4) %BDWH(HL_132B,>,QH,BWH5) %BDWH(HL_133A,<,QP,BWP14) %BDWH(HL_133B,>,QP,BWP15) %BDWH(HL_140A,<,QP,BWP16) %BDWH(HL_140B,>,QP,BWP17) %BDWH(HL_141A,<,QH,BWH6) %BDWH(HL_141B,>,QH,BWH7) %BDWH(HL_162A,<,QP,BWP18) %BDWH(HL_162B,>,QP,BWP19) %BDWH(HL_162C,>,QP,BWP20) %BDWH(HL_120A,<,QN,BWN1) %BDWH(HL_130M,>,QP,BWP21) %BDWH(HL_175A,<,QH,BWH8) %BDWH(HL_175B,>,QH,BWH9) %BDWH(HL_180M,>,QH,BWH10) %BDWH(HL_199A,<,QH,BWH11) %BDWH(HL_199B,>,QH,BWH12) %BDWH(HL_981014A,<,QP,BWP22) %BDWH(HL_981014B,>,QP,BWP23) %BDWH(MH_113M,>,QM,BWM2) %BDWH(MH_137D,<,QH,BWH13) %BDWH(MH_137E,>,QH,BWH14) %BDWH(MH_143C,<,QH,BWH15) %BDWH(MH_143D,>,QH,BWH16) %BDWH(MH_145A,<,QP,BWP24) %BDWH(MH_145B,>,QH,BWH17) %BDWH(MH_146M,>,QP,BWP25) %BDWH(MH_147B,>,QH,BWH18) %BDWH(MH_169M,<,QH,BWH19) %BDWH(MH_174A,<,QM,BWM3) %BDWH(MH_174B,>,QM,BWM4) %BDWH(MH_24M,>,QN,BWN2) %BDWH(MH_83A,<,QM,BWM5) %BDWH(MH_83D,>,QM,BWM6) %BDWH(MH_83E,>,QM,BWM7) %BDWH(MH_83F,>,QM,BWM8) %BDWH(MH_86D,>,QM,BWM9) %BDWH(MH_86E,>,QM,BWM10) %BDWH(MH_86F,>,QM,BWM11) %BDWH(MT_195A,<,QM,BWM12) %BDWH(MT_200A,<,QM,BWM13) %BDWH(MT_200B,>,QM,BWM14) %BDWH(MT_41A,<,QM,BWM15) %BDWH(MTS_980510,>,QM,BWM16) %BDWH(MTS_981205A,<,QM,BWM17) %BDWH(MTS_981205B,>,QM,BWM18) %BDWH(RH_100A,<,QN,BWN3) %BDWH(RH_184M,<,QN,BWN4)
9 %BGPDEF $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,\ $FLG(2,BGP%N;2,$FLG(3,BGP%N;3,$FLG(4,BGP%N;4,$FLG(5,BGP%N;5,BGP%N;6)))))))))
32 %CZ_GRPFIN LC=3;
33 %CZ_SECFIN LT=30; FIN=S;
34 %CZ1 $GROUP %CZ_GRPFIN; AP=CZ_BG101,SKYP; TX=%YEAR;: 101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG102,SKYP; TX=%YEAR;: 102/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG103,SKYP; TX=%YEAR;: 103/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG104,SKYP; TX=%YEAR;: 104/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG105,SKYP; TX=%YEAR;: 105/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG106,SKYP; TX=%YEAR;: 106/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG107,SKYP; TX=%YEAR;: 107/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG108,SKYP; TX=%YEAR;: 108; POOL=CZ_C108; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG109,SKYP; TX=%YEAR;: 109; POOL=4:CZ_C109|CZ_M998_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG110,SKYP; TX=%YEAR;: 110; POOL=CZ_C110; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG111,SKYP; TX=%YEAR;: 111; POOL=4:CZ_C111|CZ_T997_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG114,SKYP; TX=%YEAR;: 114; POOL=CZ_C114; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG115,SKYP; TX=%YEAR;: 115; POOL=CZ_C115; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG116,SKYP; TX=%YEAR;: 116; POOL=4:CZ_C116|CZ_M992_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG117,SKYP; TX=%YEAR;: 117; POOL=4:CZ_C117|CZ_M989_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG118,SKYP; TX=%YEAR;: 118; POOL=4:CZ_C118|CZ_M999_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG211,SKYP; TX=%YEAR;: 211; POOL=6:CZ_C211|CZ_T997_%YEAR;|CZ_E987_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG217,SKYP; TX=%YEAR;: 217; POOL=5:CZ_C217|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG901,SKYP; TX=%YEAR;: 901; POOL=CZ_C901; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG903,SKYP; TX=%YEAR;: 903; POOL=CZ_C903; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG904,SKYP; TX=%YEAR;: 904; POOL=CZ_C904; $ENDGROUP
35 %CZ2 $GROUP %CZ_GRPFIN; AP=CZ_BG119,SKYP; TX=%YEAR;: 119/101; POOL=CZ_C101; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG120,SKYP; TX=%YEAR;: 120/101; POOL=CZ_C101; $ENDGROUP #-VLAKY V KRAJINE NOVE DEFINOVANE--------------------------------------------------------------------- $GROUP %CZ_GRPFIN; AP=CZ_BG201,SKYP; TX=%YEAR;: 201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG202,SKYP; TX=%YEAR;: 202/201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG203,SKYP; TX=%YEAR;: 203/201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG204,SKYP; TX=%YEAR;: 204/201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG205,SKYP; TX=%YEAR;: 205/201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG206,SKYP; TX=%YEAR;: 206/201; POOL=CZ_C201; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG207,SKYP; TX=%YEAR;: 207; POOL=CZ_C207; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG209,SKYP; TX=%YEAR;: 209; POOL=4:CZ_C209|CZ_M998_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG210,SKYP; TX=%YEAR;: 210; POOL=CZ_C210; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG214,SKYP; TX=%YEAR;: 214; POOL=CZ_C214; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG215,SKYP; TX=%YEAR;: 215; POOL=CZ_C215; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG216,SKYP; TX=%YEAR;: 216; POOL=4:CZ_C216|CZ_M992_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG218,SKYP; TX=%YEAR;: 218; POOL=4:CZ_C218|CZ_M999_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG225,SKYP; TX=%YEAR;: 225/217; POOL=5:CZ_C217|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG226,SKYP; TX=%YEAR;: 226; POOL=5:CZ_C226|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG227,SKYP; TX=%YEAR;: 227/217; POOL=5:CZ_C217|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG227,SKYP; TX=%YEAR;: 227/226; POOL=5:CZ_C226|CZ_M990_%YEAR;; $ENDGROUP
36 %CZ3 $GROUP %CZ_GRPFIN; AP=CZ_BG201,SKYP; TX=%YEAR;: 201/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG202,SKYP; TX=%YEAR;: 202/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG203,SKYP; TX=%YEAR;: 203/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG204,SKYP; TX=%YEAR;: 204/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG205,SKYP; TX=%YEAR;: 205/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG206,SKYP; TX=%YEAR;: 206/301; POOL=CZ_C301; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG207,SKYP; TX=%YEAR;: 207/307l POOL=CZ_C307; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG209,SKYP; TX=%YEAR;: 209/309; POOL=4:CZ_C309|CZ_M998_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG210,SKYP; TX=%YEAR;: 210/310; POOL=CZ_C310; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG211,SKYP; TX=%YEAR;: 211/311; POOL=6:CZ_C311|CZ_S996_%YEAR;|CZ_T997_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG214,SKYP; TX=%YEAR;: 214/314; POOL=CZ_C314; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG215,SKYP; TX=%YEAR;: 215/315; POOL=CZ_C315; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG216,SKYP; TX=%YEAR;: 216/316; POOL=4:CZ_C316|CZ_M992_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG217,SKYP; TX=%YEAR;: 217/317; POOL=6:CZ_C317|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG218,SKYP; TX=%YEAR;: 218/318; POOL=4:CZ_C318|CZ_M999_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG225,SKYP; TX=%YEAR;: 225/317; POOL=6:CZ_C317|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG226,SKYP; TX=%YEAR;: 226/326; POOL=6:CZ_C326|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG227,SKYP; TX=%YEAR;: 227/317; POOL=6:CZ_C317|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG227,SKYP; TX=%YEAR;: 227/326; POOL=6:CZ_C326|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG401,SKYP; TX=%YEAR;: 401; POOL=CZ_C401; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG402,SKYP; TX=%YEAR;: 401/402; POOL=CZ_C401; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG403,SKYP; TX=%YEAR;: 403/404; POOL=CZ_C404; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG405,SKYP; TX=%YEAR;: 405; POOL=CZ_C405; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG406,SKYP; TX=%YEAR;: 406; POOL=CZ_C406; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG407,SKYP; TX=%YEAR;: 407; POOL=CZ_C407; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG406,SKYP; TX=%YEAR;: 406/408; POOL=CZ_C408; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG407,SKYP; TX=%YEAR;: 407/409; POOL=CZ_C409; $ENDGROUP
37 %CZ4 $GROUP %CZ_GRPFIN; AP=CZ_BG228,SKYP; TX=%YEAR;: 228/217; POOL=5:CZ_C217|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG229,SKYP; TX=%YEAR;: 229/226; POOL=5:CZ_C226|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG222,SKYP; TX=%YEAR;: 222/217; POOL=5:CZ_C217|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG223,SKYP; TX=%YEAR;: 223/226; POOL=5:CZ_C226|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG224,SKYP; TX=%YEAR;: 224/209; POOL=4:CZ_C209|CZ_M998_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG228,SKYP; TX=%YEAR;: 228/317; POOL=6:CZ_C317|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG229,SKYP; TX=%YEAR;: 229/326; POOL=6:CZ_C326|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG222,SKYP; TX=%YEAR;: 222/317; POOL=6:CZ_C317|CZ_M991_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG223,SKYP; TX=%YEAR;: 223/326; POOL=6:CZ_C326|CZ_M990_%YEAR;; $ENDGROUP $GROUP %CZ_GRPFIN; AP=CZ_BG224,SKYP; TX=%YEAR;: 224/309; POOL=4:CZ_C309|CZ_M998_%YEAR;; $ENDGROUP
16 %ENDPOOL $ENDPOOL
8 %ENVDEF $DEF %N=[BG#=@@;]($IF($BGTYPE>=3,[C-=[!BBG]])),$IF($BGTYPE>=1,($IF($BGTYPE>=3,%B,$IF($BGTYPE==2,TRACK)),%C))
10 %ETA ENV=&IF(BGTYPE>=3,%B),&IF(BGTYPE>=1,[WT=%T][WA=ENV_WAYA])
19 %FAK M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(CAT=%K;;D=S;WAY=A;MAX=10;DELIM=";"))![SS:10];
21 %FAM M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(MIXED=%V;;D=S;WAY=A;MAX=10;DELIM=";"))![SS:10];
20 %FAV M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;D=S;WAY=A;MAX=10;DELIM=";"))![SS:10];
17 %FOLLOW2 M=FOLLOW; D=X; C=%N;*%VEH;; TX=%TX;; M=FOLLOW; D=X; C=%N;*%VEH;; TX=%TX;;
6 %FOOTER TITLE; M=NONE; AB=0; BL=15; IMGY=10; TX=%TX;; TXX=>95; TXS=12; Y=_; T=5000;
4 %FOREST30_30LST FOREST14I,FOREST14M
3 %FOREST39_30LST FOREST14E,FOREST14H,FOREST14K,FOREST14Q
2 %FOREST39LST FOREST14B,FOREST14C,FOREST14D,FOREST14F,FOREST14G,FOREST14J,FOREST14N,FOREST14O, \ FOREST14P,FOREST15C,FOREST15D,FOREST15H
24 %FTM M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(MIXED=%V;;D=S;WAY=T*;MAX=10;DELIM=";"))![SP:,%H]; W=T%H;;
22 %FTV M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;D=S;WAY=T*;MAX=10;DELIM=";"))![SP:,%H]; W=T%H;;
23 %FTVH M=FOLLOW;TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;D=S;WAY=T*;HEIGHT=%VH;;MAX=10;DELIM=";"))![SP:,%TH]; W=T%TH;;
11 %GBG ENV=[BG#=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));
12 %LBG AP=[BG=@@] &IF(BGTYPE>=1,(&IF(BGTYPE>=3,%B),%C));
42 %LTBG BG=100[B:0,20,100,160,#00C0FF][B:0,18,100,2,#C0C0C0][B:0,0,100,18,#705050]:..,-20;
60 %LTC  
57 %LTD M=PASS; C1=%B;; D1=R; V1=10-15; C2=%B;L; D2=L; V2=10-15; P=*50; T1=0.1; T2=0.1; %LTBG; FG=(%LTFF(%B); %LTFB(%B););
56 %LTDB M=PASS; C1=%B;; D1=R; V1=10-15; C2=%B;L; D2=L; V2=10-15; P=*50; T1=0.1; T2=0.1; %LTBG; FG=(%LTFB(%B););
55 %LTDF M=PASS; C1=%B;; D1=R; V1=10-15; C2=%B;L; D2=L; V2=10-15; P=*50; T1=0.1; T2=0.1; %LTBG; FG=(%LTFF(%B););
54 %LTDX M=PASS; C1=%B;; D1=R; V1=10-15; C2=%B;L; D2=L; V2=10-15; P=*50; T1=0.1; T2=0.1; %LTBG;
45 %LTFB 120[B:0,20,120,160,%LTSIDE][B:0,18,120,2,#C0C0C0][B:0,0,120,18,#604040]:>100,-20;%B;B:*100-60;
44 %LTFF 120[B:0,20,120,160,%LTSIDE][B:0,18,120,2,#C0C0C0][B:0,0,120,18,#604040]:<0,-20;%B;F:*0+60;
46 %LTL C=%B;L; D=L; V=10-15; %LTBG;
48 %LTLB C=%B;L; D=L; V=10-15; FG=(%LTFB(%B);); %LTBG;
49 %LTLD C=%B;L; D=L; V=10-15; %LTBG; FG=(%LTFF(%B); %LTFB(%B););
47 %LTLF C=%B;L; D=L; V=10-15; FG=(%LTFF(%B);); %LTBG;
50 %LTR C=%B;; D=R; V=10-15; %LTBG;
52 %LTRB C=%B;; D=R; V=10-15; %LTBG; FG=(%LTFB(%B););
53 %LTRD C=%B;; D=R; V=10-15; %LTBG; FG=(%LTFF(%B);%LTFB(%B););
51 %LTRF C=%B;; D=R; V=10-15; FG=(%LTFF(%B);); %LTBG;
58 %LTSB $SECTION LC=1; IMGY=150; BL=20; AB=10; DY=180;
59 %LTSE $ENDSECTION
43 %LTSIDE #0080FF
64 %MMC $SECTION NAME=MM%B;_%N;; LC=%L;; POOL=POOL_%N:#Z&#O;VAR=BGTYPE=%B;,%V;;%A; $ENDSECTION
65 %MMGRP $SECTION NAME=MM%B;_ALL; LC=1; %MMC(HUN,30) %MMC(GHIST,30) %MMC(BRD,30) %MMC(DDR,30) %MMC(CH,30) %MMC(A,30) %MMC(GB,30) %MMC(IR,5) %MMC(F,30) %MMC(B,30) %MMC(L,30) %MMC(NL,30) %MMC(DK,30) %MMC(N,10) %MMC(S,15) %MMC(SF,10) %MMC(P,10) %MMC(E,30) %MMC(I,30) %MMC(CS,30) %MMC(SK,15) %MMC(PL,30) %MMC(RO,20) %MMC(SLO,10) %MMC(HR,10) %MMC(YU,10) %MMC(HSH,5) %MMC(BG,10) %MMC(GR,10) %MMC(TR,10) %MMC(SU,30) %MMC(JP,30) %MMC(CN,10) %MMC(IND,10) %MMC(AS,10) %MMC(AUS,10) %MMC(NE,10) %MMC(AF,5) %MMC(USA,30) %MMC(SA,10) %MMC(PHA,10) $ENDSECTION
61 %NIGHTSKY $SECTION LC=1; DX=%W;; IMGY=230; AB=%EVAL((%H-230)/2); BL=%EVAL((%H-230)/2); \ BG=%N;(|[M]):,-%EVAL((%H-230)/2); POOL=SPACE; AP=[D#=X]; $ENDSECTION
7 %PLPDEF $DEF %N=[BG<=$1[OMH:%E,%M,#%E,,0]:,^$2;]
14 %POOLFLAGS F=SDEGLMFPUOXWZNBRCATR1234567;
38 %PSEC $SECTION NAME=%N;; LC=14; %SECFIN; BL=20; SEQ=D; POOL=%A;; $ENDSECTION
25 %SAK TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(CAT=%K;;WAY=A;MAX=1;))[SS:10];
27 %SAM TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(MIXED=%V;;WAY=A;MAX=1;))[SS:10];
26 %SAV TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;WAY=A;MAX=1;))[SS:10];
18 %SECFIN LT=45; FIN=S;
1 %SKYDEF # $DEF %N;=([BGC=(180,210,234)],[BG-=SKY(55|114|115|122|138|154|171|176|177|179):,%Y;;]) | # ([BGC=(157,193,229)],[BG-=CLOUD(59|60|61|62|63|64|65|66|67|68|69|70):,%Y;;]) #
28 %STK TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(CAT=%K;;WAY=T*;MAX=1;))[SS:10];
31 %STM TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(MIXED=%V;;WAY=T*;MAX=1;))[SS:10];
29 %STV TX/={%LEN(%T;)?%T;?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;WAY=T*;MAX=1;))[SS:10];
30 %STVH TX/={%LEN(%T;;)?%T?[P:*]};TXX=<10;TXY=20;BL=25;C=($SELECT(SAMECAT=%V;;WAY=T*;HEIGHT=%VH;;MAX=1;))[SS:10];
62 %TBFB M=FOLLOW; D=L; C=6-10*(%LST;); W=A; TX=%TXT;;
63 %TBFBN M=FOLLOW; D=L; C=%N;*(%LST;); W=A; TX=%TXT;;
5 %TITLE TITLE; M=NONE; AB=0; BL=30; IMGY=10; TX=%TX;; TXX=*50; TXS=20; Y=^; T=1000;