module dix_int_cld
!
! Commands defined in interactive mode
!
! Add new description to current file
!
	define verb add
	parameter p1,value(required,type=add_type),prompt="Add what"
	parameter p2,label=description,value(required,list),prompt="Description"
	qualifier all,placement=positional
!
	  define type add_type
	  keyword description
!
! Make an alias symbol
!
	define verb alias
	parameter p1,value(required),prompt="source symbol"
	parameter p2,value(required),prompt="destination symbol"
!
! Follow the backlink after a follow
!
	define verb back
	qualifier log
	qualifier error,value(required)
!
!
! Close the current file
!
	define verb close
	parameter p1,prompt="File"
	qualifier error,value(required)
	qualifier log
!
! Create new record
!
	define verb create
	parameter p1,value(type=create_type)	!should be description
!
	define type create_type
	keyword record,syntax=create_record
	keyword description,syntax=create_description
!
	define syntax create_record
	parameter p1	!file tag
!
	define syntax create_description
	parameter p1,value(default=DESCRIPTION)
	qualifier user_library
	qualifier system_library
	parameter p2            !the file/module name
	qualifier internal
	qualifier tpu
	qualifier edt
!
! Cut, move current data to paste buffer
!
	define verb cut
	parameter p1,value
	qualifier symbol,value
	qualifier dcl
	qualifier global
!
	define verb copy
	parameter p1,value
	qualifier symbol,value
	qualifier dcl
	qualifier global
!
	define verb   define
	qualifier    key,syntax=define_key     !interactive mode keys
	qualifier    skey,syntax=define_skey     !screen mode keys

!
	define syntax define_key
	 qualifier    skey
	 qualifier    key,default
	 qualifier    echo,default
	 qualifier    protected
	 qualifier    terminate
	 qualifier    lock_state
	 Qualifier    SET_STATE,value(required)
	 Parameter    P1,PROMPT="Key name",VALUE(REQUIRED)
	 Parameter    P2,PROMPT="Equivalence name",VALUE(REQUIRED)
	 Qualifier    IF_STATE,VALUE(REQUIRED,list)
!
	define syntax define_skey
	 qualifier    key
	 qualifier    skey,default
	 Qualifier    SET_STATE,value(required)
	 Parameter    P1,PROMPT="Key name",VALUE(REQUIRED)
	 Parameter    P2,PROMPT="Equivalence name",VALUE(REQUIRED)
	 Qualifier    IF_STATE,VALUE(REQUIRED)
	 Qualifier    context_Screen,VALUE(REQUIRED,type=screen_type)
!  
         define type screen_type
          keyword DISPLAY_ALL
          keyword SELKEY
          keyword EDIT
          keyword SELFILES
          keyword EDITFILES
          keyword SELDESCRIPTIONS
          keyword YESNO
          keyword VIEW
          keyword HELP
          keyword EDITMULTIPLE
          keyword EDITLINE
          keyword SELFIELD
          keyword SHOWRAW
          keyword SHOWDES
!
	define verb delete
	qualifier record,syntax=syn_del_rec
	qualifier symbol,syntax=syn_del_symb
	qualifier key,syntax=syn_del_key
	qualifier skey,syntax=syn_del_skey
!
	define syntax syn_del_symb
	  qualifier record
	  qualifier skey
	  qualifier key
	  qualifier symbol,default
	  parameter p1,value(required)
	  qualifier log,default
	  qualifier local		!delete only local symbol
	define syntax syn_del_rec
	  qualifier skey
	  qualifier key
	  qualifier symbol
	  qualifier record,default
	  qualifier log,default
!
! Delete/key
!
	define syntax syn_del_key	
	 qualifier    symbol
	 qualifier    record
	 qualifier    skey
	 qualifier    key,default
	 Parameter    P1,PROMPT="Key name",VALUE(REQUIRED)
	 Qualifier    STATE,DEFAULT,VALUE(default=DEFAULT)
