lb5.353 RAF files allows var lengths (good!)

[tsh73]

Here's code adapted off contact_lb5.bas

I used variable (x1) and array member (y(2)) as length, and variable (total) as record size
Accoring to resulting file length, it used "total".
(and does not check if sum of field lengths equals total)

dim y(10)
y(2)=15
x1=20
total = 700 'it looks like LB5 uses this number and does not checks filed length sum

   open "contact353.dat" for random as #contacts len = total
   field #contacts, _
       x1 as name$, _
       y(2) as address$, _
           15 as city$, 2 as state$, 10 as zip$, 15 as phone$, 20 as stage$, 500 as memo$, 48 as fill$

   address$="Nowhere, 123"
   name$ = "4"
   put #contacts, 1
   name$ = "Carlos Gomez"
   stage$ = "Initial Phone Call"
   put #contacts, 2
   name$ = "Raymond Rhodes"
   stage$ = "Special Offer Mailer"
   put #contacts, 3
   name$ = "Willie Weston"
   stage$ = "Initial Phone Call"
   put #contacts, 4
   name$ = "Alexi Guerra"
   stage$ = "Special Offer Mailer"
   put #contacts, 5
   close #contacts

print "over"
run "notepad.exe "+DefaultDir$+"\contact353.dat"e