Restore label

Устанавливает указатель чтения на следующее местоположение данных Data после label (метки). label(метка) должен находиться в том же модуле, где и выполнение кода. Restore изменяет нормальный порядок чтения данных (по умолчанию сверху вниз), в котором Data  Read(считывается). Это позволяет читать по нескольку раз определенные данные Data и использовать нескольких наборов Data в одном модуле.

' Создаем 2 массива типа Integer и 2 строки для хранения данных.
Dim h(4) As Integer
Dim h2(4) As Integer
Dim hs As String
Dim hs2 As String
Dim read_data1 As Integer
Dim read_data2 As Integer

' Установим чтение данных на метку 'dat2:'
Restore dat2

' Установим цикл на 5 итераций (за 5 прохождений ... читаем и печатаем данные)
For read_data1 = 0 To 4

  ' Читаем в integer.
  Read h(read_data1)

  ' Отображаем это.
  Print "Bloc 1, number"; read_data1;" = "; h(read_data1)

Next

' Печатаем пустую линию.
Print

' Читаем в строку.
Read hs

' Печатаем это.
Print  "Bloc 1 string = " + hs

' Печатаем 2 пустых линии.
Print
Print


' Установим чтение данных на метку 'dat1:'
Restore dat1

' Установим цикл на 5 итераций (за 5 прохождений ... читаем и печатаем данные)
For read_data2 = 0 To 4

  ' Читаем в integer.
  Read h2(read_data2)

  ' Отображаем это.
  Print "Bloc 2, number"; read_data2;" = "; h2(read_data2)

Next

' Печатаем пустую линию.
Print

' Читаем в строку.
Read hs2

' Печатаем это.
Print  "Bloc 2 string = " + hs2

' Ожидание нажатия клавиши.
Sleep

' Выход из программы.
End



' Первый блок данных data.
dat1:
Data 3, 234, 4354, 23433, 87643, "Bye!"

' Второй блок данных data.
dat2:
Data 546, 7894, 4589, 64657, 34554, "Hi!"

• Нет
  
  

• Data
  
• Read