home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / WRITEDEV.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  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.