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

Cursor Off

Deflcdchar 0 , 21 , 14 , 4 , 4 , 4 , 27 , 32 , 32
Deflcdchar 1 , 4 , 14 , 21 , 4 , 4 , 10 , 10 , 10
Cls

Do
  For Jman = 0 To 1 Step 1
    Portd = 255
    Waitms 100
    Portd = 0
    Waitms 100
    Locate 1 , 16
    Lcd Chr(jman)
  Next Star
Loop

End