Clarion



GOTO

, , (ROUTINE).

GOTO . - GOTO , .
GOTO- , ; GOTO , .
:
ComputeIt FUNCTION(Level)
CODE
IF Level = 0 THEN GOTO PassCompute.
! ,
!
Rate = Level * MarkUp !
RETURN(Rate) !
PassCompute RETURN(999999) !Return bogus number



- -  - -  - -