Dim lines$(200)
Global lineused=0
Global lineswritten=0

For i = 1 To 200
   addline(i+"iafiagueg"+i+"oisngogn"+i)
Next
While Not KeyHit(1)
   If KeyDown(200) Then scroll(-1):update_lines()
   If KeyDown(208) Then scroll(1):update_lines()
Wend

Function addline(txt$)
   lineused=lineused+1
   lineswritten=lineswritten+1
   If lineswritten>200 Then
      For i=2 To 200
         lines$(i-1)=lines$(i)
      Next
   EndIf
   lines$(lineswritten)=txt$
   Print txt$
End Function
Function update_lines()
   For i = 1 To lineused
      Print lines$(i)
   Next
End Function
Function scroll(x)
   lineused=lineused+x
   If lineused>200 Then lineused=200
End Function