home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L2.ZIP / COUNTING.SEQ 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.