param$ = '/finfo c:\swapfile.sys }} info.txt'
Run("<Embedded>\fscmd101.com","param$")

OpenFile$='c:/temp.exe'
TempFile$='_cmd.txt'
FullName$=ExtractName(OpenFile$)+ExtractExt(OpenFile$)
Line$='WAIT,HIDE /c dir "'+OpenFile$+'" >"%TEMP%'+CHR(92)+TempFile$+'"'
Run("cmd","Line$")
TempFile$=<Temp>+TempFile$
String$=StrFromFile(TempFile$,6,1)
Date$=StrC   opy(String$,1,17)
Pos=LEN(String$)-(LEN(Date$)+LEN(FullName$)+1)
String$=StrCopy(String$,18,Pos)
For i=1 To LEN(String$)
   Char$=StrGet(String$,i)
   If (ORD(Char$)>=224) Then
     Code=ORD(Char$)+16
     Char$=CHR(Code)
   End
   If (ORD(Char$)>=128 & ORD(Char$)<=191) Then
     Code=ORD(Char$)+64
     Char$=CHR(Code)
   End
   If (ORD(Char$)>32) Then
     Bites$=Bites$+Char$
   End
Next i
Bites=VAL(Bites$)
For j=3 To 1
   If (Bites>1024^j) Then
     For i=1 To 1024
       If (Bites<(1024^j)*i) Then
         Bites=Bites-(1024^j)*(i-1)
         Results[j]=i-1
         Break()
       End
     Next i
   End
Next j
mes$='You boot img size: '+CHAR(Results[2])+'Mb'+CHAR(Results[1])+'kb'
Message("mes$","")
data$=CHAR(Results[2])
If (data$='0') Then
   Message("GOOD","")
Else
    Message("BAD","")
End