Sub moves_template
 ' Clear the moves
 Box 0,1,227,278,,,RGB(black)
 ' draw the outline
 Box 0,1,227,278
 'tiles
 TILE 0,0,RGB(green),RGB(black),29,24
 TILE 3,1,RGB(white),RGB(black),5,22 'TILE 2,1,RGB(white),RGB(black),5,22
 TILE 7,1,RGB(red),RGB(black),5,22
 TILE 17,1,RGB(white),RGB(black),5,22
 TILE 23,1,RGB(red),RGB(black),5,22
End Sub

If piece$<>"." Then

     s=instr("PpNnBbRrQqKk",piece$) 'replaces the SELECT CASE

     'Select Case piece$
       'Case "p"
         's=2
       'Case "P"
         's=1
       'Case "n"
         's=4
       'Case "N"
         's=3
       'Case "b"
         's=6
       'Case "B"
         's=5
       'Case "r"
         's=8
       'Case "R"
         's=7
       'Case "q"
         's=10
       'Case "Q"
         's=9
       'Case "k"
         's=12
       'Case "K"
         's=11
     'End Select

     Sprite write s,x*20+161,y*20,&B100
   EndIf

Function fr_input$(x,y)
 Local a$,start%
 start%=x
 Do
   Do :a$=Inkey$:Pause 100:Loop Until a$<>""       'wait for a key
   If a$=Chr$(13) Or a$=Chr$(10) Then Exit Do      '<CR>=we are done
   If a$=Chr$(8) Then                              'check for back space
    a$=" "                                         'blank last character
    Text x,y,a$
    If x>start% Then                               'not back at start of line
     Inc x,-(MM.Info(fontwidth))                   'move char position back
     fr_input$ = Left$(fr_input$,Len(fr_input$)-1) 'remove last char from string
    EndIf
   Else
    Inc x,MM.Info(fontwidth)                       'advance x position
    fr_input$ = fr_input$ + a$                     'build a string
    Text x,y,a$                                    'reflect on screen
   EndIf
   FRAMEBUFFER copy f,n                            'update screen
 Loop
End Function