1 !　＝　1
2 !　＝　2
3 !　＝　6
4 !　＝　24
5 !　＝　120
6 !　＝　720
7 !　＝　5040
8 !　＝　40320
9 !　＝　362880

プログラムの内容：

FOR i=1 TO 9 PRINT i;"!　＝ ";kaijou(i);"　" NEXT i END EXTERNAL FUNCTION kaijou(x) LET k=1 FOR i=1 TO x LET k=k*i NEXT i LET kaijou=k END FUNCTION