Code:

  proc() = squareroot(a)   
    if(a >= 0)         ; if this condition is true, 
                       ;    XploRe will execute the next 
                       ;    commandline

      sqrt(a)          ; computes the squareroot of a
    else               ;   in case the condition above is not 
                       ;   fulfilled XploRe runs the else branch
      "number is negative"   
                       ; output of the else branch
    endif              ; end of the if construction

  endp                 ; end of the procedure

© MD*Tech - Method and Data Technologies, generated on 6.6.2000 .