Add files via upload

Examples/FileIO/fileio.bas

@@ -0,0 +1,41 @@
+SUB MAIN
+  DIM bool AS BOOLEAN
+  DIM b AS BYTE
+  DIM w AS SHORT
+  DIM i AS INTEGER
+  DIM l AS LONG
+  DIM f AS FLOAT
+  DIM d AS DOUBLE
+  DIM s AS STRING
+  DIM c AS COMPLEX
+    
+  PRINT "Writing file"
+  OPEN #1,"fileio.dat","w"
+  PUT #1,true
+  PUT #1,BYTE(45)
+  PUT #1,SHORT(768)
+  PUT #1,123
+  CLOSE #1
+  
+  PRINT "Appending to file"
+  OPEN #1,"fileio.dat","a"
+  PUT #1,9876l
+  PUT #1,"hello"
+  PUT #1,COMPLEX(3.1,-2.5)
+  PUT #1,3.1f
+  PUT #1,pi
+  CLOSE #1
+
+  PRINT "Reading file"  
+  OPEN #1,"fileio.dat","r"
+  GET #1,bool,b,w,i,l
+  GET #1,s
+  GET #1,c,f,d
+  CLOSE #1
+  
+  PRINT bool
+  PRINT b,w,i,l
+  PRINT s
+  PRINT c
+  PRINT f,d
+END SUB