100 CALL CLEAR::DIM F(1000)
$MLC F 110 10 3000
1000 N=1000
1010 FOR I=1 TO N
1020 F(I)=RND*5000-2500
1030 NEXT I
1040 INPUT "DEPART CALCUL BASIC":R$
1050 S=0::FOR I=1 TO N::S=S+F(I)::NEXT I
1060 PRINT S::INPUT "DEPART CALCUL MLC":R$
1070 CALL LINK("FLOAT",N,F(),S)
1080 PRINT S::END
$FLOAT
	GETPARAM 1 N	; get n
	GETFLOAT 2(N)	; R0=F(n) as init value for sum
	DEC N		; will start with n-1
	NDO N N
		FMOVE 0 1	; R1=R0 (current sum)
		GETFLOAT 2(N)	; R0=F(i)
		FADD		; R0=sum+F(i)
	NLOOP
	PUTFLOAT 3(0)		; return sum in S
$$
$END
