home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / counting.seq < prev    next >
Encoding:
Text File  |  1990-03-24  |  145 b   |  9 lines
  1.  
  2. \ Loop Demo program that counts from 0 up to n.
  3.  
  4. : COUNT_UP ( n -- )
  5.         1 +  0 ?DO
  6.                   CR I .
  7.                LOOP ;
  8.  
  9.