Keskustelu: Koodit: QB: Leet- kääntäjä

'L33+ (leet) - kääntäjä
' (c) Mark Mäkinen 2008

CLS                                                           ' Näyttö tyhjäksi!

INPUT "KŽŽNNETTŽVŽ TEKSTI: ", SUOMI$                          ' Kysytään tekstiä

KOHTA = 1                                                     ' Määritellään
                                                              ' aloituskohta

FOR I = KOHTA TO LEN(SUOMI$)                                  ' Aloitetaan FOR-
                                                              ' silmukka
        KIRJ$ = MID$(SUOMI$, I, 1)                            ' Valitaan kirjain

        SELECT CASE KIRJ$                                     ' Aloitetaan tulkkaus

                CASE "M"
                        PRINT "|V|";                          ' Koneeni syy on se,
                CASE "w"                                      ' että joudun käyttämään
                        PRINT "|/"; CHR$(92); "|";            ' kenoviivan tilalla
                CASE "W"                                      ' CHR$(92):sta..
                        PRINT CHR$(92); "/"; CHR$(92); "/";   ' joku voi korjata vian
                CASE "H"
                        PRINT "|-|";
                CASE "N"
                        PRINT "|"; CHR$(92); "|";
                CASE "U"
                        PRINT "|_|";
                CASE "A"
                        PRINT "/-"; CHR$(92);
                CASE "V"
                        PRINT CHR$(92); "/";
                CASE "X"
                        PRINT "><";
                CASE "K"
                        PRINT "|<";
                CASE "L"
                        PRINT "|_";
                CASE "I"
                        PRINT "|";
                CASE "D"
                        PRINT "|)";
                CASE "O"
                        PRINT "()";
                CASE "R"
                        PRINT "|2";
                CASE "B"
                        PRINT "|3";
                CASE "T"
                        PRINT "+";
                CASE "E"
                        PRINT "3";
                CASE "S"
                        PRINT "5";
                CASE "G"
                        PRINT "6";
                CASE "7"
                        PRINT "T";

                CASE ELSE                                     ' Jos kirjainta ei pysty
                        PRINT KIRJ$;                          ' muuttamaan L33+1k51..
        END SELECT                                            ' ..tulostetaan kirjain
                                                              ' Lopetetaan tulkkaus
NEXT I

PRINT                                                         ' Väliä..
PRINT "KŽŽNN™S SUORITETTU!"                                   ' Ilmoitusasiaa
SLEEP                                                         ' Odotetaan painallusta..

' Koodi loppu