Const A%=123
Print A, A%
Const B$="hello"
Print B$, B
End

> run
123 123
hello hello
>

c$ = "4026782977,junk"
d$ = "4026782977,more.junk"

Print Val(c$), Val(d$)
a% = Val(c$)
b% = Val(d$)
Print a%,b%
Print a%-b%

> run
4026782977 4.02678e+09
4026782977 4026782720
257
>

Const A% = 123
B% = 456
Print A, A%
Print B, B%

> run
123 123
[4] Print B, B%
Error: B already declared
>

> const C! = 123
Error: Conflicting variable type
>

// Returns the numerical value of the ?string$?.
// n = VAL( string$ )
void fun_val(void) {
char *p, *q, *tl, *td;
int count;

p = getCstring(ep);
q = p;
if(*p == '&') {
switch(*++p) {
case 'h':
case 'H': iret = strtoll(++p, &tl, 16); break;
// note that we MUST supply a variable for the
// third arg of strol() due to a bug in C32 2.1
case 'o':
case 'O': iret = strtoll(++p, &tl, 8); break;
case 'b':
case 'B': iret = strtoll(++p, &tl, 2); break;
default : error("Invalid prefix");
// remove second superfluous semicolon (;)
}
} else {

float tempf = (float) strtod(q, &td);
long long int i64 = strtoll(q, &tl, 10);

if (td > tl) {
targ = T_NBR;
fret = tempf;
count = td - q;
return;
} else iret = i64;
}
count = tl - q;
targ = T_INT;
}

HEATER (as is currently - horizontal)

or:

H
E
A
T
E
R (xtra argument - vertical)