!
! Delete/skey
!
	define syntax syn_del_skey
	 qualifier    symbol
	 qualifier    record
	 qualifier    key
	 qualifier    skey,default
	 qualifier    all,syntax=delete_all_skeys
	 Parameter    P1,PROMPT="Key name",VALUE(REQUIRED)
	 Qualifier    STATE,VALUE(REQUIRED)
	 qualifier    context_Screen,value(required,type=screen_type)
!
	define syntax delete_all_skeys
!
! Deposit, modiyfy a field (or raw data)
!
	define verb deposit
	synonym modify
	parameter p1,value(required,type=$rest_of_line),prompt="Expression"
	qualifier raw
	qualifier hex
	qualifier octal
	qualifier binary
	qualifier decimal
	qualifier number ,default,value(type=number_type)
	qualifier word
	qualifier byte
	qualifier longword
	qualifier unsigned
	qualifier decimal
	qualifier bits,value(type=$number)
	qualifier vfc
!	disallow ((bits or word or byte or longword) and not raw)	
!
! Echo text to the output file
!
	define verb echo
	qualifier console
	parameter p1,value(type=$rest_of_line)
!
	define verb edit
	parameter p1,value(type=edit_type)	!should be description
	qualifier internal
	qualifier tpu
	qualifier edt
!
	define type edit_type
	keyword description,default !,syntax=edit_des
	keyword search
!
!	define syntax edit_des
!	parameter p1,value(default=DESCRIPTION)
!	qualifier library
!	parameter p2            !the file/module name
!
!
! Display fields, or raw data
!
	define verb examine
	synonym display
	qualifier original
	qualifier save_area
	qualifier vfc
	qualifier raw
	qualifier hex
	qualifier number ,default,value(type=number_type)
	qualifier compress
	qualifier word
	qualifier byte
	qualifier longword
	qualifier field
	qualifier unsigned
	qualifier decimal
	qualifier octal
	qualifier binary
	qualifier description
	qualifier search,value
	qualifier output,value(type=$outfile,default=sys$output)
	qualifier screen
	parameter p1,value(type=$rest_of_line)
	qualifier paged
	qualifier mark,default
	qualifier wildcard,default,value(type=wildcard_type)
	qualifier unix
	qualifier all
	qualifier tag
	qualifier expand
	qualifier display,value(list,type=display_type)
	qualifier header
!
! Evaluate the expression
!
	define verb evaluate
	synonym say
	qualifier decimal
	qualifier hex
	qualifier octal
	qualifier binary
	parameter p1,value(type=$rest_of_line)
!
! Exit, leave dix
!
	define verb exit
	parameter p1,value(type=$number)
!
! Find text in file
!
	define verb sear
	qualifier rewind
	qualifier quiet
	qualifier next_record,placement=positional
	qualifier case_sensitive,placement=positional
	qualifier match,default,value(type=match_type),placement=positional
	qualifier wildcard,value(type=wildcard_type),placement=positional
	qualifier logic,default,value(type=logic_type),placement=positional
	qualifier not,placement=positional
	qualifier type,value(required),placement=positional
	qualifier window,value(list,type=window_type)
	qualifier show,placement=positional
	qualifier field,value,placement=positional
	qualifier fast,value(type=$number,default=1024)
	qualifier location,value(type=search_location_type),placement=positional
	qualifier statistics
!
	parameter p1,value(list)
	parameter p2,value(list)
	parameter p3,value(list)
	parameter p4,value(list)
	parameter p5,value(list)
	parameter p6,value(list)
	parameter p7,value(list)
	parameter p8,value(list)

!
	define type window_type
	keyword position,value(required)
	keyword size,value(required)

	define type match_type
	keyword locate,default
	keyword match
	keyword lt
	keyword le
	keyword eq
	keyword ne
	keyword ge
	keyword gt
	keyword valid
	keyword exists
	keyword range
	keyword never
	keyword always
!
	define type logic_type
	keyword or,default
	keyword and
!
	define verb follow 
	parameter p1,value(type=$rest_of_line,required),prompt=Fieldname
	qualifier log
	qualifier automatic
	qualifier error,value(required)
	qualifier read
	qualifier write
