From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/ct-test.fs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 forth/forth/ct-test.fs (limited to 'forth/forth/ct-test.fs') diff --git a/forth/forth/ct-test.fs b/forth/forth/ct-test.fs new file mode 100644 index 0000000..6837d87 --- /dev/null +++ b/forth/forth/ct-test.fs @@ -0,0 +1,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 +. +. -- cgit v1.2.3