From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/doloop-test.fs | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 forth/forth/doloop-test.fs (limited to 'forth/forth/doloop-test.fs') diff --git a/forth/forth/doloop-test.fs b/forth/forth/doloop-test.fs new file mode 100644 index 0000000..c526a8a --- /dev/null +++ b/forth/forth/doloop-test.fs @@ -0,0 +1,32 @@ +\ test some do loop words +-test +marker -test +decimal + +: tdo0 3 0 do cr i . loop ; +: tdo1 do i . i 5 = if leave then loop cr ." leaving" ; +: tdo2 do 10 0 do j . i . loop loop ; +: tdo3 ?do i . 1 +loop cr ." leaving" ; +: tdo4 do i . 10 +loop ; +: tdo5 do i . -10 +loop ; +: tdo ticks #30000 0 do loop ticks swap - u. ; +: tfor ticks #30000 for next ticks swap - u. ; +\ +cr +tdo0 +cr +10 0 tdo1 +cr +3 0 tdo2 +cr +0 0 tdo3 +cr +10 0 tdo3 +cr +100 0 tdo4 +cr +0 100 tdo5 +cr +tdo +cr +tfor -- cgit v1.2.3