home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts1.zip / ADVTUT / T.SC < prev    next >
Text File  |  1993-04-01  |  68b  |  8 lines
  1. main(n)
  2. {
  3.     while ( n ) {
  4.         print n; print "\n";
  5.         n = n - "1";
  6.     }
  7. }
  8.