Sub full_info_printer
'print "full info printer online"
get_line(1)
Line Input #2,record$
clr_wait
If search_restart=1 Then
Exit Sub
End If
Print @(x,y) record$
next_line
get_line(2)
Line Input #2,record$
If picomite=0 Then
Color RGB(yellow),RGB(black)
line_printer
Color RGB(white),RGB(black)
Else
code_tag_flag=1
hlp_tag_fore_color=RGB(yellow)
hlp_tag_back_color=RGB(black)
y=y+2
adjust_line_for_tile
line_printer
code_tag_flag=0
hlp_tag_fore_color=RGB(white)
hlp_tag_back_color=RGB(black)
End If
next_line
get_line(3)
Do While Loc(#2)<Lof(#2)
Line Input #2,record$
skip_tag_flag=0
check_for_line_tags
If skip_tag_flag<>1 Then
line_printer
clr_wait
End If
If search_restart=1 Then
Exit Sub
End If
Loop
add_separator
next_line
End Sub

Color RGB(yellow),RGB(black)

Color RGB(white),RGB(black)

PicoMiteVGA MMBasic RP2350A Edition V6.00.02RC5
OPTION SYSTEM I2C GP14,GP15
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION KEYBOARD GR
OPTION MOUSE GP27,GP28
OPTION CPUSPEED (KHz) 252000
OPTION RESOLUTION 640x480
OPTION SDCARD GP13, GP10, GP11, GP12
OPTION AUDIO GP6,GP7', ON PWM CHANNEL 3
OPTION COUNT GP0,GP1,GP2,GP3

Sub full_info_printer
  Color RGB(yellow),RGB(black)
  Color RGB(white),RGB(black)
End Sub

Sub full_info_printer2
Color RGB(yellow),RGB(black)
Color RGB(white),RGB(black)
End Sub

Sub full_info_printer3
Color RGB(yellow),RGB(black)
  Color RGB(white),RGB(black)
End Sub

....
  cmd_library
    ...
    ...
    // then copy the current contents of the program memory to RAM
       
      //MMPrintString("\r\n Size=1 ");PInt(m - MemBuff);
       p = ProgMemory;
       while(*p != 0xff) {
           if(p[0] == 0 && p[1] == 0) break;  // end of the program
     ...

// then copy the current contents of the program memory to RAM
       p = ProgMemory;
      // while(*p != 0xff) {
      while(!(p[0] == 0xff && p[1] == 0xff)){