!  cls
    !  at      x,y,arg
    !  cusror  bShow,n
    !  erase   x,y,len,char,n
    !  invert  x,y,cols,rows
    !  flip    x,y,cols,rows,n
    !  grab    x,y,cols,rows,array,n
    !  paint   x,y,cols,rows,char,n
    !  copy    x,y,cols,rows
    !  paste   x,y
    !  wait    n
    !  exec    cmd$,a$
    !  title   arg1,...
    !  pen     foreground              --> V1
    !  color   background,text         --> V0,V1
    !  locate  x,y                     --> V0,V1
    !  inkey                             --> V0,V1,V2
    !  mouse                             --> V0,V1,V2,V3
    !  peek    x,y                     --> V0,V1,V2,V3
    !  screen  cols,rows,n           --> V0,V1,V2,V3
    !  view    n,...                   --> V0,V1,V2,V3
    !  block   x,y,cols,rows,id        --> V0
    !  store   x,y,cols,rows           --> V0
    !  restore                           --> V0
    !  file    path$,arg,n             --> V0
    !  ansi    path$,s               --> V0
    !  alert   arg1,...                --> V0
    !  bitmap  x,y,path$               --> V0
    !  sndplay flags,path$           --> V0
    !  runfile path$                   --> V0
    

    cls
    at 33,12,"normal  invert"
    invert 40,0,40,25    ! assumes 80x25 screen
    inkey
    

    color 0,7cls
    paint 0,0,40,25,'A',1
    color 1,9
    paint 20,12,20,13,-1,1
    paint 10,6,20,13,' ',0
    inkey
    

    for i=0 to 139
        x=i%20
        y=i/20
        color x+y/4,0
        paint x*4,y*4,4,4,0x20,1
    next

    for i=1 to 15
        pen i
        at i,i,"Hobby Basic"
    next

    inkey
    

    rem  ASCII Tetris Game

    dim piecex4
    dim piecey4
    dim nextpiecex4
    dim nextpiecey4
    dim keys5=27,37,38,39,40
    dim score4=40,100,300,1200

    title "ASCII Tetris"
    screen 40,30
    cursor 0,0

Restart#
    gosub Initialize
    gosub PlayGame
    gosub GameOver
    goto Restart

PlayGame#
    do
        gosub DeletePiece
        gosub MoveDown
        gosub PrintPiece
        last=TICK
        dogosub GetKeys
        until TICK-last>delay or Esc
    until Esc
    return

GetKeys#
    k=0
    for z=0 to 4
        if KEYkeysz
            k=keysz
            if k=27 then Esc=1
            gosub DeletePiece
            on k-36 gosub MoveLeft,Rotate,MoveRight,MoveDown
            gosub PrintPiece
            if k=38 or k=40 then wait 90000 else wait 50000
            break
        endif
    next z
    if ~k then wait 1
    return

Rotate#
    for i=0 to 3
        if CELLx+2-piecexi, y+pieceyi<>32 then return
    next i
    for i=0 to 3
        temp=piecexi
        piecexi=2-pieceyi
        pieceyi=temp
    next i
    return

MoveLeft#
    for i=0 to 3
        if CELLx-1+piecexi, y+pieceyi<>32 then return
    next i
    x=x-1
    return

MoveRight#
    for i=0 to 3
        if CELLx+1+piecexi, y+pieceyi<>32 then return
    next i
    x=x+1
    return

MoveDown#
    for r=0 to 3
        if CELLx+piecexr, y+1+pieceyr<>32
            gosub PrintPiece
            x=startx
            y=starty
            gosub GetPiece
            gosub CheckLines
            return
        endif
    next r
    y=y+1
    return

CheckLines#
    ln=0
    for j=toplefty to maxy
        gosub CheckLine
    next j
    if ln>0
        delay=delay-1
        score=score+scoreln-1
        gosub PrintScore
    endif
    return

