dim s as string
dim line as string
 
dim i as integer
dim p2 as string
dim v as integer
 
s = ""
 
s = s & comm1.input
do while (1)
 
'get one line
do while instr(s, chr(10)) > 0
   'get one line of data
   line = left(s, instr(s, chr(10)) -1)
   s = mid(s, len(s1)+1)  'remaing part of input
 
   'get first comma
   i = instr(s, ",")
   p2 = instr(i+1, s, ",")
   v = val(p2)
 
   addPoint2Plot v
 
loop
 
'append comm1 input to any remaining trailing chars of last input
s = s & comm1.input
 
'add some kind of exit code here.
 
loop

picture1.currentx = 500
picture1.currenty = 10
picture1.print "1000"

'class module CPoint
 
'declarations section
Public x as single
public y as single

Public sub Timer_time()
 
static dataPts as collection
static cnt as integer
 
private p as CPoint
 
 
if dataPts is nothing then
   'on the first call, create a new collection
   set dataPts = new collection
   cnt = 0
end if
 
cnt = cnt + 1
set p = New CPoint
p.x = cnt
p.y = ReadPort()
 
dataPts.add p
 
if dataPts.count > 1000
   dataPts.remove 1
endif
 
'you have a max of 1000 points in a collection,
'which you may now display
DisplayValues dataPts
 
End sub
 
 
Private sub DisplayValues(c as collection)
   dim i as integer
   dim x0 as integer  'x value at left of graph
 
   if c.count > 0 then
      x0  = c(1).x
   endif
   'clear the screen and display grid
   picture1.cls
   drawGrid
   'draw set of lines correspoinding to x and y values in the collection
   for i = 1 to c.count -1
        picture1.line (c(i).x - x0, c(i).y)-(c(i+1).x - x0, c(i+1).y)
   next
 
end sub