Forth#
false ( -- 0 )
| Forth79 | Forth83 | ANSI | Forth200x |
|---|---|---|---|
| X | X | X | X |
returns 0 as a flag for logic "false" on the stack
hinterläßt Null als Zeichen für logisch-falsch auf dem Stack.
Action#
false =0Example:
BYTE FUNC values_match(BYTE x,y)
BYTE rval
rval=0 ;means FALSE
IF x=10 AND y=20 THEN
rval=1 ;means TRUE
FI
RETURN(rval)
PROC main()
BYTE v1,
v2
PrintE("Please give me 2 numbers.")
Print("v1 = ")
v1=InputB()
Print("v2 = ")
v2=InputB()
IF values_match(v1,v2) THEN
PrintE("Your values match!!")
FI
RETURN
