🚀 go-pugleaf

Hello all, my source code here is all fucked.  I really need help in
buffering this 5 megs text file into 64k chunks, and then let the user
go through those chunks smoothly.

Example:

1
2
3 -- user sees all this
4
5

user presses down once

2
3
4  -- user sees all this
5
6

user pressed down three times

5
6
7 -- user sees all this
8
9

This is sortof what I want to happen here.  Say the text box can only
support five entries.  I want it to buffer itself QUICKLY so the user
can scroll through the WHOLE text file painlessly.

Once this program is complete, the company I part-time work for will
be selling each copy of this program for $100 each(Canadian currency).
We deal in custom made spectrometers, and it's my job to make a
display program of all the wave lengths (that's why the text file is
soo big.)  When the proram is finished I'll give credit to whoever can
help me solve this problem.  Please e-mail me with possible sollutions
and help, it's much appreciated.

Chetan Phull
phull@interlog.com

P.S.:  I'm attaching my source code, please download it and make
necessary refinements and e-mail if back to me.  If it works to my
satisfaction, you will get credit in the final copy of the program.
P.P.S.: I'm also looking for a font with ALL CHARACTERS EXACTLY THE
SAME SIZE.  I tried Courier and System, but different characters have
different widths.
Public Sub Form_Load()
    
    'variable declarations
    Dim temp1 As String
    temp1 = Array() 'HOW DO I MAKE THIS WORK?
    Dim i As Long
     
    'load Waves Database
    Open "c:\lambda32\waves.txt" For Binary As 1
    
    Dim FileSize As Long
    FileSize = LOF(1)
      
    'i=number of 64k chunks in WAVES.TXT
    i = FileSize / 64000

Do While Not EOF(1)
    Dim x As Integer
    Get #1, i * x, temp1(i)
'    txtWaves.Text = temp1  'HOW DO I BUFFER THE DISPLAY?
    x = x + 6400
Loop
 
'    For x = 1 To 3
'        Input #1, temp1
'        lstWaves.AddItem temp1
'    Next x

    Close #1
 
 
End Sub