sub CreateLoadFile {
open LOADCREATE
  print LOADCREATE $CreateViewCmd;
  print LOADCREATE $ChangeDirectory;
  print LOADCREATE $LoadViewCmd; 
}