$regfile = "2313def.dat"
$crystal = 4000000

Dim Pos As Byte

Do

Cls
Upperline
Lcd "012345678901john"
Lowerline
Lcd "0123456789012ike"
For Pos = 0 To 16 Step 1
  Waitms 500
  Shiftlcd Left
Next Pos

Loop
End