{{fbdoc item="title" value="RESTORE"}}----
Changes the next read location for values stored with the ##[[KeyPgData Data]]## statement.

{{fbdoc item="syntax"}}##
	**Restore** //label//
##
{{fbdoc item="desc"}}
	Sets the next-data-to-read pointer to the first element of the first ##[[KeyPgData Data]]## statement after the label.  The label must be contained in the same module as the currently-executing code.  ##Restore## alters the normal top to bottom order in which ##Data## are ##[[KeyPgRead Read]]##. It allows re-reading some ##Data## or using multiple sets of ##Data## in a single module.	

{{fbdoc item="ex"}}
{{fbdoc item="filename" value="examples/manual/data/restore.bas"}}%%(freebasic)
' Create an 2 arrays of integers and a 2 strings to hold the data.
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

' Set the data read to the label 'dat2:'
Restore dat2

' Set up to loop 5 times (for 5 numbers... check the data)
For read_data1 = 0 To 4

  ' Read in an integer.
  Read h(read_data1)

  ' Display it.
  Print "Bloc 1, number"; read_data1;" = "; h(read_data1)

Next

' Spacer.
Print

' Read in a string.
Read hs

' Print it.
Print  "Bloc 1 string = " + hs

' Spacers.
Print
Print


' Set the data read to the label 'dat1:'
Restore dat1

' Set up to loop 5 times (for 5 numbers... check the data)
For read_data2 = 0 To 4

  ' Read in an integer.
  Read h2(read_data2)

  ' Display it.
  Print "Bloc 2, number"; read_data2;" = "; h2(read_data2)

Next

' Spacer.
Print

' Read in a string.
Read hs2

' Print it.
Print  "Bloc 2 string = " + hs2

' Await a keypress.
Sleep

' Exit program.
End



' First block of data.
dat1:
Data 3, 234, 4354, 23433, 87643, "Bye!"

' Second block of data.
dat2:
Data 546, 7894, 4589, 64657, 34554, "Hi!"





%%


{{fbdoc item="diff"}}
	- None

{{fbdoc item="see"}}
	- ##[[KeyPgData Data]]##
	- ##[[KeyPgRead Read]]##

{{fbdoc item="back" value="CatPgMisc|Miscellaneous"}}