program soso_test
dim text as char[20]
dim text2 as char[20]
dim kp as integer
dim txt as string[5]
main:
[COLOR="red"][B]l1:[/B][/COLOR]
[COLOR="blue"][B]TRISB=0
TRISC=%11111111
Lcd_Init(PORTB)
keypad_Init(PORTC)
Lcd_Cmd(Lcd_CURSOR_OFF)[/B][/COLOR]
text="general:press1"
text2="private:press2"
Lcd_Out(1,1,text)
Lcd_Out(2,1,text2)
[COLOR="seagreen"][B]delay_ms(2000)[/B][/COLOR]
Lcd_Cmd(LCD_CLEAR)
kp=keypad_Released
WordToStr(kp,txt)
Lcd_Out(1,1,txt)
[COLOR="seagreen"][B]delay_ms(2000)[/B][/COLOR]
Lcd_Cmd(LCD_CLEAR)
if kp=1 then
Lcd_Out(1,1,"11")
else if kp=2 then
Lcd_Out(1,1,"12")
end if
end if
[COLOR="red"][B]goto l1[/B][/COLOR]
end.