home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / EDTMSG8.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  321 b   |  8 lines
  1. %====================== editmsg/8             ===============================
  2. GOAL    file_str("dd.txt", STR),
  3.     editmsg(STR, OUT, "Left Header", "Right Header",
  4.         "Press Shift F1 for help with asserta", 399, "Prolog.hlp", CODE),
  5.     Code=0,
  6.     write("F10 was pressed");
  7.     write("Escape was pressed,  - or file not found").
  8.