Device =12F675 @ CONFIG_REQ @ __config MCLRE_OFF & CP_OFF & WDT_OFF & INTRC_OSC_NOCLKOUT & CPD_OFF & BODEN_OFF & PWRTE_ON 'ADCON0.3=0 'ADCON0.2=0 ANSEL.0=1 ANSEL.1=0 ANSEL.2=1 ANSEL.3=0 TRISIO.1=0 TRISIO.3=0 TRISIO.4=0 TRISIO.5=0 GPIO=0 Declare ADIN_RES 8 Symbol tclock=GPIO.4 Symbol tdata=GPIO.5 Symbol treset=GPIO.2 Symbol lcden=GPIO.1 Dim dur As Byte Dim temp As Byte Dim tempolc As Byte Dim tempa As Byte Dim tempb As Byte Dim tempc As Byte Dim ascia As Byte Dim ascib As Byte Dim ascic As Byte Dim rs As Byte dur=2 lcdkur: rs=0 temp=51 GoSub lcdgonder temp=50 GoSub lcdgonder temp=40 GoSub lcdgonder temp=12 GoSub lcdgonder temp=3 GoSub lcdgonder temp=1 GoSub lcdgonder acilisyaz: rs=0 temp=128 GoSub lcdgonder rs=1 temp=84 GoSub lcdgonder temp=66 GoSub lcdgonder temp=50 GoSub lcdgonder temp=78 GoSub lcdgonder temp=72 GoSub lcdgonder temp=68 GoSub lcdgonder rs=0 temp=192 GoSub lcdgonder rs=1 temp=86 GoSub lcdgonder temp=79 GoSub lcdgonder temp=76 GoSub lcdgonder temp=84 GoSub lcdgonder temp=77 GoSub lcdgonder temp=69 GoSub lcdgonder temp=84 GoSub lcdgonder temp=82 GoSub lcdgonder temp=69 GoSub lcdgonder DelayMS 2000 rs=0 temp=1 GoSub lcdgonder rs=0 temp=133 GoSub lcdgonder rs=1 temp=86 GoSub lcdgonder temp=79 GoSub lcdgonder temp=76 GoSub lcdgonder temp=84 GoSub lcdgonder rs=0 temp=197 GoSub lcdgonder rs=1 temp=86 GoSub lcdgonder temp=79 GoSub lcdgonder temp=76 GoSub lcdgonder temp=84 GoSub lcdgonder avoltolc: tempolc=ADIn 0 DelayMS 10 ascia=tempolc/100 tempa=tempolc/10 tempb=tempa/10 tempc=tempb*10 ascib=tempa-tempc tempa=tempa*10 ascic=tempolc-tempa ascia=ascia+48 ascib=ascib+48 ascic=ascic+48 rs=0 temp=128 GoSub lcdgonder rs=1 temp=ascia GoSub lcdgonder temp=ascib GoSub lcdgonder temp=46 GoSub lcdgonder temp=ascic GoSub lcdgonder tempolc=ADIn 2 DelayMS 10 tempa=0 tempb=0 tempc=0 ascia=tempolc/100 tempa=tempolc/10 tempb=tempa/10 tempc=tempb*10 ascib=tempa-tempc tempa=tempa*10 ascic=tempolc-tempa ascia=ascia+48 ascib=ascib+48 ascic=ascic+48 rs=0 temp=192 GoSub lcdgonder rs=1 temp=ascia GoSub lcdgonder temp=ascib GoSub lcdgonder temp=46 GoSub lcdgonder temp=ascic GoSub lcdgonder GoTo avoltolc lcdgonder: tdata=temp.7 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.6 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.5 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.4 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=rs DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur lcden=1 DelayMS dur lcden=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.3 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.2 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.1 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=temp.0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tdata=rs DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur lcden=1 DelayMS dur lcden=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur tclock=1 DelayMS dur tclock=0 DelayMS dur Return End