home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / SYSTEM3.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  514 b   |  11 lines
  1. %====================== system/3             ===============================
  2. goal    makewindow(1, 7, 0, " System ", 0, 0, 25, 80),
  3.     write("If you have an EGA card, and the file ega43.com exist",
  4.           "we will try to put you in 43 rows mode"),
  5.     unreadchar('\13'),unreadchar('t'),unreadchar('i'),unreadchar('x'),unreadchar('e'),
  6.     unreadchar('\13'),unreadchar('3'),unreadchar('4'),
  7.     unreadchar('a'),unreadchar('g'),unreadchar('e'),
  8.     system("",0,ErrorLevel),
  9.     write("\nErorLevel=",ErrorLevel),
  10.     readchar(_).
  11.