http://www.ousob.com --- Legacy Redefined #include <dos.h> #include <extend50.h> CLIPPER b_gotorat() { union REGS regs; int col,row; if( PCOUNT != 2 && !ISNUM(1) && !ISNUM(2) ) { _ret(); } row = _parni(1); col = _parni(2); regs.x.ax = 0x04; regs.x.cx = col * 8; regs.x.dx = row * 8; int86(0x33,&regs,&regs); _ret(); }