home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / ERR.PRG < prev    next >
Text File  |  1986-11-18  |  239b  |  14 lines
  1.    PARA errmess
  2.    @4,0 CLEA TO 22,79
  3.    IF ROW()>18
  4.       @4,0
  5.    ENDI
  6.    l=LEN(errmess)+3
  7.    r=(79-l)/2
  8.    @ROW(),r TO ROW()+2,79-r
  9.    SET COLO TO gr/r
  10.    @ROW()-1,r+2 SAY errmess
  11.    SET COLO TO gr
  12.    @ROW()+2,0
  13.    DO colo
  14.