[Линда Кайе]

#post-id: 2699-19-05
#original-date: 16.12.2007 Sun
#original-time: 7:05 PM
#original-day:  2699
#original-host: Win98SE

Sub LoadConfigFile ()
  Dim hFile As Integer
  Dim TXT As String
  
  hFile = FreeFile
  Open BuildFileName(STORY_DIR, "CONFIG.DAT") For Input As #hFile
    Line Input #hFile, TXT
    Me.Caption = GetParamValue(TXT)
    
    Line Input #hFile, TXT
    LoadStepFile GetParamValue(TXT)
  Close #hFile
End Sub