Iconizer
Iconizer - A stupid program to convert text into icons to display on Ascii-world forums. There is no real purpose to this other than I need a break from another project.
'=========================================================================
'Iconizer - A stupid program to convert text into icons
'to display on Ascii-world forums. There is no real purpose to this
'other than I need a break from another project.
'Letters aA - zZ are transliterated with an icon synbol, as are a space (arrow icon)
'a question mark and an exclamation mark. Other characters are passed through.
'To pass through one of the transliterated chars use the \ character.
'Written using FB .14b
'Public Domain
'=========================================================================
Option Explicit
Dim icout As String
Dim icn As String
Dim i As Integer
Dim ch As String
Dim skey As String
Dim passthrough As Integer
Sub PrintTitle
Color 14, 0
Locate 1, 40 - Len("Iconizer")
Print "Inconizer"
End Sub
getinput:
Cls
PrintTitle
Color 15, 0
Locate 2, 1
Input "Enter text to iconize: ";icn
icout = ""
For i = 1 To Len(icn)
ch = LCase$(Mid$(icn, i, 1))
If passthrough Then
icout = icout + ch + " "
passthrough = 0
Else
Select Case ch
Case "a": icout = icout + ":D "
Case "b": icout = icout + ":) "
Case "c": icout = icout + ":( "
Case "d": icout = icout + ":o "
Case "e": icout = icout + ":idea: "
Case "f": icout = icout + ":shock:"
Case "g": icout = icout + ":? "
Case "h": icout = icout + "8) "
Case "i": icout = icout + ":lol: "
Case "j": icout = icout + ":x "
Case "k": icout = icout + ":P "
Case "l": icout = icout + ":oops: "
Case "m": icout = icout + ":cry: "
Case "n": icout = icout + ":evil: "
Case "o": icout = icout + ":twisted: "
Case "p": icout = icout + ":roll: "
Case "q": icout = icout + ":wink: "
Case "r": icout = icout + ":| "
Case "s": icout = icout + ":mrgreen: "
Case "t": icout = icout + ":asmile: "
Case "u": icout = icout + ":asmile2: "
Case "v": icout = icout + ":aclub: "
Case "w": icout = icout + ":astar: "
Case "x": icout = icout + ":aspade: "
Case "y": icout = icout + ":adiamond: "
Case "z": icout = icout + ":aheart: "
Case "!": icout = icout + ":!: "
Case "?": icout = icout + ":?: "
Case " ": icout = icout + ":arrow: "
Case "\": passthrough = 1
Case Else: icout = icout + ch + " "
End Select
End If
Next
Cls
PrintTitle
Color 15, 0
Locate 2, 1
Print "Output:"
Print icout
Print
Do
Input "Another translation (Y,N): ";skey
skey = UCase$(skey)
Loop Until skey = "Y" Or skey = "N"
If skey = "Y" Then Goto getinput
End