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

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
return


#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