home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / READDEV1.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  289 b   |  12 lines
  1. %====================== readdevice/1          ===============================
  2. DOMAINS
  3.   FILE = input
  4.  
  5. GOAL    openread(input,"dd.txt"),
  6.     readdevice(input),
  7.     readln(L1),write(L1),nl,
  8.     readln(L2),write(L2),nl,
  9.     readdevice(keyboard),
  10.     write("Enter text: "),
  11.     readln(L3),write(L3),nl.
  12.