If Field$(MM.DEVICE$,1," ") =  "PicoMiteVGA" Or Field$(MM.DEVICE$,1," ") = "PicoMiteHDMI" or Field$(MM.DEVICE$,1," ") = "PicoMiteVGAUSB" or Field$(MM.DEVICE$,1," ") = "PicoMiteHDMIUSB" Then

Option explicit                                                                                      
Dim fm_is_initialized                                                                                
minifm                                                                                              
Print "back"                                                                                        
End

minifm

 Dim integer vid_mode
 Font 1
 
 If MM.DISPLAY Then
   if instr(mm.device$,"VGA") or instr(mm.device$,"HDMI") then '@harm
     'If Field$(MM.DEVICE$,1," ") =  "PicoMiteVGA" Or Field$(MM.DEVICE$,1," ") = "PicoMiteHDMI" Then
     MODE 1 : Font 1 : TILE HEIGHT MM.Info(FONTHEIGHT)
     Const FW = MM.Info(FONTWIDTH) : FH = MM.Info(FONTHEIGHT)
     Const CHRES = MM.HRES / FW:CVRES = MM.VRES / FH
     vid_mode = 1
   else
     Const FW = MM.Info(FONTWIDTH) : FH = MM.Info(FONTHEIGHT)      
   End If
   Print Chr$(27) + "[8;" + Str$(MM.HEIGHT) ";" + Str$(MM.WIDTH +1) + "t"; 'set terminal size
   Option console both
 Else
   Const FW = MM.Info(FONTWIDTH) : FH = MM.Info(FONTHEIGHT)
   Const CVRES = tty_console_row : CHRES = tty_console_col
   Option display tty_console_row, tty_console_col
   Print Chr$(27) + "[8;" + Str$(tty_console_row) + ";" + Str$(tty_console_col + 1) + "t"; 'set terminal size
 End If

FW = MM.Info(FONTWIDTH): FH = MM.Info(FONTHEIGHT)

mode 2 : font 1
print mm.info(fontwidth)
mode 1 : font 1
print mm.info(fontwidth)

'Custom variables-----------------------------------------------------
 Dim integer confirm_each = 1 '0:Don't ask, 1:always ask
 Dim integer overwrite = 0 '0: alwasy ask, 1: don't ask
 Dim integer run_bas = 0 ' disable Enter to execute .bas file
 Dim integer lcd_font = 1 ' 0 to use system setting
 Dim integer tty_console_row = 24 'terminal height, min = 5 max = 100
 Dim integer tty_console_col = 80 'terminal width, min = 37 max = 240
 Dim integer cursor_colour = 7
 Dim integer fn_colour_bc = 7 'F Key colour
 Dim integer fn_colour_fc = 0
 Dim integer clock_bc = 14
 Dim integer clock_fc = 3
 Dim integer keypress_delay = 20 'in mSec
 Dim integer DnFColor=0  'Dirs & Files Color (0=Colorer ON)
 Dim integer SelColor=14 'Color of selected files
 Dim integer RMAX=199    'Max number of Records in File List (255 max)
 '---------------------------------------------------------------------