puts "*** melsec command interpretor (1.0) ***"
if {! [file exists "/jyugem"]} {
    puts ""
    puts "Create working directory...   \"/jyugem\""
    file mkdir "/jyugem"
    file mkdir "/jyugem/shared"
    file mkdir "/jyugem/xml"
    file copy "melsec.xml" "melsec.xsd" "/jyugem/xml"
}

# source pkgIndex.tcl
package require melsec
melsec::open -path "/jyugem/shared" -xml "/jyugem/xml/melsec.xml"
# melsec::write X0 {1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1}
# melsec::read  X0 20

# Process module - A : sequence
# melsec::write ZR170000 { 1 2 }
# melsec::write ZR170050 { 3 4 5 }
# melsec::write ZR170100 { 6 7 8 9 }
# melsec::write ZR100 -ascii "abcdefg"

# Limit test
# melsec::read R8100 1
# melsec::write R8100 75
# melsec::write R8100 85

