10 open "addrph" as #1 len = 150 20 field 1, 35 as n$, 80 as a$, 12 as ph$ 30 lset n$ = "Basmark Corporation" 40 lset a$ = "1717 East Ninth Street, Cleveland, Ohio" 50 rset ph$ = "800-555-1212" 60 put 1 70 close 1 80 open "addrph" as #1 len = 150 90 field 1, 35 as n$, 80 as a$, 12 as ph$ 100 get 1 110 print n$ 120 print a$ 130 print ph$ 140 close 1Lines 30 through 50 put information into the buffer, and the put statement in line 60 writes the buffer to the file. Line 100 reads the buffer back from the file and lines 110 through 130 display the contents of the buffer.
from The Basmark QuickBASIC Programmer’s Manual by Lawrence Leinweber