# Macro Name    : ring.cmd
#
# Version       : surpac2000 V3.2-M 
#
# Creation Date : Fri Oct 26 09:02:05 2001
#
# Description   : 
#
# ----------------------------------------------------------------------
#
@FUNCTION GRAPHICS,error=abort,mismatch=display
#
# GRAPHICS MENU
#
@menu("00025")
@FUNCTION RECALL FILE,error=abort,mismatch=display
#
# RECALL A FILE FORM
#
@FORM frm00236,action=apply,pause=2.000000,error=abort,mismatch=display\
  |location=mas:grl\
  |rid=@(level)\
  |string_rng=\
  |ftype=S\
  |swa_desc=Y\
  |append=R\
  |styles_file=SSI_STYLES:styles.ssi\
  |rescale=Y\
  |swa_name=main graphics layer
@FUNCTION CREATE POINT,error=abort,mismatch=display
#
# ENTER/EDIT A POINT FORM
#
@FORM frm00474,action=apply,pause=2.000000,error=abort,mismatch=display\
  |istr=12\
  |ynew=7400\
  |xnew=3300\
  |znew=@(level)\
  |desc=25/10/01
#
# ENTER/EDIT A POINT FORM
#
@FORM frm00474,action=apply,pause=2.000000,error=abort,mismatch=display\
  |istr=12\
  |ynew=7400\
  |xnew=3300\
  |znew=@(level)\
  |desc=25/10/01
#
# ENTER/EDIT A POINT FORM
#
@FORM frm00474,action=apply,pause=2.000000,error=abort,mismatch=display\
  |istr=12\
  |ynew=7400\
  |xnew=3300\
  |znew=@(level)\
  |desc=25/10/01
#
# ENTER/EDIT A POINT FORM
#
@FORM frm00474,action=apply,pause=2.000000,error=abort,mismatch=display\
  |istr=12\
  |ynew=7400\
  |xnew=3300\
  |znew=@(level)\
  |desc=25/10/01
#
# ENTER/EDIT A POINT FORM
#
@FORM frm00474,action=apply,pause=2.000000,error=abort,mismatch=display\
  |istr=12\
  |ynew=7400\
  |xnew=3300\
  |znew=@(level)\
  |desc=25/10/01
@FORM frm00474,action=cancel,pause=0.000000,error=abort,mismatch=display
@FUNCTION SAVE FILE,error=abort,mismatch=display
#
# UNLOAD STRINGS TO A FILE FORM
#
@FORM frm00287,action=apply,pause=2.000000,error=abort,mismatch=display\
  |location=mas:grl\
  |rid=@(level)\
  |ftype=S\
  |purpose=\
  |range=\
  |format=binary
#
# VERIFY CREATION OF A FILE FORM
#
@FORM frm00121,action=apply,pause=2.000000,error=abort,mismatch=ignore
@FUNCTION EXIT GRAPHICS,error=abort,mismatch=display
#
# EXIT GRAPHICS FORM
#
@FORM frm00107,action=apply,pause=2.000000,error=abort,mismatch=display
@FUNCTION MACRO PLAYBACK,error=abort,mismatch=display
@FORM frm00197,action=cancel,pause=0.000000,error=abort,mismatch=display
