Program running text dengan 7 segment menggunakan BASCOM-AVR

‘*************************
‘ Running Text
‘ Chip : ATmega8535
‘ Clock : 16 MHz
‘*************************

$regfile = “m8535.dat”
$crystal = 16000000
Config Portc = Output
Config Portd = Output
Dim I As Byte , J As Byte , K As Byte , L As Byte
Do
   K = 20
   Do
      For I = 0 To 7
         Portd = Lookup(i , Digit)
         L = I + J
         Portc = Lookup(l , Huruf)
         Waitms 1
      Next
      Decr K
   Loop Until K = 0
   ‘===
   Incr J
   If J >= 21 Then J = 0
Loop
End
Digit:
   Data &HFE , &HFD , &HFB , &HF7 , &HEF , &HDF , &HBF , &H7F
Huruf:
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HF9 , &HAB , &HA7 , &HE3 , &H83 , &HA0 , &H87 , &H84 , &HA7
   Data &HFF , &HF1 , &HA3 , &H90 , &HF1 , &HA0 , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF