The statement of the subprogram start <SUB>

It is used for the declaration of the subprogram and the parameters list that is passed to the program then call.



SUB <subprogram name> {(<the list of the parameters>)}



The keyword of this operator is the <SUB>. Then follows the sub-program name – literal string without the double quotation marks and after that the optional parameters list in the parenthesizes.

<The list of the parameters> is the sequence of the numerical and string variables or arrays. If the parameters number is more the one then it is divided by commas.

The variables defined if the list will contain the values defined in the call statement when call. Therefore, these variables variable if declared in subprogram and can be used everywhere.




sub GetProgramID(PrgID: Integer)

! Extracting numeric identifier from the string NC-program name

  i: Integer

  j: Integer

  k: Integer

  s$: String


  i = 1

  j = 0

  k = 0

  while i<=Len(NCName$) do begin

    s$ = Copy(NCName$, i, 1)

    case Ord(s$) of

      48, 49, 50, 51, 52, 53, 54, 55, 56, 57: begin

        if j<1 then j = i

        if (k<1) or (k=(i-1)) then

          k = i



    i = i + 1


  if (j>0) and (k>0) then begin

    s$ = Copy(NCName$, j, k-j+1)

    PrgID = Num(s$)






See also:

Statement to call a subprogram <CALL>

The statement of the subprogram end <SUBEND>