7 lines
173 B
Text
7 lines
173 B
Text
|
show logoversion ; 5.6
|
||
|
|
if logoversion < 6.0 [print [too old!]]
|
||
|
|
|
||
|
|
if and [name? "a] [number? :a] [
|
||
|
|
print ifelse procedure? "abs [abs :a] [ifelse :a < 0 [minus :a] [:a]]
|
||
|
|
]
|