home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / OPENAPP3.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  371 b   |  12 lines
  1. %====================== openappend/2          ===============================
  2. DOMAINS
  3.   file = myfile
  4.  
  5. GOAL  file_str("dd.txt", "Create file with only one line\n"),
  6.       openappend(myfile, "dd.txt"),
  7.       writedevice(myfile),
  8.       write("this is the second line in the file\n"),
  9.       closefile(myfile),
  10.       file_str("dd.txt", STR1),
  11.       display(Str1).
  12.