Subversion Repositories SvarDOS

Rev

Rev 1438 | Rev 1440 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1438 Rev 1439
Line 261... Line 261...
261 
 
 261 
 
262 
  /* line numbers */
 262 
  /* line numbers */
263 
  {
 263 
  {
264 
    unsigned short x;
 264 
    unsigned short x;
265 
    unsigned char count = 0;
 265 
    unsigned char count = 0;
266 
    unsigned short coloffset = 9;
 266 
    unsigned short col = helpcol - 9;
267 
 
 267 
 
268 
    x = 1 + db->totlines;
 268 
    x = db->totlines;
269 
    AGAIN:
 269 
    AGAIN:
270 
    do {
 270 
    do {
271 
      mdr_cout_char(screenlastrow, helpcol - coloffset, '0' + (x % 10), SCHEME_STBAR1);
 271 
      mdr_cout_char(screenlastrow, col--, '0' + (x % 10), SCHEME_STBAR1);
272 
      x /= 10;
 272 
      x /= 10;
273 
      coloffset++;
 - 
 
274 
    } while (x);
 273 
    } while (x);
275 
    /* redo same exercise, but printing the current line now */
 274 
    /* redo same exercise, but printing the current line now */
276 
    if (count == 0) {
 275 
    if (count == 0) {
277 
      count = 1;
 276 
      count = 1;
278 
      mdr_cout_char(screenlastrow, helpcol - coloffset, '/', SCHEME_STBAR1);
 277 
      mdr_cout_char(screenlastrow, col--, '/', SCHEME_STBAR1);
279 
      coloffset++;
 - 
 
280 
      x = 1 + db->curline;
 278 
      x = 1 + db->curline;
281 
      goto AGAIN;
 279 
      goto AGAIN;
282 
    }
 280 
    }
283 
 
 281 
 
284 
  }
 282 
  }