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

    view 11
    title 'Channel 4'
    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
    print at 45,18,a$

    do

        copy 0,18,1,1
        move 1,18,79,1,0,18
        paste 79,18

        wait 150

    until KEY(27)

    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

    view 11
    screen 80,30,300
    color 0,0
    cls

    do

        x = RND() % 24 + 2
        y = RND() % 14 + 2
        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.