$regfile = "m16def.dat"
$crystal = 1000000
$hwstack = 128
$swstack = 128
$framesize = 128
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Portd , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Cls
Cursor Off
Wait 1
Gosub Grafik
Line(119 , 3) -(119 , 60) , 0 'Linie mitte löschen
Do
' ----------------------------------------
Locate 5 , 11 : Lcd "erfolgt"
Line(119 , 3) -(119 , 60) , 255 'Linie mitte
Line(119 , 3) -(119 , 60) , 0 'Linie mitte löschen
Loop
End
' ------------------------------------------------------------------------------
Grafik:
'Koordinaten X1 + Y1 zu X2 + Y2
Line(0 , 0) -(239 , 0) , 255 'Linie außen oben
Line(3 , 3) -(236 , 3) , 255 'Linie innen oben
Line(3 , 60) -(236 , 60) , 255 'Linie innen unten
Line(0 , 63) -(239 , 63) , 255 'Linie außen unten
Line(0 , 0) -(0 , 63) , 255 'Linie außen links
Line(3 , 3) -(3 , 60) , 255 'Linie innen links
Line(239 , 1) -(239 , 62) , 255 'Linie außen rechts
Line(236 , 3) -(236 , 60) , 255 'Linie innen rechts
Line(118 , 3) -(118 , 60) , 255 'Linie mitte links
Line(120 , 3) -(120 , 60) , 255 'Linie mitte rechts
Locate 2 , 2 : Lcd "--Reale Uhrzeit--"
Locate 3 , 2 : Lcd "Uhrzeit:"
Locate 4 , 2 : Lcd "Datum :"
Locate 5 , 2 : Lcd "Sync. :"
Locate 7 , 2 : Lcd "In-Temp:"
Locate 2 , 22 : Lcd "---DCF-77 Zeit---"
Locate 3 , 22 : Lcd "DCF_sec:"
Locate 4 , 22 : Lcd "DCF_day:"
Locate 6 , 28 : Lcd "Cassio"
Locate 7 , 24 : Lcd "AVR-Praxis.de"
Return