dim counter as byte
    someText as char[18]
    dim i as word

           ADCON1 = 7 ' All pins digital
CMCON = 7 ' All comparator Off
 
            i=0
sub procedure Move_Delay()
                                                 ' Function used for text moving
  Delay_ms(500)                                  ' You can change the moving speed here
end sub

main: