version 1.74, 2010/08/28 10:04:34
|
version 1.75, 2010/09/12 17:10:04
|
Line 518 VARIABLE C-Pass
|
Line 518 VARIABLE C-Pass
|
ELSE |
ELSE |
dup cell+ BranchAddr? Forward? |
dup cell+ BranchAddr? Forward? |
IF dup cell+ @ WhileCode2 = |
IF dup cell+ @ WhileCode2 = |
IF nl S" ELSE" .struc level+ |
IF nl S" ELSE " .struc level+ |
ELSE level- nl S" ELSE" .struc level+ THEN |
ELSE level- nl S" ELSE" .struc level+ THEN |
cell+ Disable swap ! |
cell+ Disable swap ! |
ELSE S" AHEAD" .struc level+ |
ELSE S" AHEAD " .struc level+ |
THEN |
THEN |
THEN |
THEN |
THEN |
THEN |