Code:
' ___ __ __
' | | | \ | | | | | \
' | | | | --- | | |--| |---
' |___ |___ |__/ \___/ | | | \
define a 97
define b 98
define c 99
define d 100
define e 101
define f 102
define g 103
define h 104
define i 105
define j 106
define k 107
define l 108
define m 109
define n 110
define o 111
define p 112
define q 113
define r 114
define s 115
define t 116
define u 117
define v 118
define w 119
define x 120
define y 121
define z 122
define lcd byteport[2]
define rw port[13]
define rs port[14]
define enable port[15]
define buffer byte
define parameter byte
define zahl word
define ziffer byte
define jahr byte
define tage byte
gosub initialisierung
pause 10
#sync
if year<97 then beep 150,50,0 else goto sync
beep 150,25,25
#loop
gosub lcd_out
goto loop
#lcd_out
parameter=1
gosub whichline
parameter=e-32
gosub writeletter
parameter=s
gosub writeletter
parameter=32
gosub writeletter
parameter=i
gosub writeletter
parameter=s
gosub writeletter
parameter=t
gosub writeletter
parameter=32
gosub writeletter
zahl=hour
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
parameter=58
gosub writeletter
zahl=minute
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
parameter=58
gosub writeletter
zahl=second
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
if day<>tage then goto date
tage=day
return
#date
parameter=32
gosub writeletter
parameter=a
gosub writeletter
parameter=m
gosub writeletter
parameter=32
gosub writeletter
#mo
if dow>1 then goto di
parameter=m-32
gosub writeletter
parameter=o
gosub writeletter
parameter=n
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
goto trennteil
#di
if dow>2 then goto mi
parameter=d-32
gosub writeletter
parameter=i
gosub writeletter
parameter=e
gosub writeletter
parameter=b
gosub writeletter
parameter=s
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
goto trennteil
#mi
if dow>3 then goto do
parameter=m-32
gosub writeletter
parameter=i
gosub writeletter
parameter=t
gosub writeletter
parameter=t
gosub writeletter
parameter=w
gosub writeletter
parameter=o
gosub writeletter
parameter=c
gosub writeletter
parameter=h
gosub writeletter
goto trennteil
#do
if dow>4 then goto fr
parameter=d-32
gosub writeletter
parameter=o
gosub writeletter
parameter=n
gosub writeletter
parameter=n
gosub writeletter
parameter=e
gosub writeletter
parameter=r
gosub writeletter
parameter=s
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
goto trennteil
#fr
if dow>5 then goto sa
parameter=f-32
gosub writeletter
parameter=r
gosub writeletter
parameter=e
gosub writeletter
parameter=i
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
goto trennteil
#sa
if dow>6 then goto so
parameter=s-32
gosub writeletter
parameter=a
gosub writeletter
parameter=m
gosub writeletter
parameter=s
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
goto trennteil
#so
if dow>7 then goto trennteil
parameter=s-32
gosub writeletter
parameter=o
gosub writeletter
parameter=n
gosub writeletter
parameter=n
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
#trennteil
parameter=32
gosub writeletter
parameter=d
gosub writeletter
parameter=e
gosub writeletter
parameter=n
gosub writeletter
parameter=32
gosub writeletter
zahl=day
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
parameter=46
gosub writeletter
zahl=month
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
parameter=46
gosub writeletter
zahl=year
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
if day=30 and month=1 then gosub geburtstag
return
#geburtstag
parameter=2
gosub whichline
parameter=h-32
gosub writeletter
parameter=e
gosub writeletter
parameter=r
gosub writeletter
parameter=z
gosub writeletter
parameter=l
gosub writeletter
parameter=i
gosub writeletter
parameter=c
gosub writeletter
parameter=h
gosub writeletter
parameter=e
gosub writeletter
parameter=n
gosub writeletter
parameter=32
gosub writeletter
parameter=g-32
gosub writeletter
parameter=l
gosub writeletter
parameter=u
gosub writeletter
parameter=e
gosub writeletter
parameter=k
gosub writeletter
parameter=w
gosub writeletter
parameter=u
gosub writeletter
parameter=n
gosub writeletter
parameter=s
gosub writeletter
parameter=c
gosub writeletter
parameter=h
gosub writeletter
parameter=32
gosub writeletter
parameter=z
gosub writeletter
parameter=u
gosub writeletter
parameter=m
gosub writeletter
parameter=32
gosub writeletter
parameter=49
gosub writeletter
parameter=52
gosub writeletter
parameter=46
gosub writeletter
parameter=g-32
gosub writeletter
parameter=e
gosub writeletter
parameter=b
gosub writeletter
parameter=u
gosub writeletter
parameter=r
gosub writeletter
parameter=t
gosub writeletter
parameter=s
gosub writeletter
parameter=t
gosub writeletter
parameter=a
gosub writeletter
parameter=g
gosub writeletter
#initialisierung
lcd=off
parameter=&h38:gosub command
lcd=&b00000010
tog enable
tog enable
parameter=&h28:gosub command
parameter=&h0c:gosub command
#clear
parameter=&h02:gosub command
parameter=&h02:gosub command
return
#whichline
if parameter=1 then parameter=&h80
if parameter=2 then parameter=&hc0
goto command
#command
buffer=off
goto write_
#writeletter
buffer=&b00100000
#write_
lcd=buffer or (parameter shr 4)
tog enable
tog enable
lcd=buffer or (parameter and &h0f)
tog enable
tog enable
return
Lesezeichen