GeSHi (vb):sub procedure Lcd_Config(dim byref data_port as byte,dim D7, D6, D5, D4 as byte,dim byref ctrl_port as byte,dim RS, WR, EN as byte) Lcd_Config(PORTB,3,2,1,0,PORTB,4,5,6)
GeSHi (vb):program LCD_MKB dim text as char[20] TRISB=0 Lcd_Config(PORTB,3,2,1,0,PORTB,4,5,6)text = "TODOPIC"Lcd_Cmd(Lcd_CURSOR_OFF)Lcd_Out(1, 1, text) main: PORTB.5=0 delay_ms(50) PORTB.5=1 delay_ms(50) goto mainend.
GeSHi (vb): FOR X=7 TO 0 STEP -1 PORTB.X=0 DELAY_MS(500) NEXT X