shortening my sequencing records without writing each record

[Dimster]

Were you thinking of something like this

R$="Record"
Ext$=".DAT"

For i = 16 to 18
Rnum$=str$(i)
Open R$+LTRIM$(Rnum$)+Ext$ for Output as #i