PUT (File I/O) Statement Programming Example
 
This example reads names and test scores from the console and stores them
in a random-access file.
 
' Read a name and a test score from the console.
' Store each name and score as a record in a
' random-access file.
 
' Define record fields.
TYPE TestRecord
   NameField  AS STRING * 20
   ScoreField AS SINGLE
END TYPE
 
' Open the test data file.
DIM FileBuffer AS TestRecord
OPEN "TESTDAT.DAT" FOR RANDOM AS #1 LEN = LEN(FileBuffer)
 
' Read pairs of names and scores from the console.
 
CLS    ' Clear screen
I = 0
DO
   I = I + 1
   INPUT "Name ? ", FileBuffer.NameField
   INPUT "Score? ", FileBuffer.ScoreField
   INPUT "-->More (y/n)? ", Resp$
   PUT #1, I, FileBuffer
LOOP UNTIL UCASE$(MID$(Resp$, 1, 1)) = "N"
 
PRINT I; " records written."
 
CLOSE #1