6 lines
152 B
Text
6 lines
152 B
Text
|
;"Negate X if its value is less than 0"
|
||
|
|
<AND <L? .X 0> <SET X <- .X>>>
|
||
|
|
|
||
|
|
;"Print a message unless the quiet flag is set"
|
||
|
|
<OR .QUIET? <PRINC "Finished">>
|