Need more space, please...

[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 !