程序代碼：

　　SET TALK OFF

　　CLEAR

　　S=0

　　INPUT "N=" TO N

　　STORE N TO MAX,MIN

　　FOR I=1 TO N

　　INPUT "B=" TO B

　　S=S+B

　　IF MAX

　　MAX=B

　　ENDIF

　　IF MIN>B

　　MIN=B

　　ENDIF

　　ENDFOR

　　?"AVERAGE="+STR((S-MAX-MIN)/(N-2),19,2)

　　SET TALK ON

　　8、利用參數傳遞和過程文件，求(M!+N!)/(M-N)!

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　SET PROC TO 程序20

　　INPUT "M=" TO M

　　INPUT "N=" TO N

　　STORE 0 TO SM,SN

　　DO JC2 WITH M,SM

　　DO JC2 WITH N,SN

　　DO MC2 WITH M-N,N

　　?"表達式結果為S="+STR((SM+SN)/N,10,2)

　　SET PROC TO

　　SET TALK ON

　　PROC JC2

　　PARA X,Y

　　I=1

　　T=1

　　DO WHILE I<=X

　　T=T*I

　　I=I+1

　　ENDDO

　　Y=T

　　RETURN

　　PROC MC2

　　PARA Y,X

　　I=1

　　T=1

　　DO WHILE I<=X

　　T=T*Y

　　I=I+1

　　ENDDO

　　X=T

　　RETURN