home *** CD-ROM | disk | FTP | other *** search
- .( Loading Enumerates test...) cr
-
- #include enumerates.f83
-
- enumerates
-
- .( 1: Define a set of small numbers as enumerates and check their values) cr
-
- enum.type SMALL.NUMBERS
- enum ZERO
- enum ONE
- enum TWO
- enum THREE
- enum FOUR
- enum FIVE
- enum.end
-
- ZERO . ONE . TWO . THREE . FOUR . FIVE . cr
-
-
- .( 2: Define a set of operation code and give the values for each enumerate) cr
-
- enum.type OP.CODES
- 10 >enum LOAD
- 15 >enum STORE
- 17 >enum ADD
- 21 >enum SUB
- 22 >enum MUL
- enum.end
-
- LOAD . STORE . ADD . SUB . MUL . cr
-
- forth only
-