Lines Matching refs:DO
423 \ THE SYSTEM MIGHT DO EITHER FLOORED OR SYMMETRIC DIVISION.
695 TESTING DO LOOP +LOOP I J UNLOOP LEAVE EXIT
697 { : GD1 DO I LOOP ; -> }
702 { : GD2 DO I -1 +LOOP ; -> }
707 { : GD3 DO 1 0 DO J LOOP LOOP ; -> }
712 { : GD4 DO 1 0 DO J LOOP -1 +LOOP ; -> }
717 { : GD5 123 SWAP 0 DO I 4 > IF DROP 234 LEAVE THEN LOOP ; -> }
723 0 SWAP 0 DO
724 I 1+ 0 DO I J + 3 = IF I UNLOOP I UNLOOP EXIT THEN 1+ LOOP
816 0 DO
845 MAX-BASE 1+ 2 DO \ FOR EACH POSSIBLE BASE
857 0 DO \ S: C-ADDR FLAG
866 A 0 DO
870 MAX-BASE A DO
956 41 BL DO I EMIT LOOP CR
957 61 41 DO I EMIT LOOP CR
958 7F 61 DO I EMIT LOOP CR
960 9 1+ 0 DO I . LOOP CR
962 [CHAR] 9 1+ [CHAR] 0 DO I 0 SPACES EMIT LOOP CR
964 [CHAR] G 1+ [CHAR] A DO I EMIT SPACE LOOP CR
966 5 1+ 0 DO I [CHAR] 0 + EMIT 2 SPACES LOOP CR