1\ MacTest.fth
2\    Updated Thu, 17 Mar 2005 at 19:24 by David L. Paktor
3
4
5fcode-version2
6
7
8: veber ( n3 n2 n1 -- alloc-addr size $addr,len )
9     3dup (.) type
10     .d
11    ?dup if exit  then
12    spaces
13;
14
15: ordinary ( -- )
16   123 456 789 veber
17;
18
19fcode-end
20
21