@Obese
To do that, you'll need to covert all the float variables into strings and then write functions to add, subtract and divide strings, just like primary school math. I've made the add and subtract functions and I'm working on the divide function. They don't yet support decimal points, but I'm sure you could add that in or work around it.
Add function:
sync on
num1$=str$(rnd(10000))
num2$=str$(rnd(10000))
print num1$;" + ";num2$
added$=stringadd$(num1$,num2$)
print "= ";added$
print "= ";val(num1$)+val(num2$)
end
function stringadd$(num1$,num2$) : rem By Nano
added$=""
carry$=""
len1=len(num1$)
len2=len(num2$)
if len1>len2
for i=1 to len1-len2
num2$="0"+num2$
next i
len2=len1
endif
if len2>len1
for i=1 to len2-len1
num1$="0"+num1$
next i
len1=len2
endif
for i=len1 to 1 step -1
digit=val(mid$(num1$,i))+val(mid$(num2$,i))+val(carry$)
digit$=str$(digit)
carry$=""
if len(digit$)=2 then carry$=left$(digit$,1) : digit$=right$(digit$,1)
added$=digit$+added$
next i
if carry$<>""
added$=carry$+added$
endif
endfunction added$
And subtract:
sync on
num1$=str$(rnd(10000))
num2$=str$(rnd(10000))
print num1$+" - "+num2$
print
added$=stringsubtract$(num1$,num2$)
print "= ";added$
print "= ";val(num1$)-val(num2$)
end
function stringsubtract$(num1$,num2$) : rem By Nano
carry=0
subtracted$=""
len1=len(num1$)
len2=len(num2$)
if len1>len2
for i=1 to len1-len2
num2$="0"+num2$
next i
len2=len1
endif
if len2>len1
for i=1 to len2-len1
num1$="0"+num1$
next i
len1=len2
endif
for i=len1 to 1 step -1
num1dig=val(mid$(num1$,i))
num2dig=val(mid$(num2$,i))
n1d0=0
if carry=1
if num1dig>0
num1dig=num1dig-1
carry=0
else
n1d0=1
num1dig=9
carry=1
if carrypos=0 then carrypos=i
endif
endif
if num1dig<num2dig
num1dig=num1dig+10
carry=1
else
if n1d0=0 then carrypos=0
endif
digit$=str$(num1dig-num2dig)
subtracted$=digit$+subtracted$
next i
addminus=0
if carry=1
addminus=1
takefrom$="1"
for i=1 to len(subtracted$)
takefrom$=takefrom$+"0"
next i
num1$=takefrom$
num2$="0"+subtracted$
carry=0
subtracted$=""
len1=len(num1$)
len2=len(num2$)
for i=len1 to 1 step -1
num1dig=val(mid$(num1$,i))
num2dig=val(mid$(num2$,i))
if carry=1
if num1dig>0
num1dig=num1dig-1
carry=0
else
num1dig=9
carry=1
if carrypos=0 then carrypos=i
endif
endif
if num1dig<num2dig
num1dig=num1dig+10
carry=1
endif
digit$=str$(num1dig-num2dig)
subtracted$=digit$+subtracted$
next i
endif
if left$(subtracted$,1)="0"
i=0
repeat
subtracted$=right$(subtracted$,len(subtracted$)-1)
until left$(subtracted$,1)<>"0" or len(subtracted$)<1
endif
if addminus=1 then subtracted$="-"+subtracted$
endfunction subtracted$
Strings will allow you to have 253 decimal places (255 minus the "3."), but If you wanted to, you could use an array with 65534(I think) decimal places, an array of strings - 16711678 decimal places (35536*255), or even a multidimensional array with an even larger number of decimal places (around 4667242141955653632000 with a 3 dimensional, which would take centuries to calculate!).
"To succeed is not enough, others must fail" - Gore Vidal
