rem  2D rally car

    LEFT=37
    RIGHT=39

    dim rally[9,5]
    a$="███                     ███"

    path$=PATH(1)+"\ART\RALLY"
    file path$,rally[],1
    if V0=-1 then alert path$," not found":end

    path$=PATH(1)+"\DATA\rally.txt"
    if SIZE(path$)=-1 then file path$,'100',0

    cursor 0,0
    screen 80,25
    grab 0,0,9,5,rally[],1
    copy 0,0,9,5

start#

    x=36
    y=12
    n=30
    sc=0
    t=40000

    file path$,best$,1
    best$=TRIM(best$)

    color 0,7:cls
    at 4,2,"Use the arrow keys"
    at 4,3,("Try to beat "+best$)
    at 4,4,"Distance "
    color 6,2

    for i=0 to 24
        erase n,i,24,-1,1
        at n,i,a$
    next

main#

    paint x,y-1,9,5,-1,-1

    if KEY(LEFT)
        x=x-1
    elseif KEY(RIGHT)
        x=x+1
    elseif KEY(27)
        end
    endif

    if (CELL(x,y+2)='█' or CELL(x+1,y+4)='█' or CELL(x+8,y+2)='█' or CELL(x+7,y+4)='█')
        paste x,y
        flip x,y,9,5,1
        invert x,y,9,5
        if sc>VAL(best$)
            best$=STR(sc)
            file path$,best$,0
        endif
        wait 1000000
        goto start
    endif

    n=n+rnd(3)-1
    if n<25 then n=25
    if n>48 then n=48

    paste x,y
    color 0,0
    move 25,1,50,24,25,0
    color 6,2
    erase n,24,25,-1,1
    at n,24,a$

    sc=sc+1
    pen 7:at 13,4,sc

    if t>15000 then t=t-20
    wait t

    goto main
    

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

    do

        mouse

        ! V0 = cell x
        ! V1 = cell y
        ! V2 = button: 1 left, 2 right, 4 double click
        ! V3 = coordinates in pixels (high/low order word)

        title V0,',',V1

        wait 1

    until KEY(27)
    

    cls
    τύπωσε  fix  print
    τύπωσε "Euro Symbol: €."
    τύπωσε "English: I can eat glass and it doesn''t hurt me."
    τύπωσε "Greek: Μπορώ να φάω γυαλί χωρίς να πάθω τίποτα."
    τύπωσε "Íslenska / Icelandic: Ég get etið gler án þess að meiða mig."
    τύπωσε "Romanian: Pot să mănânc sticlă și ea nu mă rănește."
    τύπωσε "Ukrainian: Я можу їсти шкло, й воно мені не пошкодить."
    τύπωσε "Polish: Mogę jeść szkło, i mi nie szkodzi."
    τύπωσε "Czech: Mohu jíst sklo, neublíží mi."
    pause
    

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

    rem  X's and O's Game

    P1  fix  m[x,y]
    P2  fix  m[x+i,y+j]
    P3  fix  m[x+i*2,y+j*2]

    screen 80,30
    screen 80,30
    cursor 0,0

restart#
    color 0,7:cls:locate 0,15
    n=0:dim m[3,3]=0,0,0,0,0,0,0,0,0
    at 4,1,"X''s and O''s"
    at 0,3,"Player X  vs  CPU O"
    paint 1,7,17,1,'_',0
    paint 1,10,17,1,'_',0
    paint 6,5,1,9,'|',0
    paint 12,5,1,9,'|',0
    @@# at 0,15,"Play first? [y/n]"
    inkey:p=V0:if p=27 then end
    if (p='y' or p='Y') then p=1 else p=0
    at 0,15,"Strong CPU? [y/n]"
    inkey:z=V0:if z=27 then goto @b
    do
        if p=0 then gosub cpu_move else gosub player_move
        gosub is_winner:p=p^1:n=n+1
    until (w<>0 or n=9)
    erase 0,15,30,-1,-1:pen 7
    if w=0 then at 0,15,"Game was a draw"
    if w=1 then at 0,15,"Player X has won!"
    if w=2 then at 0,15,"CPU O has won!"
    at 0,16,"press a key":inkey:goto restart

player_move#
    pen 7:at 0,15,"Player X''s turn       "
    @@# if key(27) then goto restart
    mouse:x=(V0+1)/7:y=(V1+1)/4-1:btn=V2:wait 1
    if (x<0 or x>2 or y<0 or y>2) or btn=0 then goto @b
    if m[x,y]=0 then m[x,y]=1:pen 10:at x*6+3,y*3+6,'X':return
    goto @b

cpu_move#
    pen 7:at 0,15,"CPU O''s turn          "
    b=0:cx=0:cy=0
    x=0:i=1:j=0:for y=0 to 2:gosub scoring:next
    y=0:i=0:j=1:for x=0 to 2:gosub scoring:next
    x=2:y=0:i=-1:j=1:gosub scoring
    x=0:i=1:j=1:gosub scoring
    m[cx,cy]=2:wait 500000
    pen 15:at cx*6+3,cy*3+6,'O'
    return

scoring#
    r=0:k=0:s=0
    if P1=0 then r=x:k=y:s=1
    if P2=0 then r=x+i:k=y+j:s=1
    if P3=0 then r=x+i*2:k=y+j*2:s=1
    if (P1=1 and P2=0 and P3=0) then r=x+i*2:k=y+j*2:s=2
    if (P1=0 and P2=1 and P3=0) then r=x:k=y:s=2
    if (P1=0 and P2=0 and P3=1) then r=x:k=y:s=2
    if (P1=0 and P2=0 and P3=0) then r=x:k=y:s=4
    if (P1=2 and P2=0 and P3=0) then r=x+i*2:k=y+j*2:s=8
    if (P1=0 and P2=2 and P3=0) then r=x:k=y:s=8
    if (P1=0 and P2=0 and P3=2) then r=x:k=y:s=8
    if (P1=1 and P2=1 and P3=0) then r=x+i*2:k=y+j*2:s=16
    if (P1=1 and P2=0 and P3=1) then r=x+i:k=y+j:s=16
    if (P1=0 and P2=1 and P3=1) then r=x:k=y:s=16
    if (P1=2 and P2=2 and P3=0) then r=x+i*2:k=y+j*2:s=32
    if (P1=2 and P2=0 and P3=2) then r=x+i:k=y+j:s=32
    if (P1=0 and P2=2 and P3=2) then r=x:k=y:s=32
    if (m[1,1]=0 and z='y') then r=1:k=1:s=64
    if s>b then b=s:cx=r:cy=k
    return

is_winner#
    w=0:x=0:i=1:j=0:for y=0 to 2:gosub win:next
    y=0:i=0:j=1:for x=0 to 2:gosub win:next
    x=2:y=0:i=-1:j=1:gosub win
    x=0:i=1:j=1:gosub win
    return

win#
    if (P1=1 and P2=1 and P3=1) then w=1
    if (P1=2 and P2=2 and P3=2) then w=2
    return