10 open "addrph" as #1 len = 150 20 field 1, 35 as n$, 80 as a$, 15 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$, 15 as ph$ 100 get 1 110 print n$ 120 print a$ 130 print "phone number: "; ph$ 140 close 1produces the output
Basmark Corporation 1717 East Ninth Street, Cleveland, Ohio phone number: 800-555-1212Lines 30 through 50 put information into the buffer, and the put statement in line 60 writes the buffer to the file.
from The Basmark QuickBASIC Programmer’s Manual by Lawrence Leinweber