aUCBLogo Demos and Tests / typebintest

to typebintest
   openWriteBin "tmp.dat
   setwriter "tmp.dat
   typeBin 12345678
   typeBin 2.3456789
   typeBin 3.456789+4.56789i
   a=array 2
   a.1=1234
   a.2=5.678
   typeBin a
   typeBin (list 1.2345 6789)
   close "tmp.dat
   setwriter []

   openReadBin "tmp.dat
   setReader "tmp.dat
   show readIntBin
   show readFloatBin
   show readComplexBin
   show readIntBin
   show readFloatBin
   show readFloatBin
   show readIntBin
   setReader []
   close "tmp.dat
end