Return to checkans.fs CVS log | Up to [gforth] / gforth |
version 1.1, 1994/11/29 16:49:46 | version 1.2, 1995/11/27 01:58:04 |
---|---|
Line 10 VARIABLE CharCount | Line 10 VARIABLE CharCount |
30 CONSTANT MaxChars | 30 CONSTANT MaxChars |
VARIABLE Flag | VARIABLE Flag |
CREATE Names 500 ALLOT | CREATE Names 125 CELLS ALLOT |
VARIABLE PNT Names PNT ! | VARIABLE PNT Names PNT ! |
: INIT TRUE Flag ! 0 CharCount ! ; | : INIT TRUE Flag ! 0 CharCount ! ; |