http://www.ousob.com --- Legacy Redefined #include <dos.h> #include <extend50.h> CLIPPER b_cls() { union REGS regs; int top = _parni(1); int left = _parni(2); int bottom = _parni(3); int right = _parni(4); int color = _parni(5); if( !ISNUM(1) && !ISNUM(2) && !ISNUM(3) && !ISNUM(4) && !ISNUM(5) ){ _ret(); return; } regs.h.ah = 0x06; regs.h.al = 0x00; /* number of lines to scroll */ regs.h.bh = color << 4; /* attribute */ regs.h.ch = top; /* row top left corner */ regs.h.cl = left; /* col for top left corner */ regs.h.dh = bottom; /* row bottom right corner */ regs.h.dl = right; /* col bottom right corner */ int86(0x10,&regs,&regs); }