Blog

Linky, linky, linky… Yet more links I want to check out when I have time (which is to say when my life finally settles down and I'm not being dragged hither and yon every week, ie. never):

Three Dead Trolls in a Baggie — I'm running out of music to download while I'm surfing, and this Canadian geek-comedy band sounds interesting (mentioned on User Friendly).

Okay, a few more links (okay, an orgy) because our main system is down and I have no other way to bookmark things… (and because these are cool!)

Riddles — (no, not Tom) a bunch of job-interview riddles

More links when I can find them in that morass which is Slashdot… Oh, and by the way, depending on what happens in my life this next month or so, this page may end up moving, so on the off chance anyone is actually reading this regularily, I'll try and post a redirect notice as soon as I know what's going on. Here we are:

Mancala in C — which is to say, my implementation of the great African game mancala for Linux. Console-only at present, but a GUI and a Windows port are in the works. All the actual mancala code (game and AI) compiles in VC++ on Windows, the interface code is the only hangup. ANSI C rox0rz!!!

Subversion — Yet Another Version Control System. I'm think I'm gonna take a look — I've only spent a very short time with CVS and already I'm cursing at it! 🙁

SCONS — a replacement of the GNU make utility.

J. Lassen's Portfolio — a friend of mine's art portfolio.

Aaaah, it's good to be back! 🙂

I'm BAAAAACK! (Just long enough to post this… the morons next to me are working on PowerPoints .)

DemoLinux — a CD-based Linux distribution (that is, boot off the CD!)

OpenCD.org — compiling a CD of OSS software for Windows/MacOS

Best of luck to all these folks… I think I'm going to set up a DemoLinux CD to take to work when I need to troubleshoot — I can evangelize in the process! 😉

' The other great reason to have a blog: transporting stuff w/o e-mail!

Sub Main()
    Dim myArray() As String
    Dim tempChar As String
    Dim tempString As String
    Dim i As Integer
    Dim LastFilePosition As Integer
    Dim LastElement As Integer

    Open "h:\kvnrggl\test.txt" For Input As #1

    LastFilePosition = 0
    LastElement = 0

    For i = 1 To LOF(1)
        If i = LOF(1) Then
            Debug.Print "it's time"
        End If
        tempChar = Input(1, #1)
        If (tempChar = Chr(10)) Or (tempChar = Chr(13)) Or (i = LOF(1)) Then
            If (LastFilePosition + 1) <> i Then
                If (i = LOF(1)) Then tempString = tempString & tempChar
                ReDim Preserve myArray(LastElement) As String
                myArray(LastElement) = tempString
                Debug.Print myArray(LastElement)
                tempString = ""
                LastElement = LastElement + 1
            End If
            LastFilePosition = i
        Else
            tempString = tempString & tempChar
        End If
    Next i

    Close #1
End Sub