|
field1 = 1/3 field2 = 1/3 open "test.raf" for random as #1 len = 20 field #1, 6 as field1, 14 as field2 put #1, 1 close #1 open "test.raf" for random as #2 len = 20 field #2, 6 as field1$, 14 as field2$ get #2, 1 close #2 print chr$(34);field1$;chr$(34) print chr$(34);field2$;chr$(34)
"0.3333" "0.333333333 "
|
pi = 4 * atn(1) for i = 1 to 4 print using("#.####^^^^", pi) pi *= 10 next i
3.1416E0 3.1416E1 3.1416E2 3.1416E3
|