!
! Goto label
!
	define verb goto
	parameter p1,value(required)
!
! Gosub
!
	define verb gosub
	parameter p1,value(required)
!
!
! The help command
!
	define verb help
	parameter p1,value(type=$rest_of_line)
!
! If command /then /else/endif
!
	define verb if
	parameter p1,value(type=$rest_of_line)
!
	define verb else

	define verb endif
!
	define verb inquire
	parameter p1,value(required),prompt=Symbol
	parameter p2
	qualifier punctation,default
!
! Mark the current position
!
	define verb mark
	parameter p1,value(default=DIXMARK)
!
! Next file,desc,record
!
	define verb next
	parameter p1,value(type=skip_types1)
	qualifier error,value(required)
	qualifier end,value(required)
	parameter p2
!
	  define type skip_types1
	  keyword file
	  keyword descriptions
	  keyword record,default
!
	define verb noop	!do nothing
!
! Open one or more new files
!
!
	define verb open
	parameter p1,value(type=$infile)
	parameter p2
	qualifier description,default,placement=positional,
               value(list,type=$infile)
	qualifier all,placement=positional
	qualifier blocked,placement=positional,value(type=$number,default=1)
	qualifier modify ,placement=positional
	qualifier record,value(required,type=$number),placement=positional
	qualifier rfa,value,placement=positional
	qualifier key,value(required,type=$number),placement=positional
	qualifier eq,value(required),placement=positional
	qualifier ge,value(required),placement=positional
	qualifier gt,value(required),placement=positional
	qualifier le,value(required),placement=positional
	qualifier lt,value(required),placement=positional
	qualifier locking,value(type=locking_types,list)
	qualifier error,value(required)
	qualifier tag,value
	qualifier log
	qualifier mark
!
! Paste command
!
	define verb paste
	parameter p1,value
	qualifier symbol,value(type=$rest_of_line)
	qualifier dcl
	qualifier global
!
! Previous file, description
!
	define verb previous
	parameter p1,value(type=skip_types)
	parameter p2
	qualifier error,value(required)
	qualifier end,value(required)
!

	  define type skip_types
	  keyword file
          keyword description
          keyword record,default
!
! Read a new record from the file
!
	define verb read
	qualifier record,value(required,type=$number)
	qualifier rfa,value(required,type=$number,list)
	qualifier key,value(required,type=$number)
	qualifier eq,value(required)
	qualifier ge,value(required)
	qualifier gt,value(required)
	qualifier le,value(required)
	qualifier lt,value(required)
	qualifier end,value(required)
	qualifier error,value(required)
	qualifier translate,default
	parameter p1,value
!
! REturn to a previous ser mark
!
	define verb gomark
	parameter p1,value(default=DIXMARK)
!
! Reutrn result to caller
!
	define verb result
	parameter p1
!
! Return from subroutine
!
	define verb return
!
! Remove command
!
	define verb remove 
	parameter p1,value(required,type=remove_type),prompt="Remove what"
	parameter p2,value(required),prompt="Description"
	qualifier system_library,default
	qualifier user_library,default
	qualifier file,default
	define type remove_type
	keyword description
!
! Rewind command
!
	define verb rewind
	qualifier key,value(required,type=$number)
	parameter p1	!optional tag
!
! On command
!
	define verb on
	parameter p1,value(required,type=on_type),prompt="on what"

	define type on_type
	keyword warning  ,syntax=syn_on_error
	keyword error    ,syntax=syn_on_error
	keyword severe   ,syntax=syn_on_error
	keyword control_c,syntax=syn_on_error

	define syntax syn_on_error
	parameter p1	!contains error
	parameter p2,value(type=$rest_of_line)
