42 lines
640 B
QBasic
42 lines
640 B
QBasic
|
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
|