Starting Tux
Enc28j60-version = 6
prisol paket
prisol paket
prisol paket
prisol paket
prisol paket
Arpreply
prisol paket
type IP
prisol paket
prisol paket
prisol paket
prisol paket
type IP
prisol paket
type IP
prisol paket
type IP
prisol paket
type IP
prisol paket
type IP

$regfile = "m32def.dat"
$crystal = 20000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 19200

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

$lib "LCD-SIEMENS_S65_LS020.LBX"
Config Graphlcd = Color , Controlport = Portb , Rs = 4 , Reset = 3 , Cs = 2 , Scl = 1 , Sda = 0

Const Black = 0                    '&B00000000
Const Brown = 136                    '128
Const Darkred = &B11000000                    '192
Const Red = &B11010000                    '208
Const Orange = &B11101000                    '232
Const Yellow = &B11111000                    '248
Const Darkgreen = &B00011000                    '41
Const Green = &B00101001                    '48
Const Brightgreen = &B01111011                    '123
Const Brightblue = &B00111111                    '63
Const Blue = &B00100111                    '39
Const Darkblue = &B00000110                    '6
Const Violett = 143                    '143
Const White = 255                    '255

Cls

Setfont Color8x8

Lcdat 10 , 5 , "start program" , White , Black
Wait 2

Dim B As Byte
Dim Da As String * 12
B = Initfilesystem(1)

Wait 1
Lcdat 20 , 5 , "1 Point" , White , Black

If B <> 0 Then
Wait 1
Lcdat 10 , 5 , "error SD card" , White , Black
End If

Wait 1
Lcdat 30 , 5 , "2 Point" , White , Black

Da = "test.txt"

Open Da For Output As #2
Lcdat 40 , 5 , Da , White , Black
Close #2

Wait 1
Lcdat 60 , 5 , "3 Point" , White , Black

Da = "            "

Do

Cls

Open Da For Append As #2

Lcdat 40 , 5 , Da , Red , Black

Wait 1

Loop
End

$include "color8x8.font"

$hwstack = 64  
  $swstack = 64  
  $framesize =64

$hwstack = 40
$swstack=16
$framesize=32