EXAMPLE 02 : 7 Segments LED

EXAMPLE_02.bas

$regfile = "89s8252.dat"
$crystal = 11592000
Dim I As Byte
Dim Number(10) As Byte


Restore Db
  For I = 1 To 10
  Read Number(i)
  Next

Do
 For I = 1 To 10
 P0 = Number(i)
 Waitms 200
 Next
Loop

End


Db:                                                                                                             '1234567890
Data &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H83 , &HF8 , &H80 , &H98 , &HC0