CheckLine#
    for i=topleftx to maxx
        if CELLi,j<>35 then return
    next i
    for i=topleftx to maxx
        print at i,j,' '
    next i
    for l=0 to j-toplefty-1
        for n=topleftx to maxx
            peek n,j-l-1
            i=V0
            pen V2
            print at n,j-l,CHRi
        next n
    next l
    ln=ln+1
    return

PrintScore#
    print at 10,8,score
    return

GetPiece#
    for i=0 to 3
        piecexi=nextpiecexi
        pieceyi=nextpieceyi
    next i
    gosub DeleteNextPiece
    gosub GetNextPiece
    gosub PrintNextPiece
    for i=0 to 3
        if CELLx+piecexi, y+pieceyi<>32
        Esc=1
        break
    endif
    next i
    return

GetNextPiece#
    i=RND5  nextcolor=i+9
    if i=0
        nextpiecex0=0
        nextpiecey0=1
        nextpiecex1=1
        nextpiecey1=1
        nextpiecex2=0
        nextpiecey2=2
        nextpiecex3=1
        nextpiecey3=2
    elseif i=1
        nextpiecex0=0
        nextpiecey0=1
        nextpiecex1=1
        nextpiecey1=1
        nextpiecex2=2
        nextpiecey2=1
        nextpiecex3=0
        nextpiecey3=2
    elseif i=2
        nextpiecex0=0
        nextpiecey0=1
        nextpiecex1=1
        nextpiecey1=1
        nextpiecex2=2
        nextpiecey2=1
        nextpiecex3=1
        nextpiecey3=2
    elseif i=3
        nextpiecex0=0
        nextpiecey0=1
        nextpiecex1=1
        nextpiecey1=1
        nextpiecex2=2
        nextpiecey2=1
        nextpiecex3=2
        nextpiecey3=2
    elseif i=4
        nextpiecex0=0
        nextpiecey0=1
        nextpiecex1=1
        nextpiecey1=1
        nextpiecex2=2
        nextpiecey2=1
        nextpiecex3=3
        nextpiecey3=1
    endif
    return

PrintPiece#
    pen printcolor
    for i=0 to 3
        print at x+piecexi,y+pieceyi,'#'
    next i
    pen 7
    return

DeletePiece#
    for i=0 to 3
        print at x+piecexi,y+pieceyi,' '
    next i
    return

PrintNextPiece#
    pen nextcolor
    for i=0 to 3
        print at nextx+nextpiecexi,nexty+nextpieceyi,'#'
    next i
    pen 7
    return

DeleteNextPiece#
    printcolor=nextcolor
    for i=0 to 3
        print at nextx+nextpiecexi,nexty+nextpieceyi,' '
    next i
    return

GameOver#
    pen 8
    paint 18,3,20,25,-1,1
    pen 15
    print at 24,14,"GAME OVER"
    inkey
    return

