home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / AMETHYST / MPTAB.C < prev    next >
Text File  |  2000-06-30  |  316b  |  10 lines
  1. /* put this at the end of BINDINGS.C */
  2.  
  3. MPTab()            /* move over a tab stop */
  4.     /* This is meant to go in conjunction with the tab set/clear in TABS.C 
  5.        Contributed to the AUG by Mark of the Unicorn 07/20/81 */
  6. {
  7.     for (cnt=BGetCol(); cnt<80; && (++cnt,!(spare[cnt>>3]&(1<<(cnt&7))));
  8.     ForceCol (cnt+1,FORWARD);
  9.     }
  10.