MikroB (basic)....Števec kovancev

Zanima me par stvari v tem programu, ki sem ga napisal.
Rabil bi nasvet glede ukazov

LCD_init(PortB) "Odvzem informacij iz porta b"
LCD_Cmd(LCD_CURSOR_OF) "Izsklop kurzorjev"
LCD_Out(1,1,Text) "Izspis Texta"

Ti ukazi obstajajo v navodilih saj sem jih dobesedno prepisal iz navodil za
BasicB 2011.Kakor koli, ko debugam mi označi napako na vseh ukazih ki sem jih napisal zgoraj.Najverjetneje je napaka zelo simpl, ker pa nisem vešč programiranja bi lepo prosil za pomoč.

Rad bi še to uprašal kako naj naredim, da se bo prištevala decimalka.
Imel sem namen narediti tako.
1 cent=1 ...
10 centov=10...
1 eu=100...
Pred tem pa že ustvariti piko na zaslonu.
Potem pa z ukazom LCD_Out(n,n,Euro) izspisati Evro dve mesti pred piko.

PRI: 1 cent=(izpis na LCD)... (. 1)
10 centov= (.10)

Rad bi izvedel kako bi vi naredili program za števec kovancev, tudi komentarji, nasveti bi mi zelo pomagali.
Bil bi pa zelo vesel že kar napisanega programa

Program

program Stetje_kovancev

dim Text as char
dim Evro as char

main:

TrisB=0
TrisA=1

LCD_init(PortB)
LCD_Cmd(LCD_CURSOR_OF)
Text = "EU"
LCD_Out(1,1,Text)

if PortA=1
then Evro = Evro + 1
     Delay_ms(1000)
end if

if PortA=2
then Evro = Evro + 2
     Delay_ms(1000)
end if

if PortA=4
then Evro = Evro + 5
     Delay_ms(1000)
end if

next Evro

LCD_Out(5,1,Evro)

goto main
     
end.