Lines Matching refs:begin
26 ." Interactive begin .. while .. repeat: "
27 " no loop (1) " 1 begin 0 while 1- repeat .passed?
28 " loop to 0 (1)" 9 begin dup while 1- repeat 0= .passed?
30 ." Compiled begin .. while .. repeat: "
31 : btest1 1 begin 0 while 1- repeat .passed? ;
32 : btest2 9 begin dup while 1- repeat 0= .passed? ;
36 ." Interactive begin..until: "
37 " no loop (3)" 1 begin dup until .passed?
38 " loop to 0 (3)" 9 begin 1- dup 0= until 0= .passed?
40 ." Compiled begin..until: "
41 : btest3 1 begin dup until .passed? ;
42 : btest4 9 begin 1- dup 0= until 0= .passed? ;
79 ." Compiled begin...again: "
80 : loop9 begin true exit again false ; loop9 " loop9" rot .passed?
84 begin
86 begin