13 LINES!Code:@ __config _XT_OSC & _WDT_ON & _MCLRE_ON & _LVP_OFF & _CP_OFF Include "modedefs.bas" nbpatterns var byte:uin var word:cmcon=7:trisa=0:trisb=1 main: serin portb.0,n2400,uin:uin=(uin*100)/207:lcdout $fe,1,"TOO ":if uin<10 then lcdout "LOW":goto show IF Uin > 110 THEN LCDOUT "HIGH": GOTO Show lookdown2 uin,<[11,16,20,25,30,35,44,54,63],nbpatterns:lcdout $fe,1,rep 255\nbpatterns if uin > 62 then lookdown2 uin,<[ 63,73,82,87,92,97,101,106,111], NbPatterns lcdout $fe,1,rep 255\ 8,$fe, $c0, rep 255\ nbpatterns ENDIF Show: Pause 5:goto main END ' End of program![]()
Bookmarks