'------------------------------------------------------------
'                  (c) 1997,1998 MCS Electronics
'                         DATA.BAS
'This program demonstrate the use of the 8-byte internal
'databuffer.
'------------------------------------------------------------
Dim A As Byte , X As Integer
X = 1
Setdata X , 15                          'place value 15 at position 1
A = Getdata(1)                          'retrieve data at position 1
Print A                                 'print it
For X = 1 To 8
  Setdata X , X
  A = Getdata(x)
  Print A
Next
End