begin
  integer main
  string(255) mainfile
  recordformat file fm(string(255) name, integer flag)
  record (file fm) array file(0:1)
  mainfile = "fred.txt"
  main = 1
  file(main)_name = mainfile
  file(main)_flag = 32768
endofprogram