home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / FLUSH1.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  205 b   |  8 lines
  1. %====================== flush/1               ===============================
  2. GOAL    writedewice(printer),
  3.     write("Hello"),
  4.     flush(printer),
  5.     writedevice(screen),
  6.     write("\nPress return),
  7.     readln(_).
  8.