Thanks a bundle Mister_E,

now the code works with your help. had only very small changes to make
and I guess there will be more PIC-fanatics who can use this:

'************************************************* ***************
'* Name : Ananlog1.BAS *
'* Author : [Mister_E] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 23.03.2008 *
'* Version : 1.0 *
'* Notes : 16F88 LCD 2x8 connected as ususal *
'* : Portb.7 analog IN 0-2V *
'************************************************* ***************


Include "modedefs.bas"

Define OSC 4
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uSec

CMCON = 7 ' Disable analog comparator
ANSEL = %01000000 ' set AN6 (RB7) as analog, others to digital
ADCON1.7 = 1 ' Right justified results... duh... really needed in 8 bits???

adval VAR word

PAUSE 500 ' lcd settle time

loop:
ADCIN 6, adval ' Read channel 6 (RB7)
Lcdout $fe, 1,"Val:",dec3 adval ' Clear the LCD and show result
Pause 250 ' wait a litlle bit
Goto loop

End