MAXITEMS = 100
      FOR i% = 1 TO 8
        READ n
        PRINT "Value = "; n ", running SD = " FNrunningsd(n)
      NEXT
      END

      DATA 2,4,4,4,5,5,7,9

      DEF FNrunningsd(n)
      PRIVATE list(), i%
      DIM list(MAXITEMS)
      i% += 1
      list(i%) = n
      = SQR(MOD(list())^2/i% - (SUM(list())/i%)^2)