Błąd nr 31 w Bascom przy kompilacji - błędny typ danych, jak naprawić?

   
$regfile = "m8515.dat"
$crystal = 1000000
$xramstart = &H300
$xramsize = &H10000
$include "Config_MMC.bas"
$include "Config_AVR-DOS.bas"
Declare Function Getattr0() As Byte

'=============WYSWIETLACZ LCD==========
'=============KARTA MMC==============
Portb.0 = 1
Ddrb.0 = 0
Portb.1 = 1
Ddrb.1 = 0

Dim S As String * 20
Dim W As Byte
Dim Xxx As Byte
Cls
Xxx = Initfilesystem(1)
W = 122
Cls
S = Dir( "*.*")
Lcd S
Lowerline
S = Dir()
Lcd S
Open "abc.txt" For Input As #1
Input #1 , S
Lcd S
Close #1

End

Function Getattr0() As Byte
$external _getattr
   Loadadr Getattr0 , Z
   !Call _GetAttr0
End Function

'... tu właśnie nakazujemy kompilatorowi , by te hektary RAM-u zajął sobie w zewnętrznej pamięci
$default Xram
$include "Config_MMC.bas"
$include "Config_AVR-DOS.bas"

$default Sram ' a tu powracamy do tej ... wbudowanej ;)

$regfile = "m8515.dat"
$crystal = 1000000
$xramstart = &H300
$xramsize = &H10000
$default Xram
$include "Config_MMC.bas"
$include "Config_AVR-DOS.bas"
Declare Function Getattr0() As Byte
$default Sram
'=============WYSWIETLACZ LCD==========
'=============KARTA MMC==============
Portb.0 = 1
Ddrb.0 = 0
Portb.1 = 1
Ddrb.1 = 0

Dim Buf_lcd(5000) As Xram Byte
Dim S As String * 20
Dim Tt As String * 12
Dim Wsrampointer As Word
Dim W As Byte
Dim Xxx As Byte
Dim Sektor As Long
Cls
Xxx = Initfilesystem(1)
W = 122
Cls
S = Dir( "*.*")
Lcd S
Lowerline
S = Dir()
Lcd S
Open "abc.txt" For input As #1
Input #1 , S
close #1
Lcd S

End

Function Getattr0() As Byte
$external _getattr
   Loadadr Getattr0 , Z
   !Call _GetAttr0
End Function

$include "Config_MMC.bas"
$include "Config_AVR-DOS.bas"