VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00000000&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Сохранение/Загрузка массивов"
   ClientHeight    =   4410
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   4710
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4410
   ScaleWidth      =   4710
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command6 
      BackColor       =   &H00808080&
      Caption         =   "Готово"
      Height          =   255
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   9
      ToolTipText     =   "Перейти к редактору массивов"
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00808080&
      Caption         =   "Скрыть"
      Height          =   255
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   8
      ToolTipText     =   "Скрыть SaveList"
      Top             =   4080
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00808080&
      Caption         =   "Сохранить"
      Height          =   255
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   7
      ToolTipText     =   "Сохранить новое содержимое в SaveList"
      Top             =   3840
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   2685
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   6
      ToolTipText     =   "Содержимое SaveList"
      Top             =   1080
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00808080&
      Caption         =   "Редактировать список"
      Height          =   255
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "Показать содержимое SaveList"
      Top             =   1080
      Width           =   2055
   End
   Begin VB.ListBox Combo2 
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   2010
      Left            =   2400
      TabIndex        =   4
      ToolTipText     =   "Список доступных массивов"
      Top             =   360
      Width           =   2055
   End
   Begin VB.CheckBox Check1 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      Caption         =   "Добавить в список"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   240
      TabIndex        =   3
      ToolTipText     =   "Добавить в SaveList"
      Top             =   720
      Value           =   1  'Checked
      Width           =   1815
   End
   Begin VB.ComboBox Combo1 
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   315
      ItemData        =   "Form3.frx":0442
      Left            =   240
      List            =   "Form3.frx":0444
      TabIndex        =   2
      Text            =   "Combo1"
      ToolTipText     =   "В какой файл сохраняем"
      Top             =   360
      Width           =   2055
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00808080&
      Caption         =   "Загрузить"
      Height          =   255
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   1
      Tag             =   "Загрузить массив"
      Top             =   120
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00808080&
      Caption         =   "Сохранить"
      Height          =   255
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Сохранить текущий массив"
      Top             =   120
      Width           =   2055
   End
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   840
      Top             =   3120
   End
   Begin VB.Timer Timer1 
      Left            =   360
      Top             =   3120
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   4
      X1              =   4680
      X2              =   4080
      Y1              =   5880
      Y2              =   5040
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   3
      X1              =   0
      X2              =   600
      Y1              =   5880
      Y2              =   5040
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   2
      Tag             =   "&H00004040&"
      X1              =   600
      X2              =   4080
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   1
      X1              =   3480
      X2              =   2400
      Y1              =   4800
      Y2              =   2640
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   0
      X1              =   1200
      X2              =   2280
      Y1              =   4800
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000C0&
      BorderWidth     =   4
      Index           =   39
      Visible         =   0   'False
      X1              =   2220
      X2              =   2235
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000C0&
      BorderWidth     =   4
      Index           =   38
      Visible         =   0   'False
      X1              =   2460
      X2              =   2475
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00400040&
      X1              =   0
      X2              =   4680
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   37
      Visible         =   0   'False
      X1              =   2400
      X2              =   2460
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   36
      Visible         =   0   'False
      X1              =   2520
      X2              =   2535
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   35
      Visible         =   0   'False
      X1              =   2640
      X2              =   2655
      Y1              =   2760
      Y2              =   2760
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   34
      Visible         =   0   'False
      X1              =   2760
      X2              =   2775
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   33
      Visible         =   0   'False
      X1              =   2880
      X2              =   2895
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   32
      Visible         =   0   'False
      X1              =   3000
      X2              =   3015
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   31
      Visible         =   0   'False
      X1              =   3120
      X2              =   3135
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   30
      Visible         =   0   'False
      X1              =   3240
      X2              =   3255
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   29
      Visible         =   0   'False
      X1              =   3360
      X2              =   3375
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   28
      Visible         =   0   'False
      X1              =   3600
      X2              =   3615
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   27
      Visible         =   0   'False
      X1              =   3720
      X2              =   3735
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   26
      Visible         =   0   'False
      X1              =   3840
      X2              =   3855
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   25
      Visible         =   0   'False
      X1              =   3960
      X2              =   3975
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   24
      Visible         =   0   'False
      X1              =   4080
      X2              =   4095
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   23
      Visible         =   0   'False
      X1              =   4200
      X2              =   4215
      Y1              =   4200
      Y2              =   4200
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   22
      Visible         =   0   'False
      X1              =   4320
      X2              =   4335
      Y1              =   4320
      Y2              =   4320
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   21
      Visible         =   0   'False
      X1              =   4440
      X2              =   4455
      Y1              =   4440
      Y2              =   4440
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   20
      Visible         =   0   'False
      X1              =   4560
      X2              =   4575
      Y1              =   4560
      Y2              =   4560
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   10
      Index           =   19
      Visible         =   0   'False
      X1              =   4680
      X2              =   4695
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   18
      Visible         =   0   'False
      X1              =   2295
      X2              =   2235
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   17
      Visible         =   0   'False
      X1              =   2160
      X2              =   2175
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   16
      Visible         =   0   'False
      X1              =   2040
      X2              =   2055
      Y1              =   2760
      Y2              =   2760
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   15
      Visible         =   0   'False
      X1              =   1920
      X2              =   1935
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   14
      Visible         =   0   'False
      X1              =   1800
      X2              =   1815
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   13
      Visible         =   0   'False
      X1              =   1680
      X2              =   1695
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   12
      Visible         =   0   'False
      X1              =   1560
      X2              =   1575
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   11
      Visible         =   0   'False
      X1              =   1440
      X2              =   1455
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   10
      Visible         =   0   'False
      X1              =   1320
      X2              =   1335
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   9
      Visible         =   0   'False
      X1              =   1080
      X2              =   1095
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   8
      Visible         =   0   'False
      X1              =   960
      X2              =   975
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   7
      Visible         =   0   'False
      X1              =   840
      X2              =   855
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   6
      Visible         =   0   'False
      X1              =   720
      X2              =   735
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   5
      Visible         =   0   'False
      X1              =   600
      X2              =   615
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   4
      Visible         =   0   'False
      X1              =   480
      X2              =   495
      Y1              =   4200
      Y2              =   4200
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   3
      Visible         =   0   'False
      X1              =   360
      X2              =   375
      Y1              =   4320
      Y2              =   4320
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   2
      Visible         =   0   'False
      X1              =   240
      X2              =   255
      Y1              =   4440
      Y2              =   4440
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   1
      Visible         =   0   'False
      X1              =   120
      X2              =   135
      Y1              =   4560
      Y2              =   4560
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   10
      Index           =   0
      Visible         =   0   'False
      X1              =   0
      X2              =   15
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00008000&
      Index           =   41
      Visible         =   0   'False
      X1              =   2520
      X2              =   4680
      Y1              =   2640
      Y2              =   4680
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00008000&
      Index           =   40
      Visible         =   0   'False
      X1              =   2160
      X2              =   0
      Y1              =   2640
      Y2              =   4680
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim b As Integer, k As Integer, s

