Define OSC 4 'частота кврца Define LCD_DREG PORTb Define LCD_DBIT 0 Define LCD_RSREG PORTc Define LCD_RSBIT 2 Define LCD_EREG PORTc Define LCD_EBIT 1 DEFINE LCD_LINES 2 DEFINE LCD_BITS 8 trisb=0 ' установка настроек LCD панели DEFINE LCD_COMMANDUS 2000 DEFINE LCD_DATAUS 50 n var byte m var byte led var byte led2 var byte l var byte gosub bank main: for m=0 to 13 lcdout $fe,$c0 for n=m to 13 gosub look lcdout led next n for l=0 to m n=l GOSUB look lcdout led next l pause 50 next m goto main end look: lookup n,[1,2,3,4,5,6,7,7,6,5,4,3,2,1],led return bank: LCDOut $FE,64,REP $0\8 lcdout $0,%00000,%00000,%00000,%00000,%00000,%00000,%11111 lcdout $0,%00000,%00000,%00000,%00000,%00000,%11111,%11111 lcdout $0,%00000,%00000,%00000,%00000,%11111,%11111,%11111 lcdout $0,%00000,%00000,%00000,%11111,%11111,%11111,%11111 lcdout $0,%00000,%00000,%11111,%11111,%11111,%11111,%11111 lcdout $0,%00000,%11111,%11111,%11111,%11111,%11111,%11111 lcdout $0,%11111,%11111,%11111,%11111,%11111,%11111,%11111 return