!
! Search the record for a string
!
	define verb find
	qualifier original
	qualifier save_area
	qualifier raw
	qualifier hex
	qualifier number ,default,value(type=number_type)
	qualifier compress
	qualifier word
	qualifier byte
	qualifier longword
	qualifier field
	qualifier unsigned
	qualifier decimal
	qualifier description
	qualifier record_length
	parameter p1,label=search,value(type=$rest_of_line)
	qualifier output,value(type=$outfile,default=sys$output)
	qualifier screen
	qualifier vfc
	qualifier paged
	qualifier wildcard,value(type=wildcard_type)
	qualifier unix
	qualifier recnumber
	qualifier mark
	qualifier all
	qualifier tag
	qualifier expand
!
	  define type number_type
	  keyword decimal
	  keyword hex
!
!Select command
!
	define verb select
	parameter p1,value(required,type=select_type),prompt="Select what what"
	parameter p2
!
	  define type select_type
          keyword file
	  keyword description
!
! Set verify on/off
!
	define verb set
	parameter p1,value(required,type=set_type),prompt="Set what"
!
	  define type set_type
	  keyword debug,syntax=set_debug
	  keyword decimal,syntax=set_decimal
	  keyword display_mode,syntax=set_display
	  keyword editor,syntax=set_editor
	  keyword exit_status,syntax=set_exit
	  keyword format,syntax=set_format
	  keyword file,syntax=set_file
	  keyword integer,syntax=set_integer
	  keyword keyboard,syntax=set_keyboard
	  keyword message,syntax=set_message
	  keyword mouse,syntax=set_mouse
	  keyword on,negatable
	  keyword paged_mode,syntax=set_pagemode
	  keyword prompt,syntax=set_prompt
	  keyword real,syntax=set_real
	  keyword search,syntax=set_search
	  keyword screen_mode
	  keyword substitution,syntax=set_symbol_subs
	  keyword strict,syntax=set_strict
	  keyword terminal,syntax=set_terminal
	  keyword verify,negatable
	  keyword process_name,syntax=set_process
!

	define syntax set_format
	  parameter p1,value(required)  !,default=binary)
	  parameter p2,value(type=format_type,required),Prompt="Dot,Passall,Dump or Hex"

	  define type format_type
	    keyword pasall
	    keyword dot
	    keyword dump
	    keyword hex

	define syntax set_decimal
	  qualifier digits,value(default=10)
	  qualifier rounded
	  qualifier truncated
!
	define syntax set_debug
	  parameter p1,value(required)
	  parameter p2,value(list,required,type=debug_types),prompt="Debug type"
	  define type debug_types
	    keyword all,negatable
	    keyword fp_conversions,negatable
	    keyword descriptions,negatable
	    keyword keys,negatable
	    keyword symbols,negatable
	    keyword command_file,negatable
	    keyword expand,negatable
	    keyword file,negatable
	    keyword find,negatable
	    keyword vm,negatable
	    keyword fastio,negatable
!
	define syntax set_integer
	  parameter p1,default,value(default=integer_size)
	  parameter p2,value(type=integer_what)

	  define type integer_what
	  keyword size,syntax=set_integer_size
	  keyword format,syntax=set_integer_format

	  define syntax set_integer_size
	  parameter p1,default,value(default=integer)
	  parameter p2,default,value(default=size)
	  parameter p3,value(type=integer_sizes)

	  define type integer_sizes
	    keyword 4 	!byte size
	    keyword 8
	    keyword 32  !bit size
	    keyword 64

	  define syntax set_integer_format
	  parameter p1,default,value(default=size)
	  parameter p2,default,value(default=format)
	  parameter p3,value(type=$rest_of_line),label=format
	  qualifier default
	  qualifier size,default,value(type=integer_Sizes,default=4)
!	  disallow p3 and default
!
	define syntax set_keyboard
	  parameter p1,default,value(default=keyboard)
	  parameter p2,value(type=keyboard_types)
!
	  define type keyboard_types
	    keyword normal
	    keyword pc
	    keyword laptop
