Poke 100, "1", "2", "3", "4" 'Initialise RAM
'
w1 = 0 'Just to be safe
For bPtr = 100 To 103
w1 = w1 * 10 + @bPtr - 48
Next bPtr
'
SerTxd("Result is ", #w1, CR, LF)
And optimised, for 4-digit ABCD ...
w0 = A*10+B*10+C*10+D-53328