Initialize#
    printcolor=0
    nextcolor=0
    topleftx=18
    toplefty=3
    maxx=37
    maxy=27
    startx=27
    starty=2
    x=startx
    y=starty
    nextx=9
    nexty=14
    delay=300
    score=0
    Esc=0
    pen 7
    at 0,0, "########################################"
    at 0,1, "########################################"
    at 0,2, "#                #                    ##"
    at 0,3, "#     TETRIS     #                    ##"
    at 0,4, "#                #                    ##"
    at 0,5, "##################                    ##"
    at 0,6, "##################                    ##"
    at 0,7, "#                #                    ##"
    at 0,8, "#  Score        #                    ##"
    at 0,9, "#                #                    ##"
    at 0,10,"##################                    ##"
    at 0,11,"##################                    ##"
    at 0,12,"#                #                    ##"
    at 0,13,"#  Next         #                    ##"
    at 0,14,"#                #     Press SPACE    ##"
    at 0,15,"#                #                    ##"
    at 0,16,"#                #                    ##"
    at 0,17,"#                #                    ##"
    at 0,18,"##################                    ##"
    at 0,19,"##################                    ##"
    at 0,20,"##################                    ##"
    at 0,21,"##################                    ##"
    at 0,22,"##################                    ##"
    at 0,23,"##################                    ##"
    at 0,24,"##################                    ##"
    at 0,25,"##################                    ##"
    at 0,26,"##################                    ##"
    at 0,27,"##################                    ##"
    at 0,28,"########################################"
    at 0,29,"########################################"
    i=0k=0r=0j=0l=0n=0ln=0z=0
    inkeyif V0=27 then end
    paint 18,3,20,25,-1,-1
    gosub GetNextPiece
    gosub GetPiece
    gosub PrintScore
    gosub PrintNextPiece
    return
    

    dim a4=1,2,3,4

    for i=0 to 3
        ? ai
    next
    

    dim a2,2=10,20,0x1E,101000b

    dim b2,2

    b=a      ! copy array

    for y=0 to 1
        for x=0 to 1
            ? bx,y
        next
    next
    

    dim a$3="One","Two","Three"

    dim a$4     ! resize array

    a$3="Four"

    n=SIZEa$  ! get array size --> V0,V1

    for i=0 to n-1
        ? a$i
    next
    

    retry#

    ! line comment
    rem  line comment

    input "Secret number",n
    if n<>1234 then goto retry
    end
    

    for x=1 to 3
        on x gosub L1,L2,L3
    next
    pause
    end

    L1# print "Label 1"return
    L2# print "Label 2"return
    L3# print "Label 3"return
    

    @@#

    !  @@ followed by # create an anonymous label
    !  goto @b  backward jump
    !  goto @f  forward jump
    !  Ctrl-C to exit loop

    goto @b
    

    age=10
    a$="I am "+chr34+strage+chr34+" years old."
    print a$
    

    a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    b$=reversea$
    print a$,EOL$,b$
    print lefta$,5
    

    do
        input "How many words",n
    until n>0

    dim a$n
    for i=0 to n-1
        print "Enter word a$",i,"",
        input a$i
    next
    

    do
        input "Enter password",a$
    until comptrima$,"letmein"=1
    print "You are in."
    pause
    

    ! absn                    --> int
    ! asca$                   --> int
    ! cellx,y                 --> int
    ! compa$,b$               --> int
    ! finda$,find$,start    --> int
    ! splita$,delim,array$  --> int
    ! getbitsx,p,n            --> int
    ! lena$                   --> int
    ! sizearg               --> int,V0,V1
    ! keyn                    --> int
    ! rndn                    --> int
    ! powx,y                  --> int
    ! tickn                 --> int     
    ! vala$                   --> int
    ! basen,radix             --> string
    ! binn                    --> string
    ! chrn                    --> string
    ! hexn                    --> string
    ! lcasea$                 --> string
    ! lefta$,length           --> string
    ! mida$,start,length      --> string
    ! pada$,char,length       --> string
    ! patharg               --> string
    ! readlnn,a$              --> string,V0
    ! replacea$,find$,text    --> string
    ! reversea$               --> string
    ! inserta$,pos,text       --> string
    ! righta$,length          --> string
    ! spcn                    --> string
    ! strn                    --> string
    ! trima$                  --> string
    ! ucasea$                 --> string


    x=VAL"510"/2              ! x=255
    x=ASC"hello"              ! x=104 ASCII of 'h'
    x=FIND"abcdefg","de"      ! x=4
    x=TICK                    ! x=tick counter
    ? CHR65                   ! prints 'A'
    ? "0x",UCASEHEX255      ! prints "0xFF"
    ? RIGHT"Hello",2          ! prints "lo"
    ? LCASE"HELP Me"          ! prints "help me"
    ? PATH1                   ! HB path e.g., "C\HB"
    dowait 1until KEY27     ! wait until key Esc
    

    rem  2048 Puzzle
    rem  Use the arrow keys to move the tiles
    rem  When two tiles with the same number touch, they merge into one!

    menu6$=PATH1+"\ART\MENU6.ANS"
    if SIZEmenu6$=-1 then alert menu6$," not found"

    VK_UP=38
    VK_DOWN=40
    VK_LEFT=37
    VK_RIGHT=39

    dim board4,4
    dim blocked4,4

    path$=PATH1+"\DATA\2048.TXT"
    if SIZEpath$=-1 then file path$,"0",0
    file path$,best$,1
    best$=TRIMbest$
    delay=10000

    title "2048 in Hobby Basic"
    screen 80,30
    cursor 0,0
    ansi menu6$

    pen 7
    at 63,4,"SCORE"
    at 63,6,"BEST"
    pen 7
    at 1,23,"Join the numbers and get to the 2048 tile!"
    at 1,24,"Use the arrow keys to move the tiles"
    at 1,25,"Press R to restart, Esc to quit"

