dim c as char
dim s[100] as char
dim x as int

x=0

open "test9.bld" for archive as 1
print error
get 1,,s
print s

input x