home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / WRITEDEV.PRO < prev   
Encoding:
Text File  |  1990-03-26  |  424 b   |  15 lines
  1. %====================== writedevice/1         ===============================
  2. DOMAINS
  3.   FILE = myfile
  4.  
  5. GOAL    openwrite(myfile,"dd.txt"),
  6.     writedevice(myfile),
  7.     write("File with one line\n"),
  8.     writedevice(screen),
  9.     write("\nNow writing to the screen"),
  10.     writedevice(myfile),
  11.     closefile(myfile),
  12.     writedevice(DEV),
  13.     write("\nNote write device is automatically set to: ",DEV),
  14.     write("\nwhen the file is closed").
  15.