Make a program that is a person if they were coded!

[Torahteen]

Since nobody will do me, here is mine

Code:

'Happy Birthday Generator

Dim clr As Integer
Dim nm As ZString * 255
Dim clrList() As String

Screen 13
Randomize Timer

Print "Welcome to the HB BB-Code Generator"
Input "Please tell me the name of the person who is having a birthday today ", nm

Print "Generating..."

Sleep 3000

Redim clrList(Len(nm) + 3) As String

For i = 1 To Len(nm)
    clr = INT(RND(1) * 13 + 1)
    
    Select Case clr
    Case 1: clrList(i) = "darkblue"
    Case 2: clrList(i) = "green"
    Case 3: clr = 42 : clrList(i) = "orange"
    Case 4: clrList(i) = "darkred"
    Case 5: clrList(i) = "indigo"
    Case 6: clrList(i) = "brown"
    Case 7: clrList(i) = "yellow" : clr = 14
    Case 8: clrList(i) = "white" : clr = 15
    Case 9: clrList(i) = "blue"
    Case 10: clrList(i) = "olive" : clr = 115
    Case 11: clrList(i) = "cyan"
    Case 12: clrList(i) = "red"
    Case 13: clrList(i) = "violet"
    End Select
    
    Color clr
    Print MID(nm, i, 1);
Next i

  For c = 1 To 3
        clr = INT(RND(1) * 13 +1)
        
        Select Case clr
        Case 1: clrList(i) = "darkblue"
        Case 2: clrList(i) = "green"
        Case 3: clr = 42 : clrList(i) = "orange"
        Case 4: clrList(i) = "darkred"
        Case 5: clrList(i) = "indigo"
        Case 6: clrList(i) = "brown"
        Case 7: clrList(i) = "yellow" : clr = 14
        Case 8: clrList(i) = "white" : clr = 15
        Case 9: clrList(i) = "blue"
        Case 10: clrList(i) = "olive" : clr = 115
        Case 11: clrList(i) = "cyan"
        Case 12: clrList(i) = "red"
        Case 13: clrList(i) = "violet"
        End Select
        
        Color clr
        print "!";
    Next c

Open "bbcode.txt" For Output As #1
Print #1, "[size=24]"
Print #1, "HB ";

For i = 1 To Len(nm)
    Print #1, "[color=" + clrList(i) + "]" + MID(nm, i, 1) + "[/color]";
Next i

For i = Len(nm) To Len(nm) + 1
    Print #1, "[color=" + clrList(i) + "]![/color]";
Next i
Print #1, "[/size]"
Close #1
Sleep

Sample Output:

HB Torahteen!!