Smultron - editor for programming

"Smultron is a free text editor for Mac OS X Leopard 10.5 which is both easy to use and powerful. It is designed to not confuse newcomers nor disappoint advanced users. It has all the advantages of an Cocoa application and some of its features are tabs, line numbers, support for syntax colouring for many different languages, functions list, support for text encodings, snippets, a toolbar, a status bar, preview, split window, multi-document find and replace with regular expressions, possibility to show invisible characters, authenticated open and saves, command-line utility, full screen editing and running commands and scripts from within the application."

It supports coloring syntax for different languages, and a default one (says C++) so that it will able to work with Symbian C++ where many non .cpp files are in fact in C++ syntax. Also, one may create a new syntax definition to suit his needs.

This application is a must-have, because besides of its powerful feature, it's free after all!

Direct download Smultron v3.2.1 here.

RatRace

' This code really works! Copy and paste into VB
' The truth - Rat race - V1.0 - Vince Natteri - http://techotek.com - Copyright 2006

' This code runs constantly

Sub RatRace()
Dim YourAge As Integer
Dim Salary As Double 'Actually, integer will do but I am just flattering myself

'Get the age
YourAge = InputBox("What the heck is your age?", "Your age again:")

'What the heck is his age
If Not IsNumeric(YourAge) Then
    MsgBox "You can't remember your age and have succombed to the rat race."
    Exit Sub
End If

'Start the rat race!
While (YourAge < 65 )
    'WeekDay returns 2 for Mondays and 7 for Saturdays...
    If Weekday(Format(Now, "dd-mmm-yyyy")) >= 2 And Weekday(Format(Now, "dd-mmm-yyyy")) <= 7 Then
        MsgBox "You are: " & YourAge & ". Now go to work, please your boss and draw an income and pay the bills"
    Else
        MsgBox "Relax, it's the only day in the week you can do this"
    End If
    'Is he dead?
    If (MsgBox("Are you dead yet?", vbYesNo) = vbNo) Then
        'Increase age by one if it's been an year
        If (MsgBox("Is it your birthday yet?", vbYesNo) = vbYes) Then YourAge = YourAge + 1
    Else
        MsgBox "Sorry to hear that. Hope you've worked well and made some large corporation more money."
        Exit Sub
    End If
Wend

'Over!
MsgBox "Congratulations! You've been working all your life to pay bills! Hope you enjoyed being part of the rat race! Good bye!"
End Sub