home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
l4p080.seq
< prev
next >
Wrap
Text File
|
1988-12-22
|
400b
|
15 lines
\ Tables - arrays by another name. 23:06JWB10/05/85
CREATE MARBLE 0 , 0 , 0 , 0 , 0 , 0 ,
0 CONSTANT RED 2 CONSTANT BLUE 4 CONSTANT YELLOW
6 CONSTANT BLACK 8 CONSTANT WHITE 10 CONSTANT GREEN
: MARBLES
MARBLE + ;
2 RED MARBLES ! 3 BLUE MARBLES ! 5 YELLOW MARBLES !
8 BLACK MARBLES ! 13 WHITE MARBLES ! 21 GREEN MARBLES !