MACRO ZOUT2
ZOUT;2
ENDM

MACRO ZIN2
ZIN;2
ENDM

MACRO MTSY
ECOFF
SELSAVE
SAVESETTINGS
GE FL ^DSelect smooth line
IFERR MacroDone
LWIDTH 0;LSTYLE solid;FSTYLE solid
GOLAYER TMPMOUNTAINS
GOLAYER MOUNTAINS
SHEET SYMBOLS
ASKBOX DEFAULT VALUES ?
Step 10
Symbol X Size 0.5
Symbol Y Size 0.5
Symbol rotate 0
Color 81

IFERR Choose
GO NoChoose
:Choose
GV RV 10
GV RV ^DEnter step: (10)
GV XS 0.5
GV XS ^DEnter X size: (0.5)
GV YS 0.5
GV YS ^DEnter Y size: (0.5)
GV SR 0
GV SR ^DEnter rotation angle: (0)
GN CL 81
GN CL ^DEnter color: (81)
GO Begin
:NoChoose
GV RV 5
GV XS 1
GV YS 1
GV SR 0
GN CL 81
:Begin
GV LXS XS*1.25
GV LYS YS*1.25
GV SXS XS*0.75
GV SYS YS*0.75
COLOR CL
SELBY1
CHANGEL FL TMPMOUNTAINS
GV RANDOM 1234
GLEN LV FL
GN LN LV/RV
GV PSTEP 100/LN
GV PRCV 0
:Placing
IFN 100-PRCV MacroDone
GP P1 % PRCV FL
GV TST (PRCV-50)*(PRCV-50)
IFN (TST-9) Large
IFP (TST-1600) Small
GSIN RD1 RANDOM
GV RANDOM RANDOM+200
GN NUMB (5*(RD1+1))
:Mountains
IFZ (NUMB-1) M1
IFZ (NUMB-2) M2
IFZ (NUMB-3) M3
IFZ (NUMB-4) M4
IFZ (NUMB-5) M5
IFZ (NUMB-6) M6
IFZ (NUMB-7) M7
IFZ (NUMB-8) M8
:M9
INSSYM Mtns 09;XS;YS;SR;P1;
GO Placed
:M1
INSSYM Mtns 01;XS;YS;SR;P1;
GO Placed
:M2
INSSYM Mtns 02;XS;YS;SR;P1;
GO Placed
:M3
INSSYM Mtns 03;XS;YS;SR;P1;
GO Placed
:M4
INSSYM Mtns 04;XS;YS;SR;P1;
GO Placed
:M5
INSSYM Mtns 05;XS;YS;SR;P1;
GO Placed
:M6
INSSYM Mtns 06;XS;YS;SR;P1;
GO Placed
:M7
INSSYM Mtns 07;XS;YS;SR;P1;
GO Placed
:M8
INSSYM Mtns 08;XS;YS;SR;P1;
GO Placed
:Small
GSIN RD1 RANDOM
GV RANDOM RANDOM+200
GN NUMB (4.5*(RD1+1))
IFZ (NUMB-1) S1
IFZ (NUMB-2) S2
IFZ (NUMB-3) S3
IFZ (NUMB-4) S4
IFZ (NUMB-5) S5
IFZ (NUMB-6) S6
IFZ (NUMB-7) S7
:S8
INSSYM Mtns Small 08;SXS;SYS;SR;P1;
GO Placed
:S8
INSSYM Mtns Small 08;SXS;SYS;SR;P1;
GO Placed
:S1
INSSYM Mtns Small 01;SXS;SYS;SR;P1;
GO Placed
:S2
INSSYM Mtns Small 02;SXS;SYS;SR;P1;
GO Placed
:S3
INSSYM Mtns Small 03;SXS;SYS;SR;P1;
GO Placed
:S4
INSSYM Mtns Small 04;SXS;SYS;SR;P1;
GO Placed
:S5
INSSYM Mtns Small 05;SXS;SYS;SR;P1;
GO Placed
:S6
INSSYM Mtns Small 06;SXS;SYS;SR;P1;
GO Placed
:S7
INSSYM Mtns Small 07;SXS;SYS;SR;P1;
GO Placed
:Large
GSIN RD1 RANDOM
GV RANDOM RANDOM+200
GN NUMB (2*(RD1+1))
IFZ (NUMB-1) L1
IFZ (NUMB-2) L2
:L3
INSSYM Mtns Large 01;LXS;LYS;SR;P1;
GO Placed
:L1
INSSYM Mtns Large 01;LXS;LYS;SR;P1;
GO Placed
:L2
INSSYM Mtns Large 02;LXS;LYS;SR;P1;
:Placed
GV PRCV PRCV+PSTEP
GO Placing
:MacroDone
GOLAYER TMPMOUNTAINS
HIDE MOUNTAINS
ERA FL
SHOWA
GOLAYER MOUNTAINS
HIDEA
SELBYA
SYMSORT
SHOWA
GETSETTINGS
SELREST
COLOR 0
ECON
ENDM