!
	define syntax set_symbol_subs
	  qualifier verb
	  qualifier symbols

	define syntax set_real
	  parameter p1,default,value(default=real_size)
	  parameter p2,value(type=real_what)

	  define type real_what
	  keyword size,syntax=set_real_size
	  keyword format,syntax=set_real_format

	  define syntax set_real_size
	  parameter p1,default,value(default=real)
	  parameter p2,default,value(default=size)
	  parameter p3,value(type=real_sizes)

	  define type real_sizes
	    keyword 4  	!size in bytes
	    keyword 8
	    keyword 16
	    keyword 32  !size in bits
	    keyword 64
	    keyword 128

	  define syntax set_real_format
	  parameter p1,default,value(default=real)
	  parameter p2,default,value(default=format)
	  parameter p3,value(type=$rest_of_line),label=format
	  qualifier default
	  qualifier size,default,value(type=real_Sizes,default=4)
!	  disallow p3 and default
!
	define syntax set_display
	  parameter p1,default,value(default=editor)
	  parameter p2,value(type=display_types,list)
	  define type display_types
            keyword hex
	    keyword decimal
	    keyword octal
	    keyword binary
            keyword byte
            keyword word
            keyword longword
	    keyword field,negatable
	    keyword number,negatable,value(type=number_type)
!            keyword number,negatable
!            keyword hexnumber,negatable
            keyword compress,negatable
	    keyword unsigned,negatable
	    keyword raw,negatable
	    keyword tag,negatable
	    keyword fieldnames,negatable
	    keyword recnr,negatable
	    keyword recsiz,negatable
	    keyword data,negatable
	    keyword vfc,negatable
	    keyword rfa,negatable
!
	define syntax set_editor
	  parameter p1,default,value(default=editor)
	  parameter p2,value(type=editor_types)
	define type editor_types
	  keyword edt
	  keyword internal
	  keyword tpu
	define syntax set_pagemode
	  parameter p1,default,value(default=paged_mode)
	  parameter p2,value(type=pagemode_types)
	define type pagemode_types
	  keyword yes
	  keyword no
	  keyword screen
!
	define syntax set_file
	  parameter p1,default,value(default=file)
	  parameter p2
	  qualifier wildcard,value(type=wildcard_type)
	  qualifier unix
	  qualifier locking,value(type=locking_types,list)
	  qualifier modify

	define syntax set_search
	  parameter p1,value		!the search verb
	  parameter p2,value(list)
	  parameter p3,value(list)
	  parameter p4,value(list)
	  parameter p5,value(list)
	  parameter p6,value(list)
	  parameter p7,value(list)
	  parameter p8,value(list)
	  qualifier next_record,placement=positional
	  qualifier case_sensitive,placement=positional
	  qualifier match,default,value(type=match_type),placement=positional
	  qualifier wildcard,value(type=wildcard_type),placement=positional
	  qualifier not,placement=positional
	  qualifier type,value(required),placement=positional
	  qualifier window,value(list,type=window_type)
	  qualifier show,placement=positional
	  qualifier field,value,placement=positional
	  qualifier logic, value(type=logic_type),placement=positional
	  qualifier fast,value(type=$number,default=1024)
	  qualifier location,value(type=search_location_type),placement=positional
	  qualifier statistics
!

	define syntax set_message
	  parameter p1,default,value(default=message)
	  Qualifier    FACILITY
	  Qualifier    IDENT
	  Qualifier    SEVERITY
	  Qualifier    TEXT
	  Qualifier    all
	  Qualifier    none
!
	define syntax set_mouse
	  parameter p1,value(required)	!value=mouse
	  parameter p2,value(type=mouse_type,required),Prompt="On or Off"
!
	define type mouse_type
	  keyword on
	  keyword off
!
	define syntax set_terminal
	  parameter p1,default,value(default=terminal)
	  qualifier line_editing,negatable
	  qualifier insert,negatable
	  qualifier overstrike,negatable
	  qualifier width,value(type=$number)
!
	define syntax set_process
	  parameter p1,default,value(default=process)
	  qualifier name,value(required)

	define syntax set_prompt
	  parameter p1,default,value(default=prompt)
	  parameter p2,value(default=$quoted_string)

	define syntax set_strict
	  parameter p1,default,value(default=strict)
	  qualifier typing,negatable
	  qualifier declarations,negatable
	  qualifier local,negatable

	define syntax set_exit
	  parameter p1,default,value(default=exit)
	  parameter p2,value(type=$number)
