blabla$=""

K=Ngetchx()
...
blabla$=Mki$(K)

K=Ngetchx()
...
blabla$=Right$(Mki$(K+256),1)

Debut:
Cls
For I%=0 To 159
 For J%=0 To 99
  Plot I%,J%
  If J%=25 Then
    Goto Suite
  EndIf
  Next J%
Next I%

Fin:
Pause 15
Repeat 
Until RR_ESC

K=Ngetchx()
...
blabla$=Mki$(K)

Do
K%=Ngetchx()
...
Loop

Cls
Box 0,0,159,99
Box 1,0,4,3
Box 0,1,3,4

Get 5,0,9,4,Pic1$

Repeat
Until RR_ESC

|===|
|GET|
|===|
/*SpriteX8Get_R Source ExtGraph v2.0 bêta 4.0*/
_ExecCmd_Get_Copy:
    add.w     %d1,%d1
    move.w    %d1,%d4
    lsl.w    #4,%d4
    sub.w    %d1,%d4
  
    move.w    %d0,%d1
    lsr.w    #3,%d1
    add.w    %d1,%d4
  
    adda.w    %d4,%a3

    moveq.l   #30,%d2
    sub.w    %d5,%d2        |constant offset from the end of a line to the beginning of the next one
    subq.w    #2,%d5        |we need w-2 since first and last bytes are not in a loop
    
    and.w    #7,%d0        |shifting coeff
    jbeq    _ExecCmd_Get_Copy_2
  
    moveq.l   #8,%d3        |8-shift
    sub.w    %d0,%d3
  
    subq.w    #1,%d6

_ExecCmd_Get_Copy_0:
    move.b    (%a3)+,%d4        |first byte of the line
    lsl.b    %d0,%d4
    move.b    %d4,(%a0)
  
    move.w    %d5,%d1

_ExecCmd_Get_Copy_1:
    move.b    (%a3),%d4        |middle bytes
    lsr.b    %d3,%d4
    or.b    %d4,(%a0)+
  
    move.b    (%a3)+,%d4
    lsl.b    %d0,%d4
    move.b    %d4,(%a0)

    dbf    %d1,_ExecCmd_Get_Copy_1

    move.b    (%a3),%d4        |last byte of the line
    lsr.b    %d3,%d4
    or.b    %d4,(%a0)+
  
    adda.w    %d2,%a3
    dbf    %d6,_ExecCmd_Get_Copy_0
    jbra      TokensExec_EndTokenCmd

_ExecCmd_Get_Copy_2:            |loop if shift == 0
    addq.w    #1,%d5
    subq.w    #1,%d6
  
_ExecCmd_Get_Copy_3:
    move.w    %d5,%d1
  
_ExecCmd_Get_Copy_4:
    move.b    (%a3)+,(%a0)+
    dbf    %d1,_ExecCmd_Get_Copy_4

    adda.w    %d2,%a3
    dbf    %d6,_ExecCmd_Get_Copy_3
    jbra      TokensExec_EndTokenCmd
  
_ExecCmd_Get_lcd_mem:
    move.b    -59(%a5),%d0
    move.w    #TYPE_INTEGER,%d1
    lea.l     -60(%a5),%a2
    jbsr      TokensExec_ConvertType
    tst.w     %d7
    jbeq      _Exec_exit    
    
    movea.l   -56(%a5),%a3
    movea.l   (%a3),%a3
    jbra      _ExecCmd_Get_continue
    
ExecCmd_Get:
    jbsr      TokensExec_CNumArg
    cmpi.w    #6,%d6        |Trop d'arguments
    jbhi      _ERROR_too_arguments
    cmpi.w    #5,%d6        |Pas assez d'arguments
    jbcs      _ERROR_few_arguments
    
    movea.l   ptrEnd_ES(%PC),%a5      |Place la pile au début de la première données
    lea.l     -12(%a5),%a5
    
    |Coordonnée X0
    move.b    1(%a5),%d0
    move.w    #TYPE_INTEGER,%d1
    lea.l     (%a5),%a2
    jbsr      TokensExec_ConvertType
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Coordonnée Y0
    move.b    -11(%a5),%d0
    move.w    #TYPE_INTEGER,%d1
    lea.l     -12(%a5),%a2
    jbsr      TokensExec_ConvertType
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Coordonnée X1
    move.b    -23(%a5),%d0
    move.w    #TYPE_INTEGER,%d1
    lea.l     -24(%a5),%a2
    jbsr      TokensExec_ConvertType
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Coordonnée Y1
    move.b    -35(%a5),%d0
    move.w    #TYPE_INTEGER,%d1
    lea.l     -36(%a5),%a2
    jbsr      TokensExec_ConvertType
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Chaîne de caractères
    move.b    -48(%a5),%d0        |Opérande
    jbsr      TokensExec_CheckTableVar
    tst.w     %d7
    jbeq      _Exec_exit
    
    move.b    -47(%a5),%d0        |Type
    cmpi.b    #TYPE_STRING,%d0
    jbne      _ERROR_types_incompatible
        
    |Zone mémoire
    cmpi.w    #6,%d6
    movea.l   #LCD_MEM,%a3        |Zone mémoire par défaut
    jbeq      _ExecCmd_Get_lcd_mem
    
_ExecCmd_Get_continue:
    movea.l   4(%a5),%a0        |X0
    move.w    2(%a0),%d0
    movea.l   -8(%a5),%a0        |Y0
    move.w    2(%a0),%d1
    movea.l   -20(%a5),%a0        |X1
    move.w    2(%a0),%d2
    movea.l   -32(%a5),%a0        |Y1
    move.w    2(%a0),%d3
    
    |Taille des données en cctets
    move.w    %d2,%d4        |Taille du sprite en largeur = X1-X0
    sub.w     %d0,%d4
    move.w    %d3,%d6
    sub.w     %d1,%d6        |Taille du sprite en hauteur = Y1-Y0
    
    |Calcul de bytewidth
    move.w    %d4,%d3
    addi.w    #7,%d3
    asr.w     #3,%d3
    move.w    %d3,%d5
    muls.w    %d6,%d3
    jble      _ERROR_incorrect_arg
    
    |Sauvegarde X0 et Y0
    move.w    %d1,-(%SP)
    move.w    %d0,-(%SP)
    
    |Création de la chaîne de caractères
    addi.w    #4,%d3        |Taille header sprite
    lea.l     -48(%a5),%a2
    jbsr      TokensExec_NewString
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Restaure coordonnées
    move.w    (%SP)+,%d0        |X0
    move.w    (%SP)+,%d1        |Y0
    
    |Gestion erreur
    tst.w     %d7
    jbeq      _Exec_exit
    
    |Header sprite
    move.w    %d4,(%a0)+        |Largeur
    move.w    %d6,(%a0)+            |Hauteur
    jbra      _ExecCmd_Get_Copy

Cls
Box 0,0,16,16
Get 0,0,16,16,Boite$
Cls
Put 0,0,Boite$