ndreas@weizenbaum:~$ telnet webmitef
Trying 192.168.178.87...
Connected to webmitef.fritz.box.
Escape character is '^]'.

> list
' WebMiteF - The Big Communicator
' dm-lines starting with "!" will be executed as BASIC code from the LCD unit

Sub dm(t$) ' display message
 SetPin gp1,gp0,com1
 Open "com1:115200" As #1
 Print #1,t$
 Pause 10
 Close #1
End Sub

Sub clearLCD() ' clear LCD
 dm("!CLS")
 dm("!linepointer = 0")
End Sub

Sub sameline() ' of next print
 dm("!if linepointer > 20 then linepointer = linepointer-20")
 dm("!if linepointer = 0 then linepointer = 60")
 dm("!if linepointer = 10 then linepointer = 70")
End Sub

' Testprogram(m)
clearLCD

dm("WebMiteLCD-F")
dm("")
dm("Telnet address:")
dm("")
dm(MM.Info(ip address))
dm("")

'dm("!Box 0,40,30,30,,rgb(red)")
'dm("!Circle 50,55,15,1,1,rgb(yellow)")

On ERROR SKIP 1
WEB ntp 2,"192.168.178.1" ' get time from ntp server TZ=Berlin

dm(Date$+" "+Time$)
Do ' show date & time every sencond
 Pause 1000
 sameline()
 dm(Date$+" "+Time$)
Loop
>