Dim strList As String

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2_Click
End Sub

Private Sub Command1_Click()
If Combo1.Text <> "" Then
Open "files\" & Combo1.Text For Output As #1
av = Split(Form2.Text1, " ")
Print #1, Form2.VScroll1
For i = 0 To UBound(av)
Print #1, Val(av(i))
Next
Close
If Check1.Value = 1 Then
Open "files\SaveList" For Append As #1
Print #1, Combo1.Text
Close
Form_Load
End If
End If
End Sub

Private Sub Command2_Click()
If Combo2 <> "" Then
Open "files\" & Combo2 For Input As #1
Form2.Text1 = ""
Input #1, po
Form2.VScroll1.Value = Val(po)
Do While Not (EOF(1))
Input #1, strList
Form2.Text1 = Form2.Text1 & strList & " "
Loop
Close #1
End If
End Sub

Private Sub Command3_Click()
Text1 = ""
Command3.Visible = False
Text1.Visible = True
Command4.Visible = True
Command5.Visible = True
Open "files\SaveList" For Input As #1
Do While Not (EOF(1))
Input #1, strList
Text1 = Text1 & strList & Chr(13) & Chr(10)
Loop
Close #1
End Sub

Private Sub Command4_Click()
Open "files\SaveList" For Output As #1
Print #1, Text1
Close
Form_Load
End Sub

Private Sub Command5_Click()
Command3.Visible = True
Command4.Visible = False
Command5.Visible = False
Text1.Visible = False
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()
s = 0
Combo1.Clear
Combo2.Clear
Open "files\SaveList" For Append As #1
Print #1, ""
Close
Open "files\SaveList" For Input As #1
Do While Not (EOF(1))
Line Input #1, strList
If strList <> "" And strList <> " " Then
Combo1.AddItem strList
Combo2.AddItem strList
End If
Loop
Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.Show
End Sub

Private Sub Timer1_Timer()
k = k + 1
If k = 2 Then
Line1(b).Visible = False
Line1(b + 19).Visible = False
b = b + 1
Line1(b).Visible = True
Line1(b + 19).Visible = True
If b = 18 Then
Timer1.Interval = 0
End If
k = 0
End If
End Sub

Private Sub Timer2_Timer()
b = 0
If s > 0 Then
Timer1.Interval = 1
Line1(39).Visible = True
Line1(38).Visible = True
Line1(40).Visible = True
Line1(41).Visible = True
Else
Line3(0).BorderColor = &HC0C0&
Line3(1).BorderColor = &HC0C0&
s = s + 1
End If
End Sub