' -------------------------------------------------------------------
' ----------------[    Melder Flash                 ]----------------
' -------------------------------------------------------------------
Sub Melder_Flash
CLS
Box 10, 10, MM.HRes-20, 40, 3 , RGB(Cyan) ,RGB(Blue)
Text 16,20,"DLD 1/9 ",,3,1,RGB(Cyan),RGB(Blue)
Box 10, 46, MM.HRes-20, 200, 3 , RGB(Cyan) ,RGB(Blue)

Font 3,2
GUI Gauge 13,240,160,100,RGB(Cyan),RGB(Blue),0,100,0,"%",RGB(Green),RGB(White)

Open Pfad_dld_FW$ + Firmware_DLD$ For input As #5
Print "Start... Flash"
File_Size = MM.Info(Filesize Pfad_dld_FW$ + Firmware_DLD$)

Do
 RX_In_cnt = 0
 Inc FZ
 B1=Asc(Input$(1,#5))
 B2=Asc(Input$(1,#5))
 W=B2*256
 W=W+B1
 For J = 1 To W
   Inc zz
   B3=Asc(Input$(1,#5))
   Print #1, Chr$(B3);
   CtrlVal(#13)=Int(zz*101/File_Size)
 Next J
 Do
 Loop Until RX_In_cnt = 7
 If RX_In(4) = &H12 Then
   Print "#";
 Else
   Print "Flash Error#";
 End If
Loop Until Eof(#5) ..................................