rem Data Bounding
[loop]
cls
print
print "Data Bounding"
print

dim y(100)
dim x(100)

rem data entry
input "Number of points to input? ";n
[gleap]
input "Use keyboard (k) or read from data (d)? ";c$
if c$="k" then
 for i=1 to n
  print "x(";i;")= ";
  input " ";x1
  x(i)=x1
 next i
end if
if c$="d" then
for i=1 to n
  read x1
  x(i)=x1
next i
restore
end if
if c$<>"d" and c$<>"k" then [gleap]
[again]

rem bounding routine
[zleap]
print
print "Data bounding"
a$="Data bounded"
rem one standard deviation
s=1
y(1)=x(1)
for k=2 to n-1
 a=(x(k-1)+x(k+1))/2
 d=x(k)-a
 m=s*(x(k))^.5
 if abs(d)<abs(m) then [aleap]
 if d>0 then [bleap]
 y(k)=x(k)+m
 goto [cleap]
 [bleap]
 y(k)=x(k)-m
 goto [cleap]
 [aleap]
 y(k)=x(k)
 [cleap]
next k
y(n)=x(n)

print
print "Result: ";a$
print
for k=1 to n
 print "X(";k;")= ";x(k)
 print "Y(";k;")= ";y(k)
 print
next k

rem ****************** insert your data below ****************
rem ****************** if you are using this  ****************
rem ****************** input method           ****************
data 84,85,83,105,108,123,107,96,102,92
data 111,93,102,76,78,64,64,61,54,51

end