$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 128
$swstack = 64
$framesize = 64

$include "KokkeKat_FAT-free_SD_lib_decl.bas"
' my settings in this config file

'Const Sdinitdetail = 1
'Const Sdfsactive = 1
'Const Sdusefind = 1
'Const Sdusefindstoreentry = 0
'Const Sdusedirlist = 0
'Const Sddirlistarraysize = 12
'Const Sdrmode = 1
'Const Sdwmode = 2
'Const Sduseappend = 1
'Const Sdcleartail = 0
'Const Sdusefsinfo = 1
'Const Sduselfn = 0
'Const Sduselfncompare = 0
'Const Sdusewipe = 0
'Const Sdusedirlistdelete = 0
'Const Sdusesizeinfo = 0
'Const Sdusecrc7 = 0

Dim Temp_string As String * 20
Dim Temp_bufor(20) As Byte At Temp_string Overlay
Dim Send As Byte , Send_len As Byte , Datas As Byte
Dim Something_must_be_saved As Byte                         'for this example
'init card
Lcd "Init SD"
 Gosub Sdinit
If Sdstatus = 0 Then
   Gosub Sdinitfs
End If
Home
 Wait 1
If Sdstatus = 0 Then
 Lcd "Okay!  "
Else
 Lcd "No Card"
End If

'### DOUBLE SPEED of SPI      It is in the declarations but I preferred it to have a test on top
Spsr.0 = 1                                                  ' Double speed (results in f osc / 2)
Spcr.1 = 0                                                  ' f osc / 4
Spcr.0 = 0
'### --------------- ###
Wait 1
Enable Interrupts
Lowerline : Lcd "Waiting..."




'*****************************************************
'*********************** START ***********************
'main loop
Do

  If Something_must_be_saved = 1 Then Gosub Save_to_sd

Loop
End
'************************ END ************************
'*****************************************************
$include "KokkeKat_FAT-free_SD_lib_code.bas"




'zapis na karte
Save_to_sd:

If Sdstatus = 0 Then

 Gosub Sdreadfsinfo
Sdentrynames = "LOGGED     "                                'name of file on card (11 characters)
Sdstartdirclusterd = 0
'     I have RTC
'Sdyear = Year
'Sdmonth = Month
'Sdday = Day
'Sdhours = Hour
'Sdminutes = Minute
'Sdseconds = Second

Gosub Sdpreparetoappend                                     'find file and last record

Sdclosefile = 0                                             ' Always make sure that Sdclosefile = 0 before writing
Sdbyterw = 32                                               ' Write "Space"
Gosub Sdwritebyte                                           'this saves one single byte to card

'#
For Datas = 1 To 3
       'written in a single line will be three consecutive text variables
   Select Case Datas
    Case 1 : Temp_string = Time_string
     Send_len = 20
    Case 2 : Temp_string = Rezultat_string
     Send_len = 20
    Case 3 : Temp_string = Temp_str
     Send_len = Len(temp_str)                               'variables such as different lengths (example)
   End Select

 For Send = 1 To Send_len   'variables such as different lengths (example)
   If Sdclosefile = 0 Then
      Sdbyterw = Temp_bufor(send)
       Gosub Sdwritebyte 'this saves one single byte to card
   Else
   'Handle partition full
   End If

 Next
  If Sdclosefile = 0 Then
      Sdbyterw = 32                                         ' Write "Space"
      Gosub Sdwritebyte   'this saves one single byte to card
   Else
      ' Handle partition full
   End If
Next
'#

    'from this point enter and mark the end of the line
   If Sdclosefile = 0 Then
      Sdbyterw = 13                                         ' Write "Enter"
      Gosub Sdwritebyte
   Else
      ' Handle partition full
   End If

   If Sdclosefile = 0 Then
      Sdbyterw = 10                                         ' Write "LF"   next line
      Gosub Sdwritebyte
   Else
      ' Handle partition full
   End If

Gosub Sdfinalizeafterwriting                                ' After writing the last byte, close the file
Gosub Sdwritefsinfo                                         ' Save the updated fsinfo variables back


End If

Return