home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / amethyst / mptab.c < prev    next >
Encoding:
Text File  |  1984-01-16  |  316 b   |  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.