I just dropped this in the cemetech archives. Download it here
http://www.cemetech.net/programs/index.php?mode=file&path=/83/basic/programs/CodeViewer.zip
Essentially, its a very rough "codeviewer" that will prefetch lines of code, particularly when the user decides not to press any buttons for a while. It will also let you move the cursor aound even before tha page has loaded... its rough and kinda bulky/needlessly complicated, but it runs fairly quickly; I focused largely on making the UI snappy.
I still have to optimize, switch to Celtic III, and add a ton of new features... =D I would greatly appreciate it if anyone bothered to run it and/or give me feedback!
Code: :3→dim(∟IDES
:1→∟IDES(1)
:If ∟IDES(1):1→∟IDES(2)
:ClrHome
:Input "prgm",Str0
:0→θ
:0:Asm(prgmCELTIC2
:θ→Z
:(Z>15)(15-Z)+Z→C
:" "→Str2
:Disp "Loading...
:For(N,1,C
:0→θ
:N:Asm(prgmCELTIC2
:":"+Str9→Str9
:Str2+sub(Str9+" ",1,23)→Str2
:End
:C→L
:sub(Str2,2,length(Str2)-1)→Str2
:1→B
:1→V
:ClrDraw
:CoordOff
:GridOff
:AxesOff
:PlotsOff
:FnOff
:Full
:13:Asm(prgmCODEX
:Text(1,3," EDIT TOOL CODE FIND
:For(N,1,4
:{3,0,0,8,18N
:Asm(prgmCODEX
:End
:{3,0,0,8,93}:Asm(prgmCODEX
:58
:{3,0,0,62,93
:Asm(prgmCODEX
:{1,8,18*3+1,8,18*4-1
:Asm(prgmCODEX
:Text(1,1,"
:StorePic 1
:19:Asm(prgmCODEX
:(Z>7)(7-Z)+Z→C
:While 1
:1→A
:While A
:While L<B+C-1
:0→θ
:L+1→L
:Asm(prgmCELTIC2
:Str2+sub(":"+Str9+" ",1,23)→Str2
:End
:13:Asm(prgmCODEX
:RecallPic 1
:Text(7V+2,1,"
:DelVar NDelVar A
:(V=C)→E
:While N<C and V>0 and V≤C
:Text(7V+2,1,"
:N+1→N
:If E:C-N+1
:Text(7Ans+2,5,sub(Str2,23B-45+23Ans,23
:getKey→A
:If Ans
:Then
:Text(7V+2,1,"
:(A=34)-(A=25)+V→V
:If V>C and B=Z-C+1:C→V
:End
:End
:RecallPic 1
:(V=0)-(V=C+1)+V→V
:If N≠C
:Then
:(A=34)-(A=25)+B→B
:Z-C+1
:(B=0)-(B=Ans+1)+B→B
:End
:End
:B→D
:DelVar A
:While B=D
:While V>0 and V≤C
:Text(7V+2,1,"
:If ∟IDES(2)
:Then
:For(N,1,60
:getKey→A
:If A:70→N
:End
:While A=0 and L<Z
:0→θ
:L+1→L
:Asm(prgmCELTIC2
:Str2+sub(":"+Str9+" ",1,23)→Str2
:getKey→A
:End
:If L=Z:0→∟IDES(2)
:Else
:0:Repeat Ans:getKey:End:Ans→A
:End
:While V>0 and V≤C and A
:Text(7V+2,1,"
:(A=34)-(A=25)+V→V
:(V=0)-(V=C+1)+V
:Text(7Ans+2,1,"
:getKey→A
:If not(Ans:getKey→A
:End
:End
:C-(C-1)(V=0)→V
:B-(V=1 and B≠1)+(V=C and B≠Z-C+1)→B
:End
:End
*EDIT*
The above code was parsed by SourceCoder2, much thanks to Kerm!