$regfile = "m128def.dat" ' ATmega128
$crystal = 1000000
$lib "XV-GDM128X64.lib" ' specify the used lib
Config Graphlcd = 128 * 64eadogm , Cs1 = Portd.4 , A0 = Portd.7 , Si = Portb.3 , Sclk = Portb.5 , Rst = Portd.5
Do
Cls
Setfont Font8x8
Lcdat 1 , 1 , "1234567890123456"
Lcdat 2 , 1 , "Zeile 2 "
Lcdat 3 , 8 , "Zeile 3 "
Lcdat 4 , 1 , "Zeile 4 "
Lcdat 6 , 1 , "Zeile 5 " , 1
Lcdat 6 , 1 , "Zeile 6 " , 1
Lcdat 7 , 1 , "Zeile 7 " , 1
Lcdat 8 , 1 , "AVR-PRAXiS.de " , 1
Wait 3
Cls
Setfont Font16x16
Lcdat 2 , 1 , "Ein anderer"
Lcdat 4 , 1 , "Font"
Wait 3
Loop
End
$include "font8x8.font"
$include "font16x16.font"