XProfan

declare a!,a$,total!,b$,b!,b&
@Set("Decimals",2)
cls
b$ = "12"
b& = @val(b$)
a$="0,35"
a!= @val(a$)
total!= a!*b&
print total!
waitinput
end

declare a!,a$,total!,b$,b!,b&
@Set("Decimals",2)
cls
b$ = "12"
b& = @val(b$)
a$="0,35"
case instr(",",a$):a$=translate$(a$,",",".")
a!= @val(a$)
total!= a!*b&
print total!
waitinput
end

Case Instr(",",A$):A$=Translate$(A$,",",".")

A$=Translate$(A$,",",".")