proc MAIN()
  open (1,"D:FILE.TXT",8,0)
  printde(1,"My string")
  close(1)
return