18 lines
218 B
QBasic
18 lines
218 B
QBasic
open "test.out" for binary as 1
|
|
put 1,1,"xy"
|
|
put 1,3,"z!"
|
|
put 1,10,1/3
|
|
put 1,20,9999
|
|
close 1
|
|
open "test.out" for binary as 1
|
|
s$=" "
|
|
get 1,1,s$
|
|
get 1,10,x
|
|
get 1,20,n%
|
|
close
|
|
print s$
|
|
print x
|
|
print n%
|
|
kill "test.out"
|
|
|