def setup
a_size = 20 ;定义数组维数
IO_READ = 0 ;定义关键词wr值，0表示从文件读出数据到内存
IO_WRITE = 1 ;定义关键词wr值，1表示从将数据写入文件
IO_ASCII = 1 ;定义关键词mode值，1表示ASCII类型数据
end
setup
def io
array aa(a_size) bb(a_size) ;定义数组aa,bb均为一维数组
status = open(‘ssw’, IO_WRITE, IO_ASCII) ;打开文件，待数据写入，数据类型为ASCII码(运行文件会在输入文件的同目录下生成一个ssw文件)
aa(1) = 'Line 1 ... Fred' ;指定数组aa的第1个元素
aa(2) = 'Line 2 ... Joe' ;指定数组aa的第2个元素
aa(3) = 'Line 3 ... Roger' ;指定数组aa的第3个元素
status = write(aa,3) ;将数组aa的3个元素写入文件
status = close ;关闭文件
status = open(‘ssw’, IO_READ, IO_ASCII) ;打开文件，从文件读出数据到内存
status = read(bb, a_size) ;读出20条记录作为数组bb的元素，返回值应为3
if status # 3 then ;如果记录数不是3，则输出Bad number of lines
oo = out(' Bad number of lines')
endif
status = close ;关闭文件
oo = out('bb(1)\t'+bb(1)) ;将数组bb中的3个元素输出
oo = out('bb(2)\t'+bb(2))
oo = out('bb(3)\t'+bb(3))
end
io
