$Regfile="m168pdef.dat"
$Crystal=8000000
$hwstack=40
$swstack=16
$framesize=32


$hwstack = 64
$swstack = 16
$framesize = 40
$baud=57600

$lib "lcd_i2c.lib.old"            'lcd_i2c.lib wurde umbenannt
'feste vorgabe der Verbindungen des PCF8574 zum LCD, D0-D3 und RW auf GND
'P0 - D4;
'P1 - D5;
'P2 - D6;
'P3 - D7;
'P4 - RS;
'P5 - n.c.;
'P6 - n.c.;
'P7 - E1

Config I2cdelay = 10

Config Sda = Portc.4                         'I2C-Pins definieren
Config Scl = Portc.5

Const Pcf8574_lcd = 64                       'Ausgabe Adr

Dim _lcd_e As Byte
_lcd_e = 128                                  '_e1 aktiviert für 2-Zeilenanzeige


I2cinit
Waitms 100

Config Lcd = 16x2
Cursor Off

Cls
Waitms 100


'blinkender Text "test"
Do
   locate 1,1
   lcd"test           #"
   wait 1
   locate 2,1
   lcd "*           TEST"
   wait 1
   cls
   wait 1
Loop

End