$regfile = "2313def.dat"
$crystal = 4000000
$sim
Config Portd = Output
Dim Mbar As Byte

Cursor Off

Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 6
Deflcdchar 1 , 32 , 32 , 32 , 32 , 32 , 32 , 6 , 6
Deflcdchar 2 , 32 , 32 , 32 , 32 , 32 , 6 , 6 , 6
Deflcdchar 3 , 32 , 32 , 32 , 32 , 6 , 6 , 6 , 6
Deflcdchar 4 , 32 , 32 , 32 , 6 , 6 , 6 , 6 , 6
Deflcdchar 5 , 32 , 32 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 6 , 32 , 6 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 7 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6

Cls

Do
  Portd = 255
  Locate 1 , 16
  Lcd " "
  Waitms 100
  For Mbar = 0 To 7 Step 1
    Locate 1 , 16
    Lcd Chr(mbar)
    Waitms 100
  Next Mbar
  For Mbar = 6 To 0 Step -1
    Locate 1 , 16
    Lcd Chr(mbar)
    Waitms 100
  Next Mbar
  Portd = 0
  Waitms 100
Loop

End