Restore
Changes the next read location for values stored with the Data statement.
Restore label
Sets the next-data-to-read pointer to the first element of the first 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 Read. It allows re-reading some Data or using multiple sets of Data in a single module.
Syntax
Restore label
Description
Sets the next-data-to-read pointer to the first element of the first 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 Read. It allows re-reading some Data or using multiple sets of Data in a single module.
Example
' 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!"
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.
' Read in a string.
Read hs
' Print it.
Print "Bloc 1 string = " + hs
' Spacers.
' 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.
' 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!"
Differences from QB
- None
See also
