' {$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