start#

    done=0
    score=0
    moved=1
    erase 70,4,7,-1,-1
    erase 70,6,7,-1,-1
    erase 0,26,160,-1,-1

    for y=0 to 3
        for x=0 to 3
            boardx,y=0
            blockedx,y=0
        next x
    next y

    addTile

    do
        if moved then addTile
        drawBoard
        if done then break
        waitKey
    until done

    if score>VALbest$
        best$=STRscore
        file path$,best$,0
    endif

    if done=27 then end
    if done='R' then goto start
    locate 1,26? "No more moves. Your score ",score
    @@# inkeyk=V0&0x5F
    if k='R' then goto start
    if k<>27 then goto @b
    end


sub drawBoard

    local x,y

    at 70,4,score
    at 70,6,best$

    for y=0 to 3
        for x=0 to 3
            v=boardx,yif v=0 then i=5 else i=pickColorv
            color i,0paint 34+x*7,3+y*4,6,3,0x20,1
            if i<>5 then at 34+x*7,4+y*4,PADSTRv,0x20,5
        next x
    next y
   color 0,7
ends


sub waitKey

    local x,y,k

    moved=0
    inkeyk=V0&0x5F
    if k=27 or k='R' then done=krets
    k=V2if k>36 and k<41 then movDirk
    for y=0 to 3
        for x=0 to 3
            blockedx,y=0
        next x
    next y
ends


sub addTile

    local x,y,a,b

    for y=0 to 3
        for x=0 to 3
            if ~boardx,y
                doa=RND4b=RND4until ~boarda,b
                if RND100>89 then boarda,b=4 else boarda,b=2
                if canMove then rets
            endif
        next x
    next y

    done=1
ends


sub canMove

    local x,y

    for y=0 to 3
        for x=0 to 3
            if ~boardx,y then rets 1
        next x
    next y

    for y=0 to 3
        for x=0 to 3
            if testAddx+1,y,boardx,y then rets 1
            if testAddx-1,y,boardx,y then rets 1
            if testAddx,y+1,boardx,y then rets 1
            if testAddx,y-1,boardx,y then rets 1
        next x
    next y

    rets 0
ends


sub testAddx,y,v

    if x<0 or x>3 or y<0 or y>3 then rets 0
    if boardx,y=v then rets 1

    rets 0
ends


sub moveVertx,y,d

    if boardx,y+d and boardx,y+d=boardx,y and ~blockedx,y and ~blockedx,y+d
        boardx,y=0
        boardx,y+d=boardx,y+d*2
        score=score+boardx,y+d
        blockedx,y+d=1
        moved=1
    elseif ~boardx,y+d and boardx,y
        boardx,y+d=boardx,y
        boardx,y=0
        moved=1
    endif

    if d>0
        if y+d<3 then drawBoardwait delaymoveVertx,y+d,1
    else
        if y+d>0 then drawBoardwait delaymoveVertx,y+d,-1
    endif
ends


