PRINT
PRINT "すごろく （ 途中のマスの中には指示がない ）"
PRINT "第 ｎ マス目 に 駒 が止まる確率"
PRINT 
FOR i=1 TO 9
   PRINT "　 第 ";i;"マス目 ： ";func(i);" %"
NEXT i
FOR i=10 TO 26
   PRINT "　 第";i;"マス目 ： ";func(i);" %"
NEXT i
PRINT
PRINT "　　　　　1/3.5 ＝ ";1/3.5
PRINT
END

EXTERNAL FUNCTION func(x)
IF x<7 THEN
   LET func = 7^(x-1)/6^x
ELSE
   LET func = (func(x-1)+func(x-2)+func(x-3)+func(x-4)+func(x-5)+func(x-6))/6
END IF
END FUNCTION