# Macro Name    : caveplot.cmd
#
# Version       : surpac2000 V3.1-F 
#
# Creation Date : Thu Sep 03 11:10:06 1998
#
# Description   : 
#
# ----------------------------------------------------------------------
#
#
@ASSIGN input=GUI_STR('(simple_form(heading "Caving Influence Plot")\
(label"")\
(label"")\
(label"")\
(label "               Level of interest")(field "LEVEL"(display_length 4)(null disallowed))\
(label "               Next Level Up")(field "LEVUP"(display_length 4)(null disallowed))\
(label "               Next Level Down")(field "LEVDN"(display_length 4)(null disallowed))\
 (label"")\
)')
@IF(input eq 'cancel')
 @GOTO return_label
@ENDIF
#
@FUNCTION MAP MODIFY,error=abort,mismatch=display
#
# MODIFY AN EXISTING MAP FORM
#
@FORM frm00331,action=apply,pause=0.000000,error=abort,mismatch=display\
  |map_name=CAVING INFLUENCE
#
# DEFINE A MAP FORM
#
@FORM frm00230,action=apply,pause=0.000000,error=abort,mismatch=display\
  |entity_name(1)=LINE/PN70\
  |entity_name(2)=LINE/PN1\
  |entity_name(3)=DOTTED LINE/PN1\
  |entity_name(4)=STR NR/PN66\
  |entity_name(5)=STR NR/PN45\
  |entity_name(6)=STR NR/PN18\
  |entity_name(7)=STR NR/PN4\
  |entity_name(8)=STR NR/PN24\
  |entity_name(9)=STR NR/PN57\
  |entity_name(10)=STR NR/PN21\
  |entity_name(11)=STR NR/PN67\
  |entity_name(12)=STR NR/PN26\
  |entity_name(13)=STR NR/PN33\
  |entity_name(14)=STR NR/PN3\
  |entity_name(15)=STR NR/PN22\
  |entity_name(16)=STR NR/PN5\
  |entity_name(17)=STR NR/PN6\
  |entity_name(18)=STR NR/PN1\
  |entity_name(19)=STR NR/PN7\
  |location(1)=3d:3dm\
  |location(2)=3d:3dm\
  |location(3)=3d:3dm\
  |location(4)=INF\
  |location(5)=INF\
  |location(6)=INF\
  |location(7)=INF\
  |location(8)=INF\
  |location(9)=INF\
  |location(10)=INF\
  |location(11)=INF\
  |location(12)=INF\
  |location(13)=INF\
  |location(14)=INF\
  |location(15)=INF\
  |location(16)=INF\
  |location(17)=INF\
  |location(18)=INF\
  |location(19)=INF\
  |id_range(1)=@(LEVEL)\
  |id_range(2)=@(LEVUP)\
  |id_range(3)=@(LEVDN)\
  |id_range(4)=@(LEVEL)\
  |id_range(5)=@(LEVEL)\
  |id_range(6)=@(LEVEL)\
  |id_range(7)=@(LEVEL)\
  |id_range(8)=@(LEVEL)\
  |id_range(9)=@(LEVEL)\
  |id_range(10)=@(LEVEL)\
  |id_range(11)=@(LEVEL)\
  |id_range(12)=@(LEVEL)\
  |id_range(13)=@(LEVEL)\
  |id_range(14)=@(LEVEL)\
  |id_range(15)=@(LEVEL)\
  |id_range(16)=@(LEVEL)\
  |id_range(17)=@(LEVEL)\
  |id_range(18)=@(LEVEL)\
  |id_range(19)=@(LEVEL)\
  |string_range(1)=1\
  |string_range(2)=1\
  |string_range(3)=1\
  |string_range(4)=1400\
  |string_range(5)=1420\
  |string_range(6)=1440\
  |string_range(7)=1460\
  |string_range(8)=1480\
  |string_range(9)=1500\
  |string_range(10)=1520\
  |string_range(11)=1540\
  |string_range(12)=1560\
  |string_range(13)=1580\
  |string_range(14)=1600\
  |string_range(15)=1620\
  |string_range(16)=1640\
  |string_range(17)=1660\
  |string_range(18)=1680\
  |string_range(19)=1700\
  |segment_range(1)=\
  |segment_range(2)=\
  |segment_range(3)=\
  |segment_range(4)=\
  |segment_range(5)=\
  |segment_range(6)=\
  |segment_range(7)=\
  |segment_range(8)=\
  |segment_range(9)=\
  |segment_range(10)=\
  |segment_range(11)=\
  |segment_range(12)=\
  |segment_range(13)=\
  |segment_range(14)=\
  |segment_range(15)=\
  |segment_range(16)=\
  |segment_range(17)=\
  |segment_range(18)=\
  |segment_range(19)=
@FUNCTION PROCESS MAP,error=abort,mismatch=display
#
# PROCESS EXISTING MAP DEFINITIONS FORM
#
@FORM frm00332,action=apply,pause=0.000000,error=abort,mismatch=display\
  |map_name(1)=CAVING INFLUENCE\
  |map_name(2)=
#
# PLOT PRESENTATION PARAMETERS FORM
#
@FORM frm00226,action=apply,pause=0.000000,error=abort,mismatch=display\
  |xscale=1000\
  |yscale=1000\
  |sheet=A2\
  |border=A0BO\
  |drawsp=A0DA\
  |orient=RF\
  |grid=LYA3\
  |title=BRA3\
  |quad=NE\
  |unit=M\
  |over=N\
  |txtrot=Y
#
# TITLE BLOCK FORM
#
@FORM frm00232,action=apply,pause=0.000000,error=abort,mismatch=display\
  |line1=  Caving Influence Zones\
  |line2=      at @(LEVEL) Level\
  |line3=\
  |line4= RJ\
  |line5=\
  |line6=\
  |line7=\
  |line8=\
  |line9=\
  |line10=
#
# REFERENCE CORNER FORM
#
@FORM frm00229,action=apply,pause=0.000000,error=abort,mismatch=display\
  |yref=8000\
  |xref=3200
#
# GRID FORM
#
@FORM frm00219,action=apply,pause=0.000000,error=abort,mismatch=display\
  |ygli=100\
  |yline=F\
  |xgli=100\
  |xline=F
@FUNCTION PLOT PREVIEW,error=abort,mismatch=display
#
# Plot Preview MENU
#
@menu("00033")
@FUNCTION RECALL PLOT,error=abort,mismatch=display
#
# RECALL PLOT FILE FORM
#
@FORM frm00620,action=apply,pause=0.000000,error=abort,mismatch=display\
  |append_option=replace
#
#
#
@label return_label
