$regfile = "usb1287.dat"                                    'Definituonsdatei für Mega16
$crystal = 16000000                                         'Quarz: 16 MHz

Dim Init1 As Byte
Dim Init2 As Byte
Dim Init3 As Byte
Dim Init4 As Byte
Dim Init5 As Byte
Dim Init6 As Byte
Dim Init7 As Byte
Dim Init8 As Byte
Dim Init9 As Byte
Dim Text As String * 4

Config Pinf.1 = Output                                      'L= Command; H= Data
Config Pinf.2 = Output                                      'Chip Select

Reset Pinf.1				'Display auf Komandomodus schalten
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 16

Init1 = &H39
Init2 = &H1D
Init3 = &H50
Init4 = &H6C
Init5 = &H76
Init6 = &H38
Init7 = &H0F
Init8 = &H01
Init9 = &H06
Text = "test"

Spiinit                              
Reset Pinf.2				'Chip Select Display

Waitms 60
Spiout Init1 , 1
Waitms 60
Spiout Init2 , 1
Waitms 60
Spiout Init3 , 1
Waitms 60
Spiout Init4 , 1
Waitms 60
Spiout Init5 , 1
Waitms 60
Spiout Init6 , 1
Waitms 200
Spiout Init7 , 1
Waitms 60
Spiout Init8 , 1
Waitms 60
Spiout Init9 , 1
Waitms 60
Set Pinf.1				'Display auf Datenmodus schalten
Spiout Text , 4

Anfang:
Waitms 50
Goto Anfang
End