version 1.2, 1997/07/06 15:56:17
|
version 1.3, 1997/08/31 19:32:31
|
Line 1
|
Line 1
|
\ Interpretative Structuren 16feb92py |
|
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
Line 18
|
Line 16
|
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
|
Warnings off |
|
|
Variable countif |
Variable countif |
|
|
Line 95 User (i)
|
Line 94 User (i)
|
0= IF postpone [ELSE] true rdrop rdrop 1 countif +! THEN ; |
0= IF postpone [ELSE] true rdrop rdrop 1 countif +! THEN ; |
immediate |
immediate |
|
|
|
Warnings on |