home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / FILMOD2.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  262 b   |  10 lines
  1. %====================== filemode/2            ===============================
  2. DOMAINS
  3.   FILE = reflexfile
  4.  
  5. GOAL    openread(reflexfile,"xreflex.rxd"),
  6.     readdevice(reflexfile),
  7.     filemode(reflexfile,0),
  8.     % Use only readchar from here
  9.     closefile(reflexfile).
  10.