'libs Importieren, die bestimmte Funktionen bereitstellen
import "GET_KEY.blib"
import "SHOW_TIME.blib"
import "GET_VALUE.blib"

'Variablen definieren, allkieren und configurieren
OPTION CCADV 'Compileroption für Station Advanced
define VERSION AS byte[64]
define LIGHT AS port[16]
define LOOPCOUNTER AS byte[1]
define KEYIN AS byte[2]
define TMP AS byte[3]

LIGHT=0
LOOPCOUNTER=0


LCD.INIT 'LCD einmalig initialisieren
IF YEAR=0 THEN SET_TIME() 'prüfen ob das Jahr gesetzt ist, wenn nicht, dann ZEITCONFIG starten 0=2000 11=2011 usw.

DO 'schleife bis LOOP
LCD.CLEAR 'LCD löschen
LCD.POS 2,1 'cursor auf 2. Zeile 1. Buchstaben setzten
LCD.PRINT DAY & "." & MONTH 'Tag und Monat ausgeben
IF YEAR < 10 THEN 'entscheiden ob die jahreszah 1 oder 2 stellig ist, wenn einstellig, dann
LCD.PRINT ".200" & YEAR '1 stellig 200x
ELSE 'wenn 2stellig dann
LCD.PRINT ".20" & YEAR '2stellig 20xx
END IF 'IF-bedingung beenden
FOR LOOPCOUNTER=1 TO 200 'Schleife 200mal ausführen
LCD.POS 1,1 'Cursor setzten (1. Zeile 1. Stelle)
SHOW_TIME() 'Zeit auf LCD ausgeben
NEXT 'For-Schleifenende
LOOP 'wieder zum DO springen

FUNCTION SET_TIME()
LCD.CLEAR 'LCD löschen
LCD.POS 1,1 'cursor setzten
LCD.PRINT "JAHR(2stellig)?" 'text ausgeben
YEAR=GET_VALUE() 'Eingabe als Jahr speichern (passiert immer in 2. Zeile)
WAIT GET_KEY()=255 'warten, dass keine taste mehr gedrückt ist ;)
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "MONAT?"
MONTH=GET_VALUE()
WAIT GET_KEY()=255
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "TAG?"
DAY=GET_VALUE()
WAIT GET_KEY()=255
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "Stunde(24h)?"
HOUR=GET_VALUE()
WAIT GET_KEY()=255
LCD.CLEAR
LCD.POS 1,1
LCD.PRINT "MINUTE?"
MINUTE=GET_VALUE()
WAIT GET_KEY()=255
LCD.CLEAR
END FUNCTION

attributes
ccproject
END attributes