Leica tps1100, Руководство пользователя, Страница: 265 / 1154

GeoBASIC Reference Manual 2.GeoBasic Constructs
2-36 TPS1100-Version 1.30
FOR i = 1 to n 'for all elem. in the first dim.
FOR j = 1 to m 'for all elem. in the second dim.
dSum = dSum + Matrix(i, j) 'sum up the elem.
NEXT j
NEXT i
AverageAngle = dSum / (n*m) 'assign the mean as
' return value
END AverageAngle
♦
The next example shows a possible use of the
EXIT SUB
statement, and the
difference to the loop
EXIT
statement.
SUB RoutineWithExit
'description: demonstrates EXIT SUB and EXIT
DIM i AS Integer
DIM lOk AS Logical
DIM lCond AS Logical
...
lOk = TRUE
DO WHILE lOk
FOR i = 1 TO n
'do something
IF Error() THEN
EXIT SUB ' terminates the subroutine
END IF
IF lCond then
EXIT ' terminates the loop
END IF
NEXT i
'this will be executed after "EXIT" but
' not after "EXIT SUB"
LOOP
END RoutineWithExit
2.7.2 Routine Calls
Syntax:
SubroutineCall ::= [ "
CALL
" ] SubroutineName
[ ActualParameterList ]