home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / FORTH_86.ZIP / EXAMPLE2.4TH < prev    next >
Text File  |  1993-03-29  |  392b  |  15 lines
  1. on printload
  2. off redefine
  3.  
  4.   : header  crlf
  5.         "    The following shows a DO .. LOOP in action "  ."  crlf
  6.         "    ==========================================="  ."  crlf ;
  7.  
  8.   : footer  crlf
  9.     "    It printed out the even numbers from 1 through 20 " ." crlf ;
  10.  
  11.   : gap 2 spcs ;
  12.   : doloop  crlf "    " ." 20 0 do i . gap 2 +loop crlf ;
  13.   : dolooptest  header doloop footer ;
  14.  
  15.