' {$STAMP BS2}
' {$PBASIC 2.5}

e CON 6
rs CON 4
rw CON 5

     '1  2  3  4   5  6  7---14 15 16
     'nc nc nc rs/ rw e pb0-pb7 nc nc  LCD PinS
DIRS = %0000000111111110
       '0123456789012345  bs2 pins

PAUSE 200
OUTS = %10000000    'Clear display   
HIGH e
PAUSE 30
LOW e
PAUSE 100
OUTS = %00001100    'Function set commmmmand : 8 bit mode ON, 1 line, 5*8 font 
HIGH e
PAUSE 30
LOW e
PAUSE 100
OUTS = %11110000    'Display ON/OFF control: display ON, cursor ON, blink ON
HIGH e
PAUSE 30
LOW e
PAUSE 100
OUTS = %01100000    'Entry mode set: increase cursor position, scroll display OFF
HIGH e
PAUSE 30
LOW e


PAUSE 100
HIGH rs
OUTS = %11000010    'c
HIGH e
LOW e
PAUSE 100
OUTS = %01001010    'r
HIGH e
LOW e
PAUSE 100
OUTS = %10000010    'a
HIGH e
LOW e
PAUSE 100
OUTS = %10010010    'i
HIGH e
LOW e
PAUSE 100
OUTS = %11100010    'g
HIGH e
LOW e
PAUSE 100
END 