!
! Show things
!
	define verb show
	parameter p1,value(required,type=show_type),prompt="Show what"
	define type show_type
	keyword description,syntax=syn_show_desc
	keyword debug
	keyword decimal
	keyword display_mode,syntax=syn_show_mode
	keyword editor,syntax=syn_show_editor
	keyword find,syntax=syn_show_find
	keyword file,syntax=syn_show_file
	keyword format
	keyword substitution
	keyword integer_size
	keyword keys,syntax=syn_show_keys
	keyword keyboard
	keyword mouse
	keyword parameters,syntax=syn_show_param
	keyword paged_mode,syntax=syn_show_page
	keyword real_size
	keyword release_notes,syntax=syn_show_rel
	keyword search,syntax=syn_show_search
	keyword skeys,syntax=syn_show_skeys
	keyword symbols,syntax=syn_show_symb
	keyword strict,syntax=syn_show_strict
	keyword virtual_memory,syntax=syn_show_vm
	keyword terminal,syntax=syn_show_terminal
	keyword message,syntax=syn_show_message
	keyword version,syntax=syn_show_version
!
	  define syntax syn_show_file
	  parameter p1,value(default=file)
	  qualifier full
	  qualifier all
	  qualifier descriptions
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged

	  define syntax syn_show_find
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged

	  define syntax syn_show_desc
	  parameter p1,value(default=descriptor)
          parameter p2
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged
	  qualifier expanded
	  qualifier full
	  qualifier hex
	  qualifier source
	  qualifier file
	  qualifier loaded
	  qualifier all

	  define syntax syn_show_rel
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged
	  qualifier version,value

	  define syntax syn_show_symb
	  parameter p1,value(default=symbol)
          parameter p2
	  qualifier statistics
	  qualifier full
	  qualifier all
	  qualifier hex
	  qualifier octal
	  qualifier decimal
	  qualifier binary

	  define syntax syn_show_param
	  parameter p1,value(default=parameters)
          parameter p2
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged
	  qualifier hex
	  qualifier binary
	  qualifier decimal
	  qualifier octal

	  define syntax syn_show_editor
	  parameter p1,value(default=editor)

	  define syntax syn_show_terminal
	  parameter p1,value(default=terminal)

	  define syntax syn_show_page
	  parameter p1,value(default=paged_mode)

	  define syntax syn_show_search
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged

	  define syntax syn_show_skeys
	  parameter p1,value(default=skeys)
	  parameter p2
	  qualifier output,default,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged
	  qualifier context_Screen,value(required,type=screen_type)
!
	  define syntax syn_show_keys
	  parameter p1,value(default=keys)
          parameter p2
	  qualifier directory
	  qualifier state,default,value(default=DEFAULT)
	  qualifier full

	  define syntax syn_show_mode
	  parameter p1,value(default=display_mode)
!
	  define syntax syn_show_message
	  parameter p1,value(default=message)

	  define syntax syn_show_strict
	  parameter p1,value(default=strict)
!
	  define syntax syn_show_vm
	  parameter p1,value(default=virtual_memory)
	  qualifier output,value(default=sys$output,type=$outfile)
	  qualifier screen
	  qualifier paged
	  qualifier full
	  qualifier detail
	  qualifier vms
	  qualifier link

	  define syntax syn_show_version
	  parameter p1,value(default=version)

!
! Spawn command
!
	define verb spawn
	parameter p1,value(type=$rest_of_line)
!
! Symbol command,
!
!	define verb symbol
!	parameter p1,value(type=$rest_of_line)
!
! Truncate the record
!
	define verb truncate
	parameter p1	!optional tag
	parameter p2    !offset
	qualifier hex
!
! Undo changes, 
!
	define verb undo
	parameter p1		!file tag
!
! Write changed record to file
!
	define verb update
	qualifier quiet
	parameter p1		!file tag
!
	define verb while
	parameter p1,value(type=$rest_of_line)
!
	define verb endwhile
!
	define verb repeat
!
	define verb until
	parameter p1,value(type=$rest_of_line)
!
	define verb for
	parameter p1,value(type=$rest_of_line)
	define verb endfor
!
	define verb end
	parameter p1,value(type=end_type,required)
	define type end_type
	keyword for
	keyword if
	keyword while
	keyword loop
!
	define verb at
	qualifier output,value(type=$outfile,required)	
	parameter p1
	parameter p2,value(type=$rest_of_line)
!
	define verb declare
	synonym local
	parameter p1,value(required,type=$rest_of_line)
	qualifier real
	qualifier integer
	qualifier character
	qualifier logical
	qualifier date
	qualifier decimal
	disallow(any2(real,integer,character,logical,date,decimal))
!                                          
	define verb subroutine
	parameter p1,value(list)
	qualifier real,placement=positional
	qualifier integer,placement=positional
	qualifier character,placement=positional
	qualifier logical,placement=positional
	qualifier date,placement=positional
	qualifier decimal,placement=positional
	qualifier symbol,placement=positional
!	disallow(any2(real,integer,character,logical,date))
!
	define verb entry
	parameter p1,value(list)
	qualifier real,placement=positional
	qualifier integer,placement=positional
	qualifier character,placement=positional
	qualifier logical,placement=positional
	qualifier date,placement=positional
	qualifier decimal,placement=positional
	qualifier symbol,placement=positional
!	disallow(any2(real,integer,character,logical,date))
!
	define verb endsubroutine
!
	define verb call
	parameter p1
	parameter p2,value(type=$rest_of_line)
!
	define verb wait
	parameter p1,value(type=$rest_of_line)
!
	define verb leave
!
! Tpe declaration routines
!
	define verb real
	parameter p1,value(required,type=$rest_of_line)
	define verb integer
	parameter p1,value(required,type=$rest_of_line)
	define verb logical
	parameter p1,value(required,type=$rest_of_line)
	define verb character
	parameter p1,value(required,type=$rest_of_line)
	define verb date
	parameter p1,value(required,type=$rest_of_line)
	define verb decimal
	parameter p1,value(required,type=$rest_of_line)
!
	define verb cycle
	noparameters
!
	define verb loop
	noparameters

	define verb endloop
	noparameters

	define verb testloop
	parameter p1,value(type=$rest_of_line)

	define verb write
	parameter p1,value(type=$outfile,required)
	qualifier append

	define type locking_types
            keyword optimistic,negatable
            keyword rrl,negatable

	define verb dump
	qualifier output,value(type=$outfile,default=sys$output)
	  qualifier screen
	  qualifier paged
	qualifier csv,value(list,type=csv_values)
	qualifier count,value(type=$number)
	qualifier select,value(list)
	qualifier display,value(list,type=display_type)
	qualifier rewind
	qualifier raw
	qualifier hex
	qualifier octal
	qualifier decimal
	qualifier binary
	qualifier number ,default,value(type=number_type)
	qualifier compress
	qualifier word
	qualifier byte
	qualifier longword
	qualifier field
	qualifier unsigned
	qualifier decimal
	qualifier tag
!
	define type csv_values
	  keyword header
	  keyword all_quotes
	  keyword separator,value(type=csv_sep_type)
	  keyword quote,negatable,value(type=csv_quo_type)

	define type csv_sep_type
	  keyword space
	  keyword comma
	  keyword tab
	  keyword colon
	  keyword semicolon
	  keyword character,value(type=$number)

	define type csv_quo_type
	  keyword quote
	  keyword doublequote
	  keyword character,value(type=$number)
        define type display_type
          keyword data,default,negatable
          keyword vfc,negatable
          keyword all,negatable,default
          keyword recnr,negatable
          keyword recsiz,negatable
          keyword rfa,negatable

	define type wildcard_type
	  keyword none
	  keyword standard,default
	  keyword extended

        define type search_location_type
          keyword data,default
          keyword vfc
          keyword both
          keyword recl