Sub Activity_Create(FirstTime As Boolean)
'SSS
tapecalc_en.Initialize
'end
Dim FileName As String
Dim i As Int
If FirstTime = True Then
File.MakeDir(File.DirRootExternal,"TapeCalc")
Dim lst As List
lst = File.ListFiles(File.DirAssets)
For i = 0 To lst.Size - 1
FileName = lst.Get(i)
If FileName.Length >= 15 And FileName.ToLowerCase.SubString2(0, 9) = "tapecalc_en" And File.Exists(ProgPath, FileName) = False Then
File.Copy(File.DirAssets, tapecalc_en.txt, ProgPath, FileName)