Action

Allows READ to reread values in specified DATA statements by setting data pointer to beginning of data statement.

 

 

Syntax

RESTORE label

 

 

Remarks

 

 

See also

DATA , READ , LOOKUP

 

 

Example

'-----------------------------------------------------------------------------------------

'name                     : readdata.bas

'copyright                : (c) 1995-2021, MCS Electronics

'purpose                  : demo : READ,RESTORE

'micro                    : Mega48

'suited for demo          : yes

'commercial addon needed  : no

'-----------------------------------------------------------------------------------------

 

$regfile = "m48def.dat"                                   ' specify the used micro

$crystal = 4000000                                         ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space

 

Dim A As Integer , B1 As Byte , Count As Byte

Dim S As String * 15

Dim L As Long

Restore Dta1                                               'point to stored data

For Count = 1 To 3                                         'for number of data items

Read B1 : Print Count ; "  " ; B1

Next

 

Restore Dta2                                               'point to stored data

For Count = 1 To 2                                         'for number of data items

Read A : Print Count ; "  " ; A

Next

 

Restore Dta3

Read S : Print S

Read S : Print S

 

 

Restore Dta4

Read L : Print L                                           'long type

 

 

'demonstration of readlabel

Dim W As Iram Word At 8 Overlay                           ' location is used by restore pointer

'note that W does not use any RAM it is an overlayed pointer to the data pointer

W = Loadlabel(dta1)                                       ' loadlabel expects the labelname

Read B1

Print B1

End

 

 

Dta1:

Data &B10 , &HFF , 10

Dta2:

Data 1000% , -1%

 

Dta3:

Data "Hello" , "World"

'Note that integer values (>255 or <0) must end with the %-sign

'also note that the data type must match the variable type that is

'used for the READ statement

 

Dta4:

Data 123456789&

'Note that LONG values must end with the &-sign

'Also note that the data type must match the variable type that is used

'for the READ statement