aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/ct-test.fs
blob: 6837d87608959b9f31300ebb724004100f9dbd23 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
\ USAGE EXAMPLE
: ?9 dup 9 = ;
: ?6 dup 6 = ;
: .9 ." nine" cr ;
: .6 ." six" cr ;
' .6 ' ?6 ' .9 ' ?9 
2 flash ct test ram

\ WITH noname:

:noname ." default" cr ; 
' true
:noname ." six" cr ;
:noname dup 6 = ;
:noname ." nine" cr ;
:noname dup 9 = ;
3 flash ct testnoname

6 test
6 testnoname
.
.