home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
EFFO
/
pd6.lzh
/
TST
/
enumerates.tst
< prev
next >
Wrap
Text File
|
1989-12-21
|
539b
|
34 lines
.( 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