aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/doloop-test.fs
blob: c526a8afd43251c8173d9b70e35a073e492d2d66 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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