REM  TV.BAS
    REM  HOBBY BASIC INTERPRETER

    A$ = 'N  O   S  I  G  N  A  L'

    DIM A[8] = 15,14,11,10,13,12,9,0

    SCREEN 80,25,300
    CURSOR 0,0
    COLOR 0,0
    CLS

    FOR X = 0 TO 7
        COLOR A[X],0
        PAINT X*10,0,10,25,-1,-1
    NEXT

    ERASE 17
    ERASE 18
    ERASE 19

    PEN 15
    AT 25,18,A$

    INKEY

    CLS : END
    

hb EXAMPLES/TV.BAS    

    hb EXAMPLES/TV.BAS -bind TV.EXE
    

    print 'Τη γλώσσα μου έδωσαν ελληνική'
    print 'το σπίτι φτωχικό στις αμμουδιές του Ομήρου.'
    print 'Μονάχη έγνοια η γλώσσα μου στις αμμουδιές του Ομήρου.'
    

    τύπωσε fix print
    ανάποδα fix reverse

    dim Διάταξη$[3] = 'Παλιά','Περιοδικά','Πληροφορικής'

    for ΜΕΤΡΗΤΗΣ = 0 to 2
        τύπωσε ανάποδα(Διάταξη$[ΜΕΤΡΗΤΗΣ])
    next
    

I am glad you like it, i had some concern whether it can be served as helpful example despite the lack of comments in source.

Mouse handling would be a nice addition, I think

    REM  RND.BAS
    REM  HOBBY BASIC INTERPRETER

    SCREEN 80,25,300
    COLOR 0,0
    CLS

    DO

        X = RND() % 24 + 2
        Y = RND() % 14 + 1
        C = RND() % 95 + 32

        PEN C
        AT X,Y,CHR(C)

    UNTIL KEY(27)

    CLS
    END
    

Nice to hear!
Sure, it seems that an improper call to SetConsoleOutputCP function crush the program. By the way, i installed Windows 7.