sub moveHorix,y,d

    if boardx+d,y and boardx+d,y=boardx,y and ~blockedx,y and ~blockedx+d,y
        boardx,y=0
        boardx+d,y=boardx+d,y*2
        score=score+boardx+d,y
        blockedx+d,y=1
        moved=1
    elseif ~boardx+d,y and boardx,y
        boardx+d,y=boardx,y
        boardx,y=0
        moved=1
    endif

    if d>0
        if x+d<3 then drawBoardwait delaymoveHorix+d,y,1
    else
        if x+d>0 then drawBoardwait delaymoveHorix+d,y,-1
    endif
ends


sub movDird

    local x,y

    if d=VK_UP
        for x=0 to 3
            y=1
            while y<4
                if boardx,y then moveVertx,y,-1
                y=y+1
            endw
        next x
    elseif d=VK_DOWN
        for x=0 to 3
            y=2
            while y>=0
                if boardx,y then moveVertx,y,1
                y=y-1
            endw
        next x
    elseif d=VK_LEFT
        for y=0 to 3
            x=1
            while x<4
                if boardx,y then moveHorix,y,-1
                x=x+1
            endw
        next y
    elseif d=VK_RIGHT
        for y=0 to 3
            x=2
            while x>=0
                if boardx,y then moveHorix,y,1
                x=x-1
            endw
        next y
    endif
ends


sub pickColorv

    i=0
    while v>2
        v=v>>1
        i=i+1if i>6 then i=0
    endw

    rets i+9
