File: MacTest.fth

package info (click to toggle)
fcode-utils 1.0.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 46,768 kB
  • sloc: ansic: 9,717; csh: 241; makefile: 129; sh: 17
file content (20 lines) | stat: -rw-r--r-- 259 bytes parent folder | download | duplicates (20) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
\ MacTest.fth
\    Updated Thu, 17 Mar 2005 at 19:24 by David L. Paktor


fcode-version2


: veber ( n3 n2 n1 -- alloc-addr size $addr,len )
     3dup (.) type
     .d
    ?dup if exit  then
    spaces
;

: ordinary ( -- )
   123 456 789 veber
;
 
fcode-end