10 lines
253 B
Text
10 lines
253 B
Text
Module CheckIt {
|
|
s$ = "12345"
|
|
s$ = STR$(VAL(s$) + 1,"")
|
|
Print S$
|
|
\\ using , for decimal point like in Locale 1032 for Greece
|
|
s$ = "123,45"
|
|
\\ we get value in Locale 1032
|
|
S$=Str$(VAL(s$,",") + 1, 1032)
|
|
}
|
|
CheckIt
|