ends
    

    rem  UDP reverse-echo server

    PORT=50000

    ! open UDP socket
    n=OPENPORT
    if n=-1 then alert "error ",V0end

    title "Server running at ",PATH6
    screen 80,30,300
    cursor 0,0

    dim a$4
    msg$=""
    info$=""

    do

        ! handle incoming messages
        while LENQUEUE1

            ! get queue info
            info$=QUEUE2

            ! pop the queue
            msg$=QUEUE0

            ! print info and message
            ? info$," ",msg$

            ! split info IP PORT LENGTH TIME
            n=SPLITinfo$," ",a$

            ! send message back reversed
            n=SENDa$0,VALa$1,REVERSEmsg$

        endw

        wait 1

    until KEY27

    n=CLOSE
    end
    

    rem  P2P drawing program via UDP

    status  fix  mousex=V0y=V1btn=V2wait 1

    local_port=50001
    remote_port=50000
    ip$="localhost"

    if openlocal_port=-1 then alert "socket error ",V0end
    cx=-1cy=-1c=7

    title "P2P drawing - host ",path6
    screen 80,25
    cursor 0,0
    color 0,7
    cls

    dostatus

        if key32 then cls
        for i=48 to 55
            if keyi then c=i-48break
        next

        if btn=1 or btn=2
            if btn=2 then n=0x20 else n=9608
            dostatus
                if x<>cx or y<>cy
                    cx=xcy=y
                    pen c+8
                    at x,y,chrn
                    i=sendip$,remote_port,strc<<7|x<<7|y<<15|n
                endif
            until btn=-1
        endif

        while lenqueue1
            i=valqueue0
            pen getbitsi,31,3+8
            at getbitsi,28,7,getbitsi,21,7,chrgetbitsi,14,15
        endw

    until key27

    i=close
    end
    

    ! file path$,a$,0          save string as text file
    ! file path$,a$,1          load text file to string
    ! file path$,a$,2          append string to end of file
    ! file path$,array,0     save array as binary file
    ! file path$,array,1     load binary file to array
    ! file path$,array,2     append data to end of file
    ! file path$,0,0           create empty file
    ! file URL$,0,1            download URL
    ! file URL$,0,2            download URL silently
    ! file path$,0,3           delete file
    

    input "Write some text",a$

    ! save string as text file
    path$=path1+"\a.txt"
    file path$,a$,0

    ! print file size
    print path$," ",sizepath$," bytes"
    pause
    

    rem  Textdraw Version 0.2

    C=80
    R=40
    M=270
    W=C+20
    MB_OK=0x0
    MB_YESNO=0x4
    ID_YES=6
    p=0

    dim aM
    dim mC,R
    dim eC,R
    dim pC,R

    moved  fix  x<>tmpx or y<>tmpy
    left_panel  fix  x<9 and btn=1
    right_panel  fix  x>W-10
    main_panel  fix  x>8 and x<W-11

    help$="L   Load file types .ANS .HB"+EOL$
    help$=help$+"S   Save as type .HB "+STRC+'x'+STRR+''+EOL$
    help$=help$+"C   Clear screen"+EOL$
    help$=help$+"U   Undo last move"+EOL$
    help$=help$+"F   Flip rectangle"+EOL$
    help$=help$+"P   Paste rectangle"+EOL$
    help$=help$+"I    Invert rectangle"+EOL$
    ver$="Textdraw Version 0.2"
    path$=PATH1+"\ART\"
    cursor 0,0
    color 0,0

    for i=0 to 0x25A0
        if p>=M then break
        at 0,0,CHRi
        peek 0,0
        if V0<>0x3F and i<6 or i>13
            ap=V0
            p=p+1
            title "loading charset  U+",PADUCASEHEXV0,'0',4
        endif
    next

    title ver$," - Press H for help"
    screen W,R
    cls

    for i=0 to p-1
        ? CHRai,
        if i%8=0 then print
    next

    copy 0,0,8,Rcls
    paste W-9,2
    color 8,15
    paint 0,0,9,R,' ',1
    paint W-11,0,11,R,-1,1
    at 1,1," Load"
    at 1,3," Save"
    at 1,5," Clear"
    at 1,7," ----"
    at 0,9,">FG"
    at 1,11,"BG"
    color 8,7
    at W-8,1,"select"
    color 7,7
    erase 4,9,4,' ',1
    color 0,0
    erase 4,11,4,' ',1

    for i=0 to 7
        color i,0
        paint 1,i*2+14,3,2,' ',1
        color i+8,0
        paint 4,i*2+14,3,2,' ',1
    next

    color 8,0
    paint 4,14,3,2,9618,1

    save=1tmpx=-1tmpy=-1cx=-1cy=-1bg=0fg=7e=0z=0w=0h=0
    a=9b=0c=0v=9u=0i=0n=0t=0k=0sx=0sy=0a$=""b$=""c$=""

    start#

    do

        k=KEY-1&0x5F
        if k='L'
            goto load_file
        elseif k='S'
            goto save_file
        elseif k='C'
            clear
        elseif k='U' and u>0
            restoreu=u-1
        elseif k='P'
            store 9,0,C,Ru=u+1
            store W-11,0,11,Cu=u+1
            store 0,0,9,Ru=u+1
            grab x,y,w,h,p,1
            restoreu=u-1
            restoreu=u-1
        elseif k='D'
            store 9,0,C,Ru=u+1
            color 0,0
            paint a,b,w,h,-1,-1
        elseif k='I'
            store 9,0,C,Ru=u+1
            invert a,b,w,h
        elseif k='F'
            store 9,0,C,Ru=u+1
            z=z^1flip a,b,w,h,z
        elseif k='H'
            alert MB_OK,ver$,help$
        endif

        btn=status

        if main_panel

            if moved
                ucode
                coords
            endif

            if btn=1 or btn=2
                store 9,0,C,Ru=u+1
                sx=xsy=ydrawx,y,1,1
                while status<>-1
                    if main_panel and moved
                        w=abssx-x+1
                        h=abssy-y+1
                        if x>sx then x=sx
                        if y>sy then y=sy
                        if x>8 and x<W-11 then a=xb=y
                        drawx,y,w,h
                    endif
                endw
                save=0
                if btn=2 and u>0
                    restoreu=u-1
                    grab a,b,w,h,p,0
                endif
            endif

        elseif left_panel

            if y=1
                load_file#
                copy 0,0,W,R
                color 0,7cls
                cursor 1,100
                title -1,b$
                title "Load file types .ANS .HB"
                screen W,R,M
                ? "Load from ",path$,EOL$
                cmd$="dir /b "+CHR0x22+path$+CHR0x22
                exec cmd$,a$
                a$=TRIMUCASEa$
                n=0r=0i=0
                do
                    i=i+1
                    c$=TRIMREADLNi,a$r=V0
                    if r<>-1 and n<M and COMPRIGHTc$,3,".HB" | COMPRIGHTc$,4,".ANS"
                        ? c$
                        n=n+1
                    endif
                until r=-1
                ?input "Enter a file name to load",a$
                a$=TRIMUCASEa$
                cursor 0,0
                screen W,R
                paste 0,0
                color bg,fg
                title b$
                if n=0 then goto continue
                if COMPRIGHTa$,3,".HB"   ! load HB data
                    if LENa$>3
                        a$=path$+a$
                        if SIZEa$<>-1
                            file a$,e,1
                            clear
                            grab 9,0,C,R,e,1
                            title a$
                            save=1
                        endif
                    endif
                elseif COMPRIGHTa$,4,".ANS"   ! load ANSI art
                    if LENa$>3
                        a$=path$+a$
                        if SIZEa$<>-1
                            view 0
                            store 0,0,W,R
                            screen 80,40
                            color 0,0cls
                            ansi a$
                            grab 0,0,C,R,e,0
                            screen W,R
                            restore
                            grab 9,0,C,R,e,1
                            title a$
                            view 1
                            save=1
                        endif
                    endif
                endif

            elseif y=3
                save_file#
                copy 0,0,W,R
                color 0,7cls
                cursor 1,100
                title -1,b$
                screen W,R,M
                title "Save file types .HB"
                ? "Save to ",path$
                ?input "Enter a file name to save",a$
                a$=TRIMUCASEa$
                cursor 0,0
                screen W,R
                paste 0,0
                color bg,fg
                title b$
                if ~COMPRIGHTa$,3,".HB" then a$=a$+".HB"
                if LENa$>3
                    a$=path$+a$
                    grab 9,0,C,R,m,0
                    file a$,m,0
                    if V0<>-1
                        title a$
                        save=1
                    endif
                endif

            elseif y=5
                clear

            elseif y=9 or y=11
                color 8,15
                erase 0,y,1,'>',1
                if y=9 then v=11 else v=9
                erase 0,v,1,' ',1
                v=y

            elseif y>12 and y<30
               peek x,y
                if V1=8 then e=9618 else e=32
                if v=9
                    fg=V1
                    color fg,0
                else
                    bg=V1
                    color bg,0
                endif
                erase 4,v,4,e,1
            endif

        elseif right_panel

            peek x,y
            if V0<>32
                if btn=1
                    c=V0
                    invert cx,cy,1,1
                    color 8,15
                    erase cx,cy,1,-1,1
                    color 11,0
                    erase x,y,1,-1,1
                    invert x,y,1,1
                    cx=xcy=y
                endif
                ucode
            endif

        endif

        continue#

        wait 1
    until KEY27

    if save=0
        alert MB_YESNO,ver$,"File is not save, exit?"
    else
        alert MB_YESNO,ver$,"Do you want to exit?"
    endif

    if V0<>ID_YES then goto start
    end


sub clear
    dorestoreuntil V0=-1
    color 0,0
    paint 9,0,C,R,-1,-1
    color 8,7
    erase W-9,1,8,0x20,1
    color bg,fg
    title ver$," - Press H for help"
    save=0
    u=0
ends


sub drawx,y,w,h
    if btn=1
        color bg,fg
        paint x,y,w,h,c,1
    elseif btn=2
        color 0,1
        paint x,y,w,h,-1,1
    endif
ends


sub ucode
    peek x,y
    i=V0if i=32 then rets
    color 8,7
    at W-9,1,"U+"+PADSTRi,'0',4+' '+CHRi
ends


sub coords
    tmpx=x
    tmpy=y
    color 8,15
    at 2,7,STRx-9+','+STRy+' '
ends


sub status
    mouse
    x=V0
    y=V1
    rets V2
ends