home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / cug / softt-11.lbr / DARKEN.RAT < prev    next >
Text File  |  1984-07-05  |  768b  |  27 lines
  1. #-h-  darken                      548  local   01/05/81  16:53:30
  2. # from the University of Arizona
  3. define(DEFAULT,2)
  4. define(LIMIT,10)
  5.  
  6. # darken - copies input to output, striking each character n times
  7.     character c, getc, arg(MAXLINE)
  8.     integer i, n
  9.     integer getarg, ctoi
  10.  
  11.     n = DEFAULT
  12.     if (getarg(1, arg, MAXLINE) ^= EOF)
  13.        n = min(ctoi(arg, 1) - 1, LIMIT)
  14.     while (getc(c) ^= EOF) {
  15.        call putc(c)
  16.        if (c > BLANK)  # overstrike black characters
  17.           for (i = 1; i <= n; i = i + 1) {
  18.              call putc(BACKSPACE)
  19.              call putc(c)
  20.              }
  21.        }
  22.     end
  23. #-t-  darken                      548  local   01/05/81  16:53:30
  24. 
  25.     call putc(NEWLINE)
  26.     call putlin(line1, STDOUT)
  27.     cal