Type Record ' Definisce il tipo definito dall'utente.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, RecordNumber ' Dichiara la variabile.
' Apre il file per accesso casuale.
Open "FILEPROV" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5 ' Ripete 5 volte.
MyRecord.ID = RecordNumber ' Definisce l'ID.
MyRecord.Name = "Mio nome" & RecordNumber ' Crea una stringa.
Put #1, RecordNumber, MyRecord ' Scrive il record nel file.
Next RecordNumber
Close #1 ' Chiude il file.