Need more space, please...

[Demon]

Hope not disturb !
This is my last variant of dual thermometer.

Fratello,

This is your thread.

You can post anything you consider relevant to this subject; more info on components, ideas about schematic, or more questions on code.

And congratulations on achieving your objectives!

[fratello]

Thank You so much for support !
...another fonts...

[fratello]

Instead :

BorderLine:                         ' 
'=================================== RAND 0
                 for y = 0 to 83 
                 call setcursor
                 read y, LcdReg                      
                 call    PrintDataLcd                
                 next y
'===================================  RAND 1                                
               LcdReg  =  %10000000                      ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000001                ' cursor  Y
               call    PrintCtrlLcd 
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd     
               
                LcdReg  =  %10000000 + 83                ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000001                ' cursor  Y
               call    PrintCtrlLcd 
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd  
'===================================  RAND 2
                LcdReg  =  %10000000                ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000010                ' cursor  Y
               call    PrintCtrlLcd    
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd
                               
                LcdReg  =  %10000000 + 83               ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000010                ' cursor  Y
               call    PrintCtrlLcd
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd

'===================================  RAND 3
                LcdReg  =  %10000000                ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000011                ' cursor  Y
               call    PrintCtrlLcd
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd
               
               LcdReg  =  %10000000 + 83                ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000011                ' cursor  Y
               call    PrintCtrlLcd
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd   
'===================================  RAND 4                
               LcdReg  =  %10000000                      ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000100                ' cursor  Y
               call    PrintCtrlLcd 
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd     
               
                LcdReg  =  %10000000 + 83                ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000100                ' cursor  Y
               call    PrintCtrlLcd 
               LOokup 0, [$FF] , LcdReg 
               call    PrintDataLcd    
'===================================  JOS                
        LcdReg  =  %10000000                      ' cursor  X  
                call    PrintCtrlLcd
                LcdReg  =  %01000101                  ' cursor  Y
                call    PrintCtrlLcd
                for y = 0 to 83                   
  LOokup y, [$FF,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_             
           $80,$80,$80,$80,$81,$81,$81,$BF,$BF,$BF,$81,$81,$81,$80,$BF,$BF,$BF,$A9,_          
           $A9,$A9,$A1,$80,$BF,$BF,$BF,$89,$89,$99,$A6,$80,$BF,$BF,$BF,$82,_          
           $84,$82,$BF,$BF,$BF,$80,$9E,$BF,$BF,$A1,$A1,$BF,$BF,$9E,$80,_          
           $80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_          
           $80,$80,$80,$80,$FF] ,LcdReg
                call    PrintDataLcd
                next y 
return

I use now :

GotoXY:                
LcdReg = %01000000 | Posy : call    PrintCtrlLcd    'Y
LcdReg = %10000000 | Posx : call    PrintCtrlLcd    'X
Return
'=========================== 
BorderLine:                         ' 
'=================================== up
posx=0
posy=0
gosub GotoXY
                 for y = 0 to 83 
                 read y, LcdReg                      
                 call    PrintDataLcd                
                 next y
'===================================  raw all                               
for i= 1 to 4
posx=0
posy=i
gosub GotoXY
               lcdReg= $FF
               call    PrintDataLcd
next i

for i = 1 to 4
posx=83
posy=i
gosub GotoXY
               lcdReg= $FF
               call    PrintDataLcd
next i    
'===================================  JOS                
posx=0
posy=5
gosub GotoXY
                for y = 0 to 83                   
    LOokup y,  [$FF,$80,$81,$81,$BF,$BF,$BF,$81,$81,$80,$BF,$BF,_
$BF,$A9,$A9,$A9,$80,$BF,$BF,$BF,$89,$89,$99,$A6,$80,$BF,$BF,$BF,_
$82,$84,$82,$BF,$BF,$BF,$80,$9E,$BF,$BF,$A1,$BF,$BF,$9E,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$9C,$A2,$A2,$A2,$9C,$80,$9E,$A0,$A0,$A0,$9E,_
$80,$82,$82,$BE,$82,$82,$80,$FF] ,LcdReg
                call    PrintDataLcd
                next y 
return

I attach the code from termometer with two differents fonts : small and big. Enjoy !

[fratello]

The hex file for #16 schematic (bas in #17), for "unumic" user. Just remove the ".txt" extension. Enjoy !

[Art]

Got any RAM left?

Tc=2
Nc=6
PosX=11
PosY=3 
Gosub Lcd_GotoXY : Gosub Lcd_SentString

Tc=3
Nc=6
PosX=11
PosY=4
Gosub Lcd_GotoXY : Gosub Lcd_SentString

->

bla var byte : blabla var byte
bla = 2 : blabla = 3

'************************

gosub loop
bla = bla + 1
blabla = blabla + 1
gosub loop

'************************

loop:
Tc=bla
Nc=6
PosX=11
PosY=blabla
Gosub Lcd_GotoXY : Gosub Lcd_SentString
return

plenty of potential for stuff like that,
& you did this exact same thing twice:

LcdStr(5) = 59                            ' simbol for degree
LcdStr(4) = 48 + Temperature2 dig 1
LcdStr(3) = "."
LcdStr(2) = 48 + Temperature2 dig 2
if Temperature2 dig 3=0 then
LcdStr(1) = 32
else
LcdStr(1) = 48 + Temperature2 dig 3
endif

but looks like you fit it in anyways