//
//   SapGuiVer.VDM               Ch.Ziemski   12.12.2001
//

Num_Push(10,15)

#10=Reg_Free()
Reg_Set(#10, FILENAME)

#11=Reg_Free()
Search("F.i.l.e.V.e.r.s.i.o.n.\h00*[0-9].*\h00\h00", BEGIN+REGEXP+NOERR)

Reg_Copy_Block(#11, Cur_Pos, Cur_Pos + Chars_Matched)

Buf_Switch(Buf_Free(EXTRA))
Buf_Empty(OK)

Reg_Ins(#10)
Search("sapgui.exe.", BEGIN+NOERR)
if(! Error_Match){
  Del_Char(Chars_Matched)
  EoL
}

Ins_Text("      ")
Ins_Indent(20)

Reg_Ins(#11)
Replace("|000", "", BEGIN+ALL+NOERR)

Search("FileVersion", BEGIN+ADVANCE)
Ins_Text(": ")

EoL
Ins_Newline(1)

BoF
Reg_Copy(1,1, APPEND)

Buf_Quit(OK)

Reg_Empty(#10)
Reg_Empty(#11)
Num_Pop(10,15)