Specifies values to be read by subsequent READ statements.
DATA var [, varn]
Numeric or string constant.
To specify a character that cannot be written in the editor such as " you can use $34. The number is the ASCII value of the string. A null will be added so it will be a string of one character!
When you want to store the string data without the ending null you can use the
$NONULL directive as shown below:
DATA "abcd" 'stored with and ending 0
$NONULL = -1 'from now on store the data without the extra 0
DATA "abcd" , "edgh"
$NONULL = 0 'and go back to the normal default operation
Version 2.09 supports expressions. You must use either expressions or normal constant data on the DATA lines. You may not mix them.
DATA INTEGER(15 * constval + x)
Where constval is a declare constant (CONST) and x is a CONST too.
The INTEGER() funtion must be used to indicate that the resulting constant is of the integer type.
Use WORD(), INTEGER(), LONG() or SINGLE() to specify the resulting constant.
Difference with QB
Integer and Word constants must end with the % -sign.
Long constants must end with the &-sign.
Single constants must end with the !-sign.
Dim A As Byte , I As Byte , L As Long , S As Xram String * 15
Restore Dta1 'point to data
For A = 1 To 3
Read I : Print I 'read data and print it
Restore Dta2 'point to data
Read I : Print I ' integer data
Read I : Print I
Read L : Print L ' long data
Read S : Print S ' string data
Data 5 , 10 , 100
Data -1% , 1000%
'Integer and Word constants must end with the %-sign.
' (Integer : <0 or >255)
'long constants must end with the &-sign
Data "Hello world" , $34
REM You can also mix different constant types on one line
Data "TEST" , 5 , 1000% , -1& , 1.1!