Tenliner Challenge #18 - Arrows

It's amazing!　I feel I saw the potential of 10 liner program!

スゲぇ！　10行プログラムの底力を見せつけられた思いです。

Sorry, but I fear that the experiment to do in just 10 lines of BASIC program is not my grateful.
So the impossible becomes possible: you used the GUI to rebuild a long line to convert 10 rows?

Impossible!
I've seen several programs with only 10 rows but I can not stand this word in 32 columns:
I can do:
- GUI (displays colors funizoni BASIC syntax on Windows)
- Always the same but now edit the characters & sprite
- In some programs (such as CALL and utilities. COM) are convenient to use and reuse multiple times to build a game!

The methods functions in BASIC are a lot of frustration, so I can not go in and see if he can to me to do some type game in 10 lines

Especially in short as two examples:

Convert to charact from binary 0 & 1

5 SCREEN 1,2:WIDTH32
10 DATA 00010000,00001011,01000111,01010101
11 DATA 00001100,01000101,01110011,00011111
12 DATA 11110110,11011010,01110011,10101011
30 DATA -1
40 RESTORE 10:Z=0:T=0
50 READ A$:IF A$="-1" THEN END
60 LOCATE Z*8,T:FOR N=1 TO 8:PRINTCHR$(204+ VAL("&B"+MID$(A$,N,1)));:NEXT N
70 Z=Z+1:IF Z=>4 THEN Z=0:T=T+1
80 GOTO 50

Get item from VRAM (sprite X,Y, (A,B) = offset of X,Y

DEF FN V ( X, Y, A,B) = VPEEK( 6144+INT( ( Y+A ) /8 ) * 32 + INT((X+B)/8) )
A=FN V(10,10,0,2)

greetings

DanySoft

Thank you.
I am happy that I could participate in this 10line challenge.
I am not using GUI. I made this program in SCREEN0:WIDTH80 mode.
This is an original idea, but resembles "Mahjong solitaire".

@fukenko
有り難うございます。文字数制限プログラムは昔から大好きで、
パズルのようで作ってて楽しかったです。